@program sheet.ffa2rps.muf
1 10000 d
i
$include $lib/rp
$include $lib/alynna
lvar param
lvar cgstage
$def }yerf }cat "FFa2.Chargen" pretty tellme
$def }oyerf }cat "FFa2.Chargen" pretty tellhere

: main
param !
me @ "cgstage" getstat cgstage !
{ target @ unparseobj }cat header tellme

{ "FF }cat footer tellme
opt @ "Q" smatch until
;
.
c
q