私のコメント、言葉足らずでしたね。失礼しました。しゅうぽんさんの最初の画像に書かれているプログラムを、一部変更するという意味のつもりでした。正確に言い直します。
2行目の「TOUCH OUT I,X,Y」を「STICK OUT SX,SY」に書き換え、さらに3行目の「IF I THEN SPOFS 0,X,Y」を「LOCATE 0,0:? X,Y」に書き換えて、他の部分はそのままで、(DIRECTモードに切り替えて)実行してください。あと、説明書で「WHILE」命令の意味を確認することもオススメします。
乱数の範囲を100にして、それぞれの割合の範囲かどうかを調べる…えー、具体的には、こうです(^^;)。
WHILE 1
Y=10
R=RND(100)+1
IF R>=1 AND R<=10 THEN Y=100
IF R>=11 AND R<=15 THEN Y=500
PRINT Y;"えん/";
WEND
実行すると、ガチャを引いて結果を表示して…を何度も繰り返します。止めたいときはSTOPボタンを押してください。
例えば、
IF (B AND 16) THEN CLS:@BEEP1
ではエラーになります。THENの次に別の命令を入れ、コロンで区切ったうえで行き先を指定する時は、GOTOは省けません。
IF (B AND 16) THEN CLS:GOTO @BEEP1
としてください。午前0時少し前のコメントです(^^)。