font "",480
dim A_Flg,100
dim B_Flg,100
dim A_X,100
dim B_X,100
repeat 100
A_X(cnt) = -300 : B_X(cnt) = 640
loop
repeat
getkey A,'A'
getkey B,'B'
if A=1 {
if A_Lock = 0{;連続で出続けるのを防止する
A_Lock = 1
repeat 100
if A_Flg(cnt) = 0 {
A_Flg(cnt) = 1 ;[A]が押されていたら[A_Flg]に1を代入する
break
}
loop
}
}else : A_Lock = 0
if B=1 {
if B_Lock = 0{
B_Lock = 1
repeat 100
if B_Flg(cnt) = 0{
B_Flg(cnt) = 1
break
}
loop
}
}else : B_Lock = 0
redraw 0
color 255,255,255 : boxf
color 0,0,0
repeat 100
if A_Flg(cnt) = 1 : A_X(cnt) + 50 ;[A_Flg]に1が代入されていたら移動を行う
if B_Flg(cnt) = 1 : B_X(cnt) - 50
if A_X(cnt) >= 640 : A_Flg(cnt)=0 : A_X(cnt) = -300 ;Aが画面から見えなくなったら[A_Flg]を0に戻す
if B_X(cnt) <= -300 : B_Flg(cnt)=0 : B_X(cnt) = 640
if A_Flg(cnt) = 1 : pos A_X(cnt),0 : mes "A" ;表示をする
if B_Flg(cnt) = 1 : pos B_X(cnt),0 : mes "B"
loop
redraw 1
await 30
loop
こういうことでしょうか?
詳しくは配列型変数について調べてください。