Listing of file='B327010' on disk='vmedia/bsc_3271_rel_1.14.04.wvd.zip'
# Sector 1022, program filename = 'B327010' 0010 REM B327010 12/08/82, 3270 LOADER,COPYRIGHT WANG LABS, 1980 0030 COM N$64,B$1,C$1,A,B,C : SELECT PRINT 005(80) : GOSUB 830 : SELECT @PART"3270UNIV" : IF @C$=" "THEN @Z$=" " : IF Z$=" "AND @Z$=" "THEN 1180 : IF Z$<>" "AND @Z$=" "THEN 130 : IF Z$=" "AND @Z$<>" "THEN 140 : GOSUB '99(0,"Request to load a configuration into the WANG 2200/3270 emul ator") : PRINT AT(6,0) : IF Z$<>" "AND @Z$<>" "THEN 1220 0125 STOP "Invalid Z$ and @Z$" 0130 GOSUB 2210 : @C$=" " : IF STR(Z$,1,1)="h"THEN 180 : B$=" " : N$(5)="ASK?327B" : LOAD DC T#0,N$(4) 0140 W$=@W$ : Z$=@Z$ : GOSUB 2210 : N$(5)="ASK?327A" : LOAD DC T#0,N$(4) 0180 @P$(5)=" " : STR(@P$(5),24)="None" : STR(@P$(5),41)="No Spooling" : B$="L" : LOAD DC T#0,"B327020" 0830 A=0 0840 A=A+1 : A$=$PSTAT(A) : ERRORGOTO 860 0845 IF STR(A$,17,8)<>"3270 MCT"THEN 840 : IF STR(A$,12,1)<HEX(03)THEN 1170 : RETURN 0860 IF A>1THEN 1200 : RETURN 0900 DEFFN'15 : PRINT HEX(03),,"Active 2200 system configuration" : A=0 : PRINT ,". . . . . . . . 9 10 1 2 3 4 5 6 7 8 920 1 2 3 4 5 6 7 8 9" 0930 A$=$PSTAT(A+1) : ERRORGOTO 1060 0940 PRINT "Partition ";A+1;" =", : HEXPRINT STR(A$,1,29) : PRINT STR(A$,9,1);" BASIC Release ";HEXOF(STR(A$,10,1));" "; : PRINT " Memory bank=";HEXOF(STR(A$,11,1)); : PRINT " Size = ";HEXOF(STR(A$,12,1));" K"; : PRINT " Prog=";STR(A$,14,1); : PRINT " Term = ";HEXOF(STR(A$,15,1)); : PRINT " Status=";STR(A$,16,1); : PRINT "Global name=";STR(A$,17,8); 1020 PRINT " Last error=";HEXOF(STR(A$,25,1)) : PRINT : A=A+1 : GOTO 930 1060 PRINT A;" Partitions configured"; : B=#PART : PRINT " This is Partition";B, : C=#TERM : PRINT " Terminal ";C : PRINT : PRINT "MCT task should load into Partition ";A;" which is now assigned" : PRINT "Global name=";STR(A$,17,8); : PRINT " Size = ";HEXOF(STR(A$,12,2)); : PRINT " Status=";STR(A$,16,1); 1130 PRINT " Term = ";HEXOF(STR(A$,15,1)) : RETURN 1170 PRINT HEX(03) : STOP "MCT partition does not have sufficient memory" 1180 GOSUB '99(5,"No cluster is loaded") 1190 LOAD DC T#0,N$(1) 1200 GOSUB '99(20,"MCT task is not loaded into Background partition") 1210 LOAD DC T#0,N$(1) 1220 PRINT HEX(0E);BOX(1,79);" MCT Task already loaded","The configuration req uested is "; : IF Z$<>@Z$THEN 1255 : PRINT "the same" : GOTO 1290 1255 PRINT "different " : PRINT TAB(12);"Printers";TAB(38);"Prompts";TAB(53);"Stations" : PRINT "New = ";Z$ : PRINT "Loaded = ";@Z$ 1290 PRINT : C$=" " : PRINT "Key '0 to Abort to START" : PRINT "Key L to Load system anew" : PRINT "Key A to Attach to the system already loaded" 1330 KEYIN C$,,1340 : GOTO 1360 1340 IF C$<>HEX(00)THEN 1330 : PRINT "'00" : GOTO 1210 1360 IF C$="L"THEN 1370 : IF C$="A"THEN 1375 : GOTO 1330 1370 PRINT "Loading anew" : GOTO 130 1375 PRINT "Attach" : GOTO 140 2210 A$="0" : STR(A$,2)=STR(Z$,25,2) : SELECT #6<STR(A$,1,3)> : $IF ON #6,2230 : ERRORGOTO 2300 2230 ADD(STR(A$,2,1),08) : SELECT #7<STR(A$,1,3)> : $IF ON #7,2270 : ERRORGOTO 2300 2270 RETURN 2300 STR(A$,5)="T.C. Board address has not been configured into device table" : GOSUB '99(5,A$) : GOTO 1190 9390 DEFFN'99(A,A$) : PRINT HEX(03);BOX(5,79);HEX(0A0A0E);TAB(40-LEN(A$)/2);A$ : IF A=0THEN RETURN : SELECT P2 : FOR A=ATO 0STEP -1 : PRINT A;HEX(0C) : NEXT A : SELECT P : RETURN