.SETS N "N"
.SETS R "R"
.10:
.SETS LIST "/SY:RWE/OW:RWE/GR:RWE/WO:R"
.ASKS DRIVE ENTER DRIVE(0,1,2)
.ASKS UIC   ENTER UIC W/BRACKETS
.ASK PRIV SPECIAL PRIVILEGES
.IFF PRIV .GOTO 20
.ASKS LIST ENTER PRIVILEGES
.20:
.ENABLE SUBSTITUTION
!
.ASKS NAME ENTER FILE NAME
!
.ASK ALL ALL TYPES
.IFT ALL .SETS TYPE "*"
.IFF ALL .ASKS TYPE ENTER TYPE
PIP DP'DRIVE':'UIC''NAME'.'TYPE';*/PR/SY:RWED/OW:RWED
PIP DP'DRIVE':'UIC''NAME'.'TYPE'/PU
PIP DP'DRIVE':'UIC''NAME'.'TYPE';1/RE=DP'DRIVE':'UIC''NAME'.'TYPE';*
PIP DP'DRIVE':'UIC''NAME'.'TYPE';*/PR'LIST'
.DISABLE SUBSTITUTION
!
! 'R'EPEAT DRIVE AND UIC, 'N'EW, 'X'IT
!
.ASKS ACTION ACTION
.IF ACTION EQ N .GOTO 10
.IF ACTION EQ R .GOTO 20