Listing of file='ISS.000M' on disk='vmedia/701-2423D.wvd.zip'
# Sector 29, program filename = 'ISS.000M'
0010 REM ISS.000M, RELEASE 5-1, (11/07/79) - THIS PROGRAM IS A COPYRIGHT PROD
UCT OF WANG LABS. INC., UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED
0050 COM Q1,Q1$8,S,S0,S1,S2,S3,S$3,S$(27)3,S1$64,S8$11,S9$11
: DIM B$(3)83,C$(48)3
0120 % THIS MUST BE STATEMENT 120
0360 PRINT HEX(0306)
: PRINT AT(6,20);"ISS RELEASE 5.1"
: S1$="ISS.200SISS.254S"
: LOAD T<LEN(S1$)/8>S1$10,0BEG 420
0420 A$=$PSTAT(#PART)
: IF STR(A$,9,1)="M"THEN S3=4
: ELSE S3=3
: IF S3=4AND STR(A$,10,1)<HEX(17)THEN 1430
: IF S3=3AND STR(A$,10,1)<HEX(19)THEN 1450
0470 PRINT AT(10,0);
: PRINT "FN AUXILARY FUNCTIONS"
: PRINT "-- -------------------------"
: PRINT "00 DISPLAY EXISTING STATIONS"
: PRINT "16 ADD NEW STATION"
0520 GOSUB '200("1","48",2,0,"ENTER STATION NUMBER",1)
: A$="ISS.000D"
: CONVERT Q9TO STR(A$,6,2),(##)
: DATA LOAD DC OPEN T#0,A$
: ERRORPRINT HEX(07)
: GOTO 520
0570 DATA LOAD DC #0,B$()
: $UNPACK(F=HEX(A0085003A003A00B))B$(1)TO Q1$,Q1,S$,S9$
: $UNPACK(F=HEX(A003))B$(2)TO S$()
: S2=Q9
: $GIO/005(7601,A$)
: A$=A$AND HEX(10)
: IF STR(A$,1,1)=HEX(10)THEN S0=80
: ELSE S0=64
: SELECT PRINT 005(S0)
: S=SPACEK
: PRINT HEX(03);"LOADING SYSTEM CONFIGURATION"
0710 LOAD T"ISS.001M"
: ERRORGOTO 720
0720 PRINT HEX(010A);"MOUNT ISS DISK AT ADDRESS ";S$
: GOSUB '254
: GOTO 710
0780 DEFFN'0
: RETURN CLEAR
0810 C$()=" "
: PRINT HEX(030A);"SEARCHING FOR ACTIVE STATIONS"
: A$="ISS.000D"
: FOR I=1TO 48
: CONVERT ITO STR(A$,6,2),(##)
: LIMITS T#0,A$,A,A,A,A
: IF A<>2THEN 930
: IF C$()=" "THEN C$()=STR(A$,6,2)
: ELSE C$()=C$()&","&STR(A$,6,2)
: PRINT AT(14,0);"EXISTING STATIONS = ";
: FOR J=1TO 48
: PRINT C$(J);
: NEXT J
0930 NEXT I
0950 GOSUB '200("0","48",2,0,"ENTER STATION NUMBER TO REVIEW DEFAULTS (0 = E
ND)",1)
: IF Q9=0THEN 1150
: CONVERT Q9TO STR(A$,6,2),(##)
: DATA LOAD DC OPEN T#0,A$
: ERRORPRINT HEX(07)
: GOTO 950
0990 DATA LOAD DC #0,B$()
: $UNPACK(F=HEX(A0085003A003A00B))B$(1)TO Q1$,Q1,S$,S9$
: $UNPACK(F=HEX(A003))B$(2)TO S$()
: PRINT AT(4,22);"( STATION #";Q9;") "
: PRINT AT(6,0);
: PRINT TAB(5);"1 DATE - ";Q1$
: PRINT TAB(5);"2 PRINTER ADDRESS - ";STR(S$(1));TAB(80)
: PRINT TAB(5);"3 DISK ADDRESSES - ";
: FOR I=2TO 9
: PRINT STR(S$(I));" ";
: NEXT I
1100 PRINT TAB(80);
: PRINT TAB(5);"4 LOADING ADDRESS - ";S$
: PRINT TAB(5);"5 MENU TO LOAD - ";S9$;TAB(80)
: GOTO 950
1150 PRINT HEX(03)
: GOTO 470
1200 DEFFN'16
: RETURN CLEAR
1220 PRINT HEX(03)
: LIMITS T#0,"ISS.000D",A,A1,A1,A1
: IF A1<>2THEN 1410
: GOSUB '200("1","48",2,0,"ENTER STATION NUMBER TO CREATE",1)
: A$="ISS.000D"
: CONVERT Q9TO STR(A$,5,3),(###)
: DATA SAVE DC OPEN T#0,(12)A$
: ERRORPRINT HEX(07)
: GOTO 1220
1310 DSKIP #0,10S
: DATA SAVE DC #0,END
: PRINT HEX(03);"CREATING STATION #";Q9
: LIMITS T#0,A$,A0,A1,A1,A1
: COPY T#0,(A,A+9)TO T#0,(A0)
: PRINT HEX(03)
: GOTO 470
1410 Q6$="MASTER DEFAULT FILE NOT AVAILABLE"
: GOTO 1460
1430 Q6$="MVP OPERATING SYSTEM RELEASE 1.7 (MINIMUM) REQUIRED"
: GOTO 1460
1450 Q6$="VP OPERATING SYSTEM RELEASE 1.9 (MINIMUM) REQUIRED"
1460 PRINT AT(1,0,80);Q6$
: GOSUB '254
1510 DEFFN'31
1520 LOAD DC T#0,"START"
: ERRORGOTO 1530
1530 PRINT HEX(010A);"MOUNT ISS DISK AT ADDRESS ";S$
: GOSUB '254
: GOTO 1520