PC88用DISK高速化
1 d=&Hc000:a$="3E0CCDCC3706142122C07ECDD2372310F92100603E0DCDCC377CCDD2377DCDD237C9600000103EFF32177FC3C100":for i=0 to len(a$)/2:w=val("&H"+mid$(A$,(i*2)+1,2)):poke d,w:d=d+1:next:a=&Hc000:call a:input "リセットシマスカ?(y/n)";a$:if a$="y" or a$="Y" then call z
Show this thread