1 REM                                ›2 REM           SPY PLANE            ›3 REM     BY  : Íáòë Ãïíåáõ          ›4 REM     FOR : A.N.A.L.O.G          ›5 REM                                ›50 REM ›60 POKE 764,158›70 GRAPHICS 17:POSITION 0,5:? #6;"    SPY PLANE":? #6;"    by mark comeau":? #6:? #6:? #6;"    éîéôéáìéúéîç"›80 FOR T=0 TO 255:POKE 712,T:NEXT T:POKE 712,62:FOR T=0 TO 1000:NEXT T›90 GRAPHICS 0:NB=7:POKE 559,0:POKE 712,14:GOTO 3180›100 GOSUB 3000›110 X=96:Y=82:POS=PMD:SCR=1›120 GRAPHICS 18:POKE 756,PEEK(106)+1:POKE 559,46:FL=-0.1›130 POKE 711,14:POKE 708,56:POKE 710,30:POKE 712,2›140 IF FLAG=0 THEN FLAG=1:GOTO 2610›150 GOTO 490›160 REM                         ›170 REM     MAIN LOOP           ›180 REM       ›190 S=STICK(0):X=X+(S=7 OR S=6 OR S=5)*8-(S=11 OR S=10 OR S=9)*8›200 Y=Y+(S=13 OR S=5 OR S=9)*8-(S=14 OR S=10 OR S=6)*8›210 IF S=7 OR S=6 OR S=5 THEN POS=PMD›220 IF S=11 OR S=11 OR S=10 OR S=9 THEN POS=PMC›230 IF X=208 OR X=40 THEN 490›240 A=USR(MOVE,0,PMB,POS,X,Y,8)›250 LOCATE (X-48)/8,(Y-18)/8,C:IF C<>32 THEN 340›260 ON SCR GOSUB 640,710,840,980,1100,1170,2310›270 GOTO 190›280 REM       ›290 REM     END OF MAIN LOOP    ›300 REM                         ›310 REM ›320 REM     DEATH               ›330 REM ›340 IF C=249 THEN 570›350 POP :D=244:POKE 53278,0›360 MN=MN-1:IF MN=0 THEN 2900›370 FOR K=Y TO Y+18›380 A=USR(MOVE,0,PMB,D2,X,K,8)›390 A=USR(MOVE,0,PMB,D1,X,Y-(K-Y),8)›400 SOUND 0,RND(0)*14,0,14:NEXT K›410 A=USR(MOVE,0,PMB,Z,0,0,8)›420 A=USR(MOVE,0,PMB,Z,0,0,8)›430 POKE 704,62:FL=-0.1:IF STRIG(0)=1 THEN 110›440 GOTO 2720›450 REM ›460 REM ›470 REM ›480 REM     GOTO SCREEN         ›490 IF X=208 THEN SCR=SCR+1:X=48›500 POKE 77,0›510 IF X=40 THEN SCR=SCR-1:X=200›520 A=USR(MOVE,0,PMB,POS,X,Y,8)›530 POSITION 0,0:SOUND 0,0,0,0:POKE 559,0›540 GOSUB SCR*140+1190:POKE 559,46›550 IF S(NM)=SCR THEN COLOR 249:E=SCR*2:PLOT P(E-1),P(E)›560 FL=-0.1:GOTO 190›570 FOR W=14 TO 0 STEP -1:SOUND 0,100+W,14,W:SOUND 1,100-W,14,W:NEXT W:NM=NM+1:SC=SC+10›580 IF NM=8 THEN 2440›590 COLOR 32:E=SCR*2:PLOT P(E-1),P(E):GOTO 190›600 REM ›610 REM ›620 REM ›630 REM     SCREEN #1 SUB       ›640 FL=FL+0.1:IF FL>3.9 THEN FL=0›650 IF FL=0 THEN D=244:SOUND 0,36,4,2›660 IF FL=1 THEN D=245:SOUND 0,35,4,2›670 IF FL=2 THEN D=246:SOUND 0,34,4,2›680 IF FL=3 THEN D=245:SOUND 0,33,4,2›690 COLOR D:PLOT 3,7:RETURN ›700 REM     SCREEN #2 SUB       ›710 FL=FL+1:IF FL<WV THEN RETURN ›720 FL=0›730 E=INT(RND(0)*5)+1:IF E=1 THEN E=81:PX=7:PY=5:PD=11:PE=1›740 IF E=2 THEN E=79:PX=12:PY=10:PD=6:PE=4›750 IF E=3 THEN E=80:PX=16:PY=9:PD=16:PE=6›760 IF E=4 THEN E=80:PX=17:PY=9:PD=17:PE=5›770 IF E=5 THEN E=80:PX=18:PY=9:PD=18:PE=2›780 COLOR E+160:PLOT PX,PY:DRAWTO PD,PE›790 FOR T=14 TO 0 STEP -1:SOUND 0,T,2,T:NEXT T›800 LOCATE (X-48)/8,(Y-18)/8,C:IF C<>32 THEN 340›810 SOUND 0,0,0,0:COLOR 32:PLOT PX,PY:DRAWTO PD,PE›820 RETURN ›830 REM     SCREEN #3 SUB       ›840 FL=INT(FL)+1:IF FL<WV THEN RETURN ›850 IF FL=20 THEN FL=999:T=INT(RND(0)*9)+1:COLOR 87:PLOT T*2,9:SOUND 0,RND(0)*100+155,8,7:RETURN ›860 IF FL=1002 THEN COLOR 88:SOUND 0,RND(0)*100+155,8,14:PLOT T*2,9:RETURN ›870 IF FL=1003 THEN COLOR 87:SOUND 0,RND(0)*100+155,8,14:PLOT T*2,9:RETURN ›880 IF FL<1006 THEN RETURN ›890 COLOR 32:PLOT T*2,9:SOUND 0,0,0,0:FL=(T*2)*8+48›900 FOR T=8 TO 1 STEP -1›910 SOUND 0,14-T,0,14-T:PE=96-(8-T):A=USR(MOVE,1,PMB,PME,FL,PE,8-T)›920 NEXT T›930 FOR T=88 TO 22 STEP -4:A=USR(MOVE,1,PMB,PME,FL,T,8):NEXT T›940 A=USR(MOVE,1,PMB,Z,0,0,8)›950 IF PEEK(53260)>0 THEN 340›960 FL=0:SOUND 0,0,0,0:RETURN ›970 REM     SCREEN #4 SUB       ›980 FL=FL+1:IF FL<WV THEN RETURN ›990 T=INT(RND(0)*6)+1:IF T=1 THEN PX=1:PY=9:PD=1:PE=1:D=208›1000 IF T=2 THEN PX=2:PY=9:PD=2:PE=2:D=208›1010 IF T=3 THEN PX=7:PY=8:PD=0:PE=1:D=207›1020 IF T=4 THEN PX=15:PY=4:PD=14:PE=3:D=207›1030 IF T=5 THEN PX=16:PY=4:PD=14:PE=2:D=207›1040 IF T=6 THEN PX=12:PY=9:PD=12:PE=7:D=208›1050 SOUND 0,10,4,14:COLOR D:PLOT PX,PY:DRAWTO PD,PE›1060 FOR T=14 TO 7 STEP -1:SOUND 0,T,4,T:NEXT T›1070 LOCATE (X-48)/8,(Y-18)/8,C:IF C<>32 THEN 340›1080 COLOR 32:PLOT PX,PY:DRAWTO PD,PE:SOUND 0,0,0,0:FL=0:RETURN ›1090 REM     SCREEN SUB #5       ›1100 FL=FL+1:IF FL<INT(RND(0)*10)+4 THEN RETURN ›1110 SOUND 0,255,8,14:IF INT(RND(0)*2)=1 THEN COLOR 87:GOTO 1130›1120 COLOR 88›1130 PLOT 8,5:DRAWTO 8,1›1140 LOCATE (X-48)/8,(Y-18)/8,C:IF C<>32 THEN 340›1150 COLOR 32:PLOT 8,5:DRAWTO 8,1:SOUND 0,255,8,2:FL=0:RETURN ›1160 REM     SCREEN SUB #6       ›1170 FL=FL+1:IF FL<WV THEN RETURN ›1180 T=INT(RND(0)*9)+1:IF T=1 THEN PX=9:PY=4:PD=11:PE=2:D=209›1190 IF T=2 THEN PX=10:PY=5:PD=12:PE=3:D=209›1200 IF T=3 THEN PX=10:PY=5:PD=7:PE=2:D=207›1210 IF T=4 THEN PX=11:PY=4:PD=10:PE=3:D=207›1220 IF T=5 THEN PX=15:PY=9:PD=15:PE=1:D=208›1230 IF T=6 THEN PX=16:PY=9:PD=16:PE=1:D=208›1240 IF T=7 THEN PX=17:PY=9:PD=17:PE=1:D=208›1250 IF T=8 THEN PX=18:PY=9:PD=18:PE=2:D=208›1260 IF T=9 THEN PX=19:PY=9:PD=19:PE=2:D=208›1270 COLOR D:PLOT PX,PY:DRAWTO PD,PE›1280 FOR T=100 TO 0 STEP -10:SOUND 0,T,14,14:NEXT T›1290 LOCATE (X-48)/8,(Y-18)/8,C:IF C<>32 THEN 340›1300 SOUND 0,0,0,0:COLOR 32:PLOT PX,PY:DRAWTO PD,PE›1310 FL=0:RETURN ›1320 REM     SCREEN #1           ›1330 ? #6;LGO$;›1340 ? #6;"ââââââââââââââââââââ";›1350 ? #6;"âCE CE  CE  CE CE   ";›1360 ? #6;"â                   ";›1370 ? #6;"â                   ";›1380 ? #6;"â                   ";›1390 ? #6;"â                   ";›1400 ? #6;"â  ô                ";›1410 ? #6;"â  òó               ";›1420 ? #6;"â FAAAAAH           ";›1430 ? #6;"ââââAAAAAAAAAAAAAAAA";›1440 ? #6;LG2$;›1450 RETURN ›1460 REM     SCREEN #2           ›1470 ? #6;"âââââââââDDDDDDDDDAA";›1480 ? #6;" CââââââE         CA";›1490 ? #6;"  CââââE   ÆÇÇÇÇÈ  C";›1500 ? #6;"   CââE   ÆÁÁÁÁÁÁÈ  ";›1510 ? #6;"    CE   ÆÁÁÁÁÁÁÁÅ  ";›1520 ? #6;"         ÃÁÁÁÁÁÁÅ   ";›1530 ? #6;"     Æl   ÃÁÁÁÁÅ    ";›1540 ? #6;"    ÆÁÁÈ   ÃÁÁÅ     ";›1550 ? #6;"   ÆÁÁÁÁÈ   ÃÅ      ";›1560 ? #6;"  ÆÁÁÁÁÁÁÈ          ";›1570 ? #6;" ÆÁÁÁÁÁÁÁÁÈ    ÆkkkÇ";›1580 ? #6;"ÆÁÁÁÁÁÁÁÁÁÁÇÇjÇÁÁÁÁÁ";›1590 RETURN ›1600 REM     SCREEN #3           ›1610 ? #6;"ââââââââââââââââââââ";›1620 ? #6;" â     â         â  ";›1630 ? #6;" â     â â     â â â";›1640 ? #6;" â â   â â â â â â â";›1650 ? #6;" â â   â â â     â â";›1660 ? #6;"   â â â â â   â   â";›1670 ? #6;"   â â â â   â   â â";›1680 ? #6;"   â â   â â â â â â";›1690 ? #6;"     â â â   â â â â";›1700 ? #6;"     â     â   â â  ";›1710 ? #6;" ÆnÇnânÇnÇnÇnÇnÇnÇnâ";›1720 ? #6;"ÆÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁ";›1730 RETURN ›1740 REM     SCREEN #4           ›1750 ? #6;"DDAAAAECABBBBBBBBBBâ";›1760 ? #6;"  CAAE  CB   ââBBBââ";›1770 ? #6;"   CE    B â â âBâ â";›1780 ? #6;"      ÆÈ   â    â  â";›1790 ? #6;"     ÆÁÁÇÇââââ     â";›1800 ? #6;"     ÃÄÄÄÅ     âjj â";›1810 ? #6;"      ââââ âââââââ â";›1820 ? #6;"        â  â       â";›1830 ? #6;"     ÆÈ   ââ âââââââ";›1840 ? #6;"    ÆÁÁÈjâââ    â   ";›1850 ? #6;" kkÆÁÁÁÁÁÁÁÁköâ   ââ";›1860 ? #6;"ÇÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁâ";›1870 RETURN ›1880 REM     SCREEN #5           ›1890 ? #6;"ââââââââââââââââââââ";›1900 ? #6;" â   â       â      ";›1910 ? #6;" â   â       â  â   ";›1920 ? #6;" â â â     â â  â   ";›1930 ? #6;" â   â     â â  â   ";›1940 ? #6;" â â   Æ È â    â   ";›1950 ? #6;" â â  ÆÁÁÁÈâ        ";›1960 ? #6;"   â ÆÁÁÁÁÁâ    Æ   ";›1970 ? #6;"   âÆÁÁÁÁÁÁÁÈ  ÆÁÈ  ";›1980 ? #6;"   âÁÁÁÁÁÁÁÁÁÈÆÁÁÁÈâ";›1990 ? #6;"  ÆÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁâ";›2000 ? #6;"ââÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁâ";›2010 RETURN ›2020 REM     SCREEN #6           ›2030 ? #6;"CAAAAAAAAAAAAAADDDAA";›2040 ? #6;" CAAAAECAAECAAE   CD";›2050 ? #6;"  CAAE  CE  CA      ";›2060 ? #6;"   CE        C      ";›2070 ? #6;"             j      ";›2080 ? #6;"       Æl   jâ      ";›2090 ? #6;"      Æââl jââ      ";›2100 ? #6;"     Æââââ âââ      ";›2110 ? #6;" ÆÈ ÆÁÁÁÁâ âââ      ";›2120 ? #6;"ÆÁÁÇÁÁÁÁÁâ âââ      ";›2130 ? #6;"ÁÁÁÁÁÁÁÁÁâ     kkkkk";›2140 ? #6;"ÁÁÁÁÁÁÁÁÁâââââââââââ";›2150 RETURN ›2160 REM     SCREEN #7           ›2170 ? #6;"ADDDDDDâAAAAAAAADDDD";›2180 ? #6;"E      âAAAAAAAE   Â";›2190 ? #6;"  â    âAAAAAAE    Â";›2200 ? #6;" ââ    âAAAAAE     Â";›2210 ? #6;" ââ    âAAAAE      Â";›2220 ? #6;" ââ    âAAAE       Â";›2230 ? #6;" ââ    âAAE        Â";›2240 ? #6;" ââ    âAE      ÆÈ Â";›2250 ? #6;" ââ    âE      ÆÁÁÈÂ";›2260 ? #6;" ââ           ÆÁÁÁÁÁ";›2270 ? #6;" ââk k j l l ÆÁÁÁÁÁÁ";›2280 ? #6;"ÇÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁ";›2290 RETURN ›2300 REM     SCREEN SUB #7      ›2310 FL=FL+1:IF FL<WV THEN RETURN ›2320 FL=0›2330 E=INT(RND(0)*5)+1:IF E=1 THEN E=80:PX=3:PY=9:PD=3:PE=1›2340 IF E=2 THEN E=80:PX=5:PY=9:PD=5:PE=1›2350 IF E=3 THEN E=79:PX=6:PY=9:PD=3:PE=6›2360 IF E=4 THEN E=81:PX=10:PY=9:PD=18:PE=1›2370 IF E=5 THEN E=81:PX=12:PY=9:PD=18:PE=3›2380 COLOR E+160:PLOT PX,PY:DRAWTO PD,PE›2390 FOR T=14 TO 0 STEP -1:SOUND 0,T,2,T:NEXT T›2400 LOCATE (X-48)/8,(Y-18)/8,C:IF C<>32 THEN 340›2410 SOUND 0,0,0,0:COLOR 32:PLOT PX,PY:DRAWTO PD,PE›2420 RETURN ›2430 REM     FINI               ›2440 GRAPHICS 18:POKE 559,46›2450 POSITION 2,5:? #6;"ãïîçòáôõìáôéïîó!"›2460 FOR T=0 TO 100:POKE 712,RND(0)*255:NEXT T:POKE 712,0›2470 POSITION 2,7:? #6;"score :"›2480 FOR SC=SC TO SC+100 STEP 10:POSITION 9,7:? #6;SC›2490 FOR T=14 TO 0 STEP -1›2500 SOUND 0,14-T,14,T:NEXT T:NEXT SC›2510 POSITION 2,3:? #6;"ÅØÔÒÁ ÍÁΡ¡¡¡¡¡¡":MN=MN+1›2520 IF MN=19 THEN MN=18›2530 FOR T=0 TO 255 STEP 5›2540 POKE 710,T:SOUND 0,T,14,14›2550 NEXT T›2560 SOUND 0,0,0,0›2570 WV=WV-3:IF WV<10 THEN WV=10›2580 GOSUB 3000:GOTO 110›2590 REM ›2600 REM     TITLE DISPLAY      ›2610 COLOR ASC("ú"):PLOT 0,0:DRAWTO 19,0:PLOT 19,11:DRAWTO 0,11:PLOT 0,1:DRAWTO 19,1›2620 PLOT 0,10:DRAWTO 19,10›2630 POSITION 0,2:? #6;LGO$;LG2$;LGO$;LG2$;LGO$;LG2$;LGO$;LG2$;:WV=0›2640 FOR X=0 TO 7:POKE 464+X+START,255:NEXT X›2650 FOR X=0 TO 7:POKE 464+X+START,0:NEXT X:POKE 712,RND(0)*255›2660 IF STRIG(0)=0 THEN WV=20:MN=7:NM=1:SC=0:GOTO 2720›2670 WV=WV+1:IF WV=50 AND FLAG=2 THEN 2900›2680 GOTO 2640›2690 SOUND 0,0,0,0:SOUND 1,0,0,0›2700 REM ›2710 REM     DISPLAY SCORE      ›2720 ? #6;"}":POSITION 0,0:POKE 712,2›2730 SOUND 0,0,0,0:SOUND 1,0,0,0›2740 ? #6;LG2$;›2750 ? #6;"CAAAAECECAAAAAAAAECE";›2760 ? #6;" CAAE    CAAAAAAE   ";›2770 ? #6;"  CE      CAAAAE    ";›2780 ? #6;"           CECE     ";›2790 COLOR 188:PLOT 2,5:DRAWTO 1+MN,5›2800 POSITION 4,6:? #6;SC›2810 ? #6;"È    ÆÈÆÈ        ÆÈÆ";›2820 ? #6;"ÁÈ  ÆÁÁÁÁÈ      ÆÁÁÁ";›2830 ? #6;"ÁÁÈÆÁÁÁÁÁÁÈ    ÆÁÁÁÁ";›2840 ? #6;"ÁÁÁÁÁÁÁÁÁÁÁÈÆÈÆÁÁÁÁÁ";›2850 ? #6;LGO$;›2860 IF PEEK(53279)=6 THEN 2900›2870 IF STRIG(0)=0 THEN 2860›2880 GOTO 110›2890 REM     GAME OVER          ›2900 GRAPHICS 18:POKE 559,46:? #6;"     ÇÁÍÅ ÏÖÅÒ"›2910 SOUND 0,0,0,0:SOUND 1,0,0,0›2920 A=USR(MOVE,0,PMB,Z,0,0,8)›2930 POSITION 5,3:? #6;"score:";SC›2940 POSITION 2,9:? #6;"by :íáòë ãïíåáõ"›2950 POSITION 5,6:? #6;"óðù ðìáîå"›2960 FOR WV=0 TO 100:POKE 711,RND(0)*255:NEXT WV:WV=0:FLAG=2:GOSUB 3000›2970 POKE 711,14:POKE 708,50:POKE 710,30:POKE 712,2›2980 ? #6;"}";:POSITION 0,0:POKE 756,PEEK(106)+1:GOTO 2610›2990 REM     ENTER CASE POS.    ›3000 RESTORE 3100:T=1:NM=1›3010 E=INT(RND(0)*2)+1:IF E=1 THEN READ X,Y›3020 READ X,Y:IF X=-1 THEN GOTO 3050›3030 X(T)=X:Y(T)=Y:IF E=2 THEN READ X,Y›3040 T=T+1:GOTO 3010›3050 E=INT(RND(0)*5)+1:RESTORE (E*10)+3120›3060 FOR T=1 TO NB›3070 READ X:E=T*2:P(E-1)=X(T):P(E)=Y(T)›3080 S(T)=X:NEXT T›3090 RETURN :GOTO 110›3100 DATA 10,3,15,6,10,1,15,9,15,4,7,9›3110 DATA 13,5,4,3,16,5,5,6,4,4,14,6›3120 DATA 11,6,18,7,-1,0,-1,0›3130 DATA 5,1,4,2,7,3,6›3140 DATA 6,2,5,1,3,4,7›3150 DATA 3,5,4,1,2,7,6›3160 DATA 4,3,5,7,6,1,2›3170 DATA 6,7,2,5,3,1,4›3180 DIM P0$(8),P1$(8),P2$(8),A$(2),BUG(5),Z$(8),PMMOV$(100),X(NB),Y(NB),P(NB*2),S(NB),D1$(8),D2$(8),LGO$(20)›3190 DIM LG2$(20)›3200 GOSUB 3330:RESTORE 3750:POKE 712,126›3210 LGO$="======[\]^>?@=======":LG2$="½½½½½½ÛÜÝÞ¾¿À½½½½½½½"›3220 MOVE=ADR(PMMOV$):FOR X=1 TO 100:READ N:PMMOV$(X)=CHR$(N):NEXT X›3230 FOR I=1 TO 8:READ N:P0$(I)=CHR$(N):NEXT I›3240 FOR I=1 TO 8:READ N:P1$(I)=CHR$(N):NEXT I›3250 FOR I=1 TO 8:READ N:P2$(I)=CHR$(N):NEXT I›3260 FOR I=1 TO 8:READ N:Z$(I)=CHR$(N):NEXT I›3270 FOR I=1 TO 8:READ N:D1$(I)=CHR$(N):NEXT I›3280 FOR I=1 TO 8:READ N:D2$(I)=CHR$(N):NEXT I›3290 PMBASE=INT((PEEK(145)+3)/4)*4:POKE 54279,PMBASE:PMB=PMBASE*256:PMD=ADR(P0$):POKE 53277,3›3300 POKE 704,62:POKE 705,46›3310 PMC=ADR(P1$):PME=ADR(P2$):Z=ADR(Z$):D1=ADR(D1$):D2=ADR(D2$)›3320 GOTO 100›3330 POKE 106,PEEK(106)-5:START=(PEEK(106)+1)*256:POKE 756,START/256:POKE 752,1›3340 RESTORE 4000:DIM XFR$(38):FOR Y=1 TO 38:READ Z:XFR$(Y,Y)=CHR$(Z):NEXT Y›3350 Z=USR(ADR(XFR$)):RESTORE 3390:X=232-8:READ Z›3360 IF Z=-1 THEN RESTORE :RETURN ›3370 FOR Y=0 TO 7:POKE X+Y+START,Z:READ Z:NEXT Y:X=X+8›3380 GOTO 3360›3390 DATA 0,192,118,63,112,192,0,0›3400 DATA 0,0,0,0,0,0,255,255›3410 DATA 0,0,199,207,205,207,237,237›3420 DATA 0,0,59,187,191,191,183,183›3430 DATA 0,0,120,96,112,96,127,127›3440 DATA 255,255,255,255,255,255,255,255›3450 DATA 255,17,255,136,255,17,255,136›3460 DATA 255,255,55,21,21,5,5,1›3470 DATA 255,255,255,247,245,181,181,144›3480 DATA 255,246,244,244,112,80,64,64›3490 DATA 1,7,23,23,55,127,127,255›3500 DATA 164,173,253,255,255,255,255,255›3510 DATA 128,136,168,232,248,250,250,255›3520 DATA 195,199,46,30,62,125,251,199›3530 DATA 192,226,113,53,9,21,67,63›3540 DATA 56,56,16,56,146,186,214,254›3550 DATA 3,71,142,172,144,168,194,252›3560 DATA 24,24,24,24,60,126,126,102›3570 DATA 60,60,255,255,255,255,255,255›3580 DATA 192,64,112,16,28,4,7,1›3590 DATA 24,48,24,48,24,48,24,48›3600 DATA 3,2,14,8,56,32,224,128›3610 DATA 255,146,255,146,255,146,159,159›3620 DATA 255,73,255,73,255,73,255,255›3630 DATA 2,6,6,31,22,22,18,56›3640 DATA 56,68,130,146,130,68,56,56›3650 DATA 64,96,96,248,104,104,72,28›3660 DATA 16,74,84,137,100,146,84,40›3670 DATA 84,96,170,85,178,41,38,20›3680 DATA 0,60,36,255,255,255,255,0›3690 DATA 0,0,0,0,0,0,255,255›3700 DATA 127,255,192,254,127,3,255,254›3710 DATA 0,115,123,107,121,112,96,96›3720 DATA 0,48,48,240,224,192,192,192›3730 DATA 252,254,198,254,252,192,192,192›3740 DATA -1›3750 DATA 216,104,104,104,133,213,104,24,105,2,133,206,104,133,205,104,133,204,104,133,203,104,104,133,208›3760 DATA 104,104,133,209,104,104,24,101,209,133,207,166,213,240,16,165,205,24,105,128,133,205,165,206,105›3770 DATA 0,133,206,202,208,240,160,0,162,0,196,209,144,19,196,207,176,15,132,212,138,168,177,203,164›3780 DATA 212,145,205,232,169,0,240,4,169,0,145,205,200,192,128,208,224,166,213,165,208,157,0,208,96›3790 DATA 0,192,118,63,112,192,0,0›3800 DATA 0,3,110,252,14,3,0,0›3810 DATA 24,24,24,24,60,126,126,102›3820 DATA 0,0,0,0,0,0,0,0›3830 DATA 0,192,118,37,8,0,0,0›3840 DATA 0,0,20,55,112,192,0,0›4000 DATA 104,169,0,133,203,133,205,169,224,133,206,165,106,24,105,1,133,204,160,0,177,205,145,203,200,208›4010 DATA 249,230,204,230,206,165,206,201,228,208,237,96›