Listing of file='RESUMWSE' on disk='vmedia/731-8011A.wvd.zip'
# Sector 762, program filename = 'RESUMWSE' 0010 REM RESUMWSE 10DEC86 REV 1.00 0011 REM % (c) Copyright Wang Laboratories, Inc. 1986 0020 REM PROGRAM NAME - RESUME 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 resume the suspended emulation associated 0080 REM with the current partition. 0090 REM 0091 REM ************ COMMON VARIABLES ******************* 0092 REM 0093 REM SEE PROGRAM FILE 'WSESTART' FOR LIST OF COM VARIABLES 0094 REM 0095 REM ************* LOCAL VARIABLES ******************* 0096 REM 0097 REM Q$ - WORK BUFFER USED IN $GIO SEQUENCES 0098 REM 0100 REM VARIABLES : COM A$4, A$(24)80, Q1, Q2, Q3, Q4, T$(16), T1$(16), Q1$(25)80, P(2),K9$1, T5$(6)20, T6$(1)20, A1$(10)1 0110 PRINT HEX(03);AT(12,30);"Resuming WorkStation Emulation" 0120 REM RESUME EMULATION 0130 INIT (00) Q$,K9$ : STR(Q$,3,2)=HEX(0003) 0140 STR(Q$,6,1) = BIN(#PART-1) AND HEX(0F) OR HEX(30) 0150 STR(Q$,7,1) = HEX(34) 0160 $OPEN #2 : $GIO #2 (4660 4270 0100 0200 8B12 EFFF 8703 8704 1800 C340 01FF 0600, Q$) STR(Q1$(),1,VAL(STR(Q$,3,2),2)-2) : $CLOSE#2 0170 IF STR(Q$,1,1) = HEX(00) THEN 225 : REM NO SUSPENDED EMULATION ASSIGNED TO THIS PARTITION" 0180 A$=STR(Q1$(),4,4) 0190 A$() = STR(Q1$(),8) 0195 IF STR(Q1$(),1938,2) = HEX(0000) THEN 197 : P(1) = VAL(STR(Q1$(),1938,1)) : P(2)=VAL(STR(Q1$(),1939,1)) 0197 REM DEFINE SCREEN TABS : STR(A1$(),1,10)=STR(Q1$(),1928,10) 0200 Q1=1 : Q2 =24 : Q3,Q4=1920 0210 PRINT HEX(03) 0220 LOAD T "WSE-EMUL" BEG 1000 0225 LOAD RUN "VS.START" 0230 DEFFN'31 "SCRATCH T ";HEX(22);"RESUMWSE";HEX(22);":SAVE T () ";HEX(22);"R ESUMWSE";HEX(22)