ヒット＆ブローです。マニュアルを見ながら何とかここまで出来ました。
自分は、プログラムの初心者なもんでソースが汚いんです。
「ここをこうしたらいい」とか「この命令は必要ない」とかアドバイスください。

;--------------------画面の表示とランダムな４桁設定------------------------
screen 0,450,480,1,40,40
color 0,0,0 : boxf
color 255,255,255
pos 30,10
mes "４桁バラバラの数字を入力してEnterを押してください"
x=50 : y=60
pos x,y : mes "回数"
pos x+50,y : mes "入力数値"
pos x+150,y : mes "ヒット"
pos x+250,y : mes "ブロー"

randomize
rnd c4keta,9;comが決めた４桁目
*c3
rnd c3keta,9
*c2
rnd c2keta,9
*c1
rnd c1keta,9

if c4keta=c3keta: goto *c3
if (c4keta=c2keta)|(c3keta=c2keta) :goto *c2
if (c4keta=c1keta)|(c3keta=c1keta)|(c2keta=c1keta):goto *c1