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 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
