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