; COMMAND FILE TO BACKUP DISK DIRECTORY AT END OF DEVICE. ; .ENABLE SUBSTITUTION .IF P1 NE "" .GOTO ASSIGN .ASKS [1:3:"DY0"] P1 WHAT DEVICE FOR DIRECTORY BACKUP? .ASSIGN:.PARSE P1 ":" P1 AS 'P1' ONE .PARSE P1 "01234567" DEV .IF DEV EQ "DL" .GOTO RL02 .IF DEV EQ "DA" .GOTO RL02 .IF P2 NE "" .GOTO DSDD .ASKS [4:4:"DSDD"] P2 WHAT IS DEVICE TYPE [RX01,RX02,DSDD]? .GOTO DSDD .RL02: CREATE ONE:DIR.BAD/ALL:68./STA:20382. COPY/DEV/NOQ ONE:/START:0./END:67. 'P1':/STA:20382. DIF/BIN ONE:/STA:0./END:67. ONE:/STA:20382./END:20449. .GOTO END .DSDD: .IF P2 NE "DSDD" .GOTO RX02 CREATE ONE:DIR.BAD/ALL:8./STA:1968. COPY/DEV/NOQ ONE:/START:6./END:13. 'P1':/STA:1968. DIF/BIN ONE:/STA:6./END:13. ONE:/STA:1968. .GOTO END .RX02: .IF P2 NE "RX02" .GOTO RX01 CREATE ONE:DIR.BAD/ALL:8./STA:980. COPY/DEV/NOQ ONE:/START:6./END:13. 'P1':/STA:980. DIF/BIN ONE:/STA:6./END:13. ONE:/STA:980. .GOTO END .RX01: .IF P2 NE "RX01" .GOTO BAD CREATE ONE:DIR.BAD/ALL:2./STA:492. COPY/DEV/NOQ ONE:/START:6./END:7. 'P1':/STA:492. DIF/BIN ONE:/STA:6./END:7. ONE:/STA:492. .END: .STOP