PC-8801mkII SR以降 Part23

753 ：ナイコンさん：2017/11/10(金) 23:13:14.08 .net

沢山のレスありがとうございます。
皆さんのご指導を全て試してみましたが、残念ながら解決に至りませんでした。
他のファイルになるのですが
同じように一行づつ入力して読み込むしかないファイルのローダーに以下のようなものがありました
何か解決の手段にならないでしょうか？

1010 FOR I=&HE000 TO &HE016:READ A$:POKE I,VAL("&H"+A$):NEXT
1020 CONSOLE 0,25,0,1:WIDTH 80,25:COLOR 7:PRINT"Loading...":PRINT:COLOR 0
1030 PRINT"bload "+CHR$(34)+"\TEST":PRINT
1040 PRINT"bload "+CHR$(34)+"TEST":PRINT
1050 PRINT"def usr=&HE400:u=usr(0)":PRINT
1060 A$=STRING$(3,13):V=VARPTR(A$):POKE &HF003,PEEK(V+1):POKE &HF004,PEEK(V+2)
1070 POKE &HE6CE,1
1080 LOCATE 0,1:END