Tagoo フラッピー

レビュー詳細 紹介ページ

親記事 フラッピー
タイトル
フラッピー 機数無現法 改造リスト
日付Fri Apr 30 22:56:30 2021  
書いた人早坂みの

これがないとやってられませんね。


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



引用する

このレビューに対するコメント
まだ登録されていません。



戻る
Copyright(c) 1998-2024 Mackchie All rights reserved.
mackchie@gmail.com