) *********************************Q * VIRTUAL DIRECTORY *y * BY R.MASON REMJEM SOFTWARE * * RUNS ON C-64,C-128 (40 OR 80C)* * MODIFIED FOR 1581 * * BY TIM MITCHELL *  * 02/19/88 *A  * (TO LIST ON C-64-DEL LINE 15) *i ********************************* 53280,0:53281,09 ""RG$" VIRTUAL DIRECTORY ";RG$:"":RG$" RELEASED TO PUBLIC DOMAIN 6/20/85":RG$" BY ROBERT E. MASON":RG$" OUTPUT TO SCREEN OR PRINTER?"K Z$:Z$""30_ (Z$"S"S1:70x 2Z$"P"P1:4,4:80 <30 FRG$" OUTPUT TO SCREEN":90 PRG$" OUTPUT TO PRINTER" ZRG$" WHICH DRIVE? (8-9) " [K$:K$""911 \K(K$):K8K9K8Z ]DVK:DF$"":DF$DF$"DISK FORMAT=" _RG$" PLACE DISK TO BE READ IN DRIVE":RG$" PRESS ANY KEY WHEN READY" dZ$:Z$""100 e15,DV,15:15,"I0:":8,DV,8,"$":900:#8,A$,B$:A$"A"TR18 fB$B$(0)Q gTR18(B$)0BF664:DF$DF$"1541":15,"U0>M0":107 h(B$)128BF1328:DF$DF$"1571":15,"U0>M1":107 iA$"D"(B$)0TR40:BF3160:DF$DF$"1581":107 jDF$DF$"UNKNOWN":TR0:BF0 k8:15:RG$" "DF$0 mI18:P(I)::A1:PB144:TR40A3:PB4 nB$"":15,DV,15:15,"I0:":8,DV,8,"#":DN$"DISK NAME: ":15,"U1:8,0,"TR;0:900:15,"B-P:8,"PB oI123:#8,B$:B$((B$(0))):B$(160)B$" " pDN$DN$B$::PRG$" "DN$vT$""DN$:T4$" START FILE NAME FILE NO. LOAD":T3$" TK BK ON DISK TYPE BKS ADDR":ST$:,DF$:T4$:T3$T1$" START FILE NAME FILE NO. LOAD":T2$" TK BK ON DISK TYPE BKS ADDR" P4,DN$:4,,DF$:4,T1$" "T1$:4,T2$" "T2$:4D15,"U1:8,0,"TR;A:900:S"DIRECTORY BLOCK";TR;"-";AlP4:4,"DIRECTORY BLOCK";TR;"-";A15,"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$D$BL$:BL0F11:6006SE(SE$(0)):SE$(SE):(SE$)3SE$" "SE$D$D$SE$" ":J116:#8,B$:B$((B$(0))):B$(129)B$"":270B$(160)B$" ":270B$(192)B$(45):270B$(32)B$"?":270B$(127)B$(160)B$"?":270(B$)160B$" ":270cD$D$B$::15,"B-P:8,"P(I):#8,TF$:TF(TF$(0)):TF130D$D$" PRG":370TF129D$D$" SEQ":370"TF131D$D$" USR":370,TF132D$D$" REL":370-TF133D$D$" CBM":3706TF0D$D$" *SCR":370@TF1D$D$" *SEQ":3706JTF2D$D$" *PRG":370STTF3D$D$" *USR":370p^TF4D$D$" *REL":370_TF5D$D$" *CBM":370`TF193D$D$" SEQ<":370aTF194D$D$" PRG<":370bTF195D$D$" USR<":370 cTF196D$D$" REL<":370(dTF197D$D$" CBM<":370<hD$D$"*"(TF)r15,"B-P:8,"P(I)28:#8,SF$:SF(SF$(0)):SF$(SF):TF0BUBUSF|(SF$)3SF$" "SF$:400(SF$)4SF$" "SF$ID$D$SF$:15,"U1:8,0,"BL","SE:15,"B-P:8,2":900:#8,LA$,HA$:LA(LA$(0))256(HA$(0)):LA$(LA):(LA$)2D$D$" "LA$:450l(LA$)3D$D$" "LA$:450(LA$)4D$D$" "LA$:450(LA$)5D$D$" "LA$:450D$D$LA$LL1:P4,D$" ";:470D$15,"U1:8,0,"TR;A:900:D$""::SL16F21L0:560^SL16"PRESS ANY KEY TO CONTINUE OR Q TO QUIT";:L0:540iS520P(L2)59K18:4::L0PL04,DN$:4:4,T1$" "T1$:4,T2$" "T2$:4NB41ANB:160600Z$:Z$""540&Z$"Q"600 0F2140,0,79,24:F22:580;:F220,0,39,24:F21WDT$::T4$:T3$:F1710`N520wX8:15:PL46690bP(L2)45(12):690lSL14710vSL15F11:48015,DV,15,"I0:":15:" ANOTHER DISK? (Y/N) "Z$:Z$""650"Z$"Y"6Z$"N""";:?650v4:4,"BLOCKS USED:"BU:4,"BLOCKS AVAILABLE:"BFBUX1(56(L2)):4::6404,(12):4:640:"BLOCKS EXAMINED:"BU:F1"BLOCKS AVAILABLE:"BFBU:F10:6406402,34,66,98,130,162,194,226<15,EN$,EM$,ET$,ES$:(EN$)20eMN$""EN$" "EM$" "ET$" "ES$RG$;(21(MN$)2))MN$RG$" PRESS ANY KEY TO CONTINUE OR Q TO QUIT"E$:E$""921E$"Q"8:15