1000 ' BASICAD.ASC 1010 ' BASIC使用エリアを8400H~にずらす。 1020 ' この部分は最初の400Hに収まってないと危ない 1030 IF &HC0<=PEEK(&hFC48+1) THEN PRINT "Requires 32KB RAM":END 1040 TT%=&HF676 1050 IF PEEK(TT%+1)<>&H80 THEN 1100 1060 POKE TT%+1,&H84:POKE TT%+0,1:POKE &H8400,0:'8401H- 1070 ' 改めて自分をLOAD実行する 1080 PRINT "Loading...":RUN"BASICAD.ASC" 1090 ' 1100 ' Program Start