10 I=&HF0E0 20 READ A$:IF A$="END" THEN 50 30 POKE I,VAL("&H"+A$) 40 I=I+1:GOTO 20 50 CLS 60 LOCATE0,2:PRINT"CLOAD" 70 LOCATE0,5:PRINT"POKE&H85C4,&HE0:POKE&H85C5,&HF0:RUN"; 80 FOR I=0 TO 8:PRINT CHR$(30);:NEXT 90 POKE&HFB3D,13:POKE&HFB3E,13:POKE&HFB3F,0 100 POKE&HFB8D,&H3D:POKE&HFB8E,&HFB:POKE&HFA32,2 110 END 120 DATA CD,AA,1A,21,B7,20,22,57,A3,21,A6,1C,22,66,A3 130 REM トリガー1/2 イレカエ 140 REM DATA 3E,6F,32,69,A3,3E,67,32,6D,A3 150 DATA C9 160 DATA END |