.ENABLE ESCAPE
;COMPILE
.ASK REC RECEIVE
.IFT <ESCAPE> .GOTO TASK
.ASK RET RETLN
.ASK RIN RINIT
.ASK FDB RFDB
.ASK AST AST
.IFT REC F4P RECEIVE=RECEIVE
.IFT RET F4P RETLN=RETLN
.IFT RIN F4P RINIT=RINIT
.IFT FDB MAC RFDB=RFDB
.IFT AST MAC AST=AST
.ASK TKB TASKBUILD
.IFF TKB .EXIT
.TASK:
TKB @REC2BLD
.IFACT RECEIV ABO RECEIV
REM RECEI2
INS RECEIVE2/CKP=NO