【マル忍改造法】FAN FUN(PC-8001版)

初めてのリクエスト、ありがとうございましたm(__)m
テクノポリス1984年12月号に掲載された”FAN FUN”の改造法です!
ただ、テープ版のFAN FUNを持っていないので、動作確認はできていません。。
少なくとも150行目まではエラーなく動作しています。
———-
1.改造リストを打ち込む
2.RUN[RETURN]
3.FANの数を入力する(ここで0を入力するとFANの数が減らなくなる)

※改造リスト
10 CLEAR 300,&H8FFF:M=1:N=2
20 CONSOLE 0,25,0,1:WIDTH 40,20
30 PRINT CHR$(12)
40 PRINT TAB(8)”*******************”
50 PRINT TAB(8)”* *”
60 PRINT TAB(8)”* FAN FUN *”
70 PRINT TAB(8)”* *”
80 PRINT TAB(8)”*******************”
90 LOCATE 10,7:INPUT “メンスウ “;M
100 IF M255 THEN 90
110 LOCATE 10,9:INPUT “FAN ノ カズ”;N
120 IF N255 THEN 110
130 W$=”L”+CHR$(13)+CHR$(2)
140 LOCATE 10,15:COLOR 2
150 PRINT “タダイマ ロード チュウ”
160 W=VARPTR(W$)
170 POKE &HEDC0,PEEK(W+1)
180 POKE &HEDC1,PEEK(W+2)
190 POKE &HEA68,1
200 CONSOLE 16,1:MON
210 POKE &HBB25,M
220 IF N=0 THEN POKE &HC6BF,0:GOTO 240
230 POKE &HBB1D,N
240 POKE &HE940,&H31:POKE &HE941,&HCB
250 POKE &HE942,&HE8:POKE &HE943,&HC9
260 DEFUSR=&HE940:A=USR(0)
270 END
———-

FANFUNの改造画面

スポンサーリンク

フォローする