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:25:40

MixJuice GET URL : kidspod.club/mj/599

拡大文字 文字列版(BASIC 1.2.0~)

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

SOURCE CODE

CLS

NEW

10 'Large letters STR
20 CLV
30 CLS
40 LET D,"Ichi go  Jam"
50 FOR O=0 TO 11
60 LET X,O%4
70 LET Y,O/4
80 LET I,ASC(D+O)
90 FOR V=0 TO 7
100 LET P,PEEK(I*8+V)
110 FOR W=0 TO 7
120 LET Q,(Y*8+V)*32+(X*8+W)
130 POKE #900+Q,(P&128<>0)
140 LET P,P<<1
150 NEXT
160 NEXT
170 NEXT
180 IF INKEY() GOTO 180
190 IF !INKEY() GOTO 190

'OK

COMMENT