Il y a un virus sur votre ordinateur

dim i,j,a$:label M,S,ST
j=180:a$=chr$(10)+chr$(13)

caption 0,"InfoVirus"
height 0,300
width 0,450

alpha 1
left 1,20
top 1,15
font_size 1,20
font_name 1,"Times New Roman"
caption 1,"Il y a un Virus sur votre ordinateur !"

picture 2
left 2,150
top 2,70
file_load 2,"\Uranium.bmp"

for i=3 to 5
  option i:left i,15:top i,j:font_size i,10:width i,300
  j=j+30
next i
caption 3,"Mettre en quarentaine"
caption 4,"Supprimer"
caption 5,"Supprimer tout ce qui est dangereux"
on_click 3,M:on_click 4,S:on_click 5,ST

end

M:
message "Cour de Démmarrage..."
wait 2000
message "Le système à eu un problème consernant le virus !"
message "Désoler ! Le virus va attaquer votre ordinateur !"
return

S:
message "Cour de Démmarrage..."
wait 2000
message "Le système doit quitter tout les programme ouvert !"
wait 2000
message "Désoler ! Le virus est en train d'attaquer votre ordinateur !"
return

ST:
message "Cour de Démmarrage..."
wait 2000
message "Tout le répertoire C est toucher il sera supprimer"+a$+"au complet dans 100 millisecondes si vous cliquer sur la croix ou sur OK"
wait 100
message "Répertoire supprimer ! Maintenant réinstaller tout. HI HI HI !!!"
return