PC-8801mkII SR以降 Part23

756 ：ナイコンさん：2017/11/11(土) 00:10:08.21 .net

キーバッファにコマンドをpokeする方法は如何？

10 RT$=CHR$(&HD):DQ$=CHR$(&H22)
20 CL$="BLOAD"+DQ$+"\ABC"+DQ$+RT$+"BLOAD"+DQ$+"DEF"+DQ$+",r"+RT$
30 LN=LEN(CL$)
40 FOR I=1 TO LN
50 POKE &HEFD8+I,ASC(MID$(CL$,I,1))
60 NEXT
70 POKE &HEFCD,LN-1:POKE &HEFCE,31