.ENABLE SUBSTITUTION
.DISABLE DATA
;
; INDIRECT MCR COMMAND FILE TO BUILD PASCAL RELEASE TAPE
;
.ASKS D <ENTER DISK DRIVE OF RELEASE PACK AS DKN:>
MOU 'D'PASCAL
.ASKS M <ENTER TAPE DRIVE OF RELEASE TAPE AS MTN:>
MOU 'M'/CHA=[FOR]
;
; MAKE SURE EVERYTHING IS PEACHY
;
.ASK A <IS EVERYTHING READY???>
.IFF A .GOTO 999
;
; STARTING GENERATION OF RELEASE TAPE
;
FLX 'M'/ZE
UIC [70,1]
FLX 'M'/DO=*.*/RS
UIC [70,2]
FLX 'M'/DO='D'*.*/RS
UIC [70,4]
FLX 'M'/DO='D'*.*/RS
UIC [70,7]
FLX 'M'/DO='D'*.*/RS
UIC [70,16]
FLX 'M'/DO=*.*/RS
FLX LP:='M'[*,*]/DI
DMO 'M'
DMO 'D'
;
; RELEASE TAPE HAS BEEN GENERATED
; DIRCTORY LISTING IS ON THE PRINTER
;
;   [END OF BUILDREL.CMD]