ROM COPY for IchigoMilk

10 'ROMｶｾｯﾄｺﾋﾟｰ for IchigoMilk
20 S=100: E=163
30 CLS:?:?"ROMｶｾｯﾄｶﾗ IchigoMILKﾉ ROMﾆ":?"ｺﾋﾟｰ ｼﾏｽ｡"
40 ?:? " IchigoMILKﾉ ROMｦ OFFﾆ ｼﾃｸﾀﾞｻｲ｡":?
60 INPUT "ｺﾋﾟｰｦ ﾊｼﾞﾒﾙ ﾌﾟﾛｸﾞﾗﾑ ﾊﾞﾝｺﾞｳ:",S
70 INPUT "ｺﾋﾟｰ ｻｲｺﾞﾉ ﾌﾟﾛｸﾞﾗﾑ ﾊﾞﾝｺﾞｳ: ",E
73 IFE<S ?"ﾌｾｲﾅ ｱﾄﾞﾚｽ":?:GOTO10
74 IFS<100 ?"100ｲｼﾞｮｳﾆ ｼﾃｸﾀﾞｻｲ｡":?:GOTO 10
80 ?:? S;" ｶﾗ ";E; " ﾏﾃﾞ ｺﾋﾟｰ ｼﾏｽ｡":?:? " ﾖｹﾚﾊﾞ  Y ｦ ｵｼﾃ ｸﾀﾞｻｲ｡"
85  ? " ﾔﾘﾅｵｼﾊ N ｦ ｵｼﾃ ｸﾀﾞｻｲ｡"
90 IF PEEK(#1003)=0 GOTO90
95 IF INKEY()&#7F <> #59 GOTO10
100 FOR P=(S-100) TO (E-100)
120 FOR G=0 TO 7
130 [0]=P*4+G/2:[1]=G*128
140 R=I2CR(#50,#800,2,#700,128)
150 R=I2CW(#52,#800,2,#700,128)
160 '?
170 ?"PAGE:";P+100;" ";G
180 '?
200 ' FOR I=0 TO 127
210 ' ? HEX$(PEEK(#700+I),2);:?" ";:IFI&7=7?
300 'NEXT
310 NEXT:NEXT
900 ?:? " ｵﾜﾘﾏｼﾀ｡ ":?