100 SET KEYCLICKOFF
  110 TEXT 
  120 LET JOK=0
  130 PRINT AT3,10:"THREEFOLD TROUBLE"
  140 PRINT AT7,5:"1--> BELSö JOYSTICK"
  150 PRINT AT9,5:"2--> KüLSö (1) JOYSTICK"
  160 PRINT AT11,5:"3--> KüLSö (2) JOYSTICK"
  170 PRINT AT13,5:"4--> ELKEZDENI A JÅTEKOT"
  180 DO 
  190   LET I$=INKEY$
  200   SELECT CASEI$
  210   CASE "1"
  220     SOUND PITCH50,DURATION5
  230     LET JOK=0
  240   CASE "2"
  250     SOUND PITCH52,DURATION5
  260     LET JOK=1
  270   CASE "3"
  280     SOUND PITCH54,DURATION5
  290     LET JOK=2
  300   CASE "4"," "
  305     SOUND PITCH57,DURATION5
  310     EXIT DO
  320   CASE ELSE
  330   END SELECT 
  340 LOOP 
  350 TEXT 
  360 ENVELOPE NUMBER2;0,63,63,1;20,63,63,5
  370 NUMERIC D(1TO50)
  380 RESTORE  430
  390 FOR I=1TO49
  400   READ G
  410   LET D(I)=G
  420 NEXT 
  430 DATA 37,41,44,42,39,36,33,33,32,36,34,37,36,39,37,41,39,42,44,41,37,36,39,42,42,41.5,37,34,30,32,35,38,41,44,45,43,41,37,39,39
  440 DATA 37,41,44,48,39,42,46,49,36
  450 SET KEYCLICKOFF
  460 SET CHARACTERORD("l"),255,255,255,255,255,255,255,255,255
  470 SET CHARACTER0,24,28,30,28,24,24,255,126,60
  480 SET CHARACTER1,24,56,120,56,24,24,255,126,60
  490 SET CHARACTER2,24,60,60,60,24,24,255,126,60
  500 SET CHARACTER3,24,24,24,24,24,24,255,126,60
  510 SET CHARACTER4,0,0,0,0,129,102,24,0,0
  520 PRINT #102:"llllllllllllllllllllllllllllllllllllllll";
  530 PRINT #102:"lÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜl";
  540 PRINT #102:"lÜlllllllllllllllllllllllllllllllllllÜÜl";
  550 PRINT #102:"lÜlsÜÜlÜÜÜÜÜÜÜÜÜÜÜÜlsÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜl";
  560 PRINT #102:"lÜlllÜllllÜlllllllÜllllllllllllllllllÜÜl";
  570 PRINT #102:"lÜÜslÜlsÜlÜlÜÜÜÜÜlÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜllllÜÜl";
  580 PRINT #102:"lÜlllÜllÜlÜlÜlllÜlllllllllÜllllÜÜllllÜÜl";
  590 PRINT #102:"lÜlllÜlÜÜlÜlÜÜslÜlÜÜllllllÜÜlÜÜÜÜÜÜÜÜÜÜl";
  600 PRINT #102:"lÜlÜlÜlÜllÜlllllÜlÜÜlllllllÜllllllllÜÜÜl";
  610 PRINT #102:"lÜlÜlÜÜÜÜlÜÜÜÜÜÜÜlÜÜlÜÜÜÜÜÜÜÜÜÜÜÜÜÜlÜÜÜl";
  620 PRINT #102:"lÜlÜlÜÜÜllÜlllllllÜÜlÜÜlllllllllllllÜÜÜl";
  630 PRINT #102:"lÜlÜÜÜÜÜÜlÜÜÜÜÜÜÜÜÜÜlÜÜÜlsÜÜÜÜÜÜÜÜÜlÜÜÜl";
  640 PRINT #102:"lÜlÜÜÜÜÜÜllllllllllllÜÜÜllllllÜÜÜÜÜlÜÜÜl";
  650 PRINT #102:"lÜlÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜlÜÜÜl";
  660 PRINT #102:"lÜlÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜllllllllÜÜÜÜÜlÜÜÜl";
  670 PRINT #102:"lÜlÜlllllllllllllllllllÜÜlllllllllllÜÜÜl";
  680 PRINT #102:"lÜlslÜÜÜÜÜÜÜÜÜÜÜÜÜllllllÜÜÜÜÜÜÜÜÜÜÜlÜÜÜl";
  690 PRINT #102:"lÜlÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜlÜlsÜÜÜÜÜÜlÜÜÜl";
  700 PRINT #102:"lÜlllllllllllllllÜllllllllÜlllllllllÜÜÜl";
  710 PRINT #102:"lÜÜÜÜÜÜÜÜÜÜlsÜÜÜÜÜÜÜÜÜÜslÜÜÜÜÜÜÜÜÜÜÜÜÜÜl";
  720 PRINT #102:"llllllllllllllllllllllllllllllllllllllll";
  730 PRINT #102,AT23,8:"A - Zene ki   S - Zene be"
  740 LET X=2:LET Y=2
  750 LET TIM=400
  760 PRINT #102,ATX,Y:"#"
  770 LET W=1:LET Q=127:LET IY$=INKEY$
  780 LET TIM=499:LET SC=0
  790 PRINT #102,AT22,22:"0  pont"
  800 DO 
  810   SET CHARACTER4,0,0,0,0,129,102,24,0,0
  820   LET TIM=TIM-1
  830   PRINT #102,AT22,7:TIM
  840   LET IY$=INKEY$
  850   IF IY$="a"THENCLEAR SOUND:LET Q=0
  860   IF IY$="s"THENCLEAR SOUND:LET Q=127
  870   SOUND PITCHD(W),DURATION17,SOURCE2,LEFTQ,RIGHTQ
  880   LET W=W+1
  890   IF W=50THENLET W=1
  900   SET CHARACTER4,0,0,0,0,24,102,129,0,0
  910   SELECT CASEJOY(JOK)
  920   CASE 8
  930     SET #102:INK1
  940     PRINT #102,ATX,Y:"Ü"
  950     LET X=X-1
  960     GOSUB  1230
  970     SET #102:INK3
  980     PRINT #102,ATX,Y:"Ä"
  990   CASE 4
 1000     SET #102:INK1
 1010     PRINT #102,ATX,Y:"Ü"
 1020     LET X=X+1
 1030     GOSUB  1230
 1040     SET #102:INK3
 1050     PRINT #102,ATX,Y:"Ö"
 1060   CASE 1
 1070     SET #102:INK1
 1080     PRINT #102,ATX,Y:"Ü"
 1090     LET Y=Y+1
 1100     GOSUB  1230
 1110     SET #102:INK3
 1120     PRINT #102,ATX,Y:"#"
 1130   CASE 2
 1140     SET #102:INK1
 1150     PRINT #102,ATX,Y:"Ü"
 1160     LET Y=Y-1
 1170     GOSUB  1230
 1180     SET #102:INK3
 1190     PRINT #102,ATX,Y:"©"
 1200   CASE ELSE
 1210   END SELECT 
 1220 LOOP 
 1230 PRINT #102,ATX,Y:;
 1240 GET #102:G$
 1250 IF TIM<=0THENGOTO  1430
 1260 IF SC=100THENGOTO  1480
 1270 IF G$="l"THENGOTO  1300
 1280 IF G$="s"THENGOTO  1390
 1290 RETURN 
 1300 CLEAR SOUND
 1310 FOR M=1TO5
 1320   PRINT #102,ATX,Y:"©"
 1330   PRINT #102,ATX,Y:"l"
 1340   SOUND SOURCE3,DURATION10
 1350   SOUND SOURCE3,DURATION1,LEFT0,RIGHT0
 1360 NEXT 
 1370 WAIT 2
 1380 RUN 
 1390 SOUND ENVELOPE2,DURATION5,PITCH37
 1400 LET SC=SC+10
 1410 PRINT #102,AT22,20:SC
 1420 GOTO  1290
 1430 PRINT AT24,1:""
 1440 CLEAR SOUND
 1450 PRINT AT13,8:"KIFUTOTTÅL AZ IDöBöL !"
 1460 WAIT 3
 1470 RUN 
 1480 PRINT AT24,1:""
 1490 CLEAR SOUND
 1500 PRINT AT13,8:"ELSö SZINT TELJESITVE"
 1510 PRINT AT14,9:"KESZüLJ A MÅSODIK SZINTRE!"
 1520 WAIT 3
 1530 ! Masodik szint
 1540 CLEAR SCREEN
 1550 PRINT #102:"llllllllllllllllllllllllllllllllllllllll";
 1560 PRINT #102:"lÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜl";
 1570 PRINT #102:"llÜlllÜlllÜlllÜlllÜlllÜlllÜlllÜlllÜlllÜl";
 1580 PRINT #102:"llÜlllÜlllÜlÜÜÜlÜlÜlÜÜÜlllÜlllÜÜÜÜÜlllÜl";
 1590 PRINT #102:"llÜlslÜlllÜlÜÜllÜlÜlÜlÜlllÜlllllÜlllllÜl";
 1600 PRINT #102:"llÜlÜlÜÜÜlÜlÜÜllÜlÜlslÜlllÜÜÜÜÜlÜlÜÜÜÜÜl";
 1610 PRINT #102:"llÜlÜlÜlÜlÜlÜÜllÜlÜlÜlÜlllÜÜÜÜÜlÜlÜÜÜÜÜl";
 1620 PRINT #102:"llÜlÜlÜlÜlÜlÜÜllÜlÜlÜlÜlÜlÜÜÜÜÜlÜlÜÜÜÜÜl";
 1630 PRINT #102:"llÜÜÜÜÜlÜlÜlÜÜÜlÜlÜlslÜlÜlÜÜÜÜÜlÜlÜÜÜÜÜl";
 1640 PRINT #102:"llllÜlllÜlÜlÜÜÜlslÜlÜlÜlÜlÜÜÜÜÜlÜlÜÜÜÜÜl";
 1650 PRINT #102:"lÜÜÜÜÜÜÜÜlÜlÜÜÜlÜlÜlllÜlÜlÜÜÜÜÜlÜlÜÜÜÜÜl";
 1660 PRINT #102:"lllÜllÜlllÜlÜÜÜlÜlÜÜÜÜÜlÜlÜÜÜÜÜlÜlÜÜÜÜÜl";
 1670 PRINT #102:"lÜÜÜllÜlÜÜÜlÜÜslÜlÜlÜlÜlÜÜÜÜÜÜÜlÜlÜÜÜÜÜl";
 1680 PRINT #102:"llllllÜlÜlllÜÜÜlÜlÜlÜlÜlÜlÜÜÜÜÜlÜlÜÜÜÜÜl";
 1690 PRINT #102:"lÜÜÜÜlÜlÜlllÜÜÜlÜlÜlÜlÜlÜlÜÜÜÜlÜÜÜlÜÜÜÜl";
 1700 PRINT #102:"lÜlÜllÜlÜÜllÜÜÜlÜlÜlÜlÜlÜlÜÜÜlÜÜÜÜÜlÜÜÜl";
 1710 PRINT #102:"lslÜÜÜÜlÜlllÜÜÜlÜlÜlÜlÜlÜlÜÜlÜÜÜÜÜÜÜlÜÜl";
 1720 PRINT #102:"lllÜllÜlÜlllllllÜlÜlÜlÜlslÜlÜÜÜÜÜÜÜÜÜlsl";
 1730 PRINT #102:"lÜÜÜÜlÜlÜÜÜÜÜÜÜÜÜlllÜlllllÜlllllÜlllllll";
 1740 PRINT #102:"lsÜÜÜlÜlÜllllllllsÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜl";
 1750 PRINT #102:"llllllllllllllllllllllllllllllllllllllll";
 1760 PRINT #102,AT23,8:"A - Zene ki   S - Zene be"
 1770 LET X=2:LET Y=2
 1780 LET TIM=400
 1790 PRINT #102,ATX,Y:"#"
 1800 LET W=1:LET Q=127:LET IY$=INKEY$
 1810 LET TIM=499:LET SC=0
 1820 PRINT #102,AT22,22:"0 pont"
 1830 DO 
 1840   SET CHARACTER4,0,0,0,0,129,102,24,0,0
 1850   LET TIM=TIM-1
 1860   PRINT #102,AT22,7:TIM
 1870   LET IY$=INKEY$
 1880   IF IY$="a"THENCLEAR SOUND:LET Q=0
 1890   IF IY$="s"THENCLEAR SOUND:LET Q=127
 1900   SOUND PITCHD(W),DURATION17,SOURCE2,LEFTQ,RIGHTQ
 1910   LET W=W+1
 1920   IF W=50THENLET W=1
 1930   SET CHARACTER4,0,0,0,0,24,102,129,0,0
 1940   SELECT CASEJOY(JOK)
 1950   CASE 8
 1960     SET #102:INK1
 1970     PRINT #102,ATX,Y:"Ü"
 1980     LET X=X-1
 1990     GOSUB  1230
 2000     SET #102:INK3
 2010     PRINT #102,ATX,Y:"Ä"
 2020   CASE 4
 2030     SET #102:INK1
 2040     PRINT #102,ATX,Y:"Ü"
 2050     LET X=X+1
 2060     GOSUB  1230
 2070     SET #102:INK3
 2080     PRINT #102,ATX,Y:"Ö"
 2090   CASE 1
 2100     SET #102:INK1
 2110     PRINT #102,ATX,Y:"Ü"
 2120     LET Y=Y+1
 2130     GOSUB  1230
 2140     SET #102:INK3
 2150     PRINT #102,ATX,Y:"#"
 2160   CASE 2
 2170     SET #102:INK1
 2180     PRINT #102,ATX,Y:"Ü"
 2190     LET Y=Y-1
 2200     GOSUB  1230
 2210     SET #102:INK3
 2220     PRINT #102,ATX,Y:"©"
 2230   CASE ELSE
 2240   END SELECT 
 2250 LOOP 
 2260 CLEAR SCREEN
 2270 PRINT #102:"llllllllllllllllllllllllllllllllllllllll";
 2280 PRINT #102:"lÜlÜÜÜlÜÜÜÜÜlÜllÜÜÜÜÜÜÜÜÜÜÜÜÜÜsÜÜÜÜÜÜÜÜl";
 2290 PRINT #102:"lslÜlÜlÜlÜlÜlÜlsllllllllllllllllllllllÜl";
 2300 PRINT #102:"lÜlÜlÜlÜlÜlÜlÜlÜlÜlÜÜÜÜÜlsÜÜÜÜÜÜlÜÜÜllÜl";
 2310 PRINT #102:"lÜlÜlÜlÜlÜlslÜlÜlÜlÜlllllllllllslÜÜsÜlÜl";
 2320 PRINT #102:"lÜlÜlÜlÜlÜlÜlÜlÜlÜlÜÜlÜÜÜsÜÜÜÜÜÜÜÜÜlÜlÜl";
 2330 PRINT #102:"lÜlÜlÜlÜlÜlÜlÜlÜlÜlllllÜlllÜlÜÜlÜÜlÜÜlÜl";
 2340 PRINT #102:"lÜlÜlÜlÜlÜlÜlÜlÜlÜlÜÜÜÜÜlÜlÜlÜÜÜÜÜlÜÜlÜl";
 2350 PRINT #102:"lÜlÜlÜlÜlÜlÜlÜlÜlÜlÜlÜlllÜlÜlllÜlllÜÜlÜl";
 2360 PRINT #102:"lÜlÜlÜlÜlÜlÜlÜlÜlÜlÜlÜlÜlÜlÜlÜlÜlÜlÜÜlÜl";
 2370 PRINT #102:"lÜlÜlÜsÜlÜlÜlÜlÜlÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜlÜl";
 2380 PRINT #102:"lÜlÜlÜlÜlÜlÜlÜlÜllllllllllllllllllllÜÜÜl";
 2390 PRINT #102:"lÜlÜlÜlÜlÜlÜlÜlÜlÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜlÜÜÜl";
 2400 PRINT #102:"lÜlÜlÜlÜlÜlÜlÜlÜlÜllllllllllllllllÜlÜÜÜl";
 2410 PRINT #102:"lÜlÜlÜlÜlÜlÜlÜlÜlÜlÜÜÜÜÜÜÜÜÜÜÜÜÜÜlÜlÜÜÜl";
 2420 PRINT #102:"lÜlÜlÜlÜlÜlÜlÜlÜlÜlÜlÜÜÜlÜÜÜlÜÜlslÜlÜÜÜl";
 2430 PRINT #102:"lÜlÜlÜlÜlÜlÜlÜlÜlÜlÜllllllllllllllÜlÜÜÜl";
 2440 PRINT #102:"lÜlÜlÜlÜlÜlÜlÜlÜlÜlÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜlÜÜÜl";
 2450 PRINT #102:"lÜlÜlÜlÜlÜlÜlÜlÜlÜllllllllllllllllllÜÜÜl";
 2460 PRINT #102:"lÜÜÜlÜlÜÜÜlÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜl";
 2470 PRINT #102:"llllllllllllllllllllllllllllllllllllllll";
 2480 PRINT #102,AT23,8:"A - Zene ki   S - Zene be"
 2490 LET X=2:LET Y=2
 2500 LET TIM=400
 2510 PRINT #102,ATX,Y:"#"
 2520 LET W=1:LET Q=127:LET IY$=INKEY$
 2530 LET TIM=499:LET SC=0
 2540 PRINT #102,AT22,22:"0  pont"
 2550 DO 
 2560   SET CHARACTER4,0,0,0,0,129,102,24,0,0
 2570   LET TIM=TIM-1
 2580   PRINT #102,AT22,7:TIM
 2590   LET IY$=INKEY$
 2600   IF IY$="a"THENCLEAR SOUND:LET Q=0
 2610   IF IY$="s"THENCLEAR SOUND:LET Q=127
 2620   SOUND PITCHD(W),DURATION17,SOURCE2,LEFTQ,RIGHTQ
 2630   LET W=W+1
 2640   IF W=50THENLET W=1
 2650   SET CHARACTER4,0,0,0,0,24,102,129,0,0
 2660   SELECT CASEJOY(JOK)
 2670   CASE 8
 2680     SET #102:INK1
 2690     PRINT #102,ATX,Y:"Ü"
 2700     LET X=X-1
 2710     GOSUB  1230
 2720     SET #102:INK3
 2730     PRINT #102,ATX,Y:"Ä"
 2740   CASE 4
 2750     SET #102:INK1
 2760     PRINT #102,ATX,Y:"Ü"
 2770     LET X=X+1
 2780     GOSUB  1230
 2790     SET #102:INK3
 2800     PRINT #102,ATX,Y:"Ö"
 2810   CASE 1
 2820     SET #102:INK1
 2830     PRINT #102,ATX,Y:"Ü"
 2840     LET Y=Y+1
 2850     GOSUB  1230
 2860     SET #102:INK3
 2870     PRINT #102,ATX,Y:"#"
 2880   CASE 2
 2890     SET #102:INK1
 2900     PRINT #102,ATX,Y:"Ü"
 2910     LET Y=Y-1
 2920     GOSUB  1230
 2930     SET #102:INK3
 2940     PRINT #102,ATX,Y:"©"
 2950   CASE ELSE
 2960   END SELECT 
 2970 LOOP