' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 7777777 7777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#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 < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`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- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`9F/= "D$(0,51):P8S,35,4,"Range = "D$(0,52):2299I1N(D$(C,I1)SP$D$(C,I1)SP$)įP8S,35,3,"Unable to calculate. You must enter a value":P8S,35,4,"in the empty column in entry #"(I11)".":J0:2299-J(((NX2SX2)100.5)100)(((NY2(I)(D$(0,I))::NSRT,S,MAX:MD(MAX2.5):MXS(MD1):(MD2MAX)MX(MXS(MD))2kMAX1MX(D$(0,0))1TCLR,35,3,79,3:MC(1)1D$(0,50)(SXMAX):D$(0,51)(MX):D$(0,52)(S(MAX1)S(0)):RJS,D$,1:P8S,35,2,"Mean = "D$(0,50):P8S,35,3,"Median ]TCLR,35,2,79,4:P8S,35,3,"Calculating...":I(0):SX0:SY0:X20:Y20:XY0:N(D$(1,50)):D$(0,N1)""D$(1,N1)""NN1I0N1:X(D$(0,I)):Y(D$(1,I)):SXSXX:SYSYY:X2X2X2:Y2Y2Y2:XYXYXY:RMC(1)1MAX(D$(1,50)):I0MAX1:S,11,"Do you want to:":ME$(0)"Save this data to the Clipboard":ME$(1)"Throw out this data":MENU,ME$,2,37,13,(13)(27),1,1,CU,EC:CU1EC27įP8S,37,13,"-->":K2200:500*H$T3$:EXCUEC27::RAV,D$:D$(1,53)3TCLR,0,2,79,21:LELE1:[A)" ":D$(1,0)" ":I149:C01:D$(C,I)"":::RJS,D$,1I10:I30:EX11:E$E$(1):28200:MAX(D$(1,50)):I$"":2300:TCLR,33,6,79,20:CU0:H$"":T$""CU1:EC13:2090 E$E$(5):28200:I$TI$:28500:K1:D$(0,50)""D$(0,53)""K0P8S,359,3," 'Y' |"P8S,0,5,DL$:P8S,4,4,"# | Value |":P8S,7,5,"|----------|":MC(1)2įP8S,19,4," Value |":P8S,29,5,"|"9CNN,D$,K:K0įP8S,35,3,"Clipboard contains non-numeric data":P8S,35,4,"Enter data from keyboard":D$(1,50)"1":D$(0,0$T2$:28200:2020vEC272099:MC(LE)1įTCLR,0,23,79,23:LM0:TM3:28000:T1:ZD2:WP0:33000:LVA,"CLIP.BIN",D$D$(1,50)""D$(0,0)" ":D$(1,0)" ":D$(1,50)"1"RJS,D$,1:T3$H$:TCLR,0,3,79,20:P8S,2,3,"Entry| 'X' |":(MC(1))2įP8S,1lculate the "K$" for up to 50 entries.":P8S,0,5,"If you use Clipboard data, any empty fields will be converted to 0.00.":P8S,0,7,"How will you enter the data?":LELE1:ME$(0)M$(2):ME$(1)M$(3):ZN222000:EC63EC47İ3000:LM3:TM4:BM18:RM76:TLM,TM2,RM,BM:LELE1:20200:T(EC63EC47)1:E$E$(1):T2000,3000:20300:LELE1:1000_T$"Calculator: "M$(MC(1)1):T2$T$:TCLR,0,2,79,21:28200:28500:K$"mean, median, and range":MC(2)2K$"correlation"P8S,0,3,"This program will caP8S,X,Y," "T$(2)" "::K0ĞP8S,X5(T$(2)),Y," "T$(3)" "::VP,6:HP,35:SLI,E2$,E2$,0,A$,0,EC:EC13EC27XE0:KK:XEK:T$"Calculator":E$E$(0):28200:ME$(0)M$(0):ME$(1)M$(1):ZN2:22000:EC27TM6:31100YKTCLR,5,2,79,4:XYbRJS,T$,1:I0:(T$(0),4)" .00"T$(0)""D$(C,I1)SP$:T$(0)SP$:I1llI1T$(1)"F"rxII3I4:J01:D$(J,I)""(D$(J,I),4)" .00"D$(J,I)SP$::K0:E2$(13)(8)(21)(27):XE11::K1Ğ |x ````l8|x0x0x| x0`0````0``0``v000xx x000000xx0x0xx0000 0``0 0x`0x |||| ||x|8l````|| x````8p`````lxx|| ` 8 x8x x<`x 0```xxxx| ```0``0`00`x000||0xxx||````` xxxxlUSJUSCNNOCNGCVSHSCECEPAUSHOOUNHOOSPACCWININkdkkkkkkkkkk#m-gxmmm*lmm5n`lllll~~~0` pvv0`0``0`000`~<~0000`` 0`xx0p0000xx 80,Ɉd`ɿɯ,p 詍0SɍpJ,p ,p0p@p) zp@p9p,p0 ,p0LoLo pLo ` ֩PyQ AL zppp`rpqp Rpqprp` ~L\pH)hJJJp` ` @BODFAFPARSNOJZ D`+ZD,ZED`>=?@3<>)=eA=?eA?A@ <><>=?`eZ a2 @Z@`)I) la`ee0iԐե0>J<@*IF[ 9[>P? Y4p >? Y!p =Y;Y<3Z?4Z)Z(Z'Z@A #Z  Z `@ i @ ȱ K[`,Y`D((955)):D2$",S"((956))",D"((957))",V"((958)):CZN$"":Z136:ZN$ZN$((ZSZ)):ZZ36((ZSZ1)0)::ZT(ZS):`:`(958)):ZN$"":Z136:ZN$ZN$((ZSZ)):ZZ36((ZSZ1)0)::ZT(ZS):``n0:1::ZEĺD$"BSAVEJUNK,A"ZS",L1"ZT$BWP(WP1):ZE4įTCLR,LM,TM,RM,BM:TMZP:HP,LM:"Please remove the write-protect tab from your":HP,LM:QT$(T)" diskette.":WP2:33055KE$ZE$:ZU0:ZM28200:L=VD1$",S"((953))",D"((954))",V" in drive "ZD;yZC3ĺ:HP,LM:"in the drive located at"::HP,LM:" Slot: "(ZL):HP,LM:" Drive: "(ZL1);"."ZM1:28200:MF0:P8S,0,21,L1$:30000:EC2733003$54915:31100.WRITE PROTECT CHECK3WP33099'8ZU1:ZETCLR,LM3,TM,MR,BM:ZVZE7ĢTMZP:HP,LM:"The volume number of this diskette must match the volume":HP,LM:"number as set in diskette support.":33055ZV(ZE7):TMZP:HP,LM:"Please insert your "QT$(T)" diskette for":HP,LM:"MECC "QN$;:ZC2ĺ"N$" program":HP,LM:"diskette.":33055ZA0ZF1ZAZBįTCLR,LM3,TM,MR,BM:P8S,0,21,L1$:TMZP:HP,LM:"Please insert the data diskette used":HP,LM:"at the beginning of this program.":33055ZF1T0ĴWP33075:LMML:E$ZE$:ZM28200:K"ZS:33200xF10:MRRM3:MRMR(MR80)79(MR79):ZB(ZS34)(ZS35)256:ZEĭ(TZT)QN$ZN$T0ZU0:ZF1:F11'T0(F11(ZS35)SDTZT)MF1įTCLR,LM3,TM,MR,BM:P8S,0,21,L1$:TMZP:HP,LM:"Please insert side "(48SD)" of your MECC "Q"Toolkit":ZP$"TOOLKIT"ZP$"MANAGEMENT"ZP$"FLIP"E$"Main Menu":33010p(902)ZP$"MAIL"E$"Mailbox"MLLM:ZP(BMTM)2:ZF0:ZE0:LMLM(LM4)3(LM4):ZD1(955)254įSET,(953),(954),(955)1SD:MF0 MF33013:ZEįRFL,"MECC$$DIS4499:JII314:P8S,5,JI3J6," |"SP$"|":MC(1)1įP8S,19,JI3J6,SP$"|"T Z `  D$(1,51)(MC(1)1):LM35:T1:ZD2:WP1:33000 TCLR,35,2,79,4 P8S,35,3,"Printing file to Clipboard" !I(0) &SVA,"CLIP.BIN",D$ WTCLR,33$,E3$,0,A$,0,EC:EC127T$(0)(T$(0),(T$(0))1):JJ1:320j (16287)128(16286)128EC27310:p  I4I314:I449I449 700:II3I4:P8S,5,II3J6,(" "(I1)"|",J3)D$(0,I)"|":MC(1)1įP8S,19,II3J6,D$(1,I)"|"N :I314I11:P8S,X,Y,T$(0)"_"SP$:VP,0:SLI,E2$,E2$,0,A$,0,EC:KJ:J9:A$":"A$"-"A$"/"T$(0)T$(0)A$:JK:EC44EC58JK1 JEC127J11:K0JK1:T$(0)(T$(0),(T$(0))1)= TIJ5::J10310:J9E3$E1$(127):P8S,X,Y,T$(0)"_"SP$:VP,0:SLI,E:P8S,35,J,A$E$(I11):JJ2::P8S,35,18,"Arrow Keys - Move Cursor":L , 6T$(0)"":J0:E$E$(1):28200:E2$E1$"-09.-":I0:P8S,X,Y,"_"SP$:VP,0:SLI,E2$,E2$,0,A$,0,EC:A$"-"A$"9"A$"/"399:E$E$(3):28200:E2$E1$(127)"-09.":T$(0)A$| @IR.OVL" J33:J66:I07:M$(I)::I020:E$(I)::I14:IP(I)::X(0)8:X(1)19:SP$" ":DL$"----------":I02:DL$DL$DL$::T$"Calculator":TI$I$:20000:919,1:1000 F +TCLR,33,6,79,20:A$"Control-":P8S,35,6,"Commands:":J8:I04! INFO MANAGER"PRGM:CALC9 PRGMR:KEVIN NEFFW(COPYRIGHT (C) MECC, 1985u2LAST UPDATE 85/08/15 KWNd20990:APP,"COMMON.LIB":(175)(176)2561 iZP$"CALC":19000:D$(1,53),ME$(13),S(50),M$(11),E$(20),T$(3),B$(0):RNH,"MECC WRITE                ! ş>0ȱ׈iȱȱ` lkFnm ȱHȱeȱeh֊0ȱ ie Li`sp+ƞ0Hepo ʆ8h` W>q<ȥ?q=8m<@n=A8<>B=?C^_ Z`J i` i i;尐 0䱝ȑȩ0 jL]i j>) ȱȑ𽥡 i i op`ꈱ0 j$ jȥȥ˩8ij `e 6fȥȥmfiemn T` }< `$0&0(:H }h$߅LBh$ `Lԥ쥜 eie` { h^_ W<=h SX &X Wii`L i i { iihYfLԹfklٷf(8"=<e?e jVȐ 5^` ) f { e^e_eȩ d`HiAdh`  >e W/d0d1d2d l R/>?*d K[>?2ȱ쨊 K[LԠ +d +d d+di#Ǎ+dLd*dL7^,dȌ-di-dLɠ.dʱ_e9-d00ȩ-dȢ)Lc d { d cd"dҍc&ddcddi0iЩCԩ Zȩ dԩխd0i@Эd? Z cd0ԩ ZBԩ Z戭did Z ޭdi 4^ ޤ 5^ ޭdi= 4^ ެd 5^`ȩ d W b ީ<>?/ "-. <0(: >?e< 7^ ޤ>? 7^`eȱe` { 娌b^b ȩ ߅ lݩ L{ VL5^ &dddd"d0>J<@*Ija ]aTka ><ѥ0>@?>,>$f<<`]>?`?J>j&&ee<=8内凅0=ee ^+8包卅8内凅e扥>?Ffh\ \O 8冪 Z``F\`G\`I\`J\TM\nv\,v\0nv\M\ULE\\*\*\ЩT` \ȎD\^\ \Ȏ;\Y\`J`բ \L]]]] \]] ]L]\ m\\w\ww\ \\x\xx\L]Uz TԤ ><إ0>@<ȥ?< <H<= H <=[ I<[<[[` w\*\\ w\*\Ȍ\o\e\:ZL(Z127)::ZZ128:16368,0:'0u8:u:SPACE::>yH"y2000N,yT} }ZE(222):ZN(218)(219)256:ZE255Ĭ}CO$CL$:WIND:HSP:VSP:CO,0,802}:"Error #"ZE" in line #"ZN" in Menu program. Please report this error to MECC.":30ND,ZX,ZY,250,ZY12:DL$(127)D2#DL$:CO,ZX,ZY:9100:AZ:A19070\<#A49A(48N)9010oF#(A);DL$;CA$;P#9100:Z139070Z#Z8Z127įCO,ZX,ZY:CEL:9010d#9040n#AA48:A1A1x#XX(XX)#CL$:!#ZL11:XX(1):Z(16384), along with four others, is part of MECC's Computing and Information collection."O:"This collection introduces students to the concepts and skills necessary to live in the Information Age."YWIND:30000:(#-#CA$;:16368,0:GCP,ZX,ZY:WIND:AFT,2:CO,55,12:CN$" !"(34)"#"CO$:WIND,90,17,279,191:COF"Computing and":" Information":3:SN$"Evaluating Information":WIND,30,47,260,171:CORJGCP,ZX,ZY:TI$CA$;:GCP,X,ZY:ZX,ZY8X,ZY8:" is a package in the "SN$" series. This series,25,259,176:CO:CN$"Computing and Information"CO$CC$::3::GCP,ZX,ZY:TI$CC$CA$;:GCP,X,Y::57,ZY9X3,ZY9::AVSP,4::6)"Minnesota":8)"Educational":10)"Computing":12)"Corporation":VSP:CO,20,165:"Copyright 1985"CC$:30000:BOX?EWIKey"CC$:::VSP,1"This key will allow you to restore an entry or to leave what you are currently doing. Press the Escape (Esc) Key once whenever the computer is waiting for a response.";WIND:VSP:30000:t@CL$:Y2180:6000:AFT,1:WIND,20įCO,ZX:PA$J>12:" Direct inquiries to:"::" "CC$;:GCP,ZX,ZYH:WIND,ZX,ZY,279:CO:"MECC Distribution":"3490 Lexington Avenue North":"St. Paul, Minnesota 55126":"(612) 481-3527"R30000:CL$:WINDVSP,4:CL$:::"Use of Esc ages and correlations."i:" 4. Memowriter: An easy-to-use word processor.":30000:VSP:HSP:WIND CL$:CO:VSP,10::"A manual to aid in the use of this diskette is available from MECC.":VSP 49:" Title: ";CA$;:GCP,ZX,ZY:TI$:PA$"" ie`а ,,i,,`gh`ȱȘeiȑ QY%)=Y>? YPLY=Y; 8`;Y >Yo;Y Y>x)Vx2V gU%IWɩ` ZKWJW ZLV< KWϬIWȽ` <=W >W?Ȑ۩`?)8鍸ζ`H88HHg@LU`ɪɭ`8`>?4> iV<=8> <=iV<=`VVV?VVV V̶VڰV`JWKW WS` U[ S<IWIW mIWwUwUwUx V)U .)U'U m&U)U(Um(U)U)U`0d dddȌaUbUcU.bU(cU 0bU 0aU` (P`U·U U V$8` 8LVɪɖ8*V-VV*<%<<*>%>>*@%@@DTTTTT9T T BT` 8`TTTTTTTT9T T`TT T` tTTTTTT`TTTLT TT  T`&U'UDDhE8 `D>ʱD>` L7S`VSVS݌$8`rSSsS pSݔS`prSSsS,Sp8`dd$86T7T8T(9T RL5T>T?T@TATBTCTDTTETT6T7T8T R'L+RvRwR+RLyɯLRw 8ɀ   Lޤȱ 0:,јe湥 yiRyiR , ,`vRwRL ֩PyQ AL<=":A1$"_":A2$"":FF(A1A4A5)B'EC2710080 L'Z1$A$(A1)".HELP": X Y"CM$CM$,OC,OT#L0(D$(1,50))1:MWADD,OC,OT,(D$(0,L)" ",13),OC,OT:MWADD,OC,OT,D$(1,L)CM$,OC,OT:#MWADD,OC,OT,CM$"r = "D$(0,53)CM$,OC,OT:'REF SCRN'J$T$:A1:A$E$:I$I1$ 'T$"Help Menu":E$J$:D,OC,OT,CM$CM$"Averages"CM$,OC,OT:L0(D$(1,50))1:MWADD,OC,OT,D$(0,L)CM$,OC,OT:#MWADD,OC,OT,CM$"Mean = "D$(0,50)CM$"Median = "D$(0,51)CM$"Range = "D$(0,52)CM$,OC,OT:#Rxy$#MWADD,OC,OT,CM$CM$CM$"Correlation"CM$CM$" 0,L)" ",13),OC,OT:MWADD,OC,OT,D$(1,L)CM$,OC,OT::MWADD,OC,OT,CM$CM$CM$,OC,OT:d#L0(D$(1,50))1:MWADD,OC,OT,(D$(0,L)" ",13),OC,OT:MWADD,OC,OT,D$(1,L)CM$,OC,OT::MWADD,OC,OT,CM$CM$CM$,OC,OT:n#AVERCLIPXx#MWAD:ZZ1:33220!΁ZT(ZS) !8!dà TOOLKIT , TOOLKITOOLKIT , TOOLKIT,ITCO,0,89:"Please insert side "(48SD)" of your MECC "QN$" program diskette.":30000:33010 LD1$",S"((953))",D"((954))",V"((955)):D2$",S"((956))",D"((957))",V"((958)): ZN$"":Z1 !ā(ZSZ)0Z36ZN$ZN$((ZSZ))000:Bd}" Please check your disk drive and diskette.":30000:H耲ZU1:ZS654:ZJ$"":(955)254ZJ$",V"((955)1SD)(ZJ$"")MF33020:ZE0:ZEĺD$"BLOADMECC$$DISK,A"ZS;ZJ$:33200:(ZT0)(QN$ZN$)((ZS35)SD)ZU0:[ MF0:CL$:he diskette that you will use for storing "T$(T1);:(S36)3ĺ" in the drive located at:"::" Slot: "(S37):" Drive: "(S38):" Volume: "(S39);:(S36)2ĺ" in drive 2";:".":30000:ZD2:39000:OK15099/:CO,0,27:CEW:"CC$:CO,0,72:"Creating a "T$(T1)" diskette will erase whatever information is currently on the diskette."::"Do you want to continue? ";:36000:Z$"N"15099:ZD1:ZU0:T0:WP0:SD2:MF1:34000:8002:CO,0,18::CEW:CO,0,73:"Please insert t00:CO,0,144::CEL:Z$"N"11020@R+S37,SL:S38,DR:S39,VOF[+.ZC(S36):ZC3Ĺ956,(S37):957,(S38):958,(S39).ZC3Ĺ956,(953):958,254:ZC2Ĺ957,3(954).ZC1Ĺ957,(954)C/:T1(Z$)1:CL$"Create a "T$(T1)" diskette" Drive: ":DF$((957)):300:DR(DL$)+M3:I$"-09":L$" Volume: ":DF$((958)):300:VO(DL$):VO255VO254:CO,ZX,ZY:VO!+CEW:CO,0,99:CEL:CO,0,90:CEL:N$" will look for your "T$(U1)" diskette in:":CO,0,153:"Is this correct? ";:360"Your PROGRAM diskette was started from:"::" Slot: "(953):" Drive: "(954):" Volume: "(955) +CO,0,90:CEL::CEL:"Where will your "T$(U1)" diskette be?"+:M1:I$"-37":L$" Slot: ":DF$((956)):300:SL(DL$)++M1:I$"12":L$or more than one controller card), use "QU$"Select special disk drive setup."QU$*:"This option will ask you for the slot, drive, and volume where your "T$(U1)" diskette will be located. ";*30000*j*CL$"Special Disk Drive Setup"CC$:::CC$::*"This menu asks how many disk drives you are using. The current selection is displayed at the top of the screen.":*"Most users will have either one or two floppy disk drives. ";P*"If you have a different setup (such as a hard disk :CO,ZX,ZY9B'INP,(1,"-14?",1),Z$:Z$"?"İ10900:10000LG'(Z$)410099fL'SC(Z$):SC3İ11000Q'S36,SC:T0:ZD1:WP1:SD1:34000V'S35,1:D$"BSAVE MECC$$DISK,A"S",L$28"D1$o'12000:35000:600s'*CL$"Change Disk Drive Setup Help"'CL$"Change disk drive setup"CC$:200::"You may:"::" 1. Select one disk drive":" 2. Select two disk drives":" 3. Select special disk drive setup"'" 4. Make no change" $':"Which number? "CA$;:GCP,ZX,ZY:CO,0,180:"Press ? for help."ata diskette."QU$:30000:CO,0,27:CEW"Whenever you need to make copies of a "T$(U1)" diskette, use "QU$"Copy a "T$(U1)" diskette."QU$" You should make backup copies of a "T$(U1)" diskette every time you make significant changes to it."30000:$"Create a MECC-FM data diskette"QU$" will prepare a diskette with memos, hints, and database information from the program diskette."&:"If you wish to create a diskette to store new memos, hints, and database information, select "QU$"Create a blank d"copy "T$(U1)" diskettes.":"The current disk drive setup is displayed at the top of the "QU$"Diskette Support"QU$" menu screen. If that setup is not what you are using, select "QU$"Change the disk drive setup."QU$" ":30000CO,0,27:CEW:QU))"?",1),Z$:Z$"?"İ1900^8Z$"?"Ĵ(Z$)((CR)((Z$)1))10000,15000,15000,20000,31030hB1000lCL$"Diskette Support Help"CC$:::QU$"Diskette Support"QU$" allows you to view and change the disk drive setup, and to ";:CRĺ"create and ";{e a blank "T$(4)" diskette"%" "3CR". Copy a data diskette":" "4CR". "CA$;:GCP,ZX,ZY:WIND,ZX,ZY,279,191:"Return to the "PN$" menu":WIND):"Which number? "CA$;:GCP,ZX,ZY:CO,0,180:"Press ? for help.":CO,ZX,ZY.INP,(1,"-1"(5(CRdiskette...":bZU0:T0:ZD1:WP0:SD2:34000::CL$:12:"Reading from program diskette...":HSP,1:WIND:CL$"Diskette Support"CC$:200$:"You may:"::" 1. Change the disk drive setup":CRĺ" 2. Create a "T$(3)" diskette":" 3. CreatIZ4I149152:L07:A1$(L):RRF,A1$(L)".HELP"I1,4,A1(L,0),A1(L,1):A2(L,0)I1:I1I11024::L810:A1$(L),Z:RRF,A1$(L)".HELP"I1,Z256,A1(L,0),A1(L,1):A2(L,0)I1:I1I1Z::FM1:ZU0:T1:ZD2:WP1:SD1:34000::CL$:12:"Writing to "T$(2)" :DF$((OS2)):300:(DL$)255DL$"254":CO,ZX,ZY:DL$J.5ROS2,(DL$).:RCEW:CO,0,(58YY)9:CEL:CO,0,(48YY)9:"Copy will look for your "Q$" diskette in:":CO,0,(118YY)9:"Is this correct? ";:36000:CO,0,(118YY)9.DRCEL:Z$"N"210009533YY:CO,0,(108YY)9:CEL:CO,0,(58YY)9:CEL:"Where will your "Q$" diskette be?"-R:M1:I$"-37":L$" Slot: ":DF$((OS)):300:OS,(DL$)-&RM1:I$"12":L$" Drive: ":DF$((OS1)):300:OS1,(DL$)9.0RM3:I$"-09":L$" Volume: ",pN:11:"The copy of your "T$(T1)" diskette":Z$" finished.":30500,zN500:T0:ZD1:WP0:MF1::34500::12:"One moment please...":901,1:NOFILT:D$"BRUN DISKUTIL.OBJ"D1$:910,(1014):911,(1015):RFL,"PPRINT.OBJ":24768,N[-RYY(Q$T$(T1)):OS6384+fNZEİ700:20076;+gNZE0:ZEįDR,QS,0QS,1549152O+hNZEİ700:20076{+iNK64QS34ZEįDW,5IS,07IS,1553248+jNZEİ700+lNZU0:IS:S,1:S34,(1)2541:S35,(1)255:D$"BSAVEMECC$$DISK,A"S",L$28"D1$+nNZ$"is":EFZ$"could not be"ENZEİ700:200768*_NZU1:ZE0:ZEįDR,QS,0QS,1549152L*`NZEİ700:20076x*aNK64QS34ZEįDR,5IS,07IS,1553248*bNZEİ700:20076*cNZD1:T2:WP1::34500+dN:12:"Writing to destination diskette...":SET,1:ZU1:ZE0:ZEįDW,IS,0QS1,15134,1516128$)[NZU0:ZEİ700:20078)\NUNHOOK:1014,(910):1015,(911):901,2:::FILT:EF0:IS0345(3K64):TT1:ZD2:WP0::34500::12:"Reading from "T$(T1)" diskette...":SET,2:QSIS4:QS34QS34)]NZU1:ZE0:ZEįDR,IS,0QS1,1516384*^Eİ700:20078(GNID(16128)-(HNZD1:39000=(RNOKİ500:(WNCL$:CO,0,89:"Preparing your destination diskette...":DT$",S"((953))",D"((954))",V"((955)):SPRO,PT:400:ZEİ500: )YNIB(ID1)256(ID0):16128,IB:ZU1:ZE0:ZEįDW,34,15estination diskette";:(S36)2ĺ:"in drive 1, and your "T$(T1)" diskette":"in drive 2";'@N(S36)3DC2ĺ" and your "T$(T1)" diskette";'CN".":30000'ENDC2MF0:TT1:ZD2:WP0:SD1:34000:PTZP:ZU1:ZE0:ZEįDR,34,1534,1516128 (FNZU0:ZS36):DC3ĺCL$"Special Copy Setup"CC$:Q$"destination":21000:Q$T$(T1):21000:DC(D1$D2$)1&NCO,0,27:CEW:CO,0,90:"Please insert your dĺD$"VERIFYLOGO"D1$%:ZU0:J% NT1U1:CL$"Copy a "T$(T1)" diskette"CC$%4NCO,0,72:"Copying a "T$(T1)" diskette will erase whatever information is currently on the destination diskette."::"Do you want to continue? ";:36000:Z$"N"İ500:`&;NDC(e "QU$"Copy a data diskette"QU$" to create additional student data diskettes.":30000:15096$:CO,0,81:CEW::"This diskette is now prepared to handle "T$(T1)" from MECC "N$".":30000$:MF1:FM0:T0:ZD1:ZE0:WP0:SD1:34000%:ZU1:ZE0:1::ZE,A1(L,0),A1(L,1):IIZ:#:T13İ900:J29952:L04:D$"BSAVE "A$(L)"(10).BIN,A"J",L"A(L);D2$:JJA(L)::L04:WRF,A$(L)".DATB"A(L5),A1(L,0),A1(L,1):\$:T13įCO,0,60:CEW::"This diskette is now prepared for student use with "PN$". You may us950:I29952:L04:A$(L):D$"BLOAD"A$(L)"(10).BIN,A"I;D1$ZJ$:ZZ(1):A(L)Z:IIZ:#:T13ćZ:RRF,A$(0)".DATB"I,16,A1(0,0),A1(0,1):A(5)I:I49152:Z:RRF,A$(1)".DATB"I,16,A1(1,0),A1(1,1):A(6)I:I53248:L24:Z:A(L5)I:RRF,A$(L)".DATB"I,Z2561$(L):RRF,A1$(L)".MAIL"I1,4,A1(L,0),A1(L,1):I1I11024:RRF,A1$(L)".HINT"I1,4,A2(L,0),A2(L,1):I1I11024:!:T13İ900:I149152:L06:WRF,A1$(L)".MAIL"I1,A1(L,0),A1(L,1):I1I11024:WRF,A1$(L)".HINT"I1,A2(L,0),A2(L,1):I1I11024:T":T13İDW,17,017,0AD` :S34,(1)2541:S35,(1)255:S,1:D$"BSAVE MECC$$DISK,A"S",L$28"D2$:S,0 :J29952:L02:D$"BSAVE "A$(L)",A"J",L"A(L)2000L;D2$:JJA(L)::L010:WRF,A1$(L)".HELP"A2(L,0),A1(L,0),A1(L,1):o!:T13İ950:I149152:L06:ACO,0,89:"Now creating a "T$(T1)" diskette..."R:DT$D2$:SNOPRO:400:ZE15099:ZSS:38000:CBS,"MECC "ZN$".",AD:ZU1:ZE0:ZEįDW,0,00,0AD:ZU0:ZEįDW,0,00,0AD :AD16128:DR,17,017,0AD:AD60,255:AD61,255:AD64,255:AD65,255:  5_L9 砨 ŠҠ  ~( ~ V ~ ~ ` ~  B, ~``Ͱ8챀8$`,~ }}}h}}}}}} }}}}}}}}}} }`,,`ɠ} ]8 ~L}} ]  ~}ɱɲr)ί+`, a^+`,,9:KF8 9~% 8m쥉i ~ ] ,CBC j| )| $|,} M| $|7 |BCBeB{B{8[)80P B{EHB{A{?{@{?{.@{A{={m?{?{>{m@{@{hm?{={@{i>{Ц={>{`$8n}셊텋 {,}08劅B勅C $| L6$8n} {L6`:9ƋƊ }H |h )|ٰ$8 }` 4|셊텋ByC{s{E{u{ }}~uv{| Qq,-MNG`8$nz zɭɫ zz, EAz,z0Pz0LzpmzLz8z,z08$8(0)PSEL%(0):L1PSEL%(0):SEL%(PSEL%(L))1:9(: CRNI:8L))1:J(: 8: Jg and replacing text,Saving a file,Loading a file,Printing a file,Using the Control Key - Command SummaryTrd,Return,Edit record,*,JRef - SLI entryTCtrl-X,delete all characters,,in entry,Ctrl-Y,delete all characters,,to right of cursor,Delete,delete character to,,left of cursor," --->",Move cursor right," <---",Move cursor left,*:sing the Database&,Ref-ExamineList6" <---",Previous record," --->",Next record,Ctrl-A,Add new record,Ctrl-B,Move to first record,Ctrl-E,Move to last record,Ctrl-F,Find records,Ctrl-P,Print records,Ctrl-R,Restore all records@Ctrl-X,Delete recoxamine records,Add/Edit/Delete fieldss Use Files,Add/Edit/Delete Fields,3,Add fields,Edit fields,Delete fieldsExamine Records,Edit RecordExamine Records,Add Record Use Files "2,"Databases: What are they and how do they work?",Ue,This program will allow you to create a database,file of up to 50 records. Each record may have,"no more than 10 fields, and each field is",limited to 22 characters. Field names are, limited to 15 characters.毃Database,Delete File%2,Add/Edit/EPINIT:D&POFF.N35,24:34,0:POFF::5 kZT0:I09:ME$(I)F$(I1):ZTZT(F$(I1)""):: ZB(16384):EX0:ZB155Ĺ16368,0:EX1ȯDATAү0,21,1,22,24,1ܯPrint Records,2,All records,Selected records%毃Print Destin5 DISKETTE SUPPORT5PROGRAMMER: A HOLLENBECKRCOPYRIGHT (C) MECC 1984p(LAST UPDATE 08/07/85 JJKd901,0:32000f:36090:34582:230,64:A(20),A$(20),A1(10,1),A2(10,1),A1$(10)iCR1 kQN$"Information Manager":PN$"MECC "QN$:U                      ,25,6ZL,R$(ZL)::SC0:3020,' 600:SC1:2' N'! PSEL%(CR)ZNIZ:3130'& NIPSEL%(0):L1PSEL%(0)1:PSEL%(L)ZNIL:LPSEL%(0)'0 :DX(ZPSEL%(CR)):LCRNIDXDX:PSEL%(L)PSEL%(LDX)DX::PSEL%(NI)Z-(5 SEL%(0)0įRAV,SEL%:SEL%(MR):SEL%1:& Update Record#& F1:SC1o& 650:TI45060:WR0:ZR$R$(1):42000:R$(1)""āZL110:R$(ZL)DB$(ZL):& EC273090:600:ZR$R$(1)İ3100& CRCR12(EC11):CRCRAR(CRAR)AR(CR1):500:F1(NF1)(F)' TCLR,25,TM,47,BM:ZL1NF:P8SZM29254%n PSEL%(0)0PSEL%(0)1:PSEL%(1)1:2920%o PSEL%(0)PSEL%(0)1:ZZPSEL%(0):L1PSEL%(0)1:PSEL%(L)ZZZL:LPSEL%(0)%p :LPSEL%(0)ZZ1:PSEL%(L1)PSEL%(L)1::PSEL%(ZZ)Z:2920%r CRCR(ZM0)Z(ZM1):CRCRDB0:500&| 600:SCd record$^ 600:SC1$h 650:TI45070:DBMRLM50:28100:P8S,LM2,TM5,"The maximum number of":P8S,LM2,TM6,"records ("(MR)") has been saved.":28400:30000:2930%m F1:CR0:TCLR,25,TM,47,BM:500:WR1:42000:MSMSMOD:ZMMOD:600:EC272930:#,d0pFd,dp08@dзd)D<])#?$ B!m?@J!!9<:=<=<< _<=<< >8=CJAA, " }DEJK,}0}}9<:= @ `eDEL`8 e dDEvɛJɀ8Lɍ,\&0Th SH ThL) ,TT9:89ȥ: :T T`亠 , ,n0L,0N8 ,0 LR y0ΥΦ },TH,iŠҠ.HTTh SL) L8;B  & ׆ L6 …L, }  _&  둭9<:= @L9 EE&ޮ Ȏ, 8 FLF ȎL`,0N8 ,0 ]LJ.0Ά·,ɛ,NP,0L&LR `9: ` `ߠ ]8 ~"9쩀ꂭ,0>?(лL(`(8`1BeC 1B <=>?B@CA UeBeC` ؋ DE`Z@AC8 ` BC EB@CAC `FCFj?mFG  ɍ\Ɉ?ɠ0嬠ҠӠ ŠҠ嬠Ӡ dFCG 8 ` 2豆E͎,p0"ڥʎ2ʎ4)8$` 8 `邠肌ꂠ>> ш,0 >@?AEȌD ]B8 ~ɪɯL /j2>? ,0v L@A0 ,0/ ]8 ɠ;H42 ,0 M ؋ ࠁ ]( ɠ,L M ؋L9 ŠҠ`8`, ,,`A N ɍN' IL ,  AʭA ɛήAꩀ`,8` U U` i i` ͮ ,0 V`hhhh ~``eȢ z`KF:y,,`΍ȱ`m`,8L\_]^̱3A ɠ,_ 扈,]0݌^ N_ɍ]L8n^0``ɮX 9F;)9L| BC ) 󌭀N:D$"CLOSE"F$:2210T$"":E$N$(2):28200:300:700:P8S,0,11,"Please insert the MECC Graph program diskette in drive 1.":30000:EC272210:CS(P(P(999))1)16:CS1CS7CS6CL$(21):CS:300:LELE1:` F0:700:P8S,0,22,"FiQN$"Information Manager":RNH,"MECC WRITER.OVL":919,1N j(955)254İ28450 MF1:SD2:ZD1:T0:WP0:33002:RNH,"MANAGEMENT"`E) DISKETTE: MECC INFORMATION MANAGERFPROGRAM:MANAGEMENT FLIP`PRGMR:SCOTT C JENSEN~(COPYRIGHT (C) MECC, 19852LAST UPDATE 06/26/85 SCJF20992:APP,"COMMON.LIB":(175)(176)25620487 i19000:LM3:TM4:RM76:BM20::ZP$"FLIP":  200:LM2:TM2:RM79:BM20:28100:TCLR,0,22,79,23:P8S,LM,TM(BMTM)2,"All of the records have been restored."# RAV,SEL%:RAV,PSEL%:SEL%(MR),PSEL%(MR):L1DB:PSEL%(L)L::PSEL%(0)DB:30000:TPUT,0,2,W2:P8S,48,21,"|":SR0:CR1:500:LM50:$T AdEL%(0)1:PSEL%(L)PSEL%(L1)1:o"F PSEL%(0)PSEL%(0)1:550:MS1:CRCR(CRAR):CRCR(CR)(AR0):500:650:" Ref Screen" SC0:REST,45100:900:" Restore all recordso# TCLR,25,2,47,20:TTAK,0,2,79,20,W2:E$T$:T$"Restore all Records":28:T$"Delete a Record":E$EM$:28200:LM50:28100:Z$T$:P8S,S((LMRM)2),TM1,Z$:ZA(3):P8S,LM,Z,"Are you sure you want to":HP,LM:Z3:"delete this record? ";:DE0:30100:CUEC27ı!< CRİ800:DAR,PSEL%(CR),DB!> CRPSEL%(0)2630: "@ LCRPS50:EC0:RAV,PSEL%:PSEL%(50)] SEL%(0)0PSEL%(0)DB:L1DB:PSEL%(L)L::SR0:500:2549 ZX1:L1DB:SEL%(L)1PSEL%(ZX)L:ZXZX1 :PSEL%(0)SEL%(0):SR0:CR1:500 PRINT-SORT ZR2:250:CR1:500: ( Delete record!2 SC1(50)RFM,1,LM,TM,RM,BM:?Move forward/back one record SC0:600:CRCR12(EC8):CRCRAR(CRAR)AR(CR1):CRCR(AR0):500:` Move 1st/Last recordj SC0:600:CR(AR0)((EC2)AR(EC5)):500: Search Database SR1:ZR1:227):1:EC1:DBPSEL%(0)0įSLI,EC$,,0,Z$,0,EC:EC272200\FKS,EC,EC$,ZC:ZC2300,2300,2900,2400,2400,2500,2550,2800,2600,3000:550:ZC10EC27500:SC(DBPSEL%(0)0)İ2700fEC27(DBPSEL%(0)0)2100Exit600:850:MSįRAV,SEL%:SEL%Examine List>T$"Examine Records":E$"Use Files":EM$T$:DBPSEL%(0)0İ28200:TCLR,25,TM,47,BM:650:P8S,0,22,"Use the commands from the reference area."HL1NF:P8S,25,6L,R$(L)::REC$(8)(21)(1)(2)(5)(6)(16)(18)(24)(13)("(10).BIN",F$:NF0:L110:NFNF(F$(L)""):NF0E$"Use Files":T$"Examine Records":28200:28100:P8S,2,11,"You must add field names before you can add records.":30000:2200550800:200:CRDB0:F1:500:MS0:DBPSEL%(0)0İ2700 405MsEM$T$:EC27İ20100:RAV,SEL%:SEL%(50):LELE2:FQ1:MC(1)1030,1040|vLELE1:20200:28000:T1:ZD2:WP1:33000800:L1DB:PSEL%(L)L::PSEL%(0)DB:850:MC(LE1)2000,40000:20300:LELE1:1905Edit records.FQ1:SET,2:LVA,FI$(Z$)RZįP8S,0,23,"Please enter a number from 1 to "(RZ)".":1140MR(Z$):MDB,FI$".DATB",MR:RAV,F$:F$(10):SVA,FI$"(10).BIN",F$:FQ2l28100:LELE1:EQ$T$qE$EQ$:T$"Use Files":REST,45040:21000:MC(LE)FQ:22000:43000:HSLELE1:193,H$:HP,LM:"How many records will you need (1 to "RZ")? ";:Z$"":ZN((RZ)):SLI,"-09",(13)(27)(47)(63),ZN,Z$,EC:43000:LELE1(HS1):(EC47EC63)HS01140wHSįREST,45020:E$,T$:28200:1140yEC27İ20100:LELE2:1020D~(Z$)1bases (20) have been entered.":1134lP8S,LM,TM(BMTM)21,"There is no more space on this data diskette":P8S,LM,TM(BMTM)21,"to create a new file."n30000:20100:LELE2:1020oZZ5:RZ50(Z50)Z(Z50):28100tTM(BMTM)2:P8S,67,2122İ400:P8S,LM,13,I4$:30000:EC272499:2400c 400:P8S,LM,13,"Please insert your MECC Graph diskette in drive "(D2$,6,1)".":700:30000:EC272499:SET,2:CPRO,B:BįCPRO,Be SPRO,BB:ZU1:ZE0:ZEĺD$"VERIFYMECC$$DISK"D2$.f ZE2403:Zle name:":400:P8S,X3,Y4,"Enter a name for the file to":P8S,X3,Y5,"be used with MECC Graph.":VP,21::HP,11:F$"":SLI,,(13)(27),16,F$,EC:F$""EC27a EC272499:FF$F$:F$(F$" ",16)F$(II):7000b Z(F$):Z65Z90Z97Z宍䮍Ԡ堢à订򍠠ᮍà宍򍠠󮍍à讍宍à讍ﬠ占箠򍠠宠砢Р򍠠쩠򮍍𠠠à΍Ү嬠占占썠à宍孿堢墠򠠠宠堠謠à堢Ԡ󮠠堿箠íͮ堢󮢠㠢í͠򡍍󮠠        20LCHECKNAME/ASKNUMOFREC-VZ$""1050^`(Z$)(Z$,1)"0"įP8S,0,23,I4$:Z$"":1050eFI$Z$:TCLR,0,23,59,23:T1:ZD2:WP1:33000:CNT,Z:FCN,".DATB",FI$,ZV:Z5ZV201135$j28100:ZV20įP8S,LM,TM(BMTM)21,"The maximum number of data1020TM(BMTM)2:HP,LM:"Type a name for this new file: ";:P8S,67,23,H$:Z$"":SLI,SL$,(13)(27)(47)(63),15,Z$,EC:43000:LELE1(HS1):(EC47EC63)HS01050HSįREST,45020:E$,T$:28200:1050TRIM,Z$,Z$:EC27İ20100:LELE2:10(4)"DELETE"FI$"(10).BIN"D2$:1026FI$"":LELE1:REST,45010:E$,T$:20000:28200:300:HS1030:EC271900:20100:LELE2:1020FI$"":LELE1:REST,45020:E$,T$:20000:28200:L04:Z$:P8S,LM1,TML2,Z$::30000:28100:EC27İ20100:LELE2:1030,1040,1025BFI$"":LELE1:REST,45030:E$,T$:20000:28200p300:HS1025:EC27İ20100:LELE2:102028100:28400:HP,LM:A(0):"Are you sure you want to delete this file? ";:30100:EC27CU1026!28000:(4)"DELETE"FI$".DATB"D2$:YTM2:950:ADD/EDIT REFAREST,45130:ZX50:ZY5:950:JRefZ$:Z$"*"įP8S,ZX,ZY,Z$:Z$:P8S,ZX8,ZY,Z$:ZYZY1:970MainFQ1:LELE1:REST,45000:E$,T$:21000:22000:43000:HS1020:EM$T$:EC2731100:28100:MC(LE)CDB:T1:ZD2:WP1:33000:ODB,FI$".DATB",DB,MR:550;Qsave Field Names850:T1:WP1:ZD2:33000:SVA,FI$"(10).BIN",F$: Open DB*LOİ7004LO1:RClose DB\LOįCDBfLO0:Ref w/ title 28100:28400:ZXLM:ZCRįDAR,PSEL%(CR),DBbvZL110:TRIM,R$(ZL),R$(ZL):DB$(ZL)R$(ZL)::ANR,DB$,DB,Z:MOD0:550:| PRINT # OF RECORDSTCLR,57,22,79,22:Z$"Selection: "(PSEL%(0)(SR0)SEL%(0)(SR1))" out of "(DB):P8S,57,22,Z$: OPEN DATA BASE5No"(Z$,2)%P8S,80(Z$),22,Z$:5get recordWMOD0:CR0įRAV,R$:R$(10):800:GAR,PSEL%(CR),DB$:ZL110:R$(ZL)DB$(ZL)::& SET ACTIVE RECORDS0ARDB(DBPSEL%(0))PSEL%(0)(DBPSEL%(0)):Xsave recordbMODıl800:CLR,0,23,59,23:FI$FI$(L):8field names -> FC & ME$28200:SUMC(LE)3:ZLSU1NF:ME$(ZL1SU)F$(ZL):MC(LE)1420:P8S,12,7ZL,F$(ZL):# of fields Z$(10NF)" field"("s",1,NF9)" can be added":TCLR,58,22,79,22:NF10Z$"tte.":30000:EC27:4TP8S,0,23,I2$:P8S,67,23,H$rYP8S,LM2,TM," Name":P8S,LM2,TM1,"================"^SMENU,FI$,FZ,LM3,TM2,RM,BM,15,(27)(13)(47)(63),0,0,T,L,EC:(EC63EC47)((16287)128(16286)128)350h28100:43000:T):280+ I1DB:PSEL%(I)I::PSEL%(0)DBt T1:ZD2:WP1:33000:800:TPUT,0,2,W2:P8S,48,21,"|":X(0):LM50: , DISPLAY LIST OF FILES6T1:ZD2:WP1:33000:28100:FCN,".DATB",FI$,FZ:FZ0įP8S,LM2,TM5,"There are no databases on this diske:40000 LM2:TM2:RM79:BM20:E$"":28200:28000:TCLR,0,22,79,23:850:T0:ZD1:WP0:33000:T$T$"":DBL,40000,55000:APP,"DATA2.LIB":ZR1280:RAV,PSEL%:PSEL%(MR) SEL%(0)0278:NS0:I1DB:SEL%(I)1NSNS1:PSEL%(NS)I :PSEL%(0)SEL%(0APPEND SEARCH/SORT TCLR,0,22,79,23:TCLR,25,2,47,20:TTAK,0,2,79,20,W2:LM2:TM2:RM79:BM20:28000:850:T0:ZD1:WP0:33000:DBL,40000,55000:ZR1įAPP,"SEARCH.LIB" ZR2įRAV,PSEL%:APP,"SORT-PRINT.LIB":L69:MC(L)1: T1:ZD2:WP1:33000ing records.,53248,1403,37,DatabaseB W262700:TB1:LE0:33100S 919,1:1000b Work area 28450:P8S,0,1,L1$:P8S,0,21,L1$:ZL221:P8S,48,ZL,"|": ZL1NF:Z$(ZL)". "F$(ZL):P8S,3(ZL9),6ZL,Z$: LM50:RM79:TM3:BM19: QU$(34):A(Z)TM(BMTM)2Zt }FI$(20),F$(10),ME$(10),R$(10),SEL%(50),PSEL%(50),DB$(10),SF%(6):SL$"- ~":MR50 REST,142:IN$(1):IN$(0),IN$(1),W1,HP,VP,PN$# Move cursor past last field to enter next record.,Press Escape when you finish updat: " Product:Information Manager: Program:Data hProgrammer:Michael Hartman&David Caswell(Copyright (c) 1985, MECC2Last Update:08/01/85 SCJd38910:APP,"COMMON.LIB":APP,"DATA2.LIB":33600 iRNH,"DATA.OVL":19000:ZP$"DATA":dthsFZQ$" ":BL$"":I18:BL$BL$ZQ$::BL$BL$" "z NF0:I110:NFNF(F$(I)""):FW%(I)(F$(I)):I1NS:GAR,SEL%(I),DB$:J1NF:L(DB$(J)):ZLFW%(J):FW%(J)(Z)FW%(J)ZL:::૲&PINITꫢ22::34,(37):35,(37)1:: 7^ ޥ89: 7^` { 2^)JnJnJnNۑ ۑ`ۑ` @ ,`PzRzj0, ߅  { }BC L 3,L { }BC ^<_=>?B@CAeBeC U,L  ,` jn}`!O` g R9eP:eQ g R9eP:eQ` ޥ89 R9: g R9eP;:eQ< f g R}}}} g RP}8m}}Q}m}}}}<}}=,, <<=<}=},` { 媭,<-=^8@ &<ȑ<^_` B } _9<:= @,` } )( ߅  {` L_ `!a"b#c{?%= B C ,_ LJ GH h 4^ ޭK 4^` a!b"c#`  } ,` { 6^*)+-8@"Oλ` x` gL򔩀> { )@^  j< }>?? @A=,>?@ ,<0, ޭ=L4^ { 媤^_ } ׆,r (ȑ`rL { 媤^_ } ,`L  ީP@>?= {%( w)`ғ ѓmѓ`B!B! g R<= J<=LDE,, 9~DE*C, ޭ) 4^ ޭC 4^`a 抮aa0 LK`|| 4^|0 Lg` 㩀L=>< { L-)?^  , ldeeeed  殮FB= :8FBCeB@iA@;A< BL6`H)ѓhJJJғӓJѓѓLғғ NڑۑڑJh L&` K(H: ]>% {, "h } .H WX ], : }hFGHCG hG` oʒՒddheI Jߤ 3  M@A LG LHɀM N h) `  q& rɑ8$h`H,n ,hH`cfߊƊHJnڑJnڑJnڑA < M`8` 3IGAGL1 3C8 5,n A  @AC `8`#Hm=#(, }h#`AΗ M@AA A8헐G  M`FI` ,,a0,b0) L&=?`@뎎쎍TN쎮쎰U,T`((((PPPP,J0J`L&<F IIFmFi`9<:=< <<=Lk`,,`m=> 펍⎹` M G1GLʏC 5@DBECDBEC8BC<8B>=C? U`8;D=eC? U`K>=?,L0 @?<>5=eA=?eA?A@<>,L0 <>Fm?G ,0  ɍ( )@`)? Ȏ` V ` 3C`0`>?8ȱ> 0Șe>?i`>?>?>> 0J>?>?`B@@eBeC`8@A@A89D:EӋ>? LP֋`<=GӋ @<0=18e>A?CN ?>$> Ȏ ɍ ȎȘe>>?@ Ȏ,L0 ΀Ъ``,a0,b)E,DE`8F8 `, ` 0  `  + `9:F ` ` ؋Ӌ+GmՋ֋I8mC0@1A  `L<>=?Ջ֋׋,׋0ԋ׋B>) ߍ׋ԋ,ԋԋԋ>0֋ >>)>Ջ(%8e>>?>?155::16368,0:TM2:43070bRTBTB1:LELE1:QQ43100:TPUT,0,2,W2:RFM,LE,LM,TM,RM,BM:LELE1\QQ0:E$E1$:T$T1$:H$ZH$:ȯToolkit,Database,3,Use an existing file,Make a new file,Delete a fileүDatabase,Existing FilesܯDatabase,New Fil,Z,EC:RAV,ME$,>LM2:T$ZE$:E$T1$:43040HE$T$:T$"Database-Help":28200:28100:28450:P8S,0,3,"USING THE DATABASE":P8S,6,5,"Examine Commands:":REST,45100:TM6:900:LM40:P8S,43,5,"Edit and Add Commands:":REST,45130:900MI01:I(16384)0:P8S,2,2MC(LE)6,"-->"r*MC(LE)243080:28400:ZE$E$:E$T$:T$"Database-Help":28200:SET,2:T1:ZD2:33000428450:LVA,"DHELP.BIN",ME$:P8S,0,3,"DATABASES: WHAT ARE THEY AND HOW DO THEY WORK?":P8S,0,23,I3$:SMENU,ME$,40,0,5,79,20,0,(27),0,0,Z0:HS1:LELE1:MC(LE)1:TBTB1:QQ43030:TTAK,0,2,79,20,W2\28100:E$T$:T$"Help Menu" REST,45090:28450:28400:P8S,0,23,I$:P8S,3,6,"The following help screens are available:":21000:MENU,ME$,ZN,LM,8,(13)(27),1,MC(LE),MC(LE),EC:EC274309C27SC1:F1:42000$tMOD0:EC27/~SC1:;ReturnEEC10\CTRL-J and CTRL-KFF(EC11)(EC10):FFWR(F):HELP SCRHS0:ZH$H$:H$"":T1$T$:E1$E$:(16287)128(16286)128(EC63EC47)43100< LM2:TM2:RM76:BM2742100+VR$(1)""(R$(1)""MOD)42110`28400:28100:P8S,LM,TM2,"This record must have an entry":P8S,LM,TM3,"in the first field before it":P8S,LM,TM4,"can be added. Do you want to":HP,LM:TM6:"add this record? ";:DE1:30100jCU1E,0(.E$:P8S,72(E$),0,"Escape: "E$8Z$R$(F):7F:HP,25:EC$(10)(11)(13):SLI,SL$,EC$(27),22,Z$,EC:TRIM,Z$,Z$:MODMOD(Z$R$(F)):R$(F)Z$BFKS,EC,EC$,Z:Z42140,42140,42120:Z1EC27SC1:42000LF0FNFEC2742000QEC2(27),0,1,F,EC:EC2740940/⟯P8S,5,7F,"-->"5쟱FField inputSCįREST,45130:900:REST,TI:E$,T$:E$"":28200:28400:650:P8S,0,22,"Use arrows to move cursor.":P8S,0,23,IN$(CR0):SC0$REST,45070:R$(1)""DBįREST,45080:TCLR,55,0,79ğchg/del dis screenΟ28400:28100:400:450:NF(1(MC(LE)3))įP8S,LM,A(0),"There are no fields that can be "ZD$"d.":30000:EC27:40940؟P8S,3,6,"These field names can be "ZD$"d.":P8S,0,23,I$:TCLR,5,8,27,18:MENU,ME$,(NFSU),5,8,(13):Z$"":SLI,SL$,(13)(63)(47)(27),15,Z$,EC:TCLR,48,5,79,19:EC13įTRIM,Z$,Z$:Z$""F$(F)Z$:MOD1((16287)128(16286)128)(EC63EC47)LELE1:20200:REST,45130:900:30000:20300:LELE1:40830EC2740820MODİ750GAR,CR,DB$:FNFįSHFT,DB$,F1,NF1,1\ 螭DBDB$(NF)"":DAR,PSEL%(CR),DB:ANR,DB$,DB,Z:t 850:NFNF1:40620 `Change jT$"Edit Field Name":MOD0 tE$EM$:ZD$"change":40900:EC2740860j~28400:920:23:HP,0:"Enter the field name: ";iated with it will also be erased." :HP,28:"Are you sure you want to delete the "F$(F):HP,28:"field? ";:DE0:30100:CUEC27ı ʞ28000:FNFįSHFT,F$,F1,NF1,1 ԞF$(NF)"":T1:WP1:ZD2:33000:SVA,FI$"(10).BIN",F$' ޞ800:DBāCR1DB:. TRIM,Z$,Z$:Z$""NFNF1:MOD1:F$(NF)Z$9 40430G MODİ750M *Y Deletep T$"Delete Fields" E$EM$:ZD$"delete":40900:EC27ı# TCLR,0,23,50,23:FF1:11:HP,28:"When a field is deleted, all record information":HP,28:"assocm number of fields":P8S,36,Z1,"has been defined. A field":P8S,36,Z2,"must be deleted before another":P8S,36,Z3,"can be added.":30000:40480 920:P8S,4,6,"Enter the new field name:":HP,12:9NF:Z$"":SLI,SL$,(13)(27),15,Z$,EC:EC2740480000:HS40120:EC27ıI ̜28100:MC(LE)40400,40800,40600:28400:40120R НAddu ڝMOD0:T$"Enter Fields":E$EM$ 䝰28400:400:L2110:P8S,6,7L2,(" ",(L210)1)(L2)".": 28400:450 NF10:TCLR,40,3,79,19:Z10:P8S,36,Z,"The maximu@EDITF.NAMES7JFQ2:MC(4)1:LVA,FI$"(10).BIN"]NF0:L2110:NFNF(F$(L2)""):RM79:BM20:28100:REST,45050:E$,T$:TBLE:21000:EM$T$:450 œP8S,40,5,"-- Current Field Names --":ZL1NF:P8S,47,6ZL,F$(ZL)::22000:28100:QQ1:43z#`   ̮ʠ % ԮР Р Ԡ( ̠Ȯ Ȯʠˠ  ŠԠ8̠ !̮ʠ"ԭԮ  àҮ̠!" îԠҠӮΠή Ϯʠ̮ʠ)ՠϠàΠůϠϠԮʠŮԠà#äˠN1āI0N:D$(1,I)::II23::;D$"CLOSE"F$:2210}T$N$(4)"Data":28200:20000:XLM1:YTM:2400:EC272210:N1(D$(1,50)):N114(N114)N1(N115):J0N1:(D$(0,J),5)::N114āJJ14::J0N1:(D$(1,J),5)::N114āJJ14::I422270:II0:T$N$(3)"Data":28200:N(D$(1,50)):N1D$(1,51)"2":200:20000:XLM1:YTM2400:EC272210:I118::N1āI0N(N37)36(36N):D$(0,I)::N36āII36::NN(N12)11(11N):N1āI0N:D$(0,I)::N11āII11::$ation to the Clipboard.":30000:2210KI42F0:J014:(D$(1,J))F1I42Ă:Fİ300:28200:P8S,0,10,"You must have information from two":P8S,0,12,"data fields in order to plot a number/pair":P8S,0,14,"data graph.":30000:2210]LE2:II1210lEC47EC632230:700:I432280:P8S,XO5,YO(I41)25,"-->":ZD2:T1:WP1:33000:LVA,"CLIP.BIN"%T$"":E$N$(2):(D$(1,50))0İ300:28200:P8S,0,11,"The Clipboard is empty. You must first use":P8S,0,13,Q$"Database"Q$" and print inform"Database"Q$" with MECC Graph.":A$(0)"Create "N$(3)"data file":A$(1)"Create "N$(4)"data file":A$(2)"Exit to MECC Graph":28500:XOLM1:YOTMXXO:YYO:MENU,A$,3,X5,Y5,(13)(27)"?/",1,I4,I4,EC:EC272299:600:Fİ300:II2:28000:2000:223:400:P8S,LM,TM5,T1$(MC(LE)2):RNH,M$(MC(LE)1):? I41 300:LE0:T$N$(1):20000:F$(0)".DATA":F$(1)".LINE":T$N$(2):E$N$(1):28200:LELE1:20000:XLM1:YTM:P8S,X1,Y2,"This option allows you to use information from"P8S,X1,Y3,Q$MWBUF,53249,8959,49152,1:MWL,0,0,"TOOLKIT.HELP",IP,LN:MWBUF,53249IP(II),8959IP(II),49152,1:MWLEG,"+_EB-`aHUIWXYZFSLONQC":MWTC,"[":VP,2::MW,70,18,0,IP(II1)IP(II),IP,LN,EC,F 328500:300:906,MC:6 428100:T0:ZD1:WP0:33000:TCLR,0,23,79,ZN6:MC(LE)(906):22000:EC2731100T II0:MCMC(LE):EC47EC63II1:MC(LE)1 906,MC(LE):MC(LE)2000,2100,2100,2100,2100,2200:1010 ZD1:T0:WP0:33000:T$T$(II):300:E$N$(1):II2E$N$(2) 700:28200:II1įP8S,0,23,I3$ 300:)::A$(A$,K,7)/ (A$)ĭ(A$)A$"0.00"F +D$(L2,L1)A$:::S ,28450:o TCLR,LM3,TM,RM4,BM: XF(((EC47)(EC63))(((16287)128)((16286)128))): TCLR,0,22,79,23: 300:902,0& II0:T$N$(1):20000:E$N$(0):28200:9):P(S)(S)(S1)256::I05:ME$(I),M$(I)::I04:T1$(I)::I02:T$(I)::(901)1įTCLR,0,0,79,23 I03:IP(I)::I04:N$(I)::TCLR,0,2,79,23:20100:919,1:1000 L10N:L20N1:K0:A$D$(L2,L1):L01:KK1:L(A$,K,1)" "K(A$ DISK:MECCFM$PRGM:TOOLKITGPRGMR:SCOTT JENSEN&KEVIN NEFFd(COPYRIGHT (C) MECC 1985~2UPDATED 08/01/85 SCJd20991:APP,"COMMON.LIB":(175)(176)256iZP$"TOOLKIT":19000:RNH,"MECC WRITER.OVL"m nME$(5),M$(5),IP(3),N$(4),F$(          Z):( 975,255:918,0:38912,"MENU": (#:11:"THIS PRODUCT REQUIRES AN APPLE //C, AN APPLE //E WITH AN 80-COLUMN TEXT CARD, OR THE EQUIVALENT.":16368,0:16384,128:16368,0 }:SL 0:16384,128:16368,0 }:SL L489000] 230,64:8192,"LOGO":16304,0:16297,0:16299,0:16302,0:8195,"SMALLRNH.OBJ" (940)128āZ14000::9000 LL704:8195,"MECC$$DISK"LL:DC(LL36):953,SL:954,DR:955,VO:956,SL:957,(DRDC)1:958,0:DC3āZ02:956Z,(LL37# PRODUCT: INFORMATION MANAGER7PROGRAM: HELLOUCOPYRIGHT (C) MECC, 1985t(LAST UPDATE: 04/22/85 KWN32000 :(4)"MAXFILES1":::P(X)(X)(X1)256:LP(P(999)):SL(L1)16:DR(L2):VO(L14):(4)"BRUNHELLO.OBJ":(941)  U1:ZE92432:ZE0:ZEĺD$"VERIFYLINE ED"D2$zh F0:A0:B0:Z0:ZU0:ZEįFCN,".LINE",A$,A:FCN,".DATA",A$,B:F(AB)8j ZU1:ZE0:ZEĺD$"BSAVEJUNK,A600,L1"D2$n ZEĺD$"DELETEJUNK": CNT,Z:Z4F1ZE9İ400:P8S,LM,13,"There is no more roomL?BH3L N?DI*KPDrDGJBFBEgIUH3L N?BpC-E*JRDrDGJBFBEgIuQw]w\p@GBNw]vX`DBxOOIUU?@ppB|DB|Ap@B@JPBGPECB@pB|DB|p@srEp|?OBpF|Bp@ NKLB@BH3L3G?KI*RB~P~C*HBG*L~N~BaAy~N~xNHffJHIUN?GB?DB?AUMB?DB?B3L3A?GU**B_Wu}}kzC **U3L3BB|N|pNH 3LX?EHUJI*W xzz{{z~J*UUCA~z{;KOoB UU*ffBBNfX`WBH*JIU\?NU**D  **UL3LBEBEB8`B3 3EB@N;n;l0@WGUJI*YQ T  yfBHUJI*PHU`CU**GX`CxS]vX`ZBINH*JIUPE*Jr|?#( BPu_UC?PVP|O3LBS;n;l0@DB@RI ?LHUJI*PAUey~GQ!hz>/kz~C*UUFy9)iYYBy UU*fBEB`ExB`ABBHffTIH*JIUPj C/#( BPt}_Wu}?BAIIff~BaBLaJI*FO~^VTUC~U**SBUXpCfWBUBBBAIID|~BACJIUR?/+D*C*UUQ?B*uB*?B|BBAINHWJI*PWHUCU**NB}ABxBAINH*JIUPI*C*UUJ?n@Z?BpAINIUF ?OSTu}?OSPUQAq|JB*VA~8~~r8C830?0NB*BBBAIGOGOONyy`yyIcCs?I*C ')jz~')Z* bx~MBUV|.njzzF~fF~xBUV~>D~>W~BU~CBBAINHjJIUBM?yyDyUU**DffT`x~DH*JIUID?B0B"V(16287)128(16286)128(EC63EC47)I1I3:I2I4:22150V28400:`mOMP( m28100:P8S,1"V28500:MENU,ME$,ZN,LM,TMZ2,(13)(27)(47)(63),ZE,MC(LE),MC(LE),EC:EC27EC63EC47įP8S,LM,TMZ2(MC(LE)1)(1ZE),"-->",V(16287)128(16286)128(EC63EC47)22050SV28400:TVSMENU |VZI$I$:I$"Use arrows to select, tTM,RM,BM:NSAVE SCRNTKOTTAK,0,2,79,20,LE(LE),32128:LM2:RM76:TM4:BM18:cLO GET SCRNOTPUT,0,2,LE(LE):RFM,LE1,LM,TM,RM,BM:RR28200:ZN:L0ZN1:ME$(L)::LETBİ20000kRUMENUUZE0:ZBMTMZN1:ZZNZZZN:ZE(957)): NCARD Ux*N(LETB)MC(LE)1:(LE0)įRFM,LE,LM,TM,RM,BM:TTAK,LM4,TM3,RM5,BM1,W11100(LE1):MC(LE)1NTBLE:DFC,LE,T$,LM,TM,RM,BM:NCARD DNLE1ı NRFM,LE,LM,TM,RM,BM:TPUT,LM4,TM3,W11100(LE1):TBLE1:RFM,LE1,LM,:H(S)(S256):L(S)SH(S)256:I$"Type number or use arrows, then press Return.""":L1$"__________":I02:L1$L1$L1$::ZP$"TOOLKIT"LE0:TB1JI05:MC(I)1::H$(193)"-? for Help":ZS704:SET,1:RFL,"MECC$$DISK"ZS:33200:QN$ZN$:TD$(ir "`er Pair data`D):CN$(14):CO$(15):33100:YN$(1),QT$(1),MC(9):YN$(0)"No""":YN$(1)"Yes""":QT$(0)"program""":QT$(1)"data""":W159392:HP1403:VP37:TM4:LM3:RM76:BM20:LE1:TB1VJE$"":PN$T$:S(S)S(Z$)21:LE(S)W11100(S1)..,Get ready to process words...,Getting MECC Graph...:About MECC-FM,Toolkit - Help,Use MECC Graph - Help,0,1573,2422,3078:Main Menu,Toolkit,Use MECC Graph,Name/Number ,"Number Pair "`air "`nu,Toolkit,Use MECC Graph,Name/Number ,"Number Pa,0:ZU0::D$"OPEN"F$D2$:D$"WRITE"F$+ :"About MECC-FM","","Mailbox","MAIL","Database","DATA","Calculator","CALC","Memowriter","MEMO","Use MECC Graph","EXIT"6:Dialing MECC-COM-LINK...,Getting your files in order...,Get ready to crunch numbers. to store data on this diskette.":30000:EC272499:2403[ ZU1:ZE0:ZEĺD$"VERIFY"F$ ZEİ400:P8S,LM,13,"There is already data named "FF$:P8S,LM,14,"on this diskette.":30000:EC272499:2400% 400:P8S,LM,13,"Saving "FF$" data...":VP0003f<ff<cc>cc>>cc>0000000t` ```````fffffff~l6iɆpq{0`0``0`00000`Z<`~~6    lease prepare the printer.":30000:EC277020:L1Z:IN1f28450:P8S,0,12,"Printing mail...":22::34,(37):35,(37)1:PINIT:FPRT,53249,IN,MO,SF:IN0hMO0MO1287018:CU17022:7014jFEED:34,0:35,24:POFF:l2n28450:P8S,0,12":" 2. Single sheets of paper"::"Which number? ";:SLI,LL$,(13)(27),1,Z$,EC:EC277020bZ$""7008:CU(Z$)1:28450:VP,12::"How many copies? ";:Z1$"":SLI,"-09",(13)(27),1,Z1$,EC:Z(Z1$):EC277020:Z17010:d28450:P8S,0,12,"PF$M$(2):E$F$:28400:EC167000:EC188000:(902)6030:902,0:6001XT$M$M$(3):28200:MWFRT,IP,LN,".SP",".SP",0,II,LN,F^LL$"12"(13):EC277020a`Z$" ":Fİ28450:Z$"":VP,10::"Do you want to use:"::" 1. Continuous feed paper8450:T$M$M$(2):E$M$(1):FI$CN$(M,2):28200:FI$""IP0:VP,2::P8S,0,22,I3$:P8S,0,23,"Options: Control-P to Print, Control-R to Reply."P8S,0,21,L1$:28450:MWAKE,"/?":MW,79,18,PI,LN,PI,LN,EC,F:EC27ıEC175EC191EM2:3000:6030J                     ation,2,To a printer,To the ClipboardOPrint Destination,Print to ClipboardcSort Menu dataPrint Destination,2,Sorted order,Random orderSelect Sort FieldSelect Print WidthorSelect Sort FieldSelect Print WidthSP$SP$"Median = "D$(0,51):B$B$SP$SP$"Range = "D$(0,52)! PINIT:(952)02570:20:34,22:35,23:33,1:I30:I4MAX1:I450I450 " XE11:28);"MECC Information Manager":40(T$)2);T$:A1$:A$:B$:C$:II3I4:(" "(I1)"|",J6)D$2570 A$"Entry| 'X' |":B$" # | Value |":C$"-----|----------|"(DL$,62):MC(1)2A$A$" 'Y' |":B$B$" Value |"SP$"r = "D$(0,53):C$(C$,27)"|"(C$,51)?! A1$"":MC(1)1A1$" "SP$SP$SP$"Mean = "D$(0,50):A$A$Ȱ28200:I$T1$:28500:P8S,35,10,"Do you want to print to:":ME$(0)"A printer":ME$(1)"The Clipboard":MENU,ME$,2,37,12,(13)(27)(63)(47),1,CU,CU,EC EC27įP8S,37,102CU,"-->" D$(0,50)""D$(0,53)""İ2200 EC27CU2500:EC13CU13: ` [D]j I1MAX2499:MAX(D$(1,50)):MAX0įSHFT,D$,(I11)2,(MAX1)2,2:MAXMAX1:D$(1,50)(MAX):MAX49āI01:D$(I,49)SP$:t MAX1MAX1:D$(1,50)"1":RJS,D$,1 400:T$(0)D$(C,I1)  [P] CU1:TCLR,35,6,79,20:E$E$(5):P$))2350:I1150įP8S,X(C),6I1I3,D$(C,I1):I1I11:I1I4I3I31:I4I1:I(0):400$ EC11I10įP8S,X(C),I1I36,D$(C,I1):I1I11:I1I3I3I31:I(0):400) (ECKMC(1)2)CC. EX(EC27E$E$(1)):_ TCLR,35,6,79,20:E$E$(1):28200:LM1)1)(K8C0)(K21C1))EC10:K8EC11 EC272336:600:(T$(0))1T$(0)(((T$(0),7)(T$(0),J3)).0001):600:D$(C,I1)T$(0):EC8EC21CC:2350 600:D$(C,I1)T$(0):EC8EC21CC:2350V" EC10Ĵ(D$(C,I1)SP$(MC(1)2D$(C,I1)S:(T$(0))1T$(0)D$(C,I1) T1$I$:I$"":28500:I$T1$:EC12200:EC42400:EC62700:EC142600:EC162500:EC63EC47E$E$(5):3000:T$T2$ T$(0)D$(C,I1)I1MAXMAXMAX1:D$(1,50)(MAX):MC(1)1D$(1,I1)"0.00", KEC:(K8K21)((MC(11:TCLR,0,22,79,23:T$(0)""::P8S,X(C),I1I3J6,D$(C,I1)::MC(1)2įP8S,X(C),I1I3J6,D$(C,I1) MAX1MC(1)1D$(1,0)"0.00" 28500:P8S,0,23,"Enter Value:":X13:Y23:P8S,X,Y,SP$:300:EC272350:TCLR,35,2,79,4:EC16āI5053:D$(0,I)"":SY2)100.5)100):RJ:J0R(NXYSXSY)JhD$(0,53)(R):RJS,D$,1:P8S,35,3,"r = "(D$(0,53),5)s700:~ EDIT 200:400:E1$"?/"(1)(4)(6)(14)(16)(10)(11)(13)(27)(8)(21):LM35:TM6:RM76:BM20d C0:T$(1)"":EX56))",D"((957))",V"((958)):*.r.ZN$"":Z136:ZN$ZN$((ZSZ)):ZZ36((ZSZ1)0)::ZT(ZS):`:,LM,TM,RM,BM:TMZP:HP,LM:"Please remove the write-protect tab from your":HP,LM:QT$(T)" diskette.":WP2:33055-CPRINT"ZE="ZE" ZU="ZU" WP="WP" ZT$="ZT$:GETA$-KZU0:28100:-L$.VD1$",S"((953))",D"((954))",V"((955)):D2$",S"((9 at"::HP,LM:" Slot: "(ZL):HP,LM:" Drive: "(ZL1);J,"."v,MF0:P8S,0,21,L1$:30000:EC2733002,$54915:31100,.WRITE PROTECT CHECK,3WP33099,8ZU1:ZE0:ZEĺD$"BSAVEMECC$$DISK,A"ZS",L$2A"ZT$r-BWP(WP1):ZE4įTCLR number of this diskette must match the volume":HP,LM:"number as set in diskette support.":33055+ZV(ZE7):TMZP:HP,LM:"Please insert your "QT$(T)" diskette for":HP,LM:"MECC "QN$;:ZC2ĺ" in drive "ZD;A,ZC3ĺ:HP,LM:"in the drive locatedR,BM:P8S,0,21,L1$:TMZP:HP,LM:"Please insert the data diskette used":HP,LM:"at the beginning of this program.":28200:E$ZE$:33055*ZF1T0ĴWP33075:LMML:E$ZE$:*28200:E$ZE$c+TCLR,LM3,TM,MR,BM:ZVZE7ĢTMZP:HP,LM:"The volumeQN$ZN$T0ZU0:ZF1:F11)T0(F11(ZS35)SDTZT)MF1įTCLR,LM3,TM,MR,BM:P8S,0,21,L1$:TMZP:HP,LM:"Please insert side "(48SD)" of your MECC "QN$" program":HP,LM:"diskette.":28200:E$ZE$:33055*ZA0ZF1ZAZBįTCLR,LM3,TM,M(902)E$"Mailbox"(MLLM:ZP(BMTM)2:ZF0:ZE0:LMLM(LM4)3(LM4):ZD1(955)254įSET,(953),(954),(955)1SD:MF0(MF33013:ZEįRFL,"MECC$$DISK"ZS:33200)F10:MRRM3:MRMR(MR80)79(MR79):ZB(ZS41)(ZS42)256:ZEĭ(TZT)9,20:31100'耲Disk Verify%'SD1R'ꀴMF33006:SET,ZD:CPRO,ZP:ZPįCPRO,ZP'퀯SPRO,ZP(ZP):ZU1:ZS654:ZL9503ZD:ZC(907):ZV0:ZT$D1$:ZD2ZT$D2$'ZE$E$:E$"Toolkit":ZP$"TOOLKIT"ZP$"MANAGEMENT"ZP$"FLIP"E$"Main Menu":33010(PRGMR'S REENTRYo&n}ZE255T$"Toolkit":LE0:TCLR,0,2,79,20:28400:ZP$"MAIL"20000:(919)031000::105&x}TCLR,0,2,79,20:12:HP,0&}" Error "ZE" at line #"ZN" in program "ZP$ '}:" Please report this error to MECC.":30000:TCLR,0,2,70,21,L1$:P8S,3,12,"One moment please...":RNH,"MAIL"%yTCLR,0,0,79,23:(149)::12:"Getting the MECC Information Manager menu...":RFL,"SMALLRNH.OBJ":RNH,"MENU"%}ERR% }ZE(222):ZN(218)(219)256:216,0:32000%}ZUZE0ZE16Ħ&d}28200:MRRM3:MRMR(MR80)79(MR79)$yT0:ZD1:WP0:33000:HP,0:13:ZP$"FLIP"ZP$"TOOLKIT"(902)1Ĺ901,1:TCLR,LM,TM,MR,BM:P8S,0,21,L1$:P8S,LM,TM((BMTM)2),"Returning to your Toolkit...":RNH,"TOOLKIT"5%y(902)0įTCLR,0,2,79,20:P8S,"N"CU(Z$"Y")#u30120)#u30200::8#uPRINT Y/N#[vVP,ZY1:HP,ZX:((14)(15),1(CUDE),1)" "YN$(DE)" "((15)(14),1(CUDE),1)" "YN$(DE)" "(14);:#yESC#"y1000#|yCHAIN#yE$"":28200:ZP$"DATA"įCDB:902,0'$yTCLR,0,0,24,0:I," "(13)(27),,0,ZS$,0,EC:TCLR,0,23,79,23:="uY/N INP"uZX(HP):ZY(VP):CUDE:E1$"YNyn"(13)(21)(8):E$""E1$E1$(27)"u30200:SLI,E1$,,0,Z$,0,EC:EC13EC2730199"u(EC8)(EC21)CUCU#uZ$((Z$)32(Z$"Z")):Z$"Y"Z$1:P8S,S,0,T$:E$""įP8S,72(E$),0,"Escape: "E$C!dnP8S,0,1,L1$I!nP!n g!SoTCLR,0,22,79,23:x!To? LWR MSSGE!^o28400:P8S,0,21,L1$:P8S,0,23,I$:P8S,67,23,H$!o!0uPSB0"uTCLR,0,23,79,23:P8S,26,23,"Press SPACE BAR to continue":1:SL>(Information Managera,CR$,IP,LN:CN$(M,0)"1"įMWADD,IP,LN,CR$"HINTS:"CR$CR$,IP,LN:MWL,IP,LN,CN$(M,2)".HINT",IP,LN:MWADD,IP,LN,CR$,IP,LNuCR$(13):A$" TO: "NA$CR$"FROM: "CN$(M,1)CR$" RE: "CN$(M,4)CR$CR$:MWADD,0,LN,A$,IP,LN:PI04I$"":28500:I$I1$:2$I2$:22100:MI4:I$II$:Cp(902)M(CN$(20,1)):EC18:6040qE$"":28200:MWLEG,"+_EB-M`aVHUIWXYZFSLONQC":MWTC,"[PpRr/?":MWAKE,"":MWAKE,"?/"rWP1:800ytCR$(13):MWBUF,53249,12285,49152,1:MWL,0,0,CN$(M,2)".MAIL",IP,LN:MWADD,IP,LNhank you, "NA$", for using MECC-COM-LINK.":I1800::VP,14::"Disconnect complete.":I1999::28450:255:3110028450:P8S,0,3,J$:P8S,11,5,"Mail Name Sender Reply Sent?":ZNNM1:LM5:TM7:RM78:BM20:ZI21:I1I3:I2I4:I:"displayed.":E$M$(EM):28200H I01:I(16384)155::16368,0:28400:TCLR,0,0,79,0:WP1:800:CN$(20,1)(M)NA$:SVA,"MAILBOX.CNTRL",CN$:T$"":E$"":ZD$"":(902)1ZD1:T0:WP0:33000:28200:RNH,"MEMO"t28400:28450:VP,5:150::"Tge to which you" "wish to reply is displayed. You will then be given the chance to":"write your reply using Memowriter or send your reply if it has already":"been written.": "To leave Mailbox, press the Escape Key when the Messages screen is""To read a message, use the arrow keys to select the message you wish":"to read and press Return." :"To print a message, type Control-P when the message you wish to print" "is displayed."::"To reply to a message, type Control-R when the messassage"A$".":NMJ$J$" Which one do you wish to read?"bw5000:EC63EC47EM1:3000:1140~EC274000:6000:1140 28450:Z14:T$M$M$(5):E$"":28200:28400:Q$(34)c VP,3::"Mailbox allows you to read, write, and send messages.":: oVP,11::HP,50:Z$"":SLI,"YESNOyesno"(13),(13),3,Z$,EC:Z$((Z$" ")):Z$"Y"Z$"y"1125:Z$"N"Z$"n"1135:CN$(20,0)DA$:255 tA$("s",1(NM0)):vNA$(CN$(20,1),2):28450:T$M$M$(1):E$M$(0):28200:28400:J$"You have "(NM1)" meWelcome to MECC-COM-LINK, "NA$".":CN$(20,0)""ĺ:1130c f"Your last active date was: "CN$(20,0) j"Please enter today's date (e.g. 03/15/85): ";:DA$"":SLI,"-AZ-az-09 ,.'`:/-",(13),15,DA$,EC::"Do you wish to correct your name or today's date? "1)""J20):ME$(J)(CN$(J,2)SP$,22)(CN$(J,1)SP$,25)CN$(J,3)::NMJ1 `I30:I40:(902)1155:150:28450:VP,2:::"CONNECTED"7 eTCLR,0,5,79,20:VP,5::"What is your name? ";:NA$"":SLI,"-AZ-az ,.'`-",(13),25,NA$,EC:CN$(20,1)" "NA$::"$M$(6):28200:M$T$" - " ZA0:WP0:800:ZAZB:LVA,"MAILBOX.CNTRL",CN$:28200:CN$(0,1)""İ28450:28400:P8S,0,12,"Sorry, there are no messages in your mailbox.":30000:28450:31100J SP$" ":SP$SP$SP$SP$:J1:I01:JJ1:I(CN$(J,20),F$(19),M$(6):ZI1::I06:M$(I)::919,1:1000k 28450:T$M$M$(1):E$M$(0):28200:28400:28500: XF(((EC47)(EC63))(((16287)128)((16286)128))):F3000: T1:ZD2:LM3:TM2:RM79:BM20:28450:28000:33000: 28400:E$"":Tn) DISKETTE: MECC INFORMATION MANAGER;PROGRAM:MAILUPRGMR:SCOTT C JENSENs(COPYRIGHT (C) MECC, 19852LAST UPDATE 08/01/85 SCJF20992:APP,"COMMON.LIB":(175)(176)25620484 iZP$"MAIL":19000:T1$I$:RNH,"MECC WRITER.OVL":ME$(        tt#????`` ZF)" ",22):40130- L 850:(SN)(SEL%(0)DB)ı 28400:TCLR,0,2,79,20:P8S,48,21,"_":T$"Searching the File":E$"":28200:P8S,3,11,"Finding your records...":I110:TB$(I)AP$TB$(I)"*" &TB$(I)NP$TB$(I)"-*"k 0,2,79,20:REST,40670:ME$(0),ME$(1):P8S,20,7,"Do you want to:":MENU,ME$,2,20,9,(13)(27),1,1,Z,EC:EC27Z2įRAV,SEL%:SEL%(MR):TCLR,0,2,79,20:40120 札EC27Z1įTCLR,0,2,79,20:40120 ꜭEC27ı 40250:EC2740130' P8S,25,6ZF,(TB$()::40200 䜯TCLR,0,2,79,20:P8S,48,21,"_":REST,40660:E$,T$,ME$(0),ME$(1):28200:P8S,0,22,I$:P8S,20,7,"Number of records found: "(SEL%(0)):MENU,ME$,2,20,9,(13)(27),1,1,Z,EC:EC27Z2įTCLR,0,2,79,20:EC27: 圯P8S,48,21,"_":EC27įTCLR,0$(I)"":< œ650:LM50:TM3:RM79:BM20:REST,40620:E$,T$_ ̜28200:40390:ZFZF(ZFZN)ZN ֜28100:REST,40440:I17:Z$:P8S,50,TMI,Z$::P8S,0,22,I$:MENU,ME$,ZN,2,7,(6)(27)(13),0,ZF,ZF,EC ۜEC640170 SN0:I110:SNSN(TB$(I)"" @Select Records gJSL4450:ZC1:CU1:LELE1:AP$"All existing entries":NP$"All empty entries"TTCLR,0,2,79,20:40050:EC2740020hLELE1:r|SEL%(0)0įREST,40660:E$,T$:28200:40165 I221:P8S,48,I,"|"::ZF1:I110:TB  :(A$)1B$""1% J(B$)1:EC13JMAXB$""^% I(EC13(B$)0JMAX)EC27::J0J0n% EC13I1J% T$(0)D$(C,I1):EC13I3I1:TCLR,0,22,79,23:I(0):400% 28400:% HELPB& MLLM:LM5:T1$I$:I$TI$:LELE1:TTAK,0,2,79,20,63800,32 $ [F]o$ B$"":28400:E$E$(5):28200:X14:Y23:P8S,0,Y,"Find entry #:":E2$"-09"(8)(27)(13)(127)$ I11:1:P8S,X,Y,B$"_"SP$:SLI,E2$,E2$,0,A$,0,EC:A$"/"A$":"(B$)2B$B$A$% EC272728:A$B$:(EC8EC127)(B$)0B$(B$,1)8400:E$E$(5):28200:H$"":I$"Do you wish to erase the calculator entries and start over? ":28500:VP,22::HP,60:DE0:30100:E1$E2$#< CUįRAV,D$:D$(1,53):I(0):MAX1:D$(1,50)"1":D$(0,1)SP$:D$(1,1)SP$:T$(0)SP$:I30:I10:400$ H$T3$:I$T1$:(0,I)"|";:MC(1)2ĺD$(1,I)"|"/" MC(1)1ĺx" :FEED:I3I351:I4MAX1:XEI451I351::POFF:34,0:35,24:33,80" I30:I10:EC63EC47E$E$(2):3000:2510" T$(0)D$(C,I1):TCLR,0,22,79,23:200:400:EC0"' "( [N]#2 T1$I$:E2$E1$:2,"Your reply has been sent.":300000I$T1$:l:Toolkit,Messages,Read Message,Print,Reply,Help,Mailbox`J$""J28450:P8S,0,3,"Send reply to: "CN$(M,1):P8S,0,5,"File name"B$":":E$M$(2):28200:28400:P8S,0,23,A$:SMENU,F$,N,0,7,40,20,40,(13)(27),0,0,J3,J4,EC#^EC278099:AA$ME$(M):ME$(M)(AA$,(AA$)1)"Y":CN$(M,3)"Y":28400:28450:P8S,0,129:P8S,6,82(J41),"-->":28400:E$"":28200:E$F$:J41Ĺ902,1:4000GI019:F$(I)""::WP0:800:FCN,".MEMO",F$,N:N0E$M$(2):28200:28450:P8S,0,12,"There are no "Q$"Memowriter"Q$" files to send.":30000:8099HA$I2$:B$"s":N1A$"":B,"Please insert the next sheet of paper.":30000:@28450:T$M$M$(4):28200:P8S,0,23,T1$:A$(0)"Write a reply":A$(1)"Send a reply":P8S,0,5,"Do you wish to:":I12:P8S,7,62I,(I)"."::MENU,A$,2,6,8,(13)(27),1,1(902),J4,ECFFEC27809&xm "ZP$R}:" Please report this error to MECC.":30000:TCLR,0,2,79,20:31100c耲Disk VerifylSD1|ZM0:ZE$E$뀴MF33006:SET,ZD:CPRO,ZP:ZPįCPRO,ZP퀯SPRO,ZP(ZP):ZU1:ZS654:ZL9503ZD:ZC(907):ZV0:ZT$D1$:ZD2ZT$D2$KE$:HP,0:" Disk error #"ZE".":30000:TCLR,0,2,79,20:31100Qd}PRGMR'S REENTRYn}ZE255T$"Toolkit":LE0:TCLR,0,2,79,20:28400:ZP$"MAIL"20000:(919)031000::105x}TCLR,0,2,79,20:12:HP,0:LM5}" Error "ZE" at line #"ZN" in progra2,"One moment please...":RNH,"MAIL"yTCLR,0,0,79,23:12:"Getting the MECC Information Manager menu...":RFL,"SMALLRNH.OBJ":RNH,"MENU"}ERR }ZE(222):ZN(218)(219)256:216,0:32000}ZUZE0ZE16Ħ<}ZE0ZE16įTCLR,0,2,79,20:1279(MR79)yT0:ZD1:WP0:33000:HP,0:13:ZP$"MAIL"ZP$"FLIP"ZP$"TOOLKIT"(902)1Ĺ901,1:TCLR,LM,TM,MR,BM:P8S,0,21,L1$:P8S,LM,TM((BMTM)2),"Returning to your Toolkit...":RNH,"TOOLKIT"$y(902)0įTCLR,0,2,79,20:P8S,0,21,L1$:P8S,3,1u30200::uPRINT Y/N[vVP,ZY1:HP,ZX:((14)(15),1(CUDE),1)" "YN$(DE)" "((15)(14),1(CUDE),1)" "YN$(DE)" "(14);:yESC"y1000|yCHAINyE$"":28200:ZP$"DATA"įCDB:902,0 yTCLR,0,0,24,0:28200:MRRM3:MRMR(MR80)C:TCLR,0,23,79,23:!uY/N INPouZX(HP):ZY(VP):CUDE:E1$"YNyn"(13)(21)(8):E$""E1$E1$(27)u30200:SLI,E1$,,0,Z$,0,EC:EC13EC2730199u(EC8)(EC21)CUCUuZ$((Z$)32(Z$"Z")):Z$"Y"Z$"N"CU(Z$"Y")u30120 e: "E$dnP8S,0,1,L1$n5nTCLR,0,22,79,23:K"oTCLR,0,2,79,20:\To? LWR MSSGE^o28400:P8S,0,21,L1$:P8S,0,23,I$:P8S,67,23,H$o0uPSBuTCLR,0,23,79,23:P8S,26,23,"Press SPACE BAR to continue":1:SLI," "(13)(27),,0,ZS$,0,Em CL WINDInTCLR,LM,TM,RM(RM80)79(RM79),BM:LM2įP8S,48,21,"_"O'n](n? TITLESFnTCLR,0,0,79,0:FI$""įP8S,0,0,"File: "FI$:28250PnTD$""įP8S,0,0,"Data Disk: Drive "TD$ZnS40(T$)21:P8S,S,0,T$:E$""įP8S,72(E$),0,"EscapE$,ZN,LM,TM,RM,BM,ZI,(13)(27)(47)(63),I1,I2,I3,I4,EC:EC27EC47EC63įP8S,LM,TM(I4I3),"-->"V(16287)128(16286)128(EC63EC47)I1I3:I2I4:22150V28400:`m28100:P8S,LM14(LM3),TM(BMTM)2,"One moment please...": :28500:H$ZH$:MENU,ME$,ZN,LM,TMZ2,(13)(27)ZL$,ZE,MC(LE),MC(LE),EC:EC27EC63EC47įP8S,LM,TMZ2(MC(LE)1)(1ZE),"-->" ,V(16287)128(16286)128(EC63EC47)22050 SV28400: TVSMENU |VZI$I$:I$I2$:28500:I$ZI$jVSMENU,M0,LE(LE),32128:LM2:RM76:TM4:BM18:7 LO GET SCRNe OTPUT,0,2,LE(LE):RFM,LE1,LM,TM,RM,BM:k R R28200:ZN:L0ZN1:ME$(L)::LETBİ20000 kR UZH$H$:ZE0:ZBMTMZN1:ZZNZZZN:ZE1 UZL$(47)(63):ZGH$"":ZL$"" "VZG0(LE0)įRFM,LE,LM,TM,RM,BM:TTAK,LM4,TM3,RM5,BM1,W11100(LE1):MC(LE)1o NTBLE:DFC,LE,T$,LM,TM,RM,BM:{ NCARD D NLE1ı NRFM,LE,LM,TM,RM,BM:TPUT,LM4,TM3,W11100(LE1):TBLE1:RFM,LE1,LM,TM,RM,BM: NSAVE SCRN( KOTTAK,0,2,79,2$"Use arrows to see remainder of text.":I4$"The first character in the filename must be a letter.":Q$(34) JI05:MC(I)1::H$(193)"-? for Help":ZS704:SET,1:RFL,"MECC$$DISK"ZS:33200:QN$ZN$:TD$((957)): NCARD UL *N(LETB)MC(LE)1:$T$:S(S)S(Z$)21:LE(S)W11100(S1):H(S)(S256):L(S)SH(S)256:L1$"__________":I02:L1$L1$L1$::ZP$"TOOLKIT"LE0:TB1m `JI$"Type number or use arrows, then press Return.":I1$I$:I2$"Use arrows to select, then press Return.":I3 8JINIT BJ:919,0:32000LJD$(4):CA$(1):CC$(3):CL$(12):CN$(14):CO$(15):33100:YN$(1),QT$(1),MC(9):YN$(0)"No""":YN$(1)"Yes""":QT$(0)"program""":QT$(1)"data""":W159392:HP1403:VP37:TM4:LM3:RM76:BM20:LE1:TB1 VJE$"":PN      ՙID˙E̙BϙCЙ@љAҙ>ә?ԙ W  e,LLLX 7$)6ә>ԙ? qp6 G 8`L/g8hegiȱehj8ȱ7jU8ȱV8ȱɱ  s,Search Completed,Continue search,Examine Recordsnޞ Add records to those already found,Begin a new searchr will then be able to search for records that,match the pattern.GpExamine Records,SetUp/Change Subset Examine Records,Find Data  Find Data,Search Entry Search EntryʞInformation,All records selected2Ԟ Examine Record Entry,ʞInformation,All records selectedtԞ Examine Records,Search Completed,Continue search,Examine Recordsޞ Add records to those already found,Begin a new searchRecordsޞ Add records to those already found,Begin a new searchcomputenager file, you will need to set up a search pattern.",The computer will then be able to search for records that,match the pattern.Examine Records,SetUp/Change Subset Examine Records,Find Data  Find Data,Search Entry Searchegin,the search. "To search for all the","entries that begin with a","certain character(s), type the","character(s) followed by a *."*HTCLR,0,2,79,20:RTCLR,0,22,79,23:To select a subset of records from the Information,"MaT,40640:E$:T$ME$(0):28200:P8S,50,7,"Search for:":TCLR,0,22,55,22:P8S,0,22,"Type Search entry, then press Return."HP,54:10:SLI,,(13)(27),22,TB$(ZF),EC:Select one or more fields,to search.,,,"When finished, press",Control-F to b,49,6Z,(13)(27),0,ZC,ZC,EC:TCLR,50,5,79,20:EC27İ40370:PvZC1İ40410uEC27TB$(ZF)ZD$:40370:4029040370:ZC1TB$(ZF)ME$(ZC1)TCLR,50,3,79,20:ƝНZN0:I09:ME$(I)F$(I1):ZNZN(F$(I1)"")::ڝw䝯RES search entry"FX40370:ME$(ZN)AP$:ME$(ZN1)NP$:ZC1:ZPZN:ZNZN2bZ0:ZD$"":Z$"":TB$(ZF)""ZD$TB$(ZF):Z$"The current entry is:":Z4?lP8S,50,4,"Field: "F$(ZF):P8S,50,6,Z$:P8S,53,8,ZD$:REST,40630:E$,T$:28200:P8S,0,22,I$:MENU,ME$,ZN:800:I010:DB$(I)TB$(I)::SRCH,SEL%,DB$,NR:CDB:SEL%(0)NR:RS1:TCLR,0,2,25,20:E$"Examine Records":q : DREST,40630:E$,T$:28200:ZN1:I16:FP$(ZF,I)""ME$(I)FP$(ZF,I):ZNI1N:ME$(0)"Type in search entry":TB$(ZF)""ME$(0)"ModifyD# D`-#D.#ED`  ### <= <ȭ<ȭ<ȭ#<ȭ#<><ȥ?< <<= H <=#I<#<##`q" ""ȱ h!"8ȱ ">? "6p"5#>6#? "!p ""<"=`""8쭇"`+#*#)#@A %#  # `@ i @ ȱ ;#`,"`, ,`<=ʱD>` <=5#?6# "!)">? "PLj"" 8` "L L L x@8MɭɊ=Le 2 `,0 (!U XT`I`I0, `n! J! { ^_ ( { R !,`L8n! <!=!< =Ѝ ,                  SRaaabbcb2d|eefhffhhij k.kkl.lloo4_`^opbqrsGwwܓEa|@rrNacnؘ'||[}}#~&}~~/}",`U]_]j]S]X]] ],lP.l7-l LW`ժժժխՖխժCNTCLCNTRICPRDFRFFCFCFKRFRNLVAPP8QFRARESRJSNOPRSPRSESLNSRPINIPOFPACFEESHFSVSMENMENTTATPUFPRCFPGFPMWFRMWMWMWIMMWLEMWBUMWTMWFMMWPULMWADMWODMWCCMWDBMWAKMWPMDBODANDAGACDSRCMDRA`,),w0*w8w v8w [ vLv,>w0 29w +u`29w +u,?w 2u3w 3w0Ȍu Tu`2;w1wȄv Z` More 29w +u`80,v0&5*w.H vh9w *w nvLvnvi *wِ׭w09w Ev`*w9w8wm*w)w8w v [8w_6w 4w ʎ9w4wI)jj4w Ft t bt t ެ9w 5^ ެw0`*w)w9w8m8w)w v`t+wtw *U0 ttt Ztt*w` . , Ev w0: )w +wi;w -w /w 1w 3w?w { 7w^5w_6w 8w 88w9w1w8-w)w)w*w Ft bt t u ެ8w 5^ ޭ9wm8w 4^ ެw8w?w=w W'w(w *w +w -w { 7w^5wrrӅr :Tr8rrrrrrrr :Tr[mrrr r셖셕&rr쨩 :Tmrrrire T`Lԥ쥜 eie`5w6w?w4w>w W'w(w RqUqVqSqVq,Mq8RqXq>SqYq?L5qRqmXq>SqmYq?RqYqmYq?UqmUq@VqmVqARqeXqYqe?YqUqe@UqVqeAVqRqmOqRqSqmPqSqUqmOqUqVqmPqVq8Uq)ooo o8`ooo9o_  Zo`o>? o--# o-́o  o o ́óoo`̢o>` , 8$`- n n+nXn@n W<= { R>?No L8no,oLE]+` a^+`` $8`o0o`o͚ooo͜o ͚oo@`oo@O `oo@O 0̜o`o0̛oo ΛoΜo@`o<͚o&Oșo ~n¥@+o R䨈qo͛ooȥqȥro 4^T `< n,,)oo >oߠȌoo@`o͞oPL\,l-l7.lP(L\ ʊLL\ &LLW`L 䎱 掲` oooooo@%o{o o { 卢o^_ o { 卝o^_ o 掚8mBmnCnL5ZLI g RPQ{| ֤ʆ}~` Wqq { v Rȥqȥr <0qq.q q@. @>@I@8>@>8 @<>0<eLQk`7s much of the information you'll need to answer the questions you get in your mail. You may also use this program to";" create your own information files.":30000:CL$TI$CC$:VE$CC$::GCP,X1,Y1:::" 3. Calculator: A program which computes averSP,1:"TOOLKIT"::" To help you meet MECC-FM's informational needs, you have a "(34)"toolkit"(34)" of computer tools. These tools include:":~VSP,2:" 1. Mailbox: A system for receiving and sending messages."w:" 2. Database: Contain and respond to problems facing the station. You will use your skills in";z" identifying, producing, displaying, and evaluating the information needed to solve these problems."|30000:CL$TI$CC$:PA$""ĺPA$CC$}VE$CC$::GCP,X1,Y2:VSP,1:Hted MECC products include MECC Writer and MECC Graph.":_t30000:CL$TI$CC$:PA$""ĺPA$CC$xvVE$CC$::GCP,X1,Y1Kx"In MECC Information Manager you play the role of manager of radio station MECC-FM. In this role, you will need to make decisionsL,Y2LX1DXL,Y2DYLX1L,Y2DYLX1L,Y1DYLX1DXL,Y1DYLX1DXL,Y1L::aXCL$TI$CC$zlVE$CC$::GCP,X1,Y18qVSP,1:"MECC Information Manager is part of the Evaluating Information series in the Computing and Information collection. Relar diskette."CC$30000:CL$:CS(P(P(999))1)16NCS1CS7CS6VCS\p1:X11:Y10:X2279:DX10:DY8:L02:X1DXL,Y1LX2DXL,Y1LX2DXL,Y1DYLX2L,Y1DYLX2L,Y2DYLRX2L,Y2DYLX2DXL,Y2DYLX2DXL,Y2LX1DXing "F1$"...":D$"BLOADSMALLRNH.OBJ":1013,0:38912,"STATIONUTIL.OBJ":RFL,"PRINTER COMMANDS.BIN"P(948):906,1:RNH,F2$(955)254Ĺ946,(955)1SDCL$:HSP:VSP:CO,0,89:"Getting "F1$"...":38912,F2$:CL$:CO,0,89:"Insert anotheN$(A)GF2$"TOOLKIT"F2$"FLIP"İ200:901,0:UNHOOK:::D$"PR#3":F2$"TOOLKIT"Ģ12:"Getting your Toolkit...":D$"BLOADSMALLRNH.OBJ":1013,0:38912,"STATIONUTIL.OBJ":RFL,"PRINTER COMMANDS.BIN"P(948):906,1:RNH,F2$yF2$"FLIP"Ģ12:"Gettgement Options":F2$"FLIP"W AS(3)F1$"Printer Support":F2$"PRINTER SUPPORT":SJ2 AS(4)F1$"Diskette Support":F2$"DISKETTE SUPPORT" AS(6)5000ZD1:T0:WP0:SD1:SJSD2:MF1ZD1:T0:WP0:33000A0ANPF1$MN$(A):F2$CNN1:4(N9):S(3)N:N". Printer Support"] 4NN1:4(N9):S(4)N:N". Diskette Support" HNN1:4(N9):S(6)N:N". End" :GCP,ZX,ZY:ZY160įCO,ZX,ZY4 "Which number? ";:9000:WIND AS(1)İ7000:2000 AS(2)A1F1$"the Mana,64:24576:DFT,1,30210:AFT,1:CO$:HSP:VSP:WINDV CL$:6000:CO,0,MT:CN$TI$CC$ CO$:GCP,ZX,ZY:WIND,ML,ZYSP,270:CO:"Program:" :L1NP:4(L9):L". "MN$(L):: "Options:": NNP1:4(N9):S(1)N:N". General Information", *D$"BLOAD C.FNT,A29953":D$"BLOAD TITLE.PFT,A30210" LNP1:MO1:QN$"Information Manager":TI$"MECC "QN$:PA$"":VE$"Version 1.0":MN$(NP),CN$(NP):L1NP:MN$(L),CN$(L): SJ0:(975)255Č24768:975,1:DFT,1,30210:DFT,2,29953:80003 Y2191:230th one disk drive.":300005 +T0:WP0:ZD1:33000: :(149):902,0:CA$(1):CC$(3):D$(13)(4):CL$(12):CN$(14):CO$(15):MT13:ML37:SP0:P(S)(S)(S1)2562 1:I01:910I,(1014I)::33100:D$"BLOADPPRINT.OBJ"D1$:24768:24576: "QN$" is currently set to use two disk drives.":::"Do you have two disk drives attached? ";:INP,(3,"YESNOyesno",1),Z$:Z$((Z$)32(Z$"Z")):Z$"Y"Z$"N"ĺCL$:210 Z$"N"āI02:956I,(953I)::CL$:CO,0,82:"You may now use MECC "QN$" wi9# PRODUCT: INFORMATION MANAGER2PRGM MENUIPRGMR P. BOUCHARDg(COPYRIGHT (C) MECC, 19852LAST UPDATE 07/22/85 JJKZ32000i16384:ZP$"MENU":919,1:1000(918)(955)254(ZS36)2ı918,1:CL$ CO,0,54:"MECC      D$"DELETE"TI$(I4)".MEMO"D2$:800+4000:(#LOADARRAYK#(D$(1,50))İ200:P8S,0,10,"There is no information in the Clipboard.":30000:P#LD1:200:28000:(D$(1,51))9050,9070,9120,9060:Z#DATACLIP__#L0(D$(1,50))1:MWADD,OC,OT,(D$(0DELETE MEMO.Z$"delete":700:T1ıfE$"Memowriter Menu":T$"Delete Memo":400:EC27ı!200:I$"":28500:10:"You are about to PERMANENTLY erase "TI$(I4)"."::"Are you sure you want to do this? ";:DE0:30100:CUWP1:T1:ZD2:33000:CLR,0,18,79,18:2020A(TI$)2020:MD0:OC0:OT0:500:800:P EDIT MEMOj Z$"edit":700:T1ı E$"Memowriter Menu":T$"Edit Memo":400:EC27ı T$"Memowriter":300:TI$TI$(I4):MD0:OC0:OT0:Z2$TI$".MEMO":350:500:EC27ı 300T$"Memowriter":28200:200:I$"":28500TCLR,0,22,79,22:23:"Enter a name for the memo: ";:TI$"":SLI,,ML$(47)(63),15,TI$,EC:CT1:EC27ı250:Z2000TI$""2020:A(TI$):A122A65A90A97įTCLR,0,22,79,23:P8S,0,18,I4$:30000:T28500:L02:ME$(L)M$(L)::LM10:ZN3:Z20000:22000:EC2731100:TCLR,LM,TM2,RM,BM:TTAK,0,2,79,20,49660,32128EC47EC63İ10000:TPUT,0,2,49660:1000MC(LE)2000,3000,4000:TPUT,0,2,49660:1000CREATE MEMO(E$"Memowriter Menu":WS,OT,TI$".MEMO":800:-CHECK FOR MEMOSeT1İ200:12:"There are no memos to "Z$".":30000k FCN,".MEMO",TI$,T1:MENUA1$"":A2$"_":Z((902)1):E$"Toolkit":ZE$"Mailbox"vLE1:T$"Memowriter Menu":I$I1$:28200:Z200::P8S,0,18,I4$:30000:TCLR,0,18,79,18:EC13:625WP1:33000:WP0:CNT,Z:(T120)(OT2561Z)İ200:P8S,0,12,"You must delete a memo to save current memo.":30000:EC27715:4000:FI$TI$:T$"Memowriter":28200:600200:13:"Saving "TI$"...":MN2:MC(LE)1:LM10:P8S,10,7,"This file already exists.":22000:EC27ıqFG0:EC13MC(LE)2FG1:28400:23:"Type a new name for this file: ";:Z$"":SLI,,ML$,15,Z$,EC:EC27620:TI$Z$1sTI$""625:A(TI$):A122A65A90A97įTCLR,0,22,79,23400:EC13Z2$TI$(I4)".MEMO":350:LD1UEC1810000:EC19600:EC19000:500dXSAVE MEMO]Z0:L0T1:TI$TI$(L)Z1:LT11b:Z645:ZG1:ME$(0)"Let the new file replace the old.":ME$(1)"Save with a different name."Hl200:I$I1$:ZB$"the changes":CTA$"You created this memo. Do you wish to:":B$"it" ME$(0)"Save "B$:ME$(1)"Forget "B$:200:P8S,10,7,A$:ZN2:MC(LE)1:LM10:I$I1$:22000:(EC13)(MC(LE)1)600:EC13EC27ı 250:Z506)EC12Z$"load":700:(T10)100:CT0:250:Z400 200:, CALL MW FI$TI$:28200:300:I$I0$:28500:200:MW,70,17,OC,OT,OC,OT,EC,MD:LDMDLD:EC175EC191İ10000:T$J$:E$A$:500 FI$"":EC27LD1ıI EC27LD508:LD0:ZG1:A$"You made changes to this file:":"/?":5 ^ZE0:33000:ZU1:ZEįMWL,OC,OT,Z2$,OC,OTh `ZE14İ200:P8S,0,12,"File too large.":30000s cZU0: SHOW MEMOS 200:28200:I$I1$:L0T1:ME$(L)TI$(L)::ZI20:I10:I20:ZNT1:LM10:TM7:10:6:((Z$)32)(Z$,2)" which memo?":229,1:1000: LM0:RM79:TM2:BM20:28100::CLEAR SCREEN Z0:(((16287)128)((16286)128))((EC63)(EC47))İ10000:Z1 ,INIT 1MWBUF,53249,5640,53249,500:VP,0:HP,0:FPRT,53249,0,ZM,EC:MWTC,"SARL[":MWLEG,"*":MWLEG,"-M_":MWAKE,R.OVL":19000:33100:T1:ZD2:W1:RFM,0,LM,TM,RM,BM:33000:800:LVA,"CLIP.BIN",D$ nCM$(13):I0$"Press CTRL-A for Clipboard":L06:A$(L)::L02:C$(L)::L02:Z$:M$(L)Z$" a memo"::L06:A(L)::ML$CM$(27):MC(1)1 sI06:M1$(I)::91j INFO MANAGER#PRGM: MEMO=PRGMR: ERIC SWILDENS[(COPYRIGHT (C) MECC, 1985y2LAST UPDATE 08/20/85 JJKd19788:APP,"COMMON.LIB":(175)(176)256iA$(6),M$(2),C$(2),TI$(20),ME$(20),A(6):(902)1İ200:28000S jRNH,"MECC WRITE          8,4096,3328,5376,2816 ,Events,3328,4096,3328,5376,2816 rime,Salaries,Budget,Poll,Events,3328,4096,3328,5376,2816 ies,Budget,Poll,Events,3328,4096,3328,5376,2816 16 eILBOX.CNTRL,DHELP.BIN,CURSOR,DELETE,FIND,LOAD,SAVE,SUMMARY,CALC2,CALC4,PRINT,1792,CALC3,2560,CALC1,3072=UÃCrime,Trivia,Record Data,Salary Survey,Out of Red,Special Events,New Poll,Crime,Salaries,Budget,Poll,Events,3328,4096,3328,5376,2816 vents,332e a MECC "Z$" diskette. Are you sure you want to erase it? ";:36000:OK(Z$"Y")W<k<38000:CO,0,73<И"You are about to erase a "T$(ZT)" diskette for "ZN$".":::"Are you sure you want to do":"this? ";:36000:OK(Z$"Y")<g=PÃCLIP.BIN,MA,ZP:ZU1:ZE0:ZS640:ZEįRFL,"MECC$$DISK"ZSN;vCO,0,27:CEW:ZEİ39100:;ZU1:ZE0:Z9503ZD:ZEĺD$"VERIFY LOGO,S"((Z))",D"((Z1))",V"((Z2));Z$"program":ZEZ$"data":ZP1OK1:Q":F$"CALC"(MC(3))".HELP":MWBUF,53249,8959,49152,1:MWLEG,"+_EB-`aHUIWXYZFSLONQC":MWTC,"[":T1:ZD2:WP0:28450:33000:28450:28000:MWL,0,0,F$,IP,LN' T3$E$:E$"Help Menu":28200:MC(3)4įP8S,0,23,I3$&( 28450:VP,2::128:T$"Calculator - Help":I03:M$(I8)ME$(I):ME$(I)M$(I4):& 28200:TCLR,0,23,79,23:P8S,0,23,I$:TCLR,0,3,79,20:P8S,0,6,"The following help screens are available:":MENU,ME$,4,0,8,(13)(27),1,MC(3),MC(3),EC:EC273090' TCLR,0,22,79,23:E8 `D>ʱD>`   <= <ȭ<ȭ<ȭ<ȭ<><ȥ?< <<= H <=I<<`>? q*p"ә>ԙ? qp 6`əșǙ@A Ù   `@ i @ ȱ `,` {ݩD ^ D`˙D̙ED`<=e?` ` Ƃ8>?8왝 c+8>?ƠmL܁`@ĂBCÂł‚eÂĝĠѡłȐĂĠ,‚`ĝ‚ W g R L[ W<=>?BCB@AeBBC<= Ƃ<=Nn   L``ED mȱBȱC`B* D $8`$:Pf|<= ` { ~^~_~ ~~ |`L We#! W"!"3" Jz e" ޤ 5^` $B*"- ȱB*  #,}0 cz` z 4^ ޥ 4^`$ 憊 ީ# m{ 4^`LL 憊 W# Jz<e<< < R>><q<>> q?PPȱQLyQPQ  Wi8囅@圅A<= 5Z &X Wm`IzTzLpzŊ  =z`L:zTzLpz LzTT LԠ`{aI `tanding Correlation,Using the Calculatorp):Toolkit,Calculator Menu,,Restore Entry,Help Menu,Edit Entries,,,,,):A Analyze Data,D Delete,F Find Entry #,N New,P Print):,,,,):70,54,19,15`ԕVʖ? :p">? %p eg^h_^`ȱ^Șe^^_iȑ^^_@A 򘑝  ☠ `@ i @ ȱ Ӓ`,` {ݩD ^ D`DED`? <)e e,L׭:5;6X:;LXLX:; f$)e>? pe G 8`L1g8hegiȱehj8ȱL: ; :ȱ;:8;8ȱ LVVӏΏϏ<>? ST U ) s,` Lz,L` ˍ\DEBC@A>? # { RP:Q ; D,L `  ST` hL { <@A { RST BӕΏϏ<@A sV sUڅ쩏쪈 ԕS>T ?ԕȱȌԕU Ӓ)?ӕ0.,  ޭU  ޭV `H sh,L,L { <>?  { RST BU*+ ߅$0*+  c`Lv { (^_ <= ޤ<=LL L ~ , ` ~ , L ɔ?> ɔ=<8?. e<&8>!>> g R>P>Q ?=<`L #H h`STST<ȭ<ȭW<ȭY<><ȥ?< <H<= H <=X I<W%>>*@%@@ E@L `ɪɭ`8`HI F` ݒ <GG mG#,8 ` ,Q,R,T X+JJJJ % "\  , X,lӠӠŠҍԠŠŠԠŠ͠ˍĠӠή` яҏ̏͏( B֏` 8`ҏӏ̏͏ЏяԏՏ( `̏͏ ` cޏߏޏߏ֏`ˏޏߏLǏ ̏ˏ  ֏`<=0<a {D>ʱD>` L&`EE݌$8`ab _݃`pab,~p8`dd$8%&'(( ˍL$>܏?ݏ@ڏAۏB؏CُDԏޏEՏߏ%&' DЏB L+ɍvw+LɯL 8ɀ   Lޤȱ 0:,јe湥 ii , ,`vwL<=":P8S,50,12,"Select the second field":P8S,50,13,"to be printed to the":P8S,50,14,"Clipboard. Enter Ctrl-Q":P8S,50,15,"if you wish to use only":P8S,50,16,"the f0:40090 REST,45040:E$,T$:28100:28200:ZL221:P8S,48,ZL,"|"::ZL1NF:ME$(ZL1)F$(ZL)::P8S,50,5,"1 or 2 fields may be":P8S,50,6,"printed to the Clipboard.":P8S,50,8,"Select the first field to"F P8S,50,9,"be printed to the":P8S,50,10,"C2,7,8,(13)(27),1,MC(7),MC(7),EC:EC27(QSEL%(0)0QSEL%(0)DB)40030:EC27İ28100:RAV,QSEL%:40010 |28100:ZPMC(7):ZF2āL1DB:SEL%(L)1: NS0:I1DB:SEL%(I)1NSNS1:SEL%(NS)I :SEL%(0)NS:ZP240100 42000:EC2740160:41007),1,MC(6),MC(6),EC:ET$T$:MC(6)2A$"Selected Records"s ^EC2740040:L0DB:SEL%(L)QSEL%(L)::RAV,QSEL%: hZFMC(6)(QSEL%(0)0)1(QSEL%(0)0):28100:REST,45030:E$ET$:T$:21000:P8S,5,6,"Where do you want to print the file?"h rMENU,ME$,@PRINT-SORTJ800:TBLE:LM2:RM79:TM2:BM20:28100:REST,45000:L16:SF%(L)::QSEL%(50):L0DB:QSEL%(L)SEL%(L)::ET$"Examine Records":A$"All Records":P8S,0,23,I$:SEL%(0)0SEL%(0)DB400409 TT$:E$ET$:21000:MENU,ME$,2,7,8,(13)(2"" " " " " """""""""