Listing of file='TERMWSE' on disk='vmedia/731-8011A.wvd.zip'
# Sector 476, program filename = 'TERMWSE'
0010 REM TERMWSE 10DEC86 REV 1.00
0011 REM % (c) Copyright Wang Laboratories, Inc. 1986
0020 REM PROGRAM NAME - TERMINATE WORKSTATION EMULATION
0030 REM DATE OF FIRST CODE - 05 FEBRUARY 1986
0040 REM
0050 REM
0060 REM FUNCTION -
0070 REM This module is used to terminate an emulation associated
0080 REM with the current partition.
0090 REM
0110 PRINT HEX(03);AT(12,30);"Terminating Workstation Emulation"
0120 REM TERMINATE EMULATION
0130 STR(Q$,6,1) = BIN(#PART-1) AND HEX(0F) OR HEX(30)
0140 STR(Q$,7,1) = HEX(36)
0150 $OPEN #2
: $GIO #2 (4660 4270 8701, Q$)
: $CLOSE#2
0160 IF STR(Q$,1,1) = HEX(00) THEN 182
: REM CAN'T TERMINATE EMULATION FOR THIS PARTITION"
0170 REM SUCCESSFUL RETURN TO CALLING MENU
0180 LOAD RUN "VS.START"
0182 PRINT
: PRINT "TERMINATE UNSUCCESSFUL. STRIKE ANY KEY TO RETURN TO VS SERVICES M
ENU."
0184 KEYIN STR(Q$,1,1)
0186 LOAD RUN "VS.START"
0190 DEFFN'31 "SCRATCH T ";HEX(22);"TERMWSE";HEX(22);":SAVE T () ";HEX(22);"TE
RMWSE";HEX(22)