.ENABLE SUBSTITUTION
.SETS LI ""
.SETS MP ""
.IFDF $ASM .GOTO START
.SETF $MAP
.SETF $LIST
.IFNDF $TKB .SETF $TKB
.IFNDF $ASM .SETF $ASM
.SETF $TKB
.ASK $ASM ASSEMBLE
.IFT $ASM .ASK $LIST LIST
.IFT $LIST .SETS LI ",LP:"
.START:.IFT $ASM PIP GREP.OBJ;*/DE/NM
.IFT $ASM MAC GREP'LI'=GREP
.IFT $TKB .GOTO START2
.ASK $TKB TASKBUILD
.IFT $TKB .ASK $MAP MAP
.IFT $MAP .SETS MP ",TI:"
.START2:.IFT $TKB PIP GREP.TSK;*/DE/NM
.IFT $TKB .OPEN GREPBLD.CMD;1
.IFT $TKB .DATA GREP/CP/-FP=GREP,PRFCS,DIRDL
.IFT $TKB .DATA /
.IFT $TKB .DATA ASG=TI:2:3
.IFT $TKB .DATA ASG=SY:1
.IFT $TKB .DATA UNITS=3
.;ACTFIL=8  READ/WRITE 4 BLOCKS AT A TIME
.;.IFT $TKB .DATA ACTFIL=8	
.IFT $TKB .DATA STACK=64
.IFT $TKB .DATA TASK=...GRE
.IFT $TKB .DATA UIC=[200,200]
.IFT $TKB .DATA LIBR=FCSRES:RO
.IFT $TKB .DATA /
.IFT $TKB .CLOSE
.IFT $TKB TKB @GREPBLD
.IFT $TKB PIP GREPBLD.CMD;1/DE/NM,GREP.OBJ;1