" UICKDIT 128 R6.19" u" RITTEN FOR THE -64 BY TEPHEN ERGUSSON (190688)|"" ODIFIED FOR THE -128 BY IRK CILLAN (020190)"$" PDATED BY IRK CILLAN & HRIS LEMING (041092)."*8(0)5" 80 OLUMNS NLY! "::%HB0:A(4624)256(4625)vL252,(A478)256:251,(A478)255:(A56)V252,(A412)256:251,(A412)255:(A43)15:47,0:48,5::6,1U$" ":U$U$U$U$U$U$:U$U$U$U$[(A$,B$,CF$,CF%,CO,DL$,DV,DV$,EC%,E$,ED$,EX,F,F$,FL$,I,L,LE,LF%,ML,N$,S,SC,T,TR,T1,T3,ZS,ZT,Z$2"0":DV(186):5700:EX999DV8<ML2500:TA%(255),TP%(255),ML$(ML):5700 FTP%(13)13:TA%(13)13:I3264:TP%(I)I:TA%(I)I::I6590:TP%(I)I128:TA%(I)I32:tPI9196:TP%(I)I:TA%(I)I::TP%(95)164:I97122:TP%(I)I32::TP%(127)20:I193218:TA%(I)I128:zZ:d" AIN ENUn" x""(14)""28)""28)" UICKDIT 128 " 28)" ETSCII ILE ANDLER "= 28)" AND ORD ROCESSOR "b 28)" R6.1 " 31)"TEPHEN ERGUSSON" 33)"IRK CILLAN" 33)"HRIS LEMING" 28)""!28)" <^> - NIT# ";:"## ";DV/!28)" <$> - IRECTORY "W!28)" <> - DIT ENU "!28)" <> - RINT ILE "!28)" <> - OAD A ILE "!28)" <> - EAD A ILE "!28)" <> - RITE A ILE """28)" <> - ISK OMMANDS"G",28)" <> - UNCTION EYS"o"628)" <> - UIT ROGRAM ""@28)"""J,30,22,"OMMAND:> "(27)"@""TE$:E$"4"E$"$""^I("^$EPLRWCFQ",E$):I01620:ՙE$3#hI1660,2210,1680,3550,3370,1940,2140,4170,1710,18809#r:I#|5650:1410O#:v#L:2250:ՙ29);:1690: 2:1610#" O FILE IN MEMORY! ";:#:#4090:1610#:$"":$:8$" ET NPUT FROM EYBOARDX$" b$E$""o$"";$A$:("",A$)" ";:EC%11780$A$(13)" ":$A$(20)1840$(E$)01790$&" ";:E$(E$,(E$)1):1780%0A$(34)A$"'" %:A$;:E$E$A$9%D(E$)2551780:ՙ:?%N:L%X" UITY%b" %l""28)"RE YOU SURE (ٞ/N):> ":E$:E$"N"1380%v""28)"":28)"ND OF UICKDIT"%15:%:%" EAD A ILE &" &0,0,26,24,14&" EAD A ILE "U&"ILENAME:":"> ";:1750m&E$"""":1410&(E$)1(E$)161980&FL$E$:1,DV,2,FL$:2090&EX" ILE NOT FOUND! ":1:1970&"":1730'3072:LE(142):ST2090:2060:1:1730:1970"'2060:2040@' A$(U$,LE):A$"":ՙA$F'L' :b'*" RROR HANNELx'4" '>15,EX,Z$,ZT,ZS:'H" "EX" "Z$;ZT" "ZS" ":4500:'R:'\" RITE A ILE'f" "(pCO1:" REATE A ILE "60)" NTER '..' TO EXIT ".(z:1730Y(LCOML1:1750:E$".."ML$(L)E$:z(CF$"":LL1:L01380:2250(:(" IRECTORY(" (52,1,79,21:"";:"*=S",U(DV):"":1610(:(" DIT OMMANDS)" d)(27)"@ ")" <> PPEND <> ONTINUE <> ELETE <> XCHANGE <> LOCK OVE "8*" <> DIT <> NSERT <> IST <> LOBAL <> ODIFY "*" <> REVIEW <> EPEAT <> AVE <> ALUES <> RANSLATE "* " "*+ "NTER DIT OMMAND:> ";:EC%1:1750:EC%0:+ E$""1380R+ E$"#"3330:2250|+$ E$"C""ONTINUE...":COL1:2170+. L01690::2270+8 E$"S"T11:T3L:2520:1380,B T("PLDIREMXAVTBG",E$):TT3060,3110,3160,3250,2930,2660,2750,3830,3920,4010,6360,3670,6600:2250X,L I2(E$):("1234567890-",(E$,I,1)):Ս2490:2250,V T(E$,"-"):T0("BDLPSX",(E$,1))02490:2250,` TT1((E$,2,T2)):T3((E$,T1)):T1((E$,2)):T3T1,j T("SBDLPXEAIMRV",(E$,1))-t T6T1T1(T10):T30T3L)-~ T0T1T32490:2250W- T6(T10T30(E$,"-")0)2490:2250w- T11T1LT3L2500:2250- T10DL$""DL$"/"- T12520:1380- T13730,3220,3140,3090,3900,2710,3970,3300,2800,2980,4060:2250. " AD OMMAND! ":). " INES OUT OF RANGE! ":/. :A. " AVE ILES. " x. CF$"""OAD AME WAS "CF$. "ILENAME:> ";:1750:FL$E$. CF%0:(CF$""FL$"")FL$CF$:CF%1. FL$".."CF$"":. (FL$)1(FL$)162550/ LF%A$(10):A$""E/( 2,DV,2,"0:"FL$",S,W":2090:EX632:2630]/2 "AVING ILE..."/< IT1T3:2,ML$(I)A$::2:CF$"":LF%0:/F CF%0" ILE XISTS! - EPLACE (Y/Ξ):> ":E$:E$"Y"25400P CF%0:"CRATCHING OLD "CF$:15,"S0:"FL$:26000Z :,0d " DIT A INE@0n " J0x 3330n0 "DIT WHICH LINE:> ";:17500 E$"":T1(E$):T11T1L2500:26900 "":" INE IS AS FOLLOWS ":ML$(T1)1 "NTER NEW LINE"T1:1730:1750:E$""ML$(T1)E$1 #1 :91 " ODIFY A INEO1 " a1 DL$"/":33301 "ODIFY WHICH LINE:> ";:17501 E$"":T1(E$):T11T1L2500:27801 "":" INE IS AS FOLLOWS ":1730:ML$(T1){2 "":"NTER XISTING TEXT"DL$"EW TEXT (R '*' TO CHANGE DELIMITER CHARACTER)"2 ""2 "";:1750:E$"*"2900:28002 EX(E$,DL$):EX02" A$(E$,EX1):B$(E$,EX1);3, EX(ML$(T1),A$):EX0" OURCE STRING NOT FOUND! ":~36 (ML$(T1))(A$)(B$)255" INE TOO LONG TO CHANGE! ":3@ ED$(ML$(T1),EX(A$)):ML$(T1)(ML$(T1),EX1)B$ED$3J :1730:ML$(T1): 4T "NPUT NEW DELIMITER:> ";:E$:E$(13)DL$E$4^ DL$:4h :44r " EPEAT A INEJ4| " v4 LML1" IMIT EACHED! "::Ս33304 "EPEAT WHICH LINE:> ";:17504 E$"":T1(E$):T11T1L2500:29604 "PPEND/NSERT (/ɞ):> ";:17505 EX("AI",(E$,1)):EX065 EX1LL1:ML$(L)ML$(T1):T5 (E$)1E$(E$,2):30305 "NSERT BEFORE WHICH LINE:> ";:17505 E$"":T3T1:T1(E$):T11T1L2500:30205 E$ML$(T3):33105 :5 " REVIEW ILE5 " 6 T11:T3L36 :1730:3095:IT1T3:ML$(I)::1730;6 :A6 :S6& " IST ILEe60 " s6: T11:T3L6D :1730:3145:IT1T3:""I" "ML$(I)::17306I :6N :6X " ELETE A INE6b " 6l 33307v "ELETE WHICH LINE:> ";:1750G7 E$"":T1(E$):T3T1:T11T1L2500:3190`7 L1ML$(1)"":L0:s7 T3LLT11:7 EXT3T11:IT31L:ML$(IEX)ML$(I)::LLEX:7 :7 " NSERT A INE7 " 8 LML1" IMIT EACHED! "::Ս333038 "NSERT BEFORE WHICH LINE:> ";:1750g8 E$"":T1(E$):T3T1:T11T1L2500:32808 "NTER NEW LINE"T1::1730:17508 LL1:ILT111:ML$(I)ML$(I1)::ML$(T1)E$:8 :8 " UMBER OF INES IN ILE 9 " ;9 "HE CURRENT FILE CONTAINS"L"LINES":A9 :U9* " OAD A ILEi94 " {9> 0,0,26,24,19H " OAD A ILE "9R "ILENAME:":"> ";:17509\ E$"""":14109f (E$)1(E$)163410:p FL$E$:1,DV,2,FL$:2090-:z EX" ILE NOT FOUND! ":1:3410@: L0L1:3490b: "PPEND (Y/Ξ):> "~: E$:E$"Y"LL1:L1: CF$FL$:"":1730: 3072:LE(142):ST2090:3520:1:1730:2250: 3520:LL1:3500; A$(U$,LE):A$"":ML$(L)"":; A$:ML$(L)A$:; :2; " RINT ILEE; " e; L029);:1690: 2:1610; 3650:0,0,26,24,1:" RINT ILE ";"INES TO BE PRINTED":"(Ξ=LL):> ";;1750:E$""T11:T3L:3630:T(E$,"-")D<T0T1(E$):T3T1:T1((E$,1,T1)):T3((E$,T1)):T1T1(T10):T30T3Lp<$T103640:ՋT1LT31T3L2500:3590<.4:4,4,7:IT1T3:4,ML$(I)::4:4<8:"":1610 ";:1750:E$"":T1(E$)x=~"AST LINE IN BLOCK:> ";:1750:E$"":T3(E$)=T11T31T1LT3L2500:3700="OPY, NSERT OR PPEND (Þ/ɞ/):> ";>N$:N$(13):Ջ("CIA",N$)03740:ՙN$4>N$"A"IT1T3:LL1:ML$(L)ML$(I)::3810j>"EW LINE NUMBER:> ";:1750:EX(E$):E$"">EX1EXL(T1EXEXT3)2500:3760>COT3T11:LLCO:ILEXCO 1:ML$(I)ML$(ICO):>T1EXT1T1CO:T3T3CO?EXEXT1:IT1T3:ML$(IEX)ML$(I)::N$"C"E?IT31L:ML$(ICO)ML$(I)::LLCO:K?:d?" XCHANGE 2 INES}?" ? 3330?"INE NUMBER:> ";:1750?E$"":T1(E$):T11T1L2500:3860@("WAP WITH WHICH LINE:> ";:1750:T3(E$)2@2E$"":ՋT30T3LT1T32500:3880^@<E$ML$(T1):ML$(T1)ML$(T3):ML$(T3)E$:d@F:@P" OTO (PPEND) A INE@Z" @d3330@n"PPEND TO WHICH LINE:> ";:1750@xE$"":T1(E$):T11T1L2500:3950+A"ONTINUE LINE"T1::1730:ML$(T1);nA1750:(ML$(T1))(E$)255" INE TOO LONG TO CHANGE! ":AML$(T1)ML$(T1)E$:A:A" ALUES FOR A INEA" A3330A"ALUES FOR WHICH LINE:> ";:1750#BE$"":T1(E$):T11T1L2500:4040VB:ML$(T1):"ENGTH:"(ML$(T1)):"SC:";BI1(ML$(T1)):((ML$(T1),I));:::B:B" SSIGN UNCTION EYB" B0,0,26,24,1:" UNCTION EYS ":*C"HICH KEY (1-8):> ";:E$:E$(13)4150:ՙE$^C"T1(E$):T11T18" UT OF RANGE! ":4120C,"NTER STRING FOR KEY"T1:"> ";:1750:T1,E$C6"":C@:CJ" ISK OMMANDSCT" C^""Dh""17)""`Dr17)" UICKDIT 128 ISK OMMAND ENU ":5700D|17)" NIT# ";:"##";DV;:" ODE: "DV$" "D17)" ":E5,DV,0,"$0:*":#5,E$:2110:EX5:4270=E17)" URRENT DIRECTORY: ";mEEX17:#5,E$::I116:#5,E$:E$;::5:E15)""E15)" <^> - HANGE NIT <> - NITIALISE ">F15)" <*> - CAN NITS <> - ALIDATE ISK "F15)" <> - RROR HANNEL <> - ORMAT ISK "F15)" <$> - IRECTORY <@> - ISK OMMAND "G15)" <#> - ESET RIVE <> - CRATCH ILE "bG15)" <1> - 1541 ODE <> - NSCRATCH ILES "G15)" <7> - 1571 ODE <> - ONCAT ILES "G15)" <2> - 1571 IDE 2 ODE <> - ENAME ILE "=H15)"  - HANGE IRECTORY <> - ILE OPY ENU "{H15)""H17,15,79,24,1:"OMMAND:> ";H&E$:E$"4"E$"$":ՋE$"3"E$"#"I0I((13)"^*E$#172/IVF@SUCRK",E$):IE$:4390fI:I1380,4430,4450,4480,4600,5140,5180,5320,5220,4820,5100,4950,4890,5600,4990,5360,4520,5040,5850lID:|IN5650:4200IX:Ib5700:EX9995650Il4200Iv:I2110:2120:4380I:I"RESS ANY KEY TO CONTINUE":E$:I:J" ONCATJ" )JDV$""4580bJ"ESTINATION ILE:> ";:1750:ED$E$:ED$""4380J"ILE TO ONCAT:> ";:1750:E$""4380J(E$)(ED$),U(DV):4480J" OT AVAILABLE ON INK! ":4500:4380J:J" IRECTORY K" >K "";:I("15811571",DV$):DV$"1541"I9TKI0U(DV):4780{K 5:5,DV,5,"#":I9T18:S0:4680K*I515,"M-R"(43)(2):#15,A$:B$(0):4670K415,"M-R"(121)(0)(2):#15,A$,B$K>T(A$):S(B$)KH4790:EX5:4170LR5443,4:I95443,1445L\5427:: T,S:S255GLf4790:5120:|LpI915,"M-R"(250)(2)(3):#15,A$,B$,B$:4760LzI515,"M-R"(169)(2)(2):#15,A$,B$:4760L15,"M-R"(176)(0):#15,A$L15,"M-R"(184)(0):#15,B$MB(A$)256(B$):B$((B),2)-M""B$" BLOCKS FREE":5 /";:I1"/";@N1750:I115,"CD//"E$:՘15,"/"E$VN2110:2120:4200\N:kN" ORMATzN$" N.DV$"""ORMAT INK - RE OU URE:> ";:E$:E$"Y"4380N8"NTER AME,ID:> ";:1750:E$""4380OB15,"N0:"E$:4870OL:%OV" ALIDATE6O`" aOj"ALIDATING DISK...":15,"V0":4480gOt:wO~" CRATCHO" O"ILE TO CRATCH:> ";:1750:ED$E$:ED$""4380O(ED$),U(DV):" "DS$" ":4500:4380O:O" ENAMEP" CP"LD ILENAME:> ";:1750:ED$E$:ED$""4380oP"EW ILENAME:> ";:1750:E$""4380P(ED$)(E$),U(DV):4480P:P" NITIALISEP" P15,"I0":4870P :P" ESETP" P(15,"UJ":4870Q2:Q<" 1541 ODE)QF" QQPDV$""4580:՘15,"U0>M0":4870WQZ:pQd" 1571 IDE 2 ODEQn "QxDV$""4580Q2:2,DV,2,"#":15,"B-P 2 3"Q2,(231):15,"U1 2 0 18 0"Q15,"B-P 2 3":RA$"":#2,A$:2rR(A$)128" ISK IS IN 1571 OUBLE-IDED FORMAT. ":" OU CANNOT ACCESS IDE 2 ODE! ":4500:4380R2110:15,"U0>M0":15,"U0>H1":4870R:R" 1571 MODER" RDV$""4580:՘15,"U0>M1":4870R:S" NSCRATCHS" gSI("154115711581",DV$):I0" OT AVAILABLE ON "DV$"! ":4500:4380S"ILENAME:> ";:1750:E$""4380:N$(E$"",16)S"ILE YPE (Ӟ)EQ (О)RG (՞)SR (Ҟ)EL:> ";T"E$:CO("SPUR",E$):CO05410:ՙE$XT,I915,"M-R"(42)(2)(2):#15,B$,A$:T(A$):S(B$):5450T6I9T18:S1:ՋI1315,"M-R"(121)(0)(3):#15,A$,B$,B$:T(A$):S(B$)T@15,"I0":2110:EX2120:4380TJ2:2,DV,2,"#":2110:EX2120:4380UT15,"U1:";2;0;T;S:2110:EX2120:4380RU^15,"B-P:";2;0:#2,A$,B$:TR(A$):SC(B$):F2xUh15,"B-P:";2;F:#2,E$:(E$)5510Ur#2,A$,B$:F$"":X116U|#2,E$:F$F$E$::F$""5530:ՋN$F$5540UFF32:F2565480UTR0TTR:SSC:5460 V" ILE OT RESENT! ":2:4500:4380AV"NSCRATCHING "N$(27)"@"bV15,"B-P:";2;F:2,(CO128);V15,"U2:";2;0;T;S:2110:EX2120:4380V2:"EBUILDING ON NIT#"DV:15,"V0"V15:15,DV,15:4480V:V" ISK OMMANDW" ,W"NTER ISK OMMAND:> ";:1750JWE$""4380:՘15,E$:4870PW:eW" HANGE NITSzW" W&DVDV1:DV12DV16:ՋDV17DV8W0DV$"":5700:DV$""5670:ՎW::WD" CAN NITSWN" XX5830:15:15,DV,15:EX9993Xb65481,,15:65463:(144)1285830QXl15,"M-R"(198)(229)(2)Xv#15,A$,B$:DV$A$((B$)127):EX(A$)(B$)XDV$"41"DV$"70"DV$"1541":5820XDV$"71"DV$"1571":5820XEX510DV$"1581":5820YEX210DV$"":5820!YEX391DV$"8050":58208YEX186DV$"8250"JY15:15,DV,15RY:XY:oY" ILE OPY ENUY" Y""26)""Y26)" ILE OPY ENU "Z26)" NIT# ";:"##";DV;:" ODE: "DV$" "CZ 25)""sZ25)" <> - ILE UPLICATOR "Z 25)" <> - IFFY ILE OPIER "Z*25)" <> - UBDIRECTORY OPIER "Z425)""%[>27,8,79,24,1:"OMMAND:> ";W[HE$:I("DJS"(13),E$):I44170:ՋI05960w[RE$:I5990,6060,6260:5950}[\:[f" ILE UPLICATOR[p" [z"ILENAME:> ";:1750:ED$E$:ED$""5950 \"EW ILENAME:> ";:1750:E$""5950 \(ED$)(E$),U(DV)6\2110:2120:4170<\:Y\" IFFY ILE OPIERv\" \6240:@#DV:\"OPY FROM NIT# (Ξ="DV"):> ";\1750:E$""FDV:""(27)"K"F:F(E$)"]FDVIDV:DVF:5700:DVI:EX999""(27)"Q";:6090X]"OPY TO NIT# ";:FDV"(Ξ="DV")";]":> ";:1750:E$""TDV:""(27)"K"T:T(E$)]TF5950:ՋTDVIDV:DVT:5700:DVI:EX999""(27)"Q";:6120]"ILENAME:> "; ^1750:E$""5950:ED$E$6^"ILE YPE (О)RG (Ӟ)EQ:> ";R^$E$:("PS",E$)06180j^.E$:"OPYING..."^8@#F:@XT:E$"P"ED$PRG:լED$SEQ^B15:15,F,15:2110:EX2120^L15:15,T,15:2110:EX2120^V@#DV:15:15,DV,15:4170_`:" IFFY NLY! ":4500:5950_j:9_t" UBDIRECTORY OPIERU_~" _DV$""" INK ONLY! ":4500:5950_"ILENAME:> ";:1750:E$""5950:ED$E$_"OPY FROM (Ξ=URRENT):> ";:1750:F$E$"`"OPY TO ";:F$""THE"(Ξ=URRENT)";A`":> ";:1750:F$E$5950U`"OPYING..."`15,"C/"E$"/:"ED$"=/"F$"/:"ED$:6040`:`" RANSLATE`" `:29)""`29)" RANSLATION " aCF$"":ՙ37(CF$)2)"ILE: "CF$Da 28)""ma28)" <> - TO ETSCII "a28)" <> - TO RUE SCII "a(28)""a2,30,7,"OMMAND:> "(27)"@"b<E$:EX("PT"(13),E$):EX36580:ՋEX06460(bFE$:EX16510hbP"DD INEFEEDS TO ARRIAGE ETURNS (ٞ/N):> ";bZE$:E$(13)E$"Y":Ջ("YN",E$)06490bdE$:E$"Y"LF%10:LF%0bn"RANSLATING LINE"bxI1L:16)""I" OF"L:T1: cS((ML$(I),T,1))@cEX1TP%(S)(ML$(I),T,1)(TP%(S)):TT1:6570vcEX2TA%(S)(ML$(I),T,1)(TA%(S)):TT1:6570cML$(I)(ML$(I),T1)(ML$(I),T1)cT(ML$(I)):c" ":c:c" LOBAL IND/EPLACEc" d"EARCH CHARACTERS:> ";4d1750:E$"":N$E$\d"IND OR EPLACE (ƞ/Ҟ):> ";dE$:EX("FR",E$):EX06650:ՙE$dEX2"EPLACE WITH:> ";:1750:E$""dT11L:(ML$(T1),N$)F1:EX6690,6730d:d"""T1" ";e,I((ML$(T1),F),N$)Ke6I(ML$(T1),F,I1)""N$"";:FFI(N$)1:6700_e@(ML$(T1),F):eJ(ML$(T1))(N$)(E$)255"INE"T1" TOO LONG TO CHANGE!":eTI((ML$(T1),F),N$)f^IML$(T1)(ML$(T1),1,FI2)E$(ML$(T1),FI(N$)1):FFI:6740#fh""T1" "ML$(T1): t  wȄL)HX iȘH 2h8H i" ɠ  " i hhH e8i h H h8i 6i L`H    hSEQPRGUSRRELCBMDIRORE...@ 0 "Y  ` % "  ` B`d`