53280,0:53281,146"SETTING UP......."DK0:2000^d<**DIRECTORY ROUTINEqi15,8,15:2075n1,8,0,"$0"s"DIRECTORY OPEN "x#1,L1$,L2$}#1,L1$,L2$#1,L1$,L2$C0L1$""C(L1$) L2$""CC(L2$)256+ BK$(K)((C),2):BL(BK$(K))F BK$(K)(SG$BK$(K),3)j BLBL256:BY$(K)(SG$(BL),5) #1,L2$:ST0305 L2$(34)165 #1,L2$:L2$(34)N$N$L2$:175 P$(K)N$:N$"" #1,L2$:L2$(32)185 C$"" C$C$L2$:#1,L2$:L2$""195* TY$(K)(C$,3)7 K0225J ""15)K""^ BUBU(BK$(K))s ST0KK1:125 " DISK INFORMATION "; "NAME: "P$(0)" ID: "TY$(0)""; " BLOCKS USED: BLOCKS FREE: ";B "TOTAL NUMBER OF ENTERIES: ";r " CB>7/84" "READING ENTRY: ":KK1:125 ,***** READ LOAD ADDRESS ****** 11:2085:2075:KK1:BF664BU:PK$(SG$(K),5) 6US$(SG$(BU),5):FR$(SG$(BF),5)G ;"READING FILES: ":""e @13)""US$33)FR$29)PK$y EI1K:F$P$(I) J1,8,3,"0:"F$:""15)I"" O #1,LB$,HB$ THB$""H0:350 YH(HB$) ^HH256 cLB$""L0:365 hL(LB$) mLA$(I)(SG$(HL),5) r1:* w2085K |"END OF DIRECTORY "S 15m **** PRINT DIRECTORY I1:I$(32)(I)(46):LP6:KOUNT9 "PRINTER OPEN " 3,4:3:5,3,5 5,"PRINTING DIRECTORY" 3,(14)9)"* "P$(0)" *"(15)R$I3,T$"15# ENTERIES:"T$"26"PK$T$"45"US$" BLOCKS USED"R$3,T$"15DISK ID:"T$"29"TY$(0)T$"45"FR$" BLOCKS FREE"R$3,T$"12NO"T$"20NAME"T$"40BLOCKS"T$"50BYTES"T$"60L.ADD."T$"71TYPE"3,DD$DD$(3,T$"11"I$T$"20"P$(I)T$"41"BK$(I)T$"50"BY$(I)T$"60"LA$(I)T$"72"TY$(I):KOUNTKOUNT1fIK3,DD$DD$:KOUNTKOUNT1:2045:490ILP2035:LPLP6:KOUNTKOUNT1I362065:3,T$"10PAGE 2" P$(0):2035:485I902040:3,T$"10PAGE 3"P$(0):2035:485I1443,DD$DD$:2040:4907II1:I$(SG$(I)(46),4):450A3:5h****** ANOTHER/END PROGRAM ******"ANOTHER DISK? Y/N "I028:BEEPI,0:BEEP1,130:BEEP5,9:BEEP15,30:BEEP24,15Z$:BEEP4,21:I11000::Z$""530% Z$:BEEP4,20:I11000::Z$""520?Z$"N""":VZ$"Y"""::10eZ$"":520****** VARIABLES *******P$(145),BK$(145),TY$(145),BY$(145),LA$(145)SG$" ":T$(16):R$(13):BEEP54272DD$"......................................."DDL$"......................................"Jf<**PRINTER SUBROUTINESv3,DL$DL$:3:KOUNTKOUNT4:KOUNT66RP66KOUNT:2060KOUNT132RP128KOUNT:20602055KOUNT198RP198KOUNT I1RP:3::,3,R$R$R$R$R$R$R$R$R$R$R$:KOUNTKOUNT14:E<**DISK SUBROUTINESb15,EN,EM$,ET,ES:EN0 "DISK ERROR "EN;EM$;ET;ES"":%15,"I":*** PRINTING COMMENTS: TO PRINT A DISK WITH >85PGMS/ REMOVE 3 CARRIAGE RETURNS (R$) FROM LINE 2065