100 TEXT 40
  110 CLEAR SOUND
  120 ENVELOPE NUMBER6;0,63,63,1;0,-63,-63,10
  130 PRINT AT2,10:"H*U*N*G*R*Y**M*E*N"
  140 PRINT AT4,8:"☀*********************☀"
  150 PRINT AT6,4:"Use keyboard and külsö joystick"
  160 PRINT AT7,13:"to move men"
  161 PRINT AT9,5:"Keys:"
  162 PRINT AT10,8:"Q-up A-down O-left P-right"
  170 PRINT AT14,8:"Push '1' key to start game"
  180 RESTORE 
  190 FOR I=1TO87
  200   READ G,M
  210   SOUND PITCHG-.09,DURATIONM,ENVELOPE6,SYNC1,SOURCE2,LEFT0
  220   SOUND PITCHG+.09,DURATIONM,ENVELOPE6,SYNC1,SOURCE1,LEFT0
  230   SOUND PITCHG,DURATIONM,LEFT150,RIGHT0
  240   IF INKEY$="1"THENGOTO  410
  250 NEXT 
  260 DATA 41,10,41,20,41,10,39,20,37,20,41,10,41,20,41,10,39,20,37,20,42,10,42,20
  270 DATA 42,10,41,20
  280 DATA 41,10,41,20,41,10,39,20,37,20,41,10,41,20,41,10,39,20,37,20,42,10,42,20
  290 DATA 42,10,41,20,39,20,44,10,44,20
  300 DATA 44,10,42,20,41,20,46,10,46,20
  310 DATA 46,10,44,20,42,20,49,10,49,20
  320 DATA 49,10,46,20,43,20,40,10,41,20
  330 DATA 41,10,41,20,41,10,39,20,37,20,41,10,41,20,41,10,39,20,37,20,42,10,42,20
  340 DATA 42,10,41,20,40,20,44,10,44,20
  350 DATA 44,10,42,20,41,20,46,10,46,20
  360 DATA 46,10,44,20,43,20,48,10,48,20
  370 DATA 48,10,46,20,45,20,49,10,49,20
  380 DATA 49,10,48,20,44,20,40,10,40,20,37,10,37,10,37,20,37,10
  390 WAIT 8
  400 ENVELOPE NUMBER6;0,63,63,1;0,-63,-63,10
  410 ENVELOPE NUMBER4;0,63,63,1;-20,63,63,1
  420 TEXT 
  430 CLEAR SOUND
  440 PRINT AT13,15:"PREPARE !!"
  450 FOR A=1TO100
  460   SOUND PITCHA,INTERRUPT,STYLEA,ENVELOPE4,DURATION2
  470 NEXT 
  480 LET PLA1$="Player1":LET PLA2$="Player2"
  490 SET KEYDELAY5:SET KEYCLICKOFF
  500 DEF KERET
  510   PRINT #102,AT1,1:"llllllllllllllllllllllllllllllllllllll"
  520   FOR A=2TO23
  530     SOUND PITCHA+19.1,SOURCE1,INTERRUPT
  540     SOUND INTERRUPT,PITCHA+20.1
  550     PRINT #102,ATA,1:"l                                    l"
  560   NEXT 
  570   PRINT #102,AT24,1:"llllllllllllllllllllllllllllllllllllll";
  580 END DEF 
  590 ENVELOPE NUMBER1;RELEASE;0,63,63,1;-10,-63,63,20;-3,63,-63,5
  600 ENVELOPE NUMBER2;RELEASE;0,63,63,1;10,-63,63,20;3,63,-63,5
  610 ENVELOPE NUMBER3;RELEASE;0,-63,63,1;10,-63,63,20;-10,63,63,5
  620 TEXT 
  630 RANDOMIZE 
  640 CALL KERET
  650 FOR A=1TO201
  660   LET M=RND(21)+2:LET N=RND(36)+2
  670   PRINT #102,ATM,N:;
  680   GET #102:A$
  690   IF A$="*"THENGOTO  660
  700   IF A$<>"*"THENPRINT #102,ATM,N:"*"
  710   SOUND ENVELOPERND(3)+1,PITCHRND(50),INTERRUPT,SOURCERND(3)
  720 NEXT 
  730 LET X=2:LET Y=2:LET P=0:LET X1=2:LET Y1=37:LET P1=0
  740 TIME "00:00:00"
  750 DO 
  760   SELECT CASEJOY(1)
  770   CASE 8
  780     LET X=X-1
  790   CASE 4
  800     LET X=X+1
  810   CASE 1
  820     LET Y=Y+1
  830   CASE 2
  840     LET Y=Y-1
  850   CASE ELSE
  860     PRINT #102,ATX,Y:"☀"
  870   END SELECT 
  880   PRINT #102,ATX1,Y1:"☀"
  890   PRINT #102,ATX,Y:;
  900   GET #102:A$
  910   IF A$="*"THENLET P=P+1:SOUND ENVELOPE1,DURATION1,PITCH50
  920   IF A$="l"THENCALL END
  930   PRINT #102,ATX,Y:"☀"
  940   PRINT #102,ATX,Y:" "
  950   PRINT #102,ATX1,Y1:" "
  960   IF TIME$="00:01:00"THENCALL TIMEOUT
  970   LET INK$=INKEY$
  980   SELECT CASEINK$
  990   CASE "q"
 1000     LET X1=X1-1
 1010   CASE "a"
 1020     LET X1=X1+1
 1030   CASE "p"
 1040     LET Y1=Y1+1
 1050   CASE "o"
 1060     LET Y1=Y1-1
 1070   CASE ELSE
 1080     PRINT #102,ATX1,Y1:"☀"
 1090   END SELECT 
 1100   PRINT #102,ATX,Y:"☀"
 1110   PRINT #102,ATX1,Y1:;
 1120   GET #102:A$
 1130   IF A$="*"THENLET P1=P1+1:SOUND ENVELOPE1,DURATION1,PITCH55
 1140   IF A$="l"THENCALL END
 1150   PRINT #102,ATX1,Y1:"☀"
 1160   PRINT #102,ATX1,Y1:" "
 1170   PRINT #102,ATX,Y:" "
 1180   IF TIME$="00:01:00"THENCALL TIMEOUT
 1190 LOOP 
 1200 DEF TIMEOUT
 1210   FOR W=1TO5
 1220     SET 0,31
 1230     PRINT #102,AT13,13:"time out"
 1240     PRINT #102,AT13,13:"TIME OUT"
 1250     SET 0,30
 1260     SOUND STYLEW*15,PITCHW*15,ENVELOPE1,DURATION1
 1270   NEXT 
 1280   CALL END
 1290 END DEF 
 1300 DEF END
 1310   ENVELOPE NUMBER5;0,63,63,1;10,-63,-63,10
 1320   FOR A=63TO20STEP-5
 1330     SOUND PITCHA,DURATION10,ENVELOPE5,STYLEA
 1340   NEXT 
 1350   PRINT #102,AT13,3:PLA1$"="P"pont,"PLA2$"="P1"pont."
 1360   WAIT 3
 1370   RUN 
 1380 END DEF