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

2018/09/25 22:16:25

MixJuice GET URL : kidspod.club/mj/596

キャラクター拡大表示(BASIC 0.9.9 RC6〜)

詳細は イチゴジャム レシピ で公開しています。
「プログラムをみる」を参照して下さい。

SOURCE CODE

CLS

NEW

5 'Character expansion
10 CLV:CLS
20 INPUT C:C=PEEK(#901)
30 ? C;" #";HEX$(C):?
40 FOR Y=0 TO 7
50 D=PEEK(C*8+Y)
60 FOR X=0 TO 7:O=D&128
70 IF O ? CHR$(1); ELSE ? CHR$(219);
80 D=D<<1:NEXT:?:NEXT:?

'OK

COMMENT