初めてのリクエスト、ありがとうございました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
