ファミリーベーシック活用テクニックat I4004
ファミリーベーシック活用テクニック - 暇つぶし2ch421:ナイコンさん
08/02/17 09:28:50
90 CLEAR&H6CFF
100 FORI=&H6D15TO&H6D1D
110 READA$
120 POKEI,VAL(”&H”+A$)
130 NEXT
140 XX=0YY=0CLS:GOTO300
190 DATA A9,05,85,63,A5,63,D0,FC,60
300 FORI=33TO200
305 FORJ=0TO7
310 A=&H1000+I*16+J
320 B=A MOD256A=A/256
330 POKE&H4A,B,A
340 CALL&H6D15
360 A=PEEK(&H73)B=128
365 LOCATEXX,YY+J:PRINT”        ”
370 FORK=0TO7
380 IFA>=B A=A-B:LOCATEK+XX,J+YY:PRINTCHR$(I)
385 B=B/2
390 NEXT
400 NEXT
410 XX=XX+8
420 IFXX=24 XX=0YY=YY+8
430 IFYY=16 YY=0
440 NEXT

>>420
試してみた。エミュのステートデータから、こんな感じの
リストのテキストファイルを作るソフトだな。


次ページ
続きを表示
1を表示
最新レス表示
レスジャンプ
類似スレ一覧
スレッドの検索
話題のニュース
おまかせリスト
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch