--- /dev/null
+CLS\r
+COLOR 14,15\r
+LOCATE 2,2\r
+SCREEN 0\r
+INPUT " AHOJ,JAK SE Mµæ. DOBRE/SPATNE " ;AAA$\r
+IF AAA$= SPATNE THEN GOTO CXY\r
+IF AAA$= DOBRE THEN GOTO ASE\r
+\r
+GOTO SDF\r
+ASE:\r
+CLS\r
+LOCATE 2,2\r
+PRINT " !!! SUPER !!! "\r
+FOR A=0 TO 2000\r
+NEXT A\r
+SOUND RND*700+12,13\r
+GOTO SDF\r
+CXY:\r
+CLS\r
+LOCATE 2,2\r
+PRINT " TO JE æKODA. "\r
+FOR A=0 TO 2000\r
+NEXT A\r
+SOUND RND*100+40,40\r
+SDF:\r
+END\1a
\ No newline at end of file