ALL DY1:
ALL DY0:
INI DY0:BIBSAUV0
MOU DY0:BIBSAUV0
UFD DY0:[204,100]
SET /UIC=[204,100]
PIP DY:=DL1:CODCLE.BIB
PIP DY:=DL1:AUTALPH.BIB
PIP DY:=DL1:ABBAUT.BIB
PIP DY:=DL1:NONINDX.BIB
PIP DY:=DL1:FICHKILL.BIB
DMO DY:
;ENLEVER LA DISQUETTE 0 ET EN REMETTRE 1,ET 1 EN DY1:
.PAUSE
INI DY0:BIBSAUM1
MOU DY0:BIBSAUM1
UFD DY0:[204,100]
INI DY1:BIBSAUM2
MOU DY1:BIBSAUM2
UFD DY1:[204,100]
RUN DL1:[4,100]BIBSAVMOT
DMO DY1:
.ENABLE SUBSTITUTION
.100: .ASKS N Numero de disquette BIBSAUVn
INI DY1:BIBSAUV'N'
MOU DY1:BIBSAUV'N'
UFD DY1:[204,100]
RUN DL1:[4,100]BIBSAVFIC
DMO DY1:
.ASK REP Est-ce fini
.IFF REP .GOTO 100
SET /UIC=[4,100]
