ドルアーガ マップ ビュアー/ジェネレータ用 PCG定義プログラム

【VRC7/MMC5 BASIC専用】

 

ドルアーガ マップビュアードルアーガ マップジェネレータ 共通の
PCG定義プログラムです。
このプログラムを実行することでCHRとフォントを変更します。

 

 

 

10 '#######################
20 '#                     #
30 '# THE TOWER OF DRUAGA #
40 '#                     #
50 '# MAP VIEWER/GENERATOR#
60 '#                     #
70 '#     CHR DEFINER     #
80 '#                     #
90 '#######################
1000 CLEAR &H7EFF
1010 FOR I=176 TO 255 STEP 16
1020   FOR J=0 TO 15:PRINT CHR$(I+J);:NEXT
1030   PRINT ""
1040 NEXT
1100 POKE &H0033,&H06
1120 POKE &H2001,&H06
1130 AD=&H7F0A
1140 READ D$:D=VAL("&H"+D$)
1150 IF D<0 THEN 1200
1160 POKE AD,D:AD=AD+1
1170 GOTO 1140
1200 POKE &H7F00,&H12
1210 POKE &H7F01,&H10
1220 L=7:GOSUB 1500
1300 POKE &H7F00,&H1B
1310 POKE &H7F01,&H00
1320 L=15:GOSUB 1500
1400 POKE &H0033,&H0E
1410 POKE &H2001,&H0E
1420 END
1500 AD=&H7F02
1510 I=0
1520 READ D$:D=VAL("&H"+D$)
1530 IF D<0 THEN 1580
1540 POKE (AD+I),D
1550 I=I+1:IF I<=L GOTO 1520
1560 CALL &H7F12
1570 GOTO 1510
1580 RETURN
2000 '===== マシンゴ  ル-チン  =====
2010 DATA 00,00,00,00,00,00,00,00
2020 DATA AD,00,7F,8D,06,20,AD,01
2030 DATA 7F,8D,06,20,A2,00,BD,02
2040 DATA 7F,8D,07,20,EE,01,7F,D0
2050 DATA 03,EE,00,7F,E8,E0,10,D0
2060 DATA ED,60,FFFF
3000 '===== CHR  デ-タ  =====
3010 DATA 38,38,38,30,30,00,30,00
3020 DATA 6C,6C,48,00,00,00,00,00
3030 DATA 24,6E,FC,6C,6E,FC,48,00
3040 DATA 78,DC,D0,7C,16,D6,7C,00
3050 DATA 42,A4,48,10,24,4A,84,00
3060 DATA 30,48,68,70,9A,8C,72,02
3070 DATA 60,60,20,40,00,00,00,00
3080 DATA 0C,18,30,30,30,18,0C,00
3090 DATA 60,30,18,18,18,30,60,00
3100 DATA 00,24,18,7E,18,24,00,00
3110 DATA 00,10,10,7C,10,10,00,00
3120 DATA 00,00,00,00,00,30,30,60
3130 DATA 00,00,00,7C,00,00,00,00
3140 DATA 00,00,00,00,00,30,30,00
3150 DATA 00,04,08,10,20,40,00,00
3160 DATA 38,4C,C6,C6,C6,64,38,00
3170 DATA 18,38,18,18,18,18,7E,00
3180 DATA 7C,C6,0E,3C,78,E0,FE,00
3190 DATA 7E,0C,18,3C,06,C6,7C,00
3200 DATA 1C,3C,6C,CC,FE,0C,0C,00
3210 DATA FC,C0,FC,06,06,C6,7C,00
3220 DATA 3C,60,C0,FC,C6,C6,7C,00
3230 DATA FE,C6,0C,18,30,30,30,00
3240 DATA 78,C4,E4,78,9E,86,7C,00
3250 DATA 7C,C6,C6,7E,06,0C,78,00
3260 DATA 00,30,30,00,30,30,00,00
3270 DATA 00,30,30,00,30,30,60,00
3280 DATA 0C,18,30,60,30,18,0C,00
3290 DATA 00,00,7C,00,7C,00,00,00
3300 DATA 60,30,18,0C,18,30,60,00
3310 DATA 7C,FE,C6,0C,38,00,38,00
3320 DATA 3C,42,99,A1,A1,99,42,3C
3330 DATA 38,6C,C6,C6,FE,C6,C6,00
3340 DATA FC,C6,C6,FC,C6,C6,FC,00
3350 DATA 3C,66,C0,C0,C0,66,3C,00
3360 DATA F8,CC,C6,C6,C6,CC,F8,00
3370 DATA FE,C0,C0,FC,C0,C0,FE,00
3380 DATA FE,C0,C0,FC,C0,C0,C0,00
3390 DATA 3E,60,C0,CE,C6,66,3E,00
3400 DATA C6,C6,C6,FE,C6,C6,C6,00
3410 DATA 7E,18,18,18,18,18,7E,00
3420 DATA 06,06,06,06,06,C6,7C,00
3430 DATA C6,CC,D8,F0,F8,DC,CE,00
3440 DATA C0,C0,C0,C0,C0,C0,FE,00
3450 DATA C6,EE,FE,FE,D6,C6,C6,00
3460 DATA C6,E6,F6,FE,DE,CE,C6,00
3470 DATA 7C,C6,C6,C6,C6,C6,7C,00
3480 DATA FC,C6,C6,C6,FC,C0,C0,00
3490 DATA 7C,C6,C6,C6,DE,CC,7A,00
3500 DATA FC,C6,C6,CE,F8,DC,CE,00
3510 DATA 78,CC,C0,7C,06,C6,7C,00
3520 DATA 7E,18,18,18,18,18,18,00
3530 DATA C6,C6,C6,C6,C6,C6,7C,00
3540 DATA C6,C6,C6,EE,7C,38,10,00
3550 DATA C6,C6,D6,FE,FE,EE,C6,00
3560 DATA C6,EE,7C,38,7C,EE,C6,00
3570 DATA 66,66,66,3C,18,18,18,00
3580 DATA FE,0E,1C,38,70,E0,FE,00
3590 DATA 3C,30,30,30,30,30,3C,00
3600 DATA 00,40,20,10,08,04,00,00
3610 DATA 78,18,18,18,18,18,78,00
3620 DATA 10,38,6C,44,00,00,00,00
3630 DATA 00,00,00,00,00,00,FE,00
3640 DATA FFFF
3650 DATA 00,00,07,0F,7F,07,0F,1E
3660 DATA 00,00,07,0F,7F,07,0F,1E
3670 DATA 18,78,F1,C2,82,F6,87,0F
3680 DATA 18,78,F1,C2,82,F6,87,0F
3690 DATA 01,03,46,4C,9D,BF,FF,FF
3700 DATA 01,03,46,4C,9D,BF,FF,FF
3710 DATA 00,00,30,E0,81,FF,FC,FF
3720 DATA 00,00,30,E0,81,FF,FC,FF
3730 DATA 40,30,1F,03,80,00,10,E0
3740 DATA 40,30,1F,03,80,00,10,E0
3750 DATA 00,00,C0,F0,7C,1E,0E,07
3760 DATA 00,00,C0,F0,7C,1E,0E,07
3770 DATA 1E,3E,1E,1E,3F,1F,0F,0F
3780 DATA 1E,3E,1E,1E,3F,1F,0F,0F
3790 DATA 0F,07,0F,0F,1F,FF,FF,FF
3800 DATA 0F,07,0F,0F,1F,FF,FF,FF
3810 DATA FF,FF,FF,FF,FF,FF,FF,FF
3820 DATA FF,FF,FF,FF,FF,FF,FF,FF
3830 DATA FF,FF,FF,FF,FE,FF,FF,FF
3840 DATA FF,FF,FF,FF,FE,FF,FF,FF
3850 DATA CF,FC,FF,F8,00,C0,FF,FF
3860 DATA CF,FC,FF,F8,00,C0,FF,FF
3870 DATA 07,67,87,0F,1E,3E,FC,F8
3880 DATA 07,67,87,0F,1E,3E,FC,F8
3890 DATA 0F,07,01,00,07,0F,15,00
3900 DATA 0F,07,01,00,07,0F,15,00
3910 DATA FF,FF,FF,FF,DE,FF,70,20
3920 DATA FF,FF,FF,FF,DE,FF,70,20
3930 DATA FF,FF,FF,FF,00,00,00,00
3940 DATA FF,FF,FF,FF,00,00,00,00
3950 DATA FF,FF,FF,C7,0F,3F,55,02
3960 DATA FF,FF,FF,C7,0F,3F,55,02
3970 DATA FF,FF,FF,FF,FB,F3,FF,FF
3980 DATA FF,FF,FF,E7,E3,F3,FF,FF
3990 DATA FB,FB,FB,FB,FB,E3,FF,FF
4000 DATA E3,E3,E3,E3,E3,E3,FF,FF
4010 DATA FF,FF,FF,FF,FF,F0,FF,FF
4020 DATA FF,FF,FF,E0,E0,F0,FF,FF
4030 DATA FB,FB,FB,FF,FF,F0,FF,FF
4040 DATA E3,E3,E3,E0,E0,F0,FF,FF
4050 DATA FF,FF,FF,FF,FB,FB,FB,FB
4060 DATA FF,FF,FF,E7,E3,E3,E3,E3
4070 DATA FB,FB,FB,FB,FB,FB,FB,FB
4080 DATA E3,E3,E3,E3,E3,E3,E3,E3
4090 DATA FF,FF,FF,FF,FF,F8,FB,FB
4100 DATA FF,FF,FF,E0,E0,E0,E3,E3
4110 DATA FB,FB,FB,FF,FF,F8,FB,FB
4120 DATA E3,E3,E3,E0,E0,E0,E3,E3
4130 DATA FF,FF,FF,FF,FB,03,FF,FF
4140 DATA FF,FF,FF,07,03,03,FF,FF
4150 DATA FB,FB,FB,FB,FB,03,FF,FF
4160 DATA E3,E3,E3,03,03,03,FF,FF
4170 DATA FF,FF,FF,FF,FF,00,FF,FF
4180 DATA FF,FF,FF,00,00,00,FF,FF
4190 DATA FB,FB,FB,FF,FF,00,FF,FF
4200 DATA E3,E3,E3,00,00,00,FF,FF
4210 DATA FF,FF,FF,FF,FB,1B,FB,FB
4220 DATA FF,FF,FF,07,03,03,E3,E3
4230 DATA FB,FB,FB,FB,FB,1B,FB,FB
4240 DATA E3,E3,E3,03,03,03,E3,E3
4250 DATA FF,FF,FF,FF,FF,18,FB,FB
4260 DATA FF,FF,FF,00,00,00,E3,E3
4270 DATA FB,FB,FB,FF,FF,18,FB,FB
4280 DATA E3,E3,E3,00,00,00,E3,E3
4290 DATA FF,FF,FF,E7,E3,F3,FF,FF
4300 DATA FF,FF,FF,FF,FB,F3,FF,FF
4310 DATA E3,E3,E3,E3,E3,E3,FF,FF
4320 DATA FB,FB,FB,FB,FB,E3,FF,FF
4330 DATA FF,FF,FF,E0,E0,F0,FF,FF
4340 DATA FF,FF,FF,FF,FF,F0,FF,FF
4350 DATA E3,E3,E3,E0,E0,F0,FF,FF
4360 DATA FB,FB,FB,FF,FF,F0,FF,FF
4370 DATA FF,FF,FF,E7,E3,E3,E3,E3
4380 DATA FF,FF,FF,FF,FB,FB,FB,FB
4390 DATA E3,E3,E3,E3,E3,E3,E3,E3
4400 DATA FB,FB,FB,FB,FB,FB,FB,FB
4410 DATA FF,FF,FF,E0,E0,E0,E3,E3
4420 DATA FF,FF,FF,FF,FF,F8,FB,FB
4430 DATA E3,E3,E3,E0,E0,E0,E3,E3
4440 DATA FB,FB,FB,FF,FF,F8,FB,FB
4450 DATA FF,FF,FF,07,03,03,FF,FF
4460 DATA FF,FF,FF,FF,FB,03,FF,FF
4470 DATA E3,E3,E3,03,03,03,FF,FF
4480 DATA FB,FB,FB,FB,FB,03,FF,FF
4490 DATA FF,FF,FF,00,00,00,FF,FF
4500 DATA FF,FF,FF,FF,FF,00,FF,FF
4510 DATA E3,E3,E3,00,00,00,FF,FF
4520 DATA FB,FB,FB,FF,FF,00,FF,FF
4530 DATA FF,FF,FF,07,03,03,E3,E3
4540 DATA FF,FF,FF,FF,FB,1B,FB,FB
4550 DATA E3,E3,E3,03,03,03,E3,E3
4560 DATA FB,FB,FB,FB,FB,1B,FB,FB
4570 DATA FF,FF,FF,00,00,00,E3,E3
4580 DATA FF,FF,FF,FF,FF,18,FB,FB
4590 DATA E3,E3,E3,00,00,00,E3,E3
4600 DATA FB,FB,FB,FF,FF,18,FB,FB
4610 DATA C0,F8,FC,FC,FC,FC,FC,F8
4620 DATA C0,C0,C0,C0,C0,C0,C0,C0
4630 DATA 01,1D,3D,3D,3D,3D,3D,1D
4640 DATA 01,01,01,01,01,01,01,01
4650 DATA 00,00,3E,7F,7F,7F,00,FF
4660 DATA 00,00,00,00,00,00,00,FF
4670 DATA 01,1D,3D,3F,3F,3C,3D,1D
4680 DATA 01,01,01,00,00,00,01,01
4690 DATA FF,FF,7F,7F,7F,3E,00,00
4700 DATA FF,FF,00,00,00,00,00,00
4710 DATA FB,FB,7F,7F,7F,3E,00,00
4720 DATA E3,E3,00,00,00,00,00,00
4730 DATA 00,00,3E,7F,7F,7F,18,FB
4740 DATA 00,00,00,00,00,00,00,E3
4750 DATA 00,00,00,00,00,00,00,00
4760 DATA 00,00,00,00,00,00,00,00
4770 DATA C0,F8,FC,FC,FC,3C,FC,F8
4780 DATA C0,C0,C0,00,00,00,C0,C0
4790 DATA 00,00,1E,3F,3F,3F,3C,1D
4800 DATA 00,00,00,00,00,00,00,01
4810 DATA 00,00,38,7C,7C,7C,3C,F8
4820 DATA 00,00,00,00,00,00,00,C0
4830 DATA 01,1D,3F,3F,3F,1E,00,00
4840 DATA 01,01,00,00,00,00,00,00
4850 DATA C0,F8,7C,7C,7C,38,00,00
4860 DATA C0,C0,00,00,00,00,00,00
4870 DATA FF,FF,FF,F0,70,F8,80,00
4880 DATA FF,FF,FF,F0,70,F8,80,00
4890 DATA F0,E0,00,00,00,00,00,00
4900 DATA F0,E0,00,00,00,00,00,00
4910 DATA 00,00,00,00,00,00,00,00
4920 DATA 00,00,00,00,00,00,00,00
4930 DATA C0,C0,C0,C0,C0,C0,C0,C0
4940 DATA C0,F8,FC,FC,FC,FC,FC,F8
4950 DATA 01,01,01,01,01,01,01,01
4960 DATA 01,1D,3D,3D,3D,3D,3D,1D
4970 DATA 00,00,00,00,00,00,00,FF
4980 DATA 00,00,3E,7F,7F,7F,00,FF
4990 DATA 01,01,01,00,00,00,01,01
5000 DATA 01,1D,3D,3F,3F,3C,3D,1D
5010 DATA FF,FF,00,00,00,00,00,00
5020 DATA FF,FF,7F,7F,7F,3E,00,00
5030 DATA E3,E3,00,00,00,00,00,00
5040 DATA FB,FB,7F,7F,7F,3E,00,00
5050 DATA 00,00,00,00,00,00,00,E3
5060 DATA 00,00,3E,7F,7F,7F,18,FB
5070 DATA 00,00,00,00,00,00,00,00
5080 DATA 00,00,00,00,00,00,00,00
5090 DATA C0,C0,C0,00,00,00,C0,C0
5100 DATA C0,F8,FC,FC,FC,3C,FC,F8
5110 DATA 00,00,00,00,00,00,00,00
5120 DATA 00,00,00,00,00,00,00,00
5130 DATA 00,00,00,00,00,00,00,00
5140 DATA 00,00,00,00,00,00,00,00
5150 DATA 00,00,00,00,00,00,00,00
5160 DATA 00,00,00,00,00,00,00,00
5170 DATA 00,00,00,00,00,00,00,00
5180 DATA 00,00,00,00,00,00,00,00
5190 DATA FFFF

 

 

Joomla templates by a4joomla