X-Git-Url: http://git.harvie.cz/?a=blobdiff_plain;f=turbobasic%2FTOM%20HESL.BAS;fp=turbobasic%2FTOM%20HESL.BAS;h=8e55657073e0dcd2e942748d97cc153d61eec800;hb=0f95cc4b3314aff66038b3bf60ff6db6790bc15c;hp=0000000000000000000000000000000000000000;hpb=c366db83dc933f6f5c79ba92dce91769455593f1;p=mirrors%2FPrograms.git

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