Program post site for everyone
IchigoJamSWITCH ゲームパッドの接続テスト
上下左右ボタンの配線を確認します。
ドレミソラを鳴らします。
チューリップを弾いてみよう。
30行 POKEによる画面の書き込み 右下まで改行せずに表示できます。
IN(n)との対応を確認。BTNとINは戻り値が逆です。
ボタンを押したときの論理を!で反転することでifの引数にしています。
10 'KEY TEST 20 SWITCH1:FOR I=1TO4:OUTI,-1:NEXT 30 FORY=0TO7:FORX=0TO15:POKE#900+Y*16+X,6:NEXT:NEXT 40 FORY=1TO6:FORX=1TO14:LCX,Y:?" ";:NEXT:NEXT 50 LC2,2,1:?"KEY TEST";:GSB@W 60 LC4,4:?"L D R U B";:LC4,6:?"ﾄﾞﾚ ﾐ ｿ ﾗ"; 70 @LP:LC4,5:?!IN(5);" ";!IN(6);" ";!IN(8);" ";!IN(7);" ";!IN(9); 80 if!IN(5)PLAY"T240O5C" 90 if!IN(6)PLAY"T240O5D" 100 if!IN(7)PLAY"T240O5G" 110 if!IN(8)PLAY"T240O5E" 120 if!IN(9)PLAY"T240O5A" 130 IF!IN(5)+!IN(6)+!IN(7)+!IN(8)+!IN(9)=5LRUN0 140 WAIT10:GOTO@LP 150 @W:IF!BTN()CONT:ELSEBEEP2 160 IFBTN()CONT:ELSEBEEP5:RTN
