Listing of file='VDETCH1' on disk='vmedia/731-8011A.wvd.zip'
# Sector 825, program filename = 'VDETCH1'
0004 REM % (c) Copyright Wang Laboratories, Inc. 1986
0005 REM % DEASSIGN DMS UTILITY-"VDETCH1" ** Nori Odoi ** Rev. 0.008 * 8/29/86
**
0010 DIM T$16,V0$1,H$4
: H$=HEX(0204020E)
0020 PRINT HEX(03);AT(0,17);"***** D E T A C H D M S / V D I S K *****";AT(
12,23);H$;"Have you logged off the VS? (Y/N)";HEX(0F);
0025 KEYIN V0$
: T=POS("YyNn"=V0$)
: ON T+1 GOTO 25,50,50,30,30
0030 REM % Return to WSE
: PRINT AT(12,0,80);AT(22,0);H$;"Please logoff from VS before continuing";A
T(23,0);"Press any key to return to Workstation Emulation";HEX(060F);
: KEYIN V0$
: A3$="S"
: LOAD T"DMSRES"
0050 REM % Detach DMS
: PRINT AT(12,0,80)
: GOSUB '41
: IF V0$<>HEX(01) THEN 60
: PRINT AT(22,0,80);H$;"Could not detach DMS because VDISKS still assigned"
;AT(23,0,80);"Press any key to terminate Workstation Emulation";HEX(060F)
;
: KEYIN V0$
: LOAD T"TERMWSE"
0060 PRINT AT(22,0);H$;"DMS/VDISK detached";HEX(060F);
: FOR I=1 TO 3600
: NEXT I
: LOAD T"TERMWSE"
0120 REM % **** DEFFN'41 - DEASSIGN\A0DMS
0122 REM / **** Response =HEX(00) if error, =nonzero if done ***
0123 DEFFN'41
: T$=" "
: STR(T$,7,1)=HEX(51)
: STR(T$,6,1) = BIN(#PART-1) AND HEX(0F) OR HEX(50)
: $OPEN #4
: $GIO #3 (4660 4270 8701, T$)
: $CLOSE#4
0124 V0$=STR(T$,1,1)
: RETURN
8100 DEFFN'41
: REM construct command & hog VDISK
: STR(A$,7,1)=HEX(51)
: STR(A$,6,1) = BIN(#PART-1) AND HEX(0F) OR HEX(50)
: $OPEN #4
: $GIO #3 (4660 4270 8701, A$)
: $CLOSE#4
8101 V0$=STR(A$,1,1)
: RETURN
9989 REM % *********************** Useful Text Constants *********************
9996 DEFFN '18 "LIST SD "
9999 DEFFN '31 "SCRATCH T";HEX(22);"VDETCH1";HEX(22);": SAVE T()";HEX(22);"VD
ETCH1";HEX(22)