8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL LL !Cb" %n"o" (#M8( % ) L'"p"q" (\4, )7(P0  ( @p 8  x"!b"i"0 ~&i"0 %r"s" (,) &Սt"u" ( %L'")0I0hx H( +?X.(FREDBASEV st3 FB_s t LAYOUTSssFBTA1X' &PRODOS }<X! ,BASIC.SYSTEM((X! 'STARTUP=/X6)TITLE.PAK@ QX!`XRUNPACKIX!pX$MENUK? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8R %Щ ߩx"L! )L! 8'  )ɀ)4,- U JNT) x"Lv"w" ( !` a"M)Fi/ e"3 k"  !"#$%&آ <B*IBGF08Lé'+8H <,``h(`@ڍL3<>=?<>CAB@?A` 1 L  <>`ڢF]PL8i m L   6< L  BLRAM' hLDLHB-9F 3"aɿ LLB Nϰ H  @h( L Lj  @`eLJCAB@=?.<ʆ>,=?BC8 é&'112``* G** c*` v* G* c*`hh8`8`***`}*`e`H)hJJ*0JJ)` (< ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <ȱȱȱȱ0]cȱeem*ȱ*ȱ**ȱ**ȱ* )* * )L(`L?* *Ll) ) L( )Ll)8e` ,$`ee` < @( )m((.(( M(i ``) |'(j21 z& {&!` ({&z&(i({&(( CBDFGE (r&$ 3(,}&r& … 3(ŅL&JJJJ`Ϡ'8`r&h)hr')L&18|&"m11 2H22h2舌|&|&12H)M0 h10200I20h2 (`LE%12 `_'"L  <8# ȱ)ɀ  )( ` (Xp0`ŠӠֱҭԠŠҬî̠ӠĮʎ1|&… (n}&Dž (\%Tz&Lc()8= (J 8'z&'{& 3((ʎ1|&|&|&3223 `%YYZLYLYLY뿭` 8!@8` %MNЩUMߩ  L 5   8 0 8  `0 / X& & +&&7&P^& S ɘL   V7 L ' 0% '8 Jm ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ ͍B B(8. ) ɘ"    L=#=#&ŠϠĠԠŠ ԩ m# m# J Qڨ)̰m] нȱ ̀𩠙 i F >l"m" h" iL X%;"L8"ΠΠҠ`y""""""*$ Fk%YeQP!/RB}QBiBB}\ ĉFEL/#> ț6 hh@ihAiH(ؠȱ@JJJJq@)@Yvȱ@Hȱ@Ah@y@cYe J) LL LJiB LJ) >xhHHHHL(  ްƠx@BEOD  ް(`( C)CJJJlB O-`J,~@~@}J@` ߩ%S @ ~`E hhhߺ0 h ߐ( ߐ ߐ ߐ  0 HϭߍLпllllIL/FHGI ҭJjHIHB>IؙJJ W: ELyHIHI`JKJK`FHIG ( Ȣ؝؈JL)eKM`)` J zJ͟ $0 ΎJFJL8`JGBJ P ؑ@`M8`8@ؐʈI묆)z8zz Ly LةC8`؍)@ i)z8zyJ ^ ؅F Lo) +%J(a *FإGؐ.` *JHIH ۩ ٰz{`JJJJ;i v묅͚ vٍ0  `H8` `ٍyٍiB0H0FG h0`FG `ϩBxED0C ް(`(8`{ `ٽJJJJ`H͐hn)NjNjNjN. CH͐ v;٭ *Nۙ۰ڙک `Z8` C# (`{ .{ .{ .{8۰*Jzܝ٭(ܝ`)َ 8ʈ` 0ٝ)i `8`R ꍐz{ vNمFمG < ΐ0 FGL鮅0 ٭{٭zٽ8`H8`  ,z { 8` z E8`1ݾ00 Y 0ʩ 谼 谷`12)1`0`Ȏi 0U`)8`ά` W xG 0A)H ܝʈh٭0٭)ܝ٭*ܝ٥F٥G٭'ȱHά`Ύ8EeHI |SB:0M ٙKٙIFNGʈ d献`8m0`,0H hi PȽάhٍ0GF8yאFG  $0 G01܅I `P܍QR d8D`F` ]lH)HFȍNHGO $%܍&܍!ܢ8* J8` L ܝ>)I 'ܝ:`F8iRFPGQ`F܅IH3H ( )O 밨G%܈D" T)Ii)܍R*܍E'ܮ( 4 䭐 $H %HFFHGHG 됬`R8`)` EHS` #Q'܅IHHSSЍS@`8 ` ͍% ΍Q8`ʈ@qȱ@cȱ@mopfNxOyS)5SI0ܢܽ iP'E* 7deFG (GH Lv܅IR mEIH` tq qM0PQ ESHNFOG 밳NN` G8`F@ 0 > LK8`: ;I8`FHGH hGhF܌ բFܽܕF芝ܝ 밶:; <܅I m=IHHyHȘI Lܝ` @c@ k@Ю׍S)mיSi 뎅`C8` @ r3N@) G莱 ⭮i`0 Y; 뮅ٝ٘ 0 W,0 .H hȑNWȮّNW8`ٍّNά0N뎒׮Б` L` @>S)I38Mdeם`K8`@Nȱ@O@ rIiNȽבN)/ȩ/N`@[ WHJjjjhA ,'KI؍0JHhh8` Qx")T'P) ɺiL; )?     ~ `l@Hȱ@IױHXATȱH ɯȩ׍̒5H)/@a)_ .0 :A[8@`,FإG`BH PFإG`,H hHB؅F  ؅GxDE؍00C ް(`(8` vL'J  6"L vH  6 9ؙ` @ P8`K8`B8` L؈SJJJJحq) ) )Ю ЪGdF $ ᭔ع+ؠ 2H  :h8` 䮅ٽ ٬ؠ@` ( L )8`)i п` H h)N$%hꭋILhH),Nx8 (8` ԍ`@ABe 2U,,CnZ1IJK,-NOPQRSuHUSTON!' @  K cXXK تKo`V8`no` , on cI9XX`)HJJJh`OeNeO࿰ c9XАO`@ȭ@` ON INJKO`Hх 밽܅F݅G ` c* Z% L`L뮴HH hFhG܍ݍ 8 `FHGH  hGhF`ݹܙ݊`@Bɼ>K@J5 c9X(N    ܮ `J HH hh` 0 @ L/L Z`̸Yܝ ݝ0̸ȩFG   0` ܅F݅G ` c Zͬ LȹL@ȅH@IL,0` G וֹ= YH.q)N 0 >deS)@LP8` D᮴ ֩SGHG v L䬅yٙ٭yٙ٩`K CEdFeG 6%&ȹP8` i` %ם0 B %)( ȹ`8m8m@8` G8`F Pq)@N8`S)@J טyרםSS)׍Sde 밑 Ȣ؝I؈ 2h(8H ( h(8Hh(`ؑ@`@ȱ@ ` B@8ZS d鮅ٍٍٍsHٍr8fhgSJJJJS)S@` %I -q) 0@S)N8` @LL =@ ؝~@~ݞ@ʈL2 KIJHȢݞ)Jn 8 θ ؍ ؍ DH8 ع)ꭵJJJJ )߹0 )p )@ ) ȩ ؝L0NO 방 PQNOFG 嬆؍f؍g؝h ؝c zS) zS )حM͚ v`H@h`h``N8`  ) 1⬆iع `  عiعi` )؍0CGHFHBFG ުhFhG`@4͔ L @Ai ׭2` . :#ع؍0 Y讅)`.@+ i 8` L ؊ PLE΢ʱNLMOMEKP%MEK΢L$ O, PeNNO 2(` C  7 2JzHI{HI؊ }LE  *` A Hz ع H{ ؙ؊ؠIhHIhH } `؝}zIzؐ` f~ؽ؝z f % f؝~z؈` ` H  Ph)N@ 1; L  2$ )bJ Y ) H 4hL )  )حJjI{HIzHNO 8 ؍JL`R΢ʱLN1MOMEKP/MEK΢L7L-M O,p莡eNNO(`JNKOL 2/ "P L8 y WؑJ`L@ȱ@ `@Nȱ@O LL L r L 2 "pJ덣 )@፦NJOK 2iKK΢΢ IJΣ JФ̭JjHFIH HIGxKE ް((H hH h8`8@ȭ@L2쬆8N !"#$Ԡ͠ˠĠԠҠ(c)1983-1987 AppleLKL`BLL ެެެެެެެެެެެެެެެ(C)APPLE'83xLLM Mh@8nЍLޭ 0J @,,LNLG ASTARTUP$#   / XXύX?klmnÍoL) "6L'?"(0`6708" = ***)<0h)ύh0HHHH " ׍hhhhhhh .hh8`JIMJAYKERRY&MIKEFby LҠؠӠ΢ϠԩҠŠƠԠԠŠӢɯϠҠůȠԠĠ  ɈL :Lɍ)ې)ɮ۰ɺH h 'L  ġLL ̹L)'L ȳL O'F ʻ ̹(((L $ʩ $$ $L `ީ % K@D E  / XʩXύX X %   % ɍRH hɛɘɉɈ $ Ld :Ldې)ɮ۰ɺ' Ld  : X ( % ɛ$ɘɉ 8V%֌&8V֌֠)HV)hH)hHIhդD?DRIDQD)҅; ?JDQD]ՎՎՎ`MY pӭY)p  ӭp`C)`BFGV 8``8LխӅ:HhHh Ո թ թ ՘VYҪҦ>:Y)Ң`;R?AJ;<ȰY)Ң`Y?)Ң`ȐҰ ;HhHh=Ң`Hh `Hh`DEiȍ0֌1֍ZԍsԍԍԍԥDEԌ8TԌ8WpԌqԠ 7I꽌ɪ꽌ɭ蠪:љVE:8`]ѾV]H)]ѾV]ҙ)]ѾT]ҙ)] >8hUD` ԝY`> Hh݌(`HCJJJJ)*h`0($ p,&"op8`kkV꽌ɪɖxlӽ*kӽ-kәmMlӈ 꽌ɪ`8` *L o % ԽYӍZӭoӝY 3Ѡ шNZ`rZLkӭZӍq8r7IZӐiZkӐk 8 ѹs ӭq ѹ| kн Z)*>>` @ $(,048<@DHLPTX\`dh 0ުlptx| ֽ ְ& .Vӈ  JJJJH 8h Ei 8EX`'8`jӍWӥC)p> pӥCYӍY 轊( ( ӈBV ( ӭp0 \BkJ ՠ@iӦ> Ӑi'j:ZH i@ioZZH h ѐȭnWǥBJ Ӱ8XӦ>` Ր+>P׽8H  ): e: y8鰕:Jjjj<)yאi8i;i(*=>hPם8`;Zx3QZYXXWV[HEVhEhH)IWHPHHHAHHHLaVEWLӿJJH !h穖tp% ;"Z/݀>">"' 1" 7"5).莀/ ;" " 6" >" 1"6"$ "g"" !"""""IzL')*+,-./0123456789:;j>>m>` _m8injkiljo풼i>?Ek?>Q>> L> \/ e>>?́?ޱ>ȥpnG @p;G=po:Q>>>̀ `` \> ̀ `e>>?́?>?Emn(>e>ȱ>e?>Q>ؠ> ie>>?`|;}=:<~:<=;`||m};>:8o>oȑ>ppȑ>> :op`G DKJپھ pHJh` D!hgt}~p `~t}p8n~ni}tpi~~tso8pinii>j?k̈́>~|p|Ii||̈́ l - `>i>L8933LΞAAJL ةޘг uv $ 8LƞaЌ>?@`>?@`B8` K  춼LK ҟ ҟ ( KK`HJJJJ8`HK)` #hhL𚾤3 @LtJ)s@J b  l`a?sa?,E30ɍФ3 E3HD F3 Ʉ%h3 bM E  lLthɍLL3`3,A0s0% Ipn DpnI:L ؅303پھ p H־Ǿh۰8L־Jjjjɾ)Ⱦ8 ѱ OLӜ ĤLLX>(F`־ؾپھ׾` bɄ KDEF vLl v lL bKɍKL?` w  vLl@$݅3`(l8L3LX>(Ƀ,`3,G0]ɾ g` H`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O puȾ ɾ-O ]c־Jjjj `O>0O l PODEF޾ p ޾ p($ذ v (0 ( L?ԦʚLeةީa s  lL b,FLg,DL,C0$3 >@ Ɉ 3ɾꩈL(3ɾ;Ƀ B94 l% bʽ  ՚,S` H EH06172839h` v97L75v^a ?/( va?LLLɍ$?`?a ɍɥAH93827160hH46576879h`,C bL ɍ b w,S0 @ lLޭBYL 8!9 詍` "  à4"/pŠϠŠà͠ӠàԠŬh,PIN'ҍIxy /L6Ix y JpnoF /= plm /w)!,ZJYH)h****)  md8幙`\H[< h  /( 载쳼󩭙L/id /`H) hJJJJ ɺi` M  ` ת.8 `O`S  AI-L9 ᪰B C VWS`޾Lp h־Ҿ,G0^W)TP) ecfdپھ׾ؾӾ p$c d pccddީ 8`ȾɾʾNfne}ȾȾI>Ie f`8` P־ǾҾ,G0C f=W)_``\"׾پӾؾھ pD`־ǾY׾ؾOW)ݩȾɾʾ pD`8`W)CB) 5W) =)W)@! pZ}ȾȾ󰹩 p` ־ǾҾ,G 8`׾ؾ f p vۥs׾tؾE` صյՍ `Հ ~NՍ N" UA`p`p$صՇ UpA``ՀU~N׵ՍUU UN ?p `p{$صՃ " written permission from CUE, Inc.". >served"> 15:4::" ":o 17:" This disk may be freely copied and" 18:" given away, but may NOT be sold" 19:" or included as part of any " *20:" commercial package without "( 421:<>ER Z : .  -- TITLE PAGE --F PAUSE3: (SECONDS)\ P1PAUSE700:Pm :49238,0: ND$"FrEdBase" 6:21(ND$)2:ND$ 8:4:"Copyright 1988 CUE, Incorporated" 9:13:"and Greg Butler" 12:11:"All Rights Re  CUE STARTUP PROGRAM 1 :49234,0:?D$(4):VD$"BLOAD RUNPACK"\#u(D$"BLOAD TITLE.PAK"28048<2000: -- TEXT TITLE --A1:FD$"RUN MENU" P SOFTSWAP TITLE GRAPHIC BY JOHN FORRESTER AND HIS MOM, ROXIE FORRESTLLwLLL) `8` ԠŬLLʮq$6,⨁ K6, VtI=v!gNVt Vt  lg~TV     T[fouu~ՠٯ* PWN*]ĿNTz @n6VC/+A>@I5gN Oz @n[Dz @nd0,~z @`$仫@v$⩔,C[B?I>孓`仫6VtCicQĿUKqtVt Nֵ#ح#׮2}q :IC@@ -!S    !C- !ABELSDFRV@@ !$(19@EüϠž(+@ABCDEFGHIKLMNPSsƬƀ#(ZZV4G_0=( A P FjL\5p-e9ABSAVERIFYBLOADELETEBYECATALOGOPENWRITEXECREATEFRESTORENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPEND6D(!쫂8 ( 8о(־Ǿ,G 8`_`W)H־Jjjjh p̭ fLᶢǾ ת..8 ۭ (8mȾȾmɾɾʾiʾ` Lpl8l:/,s|G`ՀąNՄՍ" Np `p{ ՂՃ ĎN`յՃN`ՃփA DNp `xcx ൃՂՃ ?ABCDEFGHOA yxꪆ݀8@q hxA` OA 8Հ Dd8ă`yDd "b8ƪ ` 8ꫪ@ q8 *j`xqNê *jy`*j8@*j*j *j?x  a|pqg EDqgp~xpc<Ս`pՀՁյՂ ?spֵص#" g," ?gp~`pc|Ս`p g~x`pcՀpc@Ղ~յ@ s9յ؍ aqqg#" qgxp~pc<Հ`pcՄյ ăs9յصAppx~ՃܵՁ s9յ؍,#"s8Շݍf#" g`pcՀ pc|~x|~Շյ ăs9յ؍>Ďs8``?g  ED@յ؃`Us܍յ`ߵUU Ug` `p~އ pc\px~֍Ձ ăcpյ؍xs؇Ս`ݵ  EDg`pc ׍ pc\@@`G @@@G@@@@@Oڪ `p~֍ @յՂp Ď?s`֍յ g8 Ug`p~؃pc|`p~֍Ձ U@`g@@@᰸@@ꅺ@ @@Gc@@@8c`@ă`oGD@"`g@~?@@A@ꊪ@ @@Gꇪ@@ @@{@` @@Gc@@Gs@ꆰ@ă@N@D@"`w@@@@@Ʈ@ @@Gc@D@~c`@`GG@ @@GcA@@G;@@D@"`?@@@ @@~@ @@Gc@@Gs@N?@@`w@@@@ @@Gꇪ@@@ă`;GD @*G@@@@@ @*@G`@*@G;@*@*@*` @@@ @@ N`յՃăAxpN" Np`pՃx@Հ`Հ ĎNpՍՇ N DGxp``p`Ճյ @@ګ @N`յՃNՅփG" Nx@pxc@Ճ`|cՂ `ՂՃ ĎN`յՃ"GՅ؃N DNp`pxc`Ճ@|c`Հ`ՂՃ qA O|~@ 8@Ϊ8x?yq h89N9O?@ 8@ƪՀ5qyxăq8D4 "b89N9N 8@ƪ݀y`x||q8 h8|9Np 8ຫAՀDd :"CREDITS":;5:" This disk contains a high-speed"v" operating system called ";::"DIVERSI-DOS";::","" which is licensed for use with"" programs ON THIS DISK ONLY."::" To legally use Diversi-DOS" " with other program1000!R3:15::"CREDITS":QW7::" CUE SoftSwap helped underwrite the"{\:" development of FrEdBase and is "f:" pleased to have helped develop a"p:" companion to FrEdWriter."u18:" Thanks Greg! ";z10003:15:ITS":37:" Greg has worked on FrEdBase for"_ :" more than a year. It grew out of"%:" another program he wrote. He is"*:" also responsible for 'AussieFrEd'"4:" which is the version of FrEdWriter">:" used down under.H:3:15::"CREDITS":I 7:" FrEdBase was written by Greg Butler"w :" from Australia. Greg is a computer" :" education consultant working with" :" the New South Wales Department of" :" Education." 10003:15::"CREDEN SETUP --/ ::ZZ140:1:ZZ:" ";:ZZN ZZ223:40:ZZ:" ";:ZZp ZZ4011:ZZ:23:" ";:ZZ ZZ2311:1:ZZ:" ";:ZZ  :  -- SET WINDOW -- :1806 32,1:33,38:34,1:35,21 ":  CREDITS  O CONTINUE ";' 49168,0:Z$::1 : I  -- MENU BANNER -- :ZZ37:3:ZZ:" " ZZ4ĢZZ:CUE$"CUE SOFTSWAP":21(CUE$)2:CUE$ ZZ6ĢZZ:21(ND$)2:ND$ ZZ  :  -- SCRE136K139VV1:V0VNP> K149K138VV1:VNP1V1N K141100u K141VNP4ĉ:::D$"RUN"A$(V) K141VNP4ĴV(NP4)2000,3000,4000 VNP50 : :  -- SCREEN CLEAR -- 23:3: " PRESS ANY KEY TJLMNOPQRSTP:V(N)10N:V(N):H(N)20(A$(N))2:H(N):A$(N);::FOR N = NP - 2 TO NP:V(N) = 11 + N: VTAB V(N):H(N) = 20 - LEN (A$(N)) / 2: HTAB H(N): PRINT A$(N);: NEXT d:V(V):H(V):A$(V); nK(16384):K128110 x16368,0::V(V):H(V):A$(V); K49168,0:D$(4)0====================G CUE MENU PROGRAMa===================={NP:N1NP:A$(N):N(1800:18202::V1:255<ND$"FREDBASE V1.1":1700F:23:4:"USE ARROW KEYS AND PRESS ";:P9 ZN1N`` 0:ȡHe@ hhл`Ie@҈@ăq8D "bxx9N@  s, you may send"% " $30 to: ":> " DSR, Inc."_ " 34880 Bunker Hill" " Farmington, MI 48018.":1000 :  ABOUT THESE PROGRAMS  :3:10::" FREDBASE ": 5:" FrEdBase is a database program"' " designed for use in the classroom."7 " It can:"] :" Make database files with:"~ " -up to 18 categories" " -no max number of records except" " as limited by memory" :" Make reports" " -in column forma"FrEdBase Version 1.1 STARTUP Written by Greg Butler"h 2:L$:22:L$ 8:25)"The FrEdBase Data Base Manager":15:30)"(C) Copyright 1988 by":16)"Greg Butler & Computer Using Educators (CUE), Inc.":18:31)"All RigUWXYZ[\]^1(48641)(48642)256:A1A210:A11,V1256:A1,V1((A11)256):A21,V2256:A2,V2((A21)256)p 168 (49149)1Ĺ41859,3 ID(49048):ID192ID162190 EK1:IDID128:ID48EK0 BS(48737):BD(48738) 112U D$"PR#3"::------------------------8 - FrEdBase V1.1 -U written by Greg Butlerq (C) Copyright 1988 by Greg Butler & CUE, Inc. All rights reserved-----------------------  EP1:(175)256(176)46f V158123:V254915:A2lications to all"5T" interested persons; and"d^:" * To promote the professional growth"h" of its members and all fellow "r" educators."|1000:3:15::"ABOUT CUE":5:" Over 2500 CUE members attend the "$"elopment and "j"" growth of the use of computers":" and other technologies":" in education.",:" * To make a substantial contribution"6" toward developing and providing "@" information, materials, and"J" software appunded by teachers in "'" 1978."V:" CUE has over 7000 members throughout"" the U.S., Canada, and in several "" foreign countries."1000:3:15::"ABOUT CUE":5:" The goals of CUE are:":" * To promote the dev 3 :10:" FREDBASE ":& "- "4 "; "E1000P: q -- ABOUT CUE & SOFTSWAP --:3:15::"ABOUT CUE":5:" Computer-Using Educators, Inc., is a"" non-profit educational California "" corporation fo :10:" FREDBASE ":# ::K " FrEdBase is run by highlighting"w " menu choices. There is also a full" " array of disk utility commands." " FrEdBase can read in TEXT format" " data files as FrEdBase files." 1000:3999for",: " use in learning the program."4D :]E " FrEdBase requires 64k memory and"N " an 80 column card: IIe,c, or gs."X " If you have 128k, FrEdBase will"b " automatically load the start side"l " into memory."; 1000 3ASE ":1 6:" DOCS-FILES: The third side "] " is a data disk. Use FrEdWriter to" " print out the 4 MANUAL files for "& " FrEdBase's current documentation.") :" Sample FrEdBase data files are "+ " also included on this side de. You can"5 " load/begin/modify files here."^ " Booting this side got you here!" ::" GRAPHICS SIDE: If you choose to" " print out graphs from data, you" " will be prompted to this side." 1000 :3  :10:" FREDBt"" " -in label format "B :" Make graphs of data"a " -in varied formats"k 1000t :3 :10:" FREDBASE ": ::" For this version, the complete " " program is on two disk sides. ::" START SIDE: Startup sihts Reserved"b !12:7)"This Project Sponsored by Apple Computer Australia and CUE Softswap." "21:9)"Parts of this Program (C)opyright Roger Wagner Publishing, 1984." $EKX$"Cancel Transfer":54:50:"One moment please, loading FrEdBase START disk into extra memory.":118G &1:T,58:"Written by Greg Butler" (88:50:"Enter the date, then press Return (MM/DD/YY): "DT$; *T,46:IL8:I$"":70:A$E$38 ,DT$I$:DT$""48 .98 0EP3:D$"-/FB/FB/FB.ME" 223:T,0:958: 4"FBuHUSTON!s'  '%FB.MEa s!t _$FB.Ens!_$FB.M~M9s!_$FB.R:s!_$FB.U9#s!__氠^LQ^P^i^_^Ѹ "^eP^_eQ_ ȱ^8e^^_ , l^ưȭ氩L8ˍ` 6H, h`, h) $ l݅ ` j݅% LcqGETKEYBOARD.TB , ,0 ,) $ l݅ ` j݅% Lc^_:ʽe^^e__l^" ަư8^EP188,130,48$194:10:"SORRY BUT YOU NEED AN APPLE //E, //C"::"OR //GS WITH AN 80 COLUMN CARD TO USE"::"THE FREDBASE PROGRAM."194ME,E,M,R,U,ESSOUND.EFF.TB FQP,0EQ,0`pKBKEYBOARD.WAIT.T,B,/RAM,S3,D2"::120V50:52:ER6ĺ"Put FrEdBase START disk into drive 1.":182ER8ĺ"Can't read disk. Check disk drive.":182"Error number "ER","LN". Please write to the author.""Press Return to continue.";"KB",A$:A$C$18448731,112:48732,190:48733,176C48734,170:48735,96:48728:kER(222):ER19ĺD$"DELETE"P2$F$:ER5Č3288:154ER(222):LN(218)(219)256:ER255ĦD$"CLOSE":3288:ER149ĬER19LN118120ER6LN140ĺD$"RENAME/FT"T$",A"A",E"E1",B"B@CMD196:156:X1(48825):X2(48826)\L(48859)(48860)256D$"BSAVE"P2$F$",T"T$",A"A",L"L",B"BCMD195:48820,7:48825,X1:48826,X2:156L(EA)BBL:142216,0:48728,169:48729,CMD:48730,32!se START disk and put data disk in drive.":"Press Return to continue.";:"KB":D$"PREFIX,S"BS",D"BD:38B0:A0:E0:L0:X10:X20:CMD0D$"FRE"A(109)(110)256:E(111)(112)256164D$"CREATE"P2$F$",T"T$D$"BLOAD"P1$F$",D$"CREATEFB,S3,D2"FxP1$"/FB/FB/FB.":P2$"/RAM/FB/FB.":T$"BAS"zI15:F$:(49152)155ĺD$"PREFIX,S"BS",D"BD:50:"Transfer cancelled. Press Return to continue.":"KB":38|132~168:D$"RENAME/RAM,/FB"jEP2:50:"Remove FrEdBajMM7Ĺ49040,(MM8)32DD7lMM8Ĺ49040,MM32DD?n48pD$(4):E$(27):C$(13):DE$(127):LA$(8):R$(21):LE$(25):DA$(10):U$(11)rT1403:L$"--------------------------------------------------------------------------------"tvMM((49041)YY2)8((49040)32):MM$(MM):MM10MM$"0"MM$:MM$"00"MM$"MM"s^DT$MM$"/"DD$"/"YY$:bMM((DT$,1,2)):MM12MM1İ52:38dDD((DT$,4,2)):DD31DD1İ52:38fYY((DT$,7,2)):YY1İ52:38h49041,YY2(MM7)A$R$Ĺ49236,0:A$(((B1)2Z)128):49235,0PRA$" "A$"~"(I$)IL72fTI$I$A$:A$;:72XYY((49041)2):YY$(YY):YY10YY$"0"YY$:YY$"00"YY$"YY"ZDD(49040)((49040)32)32:DD$(DD):DD10DD$"0"DD$:DD$"00"DD$"DD"U\140:"GET",A$:A$""Ă:60$B0FCU$""GH56:A$E$A$C$ıpJ(A$DE$A$LA$)(I$)1I$"":LA$;L(A$DE$A$LA$)(I$)1I$(I$,(I$)1):LA$;NA$R$Z(40)(41)256:B(T):B2(B2)Ĺ49237,0:A$((B2Z)128):49236,0:821PES",200,255:: 61:T,57:868:T,76(X$):"Esc:"X$: 8A(40)(41)256:B(T):B2(B2)Ĺ49237,0:X$((B2A)128):49236,0:60 :49236,0:X$(((B1)2A)128):49235,0 <CU$LA$;:A140:"GET",A$:A$""Ă:64 >X$LA$;:@X$LA$;:A' (C)opyright Greg Butler, 1987 / 98A(40)(41)256:B(T):B2(B2)Ĺ49237,0:X$((B2A)128):49236,0:1849236,0:X$(((B1)2A)128):49235,0CU$LA$;:A140:"GET",A$:A$""Ă:22X$LA$;: X$LA$;:A140:"GET::49168,0:196.D1:"ADD",R$(D,R):158{R0İ88:"No data in the file, press Return to continue.":"KB",A$:19646:X$"Cancel Import":84:23:"One moment please, adjusting your data for FrEdBase......."P1R:J0C:(R$(P1,J))7717PH$"":46:X$"Cancel Import":84:88:"Reading your TXT type file.......";xD$"VERIFY"F$:D$"OPEN"F$:D$"READ"F$J0C:"INPUT",R$(R,J)::RR1:PR:96:F((111)(112)256)((109)(110)256)8500:F1000198(49152)155ĺD$"CLOSE"":28:A$E$108tC(I$)1:C0C17İ92::"Must be between 1 and 18! Press Return to continue.";:"KB":142C$(C),VP%(C),HT%(C),R$(1,C1):R0I0C:VP%(I)I4:HT%(I)0:C$(I)(I1):50:A$E$į"DEL",C$(0),VP%(0),HT%(0),R$(0):108NF$"E"I3F$"U"KEP4:88:"One moment please.....":D$"-"P$F$EP2:F$"":PH$"IMPORT DATA":46:X$"File Menu":84:11:25)"Import Data From a TXT Type File"88:"Please enter number of categories in your new FrEdBase file:";:IL2:I$""6"İ128:I(A$)1$tA$C$130AvA$U$A$LA$İ128:II1dxA$DA$A$R$A$S$İ128:II1qzI4I0~|I0I4~I28:T,22::" "M$(I)" "::114I28:T,19:I1". "M$(I)" ":I4ĺD$"BYE"I2142I0F$"M" I1---"zlEP1:D$"PR#3":"FrEdBase 1.1 FILE MENU Esc:None";:L$:22:L$n23:"Use Numbers, Arrows or Spacebar, then press Return.":6:" Please select:"pI04:128::I0:126r"KB",A$:A$"0"A$ ":b204*d(175)256(176)46fR$(21):LA$(8):DA$(10):U$(11):E$(27):DE$(127):S$(32):C$(13):D$(4):T1403:I04:M$(I):hP$"/FB/FB/FB."jL$"-----------------------------------------------------------------------------::50 HI$""İ92:504 JF$I$:(F$,1)"/"ıE LDS$"":78:w NDS$""DS$",S"((48737))",D"((48738)) PD$"PREFIX"DS$: T1:T,60:868:T,76(X$):"Esc:"X$: X23:T,0:958: \"ES",200,255:`1:T,30:"RECORD: "P" of "R",TDIR":D$"READ"A$:J0g >I$:(I$,11)"BLOCKS FREE"I$" "(I$,13,5)" Blocks Remain"::I$;:70 @(I$,18,3)"TXT"I$(I$,16)(I$,30,16)(I$,66,7):I$:JJ1 BJ15J0:"KB",A$:A$E$ĺ:70 D62 FD$"CLOSE":" (Press RETURN)";:"KB":eturn.";:23:T,21:IL57:I$"":28:A$E$ıC 4I$"="F$""76X 6(I$,1)"?"72 8DS$"":(I$,2,1)","DS$(I$,2,3):(I$,5,1)","DS$DS$(I$,5,3) :78::D$"PREFIX":" ";A$:A$::" Name Modified Time Length": <D$"OPEN"A$"128):49236,0:40H &A$R$Ĺ49236,0:A$(((B1)2Z)128):49235,0g (A$" "A$"~"(I$)IL30} *I$I$A$:A$;:30 .D$"FRE"::"File:"F$;:T,(79(PH$))2:PH$:L$:22:L$:- 288:"Filename (?=Catalog):"F$:"Type your filename, then press R`bcdefghijkl",A$:A$""Ă:18 % CU$""B 14:A$E$A$C$Č868:y (A$DE$A$LA$)(I$)1I$"":LA$;:A$DE$Č868 "(A$DE$A$LA$)(I$)1I$(I$,(I$)1):LA$;:A$DE$Č868 $A$R$Z(40)(41)256:B(T):B2(B2)Ĺ49237,0:A$((B2Z)4!R$(P1,J)(R$(P1,J),76)6:96::D$"FRE"88:"Ready to save as a FrEdBase file. Put your data disk into the drive,":"then press Return.";:"KB",A$:A$E$196EP3:50:A$E$196I$"="190184@FE0:D$"VERIFY"F$:FE1:88:"Replace existing file on disk? (Y/N):Y"LA$;:I$"":IL1:28J204bFE0(222)6204vFE1A$E$196FE1(I$"N"I$"n")17888:"Creating your FrEdBase file......."D$"OPEN"F$:D$"WRITE"F$:"FrEdBase"::C1:I0C:VP%(I):&KIāJI1K1:"SWAP",C$(J),C$(J1):"SWAP",OC%(J),OC%(J1):"SWAP",HT%(J),HT%(J1):v (IK:HT%(I)L:52:222 ,C$(I)""İ178:222 .X$"Record Layout":58:176:"Permanently DELETE "Q$C$(I)Q$" (including data)? (Y/N):N"LA$;:I$"":IL1:110:A$mopqrstuvwxyz{|))İ34:LL1:321 A$DA$K17İ34:KK1:32N A$U$K0İ34:KK1:32a A$C$İ34:36~ K4:T,L::C$(I)::20 "K4:T,0:868:T,HT%(K):C$(K): $KIāJIK1:"SWAP",C$(J),C$(J1):"SWAP",OC%(J),OC%(J1):"SWAP",HT%(J),HT%(J1):\ ' (C)opyright Greg Butler, 1987 0 282HC$(I)""İ178:222X$"Record Layout":58:176:"Use Arrow keys to move category, then press Return.":KI:LHT%(I):32"KB",A$:A$E$İ34:222A$LA$L0İ34:LL1:32 A$R$L76(C$(ILc^_:ʽe^^e__l^" ަư8^_氠^LQ^P^i^_^Ѹ "^eP^_eQ_ ȱ^8e^^_ , l^ưȭ氩L8ˍ` ީ; = l݅ , LpKBKEYBOARD.WAIT.T,H, h`, h) $ l݅ ` j݅% LcqGETKEYBOARD.TB , ,0 ,) $ l݅ ` j݅% ПЙWVi눱im8RRnSSmRȱmS`DELARRAY.DELETE.TB , ,?mmTBniCм=?mmTmnmUn VWVA$:A$C$232(EP108,196,178,140,ESSOUND.EFF.TB FQP,0EQ,0`ADDARR.RW.CL.AD.TB , UmRnS 륜쥁PQ $0$0,,Tȱȱȱ٥٥ g RQ P 5Lʆ g heck disk drive.":230CER9ER17ĺ"This disk is full.":230jER13ĺ"Wrong type of file.":230ER16ĺ"Check the filename you used.":230"Error number "ER","LN". Please write to the author.""Press Return to continue.";"KB",ĺ"No device connected.":230LER4ER10ĺ"Can't write to disk.":230ER5ER254ĺ"Corrupted data base file.":230ER6EP4ĺ"Put FrEdBase START disk into drive 1.":230ER6ĺ"File can't be found.":230ER8ĺ"Can't read disk. Cse file.,Create/Edit a FrEdBase record layout.,Import data from a TXT type file.,Use the FrEdBase Utilities.,Finish for now.ER(222):LN(218)(219)256:ER255ĦD$"CLOSE":ER5EP21663288:ER149ĺD$"PR#3":10888:92:ER2ER3HT%(I):C$(I)::RAI0R1:J0C:R$(I,J):::D$"CLOSE"t"DEL",R$(0),VP%(0),HT%(0),C$(0):D$"FRE":14288:"Your TXT file was too large. Press Return to save the part loaded.":"KB",A$:A$E$196168~Work with an existing FrEdBaE$(I$"Y"I$"y")2228 /R0EMR3R9:AMAMEMa 0C$(I)"":HT%(I)0:OC%(I)1:54:222} 4J421:J:T,0:868: 6J017:J4:T,HT%(J):C$(J);:868:: :1:T,60:868:T,76(X$):"Esc:"X$:' <A(40)(41)256:B(T):B2(B2)Ĺ49237,0:X$((B2A)128):49236,0:64T >49236,0:X$(((B1)2A)128):49235,0 @CU$LA$;:A140:"GET",A$:A$""Ă:68 BX$LA$;: DX$LA$;:A140:"GET",A$:A$""Ă:64 F JZ(T):I$;:T,Z:CU$"_"! L60:Y(T)(Z1):A$E$A$C$A$%C$(I)I$:(A$U$A$E$)I0214AA$E$A$U$II1:224o((OA)127(CA)127)(A$"M"A$"m")16((OA)127(CA)127)(A$"D"A$"d")44((OA)127(CA)127)A$C$252(OA)127(CA)127228I17II1:224178:228ategory":58:I0X$"Enter Heading":58WBC1:I4:T,HT%(I):I$C$(I):I$""BC0q74:R0BCI$""234EMR3R9:AMEM1000İ176:178:"Adding category will fill memory.":"Press Return to continue.";:"KB":I4:T,0:868:222AMAMEM868:I$H$:IL78:74:H$I$:A$E$170;A$U$İ178:214a3:T,0:868:T,(80(H$))2:H$176:"Type category name, use Arrows, Return, Apple-M(ove), Apple-D(elete),":"then press Apple-Return.";IL40:HT%(I)37IL76HT%(I)*X$"Prev. C data may be changed when editing a record layout.":"Press Return to continue.";:"KB"D$"FRE":AM((111)(112)256)((109)(110)256)8000EP2:I0:162:54X$"Change File":58:176:"Type your Heading, then press Return."&3:T,0:,H$:C:I0C1:VP%:VP%VP%4::HT%(VP%):"INPUT",C$(VP%):OC%(VP%)I:nR:R0āI017:OC%(I)1::208176:"Loading your data......."R$(R,C)I0R1:J0C1:"INPUT",R$(I,J)::D$"CLOSE "YR0İ176::"Warning:";::" YourBase Record Layout":128:A$E$182f162:D$"VERIFY"F$:176:"Loading your record layout......."D$"OPEN"F$:D$"READ"F$"INPUT",A$:A$"FrEdBase"ĺD$"CLOSE":178:176:"Not a FrEdBase file!":"Press Return to continue.";:"KB":I"INPUT"212 !23:T,0:958:5"ES",200,255:pEP3:176:"One moment please.....":D$"-/FB/FB/FB.ME"C$(17),HT%(17),VP%(17),OC%(17):I017:OC%(I)1::AM1000%EP1:PH$"RECORD LAYOUT":162:X$"File Menu":58:11:22)"Create/Edit a FrEdD$"PREFIX"DS$:@D$"FRE"::"File:";:AM1000ĺ"(Full)";mF$;:T,(80(PH$))2:PH$:L$:22:L$:X$"Record Layout":58:176:178:"Changes to layout will be lost. Continue changing file? (Y/N):N"LA$;:I$"":IL1:110:A$E$(I$"y"I$"Y")(I$,16)(I$,30,16)(I$,66,7):I$:JJ1PJ15J0:"KB",A$:A$E$ĺ:148Y140D$"CLOSE":" (Press RETURN)";:"KB":::128I$""İ178:128F$I$:(F$,1)"/"ıDS$"":156:DS$""DS$",S"((48737))",D"((48738))(I$,5,1)","DS$DS$(I$,5,3)q156::D$"PREFIX":" ";A$:A$::" Name Modified Time Length":D$"OPEN"A$",TDIR":D$"READ"A$:J0I$:(I$,11)"BLOCKS FREE"I$" "(I$,13,5)" Blocks Remain"::I$;:148+(I$,18,3)"TXT"I$zA$" "A$"~"(I$)IL1127|I$I$A$:A$;:112176:"Filename (?=Catalog):"F$:"Type your filename, then press Return.";:23:T,21:IL57:I$"":110:A$E$ıI$"="F$""154(I$,1)"?"150 DS$"":(I$,2,1)","DS$(I$,2,3):DE$A$LA$)(I$)1I$"":LA$;:A$DE$Č868rt(A$DE$A$LA$)(I$)1I$(I$,(I$)1):LA$;:A$DE$Č868vA$R$Z(40)(41)256:B(T):B2(B2)Ĺ49237,0:A$((B2Z)128):49236,0:122xA$R$Ĺ49236,0:A$(((B1)2Z)128):49235,0 $LE$I$(I$,Y1):868:YY1:104-^76B`YIL1İ178:76_bY1(I$)I$I$A$:104vdY1I$A$I$:104fI$(I$,Y1)A$(I$,Y,IL)h(I$)ILI$(I$,IL):178jT,Z:I$" ";:T,YZ:76nCU$""p60:A$E$A$C$Č868:0r(A$U$A$DA$(OA)127(CA)127ı9 NA$" "A$"~"96L PA$DE$Y176s RA$DE$Y2I$(I$,2,IL):Y0:104 TA$DE$I$(I$,Y2)(I$,Y,IL):YY2:104 VA$LA$Y1YY2:104 XA$R$Y(I$)1104 ZA$LE$Y1I$"":868:Y0:104%\AJ017:C$(J)""2569J4:T,HT%(J):C$(J)":"f:C1:J017:C$(J)""CC1:VP%(C)J{:C0İ178:220X$"Record Layout":58:128:A$E$İ162:54:220I$"="265262LFE0:D$"VERIFY"F$:FE1:176:"Replace existing file on disk? (Y/N):Y"LA$;:I$"":IL1:110:A$E$I$"N"I$"n"İ162:54:220V294nFE0(222)6294 162:176:"Saving your record layout....." D$"OPEN"F$:D$"WRITE"F$:"FrEdBase":H$:C1:J0C:VP%(J)4:HT%(VP%(J)):C$(VP%(J))::R:R$;:A140:"GET",A$:A$""Ă:421 (X$LA$;:\ *X$LA$;:A140:"GET",A$:A$""Ă:38b , 0Z(T):I$;:T,Z:CU$"_" 234:Y(T)(Z1):A$E$A$C$A$U$A$DA$(49249)127(49250)127ı 4A$" "A$"~"70 6A$DE$Y150 8A$DE$} :"File:";:F0ĺ"(Full)";M F$;:T,(80(PH$))2:PH$:L$:22:L$:x 1:T,60:868:T,76(X$):"Esc:"X$: "A(40)(41)256:B(T):B2(B2)Ĺ49237,0:X$((B2A)128):49236,0:38 $49236,0:X$(((B1)2A)128):49235,0# &CU$LA' (C)opyright Greg Butler, 1987 5 564:550sI1C:VP%(I):T,HT%(I)(C$(I))1:R$(P1,I);:868::24:3:T,(80(H$))2:H$I1C:VP%(I):T,HT%(I):C$(I)":":: D$"FRE":F((((111)(112)256)((109)(110)256))1024)2 e__l^" ަư8^_氠^LQ^P^i^_^Ѹ "^eP^_eQ_ ȱ^8e^^_ , l^ưȭ氩L8ˍ`-%hKBKEYBOARD.WAIT.T,H, h`, h) $ l݅ ` j݅% LcqGETKEYBOARD.TB , ,0 ,) $ l݅ ` j݅% Lc^_:ʽe^^ Return to continue.";1"B"KB",A$:A$C$322E"DEP172,212,182?INPUTSTRING.INPUT.TB  " ީ; = l݅ , L,ESSOUND.EFF.TB FQP,0EQ,0`GSWAPSWAP.TB ߅HH hE0hE0$0$0Hh`Lvp disk drive.":320?!6ER9ER17ĺ"This disk is full.":320f!8ER13ĺ"Wrong type of file.":320!:ER16ĺ"Check the filename you used.":320!<ER77EP1:"Memory full.":320!>"Error number "ER","LN". Please write to the author.""@"PressPR#3":324B ,176:178:ER2ER3ĺ"No device connected.":320o .ER4ER10ĺ"Can't write to disk.":320 0ER5ER254ĺ"Corrupted data base file.":320 2ER6EP3ĺ"Put FrEdBase START disk into drive 1.":320!4ER8ĺ"Can't read disk. Check(10):U$(11)OA49249:CA49250:T1403:L$"----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8" 294"D$"PR#3":186&ER(222):LN(218)(219)256:ER255Ħ(D$"CLOSE":3288:ER6EP1211 *ER149ĺD$",Z) :D$"CLOSE":176:"Continue working on this record layout? (Y/N):N"LA$;:I$"":IL1:110:A$E$I$"Y"I$"y"İ162:54:220182(175)256(176)46D$(4):E$(27):C$(13):Q$(34):DE$(127):LA$(8):R$(21):LE$(25):DA$0278[ D$"READ"F$:176:"Saving your data, this may take a minute.....":D$"WRITE"F$J0R1:K0C:ZOC%(VP%(K)):Z0ĺ:276(R$(J,Z))78((C$(VP%(K)))HT%(VP%(K)))ĺR$(J,Z):276R$(J,Z)(R$(J,Z),78((C$(VP%(K)))HT%(VP%(K)))):R$(JY2I$(I$,2,IL):Y0:78I :A$DE$I$(I$,Y2)(I$,Y,IL):YY2:78c <A$LA$Y1YY2:78{ >A$R$Y(I$)178 @A$LE$Y1I$"":868:Y0:78 BA$LE$I$(I$,Y1):868:YY1:78 D50 FYIL1İ176:50 HY1(I$)I$I$A$:78 JY1I$A$I$:786 LI$(I$,Y1)A$(I$,Y,IL)U N(I$)ILI$(I$,IL):176q PT,Z:I$" ";:T,YZ:50} TCU$"" V34:A$E$A$C$Č868: X(A$DE$A$LA$)(I$)1I$"":LA$;:A$DE$Č868 Z(A$DE$A$LA$)(I$)1I$(I$,(I$)1):L:266(23:T,M%(I):" "M$(I)" ":VPH$"":I286,298,428,490,514,526,532,54418:X$T6$:32:F0İ176:172:"Memory is full. "T4$:"KB":256 A1:"ADD",R$(A,R):RR1:PR"136:140:A$E$2564$X$T6$:32:172:"Add another record? (Y18:X$T5$:323172:"Please Select:":T1$T2$;NI18:280::I1:278f "KB",A$:A$C$282 A$"0"A$"9"İ280:I(A$)A$U$A$LA$İ280:II1A$DA$A$R$A$" "İ280:II1I8I1I1I823:T,M%(I)::" "M$(I)" ":ta......."R$(R,C)BI0R1:J1C:"INPUT",R$(I,J)::QD$"CLOSE"I1C:RV%(VP%(I)3)I:RH%(VP%(I)3)HT%(I)::TW0:NC4:SC0:C4NCCI1NC:LW%(I)18:LP%(I)I:TWTW19:564:EP2:R0286568FL0:PH$"MAIN MENU":...""D$"OPEN"F$:D$"READ"F$}"INPUT",A$:A$"FrEdBase"ĺD$"CLOSE":176:172:"Not a FrEdBase file!":T4$;:"KB":"INPUT",H$:C:C$(C),VP%(C),HT%(C)I1C:VP%(I):HT%(I):"INPUT",C$(I)::R:R0ĆR$(1,C):252 172:"Loading your da7$:32:4:958:22:L$:23:T4$:180:"KB":4:958:22:L$:20:EP1:PH$"LOAD FILE":24:X$"File Menu":32:11:23)"Work With an Existing FrEdBase File":102:A$E$A$"-/FB/FB/FB.ME":52824:D$"VERIFY"F$:172:"Loading your record layout...E$ı@172:D$"PR#1":"DUMP",1,24,1,79:D$"PR#3":18:136:VX$T7$:32:140:X$T7$:32:172:"Do you want to PERMANENTLY remove this record? (Y/N):N"LA$;:I$"":IL1:84:I$"Y"I$"y"ıA1:"KILL",R$(A,P1):RR1:PFPF1:PD1:DX$TI0I5I5I0@23:T,FM%(I)::" "FM$(I)" ";::186c23:T,FM%(I):" "FM$(I)" ";:sPD0:I0ıI1FL1:172:"Press Space to pause.":I,214,220,224,230:PDı182X$T7$:32:172:"Check the printer"T2$:"KB",A$:A$22:8X$T6$:32:14:"GET",A$:FL(A$""A$E$)ıtFL0:172:"What now?:":T1$T2$;:I05:202::I0:200"KB",A$:A$E$ıA$DA$A$" "A$R$İ202:II1A$LA$A$U$İ202:II1A$"0"A$"7"İ202:I(A$)1A$C$204 "KB",A$:A$E$A$C$ı<A$" "A$DA$A$R$İ168:II1YA$U$A$LA$İ168:II1fICI1sI1ICVP%(I):T,HT%(I)::C$(I)::156VP%(I):T,HT%(I):C$(I):23:T,0:958:"ES",200,255:6:T,0:"PRINT",SP$SS$,44,en finished.":I1CVP%(I):T,HT%(I)(C$(I))1:I$R$(P1,I):IL77(HT%(I)(C$(I))):48:R$(P1,I)I$:I1A$U$II1:142A$E$(A$C$(49249)127)(A$C$(49250)127)ıA$C$A$DA$150176:142:172:T1$T2$:166TURN)";:"KB":::102-|I$""İ176:102F~F$I$:(F$,1)"/"ıXDS$"":130:DS$""DS$",S"((48737))",D"((48738))D$"PREFIX"DS$:1:T,30:"RECORD: "P" of "R" ":172:"Type your information"T2$" Press Apple-Return whD$"OPEN"A$",TDIR":D$"READ"A$:J0trI$:(I$,11)"BLOCKS FREE"I$" "(I$,13,5)" Blocks Remain"::I$;:122t(I$,18,3)"TXT"I$(I$,16)(I$,30,16)(I$,66,7):I$:JJ1vJ15J0:"KB",A$:A$E$ĺ:122x114zD$"CLOSE":" (Press REour filename"T2$;:23:T,21:IL57:I$"":84:A$E$ıMhI$"="F$""128cj(I$,1)"?"124lDS$"":(I$,2,1)","DS$(I$,2,3):(I$,5,1)","DS$DS$(I$,5,3)n130::D$"PREFIX":" ";A$:A$::" Name Modified Time Length":$pA$;:A$DE$Č868l \A$R$Z(40)(41)256:B(T):B2(B2)Ĺ49237,0:A$((B2Z)128):49236,0:96 ^A$R$Ĺ49236,0:A$(((B1)2Z)128):49235,0 `A$" "A$"~"(I$)IL86 bI$I$A$:A$;:866f172:"Filename (?=Catalog):"F$:"Type y/N):Y"LA$;:I$"":IL1:84:A$E$I$"N"I$"n"256=&286*PH$"SEARCH RECORDS":SP1:AS0:OS0:SS$"":PF0:SP$"This search will display all the records where",18:X$T6$:32:3:T,0:" Choose category to search...";:868:ICS(SP):154:A$E$256E.CS(SP)I:24:X$"Re-enter Search":32:23:T1$" to select"T2$k0SS$SS$" "Q$C$(CS(SP))Q$:1802I09:324::IS(SP):3224"KB",A$:A$E$2986A$"0"A$":"İ324:I(A$)18A$LA$A$U$İ324:II1:A$DA$A$" "A$R$İ324:I:T9$" please.....":D$A$N*PH$"SAVE FILE":18:X$T6$:32:102:A$E$256^*I$"="538h*536*FE0:D$"VERIFY"F$:FE1:172:T0$LA$;:I$"":IL1:84:A$E$I$"N"I$"n"256*568*FE0(222)6568Y+24:23:"Saving your record layo out of "(R):180:23:T4$:"KB":256)P1:SP$"You are browsing all the records in the file "Q$F$Q$".":SS$"":18:X$T6$:32)136:14:182:A$E$256)PDP1R516)PP1:P1R516) 256)A$"CHAIN/FB/FB/FB.R,@700"*EP3:172:FI$I$:A$E$256*(FI$""İ176:494O(SS$SS$Q$FI$Q$".":PH$"":18(A1:136:"SRCH",R$(P1,A)R$(P1,C),FI$:A0506(PFPF1:182:A$E$256(PDP1R500((49152)155256(PP1:P1R500))24:SP$(PF)" record(s) foundA$E$256#'I$"N"I$"n"428p'172:T9$", sorting your data.....":"SORT",R$(0,0)R$(R1,0)S%(0):256y'256'PH$"FIND RECORDS":P1:PF0:SP$"Find all the records":SS$" that contain "'18:X$T6$:32(172:SP$SS$":";:IL40:I$FI$:48:462'&J17:T,72:" "OM$(J)" ":4&J0478&SS$SS$" and then arrange those records with identical entries so that the contents of":SP2:430&S%(0)SP:SS$SS$".":180 'X$T6$:32:172:"Is this sort correct? (Y/N):Y"LA$;:I$"":IL1:84:" order ":5%S%(SP)A(SP):I2S%(SP)S%(SP)128S%I2I4S%(SP)S%(SP)1a%SP2478w%J1:472:J0:470%"KB",A$:A$E$428%A$LA$A$U$A$DA$A$" "A$R$İ472:JJ1%A$C$474%J0J1J0&J17:T,72::" "OM$(J)" ":$E$428'$A$LA$A$U$İ452:II1P$A$DA$A$" "A$R$İ452:II1:446$A$C$A(SP2)I:SS$SS$" are in "AM$(I)" order":180:454$I1I4$I4I1$I14:T,48::" are in "AM$(I)" order "::438 %I14:T,48:" are in "AM$(I) the contents of"m#18:X$T6$:32:3:T,0:" Choose category to sort...";:868:IA(SP):154:A$E$256#A(SP)I:24:X$"Re-enter Sort":32:23:T1$" to select"T2$#SS$SS$" "Q$C$(A(SP))Q$:180#I14:452::IA(SP2):450 $"KB",A$:A424"SP1ASSP2:372+"PFPF1?"182:A$E$256Q"PDP1R370Z"410"24:SP$(PF)" record(s) found out of "(R)" where":180:23:T4$:"KB":256#PH$"SORT RECORDS":SP1::SS$"":SP$"This sort will arrange the records so that",R$((J),CN)R$((J),CN),S$,,,AM!CN0((S1SLRL)S3S5S6S7)414i!CN0(S2S4S8)414r!406!S1EVSV414!S2EVSV414!S5EVSV414!S6EVSV414!SP1OSSP2:372!(49152)155256!JJ1:JR370"rSP1:PJ1:136e tCNCS(SP):SS(SP)1:S$S$(SP):SL(S$):RL(R$(J,CN)):SV(S$):EV(R$(J,CN))r vS9382 xS9R$(J,CN)""414 zS10R$(J,CN)""414 |406 ~SV0(S3S4)398 A1:S3S4A0 S5A4 S6A2 !"SRCH`J15:T,73:OM$(J):'bJ0360RdSS$SS$" "OM$(J):SP2:J1AS1:300`fOS1:300uhSS$SS$".":180jX$T6$:32:172:"Is this search correct? (Y/N):Y"LA$;:I$"":IL1:84:A$E$256lPH$"":I$"N"I$"n"298p18:X$T6$:32:J0 SP)""İ176:3284LSS$SS$" "Q$S$(SP)Q$:180BNSP2360]PJ02:352::J0:350uR"KB",A$:A$E$298TA$LA$A$U$İ352:JJ1VA$DA$A$" "A$R$İ352:JJ1XA$C$354ZJ0J2\J2J0^J15:T,73::OM$(J)::338I15<A$C$S(SP)I:SS$SS$" "SM$(I):180:326B>I0I9O@I9I0oBI8:T,48::SM$(I)::308DI8:T,48:SM$(I):F(SP1S(1)7)(SP2S(2)7)334H172:"Search that matches :";:I$S$(SP):IL40:48:S$(SP)I$:A$E$298JS$(ut.....":D$"OPEN"F$:D$"WRITE"F$:"FrEdBase":H$:C:I1C:VP%(I):HT%(I):C$(I)::R+D$"READ"F$:172:"Saving your data.....":D$"WRITE"F$:I0R1:J1C:R$(I,J):::D$"CLOSE":256., X$T6$:32:172:"Do you want to finish using "Q$F$Q$"? (Y/N):N"LA$;:I$"":IL1:84:I$"Y"I$"y"256J,"A$"-/FB/FB/FB.ME":528,&D$(4):E$(27):C$(13):DE$(127):LA$(8):R$(21):LE$(25):DA$(10):U$(11):Q$(34)-(T1$"Use Arrows or Spacebar":T2$", then press Return.":T4$"Press Return to conti i`iɠi@ h(ħ%% hi#Hhh L"SORTARRAY.SORT.TB^ ^i!ȥ_ixA@ ./CBHH$1H+H1)L-+ .H.h$1+`,,,0 !B``LvL HHݰܥ8܅{ $${  =ۤۄ$ ݅`DUMPSCREEN.DUMP.TB H K #" L## L! L!! !} !!"#m"H [$(H8 JU(TBȄ { 夡qrڅۥ!  ,! Lʆ , L ʆ ;L $0${e0D$0"{&$8{$8$ $0 LȘ$0e ,m8TmnUn  ,Љ8눱R8mRSnS8RȱS`pKBKEYBOARD.WAIT.T,H, h`, h) $ l݅ ` j݅% LcdPRINTTEXT.OUTPUT.TPQ $0$0,,Tȱȱȱ٥٥ g RQ P 5Lʆ g R P٥QPۥQܩ`cfiHbehk܌gjڌadLlKmnPQ녛i 셜i `BCm>n?mT=?mmTmnmUn VWVПЙWVi눱im8RRnSSmRȱmS`KILLARR.RW.CL.KL.TB , UmRnS 륜쥁Q $0$0,,Tȱȱȱ٥٥ g RQ P 5Lʆ g R P٥QٍVڍWPۥQܩمک`cfiHbehk܌gjadLlmnPQ녛i 셜i `m?mZ-A,Change,38,1-10,Remove,47,10-1,Information,56,N3b-1,1,1,-1,5,66,18,1,1?INPUTSTRING.INPUT.TB  " ީ; = l݅ , L,ESSOUND.EFF.TB FQP,0EQ,0`ADDARR.RW.CL.AD.TB , UmRnS 륜쥁P2YR2ZAdd,16,Search,22,Sort,31,Find,38,Browse,45,Report,54,Save,63,Finish,702^equals,does not equal,contains,does not contain,is less than,is greater than,begins with,does not begin with,is blank,is not blank33`Continue,12,,Flip,23,A-Z,Print,30,file.":596=1LER16ĺ"Check the filename you used.":596h1NER69ĺ"Too large number found.":5961PER77EP1ĺ"Out of memory.":5961R"Error number "ER","A". Please write to the author."1TT4$;1V"KB",X$:X$C$5982XEP601,256,528"Corrupted data base file.":596_0BER6EP3ĺ"Put FrEdBase START disk into drive 1.":5960DER6ĺ"File can't be found.":5960FER8ĺ"Can't read disk. Check disk drive.":5960HER9ER17ĺ"This disk is full.":596 1JER13ĺ"Wrong type of r"/0568/22343/4(175)256(176)46:_/8ER(222):A(218)(219)256:ER255Ħ/:D$"CLOSE":3288:ER149ĺD$"PR#3":600/<172:176:ER2ER3ĺ"No device connected.":596/>ER4ER10ĺ"Can't write to disk.":596"0@ER5ER254ĺI12:CS(I)1:A(I)1:A(I2)1::T1403:R1:L$"--------------------------------------------------------------------------------"/.I18:M$(I),M%(I)::I09:SM$(I)::I05:FM$(I),FM%(I),AM$(I)::I08:PV%(I)::OM$(0)"Stop":OM$(1)"and":OM$(2)"onue.":T5$"None":T6$"Main Menu":T7$"Selected Record":T8$"Report Menu":T9$"One moment":T0$"Replace existing file on disk? (Y/N):Y"-*M$(8),M%(8),CS(2),OM$(2),FM$(5),FM%(5),AM$(5),S(2),S$(2),A(4),S%(2),RV%(18),RH%(18),LW%(8),LP%(8),PV%(8),TC(8)., 1-ȱ.ȱ/ g RDE$1 Ю ީ КД g RGF/ Є.GEFD$1 ީ I0 &Ŕ'ĕлгȱЮȱ+-&Пȱ&8+hh8FD:GE;:i:;i;F;f:;`8F:E?>@?A@e:BAe;C \.E*0* 1A;!@:8@:@A;AEƥ@D>i>?i?8<>=?L, e&.'i/.)*ȱ.IiՅJ)+ (.Q.0.уȱ.у```0./ ꥃL8. K"ȱD$"PREFIX":" ";A$:A$::" Name Modified Time Length":njD$"OPEN"A$",TDIR":D$"READ"A$:J0lI$:(I$,11)"BLOCKS FREE"I$" "(I$,13,5)" Blocks Remain"::I$;:116n(I$,18,3)"TXT"I$(I$,16)(I$,30,16)(I$,66,7):I$:JJ1IL80 \I$I$A$:A$;:80 `150:"Filename (?=Catalog):"FO$:"Type your filename"T2$;:23:T,21:IL57:I$"":78:A$E$ı bI$"="FO$""122 d(I$,1)"?"118 fDS$"":(I$,2,1)","DS$(I$,2,3):(I$,5,1)","DS$DS$(I$,5,3)Gh124::"":LA$;:A$DE$Č868[ T(A$DE$A$LA$)(I$)1I$(I$,(I$)1):LA$;:A$DE$Č868 VA$R$Z(40)(41)256:B(T):B2(B2)Ĺ49237,0:A$((B2Z)128):49236,0:90 XA$R$Ĺ49236,0:A$(((B1)2Z)128):49235,0 ZA$" "A$"~"(I$)868:YY1:72 >44- @YIL1İ154:44I BY1(I$)I$I$A$:72_ DY1I$A$I$:72~ FI$(I$,Y1)A$(I$,Y,IL) H(I$)ILI$(I$,IL):154 JT,Z:I$" ";:T,YZ:44 NCU$"" P28:A$E$A$C$Č868: R(A$DE$A$LA$)(I$)1I$7(49250)127ı* .A$" "A$"~"64= 0A$DE$Y144c 2A$DE$Y2I$(I$,2,IL):Y0:72 4A$DE$I$(I$,Y2)(I$,Y,IL):YY2:72 6A$LA$Y1YY2:72 8A$R$Y(I$)172 :A$LE$Y1I$"":868:Y0:72 <A$LE$I$(I$,Y1):28):49236,0:32? 49236,0:X$(((B1)2A)128):49235,0k CU$LA$;:A140:"GET",A$:A$""Ă:36y "X$LA$;: $X$LA$;:A140:"GET",A$:A$""Ă:32 & *Z(T):I$;:T,Z:CU$"_" ,28:Y(T)(Z1):A$E$A$C$A$U$A$DA$(49249)12' (C)opyright Greg Butler, 1987 V20:I1C:VP%(I):T,HT%(I):C$(I)":"::D$"FRE"::"File:"F$;:T,(80(PH$))2:PH$:L$:22:L$:1:T,55:868:T,76(X$):"Esc:"X$: A(40)(41)256:B(T):B2(B2)Ĺ49237,0:X$((B2A)1 ȱ^8e^^_ , l^ưȭ氩L8ˍ`~A )I C?9Pн0%<e<=e=ݤ h cڤ hhhLc^_:ʽe^^e__l^" ަư8^_氠^LQ^P^i^_^Ѹ "^eP^_eQ_Ȁhh { , )$pL$0hhHHH { 娈^`ɀ)ߑ^  ,H j݅H ! , ʆ LLkeZ65ZNC64İ154:314u@SCZ64:386DRR356FPH$"RECORD LAYOUT":20:X$T5$:26:J1āK118:RV%(K)0:RH%(K)0::330H350JK1:L0:344L"KB",A$:A$C$RV%(0JJ1:290B2T4$:"KB",A$:RRA$E$RV%(K)0:RH%(K)0:290m4RRA$E$TWTWLW%(J)1:NCNC1:290y6RR3868X$T8$:26:150:"Do a statistical analysis on a category? (Y/N):N"LA$;:I$"":IL1:78:I$"Y"I$"y"386/:150:"Enter letter 90$RRİ324&RRİ356b(X$"Redo Last Cat.":26:150:(RRJ18)(RR(J8TW158))306*"Choose another category? (Y/N):Y"LA$;:I$"":IL1:78:RRA$E$RV%(K)0:RH%(K)0:290,RRA$E$TWTWLW%(J)1:NCNC1:290.I$"N"I$"n"310RRJNC:376iJ1:150:"Use this layout for your report? (Y/N):Y"LA$;:I$"":IL1:78:A$E$162I$"N"I$"n"386"SC0:PH$"CHOOSE CATEGORY":14:X$T5$:26:3:T,0:" Choose category to include in the report...";:868:I1:132:A$E$2"KB",A$:A$E$162%A$C$280^A$" "A$LA$A$R$A$DA$A$U$RRRR1:RR1RR0RRĢ23:T,24:" Record ";:T,14::" List "::268RRĢ23:T,14:" List ";:T,24::" Record "::268PH$"REPORT LAYOUT":20:X$T8$:26:RRİ350OS1:198%SS$SS$".":158150:"Is this record selection correct? (Y/N):Y"LA$;:I$"":IL1:78:A$E$I$"N"I$"n"196162 PH$"FORMAT OPTIONS":20:X$T8$:26:150:"Do you want a List or Record type printout?":T1$T2$;:274 ::J0:248%"KB",A$:A$E$196BA$LA$A$U$İ250:JJ1fA$DA$A$" "A$R$İ250:JJ1uA$C$252J0J2J2J0J15:T,73::OM$(J)::236J15:T,73:OM$(J):J0258SS$SS$" "OM$(J):SP2:J1AS1:198I8:T,48::SM$(I)::2068I8:T,48:SM$(I):](SP1S(1)7)(SP2S(2)7)232150:"Search that matches :";:I$S$(SP):IL40:42:S$(SP)I$:A$E$196S$(SP)""İ154:226SS$SS$" "Q$S$(SP)Q$:158SP2258 J02:250" "Q$C$(CS(SP))Q$:158:I09:222::IS(SP):220R"KB",A$:A$E$196tA$"0"A$":"İ222:I(A$)1A$LA$A$U$İ222:II1A$DA$A$" "A$R$İ222:II1A$C$S(SP)I:SS$SS$" "SM$(I):158:224I0I9I9I0:PF0:SP$"This report will print all the records where"14:X$T8$:26:3:T,0:" Choose category to search...";:868:ICS(SP):132:A$E$AR1:SS$"All records.":162CS(SP)I:20:X$"Re-enter Selection":26:23:T1$" to select"T2$SS$SS$ "RM$(I)" ":5PH$"":I192,266,470,656,660,682PH$"RECORD SELECTION":20:X$T8$:26:150:"Will your report contain all records? (Y/N):N"LA$;:I$"":IL1:78:A$E$162AR0:I$"Y"I$"y"AR1:SS$"All records.":162:SP1:AS0:OS0:SS$"""İ186:I(A$)iA$E$į"DEL",RM$(0),RM%(0),PM%(0),PM$(0),T(0),A%(0):A$"CHAIN/FB/FB/FB.M,@256":678A$U$A$LA$İ186:II1A$DA$A$R$A$" "İ186:II1I6I1I1I623:T,RM%(I)::" "RM$(I)" "::17023:T,RM%(I):""ES",200,255:96:T,0:"PRINT",SP$SS$,44,22:XEP1:(175)256(176)46PH$"REPORT MENU":20:X$T6$:26:RRİ350RRJNC:376150:"Please Select:":T1$T2$;I16:186::I1:184"KB",A$:A$C$188A$"0"A$"7K))::^L118:L3:T,RH%(L):RV%(L)0ĺC$(RV%(L));B`:dPH$"LIST LAYOUT":20:X$T5$:26:J1TW0:K18:LW%(K)0:LP%(K)0::360fTC(J)0:376hLP%(J)Ij150:"Enter column width for "Q$C$(I)Q$":";:I$"":IL2:78lNCJ nLW%(J)(I$):LW%(J)2İ154:362< pTWLW%(J)1159İ154:362T rTWTWLW%(J)1:376 t150:"Total this category? (Y/N):N"LA$;:I$"":IL1:78:I$"Y"I$"y"TC(J)0: vTC(J)1:376: xNC1ı5!zK1NC:K24:T,0:"Column "(K64)" contains "Q$C(I)A$""@.D(A$)LW%(I)A$(A$" ",LW%(I)):580Z.FPR$PR$A$" "::PR$.HSC0(HV0LV0)ĺQ$C$(LP%(SC))Q$" contains no numeric data.":586%/ISC0ĺ:"Statistical analysis on "Q$C$(LP%(SC))Q$":":"Low value:"LV" High value:"HV" Rang2SP1ASSP2:5204-4PFPF1:(49152)155588V-6596:PD1(49152)160į"KB"i-8PD2ĺD$"FRE"r-:558~-<RR584->PR$"":I1NC:A$" ":TC(I)A$"-"-@L1LW%(I):PR$PR$A$::PR$PR$" "::PR$ .BPR$"":I1NC:A$((T(I)),LW%(I)):TCN)R$((J),CN),S$,,,AD,CN0((S1SLRL)S3S5S6S7)562`,CN0(S2S4S8)562i, 554|,"S1EVSV562,$S2EVSV562,&S5EVSV562,(S6EVSV562,*SP1OSSP2:520,,(49152)155584,.JJ1:JR516,0572-$(SP)""S$(SP)" "\+CNCS(SP):SS(SP)1:SL(S$(SP)):S$S$(SP):SV(S$):EV(R$(J,CN))i+ S9530+ S9R$(J,CN)""562+S10R$(J,CN)""562+554+SV0(S3S4)546+A1:S3S4A0+S5A4+S6A2,"SRCH",R$((J),)),LW%(I))-*(A$)LW%(I)A$A$" ":505B*PH$PH$A$" ":g*PD2ĺD$"OPEN"FO$:D$"WRITE"FO$*PD0ĺD$"PR#1":PV%(3)1ĺSC$;*J0:LC0:PF0:PN1:CC0:AV0:I1NC:T(I)0::PV%(4)0āI1PV%(4)::LCLC1:*648*AR1564+SP1:SE$162)PD2504/)RD0:96:A$E$162?)I$"="504I)502)FE0:D$"VERIFY"FO$:FE1:150:T0$LA$;:I$"":IL1:78:A$E$I$"N"I$"n"162)720)FE0(222)6720 *150:"Printing your Report......":PH$"":I1NC:A$(C$(LP%(I92:PDPD1(PD2PD0*(PD0PD2U(23:T,PM%(PD)::" "PM$(PD)" "::476y(23:T,PM%(PD):" "PM$(PD)" ":(PV%(1)1İ150:"Enter date for Report Header:";:I$DT$:IL20:42:DT$I$:A$E$162)PD0İ150:"Check Printer"T2$:"KB",A$:A$PRINT REPORT":20:X$T8$:26:RRİ350:'RRJNC:376}'150:"Print the Report to:":T1$T2$;:PD02:492::PD0:490'"KB",A$:A$E$162'A$"0"A$"4"İ492:PD(A$)1'A$C$494'A$" "A$DA$A$R$İ492:PDPD1 (A$LA$A$U$İ4)ĺ"Yes"E&PV%(3)1J3āL1(SC$):A((SC$,L,1)):442::868c&J3J7ĺPV%(J)" Lines "&J0PV%(0)1ĺ"Single"&J0PV%(0)1ĺ"Double"&JJ1:RRJ6450&RRJ9450&150:T1$T2$" Press Apple-Return to Continue.":''PH$"V%(4)5C%I5(PV%(5)6PV%(5)99PV%(5)PV%(4)22)PV%(5)66k%I6(PV%(6)2PV%(6)18)PV%(6)18y%448:394%A32Ğ:(A64);::%(A);:%J0%J24:T,31:PV%(J)1(J1J2J3J5)ĺ"No";:868 &PV%(J)1(J1J2J7J850)127)4243$442:SC$SC$(A):(SC$)25420L$X$"Layout":26:426k$PV%(3)1:SC$""PV%(3)1$I4I6PV%(I)PV%(I)1:440$150:"Enter new value:";:I$"":IL2:78:A$E$162$I$""440 %PV%(I)(I$):I4(PV%(4)0PV%(4)10)PRRI0I8 #RRI5I01#RRI0I5R#I24:T,1::PV$(I)::394l#I24:T,1:PV$(I):z#I3428#SC$"":X$"None":26:150:"Enter Special Codes:":"Press Apple-Return to finish.";:23:T,20$"KB",A:A13((49249)127(492(I);:J1(28(PV$(I))):".";::":":II1:RRI6388J"RRI9388\"448:I0:412t""KB",A$:A$E$266"A$C$((49249)127(49250)127)162"A$C$416"A$" "A$R$A$DA$İ414:II1"A$LA$A$U$İ414:II1"RRI8I0#C$(LP%(K))Q$", "LW%(K)" chars wide.";:TC(K)ĺ"(T)"!|:3:T,64:"Total width: "TW:SC0Ģ3:"Statistics on "Q$C$(LP%(SC))Q$!~4:K1NC:(K64);:L2LW%(K):"-";::"+";::!PH$"PRINT OPTIONS":20:X$"Design Layout":26:I0:"I24:" "PV$e:"HVLV" Average:"(AVCC100)100Y/JPV%(2)1ĺ:PF" Record(s) printed out of "R"."n/LPD2ĺD$"CLOSE"/NPD1Ģ24:T4$;:"KB"/PD$"PR#3":162/TLC0İ644/VRR620/ZPV%(8)1āI1(80(H$))2:" ";::H$:LCLC10\I1PV%(6):RV%(I)0ĺ:LCLC1:640:614+0^RH%(I)0610C0`L1RH%(I):" ";:a0bPV%(7)1ĺC$(RV%(I))":";0dR$(J,RV%(I)):LCLC1:6400fPV%(0)1ĺ:LCLC1:6400h:0lPR$"":I1NC:A$(R$(J,LP%(I)),LW%(I)):TC(I)T(I)T(I)(R$(J,LP%(I)))'1n(A$)LW%$0eݰܥ8܅{ $${  =ۤۄ$ ݅`DELARRAY.DELETE.TB , ,D$"OPEN"A$",TDIR":D$"READ"A$:J0 @I$:(I$,11)"BLOCKS FREE"I$" "(I$,13,5)" Blocks Remain"::I$;:74 BGS(I$,18,3)"BIN"I$(I$,16)(I$,30,16)(I$,66,7):I$:JJ1 DGS(I$,18,3)"TXT"I$(I$,16)(I$,30,16)(I$,66,"Filename (?=Catalog):"F$:T5$T2$;:23:T,21:IL57:I$"":34:A$E$ı] 6I$"="F$""80r 8(I$,1)"?"76 :DS$"":(I$,2,1)","DS$(I$,2,3):(I$,5,1)","DS$DS$(I$,5,3) <82::D$"PREFIX":" ";A$:A$::" Name Modified Time A$LA$)(I$)1I$(I$,(I$)1):LA$;:A$DE$Č868 *A$R$Z(40)(41)256:Y(T):Y2(Y2)Ĺ49237,0:A$((Y2Z)128):49236,0:46 ,A$R$Ĺ49236,0:A$(((Y1)2Z)128):49235,0 .A$" "A$"~"(I$)IL36 0I$I$A$:A$;:36G 490:/ 49236,0:X$(((Z1)2Y)128):49235,0[ CU$LA$;:Y140:"GET",A$:A$""Ă:28i X$LA$;: X$LA$;:Y140:"GET",A$:A$""Ă:24  "CU$"" $20:A$E$A$C$ı &(A$DE$A$LA$)(I$)1I$"":LA$;:A$DE$Č8686 ((A$DE$' (C)opyright Greg Butler, 1987 F (175)256(176)46:410D$"FRE"::"File:"F$;:T,(80(PH$))2:PH$:L$:22:L$:1:T,55:868:T,76(X$):"Esc:"X$: Y(40)(41)256:Z(T):Z2(Z2)Ĺ49237,0:X$((Z2Y)128):49236,0:24 cڤ hhhLc^_:ʽe^^e__l^" ަư8^_氠^LQ^P^i^_^Ѹ "^eP^_eQ_ ȱ^8e^^_ , l^ưȭ氩L8ˍ`D  ,H j݅H ! , ʆ LLke90:"Place DESTINATION disk in Slot:"DS", Drive:"DD:T4$;:"KB",A$:A$E$98@90:24:T5$T2$;:23:T,0:"Enter name for empty file :"F$;:T,27:I$"":IL15:34:A$E$98ace SOURCE disk in Slot:"SS", Drive:"SD:T4$;:"KB",A$:A$E$98\4D$"PREFIX,S"SS",D"SD6D$"VERIFY"F$:90:"Reading record layout....."8D$"OPEN"F$:D$"READ"F$:"INPUT",A$:A$"FrEdBase"ĺD$"CLOSE":94:90:"Not a FrEdBase file!":T4$;:"KB"Copy EMPTY data base layout to disk in Slot:"DS;LA$;:I$"":IL1:34:A$E$98e(I$""I$(DS)*DS(I$):DS1DS7İ94:294,23:T,45:", Drive:"DD;LA$;:I$"":IL1:34:A$E$98.I$""I$(DD)0DD(I$):DD1DD2İ94:300B290:"Pl$):DS1DS7İ94:274R23:T,22:", Drive:"DD;LA$;:I$"":IL1:34:A$E$98fI$""I$(DD)DD(I$):DD1DD2İ94:280204:98"PH$"COPY RECORD LAYOUT":14:X$T7$:18:52:A$E$98$SS(48737):SD(48738):14:X$T7$:18Q&90:03 RD1:PH$"COPY REPORT LAYOUT":T$"TXT":270V GS1:PH$"COPY GRAPH":T$"BIN"w14:X$T7$:18:52:A$E$98SS(48737):SD(48738):14:X$T7$:1890:"Copy to disk in Slot:"DS;LA$;:I$"":IL1:34:A$E$98I$""I$(DS)DS(I8735,96:48728:,ER(222):ER1925690:"Replace existing file on disk? (Y/N):N"LA$;:I$"":IL1:34:A$E$(I$"Y"I$"y")Č3288:238D$"UNLOCK"F$:D$"DELETE"F$:ER5Č3288:238424424PH$"COPY FILE":T$"TXT":27):X2(48826)+L(48859)(48860)256QD$"BSAVE"F$",T"T$",A"A",L"L",B"BCMD195:48820,7:48825,X1:48826,X2:242L(EA)BBL:21242448728,169:48729,CMD:48730,3248731,112:48732,190:48733,17648734,170:4D$"BLOAD"F$",T"T$",A"A",E"E1",B"Bv90:"Place DESTINATION disk in Slot:"DS", Drive:"DD:T4$;:"KB",A$:A$E$ı90:"Writing file "Q$F$Q$"....."D$"PREFIX,S"DS",D"DD:RDĺD$"PREFIX LAYOUTS"D$"CREATE"F$",T"T$CMD196:242:X1(48825:L0:X10:X20:CMD0#D$"FRE"OA(109)(110)256:E(111)(112)256Y25090:"Place SOURCE disk in Slot:"SS", Drive:"SD:T4$;:"KB",A$:A$E$ı90:"Reading file "Q$F$Q$"....."D$"PREFIX,S"SS",D"SD:RDĺD$"PREFIX LAYOUTS"%(I$,72):JJ1:J15J0:"KB",A$:A$E$ĺ:1829176pD$"CLOSE":" (Press RETURN)";:"KB",A$:A$E$98{NC98190D$"PREFIX LAYOUTS":NC1424NC0(222)7424NC098168SM264,266,268,290B0:A0:E0A$:W" Name Type Blocks Modified Created Length":~D$"OPEN"A$",TDIR":D$"READ"A$:J0I13:I$:I$:(I$,11)"BLOCKS FREE"I$" "(I$,13,5)" Blocks Remain "(I$,35,5)" Blocks Used"::I$;:1820$"LOCK FILE"0!n14:X$T7$:18:52:A$E$98l!p14:X$T7$:18:90:"Locking file.....":D$"LOCK"F$:98!tSM2RD1:PH$"UNLOCK LAYOUT"!vSM3GS1:PH$"UNLOCK GRAPH"!wSM1PH$"UNLOCK FILE"!x14:X$T7$:18:52:A$E$98."z14:X$T7$:18:90:"Unlocking file.....":D$"UNLOCK"F$:98Q"~SM2RD1:PH$"DELETE LAYOUT"s"SM3GS1:PH$"DELETE GRAPH""SM1PH$"DELETE FILE""14:X$T7$:18:52:A$E$98-#14:X$T7$:18:90:"PERMANENTLY delete "Q$F$Q$" from this disk? (Y/N):N"LA$;educational soft-"A0" ware and data, to screen and clean "n:" the donations, and to disseminate "D" copyable disks to educators at low"N" cost."X1000b:3:12::"ABOUT SOFTSWAP":l5:" This disk is copyrighted by CUE, "nformation, call".:" (415) 328-2248"81000[:3:12::"ABOUT SOFTSWAP":5:" SoftSwap is a service of CUE, Inc., "" and has been operating since 1978. ":" SoftSwap's mission is to solicit the"&" donation of useful statewide conferences held every"J" fall and spring, and receive "w" the CUE Newsletter six times a year."::" To join CUE, send $22 to:":" CUE, Inc."" P O Box 2087"" Menlo Park, CA 94026"::" For more iLAYOUTSuHUSTON!s'  ', l^ưȭ氩L8ˍ`+KEYBOARD.TB , ,0 ,) $ l݅ ` j݅% Lc^_:ʽe^^e__l^" ަư8^_氠^LQ^P^i^_^Ѹ "^eP^_eQ_ ȱ^8e^^_ Delete,57 Z)FrEdBase File,15,Report Layout,31,FrEdBase Graph,47,Record Layout,64pKBKEYBOARD.WAIT.T,H, h`, h) $ l݅ ` j݅% Lc,ESSOUND.EFF.TB FQP,0EQ,0`qGET:452.(ER13ĺ"Wrong type of file.":452^(ER16ĺ"Check the filename you used.":452("Error number "ER","Z". Please write to the author."(T4$;("KB",X$:X$C$454(EP96,96,406)Catalog,15,Copy,25,Rename,32,Lock,41,Unlock,48,Corrupted file.":452T'ER6EP3ĺ"Put FrEdBase START disk into drive 1.":452'ER6EP2ĺ"Disk can't be found.":452'ER6ĺ"File can't be found.":452'ER8ĺ"Can't read disk. Check disk drive.":452(ER9ER17ĺ"This disk is full."-------------":98@&ER(222):Z(218)(219)256:ER255Ħ`&ER7ĺD$"CREATE LAYOUTS":&D$"CLOSE":3288:ER149ĺD$"PR#3":456&90:94:ER2ER3ĺ"No device connected.":452&ER4ER10ĺ"Can't write to disk.":452'ER5ER254ĺ"(34):C$(13):D$(4):T1403%T1$"Use Arrows or Spacebar":T2$", then press Return.":T4$"Press Return to continue.":T5$"Type filename":T7$"Utilities Menu":T9$"One moment"&L$"-------------------------------------------------------------------"F$:3900$EP3:90:T9$" please.....":D$A$:$424$UM$(6),UM%(6),C$(18),VP%(18),HT%(18):I16:UM$(I),UM%(I)::I14:SM$(I),SM%(I)::US1:SM1:SS(48737):SD(48738):DSSS:DDSD %R$(21):LA$(8):DA$(10):U$(11):E$(27):DE$(127):Q$:I$"":IL1:34:A$E$(I$"Y"I$"y")98K#90:"Deleting file....."U#396k#D$"DELETE"F$:98u#424#(222)10424#90:"File is locked. Continue deleting file? (Y/N):N"LA$;:I$"":IL1:34:A$E$(I$"Y"I$"y")98 $D$"UNLOCK.v" Inc., and is NOT in the public "[" domain. It may be freely copied and"" given away, ";::"BUT NOT SOLD";::".":" SoftSwap is a non-profit service. "" all proceeds beyond costs are plowed" " back into the development of new "# " disks."R :" Mail order distribution of SoftSwap " " materials with any exchange of money" " is expressly prohibited." 1000 :3:12::"ABOUT SOFTSWAP": 5:" Do you have something to contribute?"#!U I T:" Send inquiries or disks to:"D!:" SoftSwap Chairperson"X!" CUE, Inc."o!" P O Box 2087"!" Menlo Park, CA 94026"! 1000!: !p 5!q FREDBASE! CREDITS! ABOUT FREDBASE! ABOUT CUE & SOFTSWAP" Q