turbobasic/OPRAVIT9.BAS

   1
   2
   3 CLS
   4 SCREEN 0
   5 COLOR 14,1
   6
   7 start:
   8 INPUT ; A$
   9 IF A$="1" THEN GOTO ANO
  10 IF A$="2" THEN GOTO NE
  11 IF A$="3" THEN GOTO NEVIM
  12 IF A$="4" THEN GOTO KONEC
  13
  14 ANO:
  15 LOCATE 2,2
  16 PRINT "ANO          "
  17 GOTO START
  18
  19 NE:
  20 LOCATE 2,2
  21 PRINT "NE           "
  22 GOTO START
  23
  24 NEVIM:
  25 LOCATE 2,2
  26 PRINT "NEVIM        "
  27 GOTO START
  28
  29 KONEC:
  30 LOCATE 2,2
  31 PRINT "STLAC LIBOVOLNOU KLAVESU                                                   "
  32 END\1a