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

SKODA:\r
CLS\r
SCREEN 1\r
COLOR 0,15\r
LOCATE 2,2\r
INPUT " ZADEJTE VSTUPNI PIN NA TOTO CD " ; No$\r
 IF  No$ = "TTDA" THEN GOTO POKR\r
 GOTO SKODA\r
POKR:\r
CLS\r
LOCATE 2,2\r
INPUT " JMENO UZIVATELE " ;N$\r
CLS\r
LOCATE 2,2\r
PRINT " CD VITA UZIVATELE " N$\r
LOCATE 25,2\r
INPUT " ZMACKNETE LIBOVOLNOU KLAVESU " ;X10$\r
END\1a
Commit	Line	Data
0f95cc4b H	1	SKODA:\r
	2	CLS\r
	3	SCREEN 1\r
	4	COLOR 0,15\r
	5	LOCATE 2,2\r
	6	INPUT " ZADEJTE VSTUPNI PIN NA TOTO CD " ; No$\r
	7	IF No$ = "TTDA" THEN GOTO POKR\r
	8	GOTO SKODA\r
	9	POKR:\r
	10	CLS\r
	11	LOCATE 2,2\r
	12	INPUT " JMENO UZIVATELE " ;N$\r
	13	CLS\r
	14	LOCATE 2,2\r
	15	PRINT " CD VITA UZIVATELE " N$\r
	16	LOCATE 25,2\r
	17	INPUT " ZMACKNETE LIBOVOLNOU KLAVESU " ;X10$\r
	18	END\1a