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

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
Commit	Line	Data
0f95cc4b H	1	START:\r
	2	CLS\r
	3	COLOR 14,1\r
	4	SCREEN 8\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