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/26 13:42:15

MixJuice GET URL : kidspod.club/mj/621

IchigoJam 拡大文字(PanCake+BASIC)

PanCake・IchigoJam 1 画面表示に対応しています。
PanCake プリント基板ではジャンパ J1 を 2-3 のところへ接続して下さい。
文字入力後は IchigoJam が非表示になります。キーを押して表示します。

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

SOURCE CODE

NEW
VIDEO 1
?"PANCAKE VIDEO 00
?"PANCAKE RESET

10 'PanCake IchigoJam Chr Put
20 CLS:CLV:C=1
30 FOR Y=0 TO 4
40 INPUT K:NEXT
50 FOR Y=0 TO 4
60 FOR X=0 TO 9
70 [Y*10+X]=SCR(X+1,Y)
80 NEXT:NEXT:VIDEO 0
85 IF VER()>11000 UART 1
90 ?"PANCAKE VIDEO 01
100 ?"PANCAKE IMAGE 04
110 FOR Y=0 TO 4
120 FOR X=0 TO 9
130 ?"PANCAKE STAMP1 ";
140 ? HEX$(X*8,2);" ";
150 ? HEX$(Y*8+3,2);" ";
160 ? HEX$(C,2);" ";
170 FOR V=0 TO 7
180 ? HEX$(PEEK([Y*10+X]*8+V),2);
190 NEXT:?:NEXT:NEXT
200 IF !INKEY() GOTO 200
210 ?"PANCAKE VIDEO 00
220 VIDEO 1

'OK

COMMENT