CLS
COLOR 14,15
LOCATE 2,2
SCREEN 0
INPUT " AHOJ,JAK SE MÁŠ. DOBRE/SPATNE " ;AAA$
IF AAA$= SPATNE THEN GOTO CXY
IF AAA$= DOBRE THEN GOTO ASE

GOTO SDF
ASE:
CLS
LOCATE 2,2
PRINT " !!! SUPER !!! "
FOR A=0 TO 2000
NEXT A
SOUND RND*700+12,13
GOTO SDF
CXY:
CLS
LOCATE 2,2
PRINT " TO JE ŠKODA. "
FOR A=0 TO 2000
NEXT A
SOUND RND*100+40,40
SDF:
END