Jos tahtoo kettuilla kaverille, tästä on hyötyä! Tallentaa jonkun mitättömään Wintooze.txt:hen älyttömästi dataa, jota parissa minuutissa saattaa tulla jopa 700 mt, eikä lähde pois, ennenkuin painetaan "a" näppäintä :)
Ja kaikki, jotka haluavat exen, kääntykööt kuunon kotisivut omaavat puoleen.
SCREEN 12 'Mennään näyttötilaan
a = 1 'Numeromuuttujan "a" alkuarvo
OPEN "Wintooze.txt" FOR BINARY AS #1 'Avataan tekstitiedosto
'Luodaan jos sellaista ei ole
CLS
DO
PUT #1, , a 'Tallennetaan muuttuja tekstitiedostoon
a = a + 1 'Lisätään muuttujan arvoa
LOOP UNTIL INKEY$ = "a" 'Poistutaan silmukasta a:n painamisen jälkeen
CLOSE #1 'suljetaan tiedosto
LOCATE 1, 18 'Siirtää kursorin riville 1 ja sarakkeeseen 18
PRINT "Copyright (c) 2004 B.Gates and P.Allen Gates of hell software" '"tekijätiedot
WHILE a$ = "" '-
a$ = INKEY$ ' l Odottaa napin painallusta
WEND '-Aihe on jo aika vanha, joten et voi enää vastata siihen.