Ohjelma tulostaa hervottomasti eri värisiä ja kokoisia viivoja, ympyröitä ja neliöitä. Toteutettu yksinkertaisesti antamalla ensin erilaisille muuttujille random -arvoja ja sitten sijoitettu ne kuvioiden tulostamiskäskyihin. Näin saadaan hieno efekti. Lisäksi PC-piipperistä (jos jollain sellainen vielä on) tulee randomia ääntä väliltä 37-30 000 hz 0.5 kellon tikityksen välein (eli 1/37 sek). Ohjelman ajo jatkuuv vasta kun tuo aika on kulunut.
CLS SCREEN 1 RANDOMIZE TIMER DO x1 = INT(RND * 400) + 0 ' annetaan x1:n arvoksi random väliltä 0-400 x2 = INT(RND * 400) + 0 ' jne... y1 = INT(RND * 400) + 0 y1 = INT(RND * 400) + 0 c = INT(RND * 15) + 1 ' kokonaisluku c:llä määritellään väri hz = INT(RND * 30000) + 37 ' taajuus cir1 = INT(RND * 400) + 0 ' ympyrien paikkaa cir2 = INT(RND * 400) + 0 cir3 = INT(RND * 400) + 10 boxi = INT(RND * 2) + 1 ' boxi COLOR c, c,c ' tulostetaan randomeilla arvoilla eri värejä IF boxi = 1 THEN ' tehdään viivoista viivoja jos boxi:n arvo on 1 LINE (x1, x2)-(y1, y2), c ELSEIF boxi = 2 THEN ' tehdään viivoista laatikoita jos boxi:n arvo on 2 LINE (x1, x2)-(y1, y2), c, B END IF SOUND hz, .5 ' ohjelmaan tulee lisää kuvioita aina kun ääni päivittyy, eli 0.5 kellon tikityksen välein CIRCLE (cir1, cir2), cir3, c LOOP WHILE INKEY$ = "" ' toistetaan kunnes kyllästytään
Tämähän on vaarallinen. O_o
Aihe on jo aika vanha, joten et voi enää vastata siihen.