Kyberia: subliminal transmission

[mirrors/Programs.git] / turbobasic / floppy-party / KYBERIA.BAS

diff --git a/turbobasic/floppy-party/KYBERIA.BAS b/turbobasic/floppy-party/KYBERIA.BAS
new file mode 100644 (file)
index 0000000..1888f9d
--- /dev/null
+++ b/turbobasic/floppy-party/KYBERIA.BAS
@@ -0,0 +1,20 @@
+'KYBERIA.CZ TRANSMISSION BY HARVIE 2010\r
+'SEE http://www.youtube.com/watch?v=fUu5c1JJXzw\r
+\r
+SUB RNDLOC\r
+       LOCATE 1+RND*22,1+RND*70\r
+END SUB\r
+\r
+SCREEN 8\r
+PRINT "PLEASE DARKEN YOUR ROOM"\r
+INPUT "READY FOR TRANSMISSION" R\r
+DO\r
+       LINE (320,100)-(RND*640,RND*200),34\r
+       SOUND (0.1+RND)*500,RND*0.3\r
+       R = RND*100\r
+       IF R > 80 THEN COLOR 255,0: CALL RNDLOC: PRINT " JOIN KYBERIA.CZ! "\r
+       IF R > 80 THEN COLOR 36,0: CALL RNDLOC: PRINT "K"\r
+       IF R > 97 THEN COLOR 255,255: CLS: DELAY 0.1\r
+       IF INKEY$<>"" THEN EXIT LOOP\r
+LOOP\r
+\1a\r