[mirrors/Programs.git] / turbobasic / TOM

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 timto PROGR...\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 timto PROGR...\r
	9	END\1a