Enjoy programming more!
Kidspod is a post site which supports young programmers.
First step to join us.
Register as a member
For members

2019/01/07 21:12:10

MixJuice GET URL : kidspod.club/mj/729

HIMAN体フォント

POKEでPCGエリアにデータを書き込んでおき、
A-Zを#E0-#FFに変換してPRINT

プログラムをみる から mkFONT.xlsmにリンクしています。

SOURCE CODE

POKE#700,#7C,#FE,#EE,#EE,#FE,#FE,#EE,#00
POKE#708,#FC,#FE,#F6,#FC,#F6,#FE,#FC,#00
POKE#710,#7C,#FE,#FE,#F8,#FE,#FE,#7C,#00
POKE#718,#FC,#FE,#FE,#F6,#FE,#FE,#FC,#00
POKE#720,#FE,#FE,#FC,#FE,#FC,#FE,#FE,#00
POKE#728,#FE,#FE,#FC,#FE,#FE,#FC,#FC,#00
POKE#730,#7C,#FE,#F8,#F6,#FA,#FE,#7C,#00
POKE#738,#EE,#FE,#FE,#FE,#FE,#FE,#EE,#00
POKE#740,#FE,#7C,#7C,#7C,#7C,#7C,#FE,#00
POKE#748,#FE,#3C,#3C,#3C,#3C,#FC,#78,#00
POKE#750,#DE,#FE,#FC,#F8,#FC,#FE,#DE,#00
POKE#758,#F0,#F0,#FC,#FC,#FC,#FC,#FC,#00
POKE#760,#EE,#FE,#FE,#FE,#FE,#FE,#D6,#00
POKE#768,#CE,#EE,#FE,#FE,#FE,#EE,#E6,#00
POKE#770,#7C,#FE,#FE,#EE,#FE,#FE,#7C,#00
POKE#778,#FC,#FE,#F6,#FE,#FC,#F8,#F8,#00
POKE#780,#7C,#FE,#FE,#FE,#F2,#F4,#7A,#00
POKE#788,#FC,#FE,#FA,#FE,#FE,#FC,#F6,#00
POKE#790,#7C,#FE,#FA,#7C,#BE,#FE,#7C,#00
POKE#798,#FE,#FE,#FE,#FE,#FE,#FE,#7C,#00
POKE#7A0,#EE,#FE,#FE,#FE,#FE,#FE,#7C,#00
POKE#7A8,#EE,#FE,#FE,#FE,#FE,#7C,#7C,#00
POKE#7B0,#C6,#D6,#FE,#FE,#FE,#FE,#6C,#00
POKE#7B8,#EE,#FE,#FE,#7C,#FE,#FE,#EE,#00
POKE#7C0,#EE,#FE,#FE,#FE,#FE,#38,#38,#00
POKE#7C8,#FE,#7E,#FE,#FE,#FE,#FC,#FE,#00


10 CLS
20 A="ABCDEFG":GSB@P
30 A="HIJKLMN":GSB@P
40 A="OPQRSTU":GSB@P
50 A="VWXYZ":GSB@P
60 END
70 @P:P=0
80 @LP:C=PEEK(A+P):IFC=34?:RTN
90 IF(C>64)AND(C<91)C=C+224-65
100 ?CHR$(C);:P=P+1:GOTO@LP

COMMENT