DEFINE FT10,.IN
DEFINE FT11,.OUT
RUN LOGOSZ
TST12ALOS
TST12ALST
TST12AZOB
SEND TST12ALST
RUN LOGOSZ
TST12BLOS
TST12BLST
TST12BZOB
SEND TST12BLST
RUN LOGOSZ
TST12CLOS
TST12CLST
TST12CZOB
SEND TST12CLST
RUN LOGOSZ
TST12DLOS
TST12DLST
TST12DZOB
SEND TST12DLST
EDIT TST12LNKC
D*
I/ZREL=0000
NOUN=0200
DATA=1000
CODE=2000
TST12AZOB
CODE=3000
TST12BZOB
CODE=4000
TST12CZOB
CODE=5000
TST12DZOB
/E
LIST TST12LNKC
RUN LOLINKZ
TST12LNKC
TST12ZRUN
TST12MAP
SEND TST12MAP
LIST TST12ZRUN,.LP
DESTROY TST12ZRUN
DESTROY TST12LNKC
CLEAR
RUN RBLISTZ
TST12AZOB
TST12ALST
TST12BZOB
TST12BLST
TST12CZOB
TST12CLST
TST12DZOB
TST12CLST

SEND TST12ALST
SEND TST12BLST
SEND TST12CLST
SEND TST12DLST