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