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