image of READY prompt

Wang2200.org

Listing of file='609VCAT' on disk='vmedia/731-0067F-disk2.wvd.zip'

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