2IMGCdrP@@@ 8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL L? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8RFRED9 ' @HELLOA..............WB.............. WC.............. W)DB.SENIOR m !D..............^W&PRODOS:9 ! ,BASIC.SYSTEM,(9 ! STARTUP@&SENIOR`&DB.DOCp)VN!INPUT!MACRO!A6000!X5!STRINGIN!$MENU!"U2 !"U3G !"U4NU5!U6!SNRFORMULAS#FID N!CHAIN!)49007,0:DISABLE DIVERSIDOS CTRL-Ik1010,18:1011,212:1012,113:DIVERT RESET TO ONERR STATEMENTq(0)6553640000ĺ(4)"BLOAD MACRO"(4)"BRUNINPUT"(4)"RUNMENU" *** CHAINING HELLO)*** 4/7/97?*** DOUG TRUEMANU((4);"RUN HELLO"  *** CHAINING HELLO)*** 4/7/97?*** DOUG TRUEMANU((4);"RUN HELLO"  *** CHAINING HELLO)*** 4/7/97?*** DOUG TRUEMANU((4);"RUN HELLO" (::2:1::868:(4)"BRUNINPUT"02 DB A DATABASE BY TOM HELLSTEN 475 L  6 AʈLG g !A)BC g )0 AB઱E0 + 8LS + LA + HHHH8 hLHhh`1 i`**HuhuHehe`Ș ʈ-+ȝ NOPQRSTUVWXYZ[\]C! $ " " &#M8nf $ ) L! " " &J, )7(P0  ( @p !"0 *%"0"" &/) )"" &ЭL!)0I0 (Щ ߍ )f 8'  )ɀ)4,- U JNT)  !N)Gi/ "4 "" " " iL X%!L!ΠΠҠ`  !"#$%&'()*"7"Y"/"ll"*# HQ$WON!-PB}OBiB ,m# m# J Qڨ)̰n]e мȱ ; ̀𩠙< iO P F V >Z SY ɘL` X _ [ V7 c L '0%O '8O JmO * ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ ͍B B(8`;YYZLYLYLY뿩 8!@8` MNЩUMܩ  L 5   8 0 8 `0 / x X$$%&%0`ŠӠЭԠŠҬîʎ1DžϠl&8f ZHH)hh8JhJJJJJ j&Hk&8H) 12 (j21 h!hH h %)Ђ12H)M0 h10200I20h2 |&`L($_l&j"L  <8# ȱ)ɀ  )t& ` (Xp< @t& )mt&t&.t&w& Mt&i  ``rȱȱȱȱ0]cȱeem(ȱ(ȱ((ȱ((ȱ( Y'( ' f'L&`L' 'L' Y' L& Y'L'8ei` ,$`ee` `( '( (` *( ' (`hh8`8`(݁(݉(`}(`e`H)hJJ?(0JJ)` (< ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <ꠙ,<ʆ>*=?BC8 é&'112`HB-9F 3"aɿ LLB Nϰ H  @h( L Lj  @`bLJCAB@=?<>=?<>CAB@?A` 1 L  <>` ڢF]PL8i m L   6< L  BLRAM' hLDLآ <B*IBGF08Lé'+8H <(h`@ڍL3،h@ihAiȱ@JJJJq@)@evȱ@Hȱ@Ah@@cee J) LxL LxJiB LxJ) GxNhHHHHL(  ްƠx@BEOD  ް(`( C)CJJJlBJ,~@~@}J@` ߩ%S @ ~`E hhhߺ0 h ߐ# ߐ ߐ ߐ 0 HϭߍLпllllhh8` QSTV'P0ōҍJJJJ ɺi) ɺiLD )?      `l@Hȱ@IױHXATȱH ɯȩ׍̞5H)/@a)_ .0 :A[8@`,뎞׮Б` L` @>_)I38Ypqם`K8`@Nȱ@O@ IiNȽבN)/ȩ/N`@[ WHJjjjhA <'KI؍0JHi 뎑`C8` @ 3N@) d莽 ⭺i`0 v0GF #0 W,0 ).H hȑNWȮّNW8`ٍّNθ0NN` G8`F@ 0 e LK8`F GI8`FHGH hGhF܌ բFܽܕF芝ܝ 밶FFGG H܅I mIIHHyHȘI Lܝ` @o@ w@Ю׍_)mי_ʈ@}ȱ@oȱ@y{|rZ[_)7_I0ܢܽ \'Q*ܩu 7pqFG (ST L܅I^ mQIH` } }Y0\F]G Q_HZF[G 밯ZF[G 밠S%܈P" X)Im'܅F(܅G)܍^*܍Q 4 䭐 $H %HFFHGHG 됨`R8`)` QH_` :R(5IHH__Ѝ_@`8 e ͙* ΙQ8`5IF܅G 됾`\܍]^ {8D`F` tlH)HFȍZHG[ $%܍&܍!ܢ8* J8` L ܝJ)I 'ܝF`R8i^F\G]`R5IH3H ( )ȱHθ`Κ8QeHI SBF0Y ٙWٙUFZSʈ {猺`8m0`,0H hi L荸Ƚθhٍ0GF8yאFG  `0 d01 E8`100 v$0ʩGF 밽 谸 谳`12)1`0`Ȏi 0U`)8`θ` )W G JA)H ܝʈh٭0٭)ܝ٭*ܝ٥F٥G٭'ܝ٭(ܝ`) 8ʈ` )0ٝ)i `8`R "ꍜ NمFمG < Μ0 FGL鮑0 ٭٭ٽ8`H8`  , "8`  `ٽJJJJ`H͜hn)NjNjNjN. dH͜ ;٭ *Nۙ۰ڙک `Z8` d# B` . . .8۰*J۩ ٰ`JJJJi LdH8`ͦ ٍ0  ` `ٍyٍiB0H0FG h0`שB5xED0C ް(`(8`ؑ@`M8`8@ؐʈI묒)8 L LةC8`؍)@ i)8zJ _ ؅F L) +&J(b ;FإGؐ/8` ;JHIH ILFFHGI ѭJjHIH;7IؙJJ g3HIHILJKJK`FHIG ( Ȣ؝؈JL)eKM`)` J Jͫ $0 ΚJFJL8`JGBJ a FإG`BH aFإG`H hHB؅F  ؅GxDE؍00C ް(`(8` L7J  G"L H  G 9ؙ` @ P8`B8` X؈_JJJJح}) ) )в|J8` GpF $ ᭔ع+ؠ HH  Jh8` 䮑ٽ ٬ؠ@` ( X )8`)i п` H h)N$% LL L L H  :pJ덯 )@፲NJOK HiKKήή IJί JФ̭JjHFIH HIGxKE ް((H hH h8`8@ȭ@LH쬒8NNO 8 ؍JL`RήʱLN.MOMEKP/MEKήLML-M O,p莭eNNO(`JNKOL H/  :P L8 gؑJ`L@ȱ@ `@Nȱ@O`؝}I轆ؐ` ~ؽ؝ ~ = ~؝؈` ` H  hh)N@ X; L  H$ )bJ s ) H LhL ) 8  )حJjIHIH؊  )PLEήʱNLMOMEKP%MEKήL< O,  PeNNO f(` R  F 8AJHIHI؊ HIHI`  ;` 8A H ع H ؙ؊ؠIhHIhH  iع `   عiعi` )؍0CGHFHBFG ުhFhG`@5͔ M @Bi ׭` &. J#ع؍0 v讑)`L@. i 8`L L )ܹ0 )p )@ )  ؝X0ZF[G 밝 \]Z[FG 嬒؍r؍s؝t ؝o _) _ )حYͦ `H@h`h``N8`  ) X⬒Ȣ؝@ݪ@ʈLf &KIJHȢݪ)Jn 8  ؍ ؍ xH8 ع)JJJJ Ȣ؝I؈ Hh(8H X &h(8Hh(`ؑ@`@ȱ@ ` B@8Z_ ~鮑ٍٍٍHٍ~8rhs_JJJJ_ )_@` %I -}) 0@_)N8` @LL =@ KȹP8` K@J5 s9X(K sXXK تKo`V8`no` < on sI9XX`)HJJJh`OeNeO࿰ s9XАO`@ȭ@` ON YNJKO`HHHHхhhhhILhH),dx8 (8`@Ae f!55s+aIJK,-NOPQRSuHUSTON!' @   !"#$Ԡ͠ˠĠԠLL`BLLޢޢޢޢޢޢޢޢޢޢޢޢޢޢޢCOPR. APPLE,1983LM Mh@8nЍLޭ 0J @,,L:,LP׽8H  ): e: y8鰕:Jjjj<)yאi8i;i(*=>hPם8`;Zx3QTTSRWVUHEVhEhH)IWHPHHHAHHHLaVEWLӿ ְ& .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Ӧ>` Ր+>*L o % ԽYӍZӭoӝY 3Ѡ шNZ`rZLkӭZӍq8r7IZӐiZkӐk 8 ѹs ӭq ѹ| kн Z)*>>` @ $(,048<@DHLPTX\`dh 0ުlptx| 0($ p,&"op8`kkV꽌ɪɖxlӽ*kӽ-kәmMlӈ 꽌ɪ`8` ZԍsԍԍԍԥDEԌ8TԌ8WpԌqԠ 7I꽌ɪ꽌ɭ蠪:љVE:8`]ѾV]H)]ѾV]ҙ)]ѾT]ҙ)] >8hUD` ԝY`> Hh݌(`HCJJJJ)*h`8LխӅ:HhHh Ո թ թ ՘VYҪҦ>:Y)Ң`;R?AJ;<ȰY)Ң`Y?)Ң`ȐҰ ;HhHh=Ң`Hh `Hh`DEiȍ0֌18V%֌&8V֌֠)HV)hH)hHIhդD?DRIDQD)҅; ?JDQD]ՎՎՎ`MY pӭY)p  ӭp`C)`BFGV 8`` XʩXύX`6 5L9L )L 莀 7L  LL) (L)'L "L'+3 2L6'L4.5/ * ((L(L `î ƠϠ 'ĝL  LL L)'L L L'L  (L(L $ʩ $$ $L `ީ %  &@DEF   %LҠؠӠ΢ϠԩҠŠƠԠԠŠӢɯϠҠůȠԠĠ ƠϠ LG ASTARTUP$#   / XXύX?klmnÍoL) "6L'?"(0`6708" = ***)<JJH !h穖tp% ;"Z/݀>">"' 1" 7"5).莀/ ;" " 6" >" 1"6"$ "g"" !"""""IzL+-./0123456789:;<=>?YL 8!9 詍` "  à4"/pŠϠŠà͠ӠàԠŬH06172839h` v97L75v^a ?/( va?LLLɍ$?`?a ɍɥAH93827160hH46576879h`,C bL ɍ b w,S0 @ lLޭBDEF޾ p ޾ p($ذ v (0 ( L?ԦʚLeةީa s  lL b,FLg,DL,C0$3 >@ Ɉ 3ɾꩈL(3ɾ;Ƀ B94 l% bʽ  ՚,S` H E$݅3`(l8L3LX>(Ƀ,`3,G0]ɾ g` H`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O puȾ ɾ-O ]c־Jjjj `O>0O l POپھ p H־Ǿh۰8L־Jjjjɾ)Ⱦ8 ѱ OLӜ ĤLLX>(F`־ؾپھ׾` bɄ KDEF vLl v lL bKɍKL?` w  vLl@3 @LtJ)s@J b  l`a?sa?,E30ɍФ3 E3HD F3 Ʉ%h3 bM E  lLthɍLL3`3,A0s0% Ipn DpnI:L ؅303L8933LΞAAJL ةޘг uv $ 8LƞaЌ>?@`>?@`B8` K  춼LK ҟ ҟ ( KK`HJJJJ8`HK)` #hhLJپھ pHJh` D!hgt}~p `~t}p8n~ni}tpi~~tso8pinii>j?k̈́>~|p|Ii||̈́ l - `>i>?Ek?!>Q>>>̀ `` \> ̀ `e>>?́?>?Emn(>e>ȱ>e?>Q>ؠ> ie>>?`|;}=:<~:<=;`||m};>:8o>oȑ>ppȑ>> :op`G DKpnG @p;G=po:i>?Ek?>Q>> L> \/ e>>?́?ޱ>ȥj>>m>` _m8injkiljo풼S 鸍긍$I2 U)VJ зT)`l8`a HbIJhjǾȾɾ p٭b=aIe 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`  ( 8о(־Ǿ,G 8`_`W)H־Jjjjh p̭ fLᶢǾ ת..8 ۭ (8mȾȾmɾɾʾiʾ` Lpl8l:/,s̝sƬƀ#(ZZV4G_0=( A P FjL\5p-e9ABSAVERIFYBLOADELETEBYECATALOGOPENWRITEXECREATEFRESTORENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPEND6D(!쫂8ֵ#ح#׮2}q :IC@@ -!S    !C- !ABELSDFRV@@ !$(19@EüϠž(+@ABCDEFGHIKLMNPSV     T[fouu~ՠٯ* PWN*]ĿNTz @n6VC/+A>@I5gN Oz @n[Dz @nd0,~z @`$仫@v$⩔,C[B?I>孓`仫6VtCicQĿUKqtVt Nʮq$6,⨁ K6, VtI=v!gNVt Vt  lg~TLLwLLL) `8` ԠŬLL)49007,0:DISABLE DIVERSIDOS CTRL-Ik1010,18:1011,212:1012,113:DIVERT RESET TO ONERR STATEMENTq(0)6553640000ĺ(4)"BLOAD MACRO"(4)"BRUNINPUT"(4)"RUNMENU"  g` ߦHHLAe R0:IVU1:D$(S%(I),T)D$(S%(I1),T)RR1: RĹ2151,105L141L:2110D$(0,S9)S%(I)S%(IR):R0 : AA1:" "I;:S%(I)(S%(I)):(13(0)37);:9 ::34,3:"R)EST <->SCROLL RET O)RD S)LECT M)ODP)RINT A)DD E)RA I)NS U)PD F)ORMAT H)IDEM 2:Pğ:"P";:Y Pĺ"Pq 2:36:Hğ:"H";: Hĺ"H"; :G$G$G$G$:X,0: Z(Y)128:Z020 X,0:Z82Z21Z876:Z69(A)OV:VI:TU:UI:RI1:51:VO:IR:UT1:Z21:14= Z7973:Z83123:Z70445:Z7228:Z80PP:29\ Z13515:Z73ANW355 Z65AZ85VII:UN:::Z85108:Z6531:V1:14 Z77DD:Dĺ" Z47SP(SP40)(SP90):255SP 20 HH L(37)1:15:L:X 1:1:868:"MEM->"((112)(110))256(111)(109)12)R$"->"WN27)"^E OR ESC=QUIT":j S51:M0310 WN315:NN1:VN:UN:108:T$""32:NN1:S50: !Nİ315:127""DO YOU WISH THE RECORD SETUP OF A FILE ON DISK? Y/N ";:::T$"Y"36#79:"CLOSE":41&$T$""ır%M1:"^E OR ESC=QUIT FIELDS="NF130)"RETURN=KEEP":"FIELD NAME":G$&IO%(M1):1(M8))M2")"5);:T(36):F$(I);:T1::T$""39:T$""42:F$(I)(T$,1):40'E:T1:F$(I)(MM1:MNF38)958:365*::m+:::17:"FIELDS:"::I0M:J13(I3(I3))1:J)"["I1"]"(F$(O%(I)),9);:J20ĺ,::G$G$G$G$:-N320:FL0:S91:A$"":L0:" O)NE T)WO FIELD SORT OR F)LIP ->";T$:T$"F"340:T$"O"48:T$"T"42:A$"MINOR":43:46:S9T:47:LFL:A$"MAJOR":48c.A$;:" FIELD # ->";T$:T(T$):T1TM1515:KT1:TO%(K):GK:/"A)LPHA OR N)UMERIC DATA? ->";::FLT$"N":T$""515:043:46:471131:125:2151,105FL141FL:2110D$(0,T)S%(U)S%(V):S9010:2N320:131(3"ERASE? Y/N ";::T$"Y"ık4QN:812S%(V)S%(N):NNUV1:812S%(V)S%(N):Z6976:305:1225315:"ARE YOU SURE? Y/N ";::T$"Y"78:"RUNMENU,D1677:607N320:"L)INEAR B)INARY C)OMPLEX SEARCH ->";:V$:V$J$76:V$"C"350`8131:V$"B"129:V$"B"130:" LOOK FOR ->";::U$T$"":"FOUND IN";:A0:V$"B"İ390:599IVU:FKG:(D$(S%(I),O%(F)),1,(U$))U$İ13:FG:::FF1;:A;R$" FOUND":122:A515]<:10):32,10::"SEARCH OPTIONS"::6:"[1] CHANGE '"U$"'":" [2] ERASE":" [3] DISPLAY/EDIT":" [4] SAVE":" [5] MERGE"::23:"CHOOSE ->";T${=::(T$)63,66,85,98,54>868S%(1)S%(N):A0:S4325:)?"CHANGE: "U$:" TO: ";::T$""76:V$T$"":125:T(U$):IVU:S%(I)065:R(S%(I)):FKG:(D$(R,O%(F)),1,T)U$D$(R,O%(F))V$/@7A:BS1:"ERASE F)OUND N)OT FOUND RECORDS ->";T$:T$"F"68:T$"N"ıCSSDIV:A0:125:QNE(S%(IA))SIAUAA1:69FIANNI1:A0:305:122 G(A)TS%(I):S%(I)S%(IA):S%(IA)THII1:69I43J"SWAP WHICH? ->";::I(T$)::I1IM114:(37):23:"->";::K(T$):K1KM114:TO%(I1):O%(I1)O%(K1):O%(K1)T::43:74KOMMSMOLQM"R)EGULAR I)NDEX MERGE ->";V$:V$"I"V$"R"78:79:"CLOSE":MO:V$"I"435:MSM1:LN:N0:ZZ1:81:NN(LN)L(LN):MMO1:MS0:365WNOZZ0ĺ"FILE ->";::F$T$"":F$""515:F$"/"İ121:79P"READ"F$:OM:M:MSMNF380:P$::B$T$""::Q$T$"":JMSMSM::F$(O%(J))T$""::D$(0,O%(J))T$"":T%(O%(J))::365:QQ79:ZZ0:WR:E:958::WR;R$" ON DISK ":NWRWİ380RIN1WRN:JMSMSM::D$((S%(I)),O%(J))T$""::E:I;R$" IN MEMORY"::NWRN:"CLOSE":365:75:122SN320T131U14:IV1V20:Z893,90WIUIV1:86XII1:IUIU:86GYAS%(I)087:260:(Y)12786:87ZZII1:IUIVl[AS%(I)090y\260:86]II1:IVIU^AS%(I)093:92_M1310`F$""98a"WRITE TO "F$" ? Y/N ";::T$"Y"99b" FILE ->";::F$T$"":F$""76:F$"/"İ121:98zc"READ"F$:"CLOSE"::F$" EXISTS":"REPLACE IT? Y/N ";::T$"Y"76::"DELETE"F$d125::360:"OPEN"F$:"WRITE"F$:M::B$:Q$:J0M:F$(O%(J)):D$(0,O%(J)):T%(O%(J))::A0TN:102eTA2fT:I1N:AS%(I)0S%(I)(S%(I)):J0M:D$(S%(I),O%(J)):bg:"CLOSE":A0:365::T;R$" WRITTEN":122hT%(R):33,40:T%(O%(J1))T%(R)D$(0,R)""Ĺ33,T%(O%(J1))ijN320k131:A0lIVU(S90):S91:30:34,2:SS%(I):(A)ĴS0119:SSwmK0MB:::B$I::JKKB1:RO%(J):K%(R)(DS5)ĺ(T%(R)1)(D1)1)F$(R)Q$D$(S,R);:(13(D0));:DĺD$(0,R);nJMJKBo:4:JKKB1:RO%(J):K%(R)117:D104:F$(R)Q$;:F(37):C(36)::T$"/"D$(S,R)D$((S%(I1)),R):115pT$""ıHq(T$,1)"/"T((T$,2)):T1120:D$(S,R)D$((S%(T)),R):115r(T$)D$(S,R)(T$,1):(T$,1)"/"115:D$(S,R)(T$,(T$)1):KM:JKB:118sC1:F1:D$(S,R);:Dĺ:117tD$(0,R);uJMJKBv:w:xJNF:KNF:B(T)BT:II1:118#y"CATALOG"::Gz23::"PRESS RETURN ";::::u{"LIST RECORD NAME? Y/N ";Z$:Z$""Z$"Y|K0M:"LIST "F$(O%(K))"? Y/N ";::K%(O%(K))T$"N"::14}MS0520:::12:15::"WORKING":::~125:J$(13):BNF1:I0NF:O%(I)I:K%(I)1:T%(I)1::E998:X16368:YX16:M1:Z$"Y":G$"----------":B$"RECORD ":R$" RECORDS":Q$":":K0W:S%(K)K:::325"EMPTY MEMORY ? Y/N ";::T$"Y"Ĭ" S)INGLE A)LL FIELDS ? ->";T$:T$"A"K0:GM:43:A$"":46]305:" LOW RECORD ->";::V(T$):V1515:"HIGH RECORD->";::U(T$):V1VUUN131c|Pĺ"PR#1":" 80N"; P$;:Z$"N"Ğ:B$I:J0M:RO%(J):K%(R)295:D$((S%(I)),R)"^"300:D280:PĺT%(R)):28036,T%(R)1 HĺF$(R)Q$;% D$((S%(I)),R);:Dĺ6 "DĺD$(0,R);I '::Pĺ"PR#0O ,i 1:"THERE ARE "N;R$: 6"'CREATE FILE'":122 ;N""R$" IN MEMORY WOULD BE LOST":S50:122 @"NO"R$" ARE IN MEMORY":122p!E::"DB SENIOR"15)R$"="W30)"FIELDS="NF1:7:"[1] CREATE FILE [2] ADD"R$:" [3] DISPLAY/EDIT [4] ERASE":" [5] SEARCH"21)"[6] ADD FILE!J" [7] SAVE FILE"21)"[8] MERGE FILE":" [9] CHANGE FIELDS [10] SORT/FLIP":" [11] UTILITIES [12] QUIT":23:"CHOOSE ->";I-"O::I33,31,83,50,55,81,95,77,34,45,450,53:3259"TN320S"Y131:812S%(V)S%(U):e"^440:520"U2""cIW515:S90:812S%(I)S%(N1):NN1:Z85:T0M:D$(S%(I),O%(T))""::812S%(I1)S%(N):"hC$J$:A$"":370"mC$"":A$J$N#rI0M:RO%(I):K(D$(0,R)):J1K:(D$(0,R),J,1)C$D$(0,R)(D$(0,R),1,J1)A$(D$(0,R),J1)X#w::#|"CLOSE"::"FILE WON'T FIT":122::MO:MS0:ZZ0:NNL#325#LV:RU:J(U$):KO%(K)#LRı$I((LR)2):(D$(S%(I),K),1,J)U$410:D$(S%(I),K)U$RI1:395$LI1:395'$LIU$13:II1:IU(D$(S%(I),K),1,J)U$415]$IL$II1:IV(D$(S%(I),K),1,J)U$İ13:425$VI:UIA1:$C0(D$(0,0))(131)256(132)9:110,C256:109,C256(110):C(0):D$(W,NF):M1:+%125:"SAVESENIOR,D1":"BLOADCHAIN,A520":<%440:520"U3M%440:520"U4%925::1002:"CLOSE":32,0:K(222):K9ĺ"DISK FULL":122%K6Č54915:62:325%(218)99100%"FILE MISSING":122::325&16368,0:::6:D$(4):"PRESS RETURN FOR THE OLD RECORD/FIELD CONFIGURATION.":::14:"MAXIMUM NUMBER OF FIELDS? ->":12:"MAXIMUM NUMBER OF RECORDS? ->";RR$:14:30&RR(RR$):RR0510&"";MM$:MM(MM$):MM0510&MMRR10000475 'MMMM1:D$"OPENSNR":D$"DELETESNR":D$"OPENSNR":D$"WRITESNR"'"8NF = "MM":W = "RR:"1T$ ="(34)(34)": IFS> 3 THEN PRINT "(34)"BRUNINPUT"(34)":TEXT:HOME:ONS-3GOTO59:GOTO 325"5("9DIMK%("MM1"),S%("RR1"),O%("MM1"),T%("MM1"),D$("RR","MM"),F$("MM"):GOSUB 126:GOTO325":"2":"4":"0ONERRGOTO455":"DEL475,510":"RUN":D$"CLOSE"U(23:34,23::D$"EXECSNR":](:l(MS0:NL: *** CHAINING HELLO)*** 4/7/97?*** DOUG TRUEMANU((4);"RUN HELLO" 4559T$"":S3ĺ"BRUNINPUT":::S359:325& L  6 AʈLG g !A)BC g )0 AB઱E0 + 8LS + LA + HHHH8 hLHhh` i`**HuhuHehe`Ș ʈ-+ȝ  g` ߦHHLA NF4:W100 K%(5),S%(101),O%(5),T%(5),D$(100,4),F$(4):126:3254_abcdefghijklmn R0:IVU1:D$(S%(I),T)D$(S%(I1),T)RR1:l RĹ2151,105L141L:2110D$(0,S9)S%(I)S%(IR):R0t : AA1:" "I;:S%(I)(S%(I)):(13(0)37);: ::34,3:"R)EST <->SCROLL RET O)RD S)LECT M)ODP)RINT A)DD E)RA I)NS U)PD F)ORMAT H)IDE 2:Pğ:"P";:( Pĺ"P@ 2:36:Hğ:"H";:N Hĺ"H";e :G$G$G$G$:X,0:| Z(Y)128:Z020 X,0:Z82Z21Z876:Z69(A)OV:VI:TU:UI:RI1:51:VO:IR:UT1:Z21:14 Z7973:Z83123:Z70445:Z7228:Z80PP:29+ Z13515:Z73ANW355g Z65AZ85VII:UN:::Z85108:Z6531:V1:14} Z77DD:Dĺ" Z47SP(SP40)(SP90):255SP 20 HH L(37)1:15:L:' 1:1:868:"MEM->"((112)(110))256(111)(109)12)R$"->"WN27)"^E OR ESC=QUIT":9 S51:M0310s WN315:NN1:VN:UN:108:T$""32:NN1:S50: !Nİ315:127 ""DO YOU WISH THE RECORD SETUP OF A FILE ON DISK? Y/N ";:::T$"Y"36 #79:"CLOSE":41 $T$""ıA%M1:"^E OR ESC=QUIT FIELDS="NF130)"RETURN=KEEP":"FIELD NAME":G$&IO%(M1):1(M8))M2")"5);:T(36):F$(I);:T1::T$""39:T$""42:F$(I)(T$,1):40'E:T1:F$(I)(MM1:MNF38)958:365*::<+:::17:"FIELDS:"::I0M:J13(I3(I3))1:J)"["I1"]"(F$(O%(I)),9);:J20ĺP,::G$G$G$G$:-N320:FL0:S91:A$"":L0:" O)NE T)WO FIELD SORT OR F)LIP ->";T$:T$"F"340:T$"O"48:T$"T"42:A$"MINOR":43:46:S9T:47:LFL:A$"MAJOR":482.A$;:" FIELD # ->";T$:T(T$):T1TM1515:KT1:TO%(K):GK:o/"A)LPHA OR N)UMERIC DATA? ->";::FLT$"N":T$""515:043:46:471131:125:2151,105FL141FL:2110D$(0,T)S%(U)S%(V):S9010:2N320:1313"ERASE? Y/N ";::T$"Y"ı:4QN:812S%(V)S%(N):NNUV1:812S%(V)S%(N):Z6976:305:122v5315:"ARE YOU SURE? Y/N ";::T$"Y"78:"RUNMENU,D1677:607N320:"L)INEAR B)INARY C)OMPLEX SEARCH ->";:V$:V$J$76:V$"C"350/8131:V$"B"129:V$"B"130:" LOOK FOR ->";::U$T$"":"FOUND IN";:A0:V$"B"İ390:59h9IVU:FKG:(D$(S%(I),O%(F)),1,(U$))U$İ13:FGv:::FF1;:A;R$" FOUND":122:A515,<:10):32,10::"SEARCH OPTIONS"::6:"[1] CHANGE '"U$"'":" [2] ERASE":" [3] DISPLAY/EDIT":" [4] SAVE":" [5] MERGE"::23:"CHOOSE ->";T$J=::(T$)63,66,85,98,54l>868S%(1)S%(N):A0:S4325:?"CHANGE: "U$:" TO: ";::T$""76:V$T$"":125:T(U$):IVU:S%(I)065:R(S%(I)):FKG:(D$(R,O%(F)),1,T)U$D$(R,O%(F))V$@A:OBS1:"ERASE F)OUND N)OT FOUND RECORDS ->";T$:T$"F"68:T$"N"ıXCSSmDIV:A0:125:QNE(S%(IA))SIAUAA1:69FIANNI1:A0:305:122G(A)TS%(I):S%(I)S%(IA):S%(IA)THII1:69I43vJ"SWAP WHICH? ->";::I(T$)::I1IM114:(37):23:"->";::K(T$):K1KM114:TO%(I1):O%(I1)O%(K1):O%(K1)T::43:74KOMMSMOL M"R)EGULAR I)NDEX MERGE ->";V$:V$"I"V$"R"78:79:"CLOSE":MO:V$"I"435:MSM1:LN:N0:ZZ1:81:NN(LN)L(LN):MMO1:MS0:365&NcOZZ0ĺ"FILE ->";::F$T$"":F$""515:F$"/"İ121:79P"READ"F$:OM:M:MSMNF380:P$::B$T$""::Q$T$"":JMSMSM::F$(O%(J))T$""::D$(0,O%(J))T$"":T%(O%(J))::365: Q79:ZZ0:WR:E:958::WR;R$" ON DISK ":NWRWİ380RIN1WRN:JMSMSM::D$((S%(I)),O%(J))T$""::E:I;R$" IN MEMORY"::NWRN:"CLOSE":365:75:122SN320T131U14:IV1V20:Z893,90WIUIV1:86XII1:IUIU:86YAS%(I)087:260:(Y)12786:87)ZII1:IUIV;[AS%(I)090H\260:86[]II1:IVIUq^AS%(I)093:92_M1310`F$""98a"WRITE TO "F$" ? Y/N ";::T$"Y"99b" FILE ->";::F$T$"":F$""76:F$"/"İ121:98Ic"READ"F$:"CLOSE"::F$" EXISTS":"REPLACE IT? Y/N ";::T$"Y"76::"DELETE"F$d125::360:"OPEN"F$:"WRITE"F$:M::B$:Q$:J0M:F$(O%(J)):D$(0,O%(J)):T%(O%(J))::A0TN:102eTAfT:I1N:AS%(I)0S%(I)(S%(I)):J0M:D$(S%(I),O%(J)):1g:"CLOSE":A0:365::T;R$" WRITTEN":122qhT%(R):33,40:T%(O%(J1))T%(R)D$(0,R)""Ĺ33,T%(O%(J1))wijN320k131:A0lIVU(S90):S91:30:34,2:SS%(I):(A)ĴS0119:SSFmK0MB:::B$I::JKKB1:RO%(J):K%(R)(DS5)ĺ(T%(R)1)(D1)1)F$(R)Q$D$(S,R);:(13(D0));:DĺD$(0,R);UnJMJKBo:4:JKKB1:RO%(J):K%(R)117:D104:F$(R)Q$;:F(37):C(36)::T$"/"D$(S,R)D$((S%(I1)),R):115pT$""ıq(T$,1)"/"T((T$,2)):T1120:D$(S,R)D$((S%(T)),R):115ir(T$)D$(S,R)(T$,1):(T$,1)"/"115:D$(S,R)(T$,(T$)1):KM:JKB:118sC1:F1:D$(S,R);:Dĺ:117tD$(0,R);uJMJKBv:w:xJNF:KNF:B(T)BT:II1:118y"CATALOG"::z23::"PRESS RETURN ";::::D{"LIST RECORD NAME? Y/N ";Z$:Z$""Z$"Y|K0M:"LIST "F$(O%(K))"? Y/N ";::K%(O%(K))T$"N"::14}MS0520:::12:15::"WORKING":::Y~125:J$(13):BNF1:I0NF:O%(I)I:K%(I)1:T%(I)1::E998:X16368:YX16:M1:Z$"Y":G$"----------":B$"RECORD ":R$" RECORDS":Q$":":K0W:S%(K)K:::325"EMPTY MEMORY ? Y/N ";::T$"Y"Ĭ" S)INGLE A)LL FIELDS ? ->";T$:T$"A"K0:GM:43:A$"":46,305:" LOW RECORD ->";::V(T$):V1515:"HIGH RECORD->";::U(T$):V1VUUN1312KPĺ"PR#1":" 80N";f P$;:Z$"N"Ğ:B$I:J0M:RO%(J):K%(R)295:D$((S%(I)),R)"^"300:D280:PĺT%(R)):28036,T%(R)1HĺF$(R)Q$;D$((S%(I)),R);:Dĺ "DĺD$(0,R); '::Pĺ"PR#0 ,8 1:"THERE ARE "N;R$:S 6"'CREATE FILE'":122 ;N""R$" IN MEMORY WOULD BE LOST":S50:122 @"NO"R$" ARE IN MEMORY":122?!E::"DB SENIOR"15)R$"="W30)"FIELDS="NF1:7:"[1] CREATE FILE [2] ADD"R$:" [3] DISPLAY/EDIT [4] ERASE":" [5] SEARCH"21)"[6] ADD FILE!J" [7] SAVE FILE"21)"[8] MERGE FILE":" [9] CHANGE FIELDS [10] SORT/FLIP":" [11] UTILITIES [12] QUIT":23:"CHOOSE ->";I!O::I33,31,83,50,55,81,95,77,34,45,450,53:325"TN320""Y131:812S%(V)S%(U):4"^440:520"U2""cIW515:S90:812S%(I)S%(N1):NN1:Z85:T0M:D$(S%(I),O%(T))""::812S%(I1)S%(N):"hC$J$:A$"":370"mC$"":A$J$#rI0M:RO%(I):K(D$(0,R)):J1K:(D$(0,R),J,1)C$D$(0,R)(D$(0,R),1,J1)A$(D$(0,R),J1)'#w::h#|"CLOSE"::"FILE WON'T FIT":122::MO:MS0:ZZ0:NNLq#325#LV:RU:J(U$):KO%(K)#LRı#I((LR)2):(D$(S%(I),K),1,J)U$410:D$(S%(I),K)U$RI1:395#LI1:395#LI$$13:II1:IU(D$(S%(I),K),1,J)U$415,$IL[$II1:IV(D$(S%(I),K),1,J)U$İ13:425m$VI:UIA1:$C0(D$(0,0))(131)256(132)9:110,C256:109,C256(110):C(0):D$(W,NF):M1:$125:"SAVESENIOR,D1":"BLOADCHAIN,A520": %440:520"U3%440:520"U4_%925::1002:"CLOSE":32,0:K(222):K9ĺ"DISK FULL":122y%K6Č54915:62:325%(218)99100%"FILE MISSING":122::325%:%MS0:NL:dK$(850)n::34,3"x(239)>J124R" ";:40:" ";Xe2039,32y38);" ";:288:18:" DB ":11::2:" A FILE MANAGEMENT PROGRAM"15:12:"BY TOM HELLSTEN":22:12::"READING THE TEXT": 33,37:32,2:35,22 2000% 2 A1:320r :1:1:"->NEXT <-PREV ESC=EXIT P)RINT PG "A;" ";:24:38 A$:(A$)8AA1:300 (A$)21AA1:300 (A$)27A$""ė::(4)"RUN STARTUP" A$"P"ī7000 "250 ,A0A42 6Aoqrstuvwxyz{|}~42A1 @: TK119) ^K3:1> hK$((A1)19K);D rM s240 t,,," DB",," A DATABASE MANAGEMENT SYSTEM",,," BY",," TOM HELLSTEN"," 60 SHREWSBURY SQUARE"," SCARBOROUGH"," ONTARIO, M1T-1L2"," CANADA",,,, u,,,,,," -------------------------"," ! !"," ! INTRODUCTION !"," ! !"," ! !"," -------------------------",,,,,,, }" DB,ALTHOUGH ORIGINALLY INTENDED","FOR SCHOOL CHILDREN,IS A POWERFUL",DATABASE. IT COMES IN SEVERAL,FLAVOURS. ALL FLAVOURS PRODUCE,"COMPATIBLE FILES,THAT IS,IF THEIR",CONFIGURATIONS ARE NOT VIOLATED. ~,"THIS VERSION (DB SENIOR) IS THE","MOST POWERFUL.",,"DB SENIOR MAY BE COPIED BY ANYONE.",THE OTHER VERSIONS ARE NOT PUBLIC,"DOMAIN PROGRAMS. SCHOOL BOARDS MAY",PURCHASE THESE FOR A SMALL FEE..,"THE USER IS ADVISED TO HAVE AVAIL-",ABLE ON HIS DATA DISK RECORD PRE-,EMPTED 'FORMAT' FILES. THIS,SHOULD SAVE A LOT OF DUPLICATION,WORK DEFINING FORMATS. IT IS RECOMMENDED THAT A HIGH SPEED,DOS BE USED WHICH LOADS ITSELF INTO,THE 16K RAMCARD. THIS WILL RELEASE, 10 1/2 K OR MORE OF RAM MEMORY,FOR DATA. DIVERSIDOS OR DAVID DOS,ARE GOOD CHOICES.,,,,,,,,,,,,,,,," -------------------------"," ! !"," ! MAIN MENU !"," ! OPTIONS !"," ! !"," -------------------------",,,,,,,,,"CREATE FILE:THIS OPTION IS INVOKED"-" FOR STARTING A NEW FILE"Z" & QUICK REINITIALIZATION."" FIELDS MAY BE NAMED DIR-"" ECTLY OR FIELDS MAY HAVE"" THEIR NAMES DEFINED BY"" A FILE ALREADY ON DISK."2" TYPING '/' IN RESPONSE "]" TO THE PROMPT,'FILE->',"" CATALOGS THE DISK." " ""ADD RECORDS:RECORDS TYPED ARE ADDED"" TO THE CURRENT FILE IN"" MEMORY. '/' CONTROLS ARE"8" AVAILABLE FOR EASE OF "c" DATA ENTRY. THESE ARE " &" AVAILABLE IN BOTH 'ADD"0" RECORDS' AND 'UPDATE'.":""D"/ - IN AN EMPTY FIELD,COPIES THE"N" CORRESPONDING FIELD DATA OF"4X" THE PREVIOUS RECORD."`b"/N - COPIES THE CORRESPONDING FIELD"l" DATA OF RECORD NUMBER N."v"/0 - REPOSITIONS THE CURSOR AT THE"" START OF THE CURRENT RECORD -"$"^ - THE DISPLAY OF THE REMAINING"," FIELDS IS SUPPRESSED."M"/-N - MAKES A MAXIMUM OF N FIELDS"z" VISIBLE AT A TIME. THIS FEATURE"" IS ESSENTIAL IN 'UPDATE' WHEN"" RECORDS EXCEED THE SCREEN SIZE."J0"/ - A SLASH PLACED AT THE 'END' OF"0" FIELD DATA CAUSES THE CURSOR"Y" TO SKIP TO THE NEXT RECORD.""^E - CONTROL-E RETURN OR JUST ESC""ESC EXITS THE 'ADD RECORDS' MODE." "" "DISPLAY: DISPLAY ACTIVATES A 2-LINE"*" COMMAND MENU PROTECTED FROM"<4" SCREEN SCROLLING. ITS MENU"Z>" OPTIONS ARE:"R"-> - SCROLL FORWARD ONE RECORD."\"<- - SCROLL BACKWARD ONE RECORD."f"R - AUTOMATIC SCROLLING THROUGH"p" THE REMAINING RECORDS UNTIL A"!z" KEY IS PRESSED."D"O - REORDERS THE FIELDS."n"S - SELECTS OR DESELECTS FIELDS"" FOR DISPLAY.""P - TOGGLES THE PRINTER ON/OFF.""H - TOGGLES THE HIDE FIELD NAMES"" ON/OFF.""U - INVOKES 'UPDATE' AT THE CUR-"F" RENTLY DISPLAYED RECORD."l"A - INVOKES 'ADD RECORDS' .""E - ERASES RECORDS ON THE SPOT.""/ - RETARDS THE SCROLLING SPEED."" THREE SLASHES COMPLETES THE"" CYCLE RESTORING THE SCROLLING";" TO ITS INITIAL STATE."Z"I - INSERTS RECORDS.""M - SWITCHES ON, WITH A BELL" " CONFIRMATION, FILE'S FORMAT.""CTRL-S ARRESTS THE SCREEN DISPLAY"$" UNTIL A KEY IS STRUCK."., 18"ERASE: RECORDS MAY BE DELETED SINGLY"\B" OR IN BLOCKS BY REFERENCE TO"L" THEIR CURRENT FILE POSITIONS."M," NOTE: A COMPLETE ERASURE IS"," DONE MOST QUICKLY BY STARTING"," ANEW WITH THE 'CREATE FILE'"," OPTION."N"SEARCH: ALL RECORDS OR SUBSETS OF"," RECORDS ON ONE OR ALL FIELDS"," MAY BE FRONT-END SEARCHED."LP" A BINARY SEARCH MAY BE SEL-"," ECTED FOR SORTED FIELD DATA."," 'COMPLEX' SEARCH HAS NOW BEEN"," ADDED FOR DOING AN ASSORTMENT"," OF MULTIPLE TYPE SEARCHES."R" A SUCESSFUL SEARCH ACTIVATES"," A FOLLOW-UP MENU."XT"SORT: SUBSETS OF RECORDS MAY BE"," SORTED ON ANY FIELD ALPHABET-"," ICALLY OR NUMERICALLY. TWO-"," FIELD SORTS MAY BE DONE. MUL-"," TIPLE FIELD SORTS ON MORE"V" THAN TWO FIELDS ARE DONE BY"," PERFORMING A SEQUENCE OF TWO-"," FIELD SORTS STARTING WITH THE"," LEAST IMPORTANT FIELD."["ADD FILE: A FILE MAY BE LOADED INTO"," DB AT THE START OF THE"," SESSION,OR IF A FILE IS"," ALREADY IN MEMORY, ANOTHER"," FILE FROM THE DISK MAY BE"O]" TAGGED ON TO THE FILE IN"," MEMORY. THE FIELD STRUCTURE"," OF THE FILE ADDED, WHERE"," FIELDS OVERLAP,PREVAILS."_" THIS ALLOWS QUICK CHANGES"," TO THE FIELD STRUCTURE BY"," ADDING THE FIELD STRUCTURE"," OF A PREFORMATTED FILE."`h a" '/',IN RESPONSE TO,'FILE->'"," ,CATALOGS THE DISK. IF A"," NONEXISTENT FILE IS RE-" b" QUESTED, AN APPROPRIATE"," MESSAGE IS GENERATED." e " " f"SAVE FILE: FORMATTED FILES CAN BE "!h" SAVED WITH THEIR FIELD"," DEFINITIONS. A WARNING"," MESSAGE IS GIVEN IF A"," NAME IS USED OF A FILE"," WHICH EXISTS ON DISK."["j" IF ONE WISHES TO USE TWO"," DRIVES, ONE MUST FIRST"," RESET THE DEFAULT DRIVE"," BY LOADING A BOGUS FILE", " WITH 'ADD FILE'. FOR""o" EXAMPLE, IN RESPONSE TO"," THE PROMPT, FILE->,TYPE,""t" OOGLEY, D2 . "," QUOTES ARE NOT NEEDED."P#v" OOGLEY, D1,WILL MAKE"," DRIVE ONE THE DEFAULT"," DRIVE."#x,"MERGE FILE:FILES MAY BE JOINED ON"," THEIR FIELDS. THE ENSUING"," FILE INHERITS ITS LENGTH"," FROM THAT OF THE LONGER OF"$z" THE TWO FILES. THE 'INDEX'"," MERGE OPTION ALLOWS A FILE"," TO BE MERGED ON THE FORMER"," FILE'S INDEX ARRAY. THE".%| " FORMER FILE'S DATA IS DE-"," LETED. THE BASIC VERSIONS"," CLEARS OUT THE STRING"," ARRAY SPACE INSTANTLY.", &~"CHANGE FIELDS:FIELDS MAY BE DELETED,"," ADDED, OR THEIR NAMES"," REDEFINED. TO RETAIN"," THE NAME OF THE FIELD"," THE CURSOR IS ON, PRESS"," RETURN."&"FLIP FILE: FILE ORDER IS REVERSED. A"," FILE IN INCREASING ORDER"," MAY BE 'FLIPPED' AND CON-"," VERTED TO A SORTED FILE"," IN DECREASING ORDER. DB"," SENIOR'S FLIP HAS BEEN"'N " PUT IN WITH SORT."c',"UPDATE: DB SENIOR HAS THIS OPTION"," LOCATED IN 'DISPLAY'.",'" PRESSING THE 'RETURN' KEY"," KEEPS THE FIELD DATA THAT"," THE CURSOR IS RESTING ON. ":( " THE COMMANDS DOCUMENTED"," IN 'DISPLAY' AND 'UPDATE'"," ARE AVAILABLE."(,,,"UTILITIES:THIS OPTION,FOUND ONLY IN"," DB SENIOR,RUNS THE 'U4'"," PROGRAM. U4 REPLACES DB"," IN MEMORY BUT NOT ITS DATA."," DB IS RESTORED WHEN 'U4'")" IS EXITED. THIS IS A VERY"," POWERFUL FEATURE. ROUTINES"," WRITTEN IN THE POPULAR AND"," EASY 'QUERY LANGUAGE',BASIC,")" MAY BE PUT IN 'UTIL'. THE"i*" CHAIN PROGRAM ON APPLE'S"," SYSTEM DISK IS WHAT CEMENTS"," TOGETHER DB AND UTIL. ANY"," NUMBER OF PROGRAMS CAN BE"(+" INTERFACED IN THIS WAY "," VIA A COMMON RESIDENT POOL"," OF DATA OBVIATING THE NEED"," TO USE THE DISK DIRECTLY AS"," AN EXCHANGE MEDIUM."+"QUIT:THIS OPTION DOESN'T REALLY QUIT"," ,IT EXITS TO THE 'BOOT' MENU."," ALL DATA IS LOST BUT ONLY AFTER"," A FORCED 'QUIT' CONFIRMATION."e," OF COURSE, IF THE CURRENT FILE "," IS IMPORTANT, IT CAN JUST BE"," SAVED ON DISK WITH THE 'SAVE"," FILE' OPTION OF THE MAIN MENU.",,,,,,o,,,,,@-,,,,," -------------------------"," ! !"," ! SEARCH !"," ! OPTION !"," ! !" ," -------------------------"q-,,,,,,,," DB'S BUILT-IN LINEAR AND BINARY"."SEARCHES MAY SEARCH GLOBALLY ON ALL","FIELDS OR LOCALLY ON SINGLE FIELDS.","SEARCH IS A 'FRONT END' SEARCH.","FOR EXAMPLE, A SEARCH FOR 'BA',"z."ON A PARTICULAR FIELD WILL EXTRACT","ALL THE RECORDS HAVING 'BA' AS THE",BEGINNING DATA OF THAT FIELD. FOUND T/ RECORDS WILL HAVE THEIR NUMBERS,"PARADED ON THE SCREEN. NEXT, A",SUBMENU OF POST-SEARCH OPTIONS WILL,APPEAR. A NEW POWERFUL SEARCH HAS,BEEN ADDED - THE COMPLEX SEARCH.,IT MUST BE SEEN TO BE BELIEVED!,TRY IT OUT./#,(SEE NEXT PAGE FOR THE SEARCH SUB-,MENU),F0&," SEARCH SUBMENU"," ===============",," [1] CHANGE 'SEARCH STRING'",," [2] ERASE",," [3] DISPLAY/EDIT",," [4] SAVE",," [5] MERGE",,"NOTE: UPDATE IS ACCESSED VIA DISPLAY"1),,,," CHANGE ALLOWS THE REPLACEMENT OF","FOUND FIELD DATA WITH ANY STRING",HAVING FEWER THAN 256 CHARACTERS ,( THIS IS TRUE FOR THE BASIC,VERSIONS. THE COMPILED VERSIONS,ADMIT ONLY 239 CHARACTERS). IF1,"FIELD DATA EXCEEDS THIS STRING INPUT","LIMIT, IT IS TRUNCATED. FIELD","DATA MAY ALSO BE BLANKED OUT BY","ITS REPLACEMENT WITH NULL STRINGS."2/"THE NULL STRING IS,OF COURSE, ENTERED","BY JUST PRESSING RETURN. CHANGE","OPERATES WITHIN THE RECORD RANGE","PREVIOUSLY SPECIFIED WHEN 'SEARCH'","WAS FIRST ACTIVATED.",," EITHER THE FOUND RECORDS OR THE"22"NOT FOUND RECORDS MAY BE E)RASED","FROM MEMORY."~35" D)ISPLAY OPERATES IN THE REGULAR","'MAIN MENU' FASHION. IN FACT, IT IS","THE SAME ROUTINE WITH SOME PARAMETERS","CHANGED. ALL OF DB'S ROUTINES HAVE ","BEEN GENERALIZED TO ACCOMMODATE ALL"548"PROGRAM CALLS OF A SIMILAR NATURE;","THIS IS WHY DB IS REMARKABLY COMPACT.","BE FOREWARNED THAT IF MANY RECORDS",EXIST AND IF ONLY A FEW WERE,"FOUND,THEN THEIR DISPLAY WILL BE"4;"RATHER SLOW FOR SOME RECORDS. SO BE","PATIENT! THE COMPILED DB VERSIONS DO","NOT SUFFER MUCH FROM THIS PROBLEM."5>,," FOUND RECORDS MAY BE S)AVED ON","DISK OR THE RECORDS NOT FOUND MAY BE","S)AVED ON DISK."5D," M)ERGE WAS DISCUSSED IN THE MAIN","MENU DOCUMENTATION. IT WORKS THE SAME","WAY IN 'SEARCH', EXCEPT THAT THE","MERGED FILE WILL HAVE ITS RECORDS","WHICH CORRESPOND IN POSITION WITH THE"6G"FOUND (OR NOT FOUND) RECORDS OF THE","FILE IN MEMORY, MERGED WHEN, AND THIS","IS IMPORTANT,THE SEARCH SUBMENU","RE-PRESENTS ITSELF AND E)RASE IS SEL-","ECTED. A FAILURE TO SELECT E)RASE"i7J"OR C)HANGE IS EQUIVALENT TO A NORMAL","MAIN MENU MERGE."," AN 'INDEX' MERGE AFTER A SEARCH,","WILL DELETE THE ORIGINAL FILE WITHOUT","INCURRING THE BASIC PROGRAMMER'S","DREADED 'OOGLEY BOOGLEY', GARBAGE"-8M"COLLECTION OF DISCARDED STRINGS.","THE STRING SPACE IS INSTANTLY CLEARED","OUT BY DB BASIC RESETTING THE STRING","ARRAY POINTERS. HOWEVER, THE MARKED","RECORDS' INFORMATION IS RETAINED IN"8P"AN INDEX ARRAY AND CONSEQUENTLY THE","RECORDS OF THE MERGED FILE WHICH COR-","RESPONDS TO THESE MARKED RECORDS, ARE","THE ONES SELECTED BY THE OPTIONS OF","'SEARCH'."9,,, ,,,,,,,,,,,,," -------------------------"," ! !"," ! FORMAT MENU !"," ! !"," -------------------------"9,,,,,,,,,U:"PRINTER CODE (STRING)",," THIS OPTION ALLOWS CARRIAGE","RETURNS,PRINTER CONTROL CODES,A LINE","OF SLASHES OR OTHER SYMBOLS TO BE","ENTERED BEFORE EACH RECORD. A SLASH":",'.', TERMINATES THE PRINTER CODE","STRING DEFINITION. THIS STRING IS NOT","SAVED WITH THE FILE. IT MUST BE RE-","DEFINED IN EACH SESSION.";,"RECORD NAME (RECORD HEADER)",," THE DEFAULT HEADER IS 'RECORD'.","HOWEVER, 'STUDENT' OR 'PLAYER' MAY BE","SUBSTITUTED. THE USER CAN REDEFINE","THE RECORD NAME TO SUIT HIS TASTES.";"THE DEFINITION IS SAVED WITH THE","FILE."Q<"RECORD SEPARATOR",," THE DEFAULT SEPARATOR IS ':'.","IT CAN BE CHANGED. FOR EXAMPLE, HENRY","HOES PREFERS, '->'.""=,"FORMAT FIELDS",," A TAB VALUE MUST BE ENTERED. THE","NEXT ENTRY IS THE STRING TO FOLLOW","THE FIELD DATA. RETURN CHARACTERS","PRODUCE BLANK LINES. '.' ENDS THE","DEFINITION. THE FORMATTING IS FOR"="THE SCREEN AND THE PRINTER. NOTE THAT","IF TABBING WITH THE PRINTER IN MIND","GOES BEYOND 40 COLUMNS, DISTORTIONS","WILL BE PRODUCED ON THE SCREEN. "{>"M)OD TOGGLES BETWEEN THE DEFAULT & ","THE USER-DEFINED DISPLAY MODES.","THE M)OD TOGGLE IS VERY IMPORTANT.","DON'T FORGET! AN ATTRACTIVE BOILER","PLATE OR TEMPLATE CAN BE PRODUCED"?"FOR USE IN THE 'UPDATE','DISPLAY',OR","'ADD RECORDS' MODES. THE CURSOR CAN","BE MADE TO JUMP FROM ONE FIELD TO THE","NEXT AS DATA IS ENTERED. THE AUTHOR"?"AND HENRY HOES FIND THIS ESTHETICALLY","SATISFYING."," FORMATTING IS SAVED ALONG WITH THE","FILE. NOTE AGAIN,M)OD TOGGLES","BETWEEN THE USER-DEFINED AND THE DE-","FAULT FORMAT MODES. THE PRINTER"@"WILL NOT AVAIL ITSELF OF THE USER-","DEFINED FORMAT IF THE 'M)'KEY IS NOT","TOGGLED IN THE RIGHT POSITION. THIS","IS EASILY VERIFIED IN 'DISPLAY'."A,,,"REGULAR FORMAT",," THIS WILL GET EVERYTHING BACK IN","SHAPE. THE ESC KEY WILL DO THIS TOO","WITHOUT LOSING THE DEFINED FORMAT."A ,FORMAT NUMBERS,," THIS OPTION CAUSES A POWERFUL",'PRINT USING' FORMATTING PROGRAM TO,BE SWAPPED INTO MEMORY. DECIMALS,"CAN BE ALIGNED,PRINT-SPACE FOR THE","NUMBERS GIVEN,AUTOMATIC ROUNDING","PROVIDED,COMMAS AND DOLLAR SIGNS" B""PUT IN, AND MUCH MORE.",,,,,,, ," -------------------------"," ! !"," ! SPECIAL !"," ! FEATURES !"," ! !" ," -------------------------"B# ,,,,oC$,,,," MANY SAFETY MEASURES HAVE BEEN","BUILT INTO DB. IT IS NOT POSSIBLE FOR","A DATA FILE TO BE LOST IN MEMORY."3D&"IF A FILE ON DISK IS ADDED TO A FILE","IN MEMORY, AND THIS FILE CONTAINS","FEWER FIELDS THAN THE FILE IN MEMORY","OR IT CONTAINS MORE FIELDS, THEN THE","NUMBER OF FIELDS RESULTING WILL BE "D("THAT OF THE FILE CONTAINING THE MOST","FIELDS. ON THE OTHER HAND, IF A FILE","IS MERGED, THEN THE FILE LENGTH OF","THE RESULTING FILE WILL BE THAT OF ","THE FILE HAVING THE LONGEST LENGTH."E,"IF ADDING OR MERGING FILES CONFLICTS","WITH DB'S CURRENT CONFIGURATION,","THEN A WARNING IS ISSUED AND THE","ATTEMPT IS ABORTED. NO PHANTOM","FILES ONE SECTOR LONG WILL RESUTLT."wF-"WARNINGS ARE GIVEN IF THE NAME OF A","FILE TO BE SAVED BEARS THE SAME","NAME AS ONE ON DISK. IF A FILE TO","BE ADDED OR MERGED INTO MEMORY","FROM DISK DOESN'T EXIST, DB WILL","LET YOU KNOW."G.,"SOME OF DB'S MESSAGES ARE:",," 'CONFIGURATION VIOLATION!'"," 'DISK FULL!'"," 'FILE EXISTS! REPLACE IT? (Y/N)"," 'FILE NOT FOUND!'"G0,,,,,,,G@,,,,,," -------------------------"," ! !"," ! UTILITIES !"," ! !"," ! !"," -------------------------",,,,,,,HJ,THE UTILITIES PROGRAM REPLACES DB,SENIOR IN MEMORY BUT PRESERVES DB'S,CURRENT DATABASE. ITS MENU LOOKS ,"LIKE THIS:",,," U T I L I T I E S" *IO," [1] DB CALC"," [2] SUM FIELDS (COLUMNS)"," [3] RETURN TO DB"," [4] COMMAND FILE GENERATOR"," [5] FID"," [6] CONFIGURE DRIVES"," [7] EXIT TO BOOT MENU",JT ,[2] SUM FIELDS (COLUMNS).,," THIS ROUTINE SUMS A SPECIFIED RANGE",OF RECORDS IN ANY FIELD AND PUTS THE,SUM IN THE CORREPONDING FIELD OF THE,NEXT AVAILABLE RECORD OR THE RECORD,"SPECIFIED BY THE USER. ACTUALLY,"OJY"THE SAME FUNCTION COULD BE DONE BY",DB CALC BUT LESS CONVENIENTLY.,J\,,,"[5] FID.",," THIS IS APPLE'S FILE",UTILITIES PROGRAM.,,[K^, "[1] DB CALC.",," DB CALC PROMOTES DB TO A POWERFUL","ELECTRONIC SPREADSHEET AND RELATIONAL","DATABASE PROGRAM PLUS.","ELEMENTARY PRE-PROGRAMMED FUNCTIONS","HAVE BEEN INCLUDED. SOME OF THESE"Lc"ARE SHOWN BELOW.",,"EX1: [3]=([2]+[1]-SIN([4]))/2",,"[3] STANDS FOR FIELD 3. THE EXPRES-","SION ON THE RIGHT IS EVALUATED AND",ASSIGNED TO FIELD 3 IN EACH RECORD,IN THE SUBRANGE SPECIFIED.Lh,,,,"EX2: $[1]=[2]+[3]",,"HERE THE '$' ON THE FAR LEFT TELLS","DB CALC THAT WHAT FOLLOWS IS A","STRING EXPRESSION AND IS NOT TO BE","EVALUATED NUMERICALLY. THE STRINGS","IN FIELD 2 AND FIELD 3 ARE TO BE"Mr"JOINED AND COPIED INTO FIELD 3."Mw,"EX3: D$(S%(I),O%(0)) ="," D$(S%(I),O%(1))+D$(S%(I),O%(2))",,THIS IS EQUIVALENT TO EX2. IN FACT,IT IS WHAT EX2 IS TRANSLATED TO,BY DB CALC BEFORE D)O IS ACTIVATED.N|,,,,"EX4: SUM=0:FOR K= 0 TO M-1"," :SUM =SUM + SUM + VAL([K])"," :NEXT "," :[M] = STR$ (SUM)",,"MULTIPLE STATEMENTS ARE PERMITTED", ,"ADDS UP THE QUANTITIES IN THE FIRST")O"M-1 FIELDS PUTTING THE RESUTLT","IN THE M'TH FIELD OF EACH RECORD.",,"NOTE:THE ABOVE WILL NOT WORK IF","THE VERY FIRST NONSPACE CHARACTER",IS A '['.,,,O,,,"EX5: 1. MAX = 0"," IF MAX>VAL([2])THEN MAX=VAL([2])"," 2. [1]=MAX",,"THIS '3-LINES' ROUTINE FINDS THE","MAXIMUM VALUE IN FIELD 2 OF THE"P RECORDS AND PUTS IT IN FIELD 3 OF,THE LAST RECORD OF THE SPECIFIED,SUBRANGE.,,,yP" $$$ NOTE $$$",," TO RUN A ROUTINE,"," FIRST F)IX IT AND"," THEN D)O IT.",,P,cQ"OH YES! IF YOU ARE INTERESTED",IN LEARNING HOW TO WRITE DATABASE,"PROGRAMS, DON'T STUDY THIS PROGRAM.","IT CANNOT BE UNDERSTOOD! STUDY","KEITH'S DATABASE BY KEITH","FALKNER. I DID. IT IS AVAILABLE","FROM L.O.G.I.C.",Q,,,, ,,,"[5] COMMAND FILE GENERATOR",, " THIS IS A VERY POWERFUL BATCH FILE",GENERATOR AND PROCESSOR.DB MAYvR BE PUT ON 'AUTOMATIC PILOT'.,THE SEQUENCE OF COMMANDS IS,GENERATED BY STEPPING THROUGH A,FACSIMILI OF DB. NO ACTUAL DB,"OPTIONS ARE EXECUTED. HOWEVER,"LSTHE KEYBOARD COMMANDS ARE REMEMBERED,AND SAVED IN A COMMAND FILE WHICH,CAN LATER BE ACTIVATED AND PERFORM,THE SAME FUNCTIONS AS IF THEY WERE,TYPED IN DIRECTLY BY THE USER FROM,THE KEYBOARD. THIS IS EXTREMELYS USEFUL FOR MASSIVE UPDATES.,,$$ SORRY THIS OPTION IS NOT YET $$,$$ AVAILABLE ! $$S ,"S ,"S,,,,,,,,,,,,,,,,,,,,Sl ,,,,,,,,,,,,,,,,TK1800TK$(K)TT[TX:10:"ARE YOU READY TO PRINT ? (Y/N) ";A$:A$"Y"210T]B$" "Tb:(4)"PR#1"Tc(9)"80N"TdTgI1422FUh"-------------------------------------------------------------------------------":" !"Ui"PAGE "I" ";:I10ĺ" ";Uj"! PAGE "I1Uk" !"UlJ19(I1):JJ19I:II119UnJJ1:JJJJ1VqL(K$(J)):X$K$(J)(B$,40L)0VvX$;"! ";K$(JJ)6V=i? ߠȱ@ȱA>8>?? ߠe<<e==<= <@L7 ߠȱ<ȱ=<m>=i? ߠȱ@ȱA>8>?? ߠΔe<<e==<= <@̓L  :,13)" ______________________"P13)"!\ \"u13)"!\\ \"13)"!\\\ \"13)"!\\\\_____________________\"13)"!\\\\! !" 13)"!\\\\!<0> [";::"DOCUMENTATION";::"] !"K " DB"13)"!\\\\!____________________!"r 13)"!\\\\! !" " BY"13)"!\\\\!<1> [";:" EMPTY ";:"] !" 13)"!\\\\!____________________!" 13)"!\\\\! !"6 "TOM HELLSTEN"13)"!\\\\!<2> [";:" EMPTY ";:"] !"k "WESTVIEW S.S"13)"!\\\\!____________________!" !"NORTH YORK"13)"!\\\\! !" ""ONTARIO"13)"!\\\\!<3> [";::"SENIOR DB";::"] !" #13)"!\\\\!____________________!"* $13)"!\\\\! !"[ '13)"!\\\\!<4> [";:" EMPTY ";:"] !" (13)" \\\\!____________________!" +13)" \\\! !" ,13)" \\!<5> [";::"QUIT";::"] !" .13)" \!____________________!"5 <23:"CHOOSE->";:A$:A$;" ";:D$(13)(4)G >A$"1"ė:10e ?A$"0"ĺ(4)"RUN DB.DOC"w @A$"2"ė:10 BA$"3"ĺ(4)"RUN DB.SENIOR" DA$"4"ė:10 EA$"5"ė:: F10 d::6:32,6 m n"1) 80 RECORDS 30 FIELDS"::"2) 200 RECORDS 12 FIELDS":@ r"3) 500 RECORDS 7 FIELDS":a s"4) 1000 RECORDS 3 FIELDS" t20:"CHOICE ->";:A$:A$; u:A$"1"F$"D80/30":150 vA$"2"F$"D200/12":150 wA$"3"F$"D500/7":150 xA$"4"F$"D1000/3":15010D$(13)(4);D$"BLOADRUNTIME"D$"BRUN"F$10D$"BLOADRUNTIME"D$"BRUN"F$yD$"BLOADRUNTIME"D$"BRUN"F$D$(13)(4)::"WORKING":10T$"":V$"":146SR$(50,1),ST$(49,1),R%(49,1),F%(49,1),N%(10):SR$(50,0)" ":: "BRUNINPUT":A0:I0:55+ N%(5)I1:N%(5)0148 I0N%(5):"PROCESSING "SR$(I,0):L(SR$(I,0)):G(SR$(I,1)):VR%(I,0):UR%(I,1):RF%(I,0)1:SF%(I,1)1:ST$(I,1)"B"151:ST$(I,0)"E"37:ST$(I,0)"F"27 JVU:S%(J)0G025 KRS:I%1A D$(Ԣ(S%(J)),O%(K)),SR$(I,0),I%:I%024:GS%(J)(S%(J)):KS:24 D$((S%(J)),O%(K))(D$((S%(J)),O%(K)),1,I%1)SR$(I,1)(D$((S%(J)),O%(K)),I%L):I%I%G:S%(J)(S%(J)):22  :43 JVU:S%(J)0G035) KRS:L(D$((S%(J)),O%(K)))SR$(I,0)(D$((S%(J)),O%(K)),L)34I S%(J)(S%(J)):GKS:34U 31:34 (SR$(I,1),1)"["D$((S%(J)),O%(K))SR$(I,1): T$"]":I%1:SR$(I,1),T$,I%:D$((S%(J)),O%(((SR$(I,1),2))1))(SR$(I,1),I%2): " #:43 %JVU:S%(J)0G042: &KRS:L(D$((S%(J)),O%(K)))KS:41r (SR$(I,0)D$((S%(J)),O%(K))S%(J)(S%(J)):Gİ31x )~ * +:J0N:AA(S%(J)0)::FU:GF:148# .::1::" FIELDS ";::J0NF:"["J1"]"(F$(J)" ",(J9)9);:(0)35ĺ3 /:(0)4ĺ~ 0"========================================";::"STATEMENT 96":A$: 354:"BLOADSTRINGIN":1013,76:1014,0:1015,3: 6:15:15::"WORKING"::: 7~846:N%(1)(37)1::"========================================";:" SEARCH ";:"!";:"S";:"!";:" RECORD";:"!";:"FIELD";:"!";:"S";:"!";:"REPLACEMENT";=" STRING ";:"!";:"T";:"!";:" LO";:":";:"HI ";:"!";:"LO";:":";:"HI";:"!";:"M";:"!";:" STRING":G$G$G$G$; @34,(37)AR(37)1:I1")";:33,40:N%(1):1:"RECORDS->"N15)"'^V'=VIEW/EDIT '^E'=QUIT":33,10:R:3(I8)::T$""T$""106:T$""109FSR$(I,0)T$"":33,40:V(37):JRV:J:11:"!";::1:N%(1):"'E'=EXACT, 'F'=FRONT,'I'=INSTRING MATCH":R:12NIT$:T$""106:T$""109:T$"E"T$"F"T$"I"T$(13)73cJT$(13)T$"F"KT$:ST$(I,0)T$:R:JRV:J:13:"!"::1:N%(1):"'LO'= LOW RECORD,'HI'= HIGH RECORD RANGE"+NR:15:"1 "(8)(8)(8);:"";T$:T(T$):TNT078:T$""106:T$""109:T0T1:15:R:T;EPR:17:":";R%(I,0)TQR:18:N;:18::T$""106:T$""109:U(T$):(U0U(T))UNU081:U0UNR18:R:U:JRV:J:21:"!";::R%(I,1)U:1:N%(1):"'LO' = LOW FIELD,'HI' = HIGH FIELD RANGE"bTR:22:"1 "(8)(8);:"";T$:T$""106:T$""109:T(T$):T0TM184:T0T1:R:22:T}UF%(I,0)T:R:24:":";VR:25:T;:25::T$""106:T$""109:J(T$):(J(T)J0)JM186:J0JT:R:25:J6WF%(I,1)J:JRV:J:27:"!";::1:N%(1):"'L' = LINEAR SEARCH, 'B' = BINARY SEARCH"{ZR:28:T$:T$""106:T$""109:T$"L"T$"B"T$(13)90[T$(13)T$"L"\T$"B"(F%(I,0)F%(I,1))90]T$;:ST$(I,1)T$:JRV:J:29:"!"::1:N%(1):"RPL STRING,[FIELD#]=RPL STRING,'RET'=NIL":34,(37)FaR:30:32,29:33,11::R:U$"":T$""bU$U$T$:T$;:T$:T$""106:T$""109:T$(13)100:T$(8)T$(21)98:T$(8)(T$)1U$(U$,1,(U$)1):T$"":98cT$(21)T$"":98d]eJ0((SR$(I,0))10(SR$(I,1))11):::32,0:33,40:SR$(I,1)U$:II1:998::(37)20āJ14:::(37)3:105ei65j32,0:33,40::"HAVE YOU FINISHED DEFINING YOUR SEARCH CRITERIA AND ARE YOU READY TO EXECUTE THE SEARCHES ? (Y/N) ->";T$:T$"Y"ī56k51:10Qm32,0:33,40:1:N%(1):"<- BACK -> FORWARD 'E'=ERASE '.'=EXIT":I0II1doN%(2)I1:123rp16368,0qZ(16384)128:Z0113:16368,0:Z46ĴSR$(0,0)SR$(0,1)56:II1:56sZ69İ54:127tZ21122:Z8112:N%(2)1N%(2)I:120wN%(2)N%(2)1 x136:1121zN%(2)I125M{N%(2)N%(2)1:136:112c}I0N%(2)0:136l~112I0SR$(0,1)"":SR$(0,0)"":R%(0,0)0:R%(0,1)0:F%(0,0)0:F%(0,1)0:ST$(0,0)" ":ST$(0,1)" ":134II1:N%(2)IN%(2)I:134XLN%(2)I:T01:SR$(L,T)SR$(L1,T):R%(L,T)R%(L,T):F%(L,T)F%(L1,T):ST$(L,T)ST$(L1,T)::f136:112L(SR$(N%(2),0)):N%(3)L:T(SR$(N%(2),1)):LTN%(3)T:N%(2)1")";:4)(SR$(N%(2),0)" ",1,7);:J11(3N%(3))10;J1(L7N%(3)10)Ė1:(SR$(N%(2),0)(SR$(50,0),220L),(J1)102,10);J1ĺ11)"!"ST$(N%(2),0)"!"R%(N%(2),0)17)":"R%(N%(2),1)21)"!"F%(N%(2),0)24)":"F%(N%(2),1)27)"!"ST$(N%(2),1)29)"!";J1ĺ30)(SR$(N%(2),1)(SR$(50,0),220T),1,11);/J1ĺ30)(SR$(N%(2),1)(SR$(50,0),220T),(J1)101,11);7:::10::1002:"AN ERROR HAS OCCURRED. CHECK YOUR SEARCH DATA";:" PLEASE."::"PRESS A KEY TO CONTINUE. ";:T$:"BRUNINPUT":925:56DU$"":S4:UN:V1:T0(SR$(0,0))(131)256(132)9:110,T256:109,T256(110):"BLOADCHAIN,A520":520"SENIOR"TCV:KR:RU`CR43F((CR)2):(ST$(I,0)"E"D$((S%(F)),S)SR$(I,0))(ST$(I,0)"F"(D$((S%(F)),S),1,L)SR$(I,0))156:D$((S%(F)),S)SR$(I,0)RF1:152CF1:152CFe161:FF1:FUD$((S%(F)),S)SR$(I,0)(ST$(I,0)"F"(D$((S%(F)),S),1,L)SR$(I,0))157mFCFF1:FVD$((S%(F)),S)SR$(I,0)((D$((S%(F)),S),1,L)SR$(I,0))İ161:15943S%(F)(S%(F)):JF:31: 204T$"","BRUNINPUT":189885:88@86FLgU:15:15::"WORKING":::V::7:8::"PLEASE WAIT - RETURNING TO DB"::WS9:"BLOAD CHAIN,A520":520"SENIOR"X"BLOAD A6000":1013,76:1014,176:1015,2:95# Y:J0M:(J9)1)J1") "F$(O%(J)):k Z:"FIELD TO BE FORMATTED (0='QUIT') ";:L(37):"->";C$:C$"0"ı [(C$)1(C$)M1ĢL1:958:90 \104:K(C$)::"ENTER FORMAT CODE ":"->";FM$:T1(FM$):T10N0ī2049 ]JVU:24:D$"":G(D$(S%(J),O%(K1))):FM$;G:C20001999T1:T2(C)128:T20T248h ^D$D$(T2):::D$(S%(J),O%(K1))D$::89 _:S$(34)::25:"'A' HAS VALUE 1234.567 AND":25:"CAN BE ";::"FORMATTED";::25:"IN MANY WAYS...":g `25:"QUOTES ,'"S$"',":25:"ARE NECESSARY!"::25:S$" .0000"S$:25::S$" 1234.5670"S$::25:S$"$0000.00"S$ a25::S$"$1234.57"S$::25:S$" , $.00"S$:25::S$" $1,234.57"S$::25:S$"TOTAL= "S$:25::S$"TOTAL=1235"S$:\ b25:S$"**,***,**$.00"S$:25::S$"****$1,234.57"S$::25:S$"000000"S$:25::S$"001235"S$::25:S$" , "S$ c25::S$" 1,235"S$::33,23::222,0:: f:90 h:"THERE ARE ";N;" RECORDS"::"LOW RECORD ->";T$:T$""102 iV(T$):"HIGH RECORD->";T$:U(T$):V1VUUN102 jx ::1::"PRINTER CODE STRING"::7:"ENTER THE STRING BELOW ('.'=QUIT) :"::":";(8);:P$" T$:T$;:T$"."190:P$P$T$:175::1::"RECORD NAME"::11:"ENTER THE RECORD NAME BELOW ('RET'=QUIT)"::"->";::B$T$""::b::1::"FIELD SEPARATOR"::7:"FIELD SEPARATOR ? ('RET'=QUIT)"::"->";::Q$T$""::::"FORMAT FIELDS";::" '.'=NEXT FIELD"::34,2:J0M:C$" Q(37):F(36):F$(O%(J))Q$;:"TAB ->";T$:T(T$):Q1:F1:868:T1T255179:T%(O%(J))T:T)F$(O%(J))Q$;GT$:T$"."181:C$C$T$:T$;:180^D$(0,O%(J))C$::B$"RECORD ":Q$":":K0NF:D$(0,K)"":T%(K)1::P$"":******* MENU *******::12::"FORMAT OPTIONS"::5I7)"[1] PRINTER CODE STRING"::7)"[2] RECORD NAME"::7)"[3] FIELD SEPARATOR"::7)"[4] FORMAT FIELDS:7)"[5] FORMAT NUMBERS"::7)"[6] STANDARD DISPLAY"::7)"[7] QUIT":22:7)"CHOOSE ->";T$:T$(13)193:T(T$):T1T7193:T174,176,177,178,3,250,86189((4)"BRUNINPUT"::1002:925:189@85:182:J1100:F  ߠ=<>We>>Pe=?CPB , { R祸֍P֥ 9 l ֐) :ȩ֭`ZL:305T$"":D$(4)D$"BLOADX5":798:255273:261 :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: IVU :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: (:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: 2::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::<::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::sF::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::yKhP:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::XZ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::^ijkFO111|mFO$(50):FO1o798:205q1014,54:1015,3:uI%1:U$"[":V$"]":C$"=":T$FO$(J):A$":":TX$"":J11:L0w(T$,1)":"T$(T$,(T$)1):L1#y(T$,2,1)"."R3:127/{R(T$)>}T$(T$,3)]TT$T$:T$,U$,I%:I%0159J%1:I%1:T$,A$,J%:J%0İ141:159I010:I%1:T$(TT$,J1,J%J1):141:J11TX$T$J11TX$TX$A$T$J%J%1:J1J%:TT$,A$,J%:J%0139.I%1:T$(TT$,J1):141:T$TX$A$T$:159DT$,U$,I%:I%0ıT1I%:I%I%1:T$,C$,I%:T2I%:I%I%1:(T$,1)"$"153T12I%1:149T$"D$(S%(I),O%("(((T$,T11))1)"))=STR$("(T$,T21):T$T$")"T$,U$,I%:I%0ıfT1I%:I%I%1:T$,V$,I%:T2I%:I%I%1:T$(T$,T11)"VAL(D$(S%(I),O%("(((T$,T11))1)")))"(T$,T21):149T$"D$(S%(I),O%("(((T$,T11))1)"))="(T$,T21)T$,U$,I%:I%0ı%T1I%:I%I%1:T$,V$,I%:T2I%:I%I%1:T$(T$,T11)"D$(S%(I),O%("(((T$,T11))1)"))"(T$,T21):15572054,T$,R10NLJJ1:113:117i:S93:JJ1:113:229FLFL1:16:958:FL") ";:798::T$""FLFL1:223FO$(FL)T$"":JFL:225213::"CHOOSE SUMMATION FIELD ->";T$:T(T$)1:TMT0ıT:"THERE ARE ";N;" RECORDS IN THE FILE.":"LOW RECORD ->";V$:V(V$):V1VNı"HIGH RECORD ->";U$:U(U$):UNUVı"PUT SUM WHERE? ->";N1;:18:"";L$:L(L$):(L1L$"")LWı(37):L0LN1:NL:18:LLNNLS0:22:F$(O%(T))"->";:JVU:G(D$(S%(J),O%(T))):SSG:10:" ("J") SUM="S;:958:22::D$(S%(L),O%(T))(S):10:" ("L") SUM ="S;24:1:"CONTINUE ? Y/N ->";:T$:T$:T$"Y"ı187FO1213:261:798B:5:"DO YOU WISH THE STANDARD DEFAULT FORMULA FILE ? Y/N ";T$:T$"N"T$"FORMULAS":211:"FILE ->";T$:T$""207:T$"/"ĺD$"CATALOG":T$:209FO1213:261:798::D$"OPEN"T$:D$"READ"T$:FL:FO2:J1FL::FO$(J)T$""::D$"CLOSE":T$FO$(J):271:213:219Y::34,15:1::"FIELDS:"::J0NF:K13(J3(J3))1:K)"["J1"]"(F$(O%(J)),9);:K20ĺ_1:15:"---------------------------------------":23:"---------------------------------------":24:1:"A)DD D)O E)RASE F)IX Q)UIT SCROLL=<->";:21:35,21:JFL:FL1J11:16::"FORMULA":O16:1:958:J") "FO$(J)]16368,0S9(16384)128:S90227:16368,0S921235:S98239:S981245:S969FL0FO$(J)FO$(FL):FLFL1:FLJJJ1:223S970İ261:113:117+S9684:S988117:S965183:FL0Ģ15:958;J(FL)J0TFL0223:JJ1:243dJ1JFL1sJ1JJ1|223:"SAVE CURRENT FORMULAS? Y/N ->";T$:T$"Y"247:T$"N"253:223:"SAVE AS FORMULAS (DEFAULT)? Y/N ->";T$:T$"N"T$"FORMULAS":251K:"FILE ->";T$:T$""245:T$"/"ĺD$"CATALOG":T$:249D$"OPEN"T$:D$"DELETE"T$::D$"OPEN"T$::D$"WRITE"T$:FL:J1FL:FO$(J)::D$"CLOSE"T$FO1:g:::" D B U T I L I T I E S "::8:"[1] DB CALC"20)"[2] SUM FIELDS (COLS) ":"[3] FID"20)"[4] RETURN TO DB ":"[5] FILE CABINET"20)"[6] CONFIGURE DRIVES" [7] EXIT TO BASIC"23:"CHOICE ->";:T$:T$;:32,0:T(T$):T107,187,283,263,281,285,279:255:17:15::"WORKING":::m:FO0:::7:8:"PLEASE WAIT - RETURNING TO DB":261:C0(FO$(0))(131)256(132)7:110,C256:109,C256(110) S9:D$"BLOAD CHAIN,A520":520"SENIOR"  ::10:"ARE YOU SURE ? YOUR CURRENT DATA";:" WILL BE LOST (Y/N) ";:A$:A$;:A$"Y"A$"N"267:A$"N"ġ 261:_:"THERE ARE ";N;" RECORDS"::"LOW RECORD ->";T$:T$""269V(T$):V1VN273:"HIGH RECORD->";T$:U(T$):UVUN273267:267:"RUNMENU"267:"BRUNFID"267& ::10:9:"<1> DRIVE OR":9:"<2> DRIVE SYSTEM? ";:T$:8 !T$(13)ġ:Q #T$"1"T$"2"287a %T$"2"297x '(4)"EXECU5,D1": )(4)"NOMONCIO" +(4)"OPENU7,D2":"WRITEU7,D2":"TOM HELLSTEN":"CLOSEU7,D2" - /(4)"EXECU6,D1": 1:::10!21002:54915::(4)"CLOSE" "Y" GOTO 86: PRINT "DELETE"F$ 134 PRINT "CATALOG": RETURN SAVEDB SENIOR LOCKDB SENIOR RUNMENU,D1 UNLOCKDB SENIOR LOADDB SENIOR 111 PRINT "OPENU7,D2": PRINT "CLOSEU7": PRINT "READ"F$: PRINT "CLOSE": HOME : PRINT F$" EXISTS.": PRINT "REPLACE IT? Y/N ";: & : ON T$ < > "Y" GOTO 86: PRINT "DELETE"F$ 134 PRINT "CATALOG,D2": RETURN SAVEDB SENIOR LOCKDB SENIOR RUNMENU,D1 8NF = 4:W = 100 1T$ ="": IFS> 3 THEN PRINT "BRUNINPUT":TEXT:HOME:ONS-3GOTO59:GOTO 325 9DIMK%(5),S%(101),O%(5),T%(5),D$(100,4),F$(4):GOSUB 126:GOTO325 2 4 0ONERRGOTO455 DEL475,510 RUN 9 [3]=([2]+[1]-SIN([4]))/2 $[1]=[2]+[3] D$(S%(I),O%(0))=D$(S%(I),O%(1))+D$(S%(I),O%(2)) SUM=0:FORK=0TOM-1:SUM=SUM+VAL(D$(S%(I),O%(K))):NEXT:[M]=SUM 1. MAX=0:REM THIS ROUTINE FINDS THE LARGEST IN FIELD 2 OF THE RECORDS AND PUTS IT IN FIELD 3 OF THE LAST RECORD. (THE NEXT 2 'FORMULAS' WILL AUTOMATICALLY BE 'CHAIN-FIXED' BY THE ENDING ':' : TEMP=[2]:IF MAX < TEMP THEN MAX = TEMP: 8. [3]=MAX:N=N+1:REM THIS ENDS MAX [1]=([2]*.5+[3])/4 $[1]=[2]+","+[1] D   , b Y L> b @   Lvم38x` X L !   - `" X    i( ! o , и` X$i( " X , 7 , ͭ) ; # ͭ  ; ` o ɱɸ" L; )  o ɱɳ# L_ )`  o ɱɸ" L ) o ɱɳ# L ) ##` L U o00Щ莢ɽదɬUɽ̢ʎ! o : Lm  ɛhhL%H% h% ` ` `HHH  hhh`HHH : $'   hhh`, `Hhݯ`h`# q  ` Y  # LK ` SSTT`S T8`STEF  `iiiRLk SLk H m hLk T%SRs$U+  # o? : L  hh` %)`ʽR08`  `  ?,06 /,0&莤 ,0欧ȌP8``ȈR`  UɽR 莣Ȍ`8`  UɽR ʎ`8`HH Uɽ"̦̦88hh` ȹHH`%) ` f `,%0 f `,% f ` f` `  f `hh" XL  ̆      `H jjH9mmL[mmhh`  # L# # 3,0ޭS T   ` /H h/ ` % f$-0 ` f` : :   oOɃ  hhhhhh`+t+TPɍɬC+L,)  o : L f f`   t+L:,%` f`ST`LȱM`LȭM`EFST ` ` I,`EF^ȹ^Ȍ  F`,0 0S/TEF STRzmWWX` `EF^_ 0^/_ F̞`EF `HHH0/0+>1jj/9hhh`( 12 1㎓0/М LHHH@!>?ABI JL>L?Mhhh`HHH ; ( L -hhh` : :  ,% f f4,$ ɀ@  L   LŠ àՠźҠӻ՗ࠠԠҠոƠƠՠӠe h RRRRR=JWdv&dsK%;HSd+2EOTkxŠԿſΠԿſſԠ˨өӠþϠ΍ϠΠՠҠ٠Ҡ٠Ϡ΍٠ӮŠΠנŠŠҠŠ٠ҍξϠŠǠŠҍ̭þξϠٍ̠ҮŽĠՠŠϠŠҠٿԠŠˠĠӠԠΠˠĠӠ٠ϠՠԠǿōϠӠćˠ̍ˠŠčŠčɯϠҍĠԠ٠ϠΠ͍Š۠ŠҠĠΠ͠ԠŠҬƠŠǠӍӠ٠٠ϠŠčӠōӠčϠՠȠϠŠԠٿŠōȠĠՠſĠĠ٠ӍŠӍǍˠӍԠԠōŠΠˍˠӍ٠Ӎԍ+RRĠՇؠƠԠՠNàҠƠҠԠՠΠzӠŠՠ͠ȠŠŠƠ͠ƠԠDzՠŠŠՠԠҠǠҠ ԠՠŰՠŰŠĠԠԠՠ ȠԠҠ̠ƠŠҠϠՠŠ  ijlk ~󅟆nmLȱȱeȱe(ӊ0ȱ ie枦ş 0FȱAȱ<ȱȱŰ+H8oȑoȥpphei e枥`̄iq imo 膢 ȱ " <67 L  8ij v vo>