0
IF
if p(v4) then '1' fi
CORREC
'????'
mpu,"^A"v3^0,,"^B"v4
"IDD="v3^0

REP
691
F
(if p(v691) then v691,if a(v691^S) and &uf('+97',v691^I)=&uf('Av1001^A#1') then '^S',&uf('Av1001^B#1') fi fi/)

DEL
1001
*


END
FI