L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( t Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`6 dKM6@p()]̠Ģ,a@E()Q6$T "$&(*,.02468  M `  ` ` ȱ`L/ Lfh ` ;B-` ;B-`  -I 8 ز'DH 7  F@ 8Y01i  ,ԥDnHi W hx W L  IL, HJ݌h$$ Hhꝍ݌` x W xLW  `8 !"#$%&'( )*+,-./0123456789:;<=> ?@ABCDEFGHIJKLMNOPQRS   i ۤ " L $ p f g g  U  U  U EEHJ݌h f g g g g  A V f i > 0֩$$ f $Hh i  , L.  &&꽌ɪɵ'*&%&E'зЮ꽌ɪФ`*xY+&x'8*BIxix&&  x) + ') + &д +`FG8`0($ p,&"  q (  > 80|'x &Hh &  Y \ '&Y \ x ꪽ\ ' `Hh`aI꽌ɪ򠚽ɭ&Y & &Y &   꽌ɪ\8`)[?d2e?Pa(Ԡ)Gd8.?)r.?(rre`[4Xca(ŠŠ٠ԠŮ)c_ ŠŠ٠ԠŮ)c_qbGd2ePa@E(Ժ)Gqq\,de[R\bGd2ePa(ź)Gqq\,d e.?r[R,`$6q.?6@r`$,d6?e`$6q`$,q"6PbE((ŠŠĠ)jZd2ed6?eca(Ӡξ٠ϠŠҠ)a(ӠŠþ٠ϠĠ)G)\d.?(r.?)r.?$re`]:_q.?6@r`$_d6?ea()`$(QHdc\?r?$2~\2ca(ԠŠ)a(Ӡξ٠ϠΠ٠)GR@cM @<d2e?`.? r$Fa(ŠϠĠ)_Z"\dqq`%q\q`$Xf(ccP a(̠ΠԠ)FPa(Š)FP a(ŠΠԠ)FPa(Š)F-`.Ġ٠Š)e N@"(rKM6a(ŠŠΠ)ca(ŠԠ̠)csM: q.?r]٠ʠӠ̤̠ԠԠԠΠàĠŠҠΠà qT@p(w]]ˠ٠]Ԡ٠]ŠҠî]]ڠ̭]Ġ֭]a(    [Ġ٠٠)Ua(ϠŠҠǮŠϠحԠϠŠҠӠ)Ma(ՠ̠ŠĠȠ̠ŠΠӠӠΠ)\[Jd2e?oP a(Ԡ٠٠ҠԠ)d2eM6M6ҠέŠĠӠԠΠԠҠƠ)GUa(̠ҠҠҠ͠Π­٠ŠŬՠ̠ĠϠ)9a(٠ӠϠƠŠ­Ԡɮ)cVa(ŠϠԠӠΠƠŠԠӠ)GUa(ӠĠŮ٠Ǡ̠Ӡՠ̠ĠԠȠ)Xa(נӠŠŠҬǭŬӠĠĠ͠Š)G*a(ȠˠԠՠŠ)cXa(ŬҬԠƠҠa(ӠŠ٠ӬΠՠԠŠҠӠԮ)\a(ŠҠҠ͠ӠŬŠŠӠՠ̠ŠŠϠŮ)\Xa(ՠ̠נŠĠϠŠՠҠŠԠɬȠSfa(ҠŠĠŢŠŠŠҠƠӠĠ)Xpa(ȠƠŠҠӮҠźŠ͠ȠҠӠĠí)GRza(ӬŠ̠ĠŠҠĠŠӮƠҠ)T)@Ha(ҠԠŠРƠŠήŠΠԢ)\vRa(נԠРҠӮҠҠΠŠϮΠŠŢΠӠĢ)F\a(Π͢ԠΠΠĠҠΠ)cԠ̠ӠŠԠŠŢԠӠԮ)cQ*a(Šˠ̠Π٠ҠԠŬΠ̠),4a(ĬǠȠԠŢ)cQ>a(ՠ٠נΠŠԠɮŠҠנŠŢǠ)GQa(ΠĮ)\a(ՠŠנ٠ϠŠŠԭǠŮ)GH a(ԠŠŠٮ)ca(ՠ̠ŠĠϠԠע)Sa(ҠŢĠȠעӠŮϠĠ̠Ӭ)@ a(ҠΠŠΠ);a(Ġՠ̠ŠĠϠԠΠҠŮ)c`a(ŠǠΠՠ٠ԠҠΠŠԠŠҠƠ)cXa(נԠӠĠ̠̠ӠȠՠȠϠŠĠŠǠӠ)d2ec)a(ŠӠˠ͠Ů)c[a(ԠŠՠȠϠ)Ga(ҠŠȠŠԠɠͮ)cVa(ԠήŠŠǠˠϮ̠q-r\d@p@*#rq-r]ԠŠNUVW-rX&\d!X]Ԡ̬ŬŬŠ1ba@a@*#ra@*#ra@*#;@rr lYYva@E(Š)E@a(Ň)d"eQ\d6?eM6d2e?a((UVW;@rq <@*#rrY&a@E(Š)E@E(Ұ°)b*a@E(Š)E@a@E(Ġ)E@Ka(ǠŠΠ̠Š)bXE(Ũө)&a@E(Š)E@0`@9()%b:UVW-r;DŠנǠ)a(ŢϠĠϠΠǠ):S()&@`@9()$`@9()$`@9()$_*a@E(Π)E@E(ְ)`@9()%_3]ƠŬŠĠԠΠԠ(a@E(Ġ)E@E(Ұ°)R@qӠנΠ*]ŠǠŠĠŠΠbd6?eq8--rr-r-rr&]ŠҠƠĠӠNd"e M6a(ԠˠŠǠŠ)a(ŠĠҺ)Va(עϠ)1|a@E(ң)a@E(Σ)]ΠƠԠE-rq-r--rrq.?r.?r`;@r$.UVWd--rr e<@*#rrYJ`--rr$"d2ea(٠̇)d2eUVWY]̠())6q.?6@r`$6`$R@2@o.?%rPa(Ǡˠ)F-rJ]ΠΠԠT_h8^dedede(de]ҠӠ;hd6ed7ed8e(d9eM]ҠӠra@E(ԠŠ)@a(ԠΠϠ)a(ԠâϠŠǠ)q"cd"ed2e?ca(ԠҠΠ̠ԠŠ)E(ҠƠĠΠԠΠϠ)GA,a(ǠҠàϠŠǠŠ)Gd2e@p)\M6a@E(Πìɬ)Fdede-rqde.?6rde.?7rq B]ŠȠǠ٠Π٬ǠԠMo a(ԠȠˠΠ)a(Ҡ̠̭ŠN@"rq_K@B;@rrp(Ÿ)UVW;@rde<@*rrYdHe[z@p(ù°ðù°ù°ŶİŶ)\M6;@p(`.?6@r%\d6?eKqq.?Jr.?KrN@"(rD42rC@"r@p()]Ĥ̭5q`.?r%q.?r.?rq)N@"r@p(Ԡ)F]Ԡ͠ϠŠǠϠ٬̠͠ nM6>xcP a(Šˠ)cP a(٠٠)Xca(ӠĠǠҠ)a(ӠԠΠŠĠ٠Š)Ca(͠͠ŠŠˮ)ca(ӠٯΩ)0`.?6@r$! ]!]ŠˠǠ!]٠٠Š!(]Ҡà!2]<_n]dUVW$de.?r`.?r%qYde[]Ġ     168,104,166,223,154,72,152,72,96..nD$"PR#1":.x" K":H.D$"PR#1"V." K 80N"\.j.D$"PR#1"y." K 132N"..PF0ı.D$"PR#0".R OPTIONS:"-"1 40 COLUMNS"3-"2 80 COLUMNS"H-"3 132 COLUMNS"f- :"WHICH ";PF$:PF(PF$)z-PF1PF35130-4810-(PF0:4810-2"MAXFILES3":-<*** APPLESOFT ONERR CORRECTION-FI10131022:PP:I,PP:I-PI0-Z .d104,DS",t"5 REPORT"#,~"6 SORT"=,"7 TURN ON PRINTER"X,"8 TURN OFF PRINTER"s,"9 LIST ALL RECORDS","10 QUIT",,"WHICH ";S$:S(S$),S1S104810,S1050,1780,1620,2340,2940,1415,5080,5160,4500,5170, -"PRINTENTLY CONTAINS: "NR" RECORDS"::"ROOM FOR "BNR" MORE RECORDS"D+$s+.PF1ĺ"THE PRINTER IS ";::"ON"::4930+8"THE PRINTER IS OFF"+B+L"1 SELECT DATA BASE"+V"2 SEARCH AND/OR CHANGE DATA"+`"3 ENTER RECORDS",j"4 DELETE RECOR*A$(13)ı*I$I$A$'*4750>**** MAIN MENU ***H*4840R*1013X**"******* DATA BASE MANAGEMENT II ******"*:" APPLE COMPUTER INC"*" MODIFIED BY GARY A. FOOTE"*"CURRENT DATA BASE: "DB$:>+"CURRE53103)>"PRESS RETURN TO CONTINUE, ESC FOR MENU";;)@L$N)B(L$)274810a)D(L$)134680k)F4672u)H:L0)RPF5230,5250,5280)\4620)f)p *** INPUT ROUTINES ***)zI$"")COMMA$"NO"Ą"";I$:)A$)A$(3)ij*A$;S:( *** LIST ***(L0$(7(J1NR:YR(J)N(PF5230,5250,5280i(" "H$(0)": ";J:LL1u(I1NH(I" "H$(I)": "N$(Y,I)(LL1(I(:LL1(LNH204660( J(5310( "HIT RETURN FOR MENU...";L$(*4810)4$" "F$"FILE"'NR 'J1NR-'FF43908'YR(J)D'I1NHQ'N$(Y,I)X'Ib'4400m'&R$(J)t'0J':D$"CLOSE"'DFF0'N'X*** SAVE REPORTNAMEFILE ***'bNRNN'lF$"RPTFMTNAME"'vI1NR:R$(I)RN$(I):I'4280(NRNREAD"DB$" "F$"FILE"&6NR'&@J1NR4&JFF4230@&TI1NHJ&^4720Y&hN$(J,I)I$`&rIk&wR(J)Ju&|4240&R$(J)&J&D$"CLOSE"&FF0&&*** SAVE FILES ***&F$"INDEX"FF1&D$"OPEN"DB$" "F$"FILE" 'D$"WRITE"DBRN$(S)R$(S):E1:NRNS:3810&%4100T%1013::"NO REPORT FORMATS ON DISK...":]%NN1%"DO YOU WANT TO CREATE ONE (Y/N) ?";L$:L$"Y"4810%3880:NRNS:3010%*** READ FILES ***%F$"INDEX"FF1%"D$"OPEN"DB$" "F$"FILE"&,D$"**&$nNN0:I021:RN$(I)"":I:NSNR:$xF$"RPTFMTNAME"E$4070O$4110k$I1NR:RN$(I)R$(I):I$:"SELECT FROM:":$I1NR:I" "R$(I):I:$I" CREATE A NEW REPORT FORMAT":$"WHICH ";S$:S(S$):S1SI4030$NNS%SIRH(NR3)3:I1NR:K(I)(R$(I)):IG# K(0)(R$(I3)):LL(R$(I1))Q#NRNSc#3880::3160y#(*** SUB MENU ***#2:"SELECT FROM:":#<MF0ĺ"0 "H$(0)#FI1NH:I" "H$(I):I:#PMF0#Z$d*** READ REPORTNAMEFILE & SELECT REPORT *FMTFILE ***"NSNRD":"ENTER THE REPORT FORMAT NAME ";RN$(NN)]"F$RN$(NN)" RPTFMT"k"NR3RH3"I1NR:R$(I)(K(I)):I"R$(I3)(K(0))"4280:4440""*** SET-UP TO READ RPTFMTFILE ***"F$RN$(NN)" RPTFMT""4110%#RN$(NN)" REPORT FOR "H$(S)":"Q$;1!.X$"@"3650N!8" AND "H$(X)":"X$:3660W!B" "c!LI1RH!V36,K(3I1):H$(K(3I2));![K(3I)XK(3I1)!`I!jK(0)0ĭXK(3I1)Ĺ36,K(3I1):"TOTAL";!t:!~L4: "*** SET-UP TO SAVE RPT2)); I RR1* K(0)2LL1:0 < N3I2f V(N$(Y,K(N))):AC(I)AC(I)V:HCHCVl :I139((PF1)39):"-";:I: I1RH AC(I)03580 36,K(3I1):AC(I); I GT0Ĺ36,K(3I1):GT; :  !$AT":"(Y/N) ";L$,\ L$"Y"İ3880:E1:29806f 4810k K(0)0ĭN$(Y,S)Z$Ĺ36,K(3I1):HC:GTGTHC:HC0:RR0:LL1:L18İ2060:3610m RR0ĭK(0)1ĺp I1RHu K(3I)İ3510:K(0)23470w K(0)2ĭRR03470 z 36,K(3I1):N$(Y,K(3I L0İ3610 JF K(0)0Ĺ36,K(3I1):HC:GTGTHC:HC0:3540L Y T93540c* 5310o4 E3410> :"DO YOU WANT TO SAVE THE FORMAT":"FOR THIS REPORT TO DISK (Y/N) ";L$H L$"Y"E1:3720R :"MORE REPORTS USING THE "RN$(NN)" FORM LL0LLL:1240 I PF5230,5250,5280:3610:Z$N$(R(1),S):RR0\ J1NR:YR(J)m N$(Y,0)(J)~ Q$"@"3320 (N$(Y,S),(Q$))Q$3330 X$"@"3320 (N$(Y,X),(X$))X$3330 3435:Z$N$(Y,S) PF1ĭL18İ2060:3610 S$)b (S$)0Q$"@":3230Wl :"'AND' 2ND HEADER (Y/N) ";L$:L$"Y"X$"@":3200v :"ENTER # OF 'AND' HEADER ";X$:X(X$) :"@ WILL SELECT ALL RECORDS." :"SELECT RECORDS FOR "H$(S)"= ";:"";Q$: L$"Y"ĺ"AND "H$(X)"= ";:"";X$K(0)0:T91:3143LD K(I1)(A$):K(I1)0K(I1)131ĺ"":(37)1:3120G "DO YOU WANT A SUMMARY REPORT?";S$:S$"Y"K(0)2K LL0:"DO YOU WANT THIS REPORT SORTED? ";S$:S$"Y"LL1:K(I2)1N X "SELECT RECORDS BY WHICH HEADER # ";S$:S(K(I)(K$)# K(I)0K(I)NH3040Y "ENTER TAB FOR "H$(K(I))" ";:"";K$:K(I1)(K$)w K(I1)0K(I1)2553060 "TOTAL ON "H$(K(I))" (Y/N) ";:L$ L$"Y"K(I2)1:K(0)1 I& K(0)131470 "ENTER TAB FOR TOTAL: ";A$: (A$)00 I03NH3:K(I)0:I= I0NH:AC(I)0:I:HC0:GT0I E3150S 3940 :"HOW MANY HEADERS ";RH$:RH(RH$):RH1RHNH13010 E0RN$(NN)"PRESENT" I1RH33  "ENTER # OF HEADER YOU WANT IN":"POSITION #"(I2)3" ";:"";K$:RPTFMTNAMEFILE". D$"DELETE"DB$" INDEXFILE"N" D$"DELETE"DB$" HEADERFILE"Y, DB$""q6 F$"BASENAME":4110@ NR1ĺD$"DELETE BASENAMEFILE":4810J ISNR1T R$(I)R$(I1)^ Ih NRNR1:4280r 2470| ***REPORT*** T90 :E? (Y/N) ";:"";S$# S$"Y"2470S :12:11::(91);" DELETING DATABASE ]":^ 2830l DB$R$(S) F$"RPTFMTNAME" 4110 D$;"DELETE"DB$" "F$"FILE" I1NR D$;"DELETE"DB$" "R$(I)" RPTFMTFILE" I 1013:D$"DELETE"DB$" E A DATA BASE ***5n :"DELETE WHICH : ";S$:S(S$)`x S1SJ1ĺ(7);:(37)1:868:2670 :(9):"READY TO DELETE "(34);R$(S);(34);".": "ONCE DELETED, THIS DATA CANNOT BE" "RECOVERED. ARE YOU SURE THAT YOU" "WANT TO DELETE ITSE"  " "WHICH ";S$:S(S$)2 SJ12660Y S1SJĺ(7);:(37):868:2540g DB$R$(S)v SJ1140| ( 26202 1013< J0J1F "NAME FOR NEW DATA BASE FILE :";R$(J)P NRJ:4280Z DB$R$(J1):1140d *** DELET :"RECORD NUMBER "DR" DELETED!":9 "MORE (Y/N) ";L$J L$"Y"2360e F$"INDEX":4280:4810 *** BASENAMEFILE ROUTINES ***  "SELECT FROM:": J1NR:J" "R$(J):J: J" CREATE A NEW DATA BASE" J1ĺJ1" DELETE A DATA BA "H$(0)": ";JI1NH4I" "H$(I)": "N$(Y,I);IAN LLNH2X 5310^ x$ ***DELETE RECORDS***~. 8 "ENTER RECORD NUMBER YOU WANT DELETED ";DR$:DR(DR$)B DR1DRNR2360L JDRNR1V R(J)R(J1)t J:NRNR1#~R"";S$:S(S$)&\S1SNH2130,fIp"FROM "H$(S)": "N$(Y,S)Ozp"TO "H$(S)": ";:"";N$(Y,S)|:2240" MORE CHANGES (Y/N) ";L$L$"Y"2080F$"INDEX":4280:4810***PRINT A RECORD***PF5230,5250", ESC FOR MENU";L$+(L$)274810?(L$)132064KL0::b ***CHANGE DATA****" ENTER THE NUMBER OF THE RECORD"4"YOU WANT TO CHANGE ";J$:J(J$):YR(J)>:2240H" ENTER THE NUMBER OF THE FIELD YOU WANT":"TO CHANGE ";2060 J("THAT'S ALL OF THEM. ";<"NOW YOU MAY:"V"1 DO MORE SEARCHES"l"2 MAKE CHANGES""3 RETURN TO THE MAIN MENU"" WHICH ";S$:S(S$)S1S32030S1800,2080,4810 PF02070:"PRESS RETURN TO CONTINUEMAY"::I" MAKE CHANGES""D;N"WHICH ";S$:S(S$)PXS0SNH11870abSNH12080glv"PLEASE ENTER THE "H$(S):"YOU WANT TO FIND....... ":"";Q$J1NR:YR(J)N$(Y,0)(J)(N$(Y,S),(Q$))Q$İ2240LNH20İ(NR,I)I$)I$"/"N$(NR,I)N$(NR1,I)0I6L"MORE (Y/N) ";L$]L$"N"1750g1640vF$"INDEX"42804810***SEARCH/CHANGE***L0"YOU MAY SEARCH BY ANY OF THE FOLLOWING:"&38800:"OR YOU RAGE RECORD SIZE ";R$(NR):(R$(NR))0R$(NR)(NR1)10G J4280:1160` T***ENTER RECORDS***f ^ h"THERE ARE "NR" RECORDS" r"IN THE "DB$" FILE" |NRNR1:R(NR)NR "YOU ARE ENTERING RECORD # "NR  I1NH H$(I)":";:4720:N$LY" " "WHICH ";L$:L(L$)7 :"SORTING ";:\ 1013:*** CREATE HEADERFILE ***e NR1 :"PRESS 'RETURN' TO EXIT TO MENU"  "HEADER FOR COLUMN NUMBER "NR": ";:"";R$(NR) "R$(NR)""NR201600 ,NRNR1 615607 @"AVEWANT TO SAVE THE "DB$" FILE":"SORTED BY "H$(S)" TO DISK ";:"Y/N) ?";L$:L$"Y"F$"INDEX":4280k 4810z MF1:3880 "ENTER # OF FIELD FOR SORT ";S$:S(S$):S1SNH1450 :"DO YOU WANT TO SORT:": "1 ALPHABETICALLY" "2 NUMERICALNM:J1:"SORTING ";:M0ĺ"DONE":- IJp LLIM:I2R(I):L2R(LL):L1290:(N$(I2,S))(N$(L2,S))1300z 1295 N$(I2,S)N$(L2,S)1300 YR(I):R(I)R(LL):R(LL)Y:IIM:I11270 JJ1:JK1250 1260 1440:1240a "":"ME":2610 `4110 j24705 tF$"HEADER":1520? ~4110Z I1NR:H$(I)R$(I):It NHNR1:NR0:MEM(0) B(MEM(3NH(H$(NH1)))) N$(B,NH),R(B) F$"INDEX":4830 4110 4810 *** SORT *** NNR:MN% M(M2):KР& 216,00MODIFIED BY GARY FOOTE 5/16/79B"MAXFILES1"UD$"":CTRL DjD$"NOMON,I,O,C"r:|5180$R$(65),AC(21),K(65),H$(21),RN$(21).Z$(21)8COMMA$"NO"BD$"":CTRL DLH$(0)"REC#" VDB$"":F$"BASENA              x]Š]Ԡ٠Ԯ ]ҠǠŠӠ]Šՠ̠]ŠϠ٠Š]ŧˡvQDDŠ]ŧˡQDA`8`&&꽌ɪɵ'*&%&,E'зЮ꽌ɪФ`?  =h`  h`Iɪ꽌ɵ (I٠**<%<(=о<Y<<Y<&，YЍ`J>J><& <&3*`L- eA- <0,X݌݌HhHhHh݌FG$ i  ,KL>HhG04Hh$Hh e9- GL>AA# :GGL>@L)>L'>HJ ݌h Hhꝍ݌``L%LNx`.LZ> {>x$50x.$50xL:JJJJ`HHjf5 {>h $50x`xA : G' ݌$HhHhꝍ݌ GHhHhꝍ݌ ? ? ?/ ?A ? ?/EAE HJ ݌h ? ? ? ? ?Fd Hh6 HHH(jf5( FG HUSj 8x e9xxH` ># ;>h ;>L=.x"xH >hx0h@(L)>@H/L>HH/Hh/ ۠-H x( 8( 9$8 H` j8H54=/#0>2*4<:/#0>2-< $7+<46(! /#0> !/#0> "4; 14/,/(&!/#0>)"&4;!/#0>)$ 24;/#0>4#*(.3&!, $ 2:8 491 4734 ? 0 480"+"!:$3 *  !2 0 " #&x) +: 9') +: 9&д 9+`0($ p,&"  !"#$%&'()*+,-./0123456789:;<=>?(/':4=(*&!2?405<"&:24:!! *! ) 4**#*#: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`V0;^<*^<*>`FG8`*xY+&x'8*BIxix&80|'x<&HhHh 8 8 8 8VJ><;VU<)?<`r$a(ҠԠҠŠ)_diYdeBdBe dedeMı`.?r$a(ҠҠ԰ӱԡ)_dpdede.?rMA`.?r$a(ŠϠŠ԰ӱsMı`.?r"$a(Ҡ)F E()F E(ŠϠĠ)a(Š)_dL`.?r%a(ǬŠϠĠԲ)F Yde1UV W%de de deGMı`.?ˠӠ);ddeS(ԠԠŠĠԠΠ)&@jndededeBMı`.?r$xa(ҠǠ԰ӱŠ)_dx`.?Br $_1UV W$de de deԠӠĠϠΠԠˠԠ)mTa(ΠŲƠˠԠӠĠ͠Ϡ̩ϠԠӠŮ)yUa(Ӡ̠ŠĠΠŠӠƠӠŠϠŠƠӠŠҠǠΠҠҠҠӮ){Ra(ˠԠĠӠĠȠҠˠԠŠȠӠŠҠԠ)GySa(ͮ)a(ŠӠŠӠӠũȠӠԠˠr.?rıqAıqAqqqqqq q q deSPN@"(rdeM6Pd2e?a(ĠҠŊ)d2eSQa(ӠҠ]٠ڠέB}]ƠҠҠӬƠҠҠԠҠŬƠҠҠԠҠĠq q8.?r.?rr.?r.?rq8.?r.?rr.?            eA- <0,X݌݌HhHhA`8`&&꽌ɪɵ'*&%&,E'зЮ꽌ɪФ`?  =h`  h`LJ><& <&3*`L-? ?/EAE HJ ݌h ? ? ? ? ?Fd HhHh݌FG$ i  ,KL>HhG04Hh$Hh e9- GL>AA# :GGL>@L)>L'>HJ ݌h Hhꝍ݌``L%-H x( 8( 9$8 H` j8HNx`.LZ> {>x$50x.$50xL:JJJJ`HHjf5 {>h $50x`xA : G' ݌$HhHhꝍ݌ GHhHhꝍ݌ ? ? ?/ ?A HHHhHH݌hHh݌H6 HHH(jf5( FG HUSj 8x e9xxH` ># ;>h ;>L=.x"xH >hx0h@(L)>@H/L>HH/Hh/ ۠480"+"!:$3 *  !2 0 " #8  ޵-<    HIH:4=(*&!2?405<"&:24:!! *! ) 4**#*#/#0>54=/#0>2*4<:/#0>2-< $7+<46(! /#0> !/#0> "4; 14/,/(&!/#0>)"&4;!/#0>)$ 24;/#0>4#*(.3&!, $ 2:8 491 4734 ? 0 *xY+&x'8*BIxix&&x) +: 9') +: 9&д 9+`0($ p,&"  !"#$%&'()*+,-./0123456789:;<=>?(/'꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`V0;^<*^<*>`FG8`><;VU<)?<`80|'x<&HhHh 8 8 8 8VJ1UV W%de de deGMı`.?r$a(ҠԠҠŠ)_diYdeBdBe dedeMı`.?r$a(ҠҠ԰ӱԡ)_dpdede.?rMAԠ)_d1UV W$de de desMı`.?r"$a(Ҡ)F E()F E(ŠϠĠ)a(Š)_dL`.?r%a(ǬŠϠĠԲ)F YdeˠӠ);ddeS(ԠԠŠĠԠΠ)&@jndededeBMı`.?r$xa(ҠǠ԰ӱŠ)_dVx`.?Br $`.?Br $a(԰ӱàŲԠӠԩԠӠĠϠΠԠˠԠ)mTa(ΠŲƠˠԠӠĠ͠Ϡ̩ϠԠӠŮ)yUa(Ӡ̠ŠĠΠŠӠƠӠŠϠŠƠӠŠҠǠΠҠҠҠӮ){Ra(ˠԠĠӠĠȠҠˠԠŠȠӠŠҠԠ)GySa(ͮ)a(ŠӠŠӠӠũȠӠԠˠr.?rıqAıqAqqqqqq q q deSPN@"(rdeM6Pd2e?a(ĠҠŊ)d2eSQa(ӠҠ]٠ڠέB}]ƠҠҠӬƠҠҠԠҠŬƠҠҠԠҠĠq q8.?r.?rr.?r.?rq8.?r.?rr.?            ٠ŠŠРƠӠӠƠӠĠΠӤӠŠҠҮ)\X,UVW\:YUVWYKM6n]ӠŠӠĠ͠ŠƮҠƠӠĠԠРҠҠŠ٠ͮʮҠQĠӠȠ)\X/@p(ĠĠȠҠΠˮ)\XX\:\:@p(ŠΠԠՠŠՠŠϠŠŠӤ)\XU\:\:@p(ŠǠŠӠŠˠԠ͠ϠŠ)\Xb@p(Ԡ̠ԠŠӠԠӠŠӠƠӤ)\X]\:\:@p(Š ӠϠŠԠŠĠϠ ԠŠ)\X*@p(ȠЮ)\X\:\:X@p(ŠӠŠΠ̠ŠĠΠՠĠӠĮ)\X\:\:a@p(ŠŠԠŠӠРŠҠ͠Š͠ƠŠΠ)\XX@p(ĠӠ٠ĠŠԠŠǮӤӠԠӠĠΠȠŠ)\XZ@p(ĠŠŠǠ ӠŠϠ)\X@@p(Ԡ͠Ġɧ͠ԠŠƠԠӠ٠Į)\Xm@p(ٽӠΠŠҠǠӠΠŠΠŠŠĽӠ)\XU@p(ŠҠĮƠĠΠϠĬҠ٠ҠȠҠǠԠ٠ŠƠ٢ĠĠԠ٠Ľ(Y[]1\@p()\X\:\:c@p(ŠŠҠǠĠӮŠĠΧԠԠΠeUVW;@rd2e?a@*#rGd2e`%\DUVW/?rYYjd2e?a()Gd2e]ŠӠԠԠΠϠҠΧԠ̠àĠĠРΠӠ}]Š̠ԭԠClUVW;@r`@*#r:()%Y]ԠʠϠĠƠԠPv@Brp@*#rq]ˠԠĠ͠Өũ7`;@r$]ƠӠΠ׬ΠϠL`.?$r;@r%%\:]Ơ ĠӠ6\oPd6?e[]̠ŠƠԠĠננ͠9Dq.?6?r.?6?r.?6?r.?6?r[]ҮĪX]ҮΠЪ_bUVW;@r]Ӡ̠ˠǠƠȠŠĠΠӨũΠӨũĠרϩĤƠԠԠŠΠҠӠȩ\&M6UVW\6\d6?eUVWd]ŭӠҠϠŠV0YYoPd6?e[]ԠĠŠҠǠϠV:c\]ҠԭԠ,]îӠqod2e?a()Gd2e[]ԠŠŠƠŠԠ]ŠΠo`%N@"rC@"rq]ԠĠe]ӠŠӠԠϠǠΠŠҺ͠f]Ġ٠ŠĠҠǠ٠ˠƠ٠Ϡ٠ΠΠ٠%]ĠƠ٠Š -^d<ed=e/hd>ed?e rM6u|]ӠȠŠΠƠ̠ĠӠŠŠԠԠΠŠΠҠҠԮ/d6?e[]έΠŠӠ̠ͺF[ ,]ŭԠŠ 6]Š٠Š,@]ŠŠԠĠҩϠŠUJqqq]ŠϠŠŠ-TdBedCe\qq\ Q ]àͺ6(]ϭͺԠŠŠ٠ӠŠ52dJe dKe de.?Jrde.?Kr[<]͠ӬĠƠŠŮŠӠŠ           ~S(ҠР)' 6~S(Ҡ͠)'8~d e:~d!e <~d"e>~d#e @~M6~Q_}~ŠΠŠ)~a(̠ԺŠŠ))~a(̠ٺԠҬӬԠΠҩ)+~a(٠ٺР٠ǠҠ)+~Q,~]ԠԠ.~d"e.?%rd#e.?%r&0~S(ҠԠŠ)'2~S(ҠȠ)'4ؠҠϠŠ).}a(ɺԠɠɠҠ)}o+}S(ŠӮӠή)&@M6L}ca(ŠӠŠĺ)a()}a(̠Һ٠Š))}a(̠ӺŠӠ).}a(ͺϮƠӠԠĠҠ)%}a(κԠǠ)L}a(źŠŠӠ)a(ŠԠ)}a(кԠӠ)-}a(غŠŠҠϠ)-}a(úŠԠՠ }M86r}ca(٠Ӻ)%}a(Š٠ǺϠ)-}a()&}a(ͺҠŠ)+}a(źҠԠƠ),}a(ĺŠ͠ϠF0}a(àӠ٠)FE()2}a(ŠŠŠӠ)FE()}a(ͽ)F}a(ͽ)F}Q}q.?Jr.?Kr}q.?Lr.?Mr}q.?r.?r}q.?r.?r}[}Q}] ep}Mr}Qt}]Ġàv}Mx}QFz}]Š͠ԠĠԠŠĠ͠ˠƠ|}M~}Q}Q}M6\}C}a(٠)a()}a(Šٽ)\}S(ҠŠԠŠϠŠ)'4^}S(ҠŠԠŠϠŠ)'`}deb}ded}def}deh}dej}del}den}d)'J}deL}deN}deP}deR}MT}Q7V}]ŠҠ̠ӠΠ-X}S(ҠŠǠŠ)'$Z}S(ҠŠ)'6٠ }qD}}qV}}qt} }q} }q}}q,~}q{}qs{}qw{ }q { B}_D}]ҠŠŠ-F}S(ҠŠǠŠ)'$H}S(Ҡ{UVW5{a()FE()E()FE()F.?rG{q{UVW'{a(Š)FE()F.?rG{q{Y{q{a()|Y|a(Ϡ)|o|Q}] {@p(){[{q{]{]Š֠{]{N@"rC@"r{@p(){q{[{]ŠŠ0{S(ҠǠӠΠ)'{S(ҠŠ)'@rWX62{`@*#r:@*#r%Y{`%Y{`${#{q88r8 rr{q {Y {@p(){[{q#{q88r8 rr{qr{q8r"{@Brp@*#r{q8r"{@Brp@*#r {q{[{]{]Ԡà{]{`7%\{ {q {q{UV;@rWX6{UV;y{bz{Q{{]Ԡؠ|{]}{`7%\{ ~{q{`${ {q{q{q{q"{@Brp@*#r{q8r"{@Brp@*#deLdedede`deM[f{Qo{]q{]r{]ؠ*s{`%S(ҠŠ)'t{\{{]àϠ u{a@v{Q{Q G{]!H{]ŠҤΠI{]NR{dedeyM]ŠŠŠҠ̠ MyM6ZNya(ŠӠŠΠĠϠĭ)a(ӠϠƠȠŠӮ).Oyca(Š٠Š٠Ǡͮ)c,Pya(ϠϠϬҠŠӠ׮)c.QyodededeKHydeNdedede8dedededeiKIyde|dede dedede dede9Jydede(de|dede`deKyq ALededededededeKEydedede$dededede deKFydedededetdedede deKGydede<dedede e(deKAydedegdedededeGdedeKByde dededededegdedeKCydedeGdedededede]deKDydeddkedle'dmednedoecK>ydpedqegdre=dse%dte;due!dvedwe,K?ydxedye<dze+d{ed|ed}ed~ekdeK@ydededede,dewdedK:ydPedQedRe+dSe<dTedUe;dVe dWeK;ydXedYedZed[eLd\ehd]ed^ed_eLKed?eK8yd@edAedBe dCedDedEedFedGeK9ydHedIe dJedKedLe dMedNedOe dede7de9de)dededeFK4yd e:d!e&d"ed#ed$ed%e8d&eJd'eK5yd(e9d)ejd*ed+ed,e*d-ed.ed/eK6yd0ed1e0d2evd3ed4d!e /yqK0yde dededede3de4dedeK1yde d ed ed ed eLd edehde8K2ydedededede5de6de!de;K3yde<dedeK+yded ed ed ed ed ededeK,ydedehdeLdededededeK-ydededededehde(deLde.yd e<d< ed= eBd> ed? eK'yd@ edA e>dB edC edD edE eCdF e dG e,K(ydH edI edJ edK edL ehdM e`dN edO e` )ydP eK*ydeHdedededede ed! ed" ed# ed$ ed% ed& ed' eTK$yd( ed) ed* ed+ ed, ed- ed. ed/ eK%yd0 ed1 ed2 ed3 e=d4 ed5 ed6 ed7 e?K&yd8 ed9 ed: ed; ed eOd e,d eK yd ed ed ed ed e(d ed ed eK!yd e d ed e d e,d ed ed e`d eHK"yd ed ed ed ed ed eUd ed eK#ydd e6d ed ed ed e7Kyd ed! eLd" ed# ed$ ed% ed& ed' eKyd( ed) ed* ed+ e d, ed- ed. ed/ e` yd0 eKyd ed eNd ed ed eKyd ed ed ed eJd ed ed ed eKKyd ed ed ed ed ed ed ed eKyd ed ed ed e8d ed e d ed e9Kyd ed ed e                      `LL@L` 1 `@  :X121:X:25:A$. Z150:Z:X: MODIFIED FOR AAA BY PAUL RAYMER OF LAS VEGAS NV 89121 ------------------Q"a(Š٠)<cFP&xS(Ϡ̠ǠӠ)&@`7.?6r%M6c@p()]̠a@E()Qcc"P ,d2e?,@a(ΠΠҠŠӠ)|d2ec-a(ӠՠĠ)P#a(ŬĠ٠)c,a(ŧ̠ΠҠˬĠ),!a(٠ŠՠŠ͠Ҡ)(&a(Π٬Ƞ٠Ӯ)0cDP Xa(Ҡ)lP a(Š)PŠ٧)+a(ΠӠΠӠˠĠ)a(ĠͿ)c*a(ŠՠΠˠӠƠŠ))a(Š͠͠ĠϠĿ)cTa(ŠĠŠϠԠҠħӠҠӠϠ٠ĠŮrd]ҠӠŠԠŠ٠  KM6`7.?6r%M6cc"P ,d2e?,@a(ΠΠҠŠӠ)|d2ec-a(ӠՠĠ  T$a(̠))']ŠӠ͠Π֠g]Π٠ć·ɇŇ̇ԇ̇هχ·ӇŠӠĠϠŠŠŠΠӽ2#a()G<#`%_ F#qP#γqZ#_ 3#ca(̠Π)#a(̠)-$a(٠)ccS$_Π٠ҠҠ٠Š)0ca(Ӡ̠Ʃ)Bca(Ӡ)P a()-cca(źƠ)1ca(ԠΠϠ)GR@_@(#]Ӡ] KM6Tca(Ӡ͠ӠΠԠ)ca(ϠŠ̠͠ƠŠ)1ca(̠ϠΠӠΠŠҬɮ)+ca(͠ƠǠ)Tcca(Ӡ٠ŠĠҠ)ca(_ : ]֠Ӡ̠ԠƠ֤ϧӠԩ `γ$# ca(̠)F\x a(̠)E@ a(٠)GWH UVW`-r%a()G`-r%a()G`-r%a()Gb--rrE()GYcc _1γq]ŠǠҠ1cca(ҠŠԠǠ)R@$ca(ŠԠǠ)ca@c` @p()@B;@rrp() `@9()$ q\ `γ$(#>( `6%a()G`%a()GbGqqN@"rC@" rC@"rD4rD4r@p()f>-rq-rq-rq -rq -rqd-rqe-rqn-rqo- rqPH- rq- rq- rq- rqL-rqM-rqV-rqW qUVWq 8r-rqqYqL`$UVWX6-rq-rYUVW-rqY"`$-rq-r.UVW@Brp@*-r#-rrY[]Ҡ̨֤T4`$qY]ԠҠӮIPqγq[]ԠǠϠԠҠŠҠӠ"x]Ԡ֠Ϡؠ+q`$q6qHq`$q` $q` $q1<@r`$Fq@p@*rY>]ӠҠӮנԠԠҠӠ(q<@r`%[(-@p@*r`?$2q[2`@$P<q[9F`6%[@p@*rҠƮ@p@*r`$qY`$&q6 Yhqγq]ӠŠŠҠԠԠŠĠ٠ҠӠҠӠY]٠DUVWqγq]ӠŠŠҠԠԠŠĠӠҠӡyY&~q6 Y]ؠ&UVWq<@r`$[W` $q` %[]ӠӠƇӇԠΠr_]̠8`@*#r:()$L@p@*r_]٠ L]&Qq<@r` %@p@*r@VUVWq<@r` %[@p@*r` %_~$`` $jq Yj`$~Xtq _Hq]Š̠ԠƠǠ֤ϧӠԩC`@*#r:()$@p@*r_]ŠǠӮ`@*#r9()%@p@*r,`@*#r:()$@p@*rq6=`@*#r:()$@p@*     2]Ӡ͠2]٠٠i*]ΠĠϠŠӠ͠ӠǠӠԠŠӠĠΠŠ!.]Ġ٠Ġ®\2]٠Ġ͠ŠǠΠǠƠ̭ŧ̮ϮȬ )[N @p(ºàŠƠĸ)[2*@p(àĠĠàƹ)[7']ĠǠŠˠӠ٢ӠX']Ԡ٠ΠЮϮؠîӮӠϠӮȮN@"rN@" r/\\@p()\ \@p()\*\[@B;@rrp(ΠŸ)UVW;@rde<@*rrY dHeM6[`@p( Ġ°ĠĠàĠĠĠ$@q8<@rr`p$dede0$oP S(ˠŠ)&@`;@r$$<)q8<@rr`$$dede%Bqqq\ [<]ŠŠŠϠٱ$`$M_4a@E(ң)F]ԠӮҠҮҠҮƮ a()M6#oP a(ˠ۠Ҡ)'oP a()cc.qqq\0o P S(ˠԠ)&@`;@rҠ)%oP a()c1ca(ҠҠԣƠՠԠ)5q6O4rO4rUVW-rqYq@o P S(ҠԠ)'`$`$5N@"2roP S(Š)&@`;@rE()F_NRq-rPa()F E()F E(ϠĠӠ)E@*#rE()[9dJedKedede]͠-qqqqqq@p()]̭a@E(Πìɬ)KM6#oP a(ˠ۠G&`.?6@r$d6?ecM6+a@E(ң)a@E(Πìɬ)M6oQ ]įŠF*deded ed eM,4q.? rq.?r`%[5>Pa(Ҡ)FE()Fclo/{a()c2o qqUVW ` %a()GbE()GKPUVWX q-rq8rq86rqa@*#rGYcYcc8a(̮)FE(Ӡ)FE(Ŭ)FE(ԠӮ)r6rr%\RY Y_c),`$6`.?6@r$,d6?e 6M6&a()a()G0Pa(ԠҠà)a()G:Pa()a()Da()GP/Na()oSa()GPXUVW"b GYFGqq -rq-r-rq4q.?rq8r`%a()G9UV WXq.?r .?r`$8q-rq-r-rqY`$\ _ a()F.UVW`88-rr8-a@*#rGA\ `$q.? rq.? rq \ 4qq de.?rde.?r`$a()GMde.?rde.?ra(̤)GMq.?rq.?ra(ҽ)G>bE()c1qq.?rq.?r\ MUV WX#q.?r`$`$qq.?rTqqq qa@*#rE()GUVW de.?rMYc?Pq.?r`%a()GPqc%a()G`$c_P)UVWa()GYcAca@*#rE(Š)a@*#rE(Ԡ)!a@*#rE(Ӡ)!UVW&`-r6%\RY$a@*#rE(Ǡ)#UVW`-r6%\RYɳ&-rq-r-rqYq6UVW-rq-r-rqYqM@p(ڰެ)@p(),a(РƠŠ)FG`$c_q;@rP)a@Ga()G` %a()G`/;]ˠҠЪ٠ƠΊTd\qUVW8X6q.?rqUVWq`$n-rqqHnqYq.?rqUVWq`$x-rqqxqYZM6Uq6UVW     ?iC<=>BBBC>>?8>  > ސ밄ȱ >e B ɠɍLͤ  ݰm轀 `ޅ3 jɍ ` ` ɍLc ffff% ` - -Lޅ3 j  ȱ` L8 L  ȥ` ɠɍLͤ  ݰm轀 `ޅ3 jɍ ` ` ɍLc ffff% ` - -Lޅ3 j  ȱ` L8 L  ȥ`  ààH /Ѽdd`dЅ deԄ8ҍӍd`D}Tߥ҅ީd LԦ}dҍ` ǠҠÍǠԠÍϠٮɆ0&⽌D}T L֠ $Ȅф(0PLddLԩՠԑihL* ۄکڍ ȱڍ `D`ߠ h  *L`,0,0I,0`d hhLz# Xձ  ҫĠŠ Š ŠĠŠǠحŠԠ֠( حŠˠǠΠ  ͱ̤Ͳ̤РӠҠ٠ӠŠ ح̤ Šˠ! ˠǠӠBˠǮؠ ŠŠӠΠé à*"îؠ ̤ͭ ٠Šé ٠Šؠ٠ӠԠ٠ӠԮؠ  ٠Ҡ٠Ҡ ˠǠ٠Ԡ ؠؠӠԠ ԠؠǠŠ UVW0 M6ca(ԠϠՠԠǠȠ)F cUVW) cbE()E@*8r # r YT `$ + ca(Ƞ)E@*8r # rc d8 8rre& q 8r0 M`v Y d e qd=e h d>e8.? rrd?e8.? rr r M6| q.? r.? r `$ a(ŠĠ) d e8rd e8r q.? r8.? rr_ ` $4 M6cS(נ٠ԠӠة)' `$ נĠŠ͠Ů)/" a(ϠӠԠŠĠȠŠ٠)/, a(ΠΠŠҮΠԠŠ)6 S(Χٮ)&@; M < q '@ d<ed=e d>ed?e  J M6T a(҇Ňćɇ·LJɇ·)\,^ d<e a@*8r # rc M `$ N. cYB deq1L S(ԠΧϠŠҠӧϠ)&@V `@9()$` _` qj d e8rd e8rt _ ` $q_ ]5 M6a(ՠ٠ϵĠŠ͠ˠ) ca(ΠϠ) c8 T`$`$`$`$L_8,rl$M6ca(ŠΠנŠ) qM7Mq deM6qUVWdeq d6?e#`.?6@r$d6?e_ M6cc.a(נϠՠȠϠԠο)c1ca(ԠנŠĠĪ)a(ĠϠǠ)ca(ĠŠ͠)ca(ĠŠ͠)" ca(a()GYLY` %[`$ `$cc` $ cc~3cS(ԠΧϠŠҠӧϠ)&@`@9()$ M6_Ecc~S(ĠƠšԠΠϠ)&@q_`.?6@r$8r # rGUVW a()GYYc q `$$\* $q .UVW 3q4` $B5q.?%r`%R@BM E`$G Fc_L G`$LDHUV8r88r8rrW8r8rԠ٠ӿ)&@q `@9()$`@*#r9()%qRccS(ϠՠԠϠԠ̠Ҡ̿ȯ֩)&@`@9()$`@*#r9()%q\* M6a(Ԡ)G\,cd"eX`$\*UVWa@*ea()d2e_ a()ca()ca()ca(ȿ)dWe`;q.?6@r`$d6?eq` $ _` $ q q M6`$ \S(ϠՠԠϠԠ)` $ccc_ c\,qqa()c a(Ԡ)ca()ca()ca(Š)ca(Ԡ٠)-ca(ҠӠ)G`$ d2Pa(ΠϬì)Z_,a(Š)G6M(@c[q M6\ cc~qcc`$.S(ԠΧҠԠҠӧϠ)&@`@9()%q[a(Ϡš)UVWY8d"eM6a(Ơɠ̠ŠРҠϠǠҠ@_}]ҠԠ.?r.?r qqqq.?Jr.?Krd e8rd e8r(N@"#rC@" r'2@p(ŠŠŠ)<q.? r.? rFq.? r8.? rr         ~ d::$10:16);"STANDBY!"0,D$(4)KD$;"BLOAD INTBASIC.X"U4096]:o D$;"CATALOG"}D$;"INT"D50 " ,"MACHINE LEVEL:"% 6P @" M-XXXXXX & M1-XXXXX ARE USED FOR"n J" MOST MANIPULATIONS."t T ^" M2-XXXXX IS USED FOR SEARCH FUNCTION" h r" MX-XXXXX IS USED WITH CATALOG PROGRAM"; |  "NOTE:M1, M2, & MX A...................."; A "H=NUMBER OF CATAGORIES/RECORD"p "I= *MUST* BE FIRST VARIABLE IN PROGRAM!"v "C$=NAMES OF CATAGORIES-TEN CHARACTERS" " ALLOWED FOR EACH AND SPACES MUST BE" " ENTERED FOR UNUSED CHARACTERS"  d" APPLEADDIX II"% n+ xN "A SIMPLE DATA BASE PROGRAM:"| " WORKS WITH DISK OR TAPE ON ANY SIZE" " APPLE." " VERY EFFICIENT RANDOM LENGTH STORAGE" " ALL STORAGE IN RAM" "....................2 BASE PROGRAM FOR APSOFT WRITER (ML)[CHANGE THESE REMS AS NEEDED:"DO YOU WANT TO PRINT THIS? (Y/N)";A$#A$"Y"P1:"PR#1"(:10027P1ĺ:90<"PRESS ANY KEY "F49152,128,127:49168,0PZ)9]ĠҠˠ٠͠ά̮Š̠)_}`.?r$} }6} }a(ΠϬì)M6(}o Pa()2}a(Ġ̤ͭ)<}a(Ġͱ̤)F}d ed e K}d ed eP}de.?7r Z}dec}_a(٠Ӡ(#_'-#` $22#M6ca(٠ȠĠϠՠԠϠԿ)<#cUVW*F#cbE()E@*8r # r P#YTZ#`$2#"d#d ea(ĠͲ̤)n#M x#a(Ġͱ̤)_'Q *~[ Na(a(ŠƮҠ)GM(a(̤)@4a(ŠƮŠ)GM(a()F8.? r.? rr >_0cca(ԠȠ٠ҠӠš)$d ed eqd ed e_Lq_@_-#rd e8r`$qq8 r3d ed ed ed e"a(ĠƮŠ)E@E()F_5 ca(ϠՠԠϠŠŠ)M(S(ٯ)&@%`@:()$*(a(ҠנŠ)M7,*_ q!cS(ҠŠƠŠ)&@ `$M q qqa(ĠƮҠ)E@E()q.? r.? r`$`$"`.? r$q.? r8.? rrd e8ՠŠǠ)FE(ӠҠŮ)Rca(ԠӠŠՠĠŠ̠Ơ)F8 rE(ӠԠͮ)(cS(ԠΠϠš)&@_4XM6a(Һ)ca()ca()cbS(ȿ)&@ lqv`@9()%q3a(Š)_$pM6cq8.? r.? rrua(Π)G\,cMza(Š̠ŠӠ)F a(ԠƠŠĠӠ)F8 rc7ca(ŠԠԠƠӠӠ)F`$Aq8 rca(ĩ)&@`@*#r9()$ 5M6a(ϠŠŠŠĠŠĠȠ)/a(Š٠ĠĠΠΠԠŠ)S(Χٮ)&@'d<ed=e d>ed?e  M63#d<ed=e d>e8.? rrd?e8.? rr M6d e8rd e8r `$"q.? rd eq.? rd e_,"M ,q.? r.? r6qqq  @d ed e_` $d e8rd e8r@M6S(ŠϠŠҠ˿ԯ M, q.? r`$  q.? r.? r \`%_% qd e8rd e8r M6 _  a(ԧӠ̠Ơ͡)_q_ <a(ϠՠȠϠŠӠ)S(Š٧ҠΧ)&@`@9()$_9()@9()$`@9()$ @p@`%\"ca(Ǡ͠ˠ)E@\_X]ǠҠؠ]ΠӠ͠ ]̠ҠŠϠԢ7dJe.?rdKe.?rde.?Jrde.?KԺ)g`@9()$l`@*;@rr9()$v`@*;@rr9()$ \_@B;@rrp()_-@p@*#;@rr\@B;@rrp()cP a()E@E()%ca(ԠˠĠӠ)a(ӠӠϠЩ)cR@`@9()$`@e de0[,:@p(ŠϠ)deq:?UVW;@rde<@*rrqYdeq(DUVW;@rde<@*rrqY#Ndedeq[XM6`$%ba(ҠŠƠԠ8<@*;@rrrr q8<@*;@rrrrd q8<@*;@rrrr q8<@*;@rrrrq8.?Jrr.?Kr`%q`$q_&qE&dedded d()$q_:\d`%[de.?rde.?r_dede MR`.?r$S(ćˠɯϠҬ٠ο)&@`@9()$`@9()$_:q.?r_1qq;@r`$`$`$ q%de`%de`%de'qdeqq"`$*NYq3,d ed ed ed e[de de MZ`.?r$S(ӇˠɯϠҬ٠ο)&@`@9()$`@9``%q`%q@`$deq qY`$!dedeqdeq(UVW;@rde<@*rrqYdeqYq.?r`%q`%de`o_}]ǠϠؠ _[dUVWq8 #rq.?r`$,`$"deqqq(UVWX6q.?r`$Y>qUVWq.?rde`$qY_A` %q     L < $<N\,\UHN_$Uq.?6@r`$Ud6?e[Yca(ŠԮ)[}`.?rL$} }a(Šŭԡ)Q} }a(ΠϬì)M6(}o Pa()2}a(Ġح̤a(̠ҠƠӺ)Fc&Pa(̠٠ĺ)F c`$q8 r(Pa(ŠӠҠĺ)Fc4Pa(ԠԠŬؠӺ)F8r c\U_@KQ N]͠*Nww74NcĠӠ٠)\U\Y q %UVW;@rde<@*rrYUV;@rW deYq\,q'a(ŠƮҠ)E@E(̤),a(ŠƮŠ)E@E()F _ X] bM6lo %vP q%`$qq\,_4Na(ĠƮŠ)E@_ p] zM6a(ŠϠ)ca(ҠŠƠź) cR@`@9()$-`;@r$a(Ϡǡؠ)_4ca(ԠǠˠα@r`$TY_h T`$d6?e\UYhca(ԧӠ̡) r\U_ ] M6a(Ġ͠)ca(ҠŠƠź) cR@`@9()%_\Ya(ĠƮҠ)E@,q.? r.? rq.? r.? rٯΩ) cR@ q `@:()$c S(ҠǠĠ)'\Y q#UV W`.?r$Y_q`$Y%ca(ĠԠġ)\U_q1UVWq.?r`$@deMY_h"@cq.?6a(ԠƠ٠)`cjPa()tc ~d6?ea(ȿ)Gde`M\U`$q_]ˠ q_X ]Ҡ q _X ] M6!a(ԠŠ͠Բ M6oa(Ӻ)cc-Pa(ԠȠŠ͠)c,Pa(ԠȠҠΠŠ)$c)Pa(Ԡ)c#.Pa(ĠŠ͠)8c!BPa(ŠŠϠ)Lc%VPrJN@" rqqqqqqqN@"rC@"(rEq q.? r.? rq.? r.? rq$ q% =de.?rd e.?rded e`.?Kr$qy_q8.?KrrϠӠɯ3Ja@E(Ǡ)FE()F]ŠϠkTa@E(ң)a@E(Σ)]ԠŠŠŠ͠ӠɯJ^q6Uq6U]٠ԠĠȠ h]ĠŠӮ)_"?a(ˠΠŠ)P8ra(ŠŠΠҮ)F"o8ra(ӠçϠԠΧϠ)\p`<()r$,`$KM66dedeD@d6ed7ed8e(d9eM]a()@p(ϠȠԺ)\zKa()G\p`<()r$P8ra(Š)d2eqq_Qcqqq@p(ƠӺ)\zbG\p\P8r`%qbRd2eo8rP8ra(ԠҠ)G`$a(ź)\zbG\p\P8r`%qbqq`$Ccq@p(ŠԺ)\zbG\p\P8r`%qbScq`%q@p(Šź)\zbG\p\P8r`%qbO`$d2ecP8rUVWY:M6d2e?P8ra(͠٠)d2e6c@p(٠Ϻ)\za()GP8rq\p"`<()r$qa()GGccq@p(ҠԺ)\zbG\p\P8r`%qb\cq@p(ҠٻX]©ӠԠŠĠǠϠӮZ]éԠӠҠŠԠӠŠĮGa@E(ΠɬϬ)]ŠŠŠΧԠŠededefdd ehd!ed"ed#e`d$ed%ed&ed'ed(ed)ed*e`On]ŠӠҠŠŠ͠Ժ7x]Ӡ̠ǠϠeHdededededede ded efPd eid ed ed e`dededeidedededefZdedeide@dededededed Kd6?eM6o8rtu&@p()qq.?Jr.?KrN(N@"rD4TrD4TrC@"rC@"rC@"r@p()2@p()]̭:<de@p@]ѤӠנŠ]Fde8d     RU 12 MAYGENERATE READ ERRORS AND WILL NOTBE COUNTED.TO RESTART, TYPE: CALL 2048` `` , DISKETTE COPY ROUTINE LAWRENCE HALL 0F SCIENCEUSING READ-WRITE-TRACK-SECTOR (RWTS)OF APPLE DOS AND EITHER:1. SINGLE DRIVE2. DUAL DRIVE, SINGLE CONTROLLER3. DUAL DRIVE, DUAL CONTROLLERWARNING: DISK ERRORS:TRACK 2, SECTORS 9 TH Lj ` ȑL+  ȑ ` ɀ   , ERROR (  0ɀD , DRIVE ERROR)L , WRITE PROTECTED)L , VOLUME MISMATCH)L , READ ERROR) , ABORT? L L$ , SLOT=   )  [$ , DRIVE=   )Յ`ȑ` W  i8ȱ 8 &d [ , TRACK= , SECTOR=   C =?C<>B< , i #ȑ"L,,,` 0  ɍ` Xhh L4 HH`, , PRESS RETURN TO CONTINUE ɍ ` [$ , VOLUME=L X$0! L ) INSERT MASTER DISKETTE` X$0 , INSERT COPY DISKETTE M LX , DISKETTE:  [dedededede ded efPd eid ed ed e`dededeidedededefZdedeide@dedededededede( Kd6?ed6?ed2eM6o8rtu.&@p()qq.?Jr.?Kr,(N@"rD4TrD4TrC@"rC@"r2@p()]̭:<de@p@]ѤӠנŠ]Fde8deHde         ҠŠˠϠˠҠ͠٠ΠȊW]̠Π̠͠Š̮Ϯ٠y]̠͠ҠҬԬĠ٠ӠϠˠ`$_p]ԠӠϠԠӠϠŠԠĠĠӠҠŠ[]ˠϠ˯ŠҠ͠٠ĠîҊX]Ġa(¨)ma(Š˨)FE()a(Š˨)FE()a(Š˨)FE(˨)FE(˨)FGma(˨)FE()a(Š˨)FE(˨)FE(˨)FE(˨)FE()8a(̠)qr%[q[]ŢϠma(¨)a(̠)a(Ԡ)E@E(Ժ)E@E(˨)FE(˨)FE()E@E(ĺ)E@Gya(˨)FE(˨)FE(˨)FE(˨)FE()a()E@E(Ǯ)E@)FE()E@E(˨)FE(˨)FE()G8\a()E@E()E@E(˨)FE(˨)FE()f_$pq.?6@r`$pd6?e[*zd2eP8ra@GP8rd2e?[&q`<()r<()r%[q[&q`<()r<()a(̠)a(Ԡ)E@E(Ǯ)E@a(¨) a()`%a()*_4]٠͠Š5>@p@*#;@rra()]ԠϠŠŮ*Ha(Ġ)E@E()FE()F`$\Ra()E@E@E(Š)E@E()FE()E@a(Š)E@FE()Fa@E()`7$GKM6ca(ԠҠ)S(ӠΧ٠ϠԠ)&@M6d"eM6a@E(à)E@FE()FQ ]ŠϠŠba(Ġ)E@E()FE()Fa(¨)٠l@p@*#;@rr!v]РƠԠӠ5`$ ]ϠԠԠҠa(Ġ)E@E()FE()Fa(Š)E@E()FE()FqY a()a(̭))a(Ԡ)E@E(٠ŮŠ)E@*#;@rr80]ŠӠΠΠç:UVWq--rr$DUVW$d8re.?rY6N]ͫӠΠƠŠXd8re6b`@*#r9()$4]ԧӠa(Ҡ͠٠ҺϠԾ)9M6a(͠)FGS()'`$`$%`$h-rqq_@p(Ŭ)9a@E(Π)E@FE()Fa@E(Š)E@FE()F;&a@E(Π)E@FE()Fa@E(de.?ra@GYc6]ͫӠΠƠŠ¤`.?%r$3q`$d!ed eM6_GKo8rP8ra(Ӡ٠٠ϠŮ)G\pcM6qYKd"e6o8rԠǠϠ:rKM6qqUVW8.?r.?rrX&H|`.?r<()r$]ŠΧԠԠ٠Ԡӡ$-rqd2e?bG` %a()Gd2ea()Gqde.?ra@Ga()GUVW)E@E(˨)FE(˨)FE()G8\a()E@E()E@E(˨)FE(˨)FE()f_$pq.?6@r`$pd6?e[*zd2eP8ra@GP8rd2e?[&q`<()r<()r%[q[&q`<()r<()r%[q)a(Ԡ)E@E(Ǯ)E@a(¨) a()`%a()*_4]٠͠Š4>@p@*#;@rra()]ԠϠŠŮ*Ha(Ġ)E@E()FE()F`$\Ra()E@E@E(Š)E@E()FE()FE(@E()`7$GKM6ca(ԠҠ)S(ӠΧ٠ϠԠ)&@7KM6o8rP8ra(Ǯ)d"eM6a@E(à)E@FE()FQ ]ŠϠŠba(Ġ)E@E()FE()Fa(¨)a(̠РƠԠӠ5`$ ]ϠԠԠҠa(Ġ)E@E()FE()Fa(Š)E@E()FE()FqY a()a(̭))a(Ԡ)E@E(٠Ů)E@a(Š)E@FE()Fa`-rd%a()Ga@*#rE()G@p@*#;@rra@#D`.?6@r$Nd6?e\p;NYcS(ŠŠӠԠٯΩ)&@`@9()$hX\UVW\6b`@*#r9()$4]ԧӠ٠l@p@*#;@rr!v]ba(Ӡ٠ΠϠŮ)UVWYM6a(Ǡ͠Ԡ)FE(Š)FGL&`%a(Ϡź)`$0cP8 ra(ϠԠ)FE(Š)FE()N0d"eM6UVW\d2e?b-rGd2e`-r %a()G::q6o8ra(Ҡ͠٠ҺϠԾ)9M6a(͠)FGS()'`$`$%`$h-rqq_gKM6o8ra(ŠŠŠӠՠȠϠٺ)o8ra(Ӡ٠٠ϠŠ٬)de.?ra@GYc6]ͫӠΠƠŠ¤`.?%r$3q`$d!ed eM6_GKo8rP8ra(Ӡ٠٠ϠŮ)G\pcM6qYKd"e`6%ǠϠ:rKM6qqUVW8.?r.?rrX&H|`.?r<()r$]ŠΧԠԠ٠Ԡӡ--rqd2e?bGd2e` %a()G`d%a()Gqde.?ra@Ga()GUVWJa@E(Ǡ)FE()F]ŠϠkTa@E(ң)a@E(Σ)]ԠŠŠŠ͠ӠɯQ^q6Uq6U]٠ԠĠȠӠ˩ h]ԠӮ)_"?a(ˠΠŠ)P8ra(ŠŠΠҮ)F"o8ra(ӠçϠԠΧϠ)\p`<()r$,`$KM66dedeD@d6ed7ed8e(d9eM]ԠϠӠɯ3)@p(ϠȠԺ)\zKa()G\p`<()r$P8ra(Š)d2eqq_Qcqqq@p(ƠӺ)\zbG\p\P8r`%qbRd2eo8rP8ra(ԠҠ)G`$a(ĠŠbG\p\P8r`%qbqq`$Ccq@p(ŠԺ)\zbG\p\P8r`%qbScq`%q@p(Šź)\zbG\p\P8r`%qbO`$d2ecP8ra(<KM6d2e?P8ra(͠٠)d2e6c@p(٠Ϻ)\za()GP8rq\p"`<()r$qa()GGccq@p(ҠԺ)\zbG\p\P8r`%qb\cq@p(Ҡź)\z©ӠԠŠĠǠϠӮZ]éԠӠҠŠԠӠŠĮGa@E(ΠɬϬ)]ŠŠŠΧԠŠUVWYdefdd ehd!ed"ed#e`d$ed%ed&ed'ed(ed)ed*e`On]ŠӠҠŠŠ͠Ժ7x]Ӡ̠ǠϠٻX]`      `5H8 0 h 5`hL* B< C= > ?BiBCiC8>>?? L, 9 X [2 NEXT DISK NUMBER? DEFAULT= LAST+1 LAST NEW?2$   $ 2 Xʅ6 78 9  X CATALOGPR#0IN#0L  [ %8 LU  [?2$  C= CONTINUE D=DONE L 2 9 L9 `Hh`hɍ%H! hL h ENTER COMMENT FIELD EDIT DATA IN FILE RETURN TO MAIN MENU  L  L LL LL9 X [ ADD TO CURRENT FILE (Y/N)  7 w X O INSERT DISKETTE AND PRESS RETURN  L    L L}L9 LFLLL XL 9 X >>> CATALOG DATA ENTRY FUNCTION <<< PRESS "ESC" TO SELECT FUNCTION THEN PRESS RETURN ENTER FROM KEYBOARD ENTER FROM DISK CATALOG LIST DATA TO SCREEN LIST DATA TO PRINTER PUT/GET FILE FROM DISK END SESSIONL  CATALOG`hh L HH`   [$> "$< < ɛL ɍ`$ "$   # X <<< DISK CATALOG PROGRAM >>> ލ PRESS "ESC" TO SELECT FUNCTION THEN PRESS RETURN SORT DATA ENTER DATA SEARCH FOR DATA       )+a(ĠΠƠŠͮ),UVW Ya(ΠˠǮ)QQǮ)Q(^ ZM6_o%da(Š٠Šˠǧ),na(ӠΠĠϠŠȠ)xa(ΠدحҮ)cc-a(Ԡ٠ŠҠӭƠӬ)a(ŠԠӠס)cc,a(ΠˠǠӧҠˠҠŠĠҠˠϠˠҠ͠٠ΠȊW$]̠Π̠͠Š̮Ϯ٠y.]̠͠ҠҬԬĠ٠ӠϠŮ)@p(Ŭ)9a@E(Π)E@FE()Fa@E(Š)E@FE()F=a@E(Π)E@FE()Fa@E(Š)E@*#;@rr[[]ˠϠ˯ŠҠ͠٠ĠîҊX]$_q]ԠӠϠԠӠϠŠԠĠĠӠҠŠŊ]Š٠ϠBq--rrUVW$d8re.?rYd8re[BKM6o8ra(ǩ)ma(Š˨)FE()a(Š˨)FE()a(Š˨)FE(˨)FE(˨)FGma(˨)FE()a(Š˨)FE(˨)FE(˨)FE(˨)FE()8a(̠)q`[]ŢϠma(¨)a(̠)a(Ԡ)E@E(Ժ)E@E(˨)FE(˨)FE()E@E(ĺ)E@Gya(˨)FE(˨)FE(˨)FE(˨)FE()a()E@E(Ǯ)E@a(¨ >?L7ɲ >?L7ɳ >?L7ɴL}>?8 <=   ?>  , LW4L[,0б$ $ SORT DONE L La 9 X O INPUT RECORD THEN PRESS RETUR@BB C U  $ L   U$ L<= >?L,   @ A 7   @ A` 9 X X [ 1. VOLUME2. TYPE3. PROGRAM4. COMMENT $% [ SORT ON WHICH FIELD? %% [$ Ʌ >i?> ,  5L <=`<=`8> >??`# [?2 S=SINGLE E=END B=BEGINING ESC=QUIT 2 [$ 'L#Sɛ    # [?2L BC  @  8  U%$ L   B C E=EDIT D=DELETE I=INSERT "#2?  ɛL9 "    j ?  L:  %% [     LWШLDi i`8 `ɍ L` L" L<= i L 9 X [ START WITH WHAT VOL# ?$3 jɍ LL P X`   ` 8  THAT VOLUME NOT PRESENT L CLOSE ` ɕ  LɈL L`  9 X O   [ E-EXCEL V-VERYG G-GOOD F-FAIR P-POOR   [ L-LORES H-HIRES T-TEXT D-DATA M-MUSIC 9 [# O#" [ POSITION CURSOR THEN PRESS RETURN  [2  ɛL9 ɍ "$ jɍL . ɍL    U VOL T LEN PROGRAM NAME CODE :8 %,,ɍLɛө ɍLL L   [$ TYPE$ QUALITY$ MODE ! [ G-GAME E-EDUCA U-UTILI S-SCIENCT-TECHNIPRINTER ON AND PRESS RETURN  X [ YOU MAY HALT THE PRINTING AT ANY TIME BY PRESSING THE "ESC" KEY. PRESSING "ESC" AGAIN WILL RESUME PRINTING, PRI NTING A NEW HEADING AND CONTINUING WITH THE LAST RECORD. PRESS RETURN TO ABORT PRINTING$ BL$ RECORDS - USED/REMAINING= 8   r< = 8   r< = $ `=<8 =i= X O SEARCHING FOR: ɍ L;$' LI2 [$  <>===Lt L 8  DONE !! LF% PRESS SPACE TO CONTINUE  [ BSAVE FILE # ,A$ ,L$   9L  9 X  [ 1. VOLUME NUMBER2. PROGRAM NAME3. CODE -ESC TO QUIT-  [ SEARCH ON WHICH FIELD? ɛL ɱ<ɲ<ɳ< [ B Y/N) ?  7  X t INPUT NUMBER OF FILE TO LOAD- #?, %% [$ BLOAD FILE # ,A$  `e ae  9L  X t SAVE TO WHAT FILE NUMBER- #? %% [$ 8  [`#8"J芰 [ `   L `#8"  [ 8 L#8H $(*)+!hi H $(*0` X  [ SAVE OR LOAD A FILE (S/L) ?   :LL X [ APPEND TO CURRENT FILE ( L   O# ARROW - SCROLLS P - PAGES 2" [$   Lg  Ljɛ 9L   `8إ#"ʥ  `#8"*  [ % ?2 2 3ɝjL7 L ɠ  H ݩ 2 `"" [?2 VOL T LEN PROGRAM NAME CODE # [` 9 X8  s [ NO DATA IN MEMORY [ ( PRESS RETURN ) $2 ɍE   CORRECT (Y/N) Lw ``8   ȑ ȑ `  9  X [  MEMORY FULL ERROR L9  M --> ! "G$(6):"! ITEMS !"j"!"15)"4 --> ! "G$(7):"! !""!"15)"5 --> ! "G$(8):"! !""!"15)"1 --> ! "G$(9):200X$G$(10):90::I121:"_";:I::)"> SORT DATA <"e X$G$(1):90:X$G$(2):90::X$G$(3):90:X$G$(4):90::195 "! ORDER 3 --> ! "G$(20):"! IN ! "! WHICH 2 --> ! "G$(5):"! TO !"."! CHOOSE 6 S "Q$"ESC"Q$" TO SELECT FUNCTION"C sG$(4)"THEN PRESS RETURN"[ xG$(5)"ENTER DATA"w }G$(6)"SEARCH FOR DATA" G$(7)"LIST DATA TO SCREEN" G$(8)"LIST DATA TO PRINTER" G$(9)"PUT/GET FILE FROM DISK" G$(10)"END SESSION"$ G$(20 IS ON, ON THE MX80":"PRINTER.":` P23:"PRESS "Q$"RETURN"Q$" WHEN THE POWER IS";:" ON ";Z$i U285 Z(40(X$)2):X$: _I139:"* ";:I:: dG$(1)"<<< DISK CATALOG PROGRAM >>>" iG$(2)" ^^^^^^^^^^^^^^^^^^^^^^^^^^^^"% nG$(3)"PRESPRINTER. THE PRINTOUT WILL":"START AT ONCE WHEN"Q$"RETURN"Q$" IS HIT.": C"VIEWING THE PROGRAM ON THE VIDEO MON-":"ITOR IS VIRTUALLY IMPOSSIBLE AS TOO":"MANY LINE ENTRIES NEED CHANGING!":" K"THIS PROGRAM WILL NOT RUN PROPERLY":"UNLESS THE POWERON INTERFACE"K -C$"BY JOHN A. BACKMAN - 302 N. 76TH - SEATTLE, WA 98103"w 2E$"DONATED TO APPLE LOVERS EVERYWHERE" 7F$"VERSION 2.0 - MARCH 1982"I <3:"A PRINTOUT OF THIS DOCUMENTATION MUST":"BE MADE ON AN EPSON MX-80 OR A SIMILAR":"80 COLUMN ?  :)D$(13)(4): CR + CTRL-DEQ$(34): QUOTE SYMBOL`" 70N":"CTRL-I 70N" mG$(200)#A$"'DISK CATALOG' INSTRUCTIONS - USED WITH THE EPSON MX/RX 80 PRINTER" (B$"PREPARED EMPIRICALLY ON AN OLD APPLE II USING THE STANDARD EPS                    ɰŠˠɰҫĠԠɰŠɰŠĠɰŠǠɰحŠˠ̠ɰǠŠɰ٠ӠԠɰ٠Ҡɰ٠ҠɰˠǠɰŠӠΠɰРӠҠɰ٠Ӡ°à°îؠ°̤ͭ°ͱ̤°Ͳ̤°ح̤ɰؠɰԠ ٠ؠӠˠǠԠŠحŠԠ֠°Ԡؠ°٠ӠԮؠ°ˠǮؠ   $N "#2 " [  # jɍɛ % L( L9  PR#1` NEXT LINE."{"WHEN YOU HAVE SELECTED A LINE THEN PRESS THE "Q$"RETURN"Q$" KEY AND THAT MENU":"FUNCTION WILL START."::"PAGE 2"(12):5)"WHEN YOU SELECT "Q$"ENTER FROM KEYBOARD"Q$" AN INVERSE HEADER LINE APPEARS:"28020:":[]"HE SCREEN."A"NOW YOU READY TO USE THE REST OF THIS PROGRAM!"d205:"#2 --> ENTER DATA":2105)"WHEN YOU SELECT "Q$"ENTER DATA"Q$" THE FOLLOWING MENU APPEARS:"::215 5)"WHEN THE "Q$"ESC"Q$" KEY IS PRESSED, BOTH CURSORS MOVE DOWN TO THEREADY IN "Q$"RAM"Q$", YOU WILL GET THE CATALOG AGAIN TO LET YOU PICK":"WHICH PROGRAM YOU WANT TO LOAD.": 5)"THE COMPUTER WILL TAKE IT FROM THERE AND ENTER THE DATA INTO "Q$"RAM"Q$:"FOR YOU. WHEN THROUGH LOADING THE DATA, THE MAIN MENU RETURNS TO TE ENTIRE FILE WITH THE NEW - THE OLD WILL BE GONE":" FOREVER!!!!!!!"::5)"THE ABOVE QUESTIONS APPEAR AT THE END OF THE CATALOG LISTING. IF YOU":"CHOOSE TO "Q$"LOAD"Q$" A FILE, AND DON'T WANT TO "Q$"APPEND"Q$" TO ANOTHER PROGRAM"j"FILE ALK."}|"THIS WILL BE AN EMPTY FILE THAT MAY BE USED LATER BY LOADING IT, THEN APPEND":"DISK CATALOGS TO IT, AS DESIRED.":M:X$"!@#! CAUTION !#@!":90::" IF YOU SAVE A NEW FILE - USING AN EXISTING FILE NAME - YOU":" WILL REPLACE TH THE FILE. WHEN THE PROGRAM IS LOADED, YOU ARE"w"RETURNED TO THE MAIN MENU FOR YOUR NEXT CHOICE."::5)"IF YOU ENTERED "Q$"S"Q$" FOR THE 1ST QUESTION, AND YOU DON'T HAVE ANY":"CATALOGED DISKS IN MEMORY,YOU WILL SAVE THE FILE NAME TO YOUR PRESENT DISE":"NEW FILE, IF YOUR ANSWER WAS "Q$"Y"Q$", THEN YOUR NEW FILE WILL BE ADDED TO THE"/r"FILE IN MEMORY UNTIL YOU RUN OUT OF AVAILABLE MEMORY!"::5)"AGAIN, ONLY A SINGLE CHARACTER IS NEEDED TO ANSWER THE SECOND QUESTION.":Q$"DOS"Q$" IMMEDIATELY READS$"L"Q$" ASKS THE QUESTION:":X$"APPEND TO CURRENT FILE (Y/N) ?":90::"EITHER ANSWER WILL DISPLAY THE DISK CATALOG AND ASK:":X$"INPUT NUMBER OF FILE TO LOAD- #?":90:Um"IF YOUR ANSWER TO THE FIRST QUESTION WAS "Q$"N"Q$" THEN MEMORY IS CLEARED FOR TH:":X$"SAVE TO WHAT FILE NUMBER- # ?":90:^5)"IF YOU ANSWERED THE FIRST QUESTION WITH "Q$"S"Q$" THEN YOU GET TO ENTER A":Q$"SINGLE"Q$" LETTER FOLLOWING THE "Q$"#"Q$". "::c"PAGE 1"(12):h"AND "QT - -> LINE. THEN, WHEN YOU PRESS "Q$"RETURN"Q$" YOU WILL BE":"ASKED THE FOLLOWING:"OX$"SAVE OR LOAD A FILE (S/L) ?":90:T"ENTERING EITHER "Q$"S"Q$" OR "Q$"L"Q$" WILL BRING THE CATALOG TO THE SCREEN. "Q$"S"Q$" ASKS"+Y"THE FOLLOWING QUESTIONION WILL START."?@205:"#1 --> PUT/GET FILE FROM DISK":210E5)"THERE IS NO INFORMATION IN "Q$"RAM"Q$" MEMORY ABOUT ANY DISK CATALOG WHEN YOU"UJ"FIRST ENTER THE PROGRAM. IF YOU HAVE A PREVIOUSLY ESTABLISHED FILE - YOU MUST":"GO TO THE ,5)"THE FIRST 20:I140:"_";:I:::20:I140:"-";:I::hX$"START WITH VOL#":90:X$":[]":90::265:X$" VOL T LEN PROGRAM NAME CODE ":90:270::D$;"PR#1":(12)T":95:X$A$:90:X$B$:90:X$C$:90::X$E$:90:X$F$:90:H$(5)"ENTER FROM DISK CATALOG"BH$(6)"ENTER COMMENT FIELD"`H$(7)"EDIT DATA IN FILE"H$(8)"RETURN TO MAIN MENU"X$H$(1):90::X$H$(2):90:X$H$(3):90::X$H$(4):90::X$H$(5):90:X$H$(6):90::X$H$(7):90::X$H$(8):90::I121:"-";:I::2(27)(69)(27)(71):Q(27)(70)(27)(72):H$(1)">>> CATALOG DATA ENTRY FUNCTION <<<"H$(2)"PRESS "Q$"ESC"Q$" TO SELECT FUNCTION"H$(3)"THEN PRESS RETURN"H$(4)"> ENTER FROM KEYBOARD <""Y MOVES LINES DOWN. THE <:> CURSOR WILL APPEAR AT THE"."END OF THE CURSOR LINE, AND THE LINE WILL GO TO THE NORMAL MODE WHEN "Q$"E"Q$:"IS PRESSED.":P/5)"TO CHANGE ANY PART OF THE LINE, THE ARROW KEYS WILL TRACE OVER THE LINE":"TO WHERE THE CHAVED, AND THE INVERSE LINE 23 IS ADDED AS FOLLOWS:"h-q265:X$"E=EDIT D=DELETE I=INSERT":90:270:-v5)"THE QUESTION IS ASKED:"::2756.{5)"SCROLLING LINES TO THE EDIT CENTER LINE USES THE <-- KEY TO MOVE":"LINES UP, AND THE --> KEFOR CHANGING":"AN ENTRY ON THE "Q$"CURSOR"Q$" LINE.":L,b"PAGE 4"(12):,g5)"TO RETURN TO THE "Q$"DATA ENTRY"Q$" MENU, PRESS THE "Q$"ESC"Q$" KEY.":2-l5)Q$"EDIT DATA IN FILE"Q$" IS SIMILAR TO THE LAST MENU ITEM EXCEPT THAT THE":"TABLE IS REMOS THE CURSOR FOR THE CODE ENTRY LOCATION. ENTER YOUR CODE":"CHOICE FOR THE ITEM CODE."7,]"YOU MAY USE ANY 3 CHR ALPHA-NUMERIC CODE YOU DESIRE."::5)"THE LEFT ARROW SCROLLS DOWN, AND THE RIGHT ARROW SCROLLS UP *I20)"U-UTILI G-GOOD T-TEXT"b*N20)"S-SCIENC F-FAIR D-DATA"*S20)"T-TECHNI P-POOR M-MUSIC":+X5)"WHEN RETURN IS PRESSED, THE FIFTH SPACE FROM THE RIGHT REVERTS TO NORMAL":"AND THE "Q$":"Q$" IETURN":90:270:a)05)"BELOW LINE #17 IS A SUGGESTED CODING TABLE FOR A THREE LETTER CODE:":)520)" TYPE QUALITY MODE"):)?20)"G-GAME E-EXCEL L-LORES")D20)"E-EDUCA V-VERYG H-HIRES"0E MAY BE SCROLLED UP OR DOWN WITH THE TWO"(&"<-- AND --> ARROW KEYS, CHANGING THE ENTRY IN THE MIDDLE INVERSE LINE.":265:X$" CURSOR LINE FOR ADDING 3 CHR CODE":90:270:)+"LINE #13 IS ALSO INVERSE AND SAYS:":265:X$"POSITION CURSOR THEN PRESS ROMMENT FIELD"Q$" ASKS:"::275'5)"WHEN "Q$"RETURN"Q$" IS PRESSED, THREE INVERSE LINES APPEAR AT 1,7 AND 13":"LINE #1:":280*(!"LINE #7 IS THE INVERSE "Q$"COMMENT ADDING"Q$" CURSOR LINE, AND LISTS THE SIXTH":"ITEM DISPLAYED. THE ENTRY ON THIS LINPTION TO USE THE "Q$"DEFAULT"Q$" OR YOUR OWN DISK'S NUMBER AS ABOVE:"::X$"LAST NEW":90:X$"[ ] [ ]":90:& "PAGE 3"(12):&5)"UPON PRESSING "Q$"D"Q$" YOU ARE RETURNED TO THE "Q$"DATA ENTRY"Q" MENU:":'215:5)"SELECTING "Q$"ENTER CHE LINE WILL CHANGE TO:"W%265:X$" C= CONTINUE D=DONE ":90:270%5)"ADDITIONAL DISKS CAN BE ADDED TO THIS FILE BY PRESSING "Q$"C"Q$" AFTER":"THE PRECEEDING DISK HAS BEEN ENTERED INTO MEMORY. AGAIN, YOU ARE OFFERED THE"s&"O"Q$"RAM"Q$:"MEMORY.":r$"INVERSE LINE 23 CHANGES TO:":265:X$"RECORDS USED/REMAINING ###/###":90:270%"THIS LINE WILL HOLD FOR A FEW SECONDS WITH THE NUMBER OF ITEMS LISTED, AND THE":"NUMBER OF SPACES LEFT FOR OTHER DISK CATALOGS. THEN TRESS RETURN":90:270#5)"PRESSING "Q$"RETURN"Q$" FOLLOWING PLACING YOUR DISKETTE WILL IMMEDIATELY":"DISPLAY THE CATALOG OF ITEMS ON THAT DISK IN THE SAME MANNER AS IF TYPED IN!"$"THIS CONTINUES UNTIL ALL ITEMS ON THE DISKETTE ARE LISTED IN THE ITHER ENTER THE "Q$"VOL. #"Q$" OF THE DISK YOU WANT TO "Q$"CATALOG"Q$" OR PRESS":Q$"RETURN"Q$" TO DEFAULT TO THE NEXT NUMBER IN SEQUENCE. WHEN Y0U PRESS "Q$"RETURN"Q$","#"IN EITHER CASE, INVERSE LINE 23 WILL CHANGE TO:":265:X$"INSERT DISKETTE AND PLE (Y/N)":90::5)"SELECTING "Q$"N"Q$" WILL CLEAR THE MEMORY OF PREVIOUS ENTRIES!"::5)"SELECTING "Q$"Y"Q$" WILL PRESENT THE FOLLOWING:":!X$"NEXT DISK NUMBER?":90:X$"DEFAULT = LAST+1":90::X$"LAST NEW":90:X$"[ ] [ ]":90:"5)"EOVES THE CURSOR TO THE NEXT LINE FOR YOUR NEXT ENTRY.": 5)"PRESSING "Q$"RETURN"Q$" TWICE WILL RETURN YOU TO THE "Q$"DATA ENTRY"Q$"MENU.": 5)"WHEN YOU SELECT "Q$"ENTER FROM DISK CATALOG"Q$", THE FOLLOWING IS ASKED:":!X$"ADD TO CURRENT FI:5)"LINE 4 HAS A <:> FOR A CURSOR WITH AN INVERSE [] BEHIND; LINE 23 IS ALSO":"INVERSE WITH THE MESSAGE:"::265:X$"INPUT RECORD THEN PRESS RETURN":90:270:8 5)"NOW YOU MAY ENTER ITEMS DIRECTLY FROM THE KEYBOARD. PRESSING "Q$"RETURN"Q$:"MN!":>/5)"ANOTHER THING, IF YOU HAVEN'T LOADED A FILE - IT'S GO BACK":"TO #1 AGAIN OR MORE PAPER WILL BE WASTED! THIS LITTLE JEWEL">4"NEEDS SOMETHING TO FEED ON FROM MEMORY!"::5)"3?95)"AFTER ENTERING THE RIGHT SLOT NUMBER, YOU ARE DIRECTEDHIS ITEM IS:"::X$"WHAT SLOT IS YOUR PRINTER IN- []":90::"IF YOU PRESS RETURN OR GIVE A WRONG SLOT NUMBER, YOUR PRINTER WILL FEED OUT">*"ONE SHEET, PRINT A HEADER LINE:"::280::"AND RETURN YOU TO THE MAIN MENU SO THAT YOU CAN START ALL OVER AGAIED THE":"FILE BEFORE YOU SAVED IT, PARTICULARLY IF YOU SORTED BY PROGRAM.":<5)"WHENEVER YOU WISH, YOU MAY RETURN TO THE MAIN MENU BY PRESSING "Q$"ESC"Q$< 205:"#5 --> LIST DATA TO PRINTER":210=%5)"THE FIRST QUESTION ASKED UPON SELECTING TCROLLS P - PAGES":90:270:;5)"IN-BETWEEN, 20 LINES OF DATA ARE DISPLAYED FROM THE FILE IN MEMORY.":"THESE LINES MAY BE MOVED AROUND AS DIRECTED IN LINE 24, A LINE AT A TIME,"M<"OR PAGE BY PAGE THROUGH THEENTIRE FILE. THIS IS NICE IF YOU SORTE NOT PRESENT":90::"PRESSING THE "Q$"SPACE BAR"Q$" RETURNS:"::275:5)"WHEN YOU ENTER A VOLUME NUMBER THAT IS IN THE FILE IN MEMORY, INVERSE":"LINE NUMBER 1 APPEARS:"::280:"AND AT THE BOTTOM, INVERSE LINE #24 APPEARS:":; 265:X$"ARROW - SSCREEN"Q$" ASKS:"::275:/9"PAGE 6"(12):95)"YOU MAY ENTER ANY 3 ALPHA-NUMERIC CHARACTERS, IF THEY APPEAR IN YOUR":"FILE (THAT YOU LOADED PREVIOUSLY - OF COURSE). IF YOU DON'T HAVE A FILE"F:"IN MEMORY, THE COMPUTER SAYS:"::X$"THAT VOLUMHE "Q$"PUT/GET - -"Q" CHOICE ON THE MAIN MENU. JUST PRESS"Q$"ESC"Q$8"FIVE TIMES, THEN PRESS "Q$"RETURN"Q$" AND YOU WILL BE ABLE TO DO THE THINGS":"SHOWN IN PART #1.":8205:"#4 --> LIST DATA TO SCREEN":210:95)"SELECTING "Q$"LIST DATA TO D. THE LAST LINE OF THE ABOVE MENU WILL":"CHANGE TO"::X$"SORT DONE":90:75)"YOU WILL BE RETURNED TO THE MAIN MENU AFTER PRESSING THE "Q$"SPACE BAR"Q$:"NOW THAT YOUR FILE IS SORTED IN YOUR DESIRED FIELD, THE FILE MAY BE SAVED"C8"BY GOING TO T":90::X$"4. COMMENT":90::X$"SORT ON WHICH FIELD?":90:65)"ENTER THE FIELD # YOU WANT, AND, THE SORT STARTS NOW! A "Q$"THUMP"Q$" IS":"HEARD AS IT WORKS, AND SPEEDS UP. AS IT NEARS THE END OF THE DATA A"L7Q$"BEEP"Q$" SOUND WILL WILL BE HEAR 5"(12):5:100:55)"NOW THAT YOU ARE BACK WITH THE BASIC MENU, AND THE CURSORS STAND ON":Q$"SORT DATA"Q$", PRESSING THE "Q$"RETURN"Q$" KEY WILL PRESENT YOU WITH A NEW MENU:"5:X$"1. VOLUME"::90:X$"2. TYPE "::90=6:X$"3. PROGRAM*"::5)"PRESSING "Q$"ESC"Q$" RETURNS YOU TO THE DATA ENTRY MENU.":45)"THIS COVERS THE DATA ENTRY FUNCTIONS, SO PRESSING THE "Q$"ESC"Q$" KEY 4":"TIMES AND THEN "Q$"RETURN"Q$" WILL RETURN THE MAIN MENU."::205:"#3 --> SORT DATA":210: 5"PAGE5)"COMMANDS "Q$"B"Q$" AND "Q$"E"Q$" ARE USED TO DELETE WHOLE BLOCKS OF RECORDS FROM":"THE CURSOR LINE TO THE FIRST ENTRY BY PRESSING "Q$"B"Q$" KEY, AND/OR FROM THE"E4"EDIT LINE TO THE LAST ENTRY WITH "Q$"E"Q$" COMMAND. **** !!!! BE CAREFUL !!!! ***E DONE HERE!"::5)"THE ARROW KEYS ARE USED TO POSITION THE ITEM TO DELETE ON THE INVERSE"2"CURSOR LINE."::"PRESSING "Q$"S"Q$" IMMEDIATELY DELETES WHATEVER WAS ON THE INVERSE LINE, AND":"THE NEXT ENTRY SCROLLS UP TO THE EDITING CURSOR LINE.":3"Q$" FUNCTION IS ONE OF THE MOST DAMAGING PARTS OF THIS PROGRAM!":"UTMOST CARE AND ATTENTION IS NEEDED BECAUSE A PARTIAL OR COMPLETE LOSS OF":"RECORDS IS VERY EASY TO ACCOMPLISH!"1I139:"^ ";:I:[25)"INVERSE LINE #23 IS THE KEY TO WHAT MAY B & THE NEXT LINE MOVES UP (INVERSE).":0:5)"PRESSING "Q$"D"Q$" CHANGES LINE 23 TO READ:":265:X$" S=SINGLE E=END B=BEGINNING ESC=QUIT":90:270:0X$"N O T I C E ! ! ! ! ! ! ! !":90:X$"^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^":9015)"THE "Q$"DELETENGE IS DESIRED. TYPE YOUR CORRECTION , AS NEEDED, THEN PRESS":Q$"RETURN"Q$".":'05)Q$"I"Q$" MOVES THE ENTRY ON THE EDIT LINE DOWN, GOES NORMAL, SO THAT YOU":"CAN ENTER A NEW LINE BY KEYBOARD. WHEN YOU PRESS "Q$"RETURN"Q$", THE NEW LINE":"SCROLLS UP)GN`F%a()G`V%a()G`v%a()G`%a()G`%a()G`6%a()Gcca(Š)Fc[ q.?rded*eM6Pa(ˠŠ)c&P a(٠͠) 0d"ebE(Ӡ)FE()F8rE(˩)cc/S(ϠՠȠϠԠҠ˿)&@`@9()$,`@*#r9()$,KQ,M6_2 M6 q.? rdeM q.? r7a(ӠˠӠĠӠ)G`6%a(]\ (\2ded)eM<dedeFUVW"Pde.?8 rZMdde.?9 rnMxY\*a(̠ǠŠΠӠ˺)q.?r.?r3c]]ΠĠ]ҠĠӭ]ΠƠ٠]Ӡ͠Ϡ]̠ŠӮ]]ԠҠš] ] ] ]ˠŠ ]]٠]]͠Π]]Ԡ   DUT - SHOULD YOU FIND ANY ERRORS OR OMISSIONS, I WOULD APPRECIATE"G"YOUR COMMENTS, CORRECTIONS, OR SUGGESTIONS. MY ADDRESS IS 302 N. 76TH.":"SEATTLE, WA 98103"::X$"ENJOY CATALOGING YOUR DISKS!":90:::G"PAGE 8"(12):GD$;"PR#0":0":R THE "Q$"DONE !!"Q$" STATEMENT RETURNS YOU TO THE"FQ$"SEARCH"Q$" MENU, AND PRESSING "Q$"ESC"Q$" RETURNS YOU TO THE MAIN MENU."F205:36)"-EPILOG-":210AG5)"ANY SINS OF OMMISSION OR MISINTERPRETATION OF THE BINARY PROGRAM ARE":"ALL MINE - BS TO LIST, LINE #23 SAYS:"::X$"PRESS RETURN TO CONTINUE":90::"WHEN ALL ITEMS HAVE BEEN LISTED THEN YOU'LL SEE THIS:"::X$"DONE !!":903Fz5)"INVERSE LINE 24 STATES:":265:20)"SEARCHING FOR: ":270::"PRESSING THE SPACE BAR AFTECURSOR APPEARS ON LINE #23. ENTER ANY LETTER, NAME, NUMBER OR"Dp"SYMBOL YOU SEEK - DO NOT PRESS RETURN!!!! THE COMPUTER IMMEDIATELY PRINTS THE":"HEADER LINE AND LISTS UP TO A PAGE FULL OF ITEMS (ON THE VIDEO SCREEN ONLY)."Eu"IF THERE ARE MORE ITEMA FILE THROUGH THE":"USE OF THE FOLLOWING MENU:":X$"1. VOLUME NUMBER":90::X$"2. PROGRAM NAME ":90::X$"3. CODE ":90:>DkX$"-ESC TO QUIT":90:"ON LINE #22, THE FOLLOWING QUESTION IS ASKED:"::X$"SEARCH FOR WHAT?":90::"THEN THE <:>[] LIST ANOTHER 58 ITEMS, AND"B\"SO ON UNTIL ALL THE ITEMS IN THE FILE HAVE BEEN LISTED. REMEMBER, YOU MAY GET":"OUT OF THE WHOLE THING BY PRESSING "Q$"RETURN"Q$"."Ba205:"#6 --> SEARCH":210Cf5)"THIS ITEM ALLOWS THE RAPID LOCATING OF ITEMS IN AND THE PRINTER WILL CLEAR THE PAPER TO THE":"TOP OF THE NEXT SHEET (IF YOU HAVE PRE-SET YOUR PAPER), AND PRINT A HEADER"BW"LINE, SKIP TWO LINES, THEN LIST 58 ITEMS FROM THE FILE IN MEMORY. THEN, THE":"PRINTER WILL DO A FORM FEED, PRINT A NEW HEADER,TIME":20)"BY PRESSING THE "Q$"ESC"Q$" KEY. PRESSING"@M20)Q$"ESC"Q$" AGAIN WILL RESUME PRINTING, PRI":20)"NTING A NEW HEADING AND CONTINUING WITH":20)"THE LAST RECORD. PRESS RETURN TO":20)"ABORT PRINTING":zAR5)"