公道スライムバトル伝説のソースコードを公開します

公道スライムバトル伝説のソースコードを公開します。

https://msxpen.com/codes/-Ohwv4e0nb7Axe0oGS5T

(上記クリックでプレーできます。はじめにかなり時間がかかります。8倍速などしていただけるとうれしいです。)

このゲームのポイントはBASICだけで縦スクロールしているところでしょうか。

700 PUT SPRITE 0,(X*8,Y*8),7,0:LOCATE0,1:PRINT CHR$(27);"L";

700行の、LOCATE0,1:PRINT CHR$(27);"L";

これで、改行されます。

その後、マップを一行PRINTしていけば、スクロールの出来上がりです。

簡単ですね！

710 IF (TY MOD2)=0 THEN PRINT M1$(T) ELSE T=VAL(MID$(TT$(TZ),TY,2)):PRINT M2$(T)
720 TY=TY+1:IF TY>252 THEN TY=1:TZ=TZ+1

このあたりが少しややこしいですが、

TT$( )に横一列を2桁の数字で表していて、文字の変数は255文字しか入らないので、

2つに分けた感じです。

252文字のデータまで順番に表示していって、その後は、TT$(2)になります。

ちょっとマップの表示がややこしいかもしれません。

どのようになっているか書きますと、

まず、文字を絵にします。これは普通ですね。

マップの一行ごとにデータを作ります。

8000 'X LINE PATTERN
8010 DATA 18,2,19,19,19,31,31,20,21,31,31,19,19,19,3,18

その1ラインのデータを、並べたデータを作ります。

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

そのようにしてマップデータを作っています。

マップデータを作るのは容量との争いです。皆さんも色々と工夫されて

みるといいと思います。

それでは～。

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+(TM<RC)*(RC-TM):TM=0:T=0:P1=0:P2=0:LOCATE 5,13:PRINT"RESTART PUSH SPACE KEY":GOTO510
700 PUT SPRITE 0,(X*8,Y*8),7,0:LOCATE0,1:PRINT CHR$(27);"L";
710 IF (TY MOD2)=0 THEN PRINT M1$(T) ELSE T=VAL(MID$(TT$(TZ),TY,2)):PRINT M2$(T)
720 TY=TY+1:IF TY>252 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,**