Listing of file='ISS.001M' on disk='vmedia/701-2424C.wvd.zip'
# Sector 45, program filename = 'ISS.001M' 0010 REM ISS.001M, RELEASE 5-1, (11/07/79) - THIS PROGRAM IS A COPYRIGHT PROD UCT OF WANG LABS. INC., UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED 0070 DIM C$6,C1$3,Z1$3 0120 % THIS MUST BE STATEMENT 120 0330 S1$="ISS.200SISS.220SISS.254SISS.205S" : LOAD DC T#0,<LEN(S1$)/8>S1$10,0BEG 350 0350 X=INT(S0/80) : PRINT HEX(0306) : GOSUB 2050 : IF Q1$<>HEX(0000000000000000)THEN 520 : GOSUB 630 : GOSUB 2050 : GOSUB 720 : GOSUB 2050 : GOSUB 890 : GOSUB 2050 : GOSUB 1030 : GOSUB 2050 : GOSUB 1170 : GOSUB 2050 0520 GOSUB '200("0","5",1,0,"ENTER DESIRED FUNCTION (0 = END)",1) : IF Q9=0THEN 1940 : ON Q9GOSUB 630,720,890,1030,1170 : GOSUB 2050 : GOTO 520 0610 GOSUB '255 0630 GOSUB '200(" "," ",8,0,"ENTER TODAYS DATE (MM/DD/YY)",2) : GOSUB '221(Q6$) : IF Q6$="E"THEN 610 : Q1$=U9$ : Q1=U9 : RETURN 0720 PRINT AT(12,0);"1 - SYSTEM 4 - APPLICATION" : PRINT "2 - UTILITIES 5 - KFAM-7" : PRINT "3 - SCREEN/DISK" : GOSUB '200("1","5",1,0,"ENTER MENU TO LOAD",1) : IF Q9=1THEN S9$="SYSTEM" : IF Q9=2THEN S9$="UTILITIES" : IF Q9=3THEN S9$="SCREEN/DISK" : IF Q9=4THEN S9$="APPLICATION" : IF Q9=5THEN S9$="KFAM-7" 0830 PRINT AT(12,0,3*S0) : RETURN 0860 GOSUB '255 0890 PRINT AT(15,0);"SUPPORTED = 000 01D 204 211 212 213 214 215 216 217 005"; : GOSUB '200(" "," ",3,0,"ENTER PRINTER ADDRESS (BLANK = NO PRINTER)",2) : PRINT AT(15,0,60); : S$(1)=Q6$ : IF Q6$=" "THEN RETURN : MAT SEARCH"00001D204211212213214215216217005",=STR(S$(1),,3)TO A$STEP 3 : IF STR(A$,1,2)=HEX(0000)THEN 860 : RETURN 1010 GOSUB '255 1030 GOSUB '200(" "," ",3,0,"ENTER ISS LOADING ADDRESS",2) : S$=Q6$ : GOSUB '205(0,S$,0) : IF Q$="I"THEN 1010 : MAT SEARCHSTR(S$(),4),=S$TO A$STEP 3 : IF STR(A$,1,2)=HEX(0000)THEN RETURN : A=VAL(A$,2) : STR(S$(),A+3)=STR(S$(),A+6) : RETURN 1170 IF POS(STR(S$(),4,78)<>HEX(00))=0THEN STR(S$(),4)=ALL(20) : PRINT AT(12,0,);"1 - ADD";HEX(0D0A);"2 - CHANGE ALL";HEX(0D0A);"3 - DELET E" : GOSUB '200("0","5",1,0,"ENTER DESIRED OPTION (0 = END)",1) : PRINT AT(12,0,) : IF Q9=0THEN RETURN : IF Q9=3THEN GOTO 1680 : IF Q9=1THEN K=MAX(LEN(S$())/3+1,2) : ELSE K=2 : IF Q9=1AND K>19THEN 1300 : ON Q9GOTO 1370,1340 1300 PRINT AT(1,0);HEX(07);"ADDRESS TABLE FULL" : GOSUB '254 : RETURN 1340 STR(S$(),4)=" " : PRINT AT(9+X,26,2*S0-27) 1370 PRINT AT(11+X,0);"SUPPORTED = 310 320 330 350 360 370 B10 B20 B30 B50 B60 B70 D10 D11 D12 D13 D14 D15 D20 D21 D22 D23 D24 D25 D30 D31 D32 D33 D34 D35 D50 D51 D52 D53 D54 D55 D60 D61 D62 D63 D64 D65 D70 D71 D72 D73 D74 D 75"; : FOR I=KTO 19 1400 GOSUB '200(" "," ",3,0,"ENTER DISK ADDRESS TO ADD (0 = END)",2) : IF Q6$<>"0"THEN 1450 : I=19 : GOTO 1540 1450 GOSUB '205(1,Q6$,0) : IF Q$="I"THEN 1640 : IF Q6$=S$THEN 1640 : MAT SEARCHSTR(S$(),4,LEN(STR(S$(),4))),=STR(Q6$,1,3)TO A$STEP 3 : IF STR(A$,1,2)<>HEX(0000)THEN 1640 : S$(I)=Q6$ : GOSUB 1790 1540 NEXT I 1560 PRINT AT(11+X,0,); : IF LEN(S$())>=57THEN 1300 : RETURN 1600 I=19 : GOSUB 1790 : GOTO 1170 1640 S$(I)=" " : GOSUB '255 : GOTO 1400 1680 IF S$(2)=" "THEN 1870 : S$()=S$()&"0" : GOSUB '200(STR(S$(),4,64),STR(S$(),68),3,1,"ENTER DISK ADDRESS TO DELETE (0 = END)",2) : STR(S$())=STR(S$(),,LEN(S$())-1) : IF Q6$="0"THEN 1560 : STR(S$(),Q9*3+1)=STR(S$(),Q9*3+4) : GOSUB 1790 : GOTO 1680 1790 PRINT AT(9+X,5); : PRINT "5 DISK ADDRESSES - "; : FOR J=2TO 19 : IF J=11THEN PRINT HEX(0D0A);TAB(26); : PRINT STR(S$(J));" "; : NEXT J : PRINT : RETURN 1870 PRINT AT(1,0);HEX(07);"NO ENTRIES TO DELETE" : GOSUB '254 : RETURN 1940 SELECT #0<S$> : S8$=S9$ : LOAD T"ISS.002M" : ERRORGOTO 1990 1990 PRINT HEX(07010A);"LOADING ADDRESS WRONG";TAB(80) : GOSUB '254 : GOTO 520 2050 PRINT AT(4,5);HEX(06);"STATION #";S2 : PRINT AT(5+X,5);"1 DATE - ";Q1$ : PRINT TAB(5);"2 MENU TO LOAD - ";S9$;TAB(80) : PRINT TAB(5);"3 PRINTER ADDRESS - ";STR(S$(1));TAB(80) : PRINT TAB(5);"4 LOADING ADDRESS - ";S$ : PRINT TAB(5);"5 DISK ADDRESSES - "; : FOR I=2TO 19 : IF I=11THEN PRINT HEX(0D0A);TAB(26); : PRINT STR(S$(I));" "; 2140 NEXT I : RETURN 2190 DEFFN'31 2200 LOAD T"ISS.000M" : ERRORGOTO 2210 2210 PRINT AT(1,0,S0);"MOUNT ISS DISK AT ADDRESS ";S$ : GOSUB '254 : GOTO 2200