Program post site for everyone
PanCake・BASIC 1 画面表示に対応しています。
PanCake プリント基板ではジャンパ J1
IchigoCake JavaScript ではジャンパ J2 を 2-3 のところへ接続して下さい。
実行中は BASIC 画面が非表示になります。キーを押して表示します。
詳細は イチゴジャム レシピ で公開しています。
「プログラムをみる」を参照して下さい。
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
