Listing of file='609@vola' on disk='vmedia/701-2737G.wvd.zip'
# Sector 815, program filename = '609@vola' 0010 REM %609@vola - Add Volume 0015 DIM S4,S5(1),S0(1),T5(1),T1$(1)1,S3(1) : DIM S5,T1(6),S6(6),S1(6),T2$(6)40 : DIM S6,T2(4),S7(4),S2(4),S4(4) : DIM S1$4,S1$(4)2,S2$(24)2 : DIM S2$1,T1$80,T2$2 : DIM U1$(12),U2$(12)4,V0$(1)1,R1$1 : GOSUB '61 : PRINT HEX(03); 0050 GOSUB '62 : ON T5+2GOTO 1000,1000,80 : GOSUB 2000 0060 PRINT AT(23,0);HEX(07);B5$(2);T1$;B5$(1); : GOTO 50 0080 IF VER(STR(T5$(3),,3),"HHH")<>3THEN 2107 : SELECT #6<STR(T5$(3),,3)> : ERRORGOTO 2107 0082 LIMITS T#6,STR(T5$(1),,8),C6,C6,C6,C6 : ERRORGOTO 2107 0084 IF C6<>2THEN 2105 0096 C0=1 0100 GOSUB '236(8,C0) : IF R1$=HEX(00)THEN 110 : GOSUB 2050 : PRINT AT(23,0);B5$(2);T1$;HEXOF(R1$);B5$(1);HEX(07); : GOTO 50 0110 IF V1=0THEN 119 : MAT SEARCHSTR(U1$(),,V1*16),=STR(T5$(1),,8)TO T2$STEP 16 : IF T2$>HEX(0000)THEN 126 : IF V1<8THEN 119 : C0=C0+8 : GOTO 100 0119 B9$=STR(T5$(1),,8)&T5$(2) : GOTO 136 0126 B9$=STR(U1$(),VAL(T2$,2)) : IF T5$(2)=STR(B9$,9,8)THEN 136 : GOSUB 2070 : PRINT AT(23,0);B5$(2);T1$;B5$(1);HEX(07); : GOTO 50 0136 GOSUB '239(B9$,STR(T5$(3),,3)) : IF R1$=HEX(00)THEN 1000 : ON VAL(R1$)GOSUB 2030,2040,2050,2060,2070,2080,2090,2100,2110 : ELSE GOTO 138 : GOTO 60 0138 GOSUB 2020 : C5$=" " : IF R1$>HEX(29)THEN CONVERT VAL(R1$)TO C5$,(##) : ELSE HEXUNPACKR1$TO C5$ : T1$=T1$&" "&C5$ : GOTO 60 1000 DEFFN'31 : LOAD T"609@vol"10,2999 1028 DEFFN'0"LISTSHEX(03)D 10,";HEX(0D) 2000 T1$="Invalid key" : RETURN 2010 T1$="Invalid disk address" : RETURN 2020 T1$="Access error = " : RETURN 2030 T1$="Volume full" : RETURN 2040 T1$="Volume already exists" : RETURN 2050 T1$="Volume Query failure - Return code = " : RETURN 2060 T1$="No free device slots" : RETURN 2070 T1$="Incorrect password" : RETURN 2080 T1$="Exclusive open error" : RETURN 2090 T1$="File not opened" : RETURN 2100 T1$="Illegal file ID" : RETURN 2105 T1$="Volume does not exist at this address" : GOTO 60 2107 T1$="Illegal address" : GOTO 60 2110 T1$="Not enough room in file to re-use scratched area" : RETURN 2120 DATA 3,0,0,"A D D V O L U M E " : DATA 4,4,0,"Please fill in the following:" : DATA 4,7,10,"Volume name" : DATA 2,7,30,8," " : DATA 4,8,10,"Volume password" : DATA 5,8,30,8," " : DATA 4,9,10,"Disk address" : DATA 2,9,30,3," " : DATA 0