PCG化書き換えプログラム

下記の黄色の個所を追記・書き換えします。

2990 GOSUB4600:PRINT"ﾜｼﾗ ﾊ GOD ﾉ ﾃｼﾀﾉ...":RESTORE6950:GOSUB6700:COLOR7:LOCATE5,9:PRINT"月日":LOCATE5,10:PRINT"時秒":P=15:CS=3:GOSUB4590:RETURN

※月は[GRPH]+フルキー[6]、日は[GRPH]+フルキー[7]、時は[GRPH]+フルキー[8]、秒は[GRPH]+フルキー[0]の半角漢字を入力します(以下同様)。

3010 IFRND(1)<=.05THENGOSUB3630:COLOR3:LOCATE7,7:PRINT"□△":LOCATE7,8:PRINT"◎◇":COLOR7:LOCATE2,14:PRINT"ｷﾞｮｳｼｮｳﾆﾝ ｶﾞ ﾃﾞﾀ":CQ=1 ELSERETURN

※□は[GRPH]+[Z]、△は[GRPH]+[X]、◎は[GRPH]+[C]、◇は[GRPH]+[V]のキャラクターを入力します。

3210 COLOR3:LOCATE5,5:PRINT"□△":LOCATE5,6:PRINT"◎◇":P=1

※□は[GRPH]+[B]、△は[GRPH]+[N]、◎は[GRPH]+[M]、◇は[GRPH]+[.(る)]のキャラクターを入力します。

3240 COLOR4:LOCATE3,7:PRINT"□△":LOCATE3,8:PRINT"◎◇":P=2

※□は[GRPH]+[;(れ)]、△は[GRPH]+[@]、◎は[GRPH]+[^(へ)]、◇は[GRPH]+[-(ほ)]のキャラクターを入力します。

3270 COLOR1:LOCATE7,7:PRINT"□△":LOCATE7,8:PRINT"◎◇":P=3

※□は[GRPH]+[P]、△は[GRPH]+[:(け)]、◎は[GRPH]+[L]、◇は[GRPH]+[/(め)]のキャラクターを入力します。

3300 COLOR6:LOCATE5,5:PRINT"□△":LOCATE5,6:PRINT"◎◇":P=4

※□は[GRPH]+[A]、△は[GRPH]+[S]、◎は[GRPH]+テンキー[+]、◇は[GRPH]+テンキー[5]のキャラクターを入力します。

3330 COLOR7:LOCATE5,9:PRINT"□△":LOCATE5,10:PRINT"◎◇":P=5

※□は[GRPH]+[D]、△は[GRPH]+[I]、◎は[GRPH]+[O]、◇は[GRPH]+[J]のキャラクターを入力します。

3360 COLOR5:LOCATE5,5:PRINT"□△":LOCATE5,6:PRINT"◎◇":P=6

※□は[GRPH]+[K]、△は[GRPH]+[G]、◎は[GRPH]+[H]、◇は[GRPH]+[T]のキャラクターを入力します。

3420 COLOR6:LOCATE5,5:PRINT"□△":LOCATE5,6:PRINT"円年";:BEEP:P=7

※□は[GRPH]+[Y]、△は[GRPH]+[U]、円は[GRPH]+[￥]、年は[GRPH]+フルキー[5]のキャラクターを入力します。 

3450 COLOR6:LOCATE3,7:PRINTCHR$(&HF8);" ":LOCATE3,8:PRINTCHR$(&HFA);CHR$(&HFB);:BEEP:P=8

3480 COLOR2:LOCATE7,7:PRINTCHR$(&HFC);CHR$(&HFD):LOCATE7,8:PRINTCHR$(&HFE);CHR$(&HFF);:BEEP:P=9

3510 RESTORE6800:GOSUB6700:COLOR6:LOCATE5,9:PRINT"月日":LOCATE5,10:PRINT"時秒";:BEEP:P=10

3540 RESTORE6840:GOSUB6700:COLOR5:LOCATE5,5:PRINT"月日":LOCATE5,6:PRINT"時秒";:BEEP:P=11

3570 RESTORE6870:GOSUB6700:COLOR4:LOCATE3,7:PRINT"月日":LOCATE3,8:PRINT"時秒";:BEEP:P=12

3600 RESTORE7030:GOSUB6700:FORL=1TO10:FORI=1TO7:COLORI:LOCATE5,9:PRINT"月日":LOCATE5,10:PRINT"時秒";:NEXTI:NEXTL:BEEP:P=18

4770 IFS/2+1=4ANDEX(1)>400ANDXZ(2)=0THENRESTORE6870:GOSUB6700:COLOR6:LOCATE5,5:PRINT"月日":LOCATE5,6:PRINT"時秒";:BEEP:P=14:CS=1:GOSUB4590:RETURN

4780 IFS/2+1=5ANDQX(2)=0ANDXZ(5)=0THENRESTORE6990:GOSUB6700:LOCATE5,5:PRINT"月日":LOCATE5,6:PRINT"時秒";:BEEP:P=17:CS=1:GOSUB4590ELSEGOTO4810

4820 C3=0:RESTORE6910:GOSUB6700:COLOR6:LOCATE7,7:PRINT"月日":LOCATE7,8:PRINT"時秒";:BEEP:P=13

→BACK

→TOP