1 'KYBERIA.CZ TRANSMISSION BY HARVIE 2010
2 'SEE http://www.youtube.com/watch?v=fUu5c1JJXzw
5 LOCATE 1+RND*22,1+RND*70
9 PRINT "PLEASE DARKEN YOUR ROOM"
10 INPUT "READY FOR TRANSMISSION" R
12 LINE (320,100)-(RND*640,RND*200),34
13 SOUND (0.1+RND)*500,RND*0.3
15 IF R > 80 THEN COLOR 255,0: CALL RNDLOC: PRINT " JOIN KYBERIA.CZ! "
16 IF R > 80 THEN COLOR 36,0: CALL RNDLOC: PRINT "K"
17 IF R > 97 THEN COLOR 255,255: CLS: DELAY 0.1
18 IF INKEY$<>"" THEN EXIT LOOP