;***************** BEGIN PLOT PROCESSING **************************
;
TIME
;
.ENABLE SUBSTITUTION
DEA MM:
DMO MM:/DEV
ALL MM:
INS $PLOT/TASK=...PLT/CKP=YES
.ASKS FILE ENTER PLOT FILE NAME
.GETV:
.ASKN N ENTER LOWEST VERSION TO BE CONVERTED
.ASKN M ENTER HIGHEST VERSION TO BE CONVERTED
.IF N GT M .GOTO GETV
.LOOP:
.IF N GT M .GOTO DONE
PLT 'FILE';'N'
.INC N
.GOTO LOOP
.DONE:
DEA MM:
REM PLT
.ASK TF WANT TO MOVE PLOT.PR FILES TO WP
.IFF TF .GOTO EXIT
PIP WP:PLOT.PR;*/DE
PIP WP:=PLOT.PR;*
PIP PLOT.PR;*/DE
;
.EXIT:
;
TIME
;
;******************* END OF PLOT PROCESSING ***************************
;    WHEN PRINTER IS FREE ENTER THESE 2 COMMANDS:
;    PIP PLOT.LST;*/SP
;    PIP PLOT.LST;*/DE
