Listing of file='ISS.091U' on disk='vmedia/701-2423D.wvd.zip'
# Sector 598, program filename = 'ISS.091U' 0010 REM ISS.091U, RELEASE 5-1, (11/07/79) - COPYRIGHT WANG LABS. INC. 0070 DIM N$(2)8,C$1,D0$2,F$2,C1$1,C2$1,B$(256)1,R9$(16)16 0120 % THIS MUST BE STATEMENT 120 0130 % ###### ######### ##### ##### ##### 0180 S1$="ISS.254SISS.229S" : LOAD DC T#0,<LEN(S1$)/8>S1$10,0BEG 210 0210 PRINT AT(1,0);"MOUNT INPUT PLATTER AT INDICATED ADDRESS" : GOSUB '254 : DATA LOAD BA T#1,(0)B$() : ERRORGOTO 210 0250 N$(2)="/*0000*/" : D,D1=0 : F1=A1 : SCRATCH DISK T#1,LS=A1,END =A2 : ERRORPRINT HEX(07) : GOTO 210 0310 I=A1 0320 DATA LOAD BA T#1,(I,I1)B$() : AND (B$(1),F0) : F1=I : IF B$(1)<>HEX(80)THEN 490 : F$=HEX(1000) : GOSUB '99(HEX(A0),I) : IF C$="E"THEN 800 : D1=D1+1 0430 D=D+1 : CONVERT DTO STR(N$(2),3,4),(####) : N$(1)=N$(2) : GOTO 610 0490 IF B$(1)=HEX(40)THEN 510 : IF B$(1)<>HEX(50)THEN 800 0510 F$=HEX(1080) : MAT COPY B$()<2,8>TO N$()<1,8> : C1$=HEX(20) : IF B$(1)=HEX(40)THEN 570 : C1$=HEX(30) 0570 GOSUB '99(C1$,I) : IF C$="E"THEN 800 : D1=D1+1 0610 GOSUB '229(3,N$(1)) : IF R2$<>HEX(00)THEN 430 : FOR I1=2-SGN(R3)TO 16 : IF STR(R9$(I1),1,1)<>HEX(00)THEN 670 : I2=I1 : I1=16 0670 NEXT I1 : STR(R9$(I2),3,2)=BIN(F1,2) : STR(R9$(I2),5,2)=BIN(I-1,2) : STR(R9$(I2),1,2)=F$ : STR(R9$(I2),9,8)=N$(1) : DATA SAVE BA T#R9,(R3,R)R9$() : DATA LOAD BA T#R9,(0,R)R9$() : STR(R9$(1),3,2)=BIN(I,2) : DATA SAVE BA T#R9,(0,R)R9$() : PRINT HEX(010A0A) : PRINTUSING 130,"FILE #","FILE NAME","START"," END"," USED" 0780 PRINTUSING 130,D1,N$(1),F1,I-1,VAL(D0$,2) : I=I-1 0800 I=I+1 : IF I<=A2THEN 320 : GOSUB '31 0850 DEFFN'99(C$,I3) : C2$=C$ : AND (C2$,D0) : I3=I3+1 : D0$=HEX(0002) 0900 IF I3>A2-1THEN 1050 : DATA LOAD BA T#1,(I3,I3)B$() : ADDC(D0$,01) : AND (B$(1),F0) : IF B$(1)=C2$THEN 900 : IF B$(1)=C$THEN 975 0960 C$="E" : RETURN 0975 IF C$=HEX(20)AND POS(B$()=FE)=0THEN 960 : B$(2)=D0$ : B$(3)=STR(D0$,2,1) : DATA SAVE BA T#1,(I3,I3)B$() : C$=" " : I=I3 : RETURN 1050 RETURN CLEAR 1090 DEFFN'31 : PRINT HEX(03) : COM CLEAR A1 1120 LOAD DC T#0,"ISS.100M" : ERRORGOTO 1130 1130 PRINT HEX(010A);"MOUNT ISS DISK AT ADDRESS ";S$ : GOSUB '254 : GOTO 1120