Listing of file='609@vole' on disk='vmedia/701-2737G.wvd.zip'
# Sector 791, program filename = '609@vole' 0010 REM %609@vole - Edit 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,R1$1,V0$(1)1 : C8$=STR(T5$(1),,8)&STR(T5$(2),,8) : C9$=T5$(3) 0040 GOSUB '61 : T5$(1)=C9$ : PRINT HEX(0306);AT(7,30);STR(C8$,,8);AT(8,30);C9$ 0050 GOSUB '62 : ON T5+2GOTO 210,210,90 : GOSUB 2000 0060 PRINT AT(23,0);HEX(07);B5$(2);T1$; : GOTO 50 0090 SELECT #6<STR(T5$(1),,3)> : ERRORGOSUB 2010 : GOTO 60 0100 LIMITS T#6,STR(C8$,1,8),C0,C0,C0,C0 : ERRORGOSUB 2010 : GOTO 60 0110 IF C0=2THEN 140 : GOSUB 2050 : PRINT AT(23,0);HEX(07);B5$(2);T1$; : GOTO 50 0140 GOSUB '238(C8$,STR(T5$(1),,3)) : IF R1$=HEX(00)THEN GOTO 210 : GOSUB 2020 : C5$=" " : IF R1$>HEX(29)THEN CONVERT VAL(R1$)TO C5$,(##) : ELSE HEXUNPACKR1$TO C5$ : T1$=T1$&" "&C5$ : ON VAL(R1$)GOSUB 2030,2040,2050,2060,2070,2080,2090,2100,2110 : GOTO 50 0210 DEFFN'31 : LOAD T"609@vol"10,2999 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$="File or volume does not exist" : 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 2110 T1$="Not enough room in file to re-use scratched area" : RETURN 2120 DATA 3,0,0,"E D I T V O L U M E " : DATA 4,4,0,"Please fill in the following:" : DATA 4,7,10,"Volume name" : DATA 4,8,10,"Old disk address" : DATA 4,9,10,"New disk address" : DATA 2,9,30,3," " : DATA 0