yushaaaaa
絵が描けないのに、まさか投稿することになるとは…
画像>16進数変換のプログラム、要望があれば対応したいと思います。
以下、ポケコンVX-4のプログラムを掲載。
----------BEGIN----------
5 CLEAR:CLS
10 c=20:r=0
20 READ s$
30 IF s$="end" GOTO 90
40 IF c<20 GOTO 50
42 IF r>0 THEN PRINT
45 LOCATE 6,r:c=0:r=r+1
50 DEFCHR$(252)=s$
60 PRINT CHR$(252);
70 c=c+1
80 GOTO 20
90 LOCATE 0,3:GOTO 90
----------END----------
以下はDATA文で定義(81個)
FFFFC3808000,00C0E0FCFEFF,FFFFFFFFFFFF,FFFFFFFFFFFF,
FFFCF0E0C080,800000000000,008080804040,6060383C1E1F,
0F8EC6F2FBFE,FDFBF7F7EFEF,DFBF5FBF5FBF,7FDF7FBE7CFC,
F8F8F0F1E1E0,E0E0E0F03818,0E0703010000,000000000101,
011F342A140C,030080808080,80C0C0E0F0F8,FCFEFFFFFFFF,
FFFFFF7F0F07,030000000000,808081C7FFFF,FFFFFFFFFFFE,
800000000000,000000000000,000000000000,0000000000C0,
FF1F40800008,88C4E2F1F1F9,F9F9F1E1C282,E4FFFF7F1F20,
418284080808,101010101008,0000C0FFF162,444888901112,
12925434160D,1CACD4AA964D,493013262C33,000080FFFFFF,
FFFFFFFFFFFF,FFFF3F1F0701,0040800080C0,E0F0F8FCFF02,
020404040404,040404020202,010008070000,00000001031E,
F8E000000000,000000000000,000000000000,00FFFFFEE203,
820204040808,100000000000,00001FE18608,132440800000,
0000F27B1A02,816110C87403,0080E01807FF,0F1FFFFFFFFF,
FFFFFFFFFFFF,FFFFFFFFFFFF,FF3F0F030120,502850281080,
601008060100,0A050A050201,038F7FC0C080,8080C0E05068,
3428141F0F0F,0F0F0F0E0D0A,1930204040C0,80050B050301,
C23E02020505,0707070E0C0C,1830F1F16313,8B0B4707070F,
3F352404884A,2C1090908081,03041FFFFFFF,FFFFFFFFFFFF,
end
<EOM>
画像>16進数変換のプログラム、要望があれば対応したいと思います。
以下、ポケコンVX-4のプログラムを掲載。
----------BEGIN----------
5 CLEAR:CLS
10 c=20:r=0
20 READ s$
30 IF s$="end" GOTO 90
40 IF c<20 GOTO 50
42 IF r>0 THEN PRINT
45 LOCATE 6,r:c=0:r=r+1
50 DEFCHR$(252)=s$
60 PRINT CHR$(252);
70 c=c+1
80 GOTO 20
90 LOCATE 0,3:GOTO 90
----------END----------
以下はDATA文で定義(81個)
FFFFC3808000,00C0E0FCFEFF,FFFFFFFFFFFF,FFFFFFFFFFFF,
FFFCF0E0C080,800000000000,008080804040,6060383C1E1F,
0F8EC6F2FBFE,FDFBF7F7EFEF,DFBF5FBF5FBF,7FDF7FBE7CFC,
F8F8F0F1E1E0,E0E0E0F03818,0E0703010000,000000000101,
011F342A140C,030080808080,80C0C0E0F0F8,FCFEFFFFFFFF,
FFFFFF7F0F07,030000000000,808081C7FFFF,FFFFFFFFFFFE,
800000000000,000000000000,000000000000,0000000000C0,
FF1F40800008,88C4E2F1F1F9,F9F9F1E1C282,E4FFFF7F1F20,
418284080808,101010101008,0000C0FFF162,444888901112,
12925434160D,1CACD4AA964D,493013262C33,000080FFFFFF,
FFFFFFFFFFFF,FFFF3F1F0701,0040800080C0,E0F0F8FCFF02,
020404040404,040404020202,010008070000,00000001031E,
F8E000000000,000000000000,000000000000,00FFFFFEE203,
820204040808,100000000000,00001FE18608,132440800000,
0000F27B1A02,816110C87403,0080E01807FF,0F1FFFFFFFFF,
FFFFFFFFFFFF,FFFFFFFFFFFF,FF3F0F030120,502850281080,
601008060100,0A050A050201,038F7FC0C080,8080C0E05068,
3428141F0F0F,0F0F0F0E0D0A,1930204040C0,80050B050301,
C23E02020505,0707070E0C0C,1830F1F16313,8B0B4707070F,
3F352404884A,2C1090908081,03041FFFFFFF,FFFFFFFFFFFF,
end
<EOM>
