turbobasic/1998/111AAA.BAS

   1 CLS
   2 COLOR 4,15
   3 SCREEN 1
   4 LOCATE 2,2
   5 INPUT " ZAKÓDUJTE " ;A$
   6 CLS
   7 LOCATE 2,2
   8 INPUT " ODKÓDUJTE " ;C$
   9 IF A$=C$ THEN GOTO JEDNA
  10 CLS
  11 LOCATE 2,2
  12 PRINT " ŠPATNÝ KÓD ( !!! ZABLOKOVÁNO !!! ) "
  13 DO
  14 SOUND RND*800+12,13
  15 LOOP
  16 JEDNA:
  17 END
  18 \1a