BASIC-G命令

BASIC-Gのマニュアルから抜粋

ジョイパッド

ON JOY GOSUB

ジョイパッドが押されると割り込み先へ実行を移します。割り込み先のプログラムで、行番号350のようにJOY関数を使えばジョイパッドが押された方向を知ることができます。

100! joy test
110 print "USL" ← 制御コード
120 erase
130 on joy gosub $JOY
140 on key gosub $KEY
150 joy on:key on:move on ← 割り込み許可
160! main
170 gosub $SP.ST
180 gosub $SP.MOVE
190 end
200$SP.ST
210 scod 0,&E1
220 scol 0,&05
230 loc 0 to 0,0
240 mag 0
250 return
260$SP.MOVE
270 for I=0 to 360 step 10
280 X=sin(50,I):Y=cos(50,I)
290 move 0 to x+128,Y+98+I
300 if status(0)=0 then goto 320
310 goto 300
320 next I
330 goto 260
340$JOY
350 J=joy(0):S=2
360 on J+1 goto $JN,$J1,$J2,$J3,$J4,$J5,$J6,$J7,$J8
370$JN:return
380$J1:move 0 step  0,-S,1:return
390$J2:move 0 step  S,-S,1:return
410$J3:move 0 step  S,0,1:return
420$J4:move 0 step  S,S,1:return
430$J5:move 0 step  0,S,1:return
440$J6:move 0 step -S,S,1:return
450$J7:move 0 step -S,0,1:return
460$J8:move 0 step -S,-S,1:return
460$KEY
470 move 0 on 0,0
480 return
		

Joy(X)

Xで指定されたジョイパッドの状態を与えます。

X:0=左(#1), 1=右(#2)

結果:0=ニュートラル, 1=上, 2=右上, 3=右 ... 7=左, 8左上

Asw(X)

Xで指定されたジョイパッド上のアタックスイッチの状態を与える。Xの指定方法はJoy(X)と同じです。

アタックスイッチの状態は4ビットパターンで与えられ、複数個のスイッチストロークを知ることができます。