' +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*`uժժժժժժժժժժժժժժժժժժժժժժժՂ@@`L3f 0fL lL0`L6 3f ժժժժժժժՂժժժժժժժժժժժժժժժժժժժժժժժժՊժժժժԪժժժժժ@?| 00fժժժժժժժժՊЪժЪժժժժժժժՂժժժժժժժժժЪժժժժժժժժժժժժժժՂ@~xpL? 0fO L0`L 3f|in estimating the amount of money spent on a shopping trip."Cping trip."mication, division, and percentages."xÃ"Heartbeat","HEARTBEAT","Provides exercise in estimating the number of heartbeats in a given period of time."Ã"Shopping","SHOPPING","Gives practice in estimating the amount of money spent on a shopping trip."d diskette.":30000:'PòPROGRAM DATAdÃ"Number Line","NUMBER LINE","Gives practice in estimating the location of whole numbers and decimals on a number line."$nÃ"Estimate","ESTIMATE","Drills on estimating problems in addition, subtraction, multipl"Error: File not found.";:32100A}ZE8ĺ"I/O Error.";:32100y(}ZE0ZE16ĺ"DOS Error #"ZE" in line #"ZN:30000:2}:"Error #"ZE" in line #"ZN" in Menu Program. Please report this error to MECC.":30000:d}" Please check your disk drive an:D#ZL11:XX(1):Z(16384):ZL(Z127)::ZZ128:16368,0:[0uSPACE BAR ROUTINEl:u:SPACE::yPROCESS ESC-ESC"y2000,y}ERROR PROCESSING }ZE(222):ZN(218)(219)256:ZE255Ĭ!}CO$CL$:WIND:HSP:VSP:CO,0,80:ZE6GCP,ZX,ZY:WIND,ZX,ZY,250,ZY12:DL$(127)Q2#DL$:CO,ZX,ZY:9100:AZ:A19070i<#A49A(48N)9010|F#(A);DL$;CA$;P#9100:Z139070Z#Z8Z127įCO,ZX,ZY:CEL:9010d#9040n#AA48:A1A1x#XX(XX):SEED RANDOM # GENERATOR#,VSP,4:CL$:::"Use of ESC Key"CC$::"You may want to quit in the middle of a program. If so, press the ESC (escape) key twice whenever the computer is waiting for you to type."WIND:VSP:30000:(#INPUT ROUTINE*-#CA$;:16368,0:TI$:PA$""įCO,ZX:PA$W>12:" Direct inquiries to:"::" "CC$;:GCP,ZX,ZYH:WIND,ZX,ZY,279:CO:"MECC Distribution":"3490 Lexington Avenue North":"St. Paul, Minnesota 55112":"(612) 481-3527"R30000:CL$:WINDESC ESC SCREENN$(L)::" ";:GCP,ZX,ZY:WIND,ZX,ZY,279,191:L11DP:DS$(L,L1);:L1:_WIND:::L:30000v SUPPORT BOOK INFO*CL$:CO:VSP,10::"A manual to aid in the use of this diskette is available from MECC.":VSP49:" Title: ";CA$;:GCP,ZX,ZY:L02:9,6L432L,6L:2352L,6L269,6L:9,183L392L,183L:2392L,183L269,183L:d}XGENERAL INFORMATIONbCL$TI$CC$:VE$CC$l:GCP,X1,Y1SHOW DESCRIPTIONSL1NP:GCP,ZX,ZY:ZY150ZYY1İ30000::CO,X1,Y1:CEWGM58269,185<6:X10:Y10:X2278:Y2191:DX18:DY12:L02X1DXL,Y1LX2DXL,Y1LX2DXL,Y1DYLX2L,Y1DYLX2L,Y2DYLX2DXL,Y2DYLX2DXL,Y2LX1DXL,Y2LX1DXL,Y2DYLX1L,Y2DYLX1L,Y1DYLX1DXL,Y1DYLX1DXL,Y1L:^1:ժժժժժժժժԪժժժժժЪժժժժժժժժժժժժժՊժժЪժժժժժժժժժժժժժժՂժժժժժժՊ@?| 00fЪժժժժժժժժժժժժժժժժժժժՊՊԪժժժժժժժժժժժժժЪժժժժժժժժժժժՊ@~xpL? 0fO L0`L 3f|ժժժժժժժժժժժժ@@G <|pC  ժժժժժժժժժժժժժժժժժժՊժժժժՊժժժժժժժժժԪժժժժժժժժժՂժժՂԪժժЪժժժժժժժժժժժժժՂժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժՂժժժժՊժժժժժժժժժժժժժժժժժժժՊժժՂЪժժԪժժժժժ@>| `qCժժժժժժժժՂЪժЪժժժժժժժՂժժժժժժժժժժժժժժժժժժժժժժժ@||x@G3<|pcL8x`GG3|xժժժժժժժՂժժժժժժժժժժժժժժժժժժժժժժժժՊժժժժԪժժժժժ@f 03f@6ժժժժժժժժՂЪժЪժժժժժժժՂ@[`{~ @BOHOOUNHOOCECRDFAFPARSNOJUSJUSCNNOCNGCDVSHSSPACCEPAUSCWININjymmfkUkxkkkkkkkdkk#lmcmmm n`lllll~~~0` pvv0`0``0`000`~<~0000`` ɛ MBpBp0LDpBpɈTPɿɯ,p 詍0@ɍp7,p pCp) }pCp9p Џ pLo ` ֩PyQ AL }ppp`uptp Uptpup` ~L_pH)hJJJp`LANCS AZ09!/:ԪժժժժժժժժժЪժժժ@@G <|pC  ЪժժժժժժժժժժժժժժժժժժժժЪժժժժժԪժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժԪժժժժժժժժժԪժժժժժժժժժԪժժժЪժժժժժժժժժժժՂժժժժժժժժժЪժժժժժԪժժժժժժժժժժժժժՂժժժՊժժժժժժժժժժժժժժՊժժժժժժՂ@>| `qCժժժժժժժժժԪժժժժժժժժժՂՂԪժժժժժժժժժԪժժժЪժժժժժժժժժժժՂ@||x@G3<|pcL8x`GG3|xժժժժժժժժժЪժժժժժЪժժժժժժժժժժժժժՂժժժՂЪժժժժժժժժժժժժժժՂժժժժժժՂ@f 03f@6ժժժժժժժժժժժժժժժժժժժՂՂԪժժժժժժժժժԪժժժЪժժժժժժժժժժժՊ@@`L3f 0fL lL0`L6 3f |ccaCL |y?L?~O|ȑŸ珔|sgOy|@dL<~L?~gy翔gsdL(Wk||Occ>cc>>cc>0000000hw` ```````fffffff~l6iɆpq{0`0``0`00000`Z<`~~6  |sgyO@dL|L?~O|翔@@G <|pC  |sgOy<>>|OdL~|sgsgL?~O~@?| ~T*ss(U*(U*(U*?~|p|p<~?dL|y<L?~?~ȑ翔|sg?~~pdL|y<L?~gy翔@3f @G3|pcL L0`L 3fL?~dLL?~L?~yg<yO|(U*(Wk(U*?~<?~L?~L?~O|<|xp@dLL?~L?~ss<~||yysgO?0`L3f^|sgsgL?~O@<~|ss(U*(U*(U*?~||p?~x?~|y<L?~?~ȑƊԂ|sg?xOpdL|y<L?~Gx翔@x`GGfx?~dLL?~L?~yg|yO|(U*(Wk(U*?|<|L?~L?~O||dLL?~L?~cq<~||yysgO?0fL3fN|sgsaL?~Opx`GGfxժժժժժժժժժժժժժժЪժժժժժժժժժժժժժժԪժժժժժժժЪժժՂЪժժժժժժժժժ@00ЪժժժժժժժժժժժժժժժժժժժժЪժԪժժժժժժժժժժժժժԪժժժժժժժժժЪժժժ@`Lf 0FG ժժժժժժժժժժժժժժЪժժժժժժժժժժժժժժժժժժժժժժЪժժՂժժժժժժժժժ@@00ЪժժժժժժժժժժժժժժժժժժժժЪժ               ժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժՊժժժժժժ@3`L10f ժժժժժժժժՊԪժԪժժժժժժժՊժժժժժժժժժЪժժժժժժժժժժժժժժՊ@3f @G3|pcL L0`L 3fLԪժժժժժժժժժժժժժժժժժժժժժժժժՂժժժժժժժժժժՂժժժժժժ@<|xqCժժժժժժժժՊԪժԪժժժժժժժՊժժժժժժժժժЪժժժժժժժժժժժժժժՊ@x`GGfxԪժժժժժժժժժժժժժժժժժժՊժժժժՂժժժժժժժԪժժժժժժժժ@00ժժժժժժժժՊԪժԪժժժժժժժժժժժժժժժժժԪժժժժժժժժժժժժժժՊ@`Lf 0FG ЪժժՊժժժЪժժժժժժժժժժժժՊժժժժՊժժժժժժժЪՊժժժժժժՂ@@00ժժժժժժժժժժժժժժժժժժժժ               y  Uy `@ i @ ȱ u`,X` {ݩD ^ D`myDnyED` &Lu`L 䎱 掲`RFRNSEv@wvyL j v u`iȱehj8ȱLw w wȱw8w쭮w8ȱ>? y:p"uy>vy? y%p xg^h_^`ȱ^Șe^^_iȑ^^_kyjyiy@A e>uy?vy 2y  { RPwQw wL wxLl`N ubDmyEnyBqyCry@syAty>uy?vy 2y w&x eL׭wwwwXwwLXLXww x$)xuy>vy? ypx G 8`Lx8ghegiv <= <ȭ<ȭ<ȭgv<ȭiv<><ȥ?< <<= H <=hvI<gvʱD>` <=<<>'|<<|'><<>|<<|z"#???    ήà! ŮԠŲȡ  Š̮ʠ Աà!Ǡ Բà! Ԡ ŠΠϠՠ Ԯʠ!Ϡ ҠŠ׮Ԡ.63Ã"High heels",36.99.Ã"Shorts",6.49DÃ"Tank top",13.42[Ã"Swim suit",41.85lÃ"Ball",2.39Ã"Frisbee",6.98Ã"Baseball mitt",22.49ă"Panty hose",2.63Ds error to MECC.":30000:310000Pò"DATA STUFFHZÃ"Knit Shirt",13.99[dÃ"Purse",11.24onÃ"Blouse",21.99xÃ"Duffle Bag",24.99Ã"Tennis Shoes",34.99Ã"Tube Socks",1.19Ã"Bat",6.73Ã"Shirt",7.99Ã"Tote bag",24.99Ã"Dress",84 full.":32105Ad}"DOS error number "ZE" at line #"ZN".":32150Si}30000:31000vn} PROCESS BASIC ERROR (HI-RES)x}ZL53856ZE}ZE25531000}ZM01:ZP(ZL):(ZP);:ZM(ZP127):ZLZL1:ZM:" error at line #"ZN"."}:"Please report thi2}(12):CO,0,89Y<}ZE2ZE3ZE7ĺ"Please check your diskette parameters.":32105F}ZE4ĺ"Please remove the write protect sticker from your diskette.":32105P}ZE8ĺ"Diskette bad - drive or format error.":32105Z}ZE9ĺ"This diskette is,0,89:"One moment please...":RNH,"MENU"R} STANDARD ERROR PROCESSING (HI-RES)u }ZE(222):ZN(218)(219)256}(15):ZE1532110}ZUĦ: ZU IS THE USER PROCESSING FLAG (FOR DOS ERRORS)(} USERS ENTRY POINT (WHERE THE USER JUMPS BACK TO)CL$:16299,0.''0u"GET SPACE BAR4:uSPACE:ZySTANDARD ENDING ROUTINE (HI-RES)"yWIND:(12)(15):CO,0,89:"Do you want to try again? "(1);,yINP,(3,"YESNO",1),Z$:Z$(Z$,1):Z$"Y"Z$"N"310106yZ$"Y"Ĭ)@yWIND:VSP:(12):COTUP, INSTRUCTIONS'8192:TI$(18),RP(18):D$(4):CC$(3):CF$(6):CE$(5):CB$(2):CN$(14):CL$(12):CO$(15):PARSE:VSP,4:L118:TI$(L),RP(L):::NN0 'WIND:CL$:CO,0,89:"One moment please...":RFL,"MODISHEDEN.PIC"8192:16300,0:30000:tal of $"PT$"."&t30000:NN031000~VSP,4:WIND:100:CO,0,90:NN0:"Do you want to continue":"shopping? ";:DB:GCP,X,YCO,X,Y:CEL:INP,(3,"YESNO",1),I$:I$(I$,1):I$"Y"I$"N"1160I$"Y"įWIND:100:104031040''"SE"? $";:INP,(4,"-09",1),I$:UT(I$):BOX:CO][PT$(PT):(PT$,(PT$)1,1)"."PT$PT$"0"`UTZLUTZTĺ"$"UT".00 is not close enough to the actual total of $"PT$".":1140j"Very good! Your estimate of $"UT".00 is close enough to the actual to((ZS)1)Q:Q%(L)Q:CO,210:PTPT(RP(LNN)Q): LX(X):WIND,0,150,279,191:BOX:CO:(NI)ĺ"You can't make an estimate since you haven't bought anything!":1140 QS$"these items":NI1S$"this item",V"What is your estimate of the cost of "S$:N$(RP(LNN)):(N$)4N$" "N$m %"$"N$::CO,0,150:"There is a limit of 15 units per item.":CO,210,Y .NI0:ZT0:ZL0:PT0:L0:L19 8GCP,X,Y:INP,(2,"-09",1),I$:Q(I$):Q15įCO,210,Y:CEL:10801 BNINIQ:ZSRP(LNN):ZLZL(ZS)Q:ZTZTearest dollar.":30000:1003 "Modish Eden"CC$: 3:CO,0:"Sale Item";:DB:GCP,X,Y:0,Y8X,Y8:CO,100:"Unit Price";:DB:GCP,X,Y:100,Y8X,Y8:CO,200:"Quantity";:DB:GCP,X,Y:200,Y8X,Y8" $:GCP,X,Y:L19:CO,0:TI$(LNN);:DB:CO,1105 units of an item. Decide how many units of each item you want to buy and type the number. Type '";:DB:GCP,X,Y:"0' if you don't want to buy a particular item.":3:X4,Y1X2,Y4 :"Estimate the total cost of your purchases by rounding to the n having a fantastic sale. You will be given a list of the items on sale at the door." :"The list will help you keep track of what you have in your shopping cart and estimate the total value of your purchases.":30000:100 :"You can buy up to 1 ESTIMATION(PROGRAM: SHOPPINGCDEVELOPER: M.BOUCHARD`(PROGRAMMER: JON CLAUSON}2COPYRIGHT (C) MECC 1984<LAST UPDATE: 84/06/29 JDCF32000Z1000d"CLEAR WINDOWnBOX:CO:DB:V 10000:100:NN9::"Modish Eden is      the write protect sticker from your diskette.":32105pP}ZE8ĺ"Diskette bad - drive or format error.":32105Z}ZE9ĺ"This diskette is full.":32105d}"DOS error number "ZE" at line #"ZN".":32150i}30000:31000n} PROCESS BASIC ERROR (HI-R56}(15):ZE1532110V}ZUĦ: ZU IS THE USER PROCESSING FLAG (FOR DOS ERRORS)(} USERS ENTRY POINT (WHERE THE USER JUMPS BACK TO)2}(12):CO,0,89<}ZE2ZE3ZE7ĺ"Please check your diskette parameters.":321056F}ZE4ĺ"Please remove15):CO,0,89:"Do you want to try again? "(1);k,yINP,(3,"YESNO",1),Z$:Z$(Z$,1):Z$"Y"Z$"N"31010y6yZ$"Y"Ĭ@yVSP:(12):CO,0,89:"One moment please...":RNH,"MENU"} STANDARD ERROR PROCESSING (HI-RES) }ZE(222):ZN(218)(219)2pointer should advance each time."8':"Press the "CN$(33)CO$" and "CN$(32)CO$" keys to move the pointer to the desired location on the number line.":30000:100:0u"GET SPACE BAR:uSPACE:ySTANDARD ENDING ROUTINE (HI-RES)/"yWIND:CL$(estimating the location of a number on a number line."::"To indicate the location of a number, move the pointer to the point where you estimate the number is and press RETURN."$'30000:100".':"Press 1, 2, or 3 to indicate the number of steps the L2 31000''"SETUP, INSTRUCTIONS'16384:D$(4):RFL,"ARROW.FNT"31222:DFT,1,31222:AFT,1:CC$(3):CN$(14):CL$(12):CO$(15):SP$" ":CQ$(17):CP$(16):100:PARSE:VSP,4:WIND,10,10,269,181:CO':"In this program you will practice 264L3,150L315L3,150L315L3,130L3:< F((X2X)4)I FWW1| (F)(X2X)1.1A$"You got it right.":3040 A$"That is close enough.":(F)A$"Sorry, that isn't close enough." CO,1,137:A$CC$ BOX,1,170,279,191,0:30000:DB:132990K49S1$K50S22K51S4EK51K58S0O 1200_"BACKSPACEX(57(S1)2)XX(2S):1195(1200F"FORWARD SPACEPX(217(S1)2)XX(2S):1195Z1200* 400:5:L301:15L3,130L3264L3,130L3 ";:A$(NU):OPANU:300"uA$0~600:700CO,0,170:CN$(33)(32)CO$": to move arrow"CC$:CO,5:"RETURN: to select a point"CC$X137:S1:K(0):K(1)"GET KEY AND RESPOND800K(5):KK128K81300K211350K0.00-9.00)":CO,11,145:"Which would you like? ";:INP,(1,"-12",1),I$:OP(I$)1Z WINDg LL2110p V500 `100:CO,20,20:"Problem #"L2 j5:L301:50L3,40L3219L3,40L3219L3,55L350L3,55L350L3,40L3:tCO,58,44:"Locate number,89,OX8,97,0:CO,X,89:CN$(35)CO$:OXX:0 C "MAIN PROGRAM 10000::"You will get 10 problems using the following types of numbers:"P WIND,35,80,250,150:CO:L12:L".":::WIND,55,80,250,150:CO:"Whole numbers (0-9000)"::"Decimals (10024,9824,10320,100:270,100266,98266,103270,100:U "PRINT NUMBERS ON LINEt L4521040::&CO,L+1,106 (OP)A$(((L45)2LV)):740 A(L45)160LV 300 F((4(A$))4)1:CO,LF,106:A$:: "ANIMATE ARROW* *BOX,OXLV((1)80)> NU20(NU20)NUNU((1)5)9:NULV520G 560V "DECIMALSv &LV(((1)32)1)4:UVLV1 +NU(((1)24)1)100(((1)4)4)LV 0 X"DO NUMBER LINE9 b6:L01:20,100L269,100L::L6022040:L,98L,103::20,".00":340 @Z4340. JA$A$(Z$,1,4Z)4 TM "SHOW REAL LOCATIONm (OP)X2(NULV)257:430 X258((NULV)160) CO,X21,98:CP$" ":CO,X2,98:"*"CQ$:  "GET LIMITS, AND NUMBER OP550 LV(((1)450))20:UVLV80:NUЭ ESTIMATION+PROGRAM: NUMBER LINEF(PROGRAMMER: J.CLAUSONc2COPYRIGHT (C) MECC 1984<LAST UPDATE:84/07/09 JDCF32000Z1000d"CLEAR WINDOWnBOX:CO:,"ADD TRAILING ZEROS1Z$"00000" 6A$(A):Z(A$):Z1A$A$     ES)x}ZL53856ZE%}ZE25531000s}ZM01:ZP(ZL):(ZP);:ZM(ZP127):ZLZL1:ZM:" error at line #"ZN"."}:"Please report this error to MECC.":30000:3100099))1)16:BS1BS7BS6:FIND BOOT SLOT2 }BS D*RFA(FA):FB(FB):CA(CA):CB(CB):07 J"MAIN PROGRAMU10000100:::"You may choose problems in:":VSP,6:WIND,40,60,60,160:CO:L15:L"."::WIND,58,60,250,160:CO:"Addition":"Subtraction""Multiplication":"DivisiAA)AA0:I((1)2)1:760ZAP100:AC(BP):B(ACP):800:UC(CBP)1:LC(FBP):`x "GET FLOOR/CEILING*FA(A10(NA1))10(NA1)4CA(FA10(NA1)):(FAA)CAA>FB(B10(NB1))10(NB1)HCB(FB10(NB1)):(FBB)CBBNB1I2NA3:NB2*I3NA4:NB2L(AA)AA0:I((1)3)1:750600:AC(AB):AACB:800:UC((CAFB).5):LC(FACB):"PERCENTNA4:NB3:600:I1P(((1)10)1)100I2C((1)3):P(C0).25(C1).5(C2).75(100:B((1)21)10:A(ACB):NAI:NBI:B10A10(AB1000)741I3AC((1)8801)1000:B((1)68)31:A(ACB):NA2:NB2:A99B99(AB1000)742(AA)AA0:I((1)3)1:740800:ACAB:LCFAFB:UCCACB:"DIVIDEI1NA3:"ADD& (AA)I((1)3)2:NAI:NBIO 600:800:ACAB:LCFAFB:UCCACB:^ "SUBTRACT (AA)I((1)3)2:NAI:NBI 600:800:AC(AB):LC(FACB):UC(CAFB): "MULTIPLY I1NA2:NB1:600:"Jerry-riggedBI2AC((1)899)I$): W X"GET A AND BI bA((1)(10NA110(NA1)))10(NA1)~ lB((1)(10NB110(NB1)))10(NB1):B1620 v(BA)A2A:AB:BA2 w(BA)610 {A(A):B(B)   "GET VARIABLES AAFL:OP720,730,740,750,760 13L0T00:L2SE1001:590* !GCP,X,Y_ &K8L1L0:I$"":XX8:CO,X:(127)" ";:CO,X 0K8L1LL1:I$(I$,(I$)1):XX8:CO,X:" ";:CO,X 5K48K57590 :LCN590 D(K)(127);:CO,X8:I$I$(K):LL1 N:" ";:PARSE:IN( "SORRY PAL[ CO,10,150:"Sorry, your estimate is not close enough.":30000:150:a { "TIMED INPUT ROUTINE I$"":NOJUST:K(0):K(1):T01:GCP,X,Y:(127);:CO,X:L0 L21SE80 K(3):K128590 KK128:K127K8 K145,279,191,0: - "TIMED OUT MESSAGEi :CO,10,145:"You have run out of time.":30000:150:o + ,"EXACT ANSWER MESSAGE 6CO,10,145:M$(4)CC$:30000:150:  "CLOSE ENOUGH MESSAGE CO,10,145:M$(((1)3))CC$:30000:150:% ESTIMATION(PROGRAM: ESTIMATECDEVELOPER: M.BOUCHARD^(PROGRAMMER: J.CLAUSON{2COPYRIGHT (C) MECC 1984<LAST UPDATE:84/06/01 JDCF32000Z1000cd"CLEAR WINDOWnBOX:CO:"CLEAR BOTTOM OF SCREEN BOX,0,      !!!!!!!""" " " " er- centered. Use of the printed instructional materials is essential to the success of this module." SPACE:(12):CO,0,89:"One moment please...":975,1:(Turn off Hprint deadstart) RNH,"MENU": }PROCESS ERROR BY RE-BOOT* }:BS(P(P(9 8230,64:RFL,"PPRINT.OBJ"N BALSO LOAD ANY OTHER ESSENTIAL BINARY FILESv L975,255:SOUND BYTE; DO NOT DELETE VL1893:(16384)128Ăf 24768:(12):"Estimation"(3):5:VSP,7:"This module is designed to be teacher-centered, not comput978)157Ģ12:"THIS PRODUCT NEEDS AT LEAST 48K TO RUN.":16384,128:16368,0:32000 230,64:D$"BRUN LOGO":16304,0:16297,0:16299,0:16302,0 $GOSUB 3000 FOR HARDWARE CHECK (64K, 128K, OR //E) .D$"BRUN ESTIMATEUTIL.OBJ":PUTNAMEOFUTILPACK4 ESTIMATION%PROGRAM: HELLOCCOPYRIGHT (C) MECC, 1984b(LAST UPDATE: 84/05/30 JDCtMAIN PROGRAM32000D$(13)(4):P(X)(X)(X1)256(65435)6ĺD$"PR#0":D$"IN#0":16372,0:TURN OFF THE 80-COLUMN CARDT ::(   er diskette."CC$ 30000:CL$(:LCS(P(P(999))1)16: SLOT #`CS1CS7CS6hCSnpDRAW BORDERz4:21,021,191 1:9,69,33:11,611,32:9,1589,185:11,15911,185:267,6267,32:269,6269,33:267,159267,185:269,175)):CL$:11:"The sound is now turned "SB$(((975)))"."CC$:30000:2000[ AS(6)5000pRUN THE PROGRAMA0ANPF1$MN$(A):F2$CN$(A)CL$:HSP:VSP:CO,0,89:"Getting "F1$"...":RNH,F2$END OPTIONCL$:11:"Insert anothThere are no management options available.":30000:2000w AS(2)A1F1$"the management options":F2$"MANAGEMENT" AS(3)F1$"Printer Support":F2$"PRINTER SUPPORT" AS(4)F1$"Diskette Support":F2$"DISKETTE SUPPORT"J AS(5)Ĺ975,((9 ";:SB$(0) = "on":SB$(1) = "off": PRINT SB$( PEEK (975))\ HNN1:4(N9):S(6)N:N". End"z RESPOND TO USER'S CHOICE :GCP,ZX,ZY:ZY160įCO,ZX,ZY4 "Which number? ";:9000:WIND AS(1)İ7000:20008 MOA1ĺCL$:VSP,8:CO,0,75:"(N > 9):S(2) = N: PRINT N". Program Manager":MO = 1y *N = N + 1: HTAB 4 - (N > 9):S(3) = N: PRINT N". Printer Support" 4N = N + 1: HTAB 4 - (N > 9):S(4) = N: PRINT N". Diskette Support"8 >N = N + 1: HTAB 4 - (N > 9):S(5) = N: PRINT N". Turn soundCL$:6000:CO,0,MT:CN$TI$CC$:PA$""ĺPA$CC$r CO$:GCP,ZX,ZY:WIND,ML,ZYSP,270:CO:"Program";:NP1ĺ"s"; ":"::L1NP:4(L9):L". "MN$(L):: "Options:": NNP1:4(N9):S(1)N:N". General Information"3 N = N + 1: HTAB 4 - ,CN$(NP),DS$(NP,DP): MENU NAME, CATALOG NAME, DESCRIPTIONm tL1NP:MN$(L),CN$(L):L11DP:DS$(L,L1):: ~DATA STATEMENTS ARE AT 50000 DISPLAY MENU (975)255Č24768:975,1 230,64:24576:DFT,1,15128:AFT,1:CO$:HSP:VSP:WIND/ 0:FORMATTING PARAMETERS3 P(S)(S)(S1)256N RFL,"TITLE.PFT"15128f LPROGRAMMER OPTIONS VNP4:DP1:MO0:#OFPROGRAMS,#OFPARTSPERDESCRIPTION,BOOLEANFORHIDDENMANAGEMENTOPTIONS `TITLE$"Estimation":PART2$"":VE$"Version 1.0": jMN$(NP) ESTIMATION%PROGRAM: MENUBPROGRAMMER: P. BOUCHARD`(COPYRIGHT (C) MECC, 19842LAST UPDATE: 84/05/30 JDCZ32000INITIALIZATION15128CA$(1):CC$(3):D$(13)(4):CL$(12):CN$(14):CO$(15) MT13:ML37:SP1035ZWIND:CL$:CO,0,80:"Do you want to do other types of problems? ";:DB:GCP,X,YCO,X,Y:CEL:INP,(3,"YESNO",1),I$:I$(I$,1):I$"Y"I$"N"1220I$"Y"įWIND:101031040"ADD/SUB SUB-MENU 100::"You may choose to wor200:1180 INACİ300:11806INLCINUCİ450NINLCINUCİ400VLEWIND:CL$:DB:CO,0,80:"Do you want more ":T$(OP1)" problems? ";:DB:GCP,X,YCO,X,Y:CEL:INP,(3,"YESNO",1),I$:I$(I$,1):I$"Y"I$"N"1200I$"Y"GCP,X2,Y::X2X25:YY5:Y2Y16:XX2(A$)95:XX((X2)X2)e5:L01:XXL:X2X2L:YY1:Y2Y21:X,YX2,YX2,Y2X,Y2X,Y:jCO,10,70:"Estimated Answer":CO,15,90:CN((UC))1:500:150tCO,150,70:"Exact Answer":CO,155,90:AC ~T0nds.":CO,10,95:"How many seconds would you":"like to be given? ";:DB:GCP,X,Y.CO,X,Y:INP,(2,"-09",1),I$:SE(I$):SE5SE301070KLLE1NL:DBV100:CO,10,20:"Problem #"LE:700@`CO,0,50:A$(A)" "S$(OP)" "(B):A$CC$;:DB:o 30 problems.":CO,10,95:"How many problems do you":"want? ";:DB:GCP,X,YCO,X,Y:INP,(2,"-09",1),I$:NL(I$):NL30NL51050Q$100::"You will be given a limited amount of time to estimate an answer. The time length is between 5 and 30 secoon":"Percentages":VSP,4WIND,10,10,269,181:CO:CO,10,140:"Which one do you want? ";:INP,(1,"-15",1),I$:OP(I$):CL$:CO OP5000,5000,6000,7000,8000:100:VSP,4 FLAAMWIND,10,10,269,181:CL$:CO,10,50:"You may choose to do from 5 t     p-͂ooo _pLnõoo^`No ݤp 輤pppp߹ppo _po , g 掏p ,o vpp) p pp)p ߅ l o ) L{Bp HHHp hhh `+ hR("  h5880`L pppop ( vpLRo Ln {$0! 掐p ,L)o k {$0L#oNo 千oLoo n|-?npLn Up no n U mhhhhhhhhh,lp` ֩PyQ ALŠҠ僁'i(imiʈ*i+i &')iq&,iL6i N8`f `.f`mm ` ң Σ  h @)`,` sj ެLqj,Hl  !l  h!l`L, HHHHHHHHH k l jlNO,ɍɠ ɛ8nl,lPݩ'i(i)i hmHihʍ*i+i,i L8iL Sk TkMUkSk &g<>=MUk?'<>SkSkTk` H g Rh PQ`L     խ)?` `& ,jQ&-0iQ&&)i)i,i`/i-0i/i)i &g&'-i ,jQ&-/iQ&&)i)i,i`*U U*ժ gj')JMgj)1i Q&,5iP 0=lj`hj`J&)` `L3f̙jj ߅$0Hjj LbLvjj j` hH)8 qȥq8)h` g R  QP (`L h`L)  @ 5ij1i3i j2i4i'i(i g-i j/i*i+i g.ij0i-i.iB)i &g&'-i ,jQ&-/iQ&&ȭ1i.i ,jPhHhhh hJ` &eeieh ghIiwhi 썼h &gmh﬽hMhwhPjjjjjjj0jj) h0ȱjhjhhУ`8pPL2f -`,f`'im(imʈ*i+i)iʎ,iL6i Kggg`gg ggg`g Kg gggg`ggg8pg.g(gggmgg`8pgJJJ) }gggmgg`((((PPPL de80 " Tfm8h)` dem88eLf` deme` d8` f@ f f f`Lc dff`) ``fʽ`) ` `fH`mS` dS`)ae``e hae g`e}`mf8ff`f` dLc,0*`%f 8fHfJhj`mfff` c d` c dI``f`emfff`) ffffffO,0 `)  d`f(`HHf,Pf88`f d fhLcfHfHff,P d fhf8hfffffff``S`S```f穀f f`f3f'ff `ɀ   LX8e湥 qHqH L`@ @ʩ WRPT` J  dȱȱȱ` hfH) #,f h`` fffffffh`f fS```emffff  2f%%h $20 LZc $ aHaH`daemeWeeeef1fSflffffff(bb d (cf hf gNOH (c h f ghH ,aɈ.hH (cb h) e f g (c fbbh`˅o 8````L`bbbbIq$% `@ GaLa6 ,fLcLmfPa bHaa,aaɠ,wa ` a欇aah`ɀ)?  @IH (c$ d f$%0 d           AA(I3)CL$:'#7'"SETUP, INSTRUCTIONS'16384:D$(4):CC$(3):CN$(14):CL$(12):CO$(15):100:PARSE:VSP,4:WIND,10,10,269,181:CO:S$(1)"+":S$(2)"-":S$(3)"X":S$(4)"/":S$(5)"% of"'M$(0)"Very Good!":M$(1)"Excellent!":M$(2th:"6TWIND,20,50,269,171:CO:VSP:L13:L"."::R^WIND,44,50,279,171:COwh"1 to 10 percent of a number":r"25, 50, 75 percent of a number":"A mixture of all":::WIND:CO,0:"Which one do you want? ";:INP,(1,"-13",1),I$:I(I$)-digit number":?"A 4-digit divided by a 2-digit number":"A mixture of all"::WIND::CO,0:"Which one do you want? ";:INP,(1,"-14",1),I$:I(I$)AA(I4)CL$:?@"PERCENTAGE MENUJ100::CO,0:"You may choose to work wi2AA(I4)CL$:W3X"DIVISION MENUbb100:CO,0:"You may choose to work with:"lWIND,25,40,269,171:CO:VSP:L14:L"."::v:WIND,46,40,279,171:CO"A 3-digit divided by a 1-digit number":"A 3-digit divided by a 2igit times a 2-digit number":"(product less than 1000)":"A 2-digit times a 2-digit number":"(product more than 1000)":"A mixture of all":WIND:::"Which one do you want? ";:INP,(1,"-14",1),I$:I(I$)I1NA1:NB2I1NA2:NBNAI:NBI:AA(I5)"CL$:(oBp"MULTIPLICATION MENUqz100:CO,0:"You may choose to work with:"WIND,15,35,279,171:CO:VSP:L14:L"."::L1L4ĺ:WIND,32,35,279,171:CO"A 1-digit times a 2-digit number"::"A 2-dk with numbers that have:":VSP,6:WIND,40,60,60,160:CO:L14:L"."::WIND,58,60,279,160:CO:"Two digits":"Three digits":"Four digits":"A mixture of all"VSP,4:WIND,10,10,269,181:CO,10,140:"Which do you want? ";:INP,(1,"-14",1),I$:I(I$)13CCnJ*NAsBc600`CFJUOAs``wBfgC{9{{ J*B MBlLC8W0W8JUBBgBlgClk {|J*BBC AC~~|~~JUjG`E~dGsBcB6f`CBwJUNGAGsBBCFB;FJ*NGAGsB`B0`Ca]a}}JUNGAGsBgB0gC.5B;J*NGAGsBsB63Cwx{JUNGAGsBs600p00CBnJ*NGAGsBcB6cCtwutJUNGAGsBsB6ydGQFA@D`A@H?BByBLyCFJUNG]A|ApB|@adGOFx~J~xHBBX}- CFJ*NG\AOGGBOAdGOH@NHxBByB{CFJUNG_BOdGsBBqCFJ*NG_p`Bg`pdGs00{C3ACFJUNG_DB~BBBYCFJUNG\A~D>A8dGQF@``DpA`@HB@@_BY_CFJ*NG_HDdGOG|L|HBFACFJUNG_BsdGOD@CBGB <~~B@@oBLOCFJ*NG_p`pc`pdGOE@`ppG`@GBBYCFJUNG]AsA@BsdGOGCGA~HBBJ*NGAGJp`@UCUBUBUUUBUABUCUBOBfFCFJUNGAGN~C*B*B* FBC BBB CFJ*NGAGOCUBWBB@B`@CFJUNGAGOCC@D`DpD8DBBBGlo`OCFJ*NGAGO~x`FDQB oBlOCFJ捿ttmtt`BB0xXCFJ*B037B6ACFJUBBC3ACFJ*BBC3ACFJUNA^D?A/A/++++**BB3?>CFJ*NGAGOC_B WUUUBUABUCUBB>0CFJUNGTvGLB?C*B*B***B*AB*C*BBB3CFt u@ )` t t t0H)?hJ t t t?Lt t&'&Ȅ``tt ttt`t)tJJ tttt .t .t ntt)!! ! ! ! ! !!t this error to MECC.":30000:31000Dte is full.":32105F#d}"DOS error number "ZE" at line #"ZN".":32150X#i}30000:31000{#n} PROCESS BASIC ERROR (HI-RES)#x}ZL53856ZE#}ZE25531000#}ZM01:ZP(ZL):(ZP);:ZM(ZP127):ZLZL1:ZM:" error at line #"ZN"."$$}:"Please reporK TO)"2}(12):CO,0,89^"<}ZE2ZE3ZE7ĺ"Please check your diskette parameters.":32105"F}ZE4ĺ"Please remove the write protect sticker from your diskette.":32105"P}ZE8ĺ"Diskette bad - drive or format error.":32105#Z}ZE9ĺ"This disket):CO,0,89:"One moment please...":RNH,"MENU"W!} STANDARD ERROR PROCESSING (HI-RES)z! }ZE(222):ZN(218)(219)256!}(15):ZE1532110!}ZUĦ: ZU IS THE USER PROCESSING FLAG (FOR DOS ERRORS)"(} USERS ENTRY POINT (WHERE THE USER JUMPS BACproblems.":30000:VSP,4 $'2 0u"GET SPACE BAR? :uSPACE:e ySTANDARD ENDING ROUTINE (HI-RES) "yWIND:(12)(15):CO,0,89:"Do you want to try again? "(1); ,yINP,(3,"YESNO",1),Z$:Z$(Z$,1):Z$"Y"Z$"N"31010 6yZ$"Y"Ĭ.!@yVSP:(12)"Good job!":M$(3)"All right!":M$(4)"Right on it!":T$(0)"addition":T$(1)"subtraction":T$(2)"multiplication":T$(3)"division":T$(4)"percentage" 'CL$:"ESTIMATE"CC$::::VSP,8:"In this program you will practice estimating answers to arithmetic