10 GOSUB 1500:DIF=0:F=-1:P=1:VEL=2:NUM=0:H=3:GOSUB 900:GOSUB 800:SOUND 1,100,4,2›20 POKE DL5,RT:GOSUB 100›30 POKE DL5,RT+4:GOSUB 100›40 POKE DL5,RT+8:GOSUB 100›50 POKE DL5,RT+12:GOSUB 100›60 POKE DL5,RT+8:GOSUB 100›70 POKE DL5,RT+4:GOSUB 100›80 GOTO 20›100 FOR N=1 TO 5-DIF:ST=STICK(0):IF ST=16 THEN FOR WAIT=1 TO 15:NEXT WAIT:GOTO 185›110 X0=X0+VEL*(ST=7)*(X0<201)-VEL*(ST=11)*(X0>47)›120 IF X0<48 THEN X0=48›130 IF ST=7 AND F=-1 THEN F=1:D=USR(1536,PB+512+Y0,268):FOR W=1 TO 20:NEXT W:D=USR(1536,PB+512+Y0,260):X0=X0-2›140 IF ST=11 AND F=1 THEN F=-1:D=USR(1536,PB+512+Y0,268):FOR W=1 TO 20:NEXT W:D=USR(1536,PB+512+Y0,276):X0=X0+2›145 POKE 53248,X0›150 IF ST=14 THEN D=USR(1536,PB+512+Y0,292):Y0=Y0-2*(Y0>20)›160 IF ST=13 THEN D=USR(1536,PB+512+Y0,292):Y0=Y0+2*(Y0<102)›170 D=USR(1536,PB+512+Y0,260*(F=1)+276*(F=-1))›180 IF X0>112 AND X0<138 AND Y0=28 AND P=1 THEN GOSUB 230›185 NEXT N›190 IF PEEK(53252)<>0 THEN GOSUB 260›210 IF Y0=102 AND P=0 THEN GOSUB 330›220 RETURN ›230 N=(X0>X1)-(X1>X0):IF N=0 THEN GOTO 250›240 FOR M=X1 TO X0 STEP N:POKE 53249,M:NEXT M:X1=M›250 D=USR(1536,PB+640+Y1,292):P=0:RETURN ›260 POKE 53278,1:D=USR(1536,PB+512+Y0,300):FOR W=120 TO 40 STEP -1:POKE 704,W›270 POKE PB+512+Y0+INT(RND(0)*7),PEEK(53770):SOUND 0,200,8,W/10:NEXT W:SOUND 0,0,0,0:POKE 704,250›280 D=USR(1536,PB+512+Y0,292):H=H-1:POSITION 29,0:? H;:IF H<>0 THEN GOTO 300›290 POKE DL5,RT+12:POSITION 0,0:? "GAME OVER-RESCUED ";NUM;:POSITION 20,0:? " PRESS FIRE ";›291 IF STRIG(0)=1 THEN 291›292 POSITION 0,0:? " ";›295 H=3:COLOR 0:NUM=0:DIF=0:VEL=2:GOSUB 970›300 POKE 53278,1:X0=180:Y0=20:POKE 53248,X0:D=USR(1536,PB+512+Y0,276):F=-1›310 IF P=0 THEN X1=120:Y1=28:POKE 53249,X1:D=USR(1536,PB+640+Y1,284):P=1›320 RETURN ›330 D=USR(1536,PB+640+Y0,284)›340 FOR M=X0 TO 210:POKE 53249,M:NEXT M:NUM=NUM+1:D=USR(1536,PB+640+Y0,292):IF NUM=20 THEN GOTO 370›345 POSITION 9,0:? NUM;:IF NUM/4=INT(NUM/4) THEN DIF=DIF+1:IF NUM/8=INT(NUM/8) THEN VEL=VEL+2›350 P=1:POKE 53249,X1:D=USR(1536,PB+640+Y1,284)›360 RETURN ›370 D=USR(1536,PB+512+Y0,292):GOTO 290›800 FOR A=1536 TO 1560:READ I:POKE A,I:NEXT A›810 DATA 104,104,133,204,104,133,203,104,133,207,104,133,206,160,0,177,206,145,203,200,192,8,208,247,96›820 FOR A=260 TO 307:READ I:POKE A,I:NEXT A›830 DATA 0,31,4,143,249,15,2,63,0,127,8,62,34,62,20,62,0,248,32,241,159,240,32,252›840 DATA 0,0,24,24,126,24,36,102,0,0,0,0,0,0,0,0,68,186,84,130,255,130,68,186›850 POKE 752,1:POKE 559,46›860 A=PEEK(106)-4:POKE 54279,A:POKE 53277,3:PB=256*A:X0=180:Y0=20:X1=120:Y1=28›875 POKE 704,250:POKE 705,80›880 POKE 53248,X0:D=USR(1536,PB+512+Y0,276):POKE 53249,X1:D=USR(1536,PB+640+Y1,284)›890 RETURN ›900 RT=PEEK(106)-16:GRAPHICS 5+16:POKE 88,0:POKE 89,RT-4:? #6;CHR$(125):POKE 106,RT:GRAPHICS 5+16›910 POKE 559,0›915 SETCOLOR 4,7,4:SETCOLOR 1,12,8:SETCOLOR 2,3,3›920 PAGE=0:POKE 88,0:POKE 89,RT:GOSUB 1000›930 PAGE=1:POKE 88,0:POKE 89,RT+4:GOSUB 1000›940 PAGE=2:POKE 88,0:POKE 89,RT+8:GOSUB 1000›950 PAGE=3:POKE 88,0:POKE 89,RT+12:GOSUB 1000›960 DL=PEEK(560)+256*PEEK(561):DL4=DL+4:DL5=DL+5:POKE DL4,0:POKE DL5,RT+4:POKE 559,34›970 POKE 752,1:POKE DL+3,66:POKE 87,0:POSITION 0,0:? "RESCUED :";NUM;:POSITION 20,0:? "COPTERS :";H;›980 RETURN ›1000 COLOR 1:FOR X=32 TO 47:PLOT X,10:DRAWTO X,47:NEXT X›1010 COLOR 2:FOR X=33 TO 45 STEP 4:FOR Y=13 TO 41 STEP 4:PLOT X,Y:PLOT X+1,Y:PLOT X,Y+1:PLOT X+1,Y+1:NEXT Y:NEXT X›1020 PLOT 39,45:DRAWTO 39,47:PLOT 40,45:DRAWTO 40,47:PLOT 0,47:DRAWTO 31,47:PLOT 48,47:DRAWTO 79,47›1030 IF PAGE=1 OR PAGE=2 OR PAGE=3 THEN GOTO 1100›1040 COLOR 3:FOR Y=45 TO 46:PLOT 1,Y:DRAWTO 8,Y:NEXT Y:PLOT 2,47:PLOT 7,47:COLOR 0:PLOT 5,45›1050 RETURN ›1100 COLOR 3:PLOT 48,13:PLOT 48,14:PLOT 49,12:PLOT 48,26:PLOT 48,27:PLOT 49,25:PLOT 48,36:PLOT 48,37:PLOT 49,35›1110 PLOT 31,19:DRAWTO 31,21:PLOT 30,18:PLOT 31,31:DRAWTO 31,33:PLOT 30,30›1120 IF PAGE=2 OR PAGE=3 THEN GOTO 1200›1130 FOR Y=45 TO 46:PLOT 14,Y:DRAWTO 21,Y:NEXT Y:PLOT 15,47:PLOT 20,47:COLOR 0:PLOT 18,45›1140 RETURN ›1200 COLOR 3:PLOT 48,11:PLOT 48,12:PLOT 49,11:PLOT 49,10:PLOT 50,10:PLOT 50,9›1210 PLOT 48,24:PLOT 48,25:PLOT 49,24:PLOT 49,23:PLOT 50,23:PLOT 50,22›1220 PLOT 48,35:PLOT 48,34:PLOT 49,34:PLOT 49,33:PLOT 50,33:PLOT 50,32›1230 PLOT 31,40:PLOT 31,41:PLOT 31,30:PLOT 31,29:PLOT 30,29:DRAWTO 30,27:PLOT 29,27:PLOT 29,26›1240 PLOT 31,18:PLOT 31,17:PLOT 30,39:PLOT 30,17:DRAWTO 30,15:PLOT 29,15:PLOT 29,14›1250 IF PAGE=3 THEN GOTO 1300›1260 FOR Y=45 TO 46:PLOT 24,Y:DRAWTO 31,Y:NEXT Y:PLOT 25,47:PLOT 30,47:COLOR 0:PLOT 28,45›1270 RETURN ›1300 COLOR 3:PLOT 49,9:DRAWTO 49,3:PLOT 50,8:DRAWTO 50,5:PLOT 51,7:DRAWTO 51,9›1310 PLOT 49,22:PLOT 49,21:PLOT 50,21:DRAWTO 50,19:PLOT 51,20:DRAWTO 51,22›1320 PLOT 49,32:PLOT 49,31:PLOT 50,31:DRAWTO 50,29:PLOT 51,30:DRAWTO 51,32›1330 PLOT 30,38:PLOT 30,37:PLOT 29,38:DRAWTO 29,35›1340 PLOT 30,26:DRAWTO 30,24:PLOT 29,25:DRAWTO 29,22›1350 PLOT 30,14:DRAWTO 30,12:PLOT 29,13:DRAWTO 29,10›1360 COLOR 3:FOR Y=45 TO 46:PLOT 1,Y:DRAWTO 8,Y:NEXT Y:PLOT 2,47:PLOT 7,47:COLOR 0:PLOT 5,45›1370 RETURN ›1500 GRAPHICS 2+16:POSITION 0,1:? #6;"COMPUTE PUBLICATIONS":POSITION 6,3:? #6;"ะาลำลฮิำ"›1510 POSITION 6,6:? #6;"้๎ๆๅ๒๎๏"›1530 FOR SND=20 TO 120 STEP 0.2:SOUND 0,SND,8,6:POKE 712,SND:NEXT SND›1540 FOR VOL=6 TO 0 STEP -0.1:SOUND 0,SND,8,VOL:NEXT VOL:POKE 712,0›1550 RETURN ›