平安京エイリアン
マイコンゲームの本[1]

PCG対応改造
 2002.04.17
 2003.01.02 (スクリーンショットと違っていた / 2170行 LOCATE5, → LOCATE8,)


実行方法：
setPCG1.cmt をロード→実行 (mon L GC100) ...PCG定義
cload"(修正後のファイル)
run

[修正前]
1120 X1=X(I)+E(D(I)):P=INSTR(FV$,CHR$(PEEK(X1))):ONP+1GOTO1140,1150,1200,1220
1150 POKEX(I),MI:POKEX1,AL:X(I)=X1:C(I)=C(I)-1:IFC(I)THENRETURNELSEGOTO1720
1160 IFPEEK(X(I))=ALTHENG(I)=1
1210 GOSUB2120:NEXTJ:POKEX1,42:X(I)=X1:G(I)=20:F(I)=-1:RETURN
1230 COLORCA:LOCATEMX,MY:PRINTCHR$(AL);:B=B-1:IFB=0GOTO1050
1260 PUT@A(5,4)-(32,22),SC:GOSUB1840:POKEX1,AL
1320 P=P-2:SX=DR(P,0):SY=DR(P,1)
1360 M1=M+Q:P=PEEK(M1):IFP=53THENP=ANA:GOSUB2160
1370 IFP<53THENIFP>48THENP=P+1:GOSUB 2150
1380 IFP=MITHENCOLORCH:LOCATEMX+SX,MY+SY:PRINT" ";:GOSUB2150:P=49
1400 M1=M+Q:P=PEEK(M1):IFP=57GOTO1470
1410 IFP<54ANDP>48THENP=P-1:GOSUB2150
1420 IFP>53ANDP<57THENP=P+1:GOSUB2150
1430 IFP=ANTHENP=53:GOSUB2150
1440 IFP=42THENP=54:GOSUB2150
1450 IFP<>48THENPOKEM1,P:RETURN
1530 DIM X(8),C(8),D(8),F(8),G(8),E(8),R(4),SC(1100),A$(3),H(20),DR(3,1)
1550 READ  KEV, ALI, ANA,KABE,MICHI
1560 DATA &he8,&hec,&hed,&h87,&h20
1580 DATA  4, 6, 2, 6, 6, 5
1600 DATA 2,120,-2,-120,0,-1,1,0,0,1,-1,0
1640 FV$=CHR$(MI)+CHR$(AN)+CHR$(KE)+CHR$(KA)
1650 FW$=CHR$(247)+CHR$(253)+CHR$(191)+CHR$(251)+CHR$(239)
1660 B=3:GOSUB1990:RETURN
1690 POKE&H5F66,AL:M=&HFD18:MX=31:MY=21
1730 C(I)=FNR(3)+1:IFD(I)MOD2=0THENC(I)=C(I)*5:RETURNELSEC(I)=C(I)*4:RETURN
1850 COLORCK:LOCATE30,3:FORI1=1TOB:PRINTCHR$(KE);:NEXT:RETURN
2170 COLORCM:PRINTCHR$(12):COLOR 7:LOCATE10,1:PRINT"ﾍｲｱﾝｷｮｳ ｴｲﾘｱﾝ ｹﾞｰﾑ":RETURN

[修正後]
1120 X1=X(I)+E(D(I)):P=INSTR(FV$,CHR$(PEEK(X1))):ONP+1GOTO1140,1150,1200,1220,1220,1220,1220
1150 POKEX(I),MI:POKEX1,AL(I):X(I)=X1:C(I)=C(I)-1:IFC(I)THENRETURNELSEGOTO1720
1160 IFINSTR(FX$,CHR$(PEEK(X(I))))>0THENG(I)=1
1210 GOSUB2120:NEXTJ:POKEX1,236:X(I)=X1:G(I)=20:F(I)=-1:RETURN
1230 COLORCA:LOCATEMX,MY:PRINTCHR$(AL(I));:B=B-1:IFB=0GOTO1050
1260 PUT@A(5,4)-(32,22),SC:GOSUB1840:POKEX1,AL(I)
1320 P=P-2:SX=DR(P,0):SY=DR(P,1):KE=144+P
1360 M1=M+Q:P=PEEK(M1):IFP=133THENP=ANA:GOSUB2160
1370 IFP<133THENIFP>128THENP=P+1:GOSUB 2150
1380 IFP=MITHENCOLORCH:LOCATEMX+SX,MY+SY:PRINT" ";:GOSUB2150:P=129
1400 M1=M+Q:P=PEEK(M1):IFP=138GOTO1470
1410 IFP<134ANDP>128THENP=P-1:GOSUB2150
1420 IFP>138ANDP<142THENP=P-1:GOSUB2150
1430 IFP=ANTHENP=133:GOSUB2150
1440 IFP=236THENP=141:GOSUB2150
1450 IFP<>128THENPOKEM1,P:RETURN
1530 DIM AL(8),X(8),C(8),D(8),F(8),G(8),E(8),R(4),SC(1100),A$(3),H(20),DR(3,1)
1550 READ  ANA,KABE,MICHI
1560 DATA &hed,&h87,&h20
1580 DATA  4, 6, 2, 5, 6, 5
1600 DATA 2,120,-2,-120,0,-1,0,1,-1,0,1,0
1640 FV$=CHR$(MI)+CHR$(AN)+CHR$(144)+CHR$(145)+CHR$(146)+CHR$(147)+CHR$(KA)
1650 FW$=CHR$(247)+CHR$(253)+CHR$(251)+CHR$(239)+CHR$(191)
1655 FX$=CHR$(232)+CHR$(233)+CHR$(234)+CHR$(235)
1660 KE=146:B=3:GOSUB1990:RETURN
1690 POKE&HF566,232:M=&HFD18:MX=31:MY=21
1730 AL(I)=232+D(I):C(I)=FNR(3)+1:IFD(I)MOD2=0THENC(I)=C(I)*5:RETURNELSEC(I)=C(I)*4:RETURN
1850 COLORCK:LOCATE30,3:FORI1=1TOB:PRINTMID$(FV$,5,1);:NEXT:RETURN
2170 COLORCM:PRINTCHR$(12):COLOR 7:LOCATE8,1:PRINTCHR$(248)+CHR$(249)+CHR$(250)+" ｴｲﾘｱﾝ ｹﾞｰﾑ":RETURN