Program post site for everyone
CakeRes✕レトロゲームズ (c)PCN (c)BANDAI NAMCO Entertainment Inc.
IchigoCake BASIC＋PanCake C＋CakeRes✕レトロゲームズ 専用です。
実行前に ?"PC !RESUP! 01 を実行して、
CakeRes✕レトロゲームズ のリソースへ変更して下さい。
詳細は イチゴジャム レシピ で公開しています。
「プログラムをみる」を参照して下さい。
NEW VIDEO 1 PC.VIDEO 0 PC.RESET 10 'ResXRetro Output Sprite 20 UART 1:CLV:PC.RESET:K=48 30 VIDEO 0:PC.VIDEO 1 40 PC.SSTART #1F 50 ?"PC SPRITE CREATE 0"; 60 ?CHR$(I+48,32,K,I+48) 70 ?"PC SPRITE MOVE 0"; 80 ?CHR$(I+48,32,I/2+48); 90 ?CHR$((I%2)*8+48);" 0E 100 I=I+1:IF I<10 GOTO 50 110 ?"PC SPRITE CREATE 0"; 120 ?CHR$(I+55,32,K,I+55) 130 ?"PC SPRITE MOVE 0"; 140 ?CHR$(I+55,32,I/2+43); 150 ?CHR$((I%2)*8+48);" 17 160 I=I+1:IF I<16 GOTO 110 170 K=INKEY():I=0 180 IF K>47 AND K<58 GOTO 50 190 IF K>96 AND K<102 K=K-32 200 IF K>64 AND K<70 GOTO 50 210 IF K<>32 AND K<>10 GOTO 170 220 PC.VIDEO 0:VIDEO 1 'OK
