turbobasic/1998/SPOLECNI.BAS

   1 CLS
   2 COLOR 14,15
   3 LOCATE 2,2
   4 SCREEN 0
   5 INPUT " AHOJ,JAK SE MÁŠ. DOBRE/SPATNE " ;AAA$
   6 IF AAA$= SPATNE THEN GOTO CXY
   7 IF AAA$= DOBRE THEN GOTO ASE
   8
   9 GOTO SDF
  10 ASE:
  11 CLS
  12 LOCATE 2,2
  13 PRINT " !!! SUPER !!! "
  14 FOR A=0 TO 2000
  15 NEXT A
  16 SOUND RND*700+12,13
  17 GOTO SDF
  18 CXY:
  19 CLS
  20 LOCATE 2,2
  21 PRINT " TO JE ŠKODA. "
  22 FOR A=0 TO 2000
  23 NEXT A
  24 SOUND RND*100+40,40
  25 SDF:
  26 END\1a