8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL L MONEY WORKS%PROGRAM: MENUBPROGRAMMER: P. BOUCHARD`(COPYRIGHT (C) MECC, 1986x2UPDATE: 87/6/5 SLLZ32000INITIALIZATION47104:INSERT,"COMMON.LIB":(175)(176)256:MB4096:RFL,"MANAGE.BIN"MB!0:40000:ME1" MT37:M'CAN.IMA ,̮ !@CENT.IFT̮ !Ј ̮ !î )GIFTS.IMA ̮ !@)COUNT.IMA %̮ !@+COMMON2.LIB ̮ !)MONEY.IMA ̮ !@PRODUCT.INFO̮ !ɮ *MANAGEMENT.̮ !ɮ &US.IMA ̮ !@$MINTt̮ !Į 'HOWMUCH/̮ !î *MANAGE.PCKB ̮ ! (SAFE.PCK̮ ! DIAL.IMA0̮ !@%COUNTO̮ ! ̮ )UTIL.BOTHM̮ !̮ (UTIL.AUXR}̮ !̮ )UTIL.MAINc +̮ !`̮ MANAGE.BINyF(COMM.IMA{̮ !@'MACHINE m̮ !MONEY.WORKS̮ ' $MENU ̮ !Į*COMMON.LIB q̮ !Į$LOGO̮ !t&PRODOS" }<̮ #̮ (MENU.PCKB̮ ! ,MONEY.SYSTEMG >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@LLnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8RL45:SP0:FORMATTING PARAMETERS= P(S)(S)(S1)256U LPROGRAMMER OPTIONS VNP4:MO1: # OF PROGRAMS, BOOLEAN FOR HIDDEN MANAGEMENT OPTIONS `TITLE$"Money Works":VE$"Version 1.0" jMN$(7),CN$(NP),BR$(3),SS$(2),Z(7),CM$(NP),CU$(1) tL  the Escape (Esc) Key twice whenever the computer is waiting for a response.":"You may turn the sound on or off during a program by holding down the Control Key and pressing the letter S whenever the computer is waiting for a response.":VSP:SPACEH"MECC Distribution":"3490 Lexington Avenue North":"St. Paul, Minnesota 55126":"(612) 481-3527":IN:SPACE:BOXESC ESC SCREENVSP,3:BOX:CO:"Use of Special Keys"CC$::Q"You may want to quit in the middle of a program. If so, pressr more information about these and other available options.":SPACE:CO:CEWe SUPPORT BOOK INFO*VSP,8::"A manual to aid in the use of this diskette is available from MECC.":VSP4::IN,30:"Title: ";:TI$>:"Direct inquiries to:":wo meet the instructional needs of your students. These options include the ability to:":" 1. Select the money units.":" 2. Set the maximum amount.":" 3. Set the money expressions.":" 4. Select the currency system.":N"Consult your manual foMoney Mint"::"Design your own commemorative money. Once finished, your money is used to shop in a foreign market.":SPACE:CO:CEWZ:"** Teacher Notes **"CC$::"This diskette features several Teacher Options that enable you to adjust the content tchine until they add up to the right amount.":"(10 problems)":SPACE:CO,X1,Y1:CEW"Counting Change"::"Compare an item's purchase price and the amount offered for payment. Then, see if you can make the correct change.":"(10 problems)"::"s"(34)" and manual for additional information.":SPACE:CO,X1,Y1:CEW"How Much Money?"::"How much money is shown in the safe? Choose from four possible amounts. (10 problems)"::V"Money Machine"::"Choose coins and bills from the money macognition, counting money, and change making. Money units in common circulation are featured throughout the four";Hv" programs."::"Several Teacher Options are available to alter the instructional content of the programs. See the "(34)"Teacher NoteEND OPTIONQUIT2XGENERAL INFORMATIONbCL$:FRAME,4,3,274,179,3,1,3:DFW,110,5,259,175:WIND,1:TI$CC$:VE$CC$::GCP,X1,Y1ul"Money Works has four programs for students learning money skills. These programs provide practice in money re894,(Z1)(Z1):WIND:K(((78)(79)256))I AS(1)İ7000:2000 A1F1$"Getting the teacher options":F2$"MANAGEMENT" AS(6)5000 RUN THE PROGRAM A0ANPF1$CM$(A):F2$CN$(A) CL$:HSP:VSP:CO,,89:F1$"...":RNH,F2$)N:RVB,48895,Z:MN$(N)S$SS$(Z):GCP,SX,SY:N". "MN$(N)f HNN1:S(6)N:MN$(N)"End":N". "MN$(N) RIN:WIND:CO,,158:CU$(CU)" currency selected."CC$:WIND,1 RESPOND TO USER'S CHOICE 16299,0:1 X10:ZNN:RVB,48894,Z:9000:AZ:WVB,48 HSP:VSP:WIND:CL$:DUN,"MENU.PCK"5 CO,,MTt GCP,ZX,ZY:DFW,1ML,ZY,270ML,180ZY:WIND,1:"Programs:" :GCP,,Y1:L1NP:IN,20:L". "MN$(L)::IN: "Options:": NNP1:IN,20:S(1)N:MN$(N)"Information":N". "MN$(N); >NN1:S(51NP:MN$(L),CN$(L),CM$(L)::L03:BR$(L)::L01:SS$(L)::S$"Sound is ":PN$"Menu":RVB,MB14!0,CU:CU$(0)"U. S.":CU$(1)"Canadian" DISPLAY MENU 230,64:HOOK:MOVE,16384!0,81928192!0:16300,0:RVB,48895,Z:Z1įWVB,48895,1:WVB,48894,0)@COLOR BARSoJBOX:CO:"You may use these colors"CC$:"to adjust your monitor or"CC$:"television."CC$TL03:BOX,(66L)2(L3),41,58(66L)2(L3),141,5(L0)(L1)6(L2)2(L3):CO,66L2(L3),147:BR$(L)::SPACE:WIND:(#INPUTr2#K7129:ZL176:ZU((ZN))129:L1ZN:ISW,MN$(L),Z(L1)::WIND:CO,,183:I$CC$:WIND,1:X1X138:9100:CH(1)<#CH(5):CH147(CHK2ZS(5)1)İ9200:9020F#CHK2CHK7Z(Z1)(CHK7)(CHK7):P#9100:ZZ(CHK6)(CHK4)(CHK3)(CHK5):CHφy54915:T0:ZD1:WP0:RVB,48893,Z:Z$"Y"Zİ31200:1000vyCL$:CO,,89:"Getting the "QN$" menu...":RNH,"MENU"yONE MOMENTyPN3ĺCL$:CO,,89:"One moment please..."y}ERROR PROCESSING }ZE(222):ZN(218)(219)256:216,0:320yP$PN$:RVB,48894,PN:PN0P$"How Much Money""yHSP:AFT:BANK,0:WVB,802,C1:WVB,803,C2:BANK,1:CLIP:CLIP,0,0,0,279,191:230,64:DFW,70,0,280,192::WIND,7:CL$:16299,0:CO,,87:"Would you like to repeat "P$"? ";:Z0:30100|yNORMAL ENDING<:CH147įTSWfuCHK6CHK3CH249CH217CH206CH238İ30150:Z(CH206)(CH238)(CHK6):30150uCHK2Z$(Z$(Z),1):u30115uZZZX2(Z1)(Z(0)10):IVB,ZZ,ZY1,ZZZ(Z)4,ZY8:uyTRY AGAIN ENDING ROUTINEyME2000: MENU1PAUSE,6:ZZ:: :WL01:DFT,7,TA(8)!0:SOUND,10,10,50,5,5:IMAGE,1,X6,Y11:PAUSE,6:DFT,7,TA(0)!0:IMAGE,1,X,Y:PAUSE,6:::WINK ONLY uYES-NO INPUT uZ$(0)"Yes":Z$(1)"No":L01:ISW,Z$(L),Z(L)::GCP,ZX,ZY:Z$(0)" "Z$(1):30150uCH(3)4:SOUND,402L,10,30,352L,2:PAUSE,2::DFT,7,TA(1)!0:IMAGE,1,X,Y:SOUND,402L,10,30,352L,2:PAUSE,2:y WWINK &WDFT,7,TA(0)!0:IMAGE,1,X,Y:PAUSE,6:Z((1)2):Z22330 0WZ1:L03:DFT,7,TA(2Z)!0:ZįSOUND,50,5,50,10,10 5WIMAGE,1,X,Y:S UMONEY BAGS ANIMB UZ((1)3)1:Z22100,22200,22300:L TVJUMP ^VZ0:L06:DFT,7,TA(Z4)!0:ZįSOUND,100,4,50,80,5 cVIMAGE,1,X,Y:PAUSE,4:ZZ:: VFLIPo VDFT,7,TA(0)!0:IMAGE,1,X,Y:PAUSE,3:L47:DFT,7,TA(L)!0:IMAGE,1,X,Y:ZLTNCTS$S$" cent":TNCT1S$S$"s". zS? SNUMBER/WORD STMAM:DL(TM100):DL(DL100)100:DLTMTM(DL100):S$(DL)" dollar":DL1S$S$"s" STMDLS$S$" and" STMS$S$(32(((TM0)DL)(DL0)))(TM)" cent":TM1S$S$"s" (DL100)100:DLTM(TM(DL100).05):S$NU$(DL)" dollar":DL1S$S$"s"f RSTMDLS$S$" and " \STM20S$S$NU$(TM):21360 fSTN(TM10):TN(TN100)100:S$S$NU$(TN18):TM(TM(TN10).05):Z$"":TM0Z$"-" kSS$S$Z$NU$(TM)( pSCTTM:REXPRESSIONS: RS$"":ES21100,21200,21300,21400:DlRCENTSvRS$(AM):_RDOLLARRZAM100:Z$"$":Z1S$Z$"0"(Z):21220RS$Z$(Z):AM((Z)100)S$S$".00"R(S$)5S$S$"0"R4SWORDM HSTN0:TMAM:DL(TM100):DLn","Blue","Violet","off","on"D,1:9100:: X=163,X2=220,X3=155' "How Much Money?",HOWMUCH,"Cracking the safe","Money Machine",MACHINE,"Filling the money machine","Counting Change",COUNT,"Going shopping","Money Mint",MINT,"The printing press is warming up"'"Orange","GreeZLCHZUZCH177BZ#ZZ(ZZN)(Z1)(ZN1)(Z0):9100:9020t#YY19Z27(Z3):IVB,X1,Y1,X1Z(Z)4,Y7:# SOUND(#TSW:9100:BOX,SX118,SY,SX150,SY8:CO,SX110,SY:RVB,48895,ZZ:SS$(ZZ):MN$(S(5))S$SS$(ZZ):ISW,MN$(S(5)),Z(S(5)1):WIN00}ZUZE0ZE16ĦBd}ZE255įRVB,48893!1,Z:Z031000:x}230,64:16299,0:HOOK:DFW,70,0,280,192::WIND,7:CL$:CO,,80:"Error "ZE" at line #"ZN" in "(34)PN$(34)"."::"Please report this error to MECC.":SPACE:31000@INITJBANK,0:RVB,802,C1:RVB,803,C2:BANK,1:D$(4):CA$(1):CC$(3):CL$(12):CA49152:WP0:I$"Use arrows to move. Press Return.":QN$"Money Works"TCLIP:CLIP,0,0,0,279,191:K1160:K2141:K3136:K4139:K5138:K6149:K7147:ME0:MG0:EXPRESSION VARsFJUNGKGOD@CAAGA <B~BBBYCFJUNG_CyCbGQF@`Dp`@HB@@_BY_CFJ*NG_G|~bGOG|L|HBFACABBGlo`OCFJ*NGKGO~x`FBAQB oBlOCFJUNG\gG''DgdGP?D@B`ABpAB8ABAABBLBlOCFJ*NG\sqpr2C3sdGOaHBAQBBOB`OCFJUNG_@B@dGQ|0TAA ~~B@@oBLOCFJ*NG_DsdGO??C*B*B***B*AB*C*BBB3CFJ*NGKGJ`@UCUBUBUUUBUABUCUBOBfFCFJUNGKGN~C*B*B* FBC BBB CFJ*NGKGOCUBWBB@B`@CFJUNGKGOCC@B`ABpAB8ABA    ^B0xXCFJ*^037B6ACFJU^BC3ACFJ*XA_BBC3ACFJUN[]??B/++*C*BB3?>CFJ*NGKGO?_WUUUBUABUCUBB>0CFJUNGTvGJ ((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP                    BC#< |t=>0)?><@=0)?><@=@ |t>0BDHt&cu'Ch&BDBBC`((((((((((((((((ZUZCH177:Z0Z9GnZZ(ZZN)(Z1)(ZN1)(Z0):41100:41040pYY19Z:IVB,ZX,Y1,ZXZ(Z)6,Y7:N1:CO,,L9:SIĺ(32(L9))L1". ";FZ$(L):ISW,Z$(L),Z(L)::DFW,70,0,279,191:WIND,7:ZXZXSI24:41100:CH(1):ZY182:CO,,ZY:I$PCH(5):CH147įTSWZCHK2ZZ1:CO,,ZY:CF$:d41100:ZZ(CHK6)(CHK4)(CHK3)(CHK5):CHZLCH","fifteen","sixteen","seventeen","eighteen","nineteen"֜ "twenty","thirty","forty","fifty","sixty","seventy","eighty","ninety"(MENU SELECT2ZXX1:Z0:ZL176(ZN9):ZU((9(ZN9)(ZN10)ZN))129:DFW,7ZX,Y1,279ZX,191Y1:WIND,7(|9dGsvC6ACFJ*NG_`@~`G@`dGsBcB6f`CBwJUNGKGsBBCFB;FJ*NGKGsB`B0`Ca]a}}JUNGKGsBgB0gC.5B;J*NGKGsBsB63Cwx{JUNGKGsBs600p00CBnJ*NGKGsBcB6cCtwutJUNGKGsBsB63CCnJ*N[sBc600`CFJUOZs``wBfgC{9{{ J*^ MBlLC8W0W8JU^BgBlgC {|;\J*^BC AC|}~BJU`* G** c*` v* G* c*`hh8`8`***`}*`e`H)hJJ*0JJ)` (< ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <ȱȱȱȱ0]cȱeem*ȱ*ȱ**ȱ**ȱ* )* * )L(`L?* *Ll) ) L( )Ll)8e` ,$`ee` < @( )m((.(( M(i  ``) |'(j21 z& {&!` ({&z&(i({&(( CBDFGE (r&$ 3(,}&r& … 3(ŅL&JJJJ`Ϡ'8`r&h)hr')L&18|&"m11 2H22h2舌|&|&12H)M0 h10200I20h2 (`LE%12 `_'"L  <8# ȱ)ɀ  )( ` (Xp`ŠӠֱíԠŠҬî̠ӠĮʎ1|&… (n}&Dž (\%Tz&Lc()8= (J 8'z&'{& 3((ʎ1|&|&|&3223 `%YYZLYLYLY뿭` 8!@8` %MNЩUMߩ  L 5   8 0 8  ` / X& & +&&7&P^& S ɘL   V7 L ' 0% '8 Jm ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ ͍B B(8. ) ɘ"    L=#=#&ŠϠĠԠŠ ԩ m# m# J Qڨ)̰m] нȱ ̀𩠙 i F >l"m" h" iL X%;"L8"ΠΠҠ`y""""""*$ Fk%YeQP!/RB}QBiBB}\ ĉFEL/#> ț6 !#$%&'()*+,-./0123456789:;<=>?@ %Щ ߩx"L! )L! 8'  )ɀ)4,- U JNT) x"Lv"w" ( !` a"M)Fi/ e"3 k"L !Cb" %n"o" (#M8( % ) L'"p"q" (\4, )7(P0  ( @p 8  x"!b"i"0 ~&i"0 %r"s" (,) &Սt"u" ( %L'")0I0hx H( +.<ʆ>,=?BC8 é&'112`HB-9F 3"aɿ LLB Nϰ H  @h( L Lj  @`eLJCAB@=?ܝ٭(ܝ`)َ 8ʈ` 0ٝ)i `8`R ꍐz{ vNمFمG < ΐ0 FGL鮅0 ٭{٭zٽ8`H8`  ,z { 8` z E8`1ݾ00 Y 0ʩ 谼 谷`12)1`0`Ȏi 0U`)8`ά` W xG 0A)H ܝʈh٭0٭)ܝ٭*ܝ٥F٥G٭'ȱHά`Ύ8EeHI |SB:0M ٙKٙIFNGʈ d献`8m0`,0H hi PȽάhٍ0GF8yאFG  $0 G01܅I `P܍QR d8D`F` ]lH)HFȍNHGO $%܍&܍!ܢ8* J8` L ܝ>)I 'ܝ:`F8iRFPGQ`F܅IH3H ( )O 밨G%܈D" T)Ii)܍R*܍E'ܮ( 4 䭐 $H %HFFHGHG 됬`R8`)` EHS` #Q'܅IHHSSЍS@`8 ` ͍% ΍Q8`ʈ@qȱ@cȱ@mopfNxOyS)5SI0ܢܽ iP'E* 7deFG (GH Lv܅IR mEIH` tq qM0PQ ESHNFOG 밳NN` G8`F@ 0 > LK8`: ;I8`FHGH hGhF܌ բFܽܕF芝ܝ 밶:; <܅I m=IHHyHȘI Lܝ` @c@ k@Ю׍S)mיSi 뎅`C8` @ r3N@) G莱 ⭮i`0 Y; 뮅ٝ٘ 0 W,0 .H hȑNWȮّNW8`ٍّNά0N뎒׮Б` L` @>S)I38Mdeם`K8`@Nȱ@O@ rIiNȽבN)/ȩ/N`@[ WHJjjjhA ,'KI؍0JHhh8` Qx")T'P) ɺiL; )?     ~ `l@Hȱ@IױHXATȱH ɯȩ׍̒5H)/@a)_ .0 :A[8@`, O-`J,~@~@}J@` ߩ%S @ ~`E hhhߺ0 h ߐ( ߐ ߐ ߐ  0 HϭߍLпllllhh@ihAiH(ؠȱ@JJJJq@)@Yvȱ@Hȱ@Ah@y@cYe J) LL LJiB LJ) >xhHHHHL(  ްƠx@BEOD  ް(`( C)CJJJlBآ <B*IBGF08Lé'+8H <,``h(`@ڍL3<>=?<>CAB@?A` 1 L  <>`ڢF]PL8i m L   6< L  BLRAM' hLDL{ `ٽJJJJ`H͐hn)NjNjNjN. CH͐ v;٭ *Nۙ۰ڙک `Z8` C# (`{ .{ .{ .{8۰*Jz۩ ٰz{`JJJJ;i v묅͚ vٍ0  `H8` `ٍyٍiB0H0FG h0`FG `ϩBxED0C ް(`(8` LȹL@ȅH@IL,0` G וֹ= YH.q)N 0 >deS)@LP8` D᮴ ֩SGHG v L䬅yٙ٭yٙ٩`K CEdFeG 6%&ȹP8` i` %ם0 B %)( ȹ`8m8m@8` G8`F Pq)@N8`S)@J טyרםSS)׍Sde 밑 Ȣ؝I؈ 2h(8H ( h(8Hh(`ؑ@`@ȱ@ ` B@8ZS d鮅ٍٍٍsHٍr8fhgSJJJJS)S@` %I -q) 0@S)N8` @LL =@ ؝~@~ݞ@ʈL2 KIJHȢݞ)Jn 8 θ ؍ ؍ DH8 ع)ꭵJJJJ )߹0 )p )@ ) ȩ ؝L0NO 방 PQNOFG 嬆؍f؍g؝h ؝c zS) zS )حM͚ v`H@h`h``N8`  ) 1⬆iع `  عiعi` )؍0CGHFHBFG ުhFhG`@4͔ L @Ai ׭2` . :#ع؍0 Y讅)`.@+ i 8` L ؊ PLE΢ʱNLMOMEKP%MEK΢L$ O, PeNNO 2(` C  7 2JzHI{HI؊ }LE  *` A Hz ع H{ ؙ؊ؠIhHIhH } `؝}zIzؐ` f~ؽ؝z f % f؝~z؈` ` H  Ph)N@ 1; L  2$ )bJ Y ) H 4hL )  )حJjI{HIzHNO 8 ؍JL`R΢ʱLN1MOMEKP/MEK΢L7L-M O,p莡eNNO(`JNKOL 2/ "P L8 y WؑJ`L@ȱ@ `@Nȱ@O LL L r L 2 "pJ덣 )@፦NJOK 2iKK΢΢ IJΣ JФ̭JjHFIH HIGxKE ް((H hH h8`8@ȭ@L2쬆8N) ) )Ю ЪGdF $ ᭔ع+ؠ 2H  :h8` 䮅ٽ ٬ؠ@` ( L )8`)i п` H h)N$%FإG`BH PFإG`,H hHB؅F  ؅GxDE؍00C ް(`(8` vL'J  6"L vH  6 9ؙ` @ P8`K8`B8` L؈SJJJJحqIL/FHGI ҭJjHIHB>IؙJJ W: ELyHIHI`JKJK`FHIG ( Ȣ؝؈JL)eKM`)` J zJ͟ $0 ΎJFJL8`JGBJ P ؑ@`M8`8@ؐʈI묆)z8zz Ly LةC8`؍)@ i)z8zyJ ^ ؅F Lo) +%J(a *FإGؐ.` *JHIH N    ܮ `J HH hh` 0 @ L/L Z`̸Yܝ ݝ0̸ȩFG   0` ܅F݅G ` c Zͬ 밽܅F݅G ` c* Z% L`L뮴HH hFhG܍ݍ 8 `FHGH  hGhF`ݹܙ݊`@Bɼ>K@J5 c9X(ɈL :Lɍ)ې)ɮ۰ɺH h 'L  ġLL ̹L)'L ȳL O'F ʻ ̹(((L $ʩ $$ $L `ީ % K@D E,, "ʆ2(!#n  X,T,Q$ % " $% " ,,Lf,ɠɍlPlease insert another diskettePress SPACE BAR to continu,0)L0 L ɛ$ɘɉ 8V%֌&8V֌֠)HV)hH)hHIhդD?DRIDQD)҅; ?JDQD]ՎՎՎ`MY pӭY)p  ӭp`C)`BFGV 8``8LխӅ:HhHh Ո թ թ ՘VYҪҦ>:Y)Ң`;R?AJ;<ȰY)Ң`Y?)Ң`ȐҰ ;HhHh=Ң`Hh `Hh`DEiȍ0֌1֍ZԍsԍԍԍԥDEԌ8TԌ8WpԌqԠ 7I꽌ɪ꽌ɭ蠪:љVE:8`]ѾV]H)]ѾV]ҙ)]ѾT]ҙ)] >8hUD` ԝY`> Hh݌(`HCJJJJ)*h`0($ p,&"op8`kkV꽌ɪɖxlӽ*kӽ-kәmMlӈ 꽌ɪ`8` *L o % ԽYӍZӭoӝY 3Ѡ шNZ`rZLkӭZӍq8r7IZӐiZkӐk 8 ѹs ӭq ѹ| kн Z)*>>` @ $(,048<@DHLPTX\`dh 0ުlptx| ְ& .Vӈ  JJJJH 8h Ei 8EX`'8`jӍWӥC)p> pӥCYӍY 轊( ( ӈBV ( ӭp0 \BkJ ՠ@iӦ> Ӑi'j:ZH i@ioZZH h ѐȭnWǥBJ Ӱ8XӦ>` Ր+>P׽8H  ): e: y8鰕:Jjjj<)yאi8i;i(*=>hPם8`;Zx3QZYXXWV[HEVhEhH)IWHPHHHAHHHLaVEWLӿLKL`BLL ެެެެެެެެެެެެެެެ(C)APPLE'83xLLM Mh@8nЍLޭ 0J @,,LN !"#$Ԡ͠ˠĠԠҠhꭋILhH),Nx8 (8` ԍ`@ABe 2U,,CnZ1IJK,-NOPQRSuHUSTON!' @  K cXXK تKo`V8`no` , on cI9XX`)HJJJh`OeNeO࿰ c9XАO`@ȭ@` ON INJKO`HхFby LҠؠӠ΢ϠԩҠŠƠԠԠŠӢɯϠҠůȠԠĠ  0h)ύh0HHHH " ׍hhhhhhh .hh8`JIMJAYKERRY&MIKEFHIJK,,($8`=^!)<<݈!L<i]!0)pJJJJ =莍! !!ݪ!,!0 !8`,!08` !DISK 3.5,P' ,0,V,U X,T)00!L &`This product requires an AL L <=@<,,nP'~ ,, "%$(!# ! O" # &Ly# $ T' 8 XQ'R'ÁS'ā % ōIڠ 8 A*دRNH,"MENU":!0!JJJА ,!0,CCUTTVTBUBKB*BAUTPBAAx?xpx?DAUtAURPTUUBB* BUBC*CBD**uA*RC*BBUBC3>B*A CUD@LAAAqAAMD@CU B*B>fBAAAABDB*LDrCNB*E DB|CLA [X[ToT 00~77~07~00CBBBp`D@ACGGOOC@`pDAU|CAc}HEAIAUZB*BBBUB?FOoBoO?DA*|GAAǏGIA*ZBU p00pp00B*I ?>~DAU|YFJLAUZB* FcacFBUB E ax|<|x`||xaDA*uA*V BBUBG Dx~E~xDAUJA@hAUZB*BBABUI>E|>DA*|MB`@C@CKIA*ZBUB3?>B*I~BUI~cAaqDDA*|D {~|ԀßEAIA*ZBUBx x@|B*133cAB*Bp@D?JAUuAUZB*BFffcABUBCA~A|AxApA`A@@`DA*uA*ZBUB OB*B ODA?DAUuAUZB*FBUI>BwcAHA*uA*ZBUIB*B @@@``ppxyDA~DAUuAUZB*F`ABUBCA?AAAGACAADA*uA*ZBU LGB@AB*BDA*uA*ZBU@@`B@BB*I>G|~DAUuAUZB* AAMBUJ`pExpaDA*uA*ZBUBBB*IA cAAAAcDAUuAUZB*IBUI xcGOB@`**uA*ZBUBl~VFFB*I??>~||xx|~?UUuAUZB*BpBqBUI |xpxx||>CA*uA*ZBUBACDEfgfgBUB?CwgGCDA*uA*ZBUBGLB@AB*B`@`px|~BogcC`pxDAUuAUZB*BBABUB?N?DA*uA*ZBUBB3B*I@pxE|xp@DAUuAUZB*BAFV~nBUI?qE`q?DA*uA*ZBUBqqyB*IpaCEGCapDAUuAUZB*BBUIw{G`pp`p`C**]*B`pp`p`K ?v?vv?B)Q(AoR(B) ?v?vv?E3D(ETBUOCqQBUEPD(B|<`>BUAC*DWDC*BUBB*BCUSAUuAUSCUBB*CABUB* TA*uA*S **BBUB``0`B*B|xNpx|DAUuAUVBB*Bcpple //e withan Extended 80-column card, or a laterApple // series computer.Q'&'R'S'12)ɳ`Q'# #L&% &L" X,T,Q % "# %&% B# %) U# % &)_YNLm&x#32 { `Y<\ >] ?^ U F 8, 0( `  X , 0 `n < = > ? ε , 0  , 0 L `f=@8 @ @ A(P8j@ 8L n 8n n   M { `=  M X , 0C L q r n H h8, 0 L s u t v w x ` M { `n 0" ̳ , 0 8n ` M { `Ld M { `n 0 , 0 ` M=A<>=?@3<>`=eA=?eA?A@ <><>=?` @ { N M N O ,O B`I-O O 8`n N p0 , 0 N ʎO `O ,O O O N `M N ` M (L 8LNOP`, (` L A,JJO L  (`,(`,(` ,`,0L  `H hL <0,L@ {@`<0,L" {"`, {}`L}>'?>ȱ>@ȱ>=}Έ'=`)5;E'''''''((((((( 8  1 8 H !HH X 08  P8  Q _ `u&v&8?& X,T,Q % "( u&v& %LH&w& % $% "& %,,ɠɍ e& Fatal startup error. Code = $Press SPACE BAR to continue& n$<&=&@ X,R,W,U,P`LOGON' $O'O' (,% n$6e<>e=??<`= 5 % ,w% ` {` UTIL.BOTHUTIL.MAINUTIL.AUX`م% ,% L&.)iU ʘIU LŁ`PRODUCT.INFO%%,P'0 a{)>$<ȽB< >=?C8 éB k$L&=?C8L$$$$ $I$$$$$$ $+$$$ $ $$<$=$$$`H$ $hL& x11&'(`This product will DESTROY the file youhave on the / volume.Do you want to continue? 8#9X67L( Lr X h$A@<@>=?BC8 î)/́f<݀$<0.mP8nF!"<8 <  # ,F0 `,!" ()FH, 0 'gh , PhF>? X 59: 6H5 h,F0i L ;=EH <,F0< GL D5 >=? 5 ߅ lݩ L{- ~ {S`` LH h {k`  `, ֩PyQ AٺL 抢 {k`L {k` {k` {Sd` {k , { R  LLd$8 抢 ( {k`  { RLIi Ld { {k`L {d` {d`8$ @O<= >? ,  Ld { R  L! n Ld 2.  { R LLdL { {k` {k` {k` {k, , , ޭ `   H L犨h, {k` 5`ɯLz )8ɀ   Lޤȱ 0:,јe湥 sittiu , ,`45LL {sʎ  #   L) w ,Q`<=<3Ȣ<)//<)/a)_ Lf *  <=>?x@ 1 iȅ<=>?x@ 1 βе`,,0`L4t your disk the volume named is in a disk drive.is not write-protected.% "N$ fN,,,0,0ɛ n,P8 Nɠɍ'(n8  08 {  08`Press SPACE BAR to continue<@=A %$*,T 5 <<)/BB)/<)_ B)_8``xFKGOBFGCJJJEF,, ,FG(`(8`Š f,0  f Lܠ f-<=>?(@ 1   f f+LfPlease make sure tha+  c I,b0,`,U,_ ,^0,P() $%00(a, ` { `L=<(8$>< ) <<Ȅ?> % "$()$< ?$<e?=``'+.ERU<=*+:+=+z+|++,,>?H>8/? [\h8$n]< Lԥ() $%[\,]0de n^_`b8n ` N {` Lԍ>?a  % " Z &QSTUVWXYZ[\]^_`aGHOOUNHOOTSCLIPCLICSFRAMIMAGSDUMINSERMUSISOUNISIVMOVINFRFRNPAUSDUPUQUIRESSBBANPINIPOFPACFEETAKUIRVRVWVWVWFXINXNINJYai<>zPQW#!!"##{$$$%&&&&'m''(((O))))I*_*f*]*l*,, ,,,,,РʎL7xHI=(Vg-hgȑgȑgghsotp L  ! `BODFAFPARSNOPARSGCVSHSTSCECESPACCHVDFWININNINICHIGSHIР ,,Н,` {`,,0LhX)xhhiȪHHȱȱx 5m|L H  h(`xxxxxxxx͍`xxxx`xxxx`g? LN) ɥLnO) N)JO) h {,O)0LL ` g R g R g R  L)  {:(LL {L` AŁLI g R{| ֤ʆ}~` { HH*I* { R猀(( ! (  (8(쭂( ((( L)( ((( >(((<(=(%((mgimhj ,(0 l֩(( ``L 8 '('( eֺL׭(<(=<(=( `(,(` NVeU {kZeY {kWX[\ {z` g R< = ! L1' .f' g R@A g R> ? ! Le' *)L5 `(( ެ(( ޭ( `n((((( { ,(0 v((( )( / ii` ~& & r&& r&&~& ` ~& & 掀&&&  , 掁& 掂&~& `  ` { <=@H>? 1 ^_h {z ޤ<=L UVW YZ[X\ & X Lԍ%%% % L$%%%%% % L %8%%%%<%=%%% % LB%=m%?8%<@%=Ae@@A 5 % L%%%%% % L% % L%  kQ u PQ {py`  ee8 ey$z${$ 6  Ly$  Lz$  L{$y$z${$ {qu`  ` g Rх g RӅԩР {Vw`   {w` k%% { ^L#### , 掹# g R猾## # g R## #  g R### #### {# {˄ {ׅ#쭿### {ᅭ##HH 3hh#`# g R*P!h) `""""" , " " " ""  g R""" "c" """" {" {˄ {ׅ"<"=<"ȱ<ȱ<ȱ<ȱ<" {ᅬ"""٢ 3<=""Ȉ<"`  c`LvH@ !A!B!C!h <=>?( (Ly (8` 3HH\!8 HIi fhhh( `2}}2dd2WW2KK2KK2WW2dd2}}^ RP!XLHNO)%n!,!p h" ֩PyQ AL ߅ eX` 꺽  ' 8 uvL'i , LL  F eihh eHiHvHuH j gݥ % ^_L ީ  g 렴^ _LޥHHHL' ߅$0   ,0ƗēƖƕ( Ʉh6`h HLhHH&H L-L5逐+@*0*-F4iLLF HHLLFL`  ӥHHvHuHH >L'  { ɫ ޥ L L>L-  HɰɫơhL-  ,h`L gh`ȱȘeiȑH 3<=h (Ȣ<  H  e<@he=A(@    (` cƔ@i@AL7`H h 6H)6 H 3BChȢB  H  eB>heC?(>   Lie>>?(>  (^ȩ`^`0ƕ`  ^ƕƗ!ȩ,^ȩ0^ȩ^ȩ`^`  ^ƕ`,0 L L B Ʉh6` `Ʉ 6H)6셓셕셗셙셚ř嚅舽  ^ƕ襖iޢ Ʉh6`ș^`^ ,^ȩ,^ȩ0^ { R>@?A n) ! n) { RBCN) 8n)N)) ,)?@ ! Lj+ * 1 ޤ%L $8 { R>?<=(J@ ! L+ *H { Rh 1 ` { Lޅ< N,N !)0266666~~X~3 30n;;n    [~<~[ ? 0 33333  30??003??003<33?0 333333>0   !(/6=DKRY`gnsz}~   &49<=>CJQX_fmt{^f`8^f`faf` d@ @d @dLSd SdLs`m_fe膘mafm^f 20 Lq XdLc, ` Xd c` c`dmddd`(c  qm_fmd٩]c0 dddddddddd`dd8dHdJhjLd`,L8]f8_f d8]f8_fʍ`]fm_fmm]fLd^fmafm`fm8m dd03(dm_fmdddmdmdO`dd(H b dhLadHcfdfdHd bh8cfcfdfdf8dcfdddfd dH km_f8dddhhdd((d󩀍d 0`) dL$b$8n]cd8dmbdefghijklmnopqrstuvwxbdcssccccddd(aa bbf $20 q a ad@ aH, adhɈ)a0!a) k]fH]f c adh]fLa,aa`NO8`` A@ʍWRPT`   ]fbf`H) kdd )d ) dh ɠЩǍPkQLORSaTL<}@| @|"# !`e f d  @ s ot`6  aLa` aH`` `h,`) &$20   qm_fm`LaH bh`H`H`L]W|*` {pL, {mL-@<>=? 1 ߍ lݩ  { ߍ lݩL- L{- ~ O){a ^<n,,,PLN,L 8$ O-N- , O- ,H-( { P-@<=>Q-?R- 1 , N- ,K-( { S-@<=>T-?U- 1 ީN<-=>?@ 1 (  3 >ck{;> 33?3333333333333???>;3>333?33300000333?cwkccccgo{sc333333333336333303? 33333333333 ccckwc33 3333 ?0 ? 0 3? 0>3>333>>00>333>3?>6>33>03333336kcc333333333>33>003>063333>333 cckw3 3333>0? ?   n;3 3 3 3@ B k)JJ & & f)eed` k eyPy =y8 y yjjj) @ Sy =y )fD8&HHdy$0jy =y( y yhhhhHHt0%f$ I i $ %i $ iPII)if Э$pI y$SwTwUwUVWYZ[UVW YZ[ :Sw0eUUVLEw8UUVTwe[[Uw`&' z<=h@ :<=$@ ~Lw ` c?Fw >w?ݩ?)`H8HH ) w X8!v \}8vK}L}N}O}M}P}v \}mvN}iO}K}L}M}P}v \}vLv8v8vmvimvvUVWv wUVWv wUVWv wUVWv wv ot`upu`lu u Tuoupumu`RuSuSu8pLu.Ru(LumuSumRunu`8pluzpumnuou`ʎvvvv ot8e8vK}L}mvN}iO}8P}vM}v \}8vK}L}mvN}iO}M}mvP}@@@@ isssʈ`<=< sssȱ?>,>$f<<` "D#EDȥD` kÄȑ kÄIȑ` m"m# (ȱ``,((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP                 (!#, X,T,Q e?@-ILlÁ ,X L  e=x11232Á&ā'BCDE,, F,(`((((((> ?Ɗ ^> 8 8ƍ ?Ɗ ^LM?`L  { {<=>?A@ 1 < w "<>? X ` ȗ ,0 W ̝<Ȅ=>@?A  ^>)BH h`> ?Ɗ ^> 8 ?Ɗ ^ƍLH>)? ?Ɗ ^hɀ> 8ƍL(estk   ]&z' L ˄<=&)^K)(^ Q&1"S,ERASE PROBLEM #n6MVįBOX,200,0,279,11t@WFK,LE$,Z:Z9įTSW:500XCLIPbCLIP:CLIP,0,0,0,279,191:CLEAR COINSOBOX,0,0,279,11:L05:BOX,CX%(L),19,WD%(ECT AMT OF MONEY; L0MU:CO(L)CD%(L):DP(L)0::T1TTJ AMTT270 ZAMTT:LMU01:Z1(ZCV%(L)):Z1MX%(L)CO(L)Z1MX%(L)CO(L) ZZZ1CV%(L):CO(L)CO(L)Z1:T1T1Z1CV%(L):ZAM:L0MU:Z1(ZCV%(L)):Z1MX%(L)CO(L)Z1MX%(L)CO155,.28,.68,1.18,1,5,10,25,100,500,50,91,140,182,1,241,26,28,24,36,0,29,84,132,175,231,42,275,28,30,26,38,6,3,3,5,4,1 c"Good Work","Great Job","Fantastic","Super","Terrific" dFINGER nDFT,7,A1!0:BOX,0,0,279,11 xIMAGE,7,14FI46,0: SELL05:WD%(L)::L03:IN%(L)::L05:CD%(L)::L04:GW$(L): FOK0:UM5632:40100:XX28:YY40:X2252:Y2150:DFW,17,139,266,19:DFW,20,162,279,30:DFW,342,181,196,10:DFW,4XX21,YY5,195,100:WVB,48893,1:1000w b 10,9,10,5,4,1,.01,.055,.0:LE$(21)(8)(10)(11)(13)(32)(82)(114)(19) 2CD%(5),AP(5),CV%(5),CO(5),CX%(5),MX%(5),CY%(5),CH%(5),WD%(5),IN%(5),DP(5),TA(9),GW$(4),T(5),T1(5),HT(5):L05:MX%(L)::L05:AP(L)::L05:CV%(L)::L05:CX%(L)::L05:CH%(L):F <:T(L)T(L)NE(L):T1(L)T1(L)NE(L)::AW0İ7100u8700:WIND,2:BOX:CO,,5:"This is the correct amount."CC$:NOT EASY FIX NEED TO JUGGLEDC1:L1MU:T(L)0DCL:L99:DC3T(2)T(2)2:T1(2)T1(2)2:T(3)T(3)1:T1(3)T1(3)1:T(1)T(1)1:T1(1)T1(1)1:7140zNLCV%(DC)CV%(DC1):T(DC1)T(DC1)NL:T1(DC1)T1(DC1)NL:T(DC)T(DC)1:T1(DC)T1(DC)1L0MU:R(AWCV%(L)):RT(L)RT(L)T(L)T(L)R:T1(L)T1(L)R:AWAWRCV%(L)::AW07110 AUTO DROP/RETURN %S޽烀 1۵݇ᅫϝ뺀Ϥ큀Ӄό偀σ߃฿ߎԿ½ȿꚃɁ灀ضә֬쓡ܣ쓇϶Ϭ㟻ܗʶ́낰𼯗큀 1󃀀χ迎̝ߜޟ݁ߞ׍ݵ쯝˝۩֛썗דۍտӲ぀%õؠ٘怀ʁ߆썰ۛ޶趬ڵ̱⋀ꫀ꫑꫑꫑꫑꫁Ԫↀժճתժ݌ăתܮγ܁񮕚ٶබ⢶涞߆̙܁泀w7!D73f7:D"D7`@L7.c|77f| [o]7FOܙ7^O7?w7NO[[7^Gmg7N3`v7Z0}!7FYsL7Lags@7@osL7LO37fO7fO7fGO7laO7Ng7s78~xw7z~73_]70C72w/gǢс䪖و얢ԚՇ݁cӼﶕ쪆˿ρ󀀸蜀띇"߽􃾶習ρ瀀熰ݍؾᅴؿ߸䲷ܷ޷؟ߛߏՆ恀Ϲ%灀,e كbQ ǪՁԀԌԲղ꫕꫕Հ̀꣌꫕꫕릕ūԺūњѲќѶŎѲղՃǂܪ߁Άٛ0::7270: REMOVE DIFFERENCEe\T(CN)CO(CN)ZCO(CN)T(CN):I1Z:9400:: DROP DIFFERENCEkf S17240!* SS=-1 (TOO MUCH)l/T(CN)DP(CN)ZT(CN)DP(CN):I1Z:9400::7230: DROP DIFFERENCE4T(CN)DP(CN)ZDP(CN)T(CN):I1Z:9500:: REMOVE DIFFERENCE>7270H SS=1 (NOT ENOUGH)!RT(CN)CO(CN)ZT(CN)CO(CN):I1Z:950󯟸ߙߟߙ濛ߚﯜߛߏ춛߶󷏶߃׿ܾշ펀ɴ惀𣻍"x{D"{3L{cE{@{{f|{nl{]5D{]Sc{:4a#{g|x{`` {?lD#{oi@#{`L{ocD {_g@#{?o@#{lL{_2D{o4cg{wq { {gwE{3r{?S{L{&{;s{:WIND,7:PERS$CC$:WIND,1y DFT,7,IA!0:UIM,PIC3,IB:DFT,7,IB!0:IMAGE,1,112(LL2)2,73:LE(VA$):VA$(LE):LE(VA$)13~ CO,12LE6,33:VA$:CO,240LE6,97:VA$:HSP,1:CO,217,30:CN$(CN):CO,217,38(CN0)5:CN$(CN1):CO,,92:CN$(CN):CO,,100 ";:INP,3,"-09",1,VA$8VA(VA$):VA1VA1002215BOX:WIND,1:CO,,93:"Your money is worth "VA" dollar";:VA1ĺ"s";j ".":SPACE:CO:BOX:CO,,4:"Here is your money:"t DFT,7,IA!0:UIM,17,IB:DFT,7,IB!0:IMAGE,1,0,61:DFW,790,126,95,136,2,1,1nuWIND,6:PERS$CC$:WIND,1:DFT,7,ZLE(CN2)!0:IMAGE,1,150,43:Z$"United States":CNZ$"Canada"zDFW,6140,100,120,10:WIND,6:Z$CC$:WIND,1:BOX,4,80,250,81,2VALUE OF MONEYWIND,2CO:"How much is your money worth (1-100)?,Z,LE:UIM,3,ZLE:DFT,7,Z!0:IMAGE,1,30,78:DFT,7,ZLE!0:IMAGE,1,162,78:CO,66,128:"(1)":CO,196,128:"(2)"pWIND,2:"Which country (1-2)? ";:16299,0:INP,1,"-12",1,A$:CNTRY(A$)22:BOX:WIND,1:BOX:DFT,7,IB!0:IMAGE,1,42,47:FRAME,43,47,97,89name of this":"person? ";:INP,10,"-az-AZ '.-",1,PERS$:950P4PICK COUNTRYRBOX:WIND,1:CO:BOX:"Pick the country where you want to print your money."::GCP,ZX,ZY:CO,10,ZY4:"United States":CO,170,ZY4:"Canada"p\ZIBPL:DFT,7,IA!0:UIM,26,69L64(L3)4,108,2,1,1:k WIND,2:"Which picture (1-4)? ";:16299,0:INP,1,"-14",1,A$:PIC(A$) BOX:WIND,1:BOX:DFT,7,IA!0:LLPIC1:UIM,PIC3,IB,PL:DFT,7,IB!0 IMAGE,1,112,62:FRAME,113,62,167,104,2,1,1> WIND,2:CO:"What is the it to buy a mystery gift.":SPACE4 2000:31000E PIC PICTURE_ 950:WIND,1:BOX:CO "Pick a picture to appear on your money.":DFT,7,IA!0:L03:IMAGE,L4,14L644(L3),66:CO,36L64(L3)4,120:L1: L03:FRAME,15L64(L3)4,6FT,7,IA!0:UIM,1,IB,LE:DFT,7,IB!0:CL$:3900:IMAGE,1,13,6:DFW,516,124,252,22:DFW,619,100,103,10:BANK,1# DFT,7,IA!0:UIM,19,IB:DFT,7,IB!0:IMAGE,1,216,95:WIND,1::"Welcome to the Money Mint!"CC$:::"Here, you can make your own money and use X)M%(X1)2567 (ADMB23:I022:RVB,ADI,M%(I):Z 2I112:MO$(I)::WVB,48893,1d Z1000 MOVE,16384!0,81928192!0:16300,0: MAIN PROGRAM DFW,110,35,262,110:DFW,28,155,270,35:DFW,313,7,264,50:DFW,416,7,246,60o BANK,0:D!0:RFL,"GIFTS.IMA"IC!0:RFL,"MANAGE.BIN"MB PR48640:IB5632:40000:WIND:CN$(4),LE%(18),M$(23),MO$(12),MT$(4),WD$(4),V%(4),W(10),M%(23),EX$(4) PN$"Money Mint":I03:CN$(I),WD$(I),MT$(I),CO$(I),V%(I): BANK,0:CST,4096:BANK,1:P(X)M%( MONEY%PROGRAM: MONEY MINTDPROGRAMMER: R.M. CHILDERSbCOPYRIGHT (C) MECC, 1987LAST UPDATE: 87/6/5 SLL32000/ BANK,1:WVB,48893,0:40960:INSERT,"COMMON.LIB":(175)(176)256:IA40960:IC38400:MB46592:RFL,"MONEY.IMA"IA(CN0)4:CN$(CN1):HSP:RVB,MB19,YN:YN2600 Z$"":VSP,2:WIND,2:"Do you want to print your money?":Z1:CO,100:" ";:HSP:VSP:30100:Z$"N"2600! L02:WVB,PRL!0,0::WVB,PR4!0,1:RVB,MB46,SN:WVB,PR!0,SN:CO:BOX:"Type your first name: ";:INP,10,"-az-AZ",1,STUD$ CO:BOX::"Please prepare your printer."CC$:SPACE:SZ$"G2":RVB,MB21,QC:WVB,PR3!0,QC:PINIT:POFF:RVB,952!0,SO:BOX:SOĺ"There is no printer attached."CC$:SPACE:BOX:Z$"N":2600 DESIGNER MONEY 3000 MONEY WORKS'PROGRAM:HOWMUCHEPROGRAMMER: S L LUEDLOFFa(LAST UPDATE 87/6/3 SLLm232000<40959:BANK,1:WVB,48893,0:INSERT,"COMMON.LIB":(175)(176)256:IA36864:MB46590:IB38656:DA41472f >RFL,"DIAL.IMA"DA!0:RFL,"COMM.IMA". "January","February","March","April","May","June","July","August","September","October","November","December" DTāL11(4DT)LN:M$(J)"0"M$(J):, 7 <FRAMEo FWIND:FRAME,4,3,276,145,3,1,1:BOX,0,25,279,26,1: . "United","England","Pound","United States",2,"States","Germany","Mark","",4,"","Japan","Yen","Canadian",3,"Canada","France","Franc","",1r!t of "CO$(CNTRY)" money equaled:"t0 HSP,1:WIND:L142:CO,82S(L),3610(L1):Z$"s":(EX$(L))1L3Z$""5 EX$(L)" "MT$(L1)Z$:CO,220S(L1),3610(L1):Z$"s":(EX$(L1))1Z$"": EX$(L1)" "MT$(L)Z$::HSP: & L(M$(J)):L422)"0"M$(22)@ DT$MO$((M$(20)))" "M$(21)", 19"M$(22)e BANK,1:EQVA:CNEQVA(M$(0))& HSP,1:L14:ZEQ(M$(L)):ZZ(Z100.5)100:EX$(L)(ZZ):ISW,EX$(L),S(L)::HSP#+ WIND,2:BOX:WIND:BOX,5,4,276,54:WIND,3:"On "DT$" this amounLELI D(M%(J43)10):ZLM%(J43)D10:D0M$(J)M$(J)".":3080} LZLāL11ZLL:M$(J)"0"M$(J)::LEZLLEZL D1M$(J)(M$(J),D1)"."(M$(J),D) D1M$(J)"."M$(J)  DT2:DT$"":J2022:M$(J)(M%(J))::(M$(22))1M$(SOUND,125L1,1,80,115L1,7::L^ L1120:SOUND,10,2,150L15,27,21::hh SOUND,130,10,50,80,5:r SOUND,180,3,39,19,2: SUBROUTINES LE0:J04:LP(J4):M$(J)(L) M%(J42)DT0:3300:M$(J)(M%(J42))M$(J) L(M$(J)):LEL open the gift."CC$:Z(0):Z(1)? X(5):XK7įTSW:2820U XK2XK12820 DFT,7,IC!0:UIM,GC4GI,IB,LE:DFT,7,IB!0:BOX:WIND:Z32(GI1)562(GI4GC0):GI2900,2910,2920,2930:BOX,Z,84,Z60,118:IMAGE,1,Z,70J SPACE: T L11020:IMAGE,1,31(L60),84(L2)4:CO,34L60(L1L3)2,86:L1: WIND,2:"Which gift (1-4)? ";:16299,0:INP,1,"-14",1,A$:GI(A$) Z34(GI1)60(GI2GI4)2:IVB,Z,84,Z10,94 FINAL REWARD# WIND,2:BOX:CO::"Press the SPACE BAR"CC$:"toarrived in "WD$(GC)", you found 10 "MT$(GC)ZT$".":SPACE:EX$(GC1)"10"X PICK GIFT 950:BOX:WIND,1:BOX:CO:"These gifts are each worth "EX$(GC1)" "MT$(GC)Z$". Pick the gift you want to buy."@ L03:DFT,7,IA!0:UIM,8L,IB,LE:DFT,7,IB!0:P,1,"-14",1,A$fn GC(A$)1:BOX:WIND:BOX,10,30,270,56:WIND,2:Z$"s":(EX$(GC1))1GC2Z$""s "In "WD$(GC)" your "VA" dollar bill is worth "EX$(GC1)" "MT$(GC)Z$".":SPACE:ZT$"s":GC2ZT$""Ix (EX$(GC1))0įBOX:"Lucky you! Just as you FT,7,IB!0:IMAGE,1,92109L,ZY30:CO,ZX4L135,ZY6:L1(L1)". "WD$(L(L1)):d L01:DFT,7,IA!0:UIM,13L2,IB,LE:DFT,7,IB!0:IMAGE,1,93127L,ZY74:CO,4L135,ZY50:L2(L1)". "WD$(L1(L1))::WIND,2:"Which country (1-4)? ";:16299,0:IN now ready to buy a mystery gift.":SPACE:950P BOX:WIND,3:BOX:WIND:BOX,0,0,279,145:3900:DFT,7,IA!0:UIM,16,IB,LE:DFT,7,IB:IMAGE,1,42,7:WIND,1:"Pick the country where you want to shop."TZ :GCP,ZX,ZY:L01:DFT,7,IA!0:UIM,12L2,IB,LE:D WIND,2:BOX:VSP,4:CO:"Designed by: "STUD$CC$:"MECC Money Mint"CC$:VSP:MOVE,16384!0,81928192!0:PINIT:QCĺ(9)SZ$:2550 (9)"K":SDUMP,SO,5 POFF:0:1002:HOOK( BUY MYSTERY GIFT2 YNZ$"N"İ30000< WIND,2:BOX:CO:"You'reIA!0:RFL,"CENT.IFT"MB!0:RFL,"MANAGE.BIN"MB!1:DFT,1,MB!0:RVB,MB14!1,CU:CUįRFL,"US.IMA"IB!0 ?CUįRFL,"CAN.IMA"IB!0:REST,98 ADN0:100:PN$"How Much Money?":40000:MX%(6),CV%(6),MM%(6),AP(6),Y%(4),CX%(6),CY%(6),BX(4),CH%(4),TA(9),GW$(4),0:950:LZ11040.PUT,56,65,45057:1029SOUND,120,5,20,15,5:BOX,5,4,127,154:BOX,7,67,126,67,3:BOX,7,121,126,121,3LPROBLEMSQZAMB5:MA3:L03:RVB,ZAL!1,Z:ZMAL1:L3V:RVB,MB!1,MU:MUMU1[RAMA(MA):AP(MU)(RA)RAAP(MU77,82,45057:BOX,69,65,70,73:850lDFT,7,DA!0:Z1((1)3)2:L1Z1:900:950:PUT,56,65,45057::LZ1Z2((1)3)1:Z2Z11022900:LL14(L1):950:PUT,56,65,45057:LZ210271025Z1((1)3)1:Z1Z21027LL14(L4):90DIAL IMAGED970:IMAGE,L,57,65:PAUSE,1:PUT,56,65,45057:RDIAL BOX970:BOX,6910(L3),657(L1)8(L2)7(L3),7010(L1),738(L2):PAUSE,1:L112:SOUND,72,1,127,72,2::MAINDNİ100#DN1:HSP,1:TAKE,56,65,1,Y1,X2,Y2,40960:BOX,X1,Y1,X2,Y2:FRAME,X17,Y15,X26,Y25,4,5,2:WIND,4f:"When the safe opens, count the money you see. Then, move the hand next to the amount that matches the money in the safe.":16299,0:SPACE,1:WIND:PUT,X1,Y1,40960:350:RT1:4000:CLIP:CLIP,0,0,0,279,191>SPACE:BOX:WIND:UERASE BOX & COINSBOX,FM1,0,279,153:BOX,8,3,127,66:BOX,8,68,127,120:BOX,8,123,127,155: INVERSE BOX*Z0įIVB,FM2,Y%(Z)1,276,Y%(Z)284RINTRO SCREENL\TAKE,XISW,DS$(L),Z:ES1ES2Z114ĺGDS$(L);:ES1įAFT,1:(33):AFTW::WIND:jXREMOVE CURSORbBOX,FM23,Y%(OB)17,FM2,12Y%(OB)17:PLACE CURSORIMAGE,6,FM23,Y%(BX)17:INSTR WINDOW&WIND,1:BOX:CO,,5:A$CC$:TRRT,ZX5,155,3:ZXZX8:ZYZY5:%3IMAGE $5bMUZZZ1:MM%(Z)įIMAGE,6,CX%(Z),CY%(Z)hyINPUT BOXES!CO,203,0:CEL:"Problem "M:DFT,7,IA!0:L14:FRAME,FM,Y%(L),277,Y%(L)29,2,1,2::L03:DFW,2FM3,Y%(L1)2,274FM,27:WIND,2:,81,17:"Return"::CO,138,17:"when done":A^UNPK MONEYBAGhDFT,7,IA!0:Z8192:L09:TA(L)Z:UIM,12L,TA(L),Z1:ZZZ1::IMAGE $1MM%(Z)420ZYCY%(Z1):ZXCX%(Z1):IMAGE,5,ZX,ZY:ZXZX43CU:ZYZY5:MM%(Z)1āL2MM%(Z):BOX,ZX,ZYMM%(C)((1)(ZMBA1))BA:ZAZAMM%(C)CV%(C)KZA0C1CC1:220_ZA0MM%(0)ZAe"y,CURSOR MESSAGE.6WIND,1:DFT,7,IA!0:IMAGE,10,63,167:CO,90,4:"or":IMAGE,11,110,167:CO,131,4:" to move":IMAGE,6,198,166::BOX,75,15,128,25:CO0:16300,0:CL$:DUN,"SAFE.PCK":1 # COINSg ZAAM:CMU:L06:MM%(L)0::C0280:PENNY ONLY| (CV%(C)ZA)270 ZT0:L0C1:ZTZTCV%(L)MX%(L)::(ZTZA)BA0:250 BA((ZAZT)CV%(C).999) ZM(ZACV%(C)):ZMMX%(C)ZMMX%(C)2,24,36,48:U.S. b9,8,9,7,0,4,1,.01,.05,.14,.315,.315,.715,1,1,5,10,25,25,100,500,8,48,91,49,8,7,85,118,118,118,63,123,123,123,26,28,24,36,36:CANADA c"Good Work","Great Job","Fantastic","Super","Terrific" dSCRN UNPK$ nMOVE,16384!0,81928192!:CREATECLIPTABLE PBANK,0:CST,4096:BANK,1:X128:Y148:X2252:Y2140:DFW,4X115,Y18,200,79:DFW,10,165,279,26:WVB,48893,1:1000 a9,8,9,7,4,4,1,.01,.05,.14,.315,.515,.915,1,1,5,10,25,50,100,500,8,48,91,8,63,7,85,118,118,118,63,63,123,123,26,28CD(6)_ FL06:MX%(L)::L06:AP(L)::L06:CV%(L)::L06:CX%(L)::L06:CY%(L): KL04:CH%(L)::40100:REST,99:L04:GW$(L)::L03:Y%(L1)2034L::Y%(0)14:FM158:UA6430:CN19:CA5632:CZCACN2:L0CN1:WVW,CA2L!0,CZ40L:)6`RT0:ZMB16:L02:RVB,ZL!1,CD:CDCDL:L2b:M110:Z((1)NE):ESEX%(Z):AN(1)RA:AN(AN1000):AN0AN1eAMAN:AB((1)4):200:2000j21000:DS$(AB)S$:DR(AN.2)5:LW(ANDR)((ANDR)0):HGANDR:HGRA1000HGRA1000lL03:LAB1160>oZ((1)(HGLW))1:AMLWZ:AMAN1135Rt21000:L1155tyN0:L10L1:DS$(L1)S$N1~:N1135DS$(L)S$:ABAB1:WIND:500:M1İ300:TAKE,63,165,210,191,UA!0BOX,0,163,279,164,6:3000:5000:31000JRABDCKKKBDCՁFBՁFBՁFBՁFBAAgJH400:450:bCANADIAN DOLLARZ2((1)2):Z2Z14:2300Z2İ400450:CANADIAN DOLLAR COIN MM%(Z)2340 ZYCY%(Z1):IMAGE,11,CX%(Z1),ZY:MM%(Z)22340 DF(MU3CU)MM%(4)2040jZYCY%(4):MM%(4)1įDFT,7,IA!0:L11MM%(4)1:IMAGE,5,CX%(4),ZY:ZYZY4:CD(4)CD:CD2CD(4)((1)2)DFT,7,IB!0:IMAGE,11CD(4),CX%(4),ZYCH%(4)MU52090&Z5:Z15:CLIP:CLIP,0,8,123,125,155:DFT,7,IB!0DISPLAY COINSHZ3(MU(MU4))(3(MU3)):L03Z:MM%(L)2029ZYCY%(L):MM%(L)1įDFT,7,IA!0:L11MM%(L)1:IMAGE,1L,CX%(L),ZY:ZYZY3(L3):CD(L)CD:CD2CD(L)((1)2)DFT,7,IB!0:IMAGE,1L6CD(L),CX%(L),ZYCH%(L)ՀƆπCCBACBAՀgJHA0x110`BACCBC漘怀CCBACCB B BgJH`q``cqBAAABCBCC񙀀Ct* F?L?F ****CAZAUvUTP@@DDADA@PTDUqByqvUAAUCAZA*A}*C(G C(J*Dv*AA*CAZAUAUXUDvUAAUCAZA*A*Y*Bw*AA*CAZAUAUYUBwUAAUCAZA**Y* B w*AA*B ZAUUUVUADUZB*A( ""RD*  T G*ZAUTTUURUATDUZA*A**V*AA*B ZAUAUUVUAAUCAZA*A**V*AA*CAZAUAUUVUAAUCAZA*A**V*AA*CAZAUAzUBCGCAUFUAAUCAZA*Av* F@``DpA`@F *B*AA*CAZAUtUFx~L~xFUUUUCAZA*AgJRAAFgAAAgJRAAoAAAgJRAsAAgHA|XpBAAḂgAAAgJJpxpBAABgAAAgJJa330cBAABgAAAgJHABBAABgAAAgJRAABBgAAAgJRAAgAAAgJRAABgAAAgJRAAB𙙘gAABAABgAAAgABJ3?>BAALCEฌEసEEABgAAAgACAAHD BAAgAAAgAJ3?>BAABgAAAgABAJ|B|BAABgAAAgJgAAAgCJYy8BAANGGGHAiAAAgAJBABAALABEABEABEABGfAAAgAIA@A@CAANGGGGBgAAAgBHH BAsAAgARAALBEBEBEBĚgAAAgADAHcgo{scBAALBEBEBEBEABgAAAgDJxBLxBAANGGGGBJJBကJCCgARAJCBJՀǀJJCကJC ՀgABRAJJJGJJCJDACgACAAH@D@BAsAAgABCB̀JJ澞怀CC gBRAADՀ츀CCACٙJJCCBༀՀՀgARAJCCྀՀBƀCDՀgJRAC ECCCBJCCBǀgJRACBCCAՀBJJJJCCAՀ̇ՀgEAAxRAC CCCAJC ՀgJJCfFfBAAFACBCǀ瀀CƀCBƀCBༀCƆBAC gJJ BADBJCǀCBπCJC όBAC ՀCACCACCAՀgJJpBqBAAAC CC DC%츀츀gJJqB31BACCCCؘC" ((E*Za}A}A}A}A}A}A}A}A}A}A}A}A}A}A}A}A}A}A}A}AZ UNPK MONEYBAG & TAGy*DFT,7,A3!0:UIM,30,U1:DFT,7,A1!0:TA(0)UM:L09:UIM,12L,TA(L),Z1:TA(L1)TA(L)Z1::MAIN PROGRAM(HSP,1:MOVE,16384!0,81928192!0:16300,0:CL$:3000:800:X28:Y28:X1252:YY150:DFW,4X9,Y7,203,110:ZAMB5:&PROB #R0BOX,0,0,279,9:DFT,7,A1!0:IMAGE,6,60,0:CO,200,0:"Problem "M:\XCLIP|bCLIP:CLIP,0,0,0,279,191:CLEAR COINSBOX,0,0,279,11:L05:BOX,CX%(L),19,WD%(L),75,4::BOX,0,79,279,134,4:WIND,1:BOX:WIND:BOX,0,160,279,191:L)Z1MX%(L)CO(L)7Z2((1)Z1):CO(L)CO(L)Z2:="O,ERASE PROB #j6MVįBOX,200,0,279,11p@^SMALLEST COINS POSS.hAWAM:LMU01:Z(AWCV%(L)):ZMX%(L)ZMX%(L)rAWAWZCV%(L):SM%(L)Z::WFK,LE$,Z:Z9įTSW DP(L)0::T1TT:350:L0MU:SM%(L)CO(L)ZSM%(L)CO(L):CO(L)CO(L)Z:T1T1ZCV%(L)i :AMT1270 ZAMT1:LMU01:Z1(ZCV%(L)):Z1MX%(L)CO(L)Z1MX%(L)CO(L) ZZZ1CV%(L):CO(L)CO(L)Z1:ZAM:L0MU:Z1(ZCV%(L)):Z1MX%(L)CO(40,182,1,241,26,28,24,36,0,29,84,132,175,231,42,275,28,30,26,38,6,3,3,5,4,1 c"Good Work","Great Job","Fantastic","Super","Terrific" dFINGER nDFT,7,A1!0:BOX,0,0,279,11 xIMAGE,7,14FI46,0: SELECT AMT OF MONEYX L0MU:CO(L)CD%(L)::L05:WD%(L)::L03:IN%(L)::L05:CD%(L)::L04:GW$(L): FOK0:U146848:UM5632:40100:DFW,17,139,266,19:DFW,20,162,279,30:DFW,342,181,196,10:WVB,48893,1:1000M b 10,9,10,5,4,1,.01,.055,.155,.28,.68,1.18,1,5,10,25,100,500,50,91,1(21)(8)(10)(11)(13)(32)(82)(114)(19) 2CD%(5),AP(5),CV%(5),CO(5),CX%(5),MX%(5),CY%(5),CH%(5),WD%(5),IN%(5),DP(5),TA(10),GW$(4),T(5),T1(5),SM%(5),HT(5):L05:MX%(L)::L05:AP(L)::L05:CV%(L)::L05:CX%(L):G <L05:CH%(L):72:MB46592v RFL,"COMM.IMA"A1!0:RFL,"MANAGE.BIN"MB:RFL,"COUNT.IMA"A3!0:RVB,MB14,CU:CUįRFL,"US.IMA"A2!0 CUįRFL,"CAN.IMA"A2!06 PN$"Counting Change":P136864:P2P11280:P3P2512:P4P3512:WIND:BANK,0:CST,4096:BANK,1:40000:LE$MONEY WORKS'COUNTING CHANGEDPROGRAMMER S L LUEDLOFFbCOPYRIGHT (C) 1987, MECCLAST UPDATE: 87/6/3 SLL 32000 BANK,1:WVB,48893,0:36863:INSERT,"COMMON2.LIB":INSERT,"COMMON.LIB":(175)(176)256:A136864:A238656:A3414pcxGxxxxpp`@?| ^0|@`cpqpxx?|x~xxxpp`@?||@?`ppxxxx~x?|pxpq`c@||@?`ppxxxxxGpcpq`x|?~||~|?`xpqMA3:L03:RVB,ZAL,Z:ZMAL1:L3:RVB,MB,MU:MUMU1(MU4):TT0:L0MU:TTTTCD%(L)CV%(L)::RAMA(MA):AP(MU)(RA)RAAP(MU)B$"":MU3B$" and bills"ZMB16:L02:RVB,ZL,CD:CDCDL:L2T:RT0:M110:SG((1)29)1:DFT,7,A3!0:UIM,SG,TA(10):L05:CY%(L)76::ES2:GV(1)RA:GV(GV1000):GV10GV10Z((1)100)100:C0:WT0:Z.25GV25GV(GV10)10:WT1:1025Z.5GV100GV(GV100)100:1025GV(GV25)25Z1GV100:Z1(Z1(Z1))100:WTHG9:LOpxxC|A~^gw'gE~pC `0@E `n;dnNd`D?C ` CB M|?D?DC!ASCEF*UDCFU*DCF*UDCFU*DCF*UIF *I( ^ APE@@H|s]TWHU E<I0nZF* Jj2 ELEK+]BFYBBIBD Օ䰐BDDDAAĐB€ŀBՑժʪʪBՀBDDILEEEFSH(AMC@D`@DB`00`,<x6qRh -h HBBCAրBACՀĀՀՀՀՀBFCAB ʀBRCHt#NE@W`8,f;9B-)++&,0`E`I@KU E8|BAA8 |v|;V|:B:B: 8| correct change is "S$"."CC$:6 AUTO DROP/RETURN/SM%(CN)DP(CN)ZSM%(CN)DP(CN):I1Z:9400::7270:DROP DIFFERENCE4SM%(CN)DP(CN)ZDP(CN)SM%(CN):I1Z:9500::REMOVE DIFFERENCEf ĺ"You also used the smallest number of coins"B$" possible."PCĺ"Next time, try to make change using the fewest coins"B$" possible."XWRONG - GIVE CORRECTb"No! Watch the money changer."CC$:PAUSE,6 8700:WIND,2:BOX:CO,,5:"Theu need more money.":SAAMMS$"No! You need to remove some money."RMS$CC$z&WIND,3:SPACE,1:WIND:TR2İ9100+PERFECT CHANGEPC1:L0MU:SM%(L)DP(L)PC0:LMU:TR0RTRT1:PCİ9600>WIND,3:SPACE,1:WIND,1:BOX:PCO,,5:SA(DP(0)DP(1)5DP(2)10DP(3)25DP(4)100DP(5)500):SBĺ"First, you must drop some money."CC$:4390SAAM4330WIND,1:BOX:"Right!"CC$:"The correct change is "S$"."CC$:5000:TR2:4390TRTR1:TR2İ7000:4390FMS$"No! YoBT1,6 CHIGH:>WORK THE SCREEN AND OPERATE MACHINETRY0:FI1:CN0:MV0:SB0:BOX,0,0,100,9:DFT,7,A1!0:IMAGE,7,60,0500Z8500,8600,8500,8600,4300,9400,9500,9500:MV1:TRY1ı4020RETURN PRESSEDq300:WIND,2:BOX:C8000:31000*C1:HG99:LO1:: ZERO@HG24:LO1:: 25V4HG49:LO26::50lfHG74:LO51::75 SETUP MAIN SCREEN CL$:9200 PROB0:MT17:BT76:SHIGH:BOX,0,MT,278,MT1,6:BOX,0,BT,278,BT1,6:BOX,0,MT2,0,BT1,6:BOX,278,MT2,278,::AMGV:21000:GV$S$:CO,7,6319(M1):"Gave: "S$:AMAN:21000:M1Ĺ16299,0:YY12:DFW,4X9,Y5,203,100SPACE,1:PUT,X,Y12(M1),P4WIND,1:"Count out the correct change:":" Cost: "ST$" Gave: "GV$:WIND:9100:4000:700: $urchase price with the amount given. Then, use the money machine to count out the correct change."AMCS:21000:ST$S$:CO,7,2629(M1):"Cost:":DFT,7,U1!0:IMAGE,1,75,6719(M1)pDFT,7,TA(10)!0:IMAGE,1,140,5719(M1):CO,44,2629(M1)::S$1+WTĴ(Z125)12000,2050,2100,2150QCC(1)(GV1000):C(C10)100yCS((1)(HGLO1))1:CSGV(CCS) ANGVCS:550:AMAN:200:9300TAKE,X,Y,X1,YY,P4:BOX,X,Y,X1,YY:FRAME,X5,Y4,X13,YY4,4,5,2eWIND,4:M1ĺ"Compare the pDRЕD (*J"R*BBACBED@ D@ДՁCѐEA !# "CIK@AHiA@TPPE[AC  L+a@ @DJ, LLBlI, C,B@?E#aqqy}|^^_GeuQ]UTEuqEQTEUu~FB Jbrz8<./+ jbz8~!(B* x/x/5@GAA!UEuq|_WW5 CPTe\WAUp_U**" H" j!(**x.+*x/* `?**APAKBP_UUUBA,h(^DEAB࠰а̼D "EAABDQD\"gGKNU,]F] ɧDSCQ €FAAI䨙DGְԲ̕Z a"CAKBLCADf㻣㦦B`CBEՕBABBEŽళCBBՅLŕB MDK ՅőđHABBBN+KFBAUAANFӇ\EƦBW PHCIAYI+B`@@Cp`_p?OooN>C~|x80`@E`@PA``D U]w^xQC>E|`@F?''g'g'c!(8n;*;n*n+no{:.;n*n;j;.;j;.;j;.*.;*;nCx`?LKG?'UCCELABA CBK ȈGCJAՀOF R*nДJCBGB Ԁ說BBノ㇟BʢDBbrCC B BBCANBLLJS#CAAEIBN ((E8x₊EAAEUU]]__DBAACAAEB*.B/A?ABAACAAEBUBuC}BAAKBEF^AC(EDRADAՀOCGCJADE(VFAXЅUCЕTՀDUDԕUCVCAԅ,HLY CBꨨRKABАIBY BWADEC2hYT/h H k I  9g%%H@`ppxxHXPpp`@@IA@PTTW__wBnz.*/;o~x`C x~~zj:*.*+*/E}IUW}|`D}EUGI*ED?E*GIUC?WEUuE?/+G*j~GA B?_WGUA DĀCABăGCB XBGi&t@B\H!@CA@B`A@RAPBPpL&)X # xOBZB 0`hB@@``0 NkB*k>GBUBQCEEBBGAAA꺮N֗NCg,rNЀPA ښںڀM󌇅奥BBهՀՀD%Ɵκ߀FBENURL+gXаEBCE ꪪBյIBꫭBIECBCDIDBCI BICBCD)NBSNIAAՔBꨨꪨ訨DAABBՕCC*Ҕ檨ճВBBБёBBBCBBBBBBBB!ATBDAEA_W _EA+*+EAUUEA~zj z~EAVB!EBEg!SCEUDCUDCUDC_DC*E*BBBBBBBBBBB'ձՄŧąՅB檀CCj2((ՕBՀBꪺWQőőՀճՔB CB澎DABA@CL𰌃D𜇁FHᙇD澎EHCCDI'E"~UU^p|| |xpx~??~x``x||t@B@E|x|E x``?C`x~`DFA? s|CCABA pG CgG?CA`p|B~A~(J~xgOC?a B ??MD~ Cpxxz`D?L?H'W@G`@Y`|++*j*j:j:k;nqcGv|_WWu53{yp`R `x.+ &{y`B@A`px?N;DEL&eCA CCDA @ENDING)JWIND,1:BOX:RT08030TREST,8100:L05:T(L)::DFT,7,A1!0:L16(6RT)(RT6):Z((1)5):IMAGE,12Z,T(L1),3212(Z3)3(Z4):8095::RT6L11:L7RT(RT10):Z((1)3):IMAGE,12Z,T(L1),90:L1L11:8095:9 ^CO,,5(RT10) Op_?1x1GF@C`x xG`8#( ***s?C@pGQADUUU`N`8#(  ""`?* OWPQQDQDQTaqyBYyp`O** b 8JCJH B O B ZMA(A$B(A<(@GAAPTDU<C!FIFI1:FI6FI0 H!CNFI15(FI0)(FI5):100: ! FINGER LEFT !FIFI1:FI0FI5 !CNFI15(FI0)(FI5):100P,0,7,468L,42,538L:IMAGE,5,14L,468L:7  I l FILL $1 COINg v DD((1)2):DDİ8200: CLIP,0,2,42,42,75:IMAGE,11,0,42:CO(4)18330 C%(0)2:C%(1)2:C%(4)42:L11CO(4)1:ZZ426L1:ZZZ4:8400: CLIP $ COINk CLIP+%CO(CN)1İ9575:95400%L11DP(CN)22:IMAGE,IM,CX%(CN),(98(CN3)10)L(3(CN3)):BOX,CX%(CN),84,WD%(CN),137DP(CN)(3(CN3)):5%CN4İ9550:%CN4İ9570:IMAGE,IM,CX%(CN),73(CN3)?%DP(CN)DP(CN)1D%CHIGH:N%DP(4)49560aS%DDįBOX,0,111DP(4)8,WD%(4),119DP(4)8(DP(4)1)22:PUT,7,14DP(4)8,P2256(DP(4)1)50:T%DP(4)1Z1016(DP(4)1):BOX,1,Z,42,Z4:BOX,1,Z4,102(CO(4)1),Z7:BOX,272(CO(4)1),Z4,42,Z7U%DP(4)1įBOX,1,101,42,134%V%L1CO(4)1:Z466.;n;w]7BB7]wn;DBBCA;n]EBԓՁҁ];`D)ꊊ𝗍`;w]vX`@B`̀偘B @`Xv]wn;n:l8`0` @@B @@ `0`8l:n;n]w](U+n;.;n;n]w DAA AQ w];nD"ꈺºʔPn;wE B CBAwn E腄BAA n]w\p@@CB՝ѝBAA@p\w];n8h0` `@J@` `0h8n;w]w+;n;D|xEpx|DyGsscB|xBpqssqBpx|ss;??scCCgBED p<>?>>??~D@pxC|xp@D ?axxp`qE`qyBxq`E ?saaAcEBBFUxAUUAUDAU?"^`8@[@|WU^a@`0(Ll08,.>`F$0l,8.+>/**~~5 }WUU5}UWX\VWWw@`q_GU~D :Cjk+BjG*k CA?I>AC `pp`pxxpaD a@@CAasODE? 00`P|``d?OF\tA (* ;nPEDPTuU ((*n;FB0`Pp{C?`* n}`x Fs* (B~nB~nB~nB~nB~ n~~QT}_}_}_}_}_} *Br2Br2Br2Br2Br2rrEwBwBwBwBwBw( BBBZ,J@`0Bpaz|*3&H(3":3#?<,X80pE \YQfTq]t\w_w_w]u]u^}YuTYQVDf\fDExx>/*,>*:o:j;l;n{>{n;n{>{n;n;n++;&jE_Gdw]u]w ]" PROGRAM: MONEY - MANAGEMENTAPROGRAMMER: R.M. CHILDERS_(COPYRIGHT (C) MECC, 1987w2UPDATE: 87/6/8 SLLZ32000dINIT nBANK,1:WVB,48893,0:28799:INSERT,"COMMON.LIB":(175)(176)256:MB4096:RFL,"MANAGE.BIN"MB!0:RFL,"CENT.IFMoney WorksDw];n;DDB D @;n;wDC đԑĝÌB삻wnFA%χܖn]w\p@BAđĐņCB@p\w];n :l8h0` ` @J @@ `0h8l:n;w]w]w];n;DABBBB ;n;wCЄ`~BwnDBχB n]w\p@BB~@@p\w];n :l8h0 BBC@@ `0h8l;n;w]v]w]w+n;.;n;n]wDCCgcH`pxOI?C\A@x|^NN^|@@N^|p@@=9=99=+Q NL0`@C ώ͝FF$~OEAϸJEAGB񻝝DAH+n;.;n;n]wDHDC`?KB`pxxD|Axp`B?sJas?@DA@C~fFDq`@ACGO~|xxp0gCH@`D?D?AAxp``px|xp`@H@F~AA Fc|xDpE0x|BAc7?> CA?J>ypJ`py?J?~|CxF<~G?~|xp``@@DC X\\CWuUUuB57Bjl.+*.;1cCL1?5u=X#Hx,,.>`M@MuBUWBV\BpBX\VWW\p@F8L88B,/Q*j?E@pY_WUW||DxE <~@`q ;.+.;n{n;~'n "f8*f bfHYbEHz*>*.{.+nn;o>o;n;o>o;n;n;j8j8n2+E3DL3D|5EMWM_=W]W]w}w ]G3EME 8~b]wDwEn;n;@`0 ~CA ~;n;nnE]w]w_w^v^vJw]w]]E;n;nJn;n;";Ew]w]J]w]wDwEn;n;J;n;nnE]w]wJw]w]]E;n;nJn;n;";Ew]w]J]w]wDwEn;n;J;n;n"nE]w]wJw]w]D]E;n;T"4352!0:DFT,1,4352!0:DN0N p(12):CO,,89:"One moment please...":150 sPN$"Management":40000:MS0:L%(10),M%(45),P%(6,10),L$(8),M$(13),MI$(10),MO$(6,10),S$(6),TK(8),GL%(3,1),DT(2,1),MS$(3):L010:MI$(L)::L07:L$(L)::L08:J06:MO$(J,ARGEST/ALL SMALLERpHXX0:JXA:XAJ(XALAST)LAST:P%(XA,YA)0:950::XASTARTJ:P%(XA,YA)1:950::XAJ:EXPRESSIONJ0:EXIT0:P%(XA,YA)P%(XA,YA):950:L14:JJP%(L,2):OJįWIND,1:EXIT1:BOX,0,155,279,191:CO,,158:"You must have (M%(J42))M$(J)1LN(M$(J)):LELNLELNtD(M%(J43)10):ZLM%(J43)D10:D0M$(J)M$(J)".":2080LNZLāL11ZLLN:M$(J)"0"M$(J)::LEZLLEZL D1M$(J)(M$(J),D1)"."(M$(J),D)D1M$(J)"."M$(J) 4SELECT L141X155X1609002BOX,0,180,279,191:>SELECTmZ(YA9)13:P%(XA,YA)įCO,,2XA13Z:">"P%(XA,YA)įBOX,0,XA13Z,8,10XA13ZMAIN5000:4000BUILD LINELP(J4):M$(J)(L)M%(J42)DT0:550:M$(J)ZI,M%(I)::DT2:J57:M$(J)(M%(J15)):550::DT$M$(5)(175)M$(6)(175)M$(7)I26:J(M$(I2)):MO$(I,6)(" "M$(I2),LE1)" "L$(I)S$(I(J1I2))::BANK,1:PSBWIND,1:CO,,184:" Press SPACE BAR to continue"CC$:400:XRVB,MB20,P%(4,7):PRINTJHRVB,MB21,P%(2,9):RVB,MB22,P%(4,9):TYPEJL06:P%(L,10)0::RVB,MB46,Z:P%(Z(Z2),10)1:BANK,1::SLOTR BUILD LINES (EXCH RATE)\BANK,0:LE0:ZMB23:I019:RVB,ZI,M%(I)::J04:2000:V~I2022:RVB,B,MBI,P%(I,2)::EXPE/ZMB4:I14:RVB,ZI,P%(I,3)::MAX AMT4ZMB8:GL1:I15:RVB,ZI,P%(I,0):P%(I,0)I5GL16:GR LVL9ZMB13:I12:RVB,ZI,P%(I,4)::CURREN>ZMB15:I13:RVB,ZI,P%(I,5)::DISPLCRVB,MB19,P%(3,7):279,191:CO,,160:#MARK SPOTOXX(YA8XA4)13:P%(XA,YA(YA8))750zBOX,119,34XA13XX,124,44XA13XX:CO,119,34XA13XX:">": READ FROM MANAGE.BIN%BANK,0:RVB,MB,P%(0,1):ZP%(0,1):Z1āI0Z1:P%(I,1)1:*I14:RV&PADSTRINGSN:LN(M$(J)):LN4DTāL11(4DT)LN:M$(J)"0"M$(J):TDdXINPUT MSGSb650:HSP,1:CO,20:"Arrow Keys: to move":CO,20:"Return Key: to change setting":CO,20:"Escape Key: "MS$(MSQW):HSP:BOX OUTBOX,0,155,INPUT?16384,128:X(16384):16368,0:X147įTSW:410ETGR LVL CKYA0YA4GLāL1L%(0):P%(L,0)(L5):WVB,MB8L,P%(L,0)::GL0INVERSE BOXX(YA6)13(YA9)13:ISW,MO$(XA,YA),J:IVB,12,(XA13)X,J18,10(XA13)X:VSP: ,DISPLAY MENU+ 6YA0įBANK,0c ;PUT,119,34,TK(YA):BANK,1:YA6įBOX,118,20,279,28 @YA6įCO,118,20:"> Now Selected" J ^RE-BUILD OPTION hXA0L%(YA(YA8)):700::YA0įBANK,0 rTAKE,119,34,259,138,TK(YA):BANK,1:INVERSE MENU OPT8 IVB,3,33YA13,109,42YA13:K DISPLAY ITEMS WIND,2:VSP,5:CO,,2:I0(YA6)(YA9)L%(YA):XAI:Z$" ":(YA6YA8P%(XA,YA))Z$">" Z$" "MO$(I,YA);:YA2I1įAFT,1:VSP,5:CO,112,15:"!";:VSP:AFT ::XA1:,236,54,240,111:DFW,310,36,264,110:DFW,4128,34,148,112:E$(27)(13):L02:DT(L,0),DT(L,1)::L03:MS$(L): HI(X)(X256):LO(X)XHI(X)256:WVB,48893,1:1000 SCRN UNPK MOVE,16384!0,81928192!0:16300,0:DUN,"MANAGE.PCK": L(L5)):: xZ$"slot ":MO$(0,10)"search slots 1 and 2":L16:MO$(L,10)Z$(L(L2))::PT48640:AB28800:MO$(0,6)L$(0):P(X)M%(X)M%(X1)256 }L010:L%(L)::L06:S$(L)::L03:L101:GL%(L,L1):::800:850:DFW,10,0,279,191w DFWat least one money expression selected.":900:BOX,0,155,279,191:600:WIND,2UaTOGGLE JXA:XASTARTLAST:P%(XA,YA)0:950::XAJ:P%(XA,YA)1:950:YA8PR1. ` FOREIGN CURRENCYj QW1:500:2700t WIND,2:BOX,0,2XA1313,74,XA13:FRAME,48,41XA13,108,51XA13,2,6:CO,14,2XA1313:M$"":XINP,6,"-09.",0,E$,M$,X$:FRAME,48,41XA13,108,51XA13,2,4:X$(27)(M$)02490~ L(M$):CK0:A$"":N(3)0:I1L:(M$,I,1)"."CKN(3)I:CKI:2450 (M$,I,1)"."CK2450 A$к"Select the money expressions you want to use:":250:LAST4:7900:I14:WVB,MBI,P%(I,YA)::p&DISPLAY &"Select the way you want coins to be displayed:":250:LAST3:7900:I13:WVB,MBI15,P%(I,YA)::&CURRENCYM'"Select the currency MI$(YA)CC$:YA6YA8įCO,160,20:"> Now Selected"d%BOX,2,32,277,147,4:MSG1(YA8)2:600:u%MONEY UNITS%XX0:"Select the largest money unit to use:":250:XA0:START0:LAST6:7900:J0:I06:JJP%(I,YA)::WVB,MB,J:% EXPRESSIONSb&*VSP,5:XA0L%(YA):MO$(XA,YA)::CO,,93:"Date: "DT$:WIND,1:VSP:QW0Y$YA87050$RVB,MB46!0,SN:BOX,119,128,274,138:CO,119,130:"Printer slot: ";:SN0įHSP,1:"1 or 2":HSP:7050$SN$WIND,1:350:16299,0:6%BOX,0,0,279,28:CO:7300,7600,7800,7700:BANK,1:MOVE,16384!0,81928192!0:16300,0:MOVE,36864!0,819216384!0#qWIND,1:MA79:XX0:YAYY:YA0XA5āYA13:300:350::YAYY:300#vYA0YA4GL0YA0:300:350:YAYY:300:GL1I$YA6QWįBOX,119,34,276,138:WIND,4:00:300:"|UP/"200:YAYA1:YA0YA8?"200:300:I"pSAVEw"zBANK,0:SBF,"MANAGE.BIN"MB,70:BANK,1:"XDO OPTION"bYYYA:MOVE,16384!0,819236864!0:7090:START1:XA1:CO\#lWIND,3:MA0:BANK,0:Z(0):YA18100,7100,7200,7500,7400,(0)!0:SHIGH:3000:YA0:XA0:300:200:600:16299,0J!CHOOSE OPTION!MSG0:16368,0:400:DIR(X136)(X139)2(X138)3(X149)4! X155:!X141İ7000:5100!2DIR5500,5500,5400,5400:5100!DOWN!"200:YAYA1:YA8YA0 "62:BOX,119,34,276,138% :IN:VSP0  QW0:? RETURN MM BANK,1:CHIGH:WIND,1:AFT:CL$:CO,,89:"Returning to Money Works menu...":6000:RNH,"MENU" MM SCREEN DNİ1507!DN1:TK(0)4608:YA0:XA0L%(0):700::TAKE,119,34,259,138,TK":AFT' YA6įCO,,93:"Date: "DT$7 YA93080 WIND,1:CO,119,130:RVB,MB46!0,SN:"Printer slot: ";:SN0įHSP,1:"1 or 2":HSP:3080 SN  WIND,1:YAYA(YA9):XA0L%(YA(YA8)):700::TK(YA)AB2288(YA1):TAKE,119,34,259,138,TK(YA)6),V7:  MM SETUP (TAKE)U MA79:IN,10:VSP,5:BOX,119,34,276,138:YA18 WIND,4:BOX:YAYA(YA8):XA0L%(YA):YA9(XA2XA4)ĺ(MO$(XA,YA),113(XA4)):" "(MO$(XA,YA),123(XA4)):3070 MO$(XA,YA) :YA2įAFT,1:CO,94,13:"!(A$,2,6):OK1:I02:Z((A$,I21,2)):ZDT(I,0)ZDT(I,1)OK0:I2:2695a WVB,MB43I,Zq :OK2630 BANK,1:16368,0: WIND,1:670:" Enter a new value, then press the":" Return Key.": INVERSE LETTER  IVB,H(K6),V1,H5(KKİ2750:HH8(K2K4)8:KK1:2750:2640e_ XK6K6İ2750:HH8(K1K3)8:KK1:2750:2640d X175X186K6İ2750:IV0:CO,H,V:(X128):HH8(K1K3)8:KK1:2750:A$(A$,1,K)(X128)(A$,K2)x 2640N BOX,124,49,132,57:BANK,0:A$к:"Example: 06/15/87"F CO,,60:CEW:" Date: "DT$:BOX,60,68,140,68,7:TE$DT$:K0:A$" "(TE$,2)(TE$,4,2)(TE$,2)" ":H68:V60:IV1:2750P 400:(X176X185)XK3XK2X255XK6X1552640U XK2X155İ2750:2690-Z (XK3X255)(J)):Z$(" "M$(J),8):MO$(XA,YA)Z$" "L$(XA)S$(XA(Z1)):BOX,0,2XA1313,74,XA13:CO,16,2XA1313:MO$(XA,YA);:CEL::500:WIND,1:600:( DATE (EXCH RATE)2 2700:16368,0:WIND,3:BOX:CO:"Enter the date for the new exchange rate:":A$(M$,I,1)" :(A$)02420o LN(A$):N(3)LNN(3)10:N(2)0:N(0)((A$,4)):LN4N(2)((A$,LN4)) N(1)HI(N(0)):N(0)LO(N(0)) BANK,0:I03:WVB,MB23(XA2)4I,N(I): BANK,1:L03:M%((XA2)4L)N(L): JXA2:2000:Z(M$system you want to use:":250:LAST2:7900:I12:WVB,MBI13,P%(I,YA)::Z'LMAX AMT'V"Select the maximum amount you want presented:":250:LAST4:7900:I14:WVB,MBI4,P%(I,YA)::'EXCH RATEk(WIND,1:BOX,160,18,276,27:CO,135,20:"Date set: "DT$:WIND,3:"One U. S. dollar equals:":L26:Z(MO$(L,6)):MO$(L,6)(" "MO$(L,6),Z7LE):(250:START2:LAST6:7900:QWİ2600(850:(PRINTER SETUP("Select an option:":250:WIND,2:XASTART:5000)(START1:LAST3:400:DIRSGard/Apple Printer","","Grappler Card/Other Printer","",""V50/5,6,4,4,2,3,6,4,3,4,6s5:/"","","","s","s","","s"5D/3,1,5,3,6,3,7,4:GRD LVL6/1,12,1,31,0,99,"exit to main menu","Teacher Options","set date/Teacher Options","Printer Setup":DATE/ESC Mder $10.00","","";4/"","U. S.","Canadian","","","",""x4/"","Heads only","Tails only","Heads and tails","","",""4!/"","Print money:","","Yes","No","",""4#/"","Printer Type","Printer Slot","Test Printer","","","";5&/"Printer Setup","","Apple Celected",""o3."Pennies","Nickels","Dimes","Quarters","Half dollars (U.S.)","1 dollar bill","5 dollar bill"3."","Cent symbol ","Dollar sign $","Word phrases","Number and word phrases","",""4."","Under $0.50","Under $1.00","Under $2.00","Uns","Expressions","Maximum Amount","Currency","Display","Exchange Rate","Print Money","Printer Setup","Printer Type","Printer Slot"2."$1.00 equals","","Canadian","Pound","Mark","Yen","Franc","" 3."","Grade 1","Grade 2","Grade 3","Grade 4","No grade s900:8470*1 PINIT:QCĺ(9)SZ$:8460C1!(9)"K":SDUMP,SO,1\1 !POFF:0:1002:HOOK1!230,64:8500:WIND,1:16299,0:MOVE,16384!0,81928192!0:SHIGH:WIND,2:14!WIND1>!DFW,10,0,279,191:DFW,310,36,264,110:2."Grade Level","Money UnitPTL,0::WVB,PT4,1:RVB,MB46,SN:WVB,PT,SN0 WIND,1:CO,,160:CEW:16300,0:"Please prepare your printer..."CC$:900:X1558470 1 SZ$"G":RVB,MB21,QC:WVB,PT3,QC:PINIT:POFF:RVB,952,SO:CO,,160:CEW:SOĺ"There is no printer attached."CC$:00:WIND,1:16299,0:BOX,0,0,279,28:CO:"Test Printer"CC$:BOX,2,32,277,147,4:WIND,3::"If the settings are correct, this screen should be printed as seen."/0 ::"If not, please check your:"::" 1) printer type;":" 2) slot number.":L02:WVB,):.l PRINTER SLOT.v YA10:7090:WIND,3:"Select the slot number you want to use:":250:WIND,1:CO,120,69:"(Apple //c)":WIND,2:START0:LAST6:16299,0:7900:L0L%(YA):P%(L,YA)XAL. :WVB,MB46,XA(XA2):. TEST PRINTER/ 230,32:85)(LXA):WVB,MB5L,P%(L1,3):(-:- PRINTER TYPE- YA9:7090:WIND,3:"Select the printer card and printer you want to use:".& 250:WIND,1:CO,120,80:"(Apple //c)":WIND,2:START2:LAST4:16299,0:7900:WVB,MB21,P%(2,YA):WVB,MB22,P%(4,YAST ,6,GRADE LEVELz,"Select the Grade Level you want to use:":250:LAST5:7900:I15:WVB,MBI8,P%(I,YA):"-XA5GL1:L06:P%(L,1)(LGL%(XA1,0))::WVB,MB,GL%(XA1,0):L14:P%(L,2)(LGL%(XA1,1)):WVB,MBL,P%(L,2)::L03:P%(L1,3e+X141ĴYA1(YA8)2300,2100,2200,2100,2300,2300,2400,2300,2300,2300:WIND,2:450:Z(0):7910+500:DIR7980,7980,7960,7960:500:7910+XAXA1:(YA9)(XA3)XA4+XALASTXASTART+"+,XAXA1:(YA9)(XA3)XA2,1XASTARTXALA"Select whether money designs can be printed:":250:START3:LAST4:7900:WVB,MB19,P%(3,YA):WVB,MB20,P%(4,YA):*WORK T.O. SCREEN*PR0:XASTART:500*400:DIR(X136)(X139)2(X149)3(X138)4+J0:X155ĴEXIT2220:EXIT7910:500:(X136)(X139)2(X149)3(X138)4:X155ı)2X141įWIND,1:MOVE,16384!0,81928192!0:16300,0:XXXA:XX8200,8300,8400:YA8:16300,0:MOVE,8192!0,819216384!0:16299,0:XAXX:7720)<500:DIR7980,7980,7960,7960:500:7720)xPRINT MONEYu*,FHǃCd,תըԁĪՆՠČԚŦѪšŨ꫃웙Lj要궕՚ĪĜюՀՃתܪ%灀Ӄށǿ !  . ՏجW*ꁀ:j՞@+Us6f~ 37|S;L"yNg5dpf6t@;`v~<`m??Ba?> aw,>p_?d8=AP>~@9Sf?>1@9M?>!.UՎU:ꁀ.U&娕*7*ꝘSjdiUZ^(eպTJ?*u٪U:)uUz~*uպU*O*uתUjSJuUzQDzWOݻժժԪժԪժժ׮ժհŪ߿љ劖߿Ǚۗ՚ժ׬զժ"???];wn?9<3&z?6[Myw?6[=l?0Ly[?&LT?];Wmo?ovp?oS?oN3>os=a_S;p?3;bs6CLܹ܁߻ύݛϹطπ슁؋ōد>癟΁瀀湀"ݻݻݻ߻ݻݻ컻ݻ؁灀܁濃ϛߛϛ獰왃ρ瀀ʹߝߏρ߹΍؍ڞ㽾ؿݏ偀̟ྛӨа꫔慦ѭ՚՞Ŏчբԃܪ%灀ہ콃ύ뷛Ûۏ̛Ϗߛ 㿳ǛϷ߉߿Ǜ߿ρ̗Ԫעԁ؆ժӌɢ՚و՘ЬĈ諔諑ր