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
|