From: Harvie <tomas@mudrunka.cz>
Date: Wed, 26 May 2010 00:00:13 +0000 (+0200)
Subject: Kyberia: subliminal transmission
X-Git-Url: https://git.harvie.cz/?a=commitdiff_plain;h=d70c42f169b23498c6570c3e825878431d1b2856;p=mirrors%2FPrograms.git

Kyberia: subliminal transmission
---

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