TIM
.ASK C IS TIME AND DATE CORRECT
.IFF C .GOTO 200
.ASK T DO YOU WANT OWNERSHIP LISTING
PIP SX:PRNT1.DAT;*,SX:PRNT2.DAT;*,SX:PRNT4.DAT;*/DE/NM
PIP LIBR.BKU;1/DE/NM
PIP LIBR.BKU;1=LIBR.BKU;2/RE/NM
PIP SX:SCRATCHES.;/SP
PIP SX:RESERVES.;/SP
INS $SORT/TASK=...SRT
SRT SX:INV=SX:SCRATCHES.;/FO:F:80/KE:7.5
RUN SX:[5,10]TALIB1
PIP SX:PRNT1.DAT/SP
SRT SX:INV=SX:RESERVES.;/FO:F:80/KE:7.5
RUN SX:[5,10]TALIB2
PIP SX:PRNT2.DAT/SP
.IFF T .GOTO 100
SRT SX:XTN=SX:INMAS/FO:F:80/KE:67.5:1.5:13.35:7.5
RUN SX:[5,10]TALIB4
PIP SX:PRNT4.DAT/SP
.100:
PIP SX:INMAS.DAT;*,INV.DAT;*,XTN.DAT;*/DE/NM
PIP LIBR.BKU;2=LIBR.DAT;-1/RE
PIP LIBRY.DAT;*/DE/NM
!
!   ****  JOB FINISHED   ****
.GOTO 300
.200:
!
!         HAVE TIME CORRECTED
.300: