SKODA:
CLS
SCREEN 1
COLOR 0,15
LOCATE 2,2
INPUT " ZADEJTE VSTUPNI PIN NA TOTO CD " ; No$
 IF  No$ = "TTDA" THEN GOTO POKR
 GOTO SKODA
POKR:
CLS
LOCATE 2,2
INPUT " JMENO UZIVATELE " ;N$
CLS
LOCATE 2,2
PRINT " CD VITA UZIVATELE " N$
LOCATE 25,2
INPUT " ZMACKNETE LIBOVOLNOU KLAVESU " ;X10$
END