.ENABLE SUBSTITUTION
.IFNLOA VD: LOA VD:
.ASKS DR ENTER MASTER VIRTUAL DISK (DR, DR1, DR2, <CR> IF NO MORE)
.IF <STRLEN> LE 0 .GOTO VDNO
.SETS XDR DR[<STRLEN>:<STRLEN>]&":"
.IF XDR NE ":" .SETS DR DR+":"
SET /PUB='DR'
MOU 'DR'/OVR
.ASK CR ACCESS VIRTUAL DISKS
.IFF CR .GOTO VDCREA
.VDAGN:
;
.ASKS VD ENTER VIRTUAL DISK FILE NAME TO ACCESS (<CR> IF NO MORE)
.IF <STRLEN> LE 0 .GOTO VDCREA
PIP 'DR'[0,0]'VD'.DSK/UN
AVD 'DR'[0,0]'VD'
.ASKN VDNUM ENTER VD NUMBER
SET /PUB=VD'VDNUM':
MOU VD'VDNUM':/OVR
.GOTO VDAGN
.VDCREA:
.SETT INI
.ASK CR CREATE VIRTUAL DISKS
.IFF CR .GOTO CRNO
.IFNINS INI .SETF INI
.IFF INI INS $INI
.CRLOOP:
;
.ASKS VD ENTER VIRTUAL DISK FILE NAME TO CREATE (<CR> IF NO MORE)
.IF <STRLEN> LE 0 .GOTO CRNO
.ASKN [50.:65535.:4800.] VDSZ ENTER SIZE IN BLOCKS
AVD 'DR'[0,0]'VD'/CR:'VDSZ'
.ASKN [0:17:0] VDNUM ENTER ABOVE VD UNIT NUMBER
ALL VD'VDNUM':
.ASKN [10.:26500.:500.] INF ENTER MAX NUMBER OF FILES
.SETD MXF
.SETN MXF INF+6
INI VD'VDNUM':'VD'/INDX=BEG/MXF='MXF'./INF='INF'.
DEA VD'VDNUM':
SET /PUB=VD'VDNUM':
MOU VD'VDNUM':'VD'
.GOTO CRLOOP
.CRNO:
.IFF INI REM INI
;
AVD /LI
;
