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

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

diff --git a/turbobasic/007.BAS b/turbobasic/007.BAS
new file mode 100755 (executable)
index 0000000..8e55657
--- /dev/null
+++ b/turbobasic/007.BAS
@@ -0,0 +1,10 @@
+START:\r
+CLS\r
+COLOR 14,1\r
+SCREEN 8\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