Listing of file='STARTWSE' on disk='vmedia/731-8011A.wvd.zip'
# Sector 746, program filename = 'STARTWSE'
0010 REM STARTWSE 10DEC86 REV 1.00
0011 REM % (c) Copyright Wang Laboratories, Inc. 1986
0020 REM PROGRAM NAME - START 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 start a workstation emulation to be
0080 REM associated 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);"Starting WorkStation 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(30)
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 3010
: REM CAN'T START A NEW EMULATION FOR 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
0230 DEFFN'31 "SCRATCH T ";HEX(22);"STARTWSE";HEX(22);":SAVE T () ";HEX(22);"S
TARTWSE";HEX(22)
3000 REM PROBLEM IN SCRREN COMMUNICATION BETWEEN 2258 AND THIS PROGRAM
3010 PRINT HEX(03); AT(4,0);"CANNOT START ANOTHER EMULATION FOR THIS 2258."
3030 PRINT
: PRINT "STRIKE ANY KEY TO RETURN TO VS SERVICES MENU."
3040 KEYIN STR(Q$,1,1)
3050 LOAD RUN "VS.START"