Borland TurboBASIC & TurboPASCAL stuff from 1998 when i started with programming...

[mirrors/Programs.git] / turbobasic / SPOLECNI.BAS

diff --git a/turbobasic/SPOLECNI.BAS b/turbobasic/SPOLECNI.BAS
new file mode 100755 (executable)
index 0000000..26f1aab
--- /dev/null
+++ b/turbobasic/SPOLECNI.BAS
@@ -0,0 +1,26 @@
+CLS\r
+COLOR 14,15\r
+LOCATE 2,2\r
+SCREEN 0\r
+INPUT " AHOJ,JAK SE Mµæ. DOBRE/SPATNE " ;AAA$\r
+IF AAA$= SPATNE THEN GOTO CXY\r
+IF AAA$= DOBRE THEN GOTO ASE\r
+\r
+GOTO SDF\r
+ASE:\r
+CLS\r
+LOCATE 2,2\r
+PRINT " !!! SUPER !!! "\r
+FOR A=0 TO 2000\r
+NEXT A\r
+SOUND RND*700+12,13\r
+GOTO SDF\r
+CXY:\r
+CLS\r
+LOCATE 2,2\r
+PRINT " TO JE æKODA. "\r
+FOR A=0 TO 2000\r
+NEXT A\r
+SOUND RND*100+40,40\r
+SDF:\r
+END\1a
\ No newline at end of file