.ENABLE SUBSTITUTION
INS $LIU
INS $PIP
.SETS TASK "NAA010"
.GOSUB DOIT
.SETS TASK "NAAB00"
.GOSUB DOIT
.SETS TASK "NAA060"
.GOSUB DOIT
.SETS TASK "NAA160"
.GOSUB DOIT
.SETS TASK "NAA070"
.GOSUB DOIT
.SETS TASK "NAA520"
.GOSUB DOIT
.SETS TASK "NAA370"
.GOSUB DOIT
.SETS TASK "NAA380"
.GOSUB DOIT
.SETS TASK "NAA300"
.GOSUB DOIT
.SETS TASK "NAA310"
.GOSUB DOIT
.SETS TASK "NAA320"
.GOSUB DOIT
.SETS TASK "NAA000"
.GOSUB DOIT
.SETS TASK "NAA800"
.GOSUB DOIT
.SETS TASK "NAA810"
.GOSUB DOIT
.SETS TASK "NAA820"
.GOSUB DOIT
.SETS TASK "NAA830"
.GOSUB DOIT
.SETS TASK "NAA170"
.GOSUB DOIT
.EXIT
.DOIT:
PIP [166,300]'TASK'.OLD/NV/RE=[166,300]'TASK'.TSK
PIP [166,300]/NV/FO=[150,300]'TASK'.TSK
LIU /TK:'TASK'/RE
INS [166,300]'TASK'/CKP=YES
LIU /TK:'TASK'/IN
REM 'TASK'
.RETURN