From d70c42f169b23498c6570c3e825878431d1b2856 Mon Sep 17 00:00:00 2001
From: Harvie <tomas@mudrunka.cz>
Date: Wed, 26 May 2010 02:00:13 +0200
Subject: [PATCH] Kyberia: subliminal transmission

---
 turbobasic/floppy-party/KYBERIA.BAS | 20 ++++++++++++++++++++
 turbobasic/floppy-party/README      |  1 +
 2 files changed, 21 insertions(+)
 create mode 100644 turbobasic/floppy-party/KYBERIA.BAS
 create mode 100644 turbobasic/floppy-party/README

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.
-- 
2.30.2