Listing of file='609@vol' on disk='vmedia/731-0067G.wvd.zip'
# Sector 1930, program filename = '609@vol' 0010 REM %609@vol - Volume Maintenance 0021 COM T5$(4)8 : DIM S4,S5(2),S0(2),S3(2),T5(2),T1$(20)35 : DIM S5,T1(20),S6(20),S1(20),T2$(20)40 : DIM S6,T2(4),S7(4),S2(4),S4(4) : DIM S1$4,S1$(20)2,S2$(24)2 : DIM S2$1,T1$80,T2$2 : DIM U1$(15),U2$(15)4,R1$1,V0$(1)1 : DIM D0(2) : MAT D0=CON : GOSUB '236(15,1) : IF R1$=HEX(00)THEN 300 : GOSUB 2000 0110 PRINT AT(23,0);HEX(0706);B5$(2);T1$; : $BREAK255 : GOTO 210 0210 DEFFN'31 : COM CLEAR C : LOAD T"609menu" 0300 PRINT HEX(03); : IF V1=0THEN 320 0310 FOR C=1TO 15 : T1$(C)=STR(U1$(C),,8) : T2$(C+5)=STR(U2$(C),,3) : S6(C+5)=6+C : IF C>=V1THEN C=15 : NEXT C : S5(1)=7 : S0(1)=10 : S3(1)=V1 : MAT S1=CON : MAT S1=(22)*S1 : MAT T1=CON : MAT T1=(4)*T1 0320 GOSUB '61 : S5=5+V1 : GOSUB 2100 : CONVERT V1TO STR(T2$(5),LEN(T2$(5))+2,3),(###) : T1(5)=4 : S6(5)=22 : S1(5)=40-INT(LEN(T2$(5))/2) : C=SGN(V1) : S4=C+1 : S3(S4)=5 : S5(C+1)=7 : S0(C+1)=57 : GOSUB 2110 : S1$="OO" : MAT T5=D0 0360 GOSUB '62 : ON T5+2GOTO 210,210,400 : GOSUB 2120 0370 PRINT AT(23,0);HEX(0607);B5$(2);T1$; : GOTO 360 0400 J0=T5(S4) : ON J0GOTO 410,430,430,410,430 0410 IF V1=15THEN 420 : IF J0=4THEN LOAD T"609@vola"10,2999 : A5$()="609@volcREC-JCAT" : LOAD T<2>A5$()10,2999 0420 GOSUB 2130 : GOTO 370 0430 IF V1=0THEN 440 : C8$=STR(U1$(T5(1)),,8) : C9$=STR(U1$(T5(1)),9,8) : IF C9$<>" "THEN GOSUB 450 : T5$(1)=C8$ : T5$(2)=C9$ : T5$(3)=T2$(T5(1)+5) : IF J0=2THEN LOAD T"609@vole"10,2999 : IF J0=3THEN LOAD T"609@vold"10,2999 : LOAD T"609@volr"10,2999 0440 GOTO 2140 0450 GOSUB '61 0460 GOSUB '62 : ON T5+2GOTO 210,210,470 : GOSUB 2150 : PRINT HEX(07);B5$(2);AT(23,0);T1$; : GOTO 460 0470 IF STR(T5$(1),,8)=STR(C9$,,8)THEN RETURN : RESTORE : GOSUB 2160 : PRINT HEX(0607);B5$(2);AT(23,0);T1$; : MAT D0=T5 : GOTO 310 2000 T1$="Volume Query Error" : GOTO 110 2100 T2$(5)="Number of volumes currently open" : RETURN 2110 T1$(V1+1)="Create" : T1$(V1+2)="Edit" : T1$(V1+3)="Delete" : T1$(V1+4)="Add" : T1$(V1+5)="Remove" : RETURN 2120 T1$="Invalid key" : RETURN 2130 T1$="Volume map is full." : GOTO 370 2140 T1$="Volume map is empty." : GOTO 370 2150 T1$="Invalid key" : RETURN 2160 T1$="Invalid Password" : RETURN 2170 DATA 3,0,0,"V O L U M E M A I N T E N A N C E" : DATA 3,5,10,"Volume" : DATA 3,5,22,"Disk Address" : DATA 3,5,57,"Option" : DATA 0 : DATA 3,0,0,"V O L U M E M A I N T E N A N C E" : DATA 4,22,0,"Password" : DATA 5,22,10,8," " : DATA 0