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:29:35

MixJuice GET URL : kidspod.club/mj/615

スプライト表示(PanCake+BASIC)

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

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

SOURCE CODE

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

10 'PanCake Output Sprite
20 IF VER()>11000 UART 1
30 CLV:?"PANCAKE RESET":K=48
40 VIDEO 0:?"PANCAKE VIDEO 01
50 ?"PANCAKE SPRITE START 1F
60 ?"PANCAKE SPRITE CREATE 0";
70 ?CHR$(I+48,32,K,I+48)
80 ?"PANCAKE SPRITE MOVE 0";
90 ?CHR$(I+48,32,I/2+48);
100 ?CHR$((I%2)*8+48);" 0E
110 I=I+1:IF I<10 GOTO 60
120 ?"PANCAKE SPRITE CREATE 0";
130 ?CHR$(I+55,32,K,I+55)
140 ?"PANCAKE SPRITE MOVE 0";
150 ?CHR$(I+55,32,I/2+43);
160 ?CHR$((I%2)*8+48);" 17
170 I=I+1:IF I<16 GOTO 120
180 K=INKEY():I=0
190 IF(K>47)*(K<58)GOTO 60
200 IF K=65 GOTO 60
210 IF K=97 K=K-32:GOTO 60
220 IF(K<>32)*(K<>10)GOTO 180
230 VIDEO 1:?"PANCAKE VIDEO 00

'OK

COMMENT