turbobasic/floppy-party/KYBERIA.BAS

   1 'KYBERIA.CZ TRANSMISSION BY HARVIE 2010
   2 'SEE http://www.youtube.com/watch?v=fUu5c1JJXzw
   3
   4 SUB RNDLOC
   5         LOCATE 1+RND*22,1+RND*70
   6 END SUB
   7
   8 SCREEN 8
   9 PRINT "PLEASE DARKEN YOUR ROOM"
  10 INPUT "READY FOR TRANSMISSION" R
  11 DO
  12         LINE (320,100)-(RND*640,RND*200),34
  13         SOUND (0.1+RND)*500,RND*0.3
  14         R = RND*100
  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
  19 LOOP
  20 \1a