Listing of file='SUSPEWSE' on disk='vmedia/731-8011A.wvd.zip'
# Sector 773, program filename = 'SUSPEWSE' 0010 REM SUSPWSE 10DEC86 REV 1.00 0011 REM % (c) Copyright Wang Laboratories, Inc. 1986 0020 REM PROGRAM NAME - SUSPEND WORKSTATION EMULATION 0030 REM DATE OF FIRST CODE - 05 FEBRUARY 1986 0040 REM DATE OF LATEST UPDATE - 0050 REM 0060 REM FUNCTION - 0070 REM This module is used to suspend the emulation asociated with 0080 REM the current partition. 0140 REM 0150 PRINT HEX(03);AT(12,30);"Suspending Workstation Emulation" 0200 REM SUSPEND EMULATION 0210 STR(Q$,6,1) = BIN(#PART-1) AND HEX(0F) OR HEX(30) 0220 STR(Q$,7,1) = HEX(33) 0230 $OPEN #2 : $GIO #2 (4660 4270 8701, Q$) : $CLOSE#2 0240 IF STR(Q$,1,1) = HEX(00) THEN 270 : REM NO ACTIVE EMULATION AVAILABLE TO SUSPEND 0245 PRINT HEX(03) 0260 LOAD RUN "VS.START" 0270 PRINT : PRINT "UNABLE TO SUSPEND EMULATION. STRIKE ANY KEY TO RETURN TO VS SERVI CES MENU." 0280 KEYIN STR(Q$,1,1) 0290 LOAD RUN "VS.START" 9999 DEFFN'31 "SCRATCH T ";HEX(22);"SUSPEWSE";HEX(22);":SAVE T () ";HEX(22);"S USPEWSE";HEX(22)