Listing of file='609VCAT' on disk='vmedia/701-2738G.wvd.zip'
# Sector 1014, program filename = '609VCAT' 0010 REM "609VCAT" - VOLUME CATALOGUE 0140 DIM J$1,U1$(256)16,U2$(64),V0$(16) : DIM J$(256)16,J0$(256)2,S2$(256)4,J1$(256)2 : MAT REDIM U2$(256)4 : GOSUB '236(255,1) : FOR C=1TO 256 : IF U1$(C)=" "THEN INIT(FF)U1$(C) : NEXT C : MAT SORTU1$()TO J1$(),J0$() : MAT MOVE U1$(),J0$()TO J$() : U1$()=J$() : MAT MOVE U2$(),J0$()TO S2$() : U2$()=S2$() : PRINT HEX(0306); 0330 GOSUB 2505 : PRINT AT(0,24);B5$(2);B2$;B5$(1) : PRINT : GOSUB 2510 : PRINT B2$ : GOSUB 2515 : PRINT HEX(020400040E);AT(5,25);B2$; : GOSUB 2520 : PRINT AT(5,40);B2$;B5$(1) : PRINT HEX(06);AT(7,0,); : FOR J=1TO 16 : IF STR(U1$(J),,1)<>HEX(FF)THEN 440 : J=500 : GOTO 450 0440 PRINT AT(J+6,26);STR(U1$(J),1,8);AT(J+6,43);STR(U2$(J),,3) 0450 NEXT J 0470 KEYIN J$,480,480 : GOTO 470 0480 IF J$=HEX(82)OR J$=HEX(F0)THEN 520 : PRINT HEX(07); : GOTO 470 0520 LOAD DC T"609menu" 2500 % DO NOT RENUMBER THE FOLLOWING 2505 B2$="V O L U M E C A T A L O G" : RETURN 2510 B2$="Please press CANCEL" : RETURN 2515 B2$="Volume Name" : RETURN 2520 B2$="Disk Unit" : RETURN