2 N$"ZZ":TR18:SE18:53281,0:53280,0:MX297L "WHAT DEVICE # ";DV (0)(1)NR214:NC211:KB198:808,225:ML828:ME861: 15 I14:I21,(132I):I2,(136I):: 1540NR235:NC236:KB208:808,107:ML2816:ME2862:(215)30643 20004706NR,1::"ARE YOU SURE? (Y/N)"@(KB,0R2K$:K$""50^<KB,0:F100:NR,1::"*** WORKING **** ":PNR,1:"":(M$,4,16):ZM$"":NR,1::" ":120:dNR,RL2::CL20);""(N$(RL(I1)CLD1),4,16)nTxNR,R2::C20);"";(N$(R(I1)CD1),4,16)Zh""HE$;D1NC,21:" P = PRIOR SCREEN "DN40NC,21:" N = NEXT SCREEN "I((ND1)2.5):I19I1980:NR,3:""XDDI(N$(X),4,16)",";(T$((N$(X))248);D((N$(X))64)64"<";a(N$(XI1)(0))028020);(N$(XI1),4,16)",";T$((N$(XI1))248);((N$(XI1))64)64"<";:RI1RI1R1R1"120: ,40:CLC:RLR: 6K$(13)K$""K$"-"K$"*"K$","K$" "K$""H 9K$"R"V ;K$""d =K$""x @K$""R1:C0 JK$""K$""CC1 TK$""K$""R(R12(K$"")) ^CN1R1:C0 hRI1R1 rR1RI1!|N$(R(I1)CD1)""330&!(CLC)(RLR)100:120B!K$"P"D1DD40:140b!K$"N"DN40DD40:140k!300!NR,7::" ARE YOU SURE? (Y/N) "!40:K$"Y"1440!K$""440!!""" NEW DIRECTORY FILER "3"" MODIFIED BY PRICK SMITH "Y"" INSERT DISKETTE IN DRIVE "|"""X16:N$N$N$:"N$(N$,2):N$N$N$"XMLME"&Y:X,Y:"0X130:Z$Z$(0):#:N$(MX),S(37),T$(5):D1:N0:F0:B1:R1:C0)#?B%(MX):ML828 1524_#NT$(1)"S":T$(2)"P":T$(3)"U":T$(4)"R":T$(5)"C"#XL1$(130)(18)(18)"----------------"(Z$,11)#]L2$(130)(18)(18)"****************"(Z$,11)#b""$l" PRESS RETURN TO CONTINUE ">$v""S$40:K$""430$NR,7::" READING DISK NAME "$15,DV,15,"UI":15,E,E$,T,S$TY$(E$,4):TY$"1581"TR40:SE39 %X036:Y:S(X)Y::TY$"1541"TY$"1571"X017:Y:S(X)Y:=%TY$"V2.7"X036:S(X)S(X)2::TR39:SE29V%15,"I0":1,DV,3,"$"x%ML:15,EN$,EM$:EN$"00"710%NR,7:%" DISK READ ERROR # "EN$" "%:1480%HE$(N$,143,16)","(N$,161,2) &TY$"1581"HE$(N$,3,16)","(N$,21,2)8&TY$"V2.7"HE$(N$,5,16)","(N$,23,2)V&NR,3::" "HE$" "v&TY$"V2.7"ML:ML:ML:ML&NR,7::" READING ENTRY #"N" "&ML:X125432:Y((N$,X,1))127&Y0770&NN1:N$(N)(N$,X,30)'NR,7::NC,20:N ' 'ST0730?' " TOTAL ENTRIES ="O'*X11500:V'41j'9N0"":1410y'>M$"":140'H300:FR(I1)CD1'RK$"-"LN$L1$:990'WK$"*"LN$L2$:990'\K$" "N11040'fK$","1120'kK$"R"1600 (pK$""1190(zK$""1230.(K$""1700J(K$""2000:140:840[(M$N$(F):80t(300:TR(I1)CD1(FT1FT90:840(70(FTV1(FTV1:TT1(N$(F)N$(FV):FFV:FT960(N$(T)M$(830(NMX19971)NR,1::"TOO MANY FILES":X12000::90:840=)70:B0S)NN1:XNF11g)N$(X)N$(X1):u)N$(F)LN$~)830)30:K$"Y"90:840)70:B0)$NN1:XFN).N$(X)N$(X1):)8N$(N1)"")BNC1C0)LFN1RR(R1) *QDNDD40*V830$*`A(N$(F));*jA130A194:1150L*tA194A130g*~N$(F)(A)(N$(F),29)*NR,RL2::CL2018);*""(60(A194));(32(A130))*840*100*30:K$"Y"1410*K$""1200*90:840 +100:30:K$"Y"90:8401+NR,1::"WRITING DIRECTORY "F+N8(N8)1270_+NN1:N$(N)Z$:1250+S0:TTR:S(N8.5)255:N1:2,DV,2,"#"+S(S1)255T0+ 15,"B-P";2;0+2,(T);(S(S1));:P2+XNN7:15,"B-P";2;P,(2,N$(X);:PP32::NX5,215,"U2";2;0;TR;S(S):15,EN$,EM$:EN$"00"1370A,<NR,1:a,F" DISK WRITE ERROR # "EN$w,PT12000::1440,ZSS1:S(S)2551280,dB1410,n2,(0);(255);Z$:15,"U2";2;0;TR;SE,xNR,1::"VALIDATING BAM ":15,"V0" -}15,E,E$,T,S:E;E$;T;S!-2:15,"I0":15E-NR,1::"ANOTHER DISK? (Y/N)"W-40:K$"Y"h-"":NR,7:-""-" PROGRAM TERMINATED "-""-1:2:15-65418-). 160,2,177,45,153,137,0,200,192,6,208,246,162[. 1,32,198,255,32,228,255,164,142,145,140,200. 132,142,196,139,208,242,76,204,255. 3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20. 21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39+/ 1,4,7,10,13,16,2,5,8,11,14,17,3,6,9,12,15,18f/ 160,2,162,1,169,47,32,116,255,153,98,0,200,192,6,208/ 241,162,1,32,198,255,32,228,255,164,103,162,101,142,185,2/ 162,1,32,119,255,200,132,103,196,100,208,234,76,204,2550@NN$"":NR,1::"NEW NAME ";NN$:90:NN$""830/0JNN$(NN$,16):70U0T(NN$)16 NN$NN$(160):16200^DU0:X1N:NN$(N$(X),4,16)DU1:XN0h:DU016700rNR,1::"DUPLICATE NAME "NN$:X12000::8300M$N$(F):N$(F)(M$,3)NN$(M$,(M$)19):830(1NR,1::"TURN PRINTER ON - PRESS RETURN"A140:K$""90:840U1K$(13)1710n190:4,4:ST017001NR,1::"LINE UP PAPER AND PRESS RETURN"140:K$""17901K$(13)1740190:70:B%(0)664:X1N%2B%(X)((N$(X),30,1))256((N$(X),29,1)):B%(0)B%(0)B%(X)]2:4,(15);(145);HE$;" ";N;"FILES";B%(0);"FREE":4v2X130:X$"":Y142W(Y1)30X:WN17802W$(B%(W)):W$(W$,(W$)1)2(W$)4W$W$" ":17692X$X$W$(N$(W),4,16)2Y:4,X$:X:4 34:90:8403" ";J3" "3" DIRECTORY FILER COMMANDS ":40103" N NEXT SCREEN OF FILES "3" P PREVIOUS SCREEN OF FILES "4" * INSERT ******* ABOVE FILE "E4 " - INSERT DIVIDER ABOVE FILE "v4" R RENAME THIS FILE "4" , LOCK/UNLOCK THIS FILE ":40104 " MOVE CURSOR "5*" MOVE CURSOR TO TOP "F5 " ABORT CURRENT DIRECTORY ":4010}5 " MOVE FILE/BEFORE THIS FILE ":40105 " DELETE THIS FILE ":40105 " REWRITE THE DIRECTORY "6 " PRINT FORMATTED DIRECTORY "O6 "  DISPLAY THIS HELP SCREEN ":40106 " PRESS RETURN TO CONTINUE "6 " "6 40:K$(13)30906"":7" ":