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:21:14

MixJuice GET URL : kidspod.club/mj/597

拡大文字(BASIC 0.9.9 RC6〜)

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

SOURCE CODE

CLS

NEW

10 'Large letters
20 CLV
30 CLS
40 FOR Y=0 TO 2
50 INPUT I
60 NEXT
70 FOR Y=2 TO 0 STEP -1
80 FOR X=3 TO 0 STEP -1
90 LET I,VPEEK(X+1,Y)
100 FOR V=0 TO 7
110 LET P,PEEK(I*8+V)
120 FOR W=0 TO 7
130 LET Q,(Y*8+V)*32+(X*8+W)
140 POKE #900+Q,(P&128<>0)
150 LET P,P<<1
160 NEXT
170 NEXT
180 NEXT
190 NEXT
200 IF INKEY() GOTO 200
210 IF !INKEY() GOTO 210

'OK

COMMENT