Listing of file='ISS.070U' on disk='vmedia/701-2423D.wvd.zip'
# Sector 497, program filename = 'ISS.070U' 0010 REM ISS.070U, RELEASE 5-1, (11/07/79) - COPYRIGHT WANG LABS. INC. 0049 COM Z9$8,Z8$8,Z1$(25)8,Z2$(25)8,Z9,Z3$(14)1 : COM M1$11,N,O$7,I1$3 : DIM Z$(3)83,E$50 : DIM D$44 0120 % THIS MUST BE STATEMENT 120 0230 S1$="ISS.200SISS.254SISS.050S" : LOAD DC T#0,<LEN(S1$)/8>S1$10,0BEG 260 0260 GOSUB '50(7) : $UNPACK(F=HEX(A003A008A00B5002A007))Z$(Z1)TO I1$,M$,M1$,N,O$ : GOSUB '60("FILE STATUS REPORT",5) : GOSUB '61("INPUT ADDRESS",I1$,"81","DISK") : GOSUB '61("MODE",M$,"82"," ") : GOSUB '61("OUTPUT OPTION",M1$,"83"," ") : GOSUB '62("STATION #",N,"84") : GOSUB '61("OUTPUT DEVICE",O$,"85"," ") 0370 GOSUB '70 : GOSUB '44 : IF M1$<>"CLOSE"AND P$="P"AND O$="PRINTER"THEN 560 : SELECT #1<I1$> : GOSUB '42(M$) : IF M1$="CLOSE"THEN GOSUB 660 0480 LOAD DC T#0,"ISS.071U" : ERRORGOTO 520 0520 PRINT HEX(07);AT(1,0,S0);"MOUNT ISS DISK AT ";S$ : GOSUB '254 : F9$="M" : GOTO 480 0560 PRINT HEX(010A07);"PRINTER REQUIRED" : GOSUB '254 : GOTO 370 0600 DEFFN'15 : RETURN CLEAR ALL 0615 PRINT AT(3,0,S0); : GOTO 370 0660 PRINT AT(10,0,S0);"WARNING: All "; : IF M$<>"ALL"THEN PRINT "specified "; : PRINT "muxed data files at address ";I1$;" will be closed "; : IF N=0THEN PRINT "for all stations." : ELSE PRINT "for station";N;"." : GOSUB '254 : PRINT AT(10,0,) : RETURN 0770 DEFFN'81 : GOSUB '40("ENTER INPUT ADDRESS") : Z$,I1$=Z1$ : RETURN 0820 DEFFN'82 : PRINT AT(13,0);"1 - ALL 3 - RANGE" : PRINT "2 - PART 4 - INDIRECT" : GOSUB '200("1","4",1,0,"ENTER OPTION",1) : D$="ALL PART RANGE INDIRECT" : Z$,M$=STR(D$,Q9*8-7,8) : PRINT AT(13,0,2*S0) : RETURN 0950 DEFFN'83 : PRINT AT(13,0);"1 - CLOSE FILE 3 - LIST STATUS MUX'D FILE" : PRINT "2 - LIST STATUS ANY FILE 4 - LIST STATUS OPEN FILE" : GOSUB '200("1","4",1,0,"ENTER OPTION",1) : D$="CLOSE LIST ANY LIST MUX'D LIST OPEN " : Z$,M1$=STR(D$,Q9*11-10,11) : PRINT AT(13,0,2*S0) 1060 RETURN 1080 DEFFN'84 : GOSUB '200("0","48",2,0,"ENTER STATION NUMBER (0 = ALL STATIONS)",1) : Z,N=Q9 : RETURN 1130 DEFFN'85 : IF O$="CRT"THEN O$,Z$="PRINTER" : ELSE O$,Z$="CRT" : RETURN 1200 DEFFN'51 : $PACK(F=HEX(A003A008A00B5002A007))Z$(Z1)FROMI1$,M$,M1$,N,O$ : RETURN 1260 DEFFN'42(Z9$) : Z9=0 : Z8$=" " : IF Z9$="ALL"THEN 1390 : IF Z9$="RANGE"THEN 1440 : E$="MOUNT INPUT DISK" 1320 PRINT AT(1,0,S0);E$ : GOSUB '254 : IF Z9$="INDIRECT"THEN 1520 : IF Z9$="PART"THEN 1630 : STOP "ERROR" 1390 Z1$(1)=ALL(HEX(00)) : Z2$(1)=ALL(HEX(FF)) : F9$="M" : RETURN 1440 GOSUB '200(" "," ",8,0,"ENTER BEGINNING LIMIT FOR RANGE",2) : Z1$(1)=Q6$ : GOSUB '200(" "," ",8,0,"ENTER ENDING LIMIT FOR RANGE",2) : Z2$(1)=Q6$ : IF Z1$(1)>=Z2$(1)THEN GOSUB '113(1,"INVALID RANGE") : F9$="M" : RETURN 1520 SELECT #3<I1$> 1540 GOSUB '200(" "," ",8,0,"ENTER REFERENCE FILE NAME",2) : Z8$=Q6$ : LIMITS T#1,Z8$,Z,Z,Z,Z : ERRORE$="MOUNT INPUT DISK" : PRINT HEX(07) : GOTO 1320 1580 IF Z<1THEN GOSUB '113(2,"NOT AN ACTIVE FILE ON INPUT DISK") : IF Z=1THEN GOSUB '113(2,"WRONG FILE TYPE") : RETURN 1630 PRINT AT(1,0);"ENTER FILE NAMES (0 = END)" : PRINT AT(11,20);"INPUT" : GOTO 1730 1670 Y1=12 : FOR Y=MAX(1,Z9-1)TO Z9 : PRINT AT(Y1,15);Y;" ";STR(Z1$(Y),1) : Y1=Y1+1 : NEXT Y 1730 Y1=MIN(12+Z9,14) : PRINT AT(Y1,0,63); 1760 PRINT AT(Y1,15);Z9+1; : LINPUT ?Z1$(Z9+1) : PRINT AT(3,0,S0) : IF Z1$(Z9+1)="0"THEN 1910 : LIMITS T#1,Z1$(Z9+1),Y,Y,Y,Y : ERRORE$="MOUNT INPUT DISK" : PRINT HEX(07) : GOTO 1320 1810 IF Y<1THEN GOSUB '113(3,"NOT AN ACTIVE FILE ON INPUT DISK") : IF Y=1THEN GOSUB '113(3,"WRONG FILE TYPE") : MAT SEARCHZ1$(),=STR(Z1$(Z9+1),,8)TO A$STEP 8 : IF STR(A$,3,2)<>HEX(0000)THEN GOSUB '113(3,"DUPLICATE INPUT FILE NAME") : PRINT AT(3,0,50) : Z9=Z9+1 : IF Z9<25THEN 1670 1910 PRINT AT(11,0,5*S0) : PRINT AT(1,0,2*S0) : RETURN 1960 DEFFN'113(Y,E$) : RETURN CLEAR 1980 PRINT HEX(07);AT(3,0,50);"RE-ENTER, ";E$ : ON YGOTO 1440,1540,1760 2030 DEFFN'31 : PRINT HEX(03) : COM CLEAR Z9$ 2060 LOAD DC T#0,"ISS.100M" : ERRORGOTO 2070 2070 PRINT HEX(010A);"MOUNT ISS DISK AT ADDRESS ";S$ : GOSUB '254 : GOTO 2060