; 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 "0" DEV .PARSE DEV "1" DEV .PARSE DEV "2" DEV .PARSE DEV "3" DEV .IF DEV EQ "DL" .GOTO RL02 .IF DEV EQ "DA" .GOTO RL02 .IF DEV EQ "DU" .GOTO MSCP .IF P2 NE "" .GOTO DSDD .ASKS [4:4:"DSDD"] P2 WHAT IS DEVICE TYPE [RX01,RX02,DSDD]? .GOTO DSDD .MSCP: CREATE ONE:DIR.BAD/ALL:68./STA:65467. COPY/DEV/NOQ ONE:/START:0./END:67. 'P1':/STA:65467. DIF/BIN ONE:/STA:0./END:67. 'P1':/STA:65467./END:65534. .GOTO END .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. 'P1':/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. 'P1':/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. 'P1':/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. 'P1':/STA:492. .GOTO END .BAD: ; DEVICE NOT FOUND! .END: