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

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

diff --git a/turbobasic/TOM.BAS b/turbobasic/TOM.BAS
new file mode 100755 (executable)
index 0000000..7b7a088
--- /dev/null
+++ b/turbobasic/TOM.BAS
@@ -0,0 +1,10 @@
+START:\r
+    CLS\r
+    COLOR 14,1\r
+    SCREEN 1\r
+                       LOCATE 2,2\r
+                       INPUT "  ZADEJTE STARTOVACÖ PIN  " ;A\r
+                       IF A<>007 THEN GOTO START\r
+                REM ZDE LZE DOPLNIT PROGRAM DO KTEREHO LZE VSTOUPIT PINEM 007\r
+   STOP\r
+   END\1a
\ No newline at end of file