' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-(0 ͮɮƮ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` i d ֠z# u` gݥ0 ɐ ~LGHHHHH hhhHH ,҄ hh)klnm?Łћȱeȱeעk,5LԢx8` ћLK*L өȥʆȑ $PhihiȑȊ ↭^e]eR Ӆmn殤ƕƮ8m因n圑bȱhhћȊћLLȥ e^eʅʥʆd ee`^de *& edeeƙ` 8ompnL$8vС,L A  ީ j ީ HHHHH L  ߅Lj A㥋HH jhhȱ𙅄ȱH +륹HHȱHH ghh Lhhhhȑhȑhȑhȑ` jݠ 6hh R䆞`" ȱ "e膮 㦫 R^LԥSR`FHI8eopnm opqrh`M0 䩀hЦstopmnU^_R #ij^_lk 󅔆nmLb^_^ȱ^ȱ^eȱ^e(ӊ0ȱ^ ie^^__Ŕ #^05ȱ^0ȱ^+ȱ^ȱ^poŜ䛐^_e^^__`)Jeiop Ӥȥ敥ȑL䥡HH ` lhhqL 奌  奫  *LݠHȱȱh^_ H^qheqqr` lݥ^_ 5^Hȱ^ȱ^h(po Heooph^_`T SRS` H hhhL* ьHH 㥌 hhe^^_ L* IL` ) ʊH񌰸Iš hhhhhhhHH` L ` ^LL g ᦠL LN覸^e^`_a`H` Jh`` g R L楝ɑ 률PQ`PHQH RPhQhPL F犠P` F熅  L熆PE%`dL 饢IEL < LS리8$Ii0ǨV $W8Ie Ji `eeeeeLi&&&&8坰IiBfffff`IIIIII `ELԢai0vvvvvj`^Vy dv88; 54541r LᥝH- 2 f  \7 h < L bcde 饡 饠 饟 饞 LLJ eeededcecbebfbfcfdfefJ`^_^^^^E ^`e0,iLR襫`I0hhLNL ci ` cP Li v r8坅 Ğğ Ġġ* e24(&&&0⨥塅堅埅垅L@ (LꢅLԥbcdeL.^_^^^^ ^`, r^_^^^ %^^`` r` L襝 *` 녞I*L)F``a`Ȫı`E0!` Şȱ`şȱ`Š ȩŬ`(IL륝J8$ 芢 脤`)F 鄤`ɠ 넬I* L)腞` -+ [..E0 - +f \$8Lf$På8噅 U 9ƚ0`LH$ 9h80 LaH ch 륪EL祚 d$0L e q80L>nk'nk(X 1vu8 4L:۠-$șȩ0LW     9ƙ U i 0 i8.ș0șylykyjyi00ڊIi i/ȄȪ)ƙ.șI)$Ъ0.ȩ+.8嚪-E/8 i:`  cd pLP袊 +륪 #쩊  UH A驊  hJ I`8;)q4X>Vt~w/z*|cYX ~uƀ1r۠ 饬iP z녒 f륝Ɉ + # i8H rh ` !멓  v禎L酭 뱭Ș殅 饭iȅ 穘ƣ`5Dzh(F 0ɠ 穦 驪 禡 .ɠL+f ck ^ coeܔٱ0ۏ$1@hnW &tlnrvNjUaE=H jmكدzڕؤi֟H֐# A :dFZyy{{h}PTFNddENFONEXDATINPUDEDIREAGTEXPRINCALPLO湭`: 808`ORXv( sL  񕰆򊅤TH کURPQQPIPPIPPPQ)stopgh֘gghgh K֩:ۅ<ԅl g RlP L L 0, 0,-`L ,- 0` (L ,(ʤL (L( Ld ʊL[ I`8f`?2`@ g RPmQnLԥPsoQtp` g RPsQtPiQj֥PiQjLl֩ ޥ8fإuv Lنަߥuڥvۥyܥzݥ􅸥uv >Lץڅuۅv܅݅ߚLLްij ֥`a, PQ ֥`a```aiśj地a`ʈjiLԭVSL@TL9 ʅPQ L PȱQL L,U,R@ ,T,SWP ~)`H)&JJ&&h' &' &' f&')'#i媽0J(` Q&%0Q&&`#0JI0`'0 I`0 I0ݩ()%%01&%0)&E%0Q&&e)j00',"&,i8i#H&ii&hif&i'`'i,&i,&iPII&if&HhH8HӰ hIiHӅхhЅhIi҄f8Ъх e8e҅ԥձ&E%0Q&&bӰ eЅԥePفŴxaI1& ')*& 'JJ) e ʥ0)Je`JJJJӊ)IȄҤѢԆզ8eЅԐ e҅Ր JJJ`JJJJӊ)IȄҤѢԆզ8eЅԐ e҅Ր JJJ` g RQPHH, hh`L `*U W :L ` `  eȱe ` -L -La=?P<Ȅ> sʆ>PHt?QnLԅtp=hso< LeP>eQ? ॔<=`@ ߩL ʊ( (H hL$`xJ G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--&,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4i#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ , :ILl `Ȇ׍숈l E@A  J 0`YE <ӭpd`HVTQ PS 6" _#%L" X`I`ɍ,,L8L,H !ΰɐx,LHJ) )h)i( ((`ɇ@ 0`$($$!f`ɠɍZɊZɈ$!$$"% %% e (`I(ii,i\,éŠˠ$%%#%LH h,T,Xx(,U`88Hh`BC<>=?<=`K i! Ȉ2 ,`H h*:` `E/E//`$(H)? @(hl8L L(`` ! ɛ`2H h2Ɉɘ  : 3  5ɕ()ɍв [=< @L< >=?<) < `JJJ>Ie@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A&?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵b@L(L<  } }$%0Ʃ 8(L$0pijlk"ћћliA[8`hH`klmniȅ ӥȅklȥȑȑȑȑȑiȅ` ieȅ`(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰL ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 00)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0hޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄӠȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι Ll`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Τ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLP O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` ΔL 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[L &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00', # p 祢H 祢0 I p h uL\ !  禎  b𩊠LfHL#IڢIڢ-(h#5ᆥ](IڢʥH HɁ fΠ \hɁf hL` vy{| g|S}dpL}Qz}c0~~D:~L̑L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`ɅLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3peʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`LJ G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--&,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4i#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `Ȇ׍숈l E@A  J 0`YE <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!f`ɠɍZɊZɈ$!$$"% %% e (`I(ii,i\$%H $ hi#ʥ"%$$%%#%"H $(*)+!hi# H $(*0 $(!`8Hh`BC<>=?<=`K i! Ȉ2 ,`H h*:` `E/E//`$(H)? @(hl8NO,(,` ɛ`2H2 h2Ɉɘ  : 3  5ɕ()ߝɍв [=< @L< >=?<) < `JJJ>Ie@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A&?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵b@ L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ Px+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOwhill now design this screen to resemble an index card in whatever format you desire.":1031$$V21:H3:B$"PRESS RETURN TO CONTINUE":560::SW3ı$%:N0$.NN1:N3012805%820:1:958:2::"PRESS RETURN TO TERMINATE"::21:2:"Field #";G$;desire."#" The numbers along the border are to assist you in designing the screen. Note the '";::"*";::"'. These columns/rows are not to be utilized."#1060\$4:2:"This screen will be used to design and view reported data. You wN:R4$(I),R3$(1):P(I)(R3$(3)):I:B" ***********************S" INITIALIZEc"I(0):340l"530#4:2:"This screen will be used to enter and view data. You will now design this screen to resemble an index card in whatever format you ice: ";G$;U$;H$;:Y$:Y$:(Y$)1(Y$)6830!H(62(Y$)):8::(Y$);". ";Y$((Y$)):K01300:K0::(Y$)1000,2000,3000,4000,5000,7000$"I%(1)1:I%(2)2:I%(3)3:I1N:R4$(I)(V(I))Z$(H(I))Z$(I):I:W2,R4$(1),R4$(N),S$(0),P$(0),I%(0):I16)2561 ::K16:Y$(K):K: "INITIALIZE FILE","ENTER INFO","RECALL/CHANGE/PRINT INFO","SORT/PRINT INFO","REPORTER","END":2:7:C$:3:17:"presents" 5:7::T$::8:K16:8:K;". ";Y$(K)::K:X(0):X0X65536X-!>20:5:"Enter choor ";N$(K8):711$IN$(15)7128:SP0ė:3080D:3070SK30K31Yw *********************** MENU:::340:105:305:1::K140:" ";:K:23:1:K140:" ";:K:2:K223:K:1:" ";:40:" ";:K W2(115)(11:"The list of fields are:":I1N:(((7I)2)):(3(18((I2)I2))):I;". ";:(N$(I),10);:I:::K(37):K22ĺ::K22G$;:"Input # of the field to search in: ";IN$:K8(IN$):(K81)(K8ZZ)ĢK1:1:958:725:"Enter search string fIN$(8)718$(S$)0ĺG$;:711BIN$;:(S$)1S$"":711\S$(S$,(S$)1):711(IN$)21IN$((36),2((37)))16(36),2((37))1))IN$(13)K31:868:IN$;:S$S$IN$:711IN$:IN$(17)ġ:250IN$(27)730"NL0ĺD$"PR# ";SP@34,23:K21NL::K2:20:1:34,1PD$"PR#0":x**********************************BA010:BU(BA)0:BA:BA1:K80:722IN$:IN$(17)ġ:250IN$(26)ĺ:"Starting at record # ";IN$:K3(IN$):740 ))0:650By(V(P(K2))):(H(P(K2))):P90Ğ:N$(P(K2));::": ";l{V(P(K2))V(P(K21))ĺA$(P(K2));:650{A$(P(K2))K2D$;"PR#0":22:1::"FILE: ";(FILE$,5,10);::YR$"Y"ĺ:D$;"PR# ";SP22:20:"Record# ";::KF;::" of ";NR;" CbBU(0)0DC$"C"ĉ:::VV1:TT$" ":310:VV20:310:320::330gc32,1:33,38:34,1:35,19:::eBA10BA1: DON'T USE 'BA' FOR ANYTHING OTHER THAN FOUND UPDATE INFORMATION lBABA1:BU(BA)KF:SP0ĺD$"PR# ";SP v20:K21N:V(P(K2:(A$,K,1):K:4:6::330:35,22:L+**********************************0V:H:868::B$;G$;::Y$:Y$;:Y$"B"F2%1BABA1:BA1BA101F2%0ı2Y$"B"BU(BA)0KBU(BA)1:Y$"Y":BABA135**********************************":,**********************************HD$"OPEN ";FILE$;",L"RLoD$"READ ";FILE$;",R0":NR:NRNR1D$"CLOSE ";FILE$:: **********************************::2:A1$:24:A1$;$&K222:K:1:(A$,K,1):K:K222:K:40;:XF$:432KY1:4340:H:18:R3$(K):eK1(FILE$):777K,((FILE$,K,1)):K:777K,0~D$"OPEN ";FILE$""D$"READ ";FILE$"":N:RL:K1N:V(K):H(K):N$(K):KZZN:801,(RL100):802,RL100(RL100)D$"CLOSE "FILE$"JLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8Mϕڥ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0J Ȗ3:"GO TO 'ENTER INFO' MODE TO ENTER DATA":I15000:I:770b4 ::10:5:"Reading in data..."4 N1NR:SW2:D$"OPEN ";FILE$;",L";RL:K1NR:10:24::K:D$"READ ";FILE$;",R";K:I$(K):K5 D$"CLOSE ";FILE$:827,126:856,44:816:827,15:856,58:83D$"CLOSE ";FILE$%3:340:760r3 ***********************************************************************3 RECALL/CHANGE/PRINT INFO3 340:350:900:500:NRNR1:ED$"CHANGE DATA"=4 NR0ė:10:7:G$;G$;"THERE ARE NO RECORDS DEFINED"::$;",R";NR^2pI$:D$"CLOSE ";FILE$:NRNR1:827,126:856,44:816:827,15:856,58:816:SW2ıf2z:2*********************************22040:K1N:A$(K)"":K:21802NRNR1::::D$"OPEN ";FILE$;",L";RL2D$"WRITE ";FILE$;",R0"2NRh > ";RL;" characters":21:868:"REENTER";G$;G$:L11500:L:I$"":20401RV21:H1:B$"IS DATA CORRECT (Y/N)":560:Y$"N"ĢV:H:868:20601SY$"Y"21301\827,44:856,126:816:827,58:856,15:816:D$"OPEN ";FILE$;",L";RL 2fD$"WRITE ";FILE(N$(K))):A$(K):2110N0 (A$)0A$A$(K):(V(K)):(H(K)2(N$(K))):A$(K)n0*A$(17)SW1KN:K:219004A$(17)SW2KN:K:09A$(K)A$0>(I$)(A$(K))250KN:K:21200@I$I$A$(K)(26):K:(I$)RL2130J1H20:868:"Total lengt1:"FILE: ";(FILE$,5,20);::25:"Record # ";G$;::NR::"^E = Done w/rec ^Q = Quit entries";/K1N:(V(K)):(H(K)2(N$(K))):A$(K);:A$(5)Ģ(V(K)):(H(K)2(N$(K))):218::K21N:V(K2):H(K2):N$(K2);:K2:0A$(5)Ģ(V(K)):(H(K)2(0):X0X65563X.K9((X1000)RL)NR1:K90ė:G$;G$;G$;"SORRY -- I CAN NOT HOLD ANY MORE I RECOMMEND YOU START A NEW FILE.";:I15000:I:2190.Q$" Record space left = "(K9). A$"":I$"":21:1:868::ED$;::Q$;:b/ 22:**************************-- ENTER DATA[-340:350:900:500:SW1:ED$"ENTER DATA"e-2180-*********************************-::VV1:TT$P$:310:VV20:TT$U$:310:320:33,39:L1N::(V(L)):(H(L)):N$(L);::": ";A$(L);.L::XQ$"N"Q$"Y":1298i,D$"OPEN ";Y1$;",S"DS;",D"DD:D$"WRITE ";Y1$:N:RL:K1N:V(K):H(K):N$(K):K,D$"CLOSE ";Y1$:D$"LOCK ";Y1$:D$"OPEN ";Y$;",L"RL:D$"WRITE ";Y$;",R0":0:D$"CLOSE ";Y$:140-*********************************************Q1$"Y"1296+Q$"Y"Ģ20:2:G$;"CONFIRM INITIALIZATION OF DISK (Y/N)":2::"NOTE";::" THIS WILL DESTROY ALL FILES ON THIS DISK ";+Q$"Y"ľQ$:Q$;:Q$"Y"ĉ::12:9:"INITIALIZING DATA DISK":D$"INITXX,S"DS;",D"DD:D$"DELETEXX":1307, ";U$;G$;H$;:DS$:DS$:DS(DS$):DS0DS71294*20:2:868:"Enter drive for data disk: ";U$;G$;H$;:DD$:DD$:DD(DD$):(DD1)(DD2)01295*20:2:868:"Slot: ";DS;" Drive: ";DD;" Correct(Y/N) ";U$;G$;H$;:Q1$:Q1$;:Q1$"N"1294+68:"Enter name of file: ";G$;:"";Y$:Y$"MIF-"Y$:Y1$Y$"") 20:2:868:"Initialize data disk (Y/N) ";G$;:Q$:Q$:Q$"Y"Q$"N"1292) 20:2:868:"Insert data disk.";G$;" Press RETURN. ";:"";Q1$1*20:2:868:"Enter slot for data disk::N$(N);::21:1:868:SW3ı)(1070k(V20:H2:958:B$"SCREEN FORMAT OK (Y/N) ":560:Y$"N"1061}(Y$"Y"1280(20:2::"ENTER RECORD LENGTH (MAX = 250):";G$;::" ";RL$:RL(RL$):RL(3N)RL250Ģ20:1:868:1282=) NN1:20:2:8N$((36),2((37)))16(36),2((37))1))H'lIN$;:Y$Y$IN$:1116r'Y$Y$Y1$:Y(Y$):(N$(N))Y401250'21:1:868:"Name + position is too long";G$;G$;:K911000:K9:1:868:1080'Y1Y36H(N)Y:1270'1090(V(N):H(N)1::27:1114:Y$""1090 &Y12309&ZY$"":I0:G$;:1116C&[II2R&\IN$:II1f&^IN$(8)1126&`(Y$)0ĺG$;:II1:1116&bIN$;:(Y$)1Y$"":1115&dY$(Y$,(Y$)1):1115&fIN$(13)Č868:&hI2ĺG$;:II1:1116.'j(IN$)21IN;" name: ";:"";N$(N):(N$(N))0Ģ20:1:958:1280i%B20:2::"POSITION VER:";::" ";U$;U$;" ";%L:"HOR:";::" ";U$;U$;:21:2:868:"Field #";N;" name: ";N$(N);%V33,20:20:16:1114:33,38:V(N)(Y$):(Y$)2(Y$)19ĺG$:1090&X202142:W3(W2256):W1W2W3256:1013,76:1014,W1:1015,W3: SET UP & VECTOR JUMPhDG#"BLOAD CAT-MOD2"DH#W1(115)(116)256:W2W11002:W3(W2256):W1W2W3256DI#(W21)::"BLOAD MIF-SORT.OBJ ,A";W2DJ#"BLOAD COM.OBJ"EK#"NOMONIOC"::K77***yC(#W1(115)(116)256:W2W1266:W3(W2256):W1W2W3256: "W1" IS NOW ADDLOW, "W3" IS ADDHIGH, "W2" IS NEW HIMEMC2#(W2):"BLOAD MIF.OBJ ,A";W2: LOAD IN FIND AND DECODER SUBROUTINESC<#10,76:11,W1:12,W3: SET UP USR FUNCTION JUMPQDF#W2W",D";DR$(2))B_W1(115)(116)25612684B`(W1)wBb::G$;"Please back-up your data diskettes."G$;G$:: Bl PRINT "FP": REM END BvB *****************************************C*********************ADING REPORTER":"RUN MIF.REPORTER,S";DR$(1);" ,D";DR$(2):uA:12:10:"LOADING REPORTER":"RUN MIF.REPORTER":AX END AY:DR$(1)(((775)10)):DR$(2)((775)10((DR$(1)))):(775)(776)İ210 B]:D$;"BLOADCAT-ORG,S";DR$(1);N:V(K):H(K):N$(K):K:D$;"CLOSE ";SF$"":D$;"LOCK ";SF$""@XD$;"OPEN ";SF$;" ,L";RL:D$;"WRITE ";SF$;" ,R0":NR:K1NR:D$"WRITE ";SF$;" ,R";K:I$(K):K:D$;"CLOSE ";SF$:760@(775)05010@(775)(776)ĉ::12:210Y$"N"4325 >4210> PRINT FIELD NAMES AND SELECT FIELDS TO SEARCH ON (STORED IN 'I%(X)' STARTING IN 'I%(1)' )>:500:NRNR1:AV1:3030:W2(115)(116)2561>W2,I$(1),I$(NR),S$(0),P$(0),I%(0)>3070=?0AV0:::G$;"Would y22:28:868:G$;G$;::"ERROR"::J111000:J1:4250=((I%(J)2)4((I%(J)2)(I%(J)2))):I%(J)(2(I%(J)2))Ė20:4310=2=:"S";J;" ";(N$(I%(J)),13);:=JJ1:>22:1:"Is the above information correct?";G$;:Y$:Y$;:Y$"Y"g fields: ":K1N2:2:K;". ";(N$(K),13);:20:K1;". ";N$(K1):Kz<22:1:"Enter field # to sort on:";:J1:IC1N<22:28:868:G$;:"";Y$:Y$""IN:4320<I%(J)(Y$):I%(J)NI%(J)0<J20J1:I%(J)I%(J2)I%(J)07=J2:I%(J)1BROUTINE-;340:350:900: GET FILE NAMEB;h DESIGN SORTER z;r::VV1:TT$" ":310:VV20:TT$" ":310:320:I$"";|21:1:868::"DESIGN SORTER";:25:"FILE: ";(FILE$,5,10);::N$(N1)H$H$H$H$" "E<2:2:"This file has the followinNR*: D$"CLOSE"FI$:I$(K)I$(NR1):3260z: TNRNR:NRK:TKK:2040:NRTNR:KTK:DC$"C":23:1:868:A$(17)I$(K)I$: F2%1:V21:H1:B$"SEARCH MORE (Y/N)":560:F2%0:Y$"N"KNR:3120: Y$"B"3120: Y$"Y"3260: K:3120; SORT SUV21:H1:B$"CHANGE OR DELETE (C/D)":560:Y$"C"3250H9 Y$"D"32009 V21:H1:B$"CONFIRM DELETION (Y/N)":560:Y$"N"32609 Y$"Y"32109 D$"OPEN "FI$",L"RL:D$"READ "FI$",R"NR:ZR$:D$"WRITE "FI$",R"K:ZR$:NRNR1: D$"WRITE "FI$",R0":OKEN RECORD PARTS AND ARE NOW ON SCREEN T8g ZF(A$(K8)):(0)A$(K8),S$,ZS,ZF3270]8h 610o8l PS$"Y"32708q :AV132608v S9132608w DC$"":V21:H1:B$"ALTER RECORD (Y/N/^N)":560:Y$"N"32608y Y$(14)S91:32608{ Y$"Y"319069 opping (Y/N) ";U$;H$;G$;:PS$:PS$.7+ SF3ı`70 ::S90:S$"":SE$;:710:S(S$):K3NR3120o7D SEARCH7N KK3NR:S$(1)31707X ZS1:ZF(I$(K)):(0)I$(K),S$,ZS,ZF3270(8b J30:KFK:I$(K),A$(1):K80İ610:3180A$(1 TO N) NOW HAVE THE BR0=6 5:1:"Print record number (Y/N) ";U$;H$;G$;:YR$:YR$6 NL0:6:1:"Enter line spacing between records: ";U$;U$;H$;H$;G$;:NL6 P90:"Supress lables? (Y/N)";G$;:Y$:Y$;:Y$"Y"P91:31106 Y$"N"Ģ7:1:3102"7& 1:8:"Print without st16T5 ::"FILE: ";(FILE$,5,20);::20:"Number records: ";::NR::34,1:AV1ı5 SP0:V3:H1:B$"OUTPUT TO SCREEN(S) OR PRINTER(P)":560:Y$"S"31155 Y$"P"30706 4:1:"Enter printer slot # ";U$;H$;G$;:SP$:SP$:SP(SP$):SP0SP73082::"POSITION VER:";::" ";U$;U$;" ";s"L:"HOR:";::" ";U$;U$;:21:2:868:"Field #";N;" name: ";N$(N);"V33,20:20:16:1114:33,38:Y$(2)V(N)0:"WV(N)(Y$):V(N)2V(N)19ĺG$:1090"X20:27:1114:Y$""1090"Y1230#ZY$""be utilized."!1060!4:2:"This screen will be used to design and view reported data. You will now design this screen to resemble an index card in whatever format you desire.":1031!$V21:H3:B$"PRESS RETURN TO CONTINUE":560::+"B20:(775)10((DR$(1))))i :12:10:"LOADING M.I.F.":799,(Y$):"RUN M.I.F. ,S";DR$(1);" ,D";DR$(2):o  !" The numbers along the border are to assist you in designing the screen. Note the '";::"*";::"'. These columns/rows are not to (I)(V(I))Z$(H(I))Z$(I):I:W2,R4$(1),R4$(N),S$(0),P$(0),I%(0):I1N:R4$(I),R3$(1):P(I)(R3$(3)):I:************************************************************************:(775)(776)Ģ12:210 DR$(1)(((775)10)):DR$(2)(8:K16:8:K;". ";Y$(K)::K:X(0):X0X65536Xx>20:5:"Enter choice: ";G$;U$;H$;:Y$:Y$:(Y$)1(Y$)6830H(62(Y$)):8::(Y$);". ";Y$((Y$)):K01300:K0::(Y$)1000,1000,1000,1000,5000,7000oI%(1)1:I%(2)2:I%(3)3:I1N:R4$:1:K140:" ";:K:2:K223:K:1:" ";:40:" ";:KSW2(115)(116)2561 ::K16:Y$(K):K: "INITIALIZE FILE","ENTER INFO","RECALL/CHANGE/PRINT INFO","SORT/PRINT INFO","REPORTER","END":2:7:C$:3:17:"presents"4 5:7::T$::8):711IN$(15)712/:SP0ė:3080;:3070JK30K31P***************************************************************************************************************** MENU8:::340:105:1::K140:" ";:K:23he list of fields are:":I1N:(((7I)2)):(3(18((I2)I2))):I;". ";:(N$(I),10);:I:::K(37):K22ĺ::K22G$;:"Input # of the field to search in: ";IN$:K8(IN$):(K81)(K8ZZ)ĢK1:1:958:725:"Enter search string for ";N$(K718(S$)0ĺG$;:7119IN$;:(S$)1S$"":711SS$(S$,(S$)1):711(IN$)21IN$((36),2((37)))16(36),2((37))1))IN$(13)K31:868:IN$;:S$S$IN$:711IN$:IN$(17)ġ:250IN$(27)730x:"T0ĺD$"PR# ";SP734,23:K21NL::K2:20:1:34,1GD$"PR#0":o**********************************BA010:BU(BA)0:BA:BA1:K80:722IN$:IN$(17)ġ:250IN$(26)ĺ:"Starting at record # ";IN$:K3(IN$):740IN$(8)):(H(P(K2))):P90Ğ:N$(P(K2));::": ";T{V(P(K2))V(P(K21))ĺA$(P(K2));:650cA$(P(K2))kK2zF6$"G"ıD$;"PR#0":22:1::"FILE: ";(FILE$,5,10);::YR$"Y"ĺ:D$;"PR# ";SP22:20:"Record# ";::KF;::" of ";NR;" "NL20:310:320::3308c32,1:33,38:34,1:35,19:::eBA10BA1: DON'T USE 'BA' FOR ANYTHING OTHER THAN FOUND UPDATE INFORMATION lBABA1:BU(BA)KF:SP0ĺD$"PR# ";SPv20:K21N:SU(K2)SU(K2)(A$(K2)):V(P(K2))0650*y(V(P(K2))N"10000!H':"NOW SAVING FILE"AH'D$;"UNLOCK ";SF$"":4430Y$:Y$:760~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/200ZGD'ER10ĺ"FILE NAME HAS BEEN USED":"DO YOU WISH TO RENAME FILE?";:A2$:A2$:10210GL'"?? -- ERR # ";ER;" AT LINE # ";(218)(219)256G':"SEE MANUAL FOR ASSISTANCE"::"HIT RETURN TO CONTINUE ";:Y$:Y$:760G'A2$"Y"ė:4420H'A2$"UMBER OF SEPARATE PARTS IN RECORD?F[#************************YF'ER(222):ER255760rF':10:1:"ERROR: ";F$'ER9ĺ"DISK IS FULL --":10200F.'ER8ĺ"I/O PROBLEM --":10200F8'ER42ĺ"OUT OF DATA --":10200GB'ER77ĺ"OUT OF MEMORY --":105799:K,0:K:-EO#************************!FP# SYNTAX FOR FIND IS; USR(0),,, -- RETURNS "TRUE" (1) OR "FALSE" (0) -- NOTE; "@" IN SUBS ARRAY, STARTING AT "STARTING SUBSCRIPT" -- USUALLY "1" -- ENDS AT N CAL":D$;"OPEN TEMP":D$;"WRITE TEMP":RN$:D$;"CLOSE TEMP":D$;"EXEC CAL":224:34,23:D$;"OPEN TEMP":D$;"WRITE TEMP":RN$:D$;"CLOSE TEMP":RN$"MIF-"RN$:D$;"EXEC";RN$"":210000Q3CAL1:340:10:D$;"OPEN TEMP":D$;"READ TEMP":"";RN$:NF(K1))"+.5)/10^"(NF(K1)):LNLN1:IX1D$;"OPEN SCAL":D$;"WRITE SCAL":K1:CI:RL1I1K1:N$(I):FF$(I):NF(I):V(I):H(I):I1D$;"CLOSE SCAL"1D$;"OPEN CAL":D$;"WRITE CAL"M2ICIK1:FL$(I):I:(LN)"RETURN":"RUN 5600":D$;"CLOSEY$"N"ė:5260:SCREEN NOW DESIGNED.70}Y$"Y"55000::12:10:"I'LL BE RIGHT BACK":24:34,23:CAL0FL$(I)"8000 REM":LN8001'1CAL0LN8000:NCK1CI1:ICIK1:FF$(I)"F("(I)")="FL$(I):FL$(I)(LN)"F("(I)")=INT(("FL$(I)")*10^"($;:" ";Y$:NF(K1)(Y$):51609/PK1K11:340:530:1040j/U1:22:" ^B for no printing of this field";/ZQCI1:I1Q:NF(I)I:I/dI1K1:FF$(I)"?":I/N1K1:19:1:868:1090:N%0|22:1:868:V20:H1:B$"SCREEN FORMAT OK? (Y/N)":560:o refer to field";O.722:1:"Enter formula for ";N$(K1);": ";G$;:"";FL$(K1).822:1:958:G$;"CHECK FORMULA -- IS IT CORRECT? (Y/N)";:23:1:"F(";K1;")=";FL$(K1);:Y$:Y$;:Y$"N"5172.9Y$"Y"5176/<22:1:958:"Enter decimal accuracy";GFIELDS-(K1K11:22:1:868:"Enter name: [";G$;K1;"]";:N$(K1):(((7K1)2)):(3(18((K12)K12)))--(N$(K1))05200-2K1;". ";::(N$(K1),10);:.422:1:958:24:1:"Use 'F(# OF FIELD)' t20:K1;". ";N$(K1):Kh,32,0:K1N:22:1:"Want calculated fields(Y/N) ";G$;:Y$:Y$:Y$"Y"5157z,Y$"N"5140,#Q1K1:K1K11:CIK1:CAL0:5200 NO CALCULATEE FIELDS-%CIK11:CAL1: SAVE STARTING INDEX OF CAL FIELDS -- SET FLAG FOR CAL. :+::VV1:TT$P$:310:VV20:TT$U$:310:320:330:I$""+32,0:33,40:21:1:868::"DESIGN REPORT";:25:"FILE: ";(FILE$,5,10);:32,1::N$(N1)H$H$H$H$" ",2:2:"This file has the following fields: ":K1N2:2:K;". ";(N$(K),13);:PORTER FORMAT FILES ON DISK";G$;G$:K13000:K:5028l*::H(37)1:"Select file name:";R4$(K);G$;:XF$*XF$(13)Ğ:H:18:R4$(K)::RN$R4$(K):5580*KK1:K0Ė18:H:868:H:18:R4$(K);G$;:XF$:5025*KY2:5026*NR$"X":500:SW3:868:BA010:BU(BA)0:BA:BA1:>)IN$;:S$S$IN$:4000O) REPORTERg)340:350::V(37))V:1:"Would you like to use a predefined":"reporter file (Y/N)?";G$;:S$:S$;:S$"N"ĺ:5028)S$"Y"50215*KY21:Y20ė:12:3:"NO RE"Print without stopping (Y/N) ";U$;H$;G$;:PS$:PS$>(+ 5672G(IN$[(IN$(8)4010s((S$)0ĺG$;:4000(IN$;:(S$)1S$"":4000(S$(S$,(S$)1):4000((IN$)21IN$((36),2((37)))16(36),2((37))1))$)IN$(13)K31P$):SP0SP73080O' 5:1:"Print record number (Y/N) ";U$;H$;G$;:YR$:YR$' NL0:6:1:"Enter line spacing between records: ";U$;U$;H$;H$;G$;:NL' P90:"Supress lables? (Y/N)";G$;:Y$:Y$;:Y$"Y"P91:3110' Y$"N"Ģ7:1:31024(& 1:8:827,15:856,58:816f& ::"FILE: ";(FILE$,5,20);::20:"Number records: ";::NR::34,1:AV1ı& SP0:V3:H1:B$"OUTPUT TO SCREEN(S) OR PRINTER(P)":560:Y$"S"3115& Y$"P"3070' 4:1:"Enter printer slot # ";U$;H$;G$;:SP$:SP$:SP(S:O% ***********************************************************************t% ::10:5:"Reading in data..."% N1NR:SW2:D$"OPEN ";FILE$;",L";RL:K1NR:10:24::K:D$"READ ";FILE$;",R";K:I$(K):K& D$"CLOSE ";FILE$:827,126:856,44:816:((37)))16(36),2((37))1));$lIN$;:Y$Y$IN$:1116[$Y(Y$):(N$(N))Y401250$21:1:868:"Name + position is too long";G$;G$;:K911000:K9:1:868:1080$Y1Y36H(N)Y:1270$1090%V(N):H(N)1::N$(N);::21:1:868:I0:G$;:1116#[II2(#\IN$:II1<#^IN$(8)1126Z#`(Y$)0ĺG$;:II1:1116y#bIN$;:(Y$)1Y$"":1115#dY$(Y$,(Y$)1):1115#fIN$(13)Č868:#gIN$(2)Y$IN$:868:#hI2ĺG$;:II1:1116!$j(IN$)21IN$((36),2P": REM END -BvB ****************************************************************************************************************B@F(6)((F(3)F(4))102.5)102BAF(7)((F(3)F(4)F(6))102.5)102BB8CC F(SF)(W$(T4))5918!A55919'AW3AX ENDAY:DR$(1)(((775)10)):DR$(2)((775)10((DR$(1)))):(775)(776)İ210A]:D$;"BLOADCAT-ORG,S";DR$(1);",D";DR$(2)Ab::G$;"PLEASE BACK-UP YOUR DATA DISKETTES."G$;G$:: 'Bl PRINT "F@%T3?@&T7āICIQ1:A$(I)(F(I)):I:KFK:NQ1:610:5928O@'KK1:5905|@(PS$"Y"KK1:5905: FOUND AND PRINTED@):V21:H1:B$"SEARCH MORE (Y/N) ":560:Y$"N"5670@*Y$"Y"5929@+KK1:5905@/F(SF)(W$(T4))5918@05919A4?5919?T70:T3"?T71:T38?T6$"1"T6$:5920H?T6$"0"T6$V? T75923?!T70:T8((T6$,1)):T9((T6$,2,1)):T6$(T6$,(T6$)2):T8T9T6$"1"T6$:5923?"T6$"0"T6$?#T4T41:T3@$T2(T6$):T71:T3T1T2:((T6$,T3,1))0T70Z:A$(I)R1$(NF(I)):F(I)(R1$(NF(I))):I:8000>T2(W$(0)):T11:T46:T6$"1":T70:T3T1T2:T5((W$(0),T3,1)):T55909,5911,5913,5935,5940,5915,5916:>F(SF)(W$(T4))5918>5919>F(SF)(W$(T4))5918>5919>F(SF)(W$(T4))5918: FOR NO CAL FIELDS6=KFK:NQ1:610:PS$"Y"5770o=:V21:H1:B$"SEARCH MORE (Y/N) ":560:Y$"N"5670=Y$"Y"5820=5770= S$(1)S$"@":5760: PRINT ALL RECORDS=W$(0)(W$(0),(W$(0))1)=KNR5670.>I$(K),R1$(1):I1Z******************************************************S<I$(K),R1$(1):K805798<ZF(R1$(K8)):(0)R1$(K8),S$,1,ZF5770<CAL1āI1ZZ:A$(I)R1$(NF(I)):F(I)(R1$(NF(I))):I:8000:ICIQ1:A$(I)(F(I)):I:5810=I1Q1:A$(I)R1$(NF(I)):I";:5::"OR":5704C;`W$"7":H6:1::"AND";:5::"OR"::5704V;b(RN$)3UT1;dZZCI1::S$"":SE$;:710:K3NR5670;lKK3:K0K1;v(CAL2)(S$(1))5900;ZF(I$(K)):(0)I$(K),S$,1,ZF5790;KK1:(KNR)57606<5670:***** to continue logic function":"Which? ";P:SS$:H8:1:958:S$(13)ĺ:5740:TS$(26)Ą"Starting at record # ";S$:K3(S$):5740:UII1:K75703:WH6:9:"<--- USE 'ESC' TO CHANGE";:XK91K90:5728:YK91;_W$"6":H6:1::"ANDS$(27)5720,9MS$(13)K6ĺ"?":5703U9NS$(13)W$(K)W$(K1):W$(K):5713m9PS$;:4000:W$(K)S$(:QHI:1:W$(I);:3:W$(K);:KK1:W$(0)W$(0)W$(I):H8:1:"Hit to search all":" <^Z> to select starting record":" > TO CONT";:56898D:W$"6":W$(0)"":K6:SFI:"ENTER SEARCH LOGIC FOR FIELD: ";::(N$(SF),10)::::H(37):I15:W$(I):I:I18GI6I18H:HI:W$(I);:868::3:S$8I((S$)45(S$)57)(S$)27(S$)13Ė1:W$(I);:1:II1:57039JI2))):I;". ";:(N$(I),10);:I:ICI::K(37):K22ĺ::K2278KK1:K:" Hit to see formulas. Hit to continue. "79S$:S$(13)ė:56807:1:K:958:FF$(I):II1:IQ1ICI8;1:1:" FOR FORMULAS : #":W$(3)"< #":W$(4)">=#":W$(5)"<=#"60ZZCI1:"Would you like to search for result of":"a calculated field?(Y/N) ";G$;:S$:S$:S$"Y"CAL2:ICI::H(37)1:"Se(115)(116)256184NQ1:900:F$"":I0:Q1CICAL0M4(778I)05660o4F$F$((778I)):II1:56304FILES$F$:500:NRNR1:NR0ė:10:7:G$;G$;"THERE ARE NO RECORDS DEFINED"::3:"GO TO 'ENTER INFO' MODE TO ENTER DATA":I15000:I:260D$;"CLOSE TEMP":D$;"DELETE TEMP":(RN$)3ĺD$;"OPEN SCAL":D$;"READ SCAL":5610}3D$;"OPEN MIF-"RN$:D$;"READ MIF-"RN$3Q1:CI:RL:I1Q1:N$(I):FF$(I):NF(I):V(I):H(I):I3(RN$)3ĺD$;"CLOSE SCAL":56253D$;"CLOSE MIF-"RN$4W2ҠȚŠȠĚŚȚ'K'"?? -- ERR # ";ER;" AT LINE # ";LIuK':"SEE MANUAL FOR ASSISTANCE"::"HIT RETURN TO CONTINUE ";:Y$:Y$:760K':"IN RECORD # ";K;" / FORMULA # ";LI7999:10200ER133ĺ"DIVISION BY 0 ":10210DJj'ER163ĺ"TYPE MISMATCH":10210|Jt'ER191ĺ"FORMULA # ";LI7999;" TOO COMPLEX":10200J~'ER224ĺ"UNDEFINED FUNCTION"::"IN FORMULA # ";LI7999:10200J'ER107ĺ"BAD SUBSCRIPT"::"IN FORMULA # ";LI7999:10200DISK IS FULL --":10200:I.'ER8ĺ"I/O PROBLEM --":10200^I8'ER42ĺ"OUT OF DATA --":10200IB'ER77ĺ"OUT OF MEMORY --":10200IL'ER53ĺ"ILLEGAL QUANTITY AT RECORD # ";K:10200IV'ER16LI7999ĺ"SYNTAX PROBLEM IN FORMULA # ";LI7999:10200 J`' STARTING AT "STARTING SUBSCRIPT" -- USUALLY "1" -- ENDS AT NUMBER OF SEPARATE PARTS IN RECORDH[# **********************************************************************H'ER(222):LI(218)(219)256:ER255760H':10:1:"ERROR: ";I$'ER9ĺ"T LOCATION>, -- RETURNS "TRUE" (1) OR "FALSE" (0) -- NOTE; "@" IN SUBSTRING WILL MATCH TO ANYTHING DURING SEARCH^HZ# SYNTAX FOR DECODER IS; &,)> -- RETURNS EACH PART OF RECORD IN SUBSTRING ARRAY,:W2W11002:W3(W2256):W1W2W3256QFI#(W21)::"BLOAD MIF-SORT.OBJ ,A";W2xFK#"NOMONIOC"::K775799:K,0:K:FO# **********************************************************************~GP# SYNTAX FOR FIND IS; USR(0),,CDDCEbC************************C4!J1N:SU(J)0A$(J)"0":8515: NOTE THAT U8 = 0 IF ALL FIELDS = 0C>!A$(J)(SU(J)):U81CC!J:U80ı9DH!F6$"G":21:1:958::D$;"PR# ";SP:"FIŠȚԠŠԚŚٚҠӚĚΚʚ ōӍٍōЍōōӍPCgheeͰ0ͯ0`a0{)ߑ z#???????   Р !ƭԮʠ"ͮʠԠƭӂƭӠƭӨҩƭӨҩ Ǡ1Ǡ1ͮɮƮBƮҠEƮʠԭIJ ԭǠҠӠӠӍӍ     ԠD  (768)0Āj ":"...LANGUAGE CARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS REBOOTED..."p ,A6: 769 (768)1250% I --IF THERE, LOAD INTG AND PA#1P 10:"(LOADING INTEGER INTO LANGUAGE CARD)" "BLOAD INTBASIC,A$D000" --WRITE PROTECT THE CARD A(16254): $C082  --NO CARD OR CAN'T RELOA804,0:805,208:806,208:807,10:808,173:809,129:810,192:811,173:812,129: s813,192:814,169:815,1:816,208:817,2:818,169:819,0:820,141:821,0: x822,3:823,104:824,205:825,0:826,224:827,240:828,3:829,173:830,128: }831,192:832,9,104:W _777,72:778,205:779,0:780,224:781,208:782,35:783,173:784,131:785,192: d786,173:787,131:788,192:789,169:790,165:791,141:792,0:793,208:794,205: i795,0:796,208:797,208:798,19:799,74:800,141:801,0:802,208:803,205:N nōӍٍōЍōōӍٍƨƨƨƨԨƨƨ޲޲΍Π  ōӍٍōЍōōӍٍƨƨƨ ƨԨƨƨ޲޲΍Π  HLIVLIHGRHGHCOLORHPLODRAXDRAHTAHOMROTSCALESHLOATRACNOTRACNORMAINVERSFLASCOLORPOVTAHIMEMLOMEMONERRESUMRECALSTORSPEEDLEGOTRUIRESTORŦGOSURETURRESTOOWAILOASAVDEPOKPRINCONLISCLEAGENETABTFSPCTHEANOSTEЫANOҾSGINABUSFRSCRNPDPOSQRNLOEXCOSITAATPEELESTRVAASCHRLEFTRIGHTMIDNEXT WITHOUT FOSYNTARETURN WITHOUT GOSUOUT OF DATILLEGAL QUANTITOVERFLOOUT OF MEMORUNDEF'D STATEMENBAD SUBSCRIPREDIM'D ARRADIVISION BY ZERILLEGAL DIRECTYPE MISMATCSTRING TOO LONFORMULA TOO COMPLECAN'T CONTINUUNDEF'D FUNCTIO ERROR IN BREAKɁ! i` Ӆmn8囅^圪#8^Ɨ8^ƕƗƕ` i65^^.`p(o"H H h0hhpo`M$L Z۽`H \h ֩P :ۤv  ڢ .ՆF v YLئij YՄ ֐D_i^aeii`jij圪8iae^_^`_a8stopiejȄ ӥPQmnij e֥gh^_^ ijL<Ԡȱ^Șe^^_iȑ^^_Ң3 j )` )`ʠ$hh eL$p "tpM?E0<=Ѕυ 8ɀA N4O0Ťș98:I8xІș Нƹ`ghȥQћ Pћ `֨gȑggiihij ֩*stopijklmn IآURhhHHz`gihi` ,  ,Є hhPQPQD X ȱȱQP- $ ) \ۥ$! ک$ȱȱж \L枱`8Єτ ,0 \ ,0 \ \۩ И F eihh eHiHvHuH j gݥ %ׅ^_L ީ  g ޥHHH XإvyzW4ȱuȱve$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$L?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơhL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅ $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаHٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }LޢL               "&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI1& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` Ӎ$ H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  / ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ hL  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  ׅ ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$L?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơhL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅ $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаHٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }LޢL               (F$)0FILE$F$:K30:K#K0AR3$(K)(FILE$,5,20)430VKK1:KY1426aKY11:H(37)1:"Select file name:";R3$(K);G$;:XF$XF$(13)FILE$"MIF-"R3$(K):440XF$(27)760 KK1:K0Ė18:H:868:H:18:R3$(K);G$$(13)352~760;IR2R1:(I)2F$((I))F$:Il(F$,3)"(R)"R4$(Y2)F$:Y2Y21:F$"":388R3$(Y1)F$:Y1Y11:F$""IR1ĂIY10381KY11:I0:F$"":(778)0430K130:(777K)0420F$F$((777K)):K"w|R1(111)(112)2561:D$;"CATALOG,S";DR$(3);",D";DR$(4):R2(111)(112)2561:Y10:Y20:F$"":(R1R2)2383 }G$;"Sorry, no files on this disk."::"Insert another disk and hit return to continue search. Hit 'ESC' to abort.";:Y$:Y$:Y8(l:DR$(J):VV1:JJ1:J4J1:V7?nJ358,358,359,359p775,(DR$(1))10(DR$(2)):776,(DR$(3))10(DR$(4))::1:5:r(775)(776)DR$(0)"SAME":12:200w::"The following is a list of M I F filesthat are defined on this disk.$(4):H23:V7:J1Jf1:9:"D A T A DISK";:1:7::"PROGRAM DISK";:360}g1:7:"PROGRAM DISK";:1:9::"D A T A DISK"hG$:H:V::DR$(J);:H:Y$:(Y$)0:DR$(J)Y$:364jY$(13)ĝ:DR$(J):1:7:"PROGRAM DISK";:1:9:"D A T A DISK";:36$(1)))):DR$(3)(((776)10)):DR$(4)((776)10((DR$(3)))):"Use 'SPACE BAR' to select Drive & Slot"::"Hit 'RETURN' to continue program"e:"PROGRAM DISK: SLOT # ";DR$(1):15:"DRIVE # ";DR$(2):"D A T A DISK: SLOT # ";DR$(3):15:"DRIVE # ";DR678901234567890123456789012345*****":T$"M E M O I N D E X F I L E":C$"COMPUTER DATA SERVICES, INC.":Y**********************************^(775)0Ĺ775,(18441).6251:776,(775)1`:3cDR$(1)(((775)10)):DR$(2)((775)10((DR(95)USE$"'^O'= Output change (FIRST if wanted) 'ESC'= Search on field (FIRST if wanted)'^Q'= Quit '^A'= All records '^Z'= Specify record to start at (LAST) Enter characters to search on:"M$G$iVA$"123456789012345678*****":A1$"*23458**********************************Z@:K1120:K1:1:" ";:40:" ";:K1::23:1:E**********************************J33,38:32,1:34,1:O **********************************TZ$(26):D$(4):G$(7):H$(8):M$(13):P$(45):U$"D$;"DELETE SCAL":D$;"DELETE CAL"- '760@ , SUBROUTINESh .********************************** 1DR$(1)(((775)10)):DR$(2)((775)10((DR$(1)))):DR$(3)(((776)10)):DR$(4)((776)10((DR$(3)))): 6VV::KK140:" ";:KK::%d you like to save reporter format?":"(Y/N)";G$;:S$:S$;:S$"N"ĺ:290Z S$"Y"270 :"Enter name that you want to call this REPORTER file:";RN$:RN$"MIF-"RN$"(R)":D$;"RENAMESCAL,";RN$:RN$RN$"":D$;"RENAMECAL,";RN$:D$;"LOCK";RN$:295$ Y$(17)A$Y$:: Y$(13)āK2(36)1EN:" ";:K2:T (36)1ENĺG$;:222k Y$;:A$A$Y$:222 (A$)0ĺG$;:222 Y$;:(A$)1A$"":222 A$(A$,(A$)1):222 UT0AV0ī760 AV14400 (NR$)3760I ::4:"Woul :G$:"INSERT PROGRAM DISK AND HIT 'RETURN'";::Y$:| A$"":EN39:K21N:V(K)V(K2)H(K)H(K2)H(K2)ENENH(K2)1 K2 Y$:Y$(13)ı 223 Y$ Y$(8)230 Y$(21)Y$((36),2(37))16(36),2(37)1)) Y$(5) n::340:G$;G$:4:7:T$:7:9:"COMPUTER DATA SERVICES":8:7:"Copyright 1981, C.D.S.,INC.":10:7:"BY: Michael D. Weinstock" o11:11:"David L. Watford":9000 801,0:802,0:760 :G$:"INSERT DATA DISKETTE AND HIT 'RETURN'";::Y$:9@216,0:10000 109- SW3:105:fiV(30),H(30),N$(30),A$(30),P(30),S$(30),P$(30),F(10)jR3$(30),R4$(30),BU(12),I$(250),F1$(20):lONERR GOTO 760m(799)0(799)5Ľ:340:105:W2(115)(116)2561:(799)1000,2000,3000,4000                            *****************************e0V:H:868::B$;G$;::Y$:Y$;:Y$"B"F2%1BABA1:BA1BA10r1F2%0ı2Y$"B"BU(BA)0KBU(BA)1:Y$"Y":BABA135**********************************bBU(0)0DC$"C"ĉ:::VV1:TT$" ":310:VVD$"OPEN ";FILE$;",L"RL@D$"READ ";FILE$;",R0":NR:NRNR1ZD$"CLOSE ";FILE$:: **********************************::2:A1$:24:A1$;&K222:K:1:(A$,K,1):K:K222:K:40:(A$,K,1):K:4:6::330:35,22:+*****6K1(FILE$):777K,((FILE$,K,1)):K:777K,0OD$"OPEN ";FILE$""D$"READ ";FILE$"":N:RL:K1N:V(K):H(K):N$(K):KZZN:801,(RL100):802,RL100(RL100)D$"CLOSE "FILE$"":**********************************(FILE$,5,20)430'KK1:KY14262KY11g:H(37)1:"Select file name:";R3$(K);G$;:XF$XF$(13)FILE$"MIF-"R3$(K):440XF$(27)760KK1:K0Ė18:H:868:H:18:R3$(K);G$;:XF$:432KY1:434:H:18:R3$(K):((I))F$:I=(F$,3)"(R)"R4$(Y2)F$:Y2Y21:F$"":388ZR3$(Y1)F$:Y1Y11:F$""gIR1ĂIuY10381KY11:I0:F$"":(778)0430K130:(777K)0420F$F$((777K)):K(F$)0FILE$F$:K30:KK0R3$(K)$(3);",D";DR$(4):R2(111)(112)2561:Y10:Y20:F$"":(R1R2)2383}G$;"Sorry, no files on this disk."::"Insert another disk and hit return to continue search. Hit 'ESC' to abort.";:Y$:Y$:Y$(13)352~760 IR2R1:(I)2F$358,358,359,359Vp775,(DR$(1))10(DR$(2)):776,(DR$(3))10(DR$(4))::1:5:r(775)(776)DR$(0)"SAME":12:200w::"The following is a list of M I F filesthat are defined on this disk."H|R1(111)(112)2561:D$;"CATALOG,S";DR:7::"PROGRAM DISK";:360Ng1:7:"PROGRAM DISK";:1:9::"D A T A DISK"hG$:H:V::DR$(J);:H:Y$:(Y$)0:DR$(J)Y$:364jY$(13)ĝ:DR$(J):1:7:"PROGRAM DISK";:1:9:"D A T A DISK";:368l:DR$(J):VV1:JJ1:J4J1:V7nJ10((DR$(3)))):"Use 'SPACE BAR' to select Drive & Slot"::"Hit 'RETURN' to continue program"e:"PROGRAM DISK: SLOT # ";DR$(1):15:"DRIVE # ";DR$(2):"D A T A DISK: SLOT # ";DR$(3):15:"DRIVE # ";DR$(4):H23:V7:J1f1:9:"D A T A DISK";:1":T$"M E M O I N D E X F I L E":C$"COMPUTER DATA SERVICES, INC.":n Y********************************** ^(775)0Ĺ775,1061:776,1062 `:3_cDR$(1)(((775)10)):DR$(2)((775)10((DR$(1)))):DR$(3)(((776)10)):DR$(4)((776)FIRST if wanted) 'ESC'= Search on field (FIRST if wanted)'^Q'= Quit '^A'= All records '^Z'= Specify record to start at (LAST) Enter characters to search on:"M$G$F VA$"123456789012345678*****":A1$"*2345678901234567890123456789012345********8 @:K1120:K1:1:" ";:40:" ";:K1::23:1:` E**********************************y J33,38:32,1:34,1: O ********************************** TZ$(26):D$(4):G$(7):H$(8):M$(13):P$(45):U$(95) USE$"'^O'=Output change ((R)":D$;"RENAMESCAL,";RN$:RN$RN$"":D$;"RENAMECAL,";RN$:D$;"LOCK";RN$:295v "D$;"DELETE SCAL":D$;"DELETE CAL" '760 , SUBROUTINES .********************************** 6VV::KK140:" ";:KK:: 8*******************************NSERT PROGRAM DISK AND HIT 'RETURN'";::A$:@ UT0AV0760R (NR$)3760 ::4:"Would you like to save reporter format?":"(Y/N)";G$;:S$:S$;:S$"N"ĺ:290 S$"Y"270O :"Enter name to save REPORTER under:";RN$:RN$"MIF-"RN$"C 216,0! :::105:50001 SW3:105:riV(30),H(30),N$(30),A$(30),P(30),S$(30),P$(30),F(35),RL$(30)jSU(30),R3$(30),R4$(30),BU(12),I$(250),FL$(30),FF$(30),NF(30)::G$:"INSERT DATA DISKETTE AND HIT 'RETURN'";::Y$:- :G$:"I                                     и`  H  ߦ   ʆ    @     թ h ` ߠȱȱ ߩ5ȥȥim ۭ=Hƴɂ 3hiHopoƴ)ohۭ=ȴ ȴ)  紅D贅E B  ȱօȱօڅۅ  Ԫ֑ԊiՅ8ׅȄIqqᨱȱȱѠ( @00```@0@0@00ä?0 0 ҅ԥӅեЅ֥х8ԍՍnnffޥԅХՅхӥТeސ8Ұ 8ҰӠҍȱ҅ȱ҅܅݅ ԅҥՅӥօХׅѥ֦0$ Ҥ ֤ Ԥ Ф ԍȱԅȱԅڅۅ  iՅ֍iiLstiLstiLsti:LsiEti    ߅iڐȄ ߅iܐȄ ߅ Ѕ o`Є ҄Ҧi.4HH8oopphoho`oHȱoHoiopiphh`D٥҅ޥӅߠҍȱ҅ȱ҅܅݅ ަi߅ Uލȱޅȱޅڅۅ  ҪޑҊҦiӅ`LЅop8!ʅop o!! ! ! 0-oHpHo,opptoshpho`~oL"