.ENABLE GLOBAL
.ENABLE SUBSTITUTION
.SETS FILE1 "GRFS.DAT"
;
;
;  THIS COMMAND FILE HELPS YOU RUN
;  THE GRFS FEE CALCULATION PROGRAM
;
;
.ENABLE QUIET
.ASK E DO YOU WANT TO USE THE DATAENTRY PROGRAM
.IFF E .GOTO X
LDATA
.X:
.ASKS FILE WHAT IS YOUR DATA FILENAME (DEFAULT GRFS.DAT)
.IF <STRLEN> >0 .GOTO NEXT
.SETS FILE FILE1
.NEXT:
.ASK F DO YOU WANT TO EDIT YOUR DATA FILE
.IFF F .GOTO Y
EDT 'FILE'
.Y:
PIP 'FILE1'/NV='FILE'
.ASK S DO YOU WANT TO RUN THE PROGRAM
.IFF S .GOTO BYE
RUN GRFS
.Z:
.SETN N 1.
XEROX GRFS.FIS
.ASKN [::N]  P HOW MANY COPIES DO YOU WANT (DEFAULT 1)
.MORE:
.SETN V 1.
.MO:
.TESTFILE GRFS.RPT;'V'
.IF <FILERR> = 230. .GOTO COP
XEROX GRFS.RPT;'V'
.SETN V V+1.
.GOTO MO
.COP:
.SETN N N+1.
.IF N LE P .GOTO MORE
.BYE:
.SETN N N-1.
.SETN V V-1.
.DISABLE QUIET
;  'N' COPIES OF 'V' REPORTS SENT TO THE XEROX
.ENABLE QUIET
PIP GRFS.RPT;*/DE
PIP  GRFS.DAT;*/DE
PIP 'FILE';*/DE
