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 2000 4706 NR,1::"ARE YOU SURE? (Y/N)"@ (KB,0R 2K$: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) nT xNR,R2::C20);"";(N$(R(I1)CD1),4,16)Z h ""HE$; D1NC,21:" P = PRIOR SCREEN " DN40NC,21:" N = NEXT SCREEN " I((ND1)2.5):I19I19 80:NR,3:"" XDDI (N$(X),4,16)",";( T$((N$(X))248);D ((N$(X))64)64"<";a (N$(XI1)(0))0280 20);(N$(XI1),4,16)","; T$((N$(XI1))248); ((N$(XI1))64)64"<";  :RI1RI1 R1R1 "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""S40:K$""430NR,7::" READING DISK NAME "15,DV,15,"UI":15,E,E$,T,STY$(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:SE29V15,"I0":1,DV,3,"$"xML:15,EN$,EM$:EN$"00"710NR,7:" DISK READ ERROR # "EN$" ":1480HE$(N$,143,16)","(N$,161,2) TY$"1581"HE$(N$,3,16)","(N$,21,2)8TY$"V2.7"HE$(N$,5,16)","(N$,23,2)VNR,3::" "HE$" "vTY$"V2.7"ML:ML:ML:MLNR,7::" READING ENTRY #"N" "ML:X125432:Y((N$,X,1))127Y0770NN1:N$(N)(N$,X,30)NR,7::NC,20:N  ST0730? " TOTAL ENTRIES ="O*X11500:V41j9N0"":1410y>M$"":140H300:FR(I1)CD1RK$"-"LN$L1$:990WK$"*"LN$L2$:990\K$" "N11040fK$","1120kK$"R"1600 pK$""1190zK$""1230.K$""1700JK$""2000:140:840[M$N$(F):80t300:TR(I1)CD1FT1FT90:84070FTV1FTV1:TT1N$(F)N$(FV):FFV:FT960N$(T)M$830NMX19971NR,1::"TOO MANY FILES":X12000::90:840=70:B0SNN1:XNF11gN$(X)N$(X1):uN$(F)LN$~83030:K$"Y"90:84070:B0$NN1:XFN.N$(X)N$(X1):8N$(N1)""BNC1C0LFN1RR(R1) QDNDD40V830$`A(N$(F));jA130A194:1150LtA194A130g~N$(F)(A)(N$(F),29)NR,RL2::CL2018);""(60(A194));(32(A130))84010030:K$"Y"1410K$""120090:840 100:30:K$"Y"90:8401NR,1::"WRITING DIRECTORY "FN8(N8)1270_NN1:N$(N)Z$:1250S0:TTR:S(N8.5)255:N1:2,DV,2,"#"S(S1)255T0 15,"B-P";2;02,(T);(S(S1));:P2XNN7:15,"B-P";2;P(2,N$(X);:PP32::NX5215,"U2";2;0;TR;S(S):15,EN$,EM$:EN$"00"1370A<NR,1:aF" DISK WRITE ERROR # "EN$wPT12000::1440ZSS1:S(S)2551280dB1410n2,(0);(255);Z$:15,"U2";2;0;TR;SExNR,1::"VALIDATING BAM ":15,"V0" }15,E,E$,T,S:E;E$;T;S!2:15,"I0":15ENR,1::"ANOTHER DISK? (Y/N)"W40:K$"Y"h"":NR,7:""" PROGRAM TERMINATED """1:2:1565418) 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,255@NN$"":NR,1::"NEW NAME ";NN$:90:NN$""830/JNN$(NN$,16):70UT(NN$)16 NN$NN$(160):1620^DU0:X1N:NN$(N$(X),4,16)DU1:XNh:DU01670rNR,1::"DUPLICATE NAME "NN$:X12000::830M$N$(F):N$(F)(M$,3)NN$(M$,(M$)19):830(NR,1::"TURN PRINTER ON - PRESS RETURN"A40:K$""90:840UK$(13)1710n90:4,4:ST01700NR,1::"LINE UP PAPER AND PRESS RETURN"40:K$""1790K$(13)174090:70:B%(0)664:X1N%B%(X)((N$(X),30,1))256((N$(X),29,1)):B%(0)B%(0)B%(X)]:4,(15);(145);HE$;" ";N;"FILES";B%(0);"FREE":4vX130:X$"":Y14W(Y1)30X:WN1780W$(B%(W)):W$(W$,(W$)1)(W$)4W$W$" ":1769X$X$W$(N$(W),4,16)Y:4,X$:X:4 4:90:840" ";J" "" DIRECTORY FILER COMMANDS ":4010" N NEXT SCREEN OF FILES "" P PREVIOUS SCREEN OF FILES " " * INSERT ******* ABOVE FILE "E " - INSERT DIVIDER ABOVE FILE "v " R RENAME THIS FILE " " , LOCK/UNLOCK THIS FILE ":4010 " MOVE CURSOR "!*" MOVE CURSOR TO TOP "F! " ABORT CURRENT DIRECTORY ":4010}! " MOVE FILE/BEFORE THIS FILE ":4010! " DELETE THIS FILE ":4010! " REWRITE THE DIRECTORY "" " PRINT FORMATTED DIRECTORY "O" "  DISPLAY THIS HELP SCREEN ":4010" " PRESS RETURN TO CONTINUE "" " "" 40:K$(13)3090"#" ":