TYRANO-VIRUS REX

Vous voulez faire une blague à un de vos copains (une de vos copines)
doté(e) d'un ordinateur... et quand même un peu inexpérimenté(e).
Alors, vous pouvez vous servir du programme « Chenille blueue »
à trouver dans :
[url] https://panoramic.1fr1.net/les-inutilitaires-f9/la-liste-des-inutilitaires-t448.htm [/url]
(et à enregistrer dans votre disque dur sous le nom de « Chenille.exe »)

en lui faisant croire que son ordinateur est infecté par un énorme virus
(particulièrement gigantesque pour l'espèce)
dont il (elle) sera certain(e) de l'existence,
puisqu'il (elle) l'aura vu, de ses yeux vu,
la grrrrrosss bébête ayant eu la malencontreuse idée de passer juste derrière la vitre de son écran...

Alors, vous lui proposez d'utiliser ce programme anodin
et quand il (elle) arrivera à la 3° ligne...

Code:

rem ' Tyrano-Virus-Rex
dim k , t
label compt
alpha 1
left 1,20 : top 1,10
caption 1,"Ecrivez ici la liste des achats que vous devez effectuer"

memo 2
left 2,20 : top 2,30 : width 2,550 : height 2,400
set_focus 2
on_change 2,compt

end

compt:
t=count(2)
if t=3 and k=0
 k=1
 execute "Chenille.exe"
end_if
return