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

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

diff --git a/turbobasic/SYSTEM.BAS b/turbobasic/SYSTEM.BAS
new file mode 100755 (executable)
index 0000000..6002c6b
--- /dev/null
+++ b/turbobasic/SYSTEM.BAS
@@ -0,0 +1,18 @@
+SKODA:\r
+CLS\r
+SCREEN 1\r
+COLOR 0,15\r
+LOCATE 2,2\r
+INPUT " ZADEJTE VSTUPNI PIN NA TOTO CD " ; No$\r
+ IF  No$ = "TTDA" THEN GOTO POKR\r
+ GOTO SKODA\r
+POKR:\r
+CLS\r
+LOCATE 2,2\r
+INPUT " JMENO UZIVATELE " ;N$\r
+CLS\r
+LOCATE 2,2\r
+PRINT " CD VITA UZIVATELE " N$\r
+LOCATE 25,2\r
+INPUT " ZMACKNETE LIBOVOLNOU KLAVESU " ;X10$\r
+END\1a
\ No newline at end of file