これがないとやってられませんね。
10 CLS
20 INPUT ''1) GIVE UP or 2) DIE'';X
30 IF X=1 THEN 100
40 IF X=2 THEN 60 ELSE GOTO 20
50 ' DIE
60 FOR I=&HC509 TO &HC50C
70 READ A$:POKE I,VAL(''&H''+A$)
80 NEXT:GOTO 130
90 ' GIVE UP
100 FOR I=&HC8B8 TO &HC8BB
110 READ A$:POKE I,VAL(''&H''+A$)
120 NEXT
130 FOR I=&HC100 TO &HC105
140 READ A$:POKE I,VAL(''&H''+A$)
150 NEXT
160 ' ROUND
170 INPUT ''STARTING ROUND'';Z
180 FOR I=&HC001 TO &HC007
190 READ A$:POKE I,VAL(''&H''+A$)
200 NEXT
210 FOR I=&HC832 TO &HC834
220 READ A$:POKE I,VAL(''&H''+A$)
230 NEXT:POKE &HC000,Z-1
240 DEFUSR=&HC300:I=USR(0):DEFUSR=&H156:I=USR(0)
250 DATA CD,00,C1,00,C6,00,32,8C,F1,C9
260 DATA 3A,00,C0,32,92,F1,C9,CD,01,C0
|
フラッピー