$JOB/PASS:KLUTZ SYSTEM 01 1200
$MOUNT DK2 DECUS
$SET DEF DK2:[150,300]
$ON ERROR CONTINUE
$FOR/SW:(/CO:20) ADVINIT
!f4p ADVADV;1,ADVADV;1/-sp=ADVADV/wf:3
$FOR/SW:(/I4/CO:20) ADVENT
$FOR/SW:(/I4/CO:20) ADVIOSUB
$FOR/SW:(/WF:3/CO:20) ADVRKB
$FOR/SW:(/I4/CO:20) ADVASUB
$LINK/OPTIONS/OVERLAY:ADVENT/TASK:ADVENTURE
ACTFIL=3
STACK=128
FMTBUF=0
UNITS=6
/
$EOJ