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

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
Commit	Line	Data
0f95cc4b H	1	START:\r
	2	CLS\r
	3	COLOR 14,1\r
	4	SCREEN 1\r
	5	LOCATE 2,2\r
6c1eebfd	6	INPUT " ZADEJTE STARTOVACÍ PIN " ;A\r
0f95cc4b H	7	IF A<>007 THEN GOTO START\r
	8	REM ZDE LZE DOPLNIT PROGRAM DO KTEREHO LZE VSTOUPIT PINEM 007\r
	9	STOP\r
	10	END\1a