turbobasic/SYSTEM.BAS

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