image of READY prompt

Wang2200.org

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)