10 CLEAR5000:KEYOFF:SCREEN 1,2,0:COLOR15,1,1:DEFINTA-Z:WIDTH32:POKE &HF3B1,26:R=RND(-TIME) 20 X=13:Y=15:T=0:TY=0:TZ=0:HK=0:H2=15:D1=0:D2=0:ED=0:TE=1:T3=1:XB=0:TM=0:RC=1000:DIM M1$(65),M2$(65),MP$(32),MQ$(32),TT$(2):DEFUSR=&H7E:A=USR(0) 25 RESTORE 3000 30 FOR I=0 TO 31 40 READ D1$ 50 S$=S$+CHR$(VAL("&H"+D1$)) 60 NEXT 70 SPRITE$(0) =S$ 80 'エイスウジノ　イロ 90 FOR N=33 TO95 100 FOR J=0 TO 7 110 P=VPEEK(N*8+J):LOCATE0,1:PRINT "ASC=";N 120 VPOKE &H800+N*8+J,P 130 VPOKE &H1000+N*8+J,P 140 VPOKE &H2000+N*8+J,&HF1 150 VPOKE &H2800+N*8+J,&HF1 160 VPOKE &H3000+N*8+J,&HF1 170 NEXT 180 NEXT 190 'モジ　ノ　カタチ 191 S$="" 195 RESTORE 3020 200 FOR N=128 TO 228 210 FOR I=0 TO 7 220 READ S$ 230 VPOKE N*8+I,VAL("&H"+S$):LOCATE0,2:PRINT "ASC2=";N 240 VPOKE &H800+N*8+I,VAL("&H"+S$) 250 VPOKE &H1000+N*8+I,VAL("&H"+S$) 260 S$="" 270 NEXT 280 NEXT 285 RESTORE 5000 290 FOR M=128 TO 228 300 FOR I=0 TO7 310 READ S$ 320 VPOKE &H2000+M*8+I,VAL("&H"+S$):LOCATE0,3:PRINT "ASC COLOR=";M 330 VPOKE &H2800+M*8+I,VAL("&H"+S$) 340 VPOKE &H3000+M*8+I,VAL("&H"+S$) 350 S$="" 360 NEXT 370 NEXT 380 RESTORE 7000 390 FOR I=0 TO31 400 FOR J=0 TO3 405 READ S$ 408 IF J<2 THEN MP$(I)=MP$(I)+CHR$(VAL(S$)) ELSE MQ$(I)=MQ$(I)+CHR$(VAL(S$)) 410 NEXT 413 NEXT 414 '1ラインマップチップデータ 415 RESTORE 8000 420 FOR J=0 TO64 430 FOR I=0 TO15 440 READ DT 450 M1$(J)=M1$(J)+MP$(DT):LOCATE0,4:PRINT "MAP DATA=";J 460 M2$(J)=M2$(J)+MQ$(DT) 470 NEXT 480 NEXT 481 RESTORE9000 482 FOR I=0 TO1 483 READ T1$:LOCATE0,5:PRINT "MAP DATA2=";I 484 IF T1$="**" THEN ELSE TT$(I)=TT$(I)+T1$:T1$="":GOTO483 485 NEXT 491 CLS 492 FOR I=0 TO11:LOCATE 0,I*2:PRINT M1$(0):LOCATE 0,I*2+1:PRINT M2$(0):NEXT 500 LOCATE 5,9:PRINT CHR$(185)+CHR$(187)+CHR$(189)+CHR$(191)+CHR$(193)+CHR$(195)+CHR$(197)+CHR$(199); 501 PRINT CHR$(201)+CHR$(203)+CHR$(205)+CHR$(207)+CHR$(209)+CHR$(211)+CHR$(213)+CHR$(215)+CHR$(217)+CHR$(219)+CHR$(221)+CHR$(223)+CHR$(225)+CHR$(227) 502 LOCATE 5,10:PRINT CHR$(186)+CHR$(188)+CHR$(190)+CHR$(192)+CHR$(194)+CHR$(196)+CHR$(198)+CHR$(200)+CHR$(202); 503 PRINT CHR$(204)+CHR$(206)+CHR$(208)+CHR$(210)+CHR$(212)+CHR$(214)+CHR$(216)+CHR$(218)+CHR$(220)+CHR$(222)+CHR$(224)+CHR$(226)+CHR$(228) 505 LOCATE 9,13:PRINT"PUSH SPACE KEY" 506 ED=0 510 FOR I=0 TO1:I=-STRIG(0)-STRIG(1):NEXT 515 PLAY"O4CDECDECDE":FOR I=0 TO11:LOCATE 0,I*2:PRINT M1$(0):LOCATE 0,I*2+1:PRINT M2$(0):NEXT 517 LOCATE 0,0:FOR I=0 TO31:PRINT CHR$(32);:NEXT 520 S=STICK(0) OR STICK(1) 521 TM=TM+1:LOCATE 0,0:PRINT"TIME";TM: LOCATE 15,0:PRINT"RECORD";RC: 530 XX=X:YY=Y 540 ST=-STRIG(0)-STRIG(1):IF ST=1 THEN X=13:Y=15:T=0:TY=0:TZ=0:HK=0:H2=15:D1=0:D2=0:ED=0:TE=1:T3=1:XB=0:TM=0:P1=0:P2=0:FOR I=0 TO500:NEXT:LOCATE 5,13:PRINT"RESTART PUSH SPACE KEY":GOTO510 600 X=X-(X>0)*(S=7)-(X>0)*(S=6)-(X>0)*(S=8)+(X<30)*(S=3)+(X<30)*(S=2)+(X<30)*(S=4) 610 Y=Y-(Y>1)*(S=1)-(Y>1)*(S=2)-(Y>1)*(S=8)+(Y<22)*(S=5)+(Y<22)*(S=4)+(Y<22)*(S=6) 620 P1=VPEEK(&H1800+X+Y*32) 630 P2=VPEEK(&H1800+(X+1)+Y*32) 660 IF P1>=128 AND P1<=160 THEN X=XX:Y=YY:GOTO520 670 IF P2>=128 AND P2<=160 THEN X=XX:Y=YY:GOTO520 680 'GOAL 690 IF P1=182 OR P2=182 THEN LOCATE 14,10:PRINT"GOAL":PLAY"O4CDECDECDE":FOR I=0 TO500:NEXT:X=13:Y=15:T=0:TY=0:TZ=0:HK=0:H2=15:D1=0:D2=0:ED=0:TE=1:T3=1:XB=0:RC=RC+(TM252 THEN TY=1:TZ=TZ+1 790 GOTO520 1030 'カベ　アタリ　ショリ 1031 P1=VPEEK(&H1800+X+Y*32) 1032 P2=VPEEK(&H1800+(X+1)+Y*32) 1035 RETURN 1040 P3=VPEEK(&H1800+X+(Y+1)*32) 1041 P4=VPEEK(&H1800+(X+1)+(Y+1)*32) 1045 RETURN 3000 DATA 63,6f,1b,1b,3f,3f,3f,3f,3f,1f,1f,0f,63,61,61,01 3010 DATA c6,f6,d8,d8,fc,fc,fc,fc,fc,f8,f8,f0,c6,86,86,80 3020 'ガードレール 3030 DATA 00,00,00,00,00,ff,ff,00 3040 DATA ff,ff,00,ff,ff,80,80,80 3050 DATA ff,ff,00,ff,ff,01,01,01 3060 DATA ff,ff,1f,e0,70,38,98,d8 3070 DATA 98,58,98,3c,bc,5c,9c,58 3080 DATA ff,ff,00,07,0e,5c,98,58 3090 DATA 98,38,70,e8,18,e8,c8,2a 3100 DATA e9,da,39,f2,e9,1a,d9,e6 3110 DATA 98,5c,8e,57,98,57,93,54 3120 DATA 97,5b,9c,4f,97,58,9b,67 3130 'モリ 3140 DATA f8,e4,c2,84,7f,d3,65,3f 3150 DATA 43,f4,7f,92,7d,8f,5e,fd 3160 DATA c5,fa,ff,df,e7,ff,9f,e2 3170 DATA 79,ff,ff,9c,7f,92,76,a7 3180 DATA 1f,27,0b,e8,f6,9d,20,49 3190 DATA f0,a5,52,cd,8b,13,4c,31 3200 DATA f0,a5,52,cd,8b,13,4c,31 3210 DATA 5b,3e,2d,12,05,00,00,c0 3220 DATA f8,ff,fc,e0,80,80,e0,fc 3230 DATA 79,fe,6f,18,00,00,01,82 3240 DATA 29,1c,0e,0c,06,1d,00,00 3250 DATA c9,34,41,e4,10,00,01,07 3260 DATA 1f,ff,0f,03,00,00,03,0f 3270 'クサニンジン 3280 DATA ff,ff,ff,ff,a5,81,81,81 3290 DATA ff,ba,d5,e3,e3,c1,c1,c1 3300 'ブロックアカ 3310 DATA 80,3f,7f,7f,7f,7f,7f,7f 3320 DATA 3f,05,79,38,ff,c0,e0,7f 3330 DATA 01,fc,fe,fe,fc,f8,fe,fe 3340 DATA fc,20,fc,f8,ff,43,07,fe 3350 'ブロックキイロ 3360 DATA 80,3f,7f,7f,7f,7f,7f,7f 3370 DATA 3b,11,3e,18,ff,c0,e0,7f 3380 DATA 01,fc,fe,fe,fc,f8,fe,fe 3390 DATA fc,b0,7c,f8,ff,43,07,fe 3400 'タイル 3410 DATA 76,ed,db,b6,6d,db,b6,6d 3420 DATA 89,12,24,49,92,24,49,92 3430 DATA fa,55,aa,55,ff,ff,ff,ff 3440 DATA af,55,aa,55,ff,ff,ff,ff 3450 'アスファルト 3460 DATA fe,fe,ff,ff,ff,ff,fe,fe 3470 DATA fe,fe,ff,ff,ff,ff,fe,3c 3480 DATA 7f,7f,ff,ff,ff,ff,7f,7f 3490 DATA 7f,7f,ff,ff,ff,ff,7f,3c 3500 DATA ff,ff,ff,ff,ff,ff,ff,3c 3510 DATA 3c,ff,ff,ff,ff,ff,ff,ff 3520 DATA 3c,fe,ff,ff,ff,ff,fe,fe 3530 DATA c3,00,00,00,00,00,00,00 3540 DATA 3c,7f,ff,ff,ff,ff,7f,7f 3550 DATA fe,fe,ff,ff,ff,ff,fe,3c 3560 DATA ff,ff,ff,ff,ff,ff,ff,ff 3570 'フラッグ 3580 DATA f8,fa,fa,fa,fa,fa,fa,fa 3590 DATA fa,fa,fa,fa,fa,f2,f0,f8 3600 DATA 3f,0f,03,00,00,00,03,0f 3610 DATA 3f,ff,ff,ff,00,7f,7f,00 3620 DATA fa,fa,fa,fa,02,f2,f0,00 3630 DATA 3f,ff,ff,ff,ff,7f,7f,ff 3640 DATA ff,ff,ff,ff,ff,ff,ff,ff 3650 'GAGE 3660 DATA ff,ff,ff,ff,ff,ff,ff,ff 3670 DATA ff,ff,ff,ff,ff,ff,ff,ff 3680'KOU 3690 DATA ff,ff,f1,f1,e1,c3,87,8f 3700 DATA 8f,fc,f8,f0,e1,e0,e0,ff 3710 DATA ff,ff,c7,c7,c3,e1,f0,f8 3720 DATA f8,7f,47,c3,e1,00,08,ff 3730 'DOU 3740 DATA ff,f9,f8,3f,08,8c,f8,09 3750 DATA 08,89,18,09,88,1f,00,00 3760 DATA ff,f3,e3,ff,03,7f,03,fb 3770 DATA 03,fb,03,fb,03,fc,00,00 3780 'SU 3790 DATA ff,ff,80,80,c0,ff,ff,ff 3800 DATA fe,fc,f8,f0,e1,c3,87,ff 3810 DATA ff,ff,07,03,03,c3,87,0f 3820 DATA 1f,3f,1f,0f,87,c3,e1,ff 3830 'RA 3840 DATA 00,00,1f,3f,00,00,7f,7f 3850 DATA 00,00,00,00,01,03,03,00 3860 DATA 00,00,f0,f0,00,00,fc,fe 3870 DATA 1e,3c,78,f0,f0,e0,c0,00 3880 'I 3890 DATA 00,00,00,01,0f,3f,3c,01 3900 DATA 01,01,01,01,01,01,01,00 3910 DATA 00,00,3c,fc,fc,8c,00,c0 3920 DATA c0,80,c0,c0,c0,c0,c0,00 3930 'MU 3940 DATA 00,00,00,00,01,03,07,0f 3950 DATA 1e,3c,78,78,70,7f,7f,00 3960 DATA 00,00,00,e0,e0,c0,80,00 3970 DATA 00,00,70,78,3c,fe,fe,0e 3980 'BA 3990 DATA 00,00,00,00,0e,0f,0f,0f 4000 DATA 1e,1e,3c,3c,78,f8,f0,00 4010 DATA 00,00,00,00,75,75,7d,78 4020 DATA 3c,3c,1e,1e,0f,0f,07,00 4030 'TO 4040 DATA 00,00,00,00,03,07,07,07 4050 DATA 07,07,07,07,07,03,07,00 4060 DATA 00,00,00,00,80,80,80,80 4070 DATA e0,f8,f8,b8,80,80,80,00 4080 'RU 4090 DATA 00,00,00,00,3c,1c,1c,3c 4100 DATA 3c,38,78,78,f0,f0,e0,00 4110 DATA 00,00,00,00,e0,e0,e0,f0 4120 DATA f0,70,78,7b,3f,3f,1e,00 4130 'DEN 4140 DATA ff,ff,e2,e2,c2,87,04,0c 4150 DATA c7,c7,c6,e6,c4,c4,c4,ff 4160 DATA ff,ff,03,03,03,ff,00,00 4170 DATA ff,1f,1f,39,78,00,04,ff 4180 'SETU 4190 DATA ff,ff,87,87,ff,01,01,ff 4200 DATA 87,ff,87,ff,03,7a,02,ff 4210 DATA ff,ff,39,11,ff,01,01,39 4220 DATA 39,01,ff,13,12,30,30,ff 5000 'COLOR ガードレール　カラー 5010 DATA fa,fb,f1,ff,f1,fe,fe,fe 5020 DATA fe,fe,fe,fe,fe,e1,fe,fe 5030 DATA fe,fe,fe,fe,fe,e1,fe,fe 5040 DATA a1,b1,b1,f1,f1,f1,f1,f1 5050 DATA f1,f1,f1,f1,f1,f1,f1,f1 5060 DATA a1,b1,b1,f1,f1,f1,f1,f1 5070 DATA f1,f1,f1,f1,f1,f1,f1,fe 5080 DATA fe,fe,fe,f1,f1,f1,f1,f1 5090 DATA f1,f1,f1,f1,f1,fe,fe,fe 5100 DATA fe,fe,fe,f1,f1,f1,fe,fe 5110 'モリカラー 5120 DATA 61,63,1c,13,c6,c1,ce,c1 5130 DATA c3,c3,c1,c1,c3,c1,c1,c1 5140 DATA c1,c1,c1,c1,c1,c3,c3,c1 5150 DATA c3,c3,c1,c1,c1,c3,c1,c1 5160 DATA 61,61,6c,c1,c1,c1,c1,c1 5170 DATA c1,c1,c1,c1,c1,c1,c1,c1 5180 DATA c1,c1,c1,c1,c1,c1,c1,c1 5190 DATA c1,c1,c1,c1,c1,c1,c1,91 5200 DATA 91,91,91,91,91,91,91,91 5210 DATA c1,c1,c1,c1,c1,c1,61,61 5220 DATA 61,61,61,61,61,61,61,61 5230 DATA c1,c1,c1,c1,c1,c1,61,61 5240 DATA 91,91,91,91,91,91,91,91 5250 'クサカラー/ニンジン　カラー 5260 DATA 93,93,93,93,93,93,92,9c 5270 DATA 93,93,92,9c,98,96,98,d6 5280 'アカ　カラー 5290 DATA e1,91,91,d1,61,61,61,61 5300 DATA 61,61,f1,e1,1e,1e,1e,1e 5310 DATA e1,91,d1,d1,61,61,61,61 5320 DATA 61,61,f1,e1,1e,1e,1e,1e 5330 'キイロカラー 5340 DATA e1,f1,f1,b1,b1,a1,a1,a1 5350 DATA a1,a1,d1,91,19,16,19,1e 5360 DATA e1,f1,b1,b1,a1,a1,a1,a1 5370 DATA a1,a1,d1,d1,1e,16,19,1e 5380 'タイル　カラー 5390 DATA 69,68,68,68,68,68,68,68 5400 DATA 69,89,89,89,89,89,89,89 5410 DATA 61,61,61,61,61,61,61,61 5420 DATA 91,91,91,91,91,91,91,91 5430 'アスファルトカラー 5440 DATA ef,ef,ef,ef,ef,ef,ef,ef 5450 DATA ef,ef,ef,ef,ef,ef,ef,ef 5460 DATA ef,ef,ef,ef,ef,ef,ef,ef 5470 DATA ef,ef,ef,ef,ef,ef,ef,ef 5480 DATA ef,ef,ef,ef,ef,ef,ef,ef 5490 DATA ef,ef,ef,ef,ef,ef,ef,ef 5500 DATA ef,ef,ef,ef,ef,ef,ef,ef 5510 DATA fe,fe,fe,fe,fe,fe,fe,fe 5520 DATA ef,ef,ef,ef,ef,ef,ef,ef 5530 DATA ef,ef,ef,ef,ef,ef,ef,ef 5540 DATA ef,ef,ef,ef,ef,ef,ef,ef 5550 'フラッグカラー 5560 DATA e1,e1,e1,e1,e1,e1,e1,e1 5570 DATA e1,e1,e1,e1,e1,e1,e1,e1 5580 DATA e9,e9,e8,e6,e8,e6,e6,e6 5590 DATA ed,e1,e1,e1,e1,d1,d1,e1 5600 DATA e1,e1,e1,e1,e1,d1,d1,e1 5610 DATA ed,e1,e1,e1,e1,e1,e1,e1 5620 DATA ef,ef,ef,ef,1f,df,df,1f 5630 'GAGE カラー 5640 DATA f6,46,46,46,46,46,e6,f6 5650 DATA f4,64,64,64,64,64,e4,f4 5660 'KOU COLOR 5670 DATA 1a,1a,1b,1a,1b,1a,1b,1a 5680 DATA 1a,1a,1a,1a,1b,19,18,1a 5690 DATA 1a,1a,1b,1b,1b,1a,1a,1a 5700 DATA 1a,1a,1a,1b,19,18,18,1a 5710 'DOU COLOR 5720 DATA 1b,1a,1a,1b,1a,1a,1a,1b 5730 DATA 1a,1b,1a,1a,1b,1b,19,18 5740 DATA 1b,1b,1a,1a,1b,1a,1a,1a 5750 DATA 1a,1a,1a,1a,1b,19,19,18 5760 'SU COLOR 5770 DATA 15,15,15,15,15,15,15,15 5780 DATA 14,15,14,15,14,14,14,15 5790 DATA 15,15,15,15,15,15,15,15 5800 DATA 14,15,14,15,14,14,14,15 5810 'RA COLOR 5820 DATA 51,51,51,51,51,51,51,41 5830 DATA 51,51,51,51,41,41,41,51 5840 DATA 51,51,51,51,51,51,51,41 5850 DATA 51,51,41,51,41,41,41,51 5860 'I COLOR 5870 DATA 51,51,51,51,51,51,41,51 5880 DATA 51,41,51,51,41,41,41,51 5890 DATA 51,51,51,51,51,51,51,51 5900 DATA 51,41,51,41,41,41,41,51 5910 'MU COLOR 5920 DATA 51,51,51,51,51,51,51,51 5930 DATA 41,51,51,41,51,41,41,51 5940 DATA 51,51,51,51,51,51,51,51 5950 DATA 51,51,51,41,51,41,41,41 5960 'BA COLOR 5970 DATA 81,81,81,91,81,91,81,81 5980 DATA 81,61,81,61,81,61,61,81 5990 DATA 91,91,81,91,81,91,81,81 6000 DATA 81,61,81,61,81,61,61,81 6010 'TO COLOR 6020 DATA 81,81,91,91,81,81,81,81 6030 DATA 81,61,81,61,81,61,61,81 6040 DATA 81,81,81,81,81,81,81,81 6050 DATA 81,61,81,61,81,81,81,81 6060 'RU COLOR 6070 DATA 81,81,81,91,81,91,81,81 6080 DATA 81,61,81,61,81,61,61,81 6090 DATA 91,91,81,91,81,91,81,81 6100 DATA 81,61,81,61,81,61,61,81 6110 'DEN COLOR 6120 DATA 1e,1e,1f,1f,1e,1e,1f,1e 6130 DATA 1e,1e,1f,1e,1e,1e,1e,1e 6140 DATA 1e,1e,1f,1e,1e,1e,1f,1e 6150 DATA 1e,1e,1f,1e,1e,1e,1e,1e 6160 'SETU COLOR 6170 DATA 1e,1e,1f,1e,1e,1f,1e,1e 6180 DATA 1e,1e,1e,1e,1f,1e,1e,1e 6190 DATA 1e,1e,1f,1e,1e,1f,1e,1e 6200 DATA 1e,1e,1f,1f,1e,1e,1e,1e 7000 'パターンガードレール12 7010 DATA 129,130,164,163 7020 DATA 157,159,128,128 7030 DATA 132,162,132,161 7040 DATA 161,132,162,132 7050 DATA 130,132,162,132 7060 DATA 132,129,132,163 7070 DATA 157,159,133,128 7080 DATA 157,159,128,131 7090 DATA 132,162,134,161 7100 DATA 161,132,162,137 7110 DATA 135,162,164,161 7120 DATA 161,137,162,163 7130 'モリ4 7140 DATA 138,139,140,141 7150 DATA 142,162,143,161 7160 DATA 145,149,146,148 7170 DATA 149,162,150,161 7180 'クサ/ニンジン1 7190 DATA 151,152,151,151 7200 'アカ1 7210 DATA 153,155,154,156 7220 'キイロ1 7230 DATA 157,159,158,160 7240 'タイル1 7250 DATA 161,162,162,161 7260 'アスファルト8 7270 DATA 175,165,175,165 7280 DATA 167,175,167,175 7290 DATA 175,175,169,169 7300 DATA 170,170,175,175 7310 DATA 167,175,168,169 7320 DATA 170,171,175,165 7330 DATA 173,170,167,175 7340 DATA 175,165,175,166 7350 'フラッグ3 7360 DATA 176,178,177,179 7370 DATA 176,178,180,181 7380 DATA 175,175,182,182 7390 'グレー1 7400 DATA 175,175,175,175 8000 'X LINE PATTERN 8010 DATA 18,2,19,19,19,31,31,20,21,31,31,19,19,19,3,18 8020 DATA 18,5,0,0,0,10,31,20,21,31,31,11,0,0,4,18 8030 DATA 18,6,1,1,1,8,31,20,21,31,31,9,1,1,7,18 8040 DATA 18,18,18,18,18,2,31,20,21,31,31,3,18,18,18,18 8050 DATA 18,18,18,18,18,2,31,20,26,23,23,23,23,23,31,3 8060 DATA 18,18,18,18,18,2,31,31,22,22,22,22,22,27,21,3 8070 DATA 18,18,18,18,18,5,0,0,0,0,0,0,10,20,21,3 8080 DATA 18,18,18,18,18,6,1,1,1,1,1,1,8,20,21,3 8090 DATA 18,18,18,18,18,18,18,18,18,18,18,18,2,20,21,3 8100 DATA 2,19,19,19,19,19,19,19,19,19,19,19,19,20,21,3 8105 '10 8110 DATA 2,19,19,19,19,19,19,19,19,19,19,19,19,14,15,3 8120 DATA 2,19,19,19,19,19,19,19,19,19,19,19,19,12,13,3 8130 DATA 2,19,14,15,19,19,19,19,19,19,19,19,19,20,21,3 8140 DATA 2,19,12,13,19,19,19,19,19,19,19,19,19,20,21,3 8150 DATA 2,19,19,19,19,19,19,19,19,19,19,19,19,20,21,3 8160 DATA 23,23,23,23,23,23,23,23,23,23,23,23,23,25,26,23 8170 DATA 22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22 8180 DATA 2,19,19,19,19,19,19,19,19,19,19,19,19,19,19,3 8190 DATA 2,19,19,19,18,18,18,18,18,18,18,18,18,19,19,3 8200 DATA 2,19,19,11,0,0,0,0,0,0,0,0,0,0,0,4 8205 '20 8210 DATA 2,19,19, 9,1,1,1,1,1,1,1,1,1,1,1,7 8220 DATA 2,19,19, 3,18,18,18,18,18,18,18,18,18,18,18,18 8230 DATA 2,19,19,18,18,18,18,18,18,18,18,18,18,18,18,18 8240 DATA 19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19 8250 DATA 16,16,16,19,19,19,19,19,19,19,19,16,16,16,19,19 8260 DATA 16,16,16,16,16,19,19,19,19,19,19,16,16,16,19,19 8270 DATA 19,19,19,19,19,14,15,19,19,19,14,15,19,19,19,19 8280 DATA 19,19,19,19,19,12,13,19,19,19,12,13,19,19,19,19 8290 DATA 14,15,14,15,14,15,19,14,15,14,15,19,19,14,15,14 8300 DATA 12,13,12,13,12,13,19,12,13,12,13,19,19,12,13,12 8305 '30 8310 DATA 16,16,16,14,15,19,19,19,19,19,19,19,14,15,16,16 8320 DATA 16,16,16,12,13,19,19,19,19,16,16,16,12,13,16,16 8330 DATA 19,19,19,17,17,17,19,19,19,19,17,17,17,19,19,19 8340 DATA 19,19,19,19,19,19,19,18,18,19,19,19,19,19,19,19 8350 DATA 16,16,16,19,19,19,19,19,16,16,19,19,19,19,19,16 8360 DATA 17,17,17,17,17,19,19,19,19,19,19,19,19,19,19,19 8370 DATA 18,18,18,18,18,17,17,17,17,19,19,19,19,19,19,19 8380 DATA 18,18,18,18,18,18,18,18,18,17,17,17,17,19,19,19 8390 DATA 18,18,18,18,18,18,18,18,18,18,19,19,19,19,19,19 8400 DATA 18,18,18,18,18,18,18,18,18,18,19,19,19,18,18,18 8405 '40 8410 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,10,19,11, 0, 0, 0 8420 DATA 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 8,19, 9, 1, 1, 1 8430 DATA 18,18,18,18,18,18,18,18,18,18, 2,19, 3,18,18,18 8440 DATA 18,18,18,18,18,18,18,18,18,18, 2,19,14,15,18,18 8450 DATA 18,18,18,18,18,18,18,18,18,18, 2,19,12,13,18,18 8460 DATA 18,18,18,18,18,18,18,18,18,14,15,19, 3,18,18,18 8470 DATA 18,18,18,18,18,18,18,18,18,12,13,19, 3,18,18,18 8480 DATA 18,19,19,17,17,17,17,19,19,19,19,19,19, 3,18,18 8490 DATA 18,19,19,18, 2,19,19,19,19,14,15,18,18, 3,18,18 8500 DATA 18,19,19,18, 2,19,19,19,19,12,13,19,19, 3,18,18 8505 '50 8510 DATA 18,19,19,18, 2,14,15,14,15,19,11, 0, 0, 4,18,18 8520 DATA 18,19,19,18, 2,12,13,12,13,19, 9, 1, 1, 7,18,18 8530 DATA 18,19,19,18, 2,19,19,19,19,19,19,19,19, 3,18,18 8540 DATA 18,19,19,19,19,19,19,11, 0, 0, 4,19,14,15,18,18 8550 DATA 18,19,19,19,19,19,19, 9, 1, 1, 7,19,12,13,18,18 8560 DATA 18,18,19,19,19,19,19,19,19,19,19,19,19,19,19,18 8570 DATA 18,18,16,19,16,16,16,16,16,16,18,18,18,19,19,18 8580 DATA 2,24,22,22,22,22,22,22,22,22,22,22,22,22,27, 3 8590 DATA 2,28,30,30,30,30,30,30,30,30,30,30,30,30,29, 3 8600 DATA 2,26,23,23,23,23,23,23,23,23,23,23,23,23,25, 3 8610 DATA 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4 8620 DATA 6, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 7 8630 '62 8640 DATA 18,18,18,18,18, 2,31,20,21,31,31,19,19,19,19, 3 8650 DATA 18,18,18,18,18, 2,19,19,19,19,19,19,19,20,21, 3 8660 DATA 18,19,19,18, 2,19,19,19,19,19, 3,18,18,18,18,18 9000 ' 9010 DATA 00,00,00,00,00,00,00,00,00,00,00,00 9020 DATA 01,02,03,62,04,05,63,06,07,08,09,12 9030 DATA 13,14,15,16,10,11,17,17,17,17,17,17 9040 DATA 17,17,17,17,18,17,17,17,17,17,17,17 9050 DATA 17,17,17,17,17,19,20,21,21,21,21,21 9060 DATA 22,23,23,23,24,25,24,25,24,25,25,26 9070 DATA 27,23,23,28,29,23,23,23,30,31,28,29 9080 DATA 30,31,23,23,23,32,23,33,33,33,33,33 9090 DATA 33,33,23,23,23,32,34,35,36,36,36,37 9100 DATA 37,37,38,38,38,38,38,38,38,38,40,41 9110 DATA 42,43,44,45,46,43,** 9115 ' 9120 DATA 44,45,46,43,44,45,46,17,17,17,17,17,17,17,17,17,47 9130 DATA 48,49,52,48,49,52,50,51,64,64,53,54,55,55,55,55,55,55 9140 DATA 55,55,55,56,56,56,56,56,56,56,56,56 9150 DATA 56,56,55,55,55,00,00,00,00,00,00,00 9160 DATA 00,00,57,58,59,17,17,17,17,17,17,17 9170 DATA 60,61,**