@)@ *********************************Q@ * VIRTUAL DIRECTORY *y@ * BY R.MASON REMJEM SOFTWARE *@ * RUNS ON C-64,C-128 (40 OR 80C)*@ * (TO LIST ON C-64-DEL LINE 15) *@ *********************************A 53280,0:53281,0BA(1)(0)(0)5RG$" ":F21:%A""RG$" VIRTUAL DIRECTORY ";RG$:"":RG$" RELEASED TO PUBLIC DOMAIN 6/20/85":RG$" BY ROBERT E. MASON":RG$" OUTPUT TO SCREEN OR PRINTER?"BZ$:Z$""30"B(Z$"S"S1:70;B2Z$"P"P1:4,4:80CB<30pBFRG$" OUTPUT TO SCREEN":90BPRG$" OUTPUT TO PRINTER"BZRG$" PLACE DISK TO BE READ IN DRIVE":RG$" PRESS ANY KEY WHEN READY"CdZ$:Z$""100CnB$"":15,8,15:15,"I0:":8,8,8,"#":I18:P(I)::A1:DN$"DISK NAME: ":15,"U1:8,0,18,0":15,"B-P:8,144":I123:#8,B$:B$((B$(0))):B$(160)B$" "CxDN$DN$B$::15,"B-P:8,3":#8,BF$:(BF$)0BF664:140CBF1328pDT$""DN$:T4$" START FILE NAME FILE NO. LOAD":T3$" TK BK ON DISK TYPE BKS ADDR":ST$:T4$:T3$DT1$" START FILE NAME FILE NO. LOAD":T2$" TK BK ON DISK TYPE BKS ADDR":P4,DN$:4:4,T1$:4,T2$:4 E15,"U1:8,0,18,"A:S"DIRECTORY BLOCK 18 -";AFEP4:4,"DIRECTORY BLOCK 18 -";AE15,"B-P:8,1":#8,A$:NB(A$(0)):I18:15,"B-P:8,"P(I)1:#8,BL$,SE$:BL(BL$(0)):BL$(BL):(BL$)3BL$" "BL$ED$BL$:BL0F11:600FSE(SE$(0)):SE$(SE):(SE$)3SE$" "SE$YFD$D$SE$" ":J116:#8,B$:B$((B$(0))):B$(129)B$"":270tFB$(160)B$" ":270FB$(192)B$(45):270FB$(32)B$"?":270FB$(127)B$(160)B$"?":270F(B$)160B$" ":270=GD$D$B$::15,"B-P:8,"P(I):#8,TF$:TF(TF$(0)):TF130D$D$" PRG":370\GTF129D$D$" SEQ":370{G"TF131D$D$" USR":370G,TF132D$D$" REL":370G6TF0D$D$" *SCR":370G@TF1D$D$" *SEQ":370GJTF2D$D$" *PRG":370HTTF3D$D$" *USR":370+H^TF4D$D$" *REL":370?HhD$D$"*"(TF)Hr15,"B-P:8,"P(I)28:#8,SF$:SF(SF$(0)):SF$(SF):TF0BUBUSFH|(SF$)3SF$" "SF$:400H(SF$)4SF$" "SF$GID$D$SF$:15,"U1:8,0,"BL","SE:15,"B-P:8,2":#8,LA$,HA$:LA(LA$(0))256(HA$(0)):LA$(LA):(LA$)2D$D$" "LA$:450jI(LA$)3D$D$" "LA$:450I(LA$)4D$D$" "LA$:450I(LA$)5D$D$" "LA$:450ID$D$LA$ILL1:P4,D$:470ID$J15,"U1:8,0,18,"A:D$""::SL16F21L0:560SJSL16"PRESS ANY KEY TO CONTINUE OR Q TO QUIT";:L0:540^JS520zJPL48K18:4::L0JPL04,DN$:4:4,T1$:4,T2$:4JNB21ANB:160J600JZ$:Z$""540J&Z$"Q"600K0F2140,0,79,24:F22:580K:F220,0,39,24:F217KDT$:T4$:T3$:F1710@KN520WKX8:15:PL46690oKbPL45(12):690KlSL14710KvSL15F11:480K15,8,15,"I0:":15:" ANOTHER DISK? (Y/N) "KZ$:Z$""650KZ$"Y"LZ$"N""";:L650UL4:4,"BLOCKS USED:"BU:4,"BLOCKS AVAILABLE:"BFBU:640jL4,(12):4:640L:"BLOCKS EXAMINED:"BU:F1"BLOCKS AVAILABLE:"BFBU:F10:640L640L2,34,66,98,130,162,194,226