.ENABLE SUBSTITUTION
@DEVUIC.TMP
.SETS ALL "ALL"
.SETS SMALL "all"
.SETS FTYPE "ONE"
.SETS ADDSW ""
.SETS BUILD "BUILDALL"
.ASKS FILE FILE NAME
.IF FILE EQ ALL .SETS FTYPE "ALL"
.IF FILE EQ SMALL .SETS FTYPE "ALL"
.IF FTYPE EQ ALL .ASKS BUILD BUILD FILE
.ASK LA36 HARD COPY TERMINAL
.ASKS CSN ENTER NUMBER FOR GREEK PROCESSING (/CS:N)
.IF <STRLEN> EQ 0 .SETS CSN "-1"
.ASKS ADDSW ENTER ADDITIONAL SWITCHES (/WA and/or /PA:low:high)
.OPEN '$DVUIC'RNO2.MCR
.CLOSE
.OPEN '$DVUIC'DOIT2.CMD
.CLOSE
.OPEN '$DVUIC'DOIT.CMD
.SETF NOPRO
PIP '$DVUIC'PROLOGUE.RNO/BR
.IF <EXSTAT> = <ERROR> .SETT NOPRO
.IFT NOPRO  .SETS FTYPE FILE
.IFT NOPRO .GOTO 15
.DATA COPY PROLOGUE.RNO 'FTYPE'.RNO
.IF FTYPE EQ ALL .DATA @'BUILD'.CMD
.IF FTYPE NE ALL .DATA APP 'FILE'.RNO 'FTYPE'.RNO
.IF FTYPE EQ ALL .DATA APPEND INDEX.RNO 'FTYPE'.RNO
.15:
.IFF LA36 .DATA RNO TI:'ADDSW'='FTYPE'
.IFT LA36 .DATA RNO TI:/UL:L'ADDSW'='FTYPE'/DI/CS:'CSN'
.IFF NOPRO .DATA DEL/KEEP 'FTYPE'.RNO
.CLOSE
.IFF LA36 .GOTO 1000
.100:
;
;	ALLIGN PAPER TO TOP OF FORM
;
;
.ASK ALLOK PAPER ALLIGNED OK
.IFF ALLOK .GOTO 100
.IF CSN NE "2" .GOTO 200
.190:
.ASK OK GREEK WHEEL INSTALLED
.IFF OK .GOTO 190
.200:
.IF CSN NE "1" .GOTO 1000
; CHECK LINE # 1 -----
;
; CHECK LINE # 2 -----
;
; CHECK LINE # 3 -----
;
; CHECK LINE # 4 -----
;
; CHECK LINE # 5 -----
;
; CHECK LINE # 6 -----
;
; CHECK LINE # 7 -----
;
; CHECK LINE # 8 -----
.OPEN '$DVUIC'RNO2.MCR
.DISABLE SUBSTITUTION
.DATA .ENABLE SUBSTITUTION
.DATA .ASK GREEK GO BACK FOR PASS 2 OF GREEK
.DATA .IFF GREEK .GOTO 1000
.DATA .600:
.DATA ;
.DATA ; RE-POSITION PAPER TO "TOP OF FORM" AT START OF RUN
.DATA ;
.DATA ;
.DATA .ASK PAPER PAPER RE-WOUND TO TOP OF FORM
.DATA .IFF PAPER .GOTO 600
.DATA .SETN COUNT 1
.DATA .500:
.DATA ; CHECK LINE # 'COUNT' ---------- PASS2
.DATA .INC COUNT
.DATA .ASK OK LINED UP OK
.DATA .IFF OK .GOTO 500
.DATA .550:
.DATA ;
.DATA ;					INSERT GREEK WHEEL
.DATA ;
.DATA .ASK OK 					GREEK WHEEL IN PLACE
.DATA .IFF OK .GOTO 550
.ENABLE SUBSTITUTION
.DATA .OPEN '$DVUIC'DOIT2.CMD
.DATA .DATA 					RNO TI:'ADDSW'='FTYPE'/DI/CS:2
.DISABLE SUBSTITUTION
.DATA .CLOSE
.DATA .1000:
.CLOSE
.1000: