Listing of file='609VFREE' on disk='vmedia/731-0071G.wvd.zip'
# Sector 460, program filename = '609VFREE' 0010 REM "609FREE" - LIBRARY CATALOGUE 0210 DIM J$1,J$(53)8,C1$2,C2$(128)2,C7(127) : DIM S5(1),S0(1),T5(1),S3(1) : DIM T1$(52)12,S1$(52)2 : DIM T1(1),S6(1),S1(1),T2$(1)1 : DIM T2(1),S7(1),S2(1),S4(1),T5$(1)1 : DIM S2$(1)2 : DIM D1$52 : DIM S2$1,T1$80,T2$2 : DIM S0,S4,S5,S6,S7,S8,S9,T2,T3,T5,D0,T7 0320 S2=4 : S3=16 : RESTORE LINE2020 : GOSUB '61 : FOR I=1TO 52 : DATA LOAD DA T#0,(B3+I)A0$() : IF STR(A0$(),2,1)=" "THEN 430 : J$(I)=STR(A0$(),2,8) : T1$(I)=T1$(I)&" / "&J$(I) 0430 NEXT I : IF C5<>0THEN 520 : PRINT HEX(0306); : GOSUB 2080 : PRINT AT(0,26);B5$(2);T1$;B5$(1) : PRINT : GOSUB 2090 : PRINT T1$ : GOSUB 2100 : PRINT T1$ : GOSUB 2110 : PRINT AT(5,0);HEX(020400040E);AT(5,11);T1$;AT(5,27);T1$;AT(5,43);T1$;AT(5 ,59);T1$;B5$(2);HEX(0F); 0520 GOSUB '62 : ON T5+1GOTO 1880,570 : GOSUB 2120 : PRINT AT(23,0,);T1$;HEX(07); : GOTO 520 0570 J=T5(1) : J$=T1$(J) : DATA LOAD DA T#0,(B3+J)A0$() : IF STR(A0$(),2,1)<>" "THEN 670 : GOSUB 2130 : PRINT AT(23,0,);T1$;HEX(07); : GOSUB 2130 : PRINT AT(23,0,);T1$;HEX(07); : GOTO 520 0670 MAT REDIM T1$(256)1,J$(128)2 : LIMITS T#0,"WPSYSTEM",A,Z,S,X9 : DATA LOAD BA T#0,(A+1)T1$() : C5=1 0700 DATA LOAD BA T#0,(A+VAL(STR(T1$(),C5,2),2))T1$() : MAT SEARCHT1$(),=STR(A0$(),2,8)TO C1$ : IF C1$<>HEX(0000)THEN 770 : C5=4 : IF VAL(STR(T1$(),C5,2),2)<>0THEN 700 : GOSUB 2140 : PRINT AT(23,0,);T1$;HEX(07); : GOTO 1850 0770 HEXUNPACKSTR(T1$(),VAL(C1$,2)+16,2)TO C2$ : SELECT #05<C2$> : LIMITS T#05,STR(A0$(),2,8),A,Z,S,X9 : ERRORGOSUB 2150 : PRINT AT(23,0,);T1$;HEX(07); : GOTO 1850 0800 IF A<>0OR X9=2THEN 820 : GOTO 840 0820 DATA LOAD BA T#05,(A)T1$() : IF STR(T1$(),255,2)=HEX(0002)THEN 860 0840 GOSUB 2140 : PRINT AT(23,0,);T1$;HEX(07); : GOTO 1850 0860 D1=VAL(STR(T1$(),28,2),2) : D2=VAL(STR(T1$(),30,2),2) : C4,S=0 : FOR C3=1TO INT(D1/127)+1 : DATA LOAD BA T#05,(A+D2+C3-2)T1$() : IF STR(T1$(),255,2)=HEX(0001)THEN 940 : GOSUB 2160 : PRINT AT(23,0,);T1$;HEX(07); : GOTO 1850 0940 MAT SEARCHT1$(),=HEX(FFFF)TO J$()STEP 2 : MAT SEARCHJ$(),=HEX(0000)TO C1$ : C4=C4+INT((VAL(C1$,2)-1)/2) : NEXT C3 : GOTO 1801 0980 DATA LOAD BA T#5,(A+1)T1$() : C6,V9=-1*VAL(STR(T1$(),3,2),2) : FOR C0=1TO ABS(C6) : C7(C0)=VAL(STR(T1$(),5+C0*2-2,2),2)+A : IF C7(C0)=0THEN C0=ABS(C6) : NEXT C0 : C9,C7=-1 : Z4=Z : GOSUB 2230 : PRINT AT(21,3,157);T1$ : FOR C8=ATO Z : GOSUB '99(21,25,((C8-A)/(Z4-A))*100) : IF MOD((C8-A),127)<>0THEN 1060 : C9=C9+1 : DATA LOAD BA T#5,(A+C9+D2-1)C2$() 1060 DATA LOAD BA T#05,(C8)T1$() : MAT SEARCHT1$(),<>HEX(00)TO C1$ : IF C1$=HEX(0000)THEN C6=C6+1 : FOR C0=1TO ABS(V9) : IF C8<>C7(C0)THEN 1098 : C0=ABS(V9) : C7=1 1098 NEXT C0 : IF C7=1THEN 1120 : IF C1$=HEX(0000)AND C2$(MOD(C8-A,127)+1)<>HEX(FFFF)THEN S=S+1 : IF C1$<>HEX(0000)AND C2$(MOD(C8-A,127)+1)=HEX(FFFF)THEN S=S+1 1120 C7=0 : NEXT C8 : IF C4<>C6THEN S=S+1 1801 GOSUB 2170 : PRINT AT(22,0,);T1$;STR(A0$(),2,8); : GOSUB 2180 : PRINT T1$;100-INT(C4/D1*100); : GOSUB 2200 : PRINT T1$;C4; : GOSUB 2210 : PRINT T1$;INT(C4/17); : GOSUB 2220 : PRINT T1$; : IF S=0THEN 1850 : GOSUB 2225 : PRINT AT(23,0,79);T1$; 1850 MAT REDIM T1$(52)12,J$(53)8 : GOTO 320 1880 LOAD DC T"609menu" 1892 DEFFN'99(Z,Z1,Z2) : Z2=INT(Z2) : PRINT HEX(0202020F06); : IF Z2<>0THEN 1894 : PRINT AT(Z,Z1,51);BOX(1,50.7); : P1=0 1894 ON SGN(Z2-P1)+2GOTO 1896,1904,1898 1896 P1=0 : GOTO 1900 1898 P1=P1+1 1900 IF P1<>1THEN 1902 : PRINT AT(Z,Z1+P1/2);HEX(EA); : GOTO 1894 1902 IF MOD(P1,2)=0THEN PRINT AT(Z,Z1+P1/2);HEX(D5); : ELSE PRINT AT(Z,Z1+P1/2);HEX(FF); : GOTO 1894 1904 PRINT HEX(020400000E0202000F); : RETURN 2000 % DO NOT RENUMBER THE FOLLOWING 2020 DATA 1,-7,11,1 : DATA "A","B","C","D","E","F","G","H","I","J","K","L","M" : DATA "N","O","P","Q","R","S","T","U","V","W","X","Y","Z" : DATA "a","b","c","d","e","f","g","h","i","j","k","l","m" : DATA "n","o","p","q","r","s","t","u","v","w","x","y","z","\DE" : DATA 0 2080 T1$="V O L U M E C A P A C I T Y " : RETURN 2090 T1$="Please Select Choice" : RETURN 2100 T1$=" Press EXECUTE to Continue" : RETURN 2110 T1$="Library/Volume" : RETURN 2120 T1$="Invalid Key" : RETURN 2130 T1$="Library does not exist" : RETURN 2140 T1$="Volume does not exist in WPSYSTEM" : RETURN 2150 T1$="Volume device address is illegal" : RETURN 2160 T1$="Vau map is not correct" : RETURN 2170 T1$="Volume :" : RETURN 2180 T1$=" is " : RETURN 2190 T1$="Next Archive :" : RETURN 2200 T1$=" % full. With " : RETURN 2210 T1$=" sectors free and room for " : RETURN 2220 T1$=" pages " : RETURN 2225 T1$=" Volume error! Please archive all documents and initialize volume" : RETURN 2230 T1$=" Capacity % complete" : RETURN