image of READY prompt

Wang2200.org

Listing of file='609VFREE' on disk='vmedia/701-2738G.wvd.zip'

# Sector 1020, 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