.key english/A,check/A,asn/A
.bra {
.ket }

; :ts=3
; DiskMount - Ask user for a diskette.
;
; Asks the user to put a given diskette into df0:, and then gives it
; a name which won't conflict with any standard assignments.
;
; Inputs:
;   english  What to ask the user for
;   check       The volume name the diskette must have
;   asn  The Assign name to give it

; If we already know how to find the requested disk, don't specifically
; ask for it again in df0:.
; Use ASSIGN EXISTS because we only care whether the name is known, not
; whether the diskette is accessible at the moment (if it isn't a DOS
; requester will remedy the situation).

ASSIGN >NIL: {asn} exists
if NOT WARN
    SKIP havedisk
ENDIF

LAB volagain

ECHO "*NBitte legen Sie die *E[;1m{english}*E[m-Diskette " NOLINE
ECHO "ins Laufwerk *E[;1mdf0:*E[m*NDrücken Sie RETURN zur Bestätigung, oder N um abzubrechen.  " NOLINE

INSTUTIL ask ""
IF WARN
    SKIP wrapup
ENDIF

ASSIGN PSInstVCheck: ""
CD df0:
CD >RAM:PSInstall/VolumeCheck
CD PSInstVCheck:
ASSIGN PSInstVCheck:

C:SETENV >NIL: <RAM:PSInstall/VolumeCheck PSInstVC ?
IF NOT $PSInstVC eq {check}
    ECHO "*NFalsche Diskette. Bitte legen Sie die Richtige ein."
    SKIP BACK volagain
ENDIF

ASSIGN {asn} df0:       ; Hook we can use when disk has been removed

LAB havedisk