2IMGCdrP@@@ 8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL L? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8RMONEY.WORKS' @$MENU h Į*COMMON.LIB qh Į$LOGO$h t&PRODOS* }<h  (MENU.PCKJh  +MECC.SYSTEMOh  h )UTIL.BOTHUh h (UTIL.AUXZdh h )UTIL.MAINk*h `h MANAGE.BINF(COMM.IMAh @'MACHINE mh &US.IMA h @$MINTth Į 'HOWMUCH/h î *MANAGE.PCKB h  (SAFE.PCKh  DIAL.IMA0h @%COUNT h î )GIFTS.IMA h @)COUNT.IMA %h @+COMMON2.LIB h )MONEY.IMA h @PRODUCT.INFOh =*MANAGEMENT.h ɮ 'CAN.IMA,h @CENT.IFTh Ј 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:ML45: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.1" jMN$(7),CN$(NP),BR$(3),SS$(2),Z(7),CM$(NP),CU$(1) tL1NP: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) 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(5)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,48894,(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$END 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 recognition, 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 Notes"(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 machine 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)"::"Money 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 to 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 for 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:":wH"MECC Distribution":"3490 Lexington Avenue North":"St. Paul, Minnesota 55126":"(612) 481-3500":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, press 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:SPACE@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):CHZLCHZUZCH177BZ#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):WIND,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","Green","Blue","Violet","off","on"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):DL(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: !"TNCTS$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" 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:ZL4: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:PAUSE,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):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: MENU1yP$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<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:32000}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 VARsREST,40130:EX%(4),MA(3),NU$(28):L03:MA(L)::L027:NU$(L)::NE0:L14:RVB,MBL,Z:ZEX%(NE)L:NENE1{:œ .05,.1,.2,19̜ "","one","two","three","four","five","six","seven","eight","nine","ten","eleven","twelve","thirteen","fourteen","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(< |t=>0)?><@=0)?><@=@ |t>0BDHt&cu'Ch&BDBBC`((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP                    #%&'(    ^B0xXCFJ*^037B6ACFJU^BC3ACFJ*XA_BBC3ACFJUN[]??B/++*C*BB3?>CFJ*NGKGO?_WUUUBUABUCUBB>0CFJUNGTvGJ??C*B*B***B*AB*C*BBB3CFJ*NGKGJ`@UCUBUBUUUBUABUCUBOBfFCFJUNGKGN~C*B*B* FBC BBB CFJ*NGKGOCUBWBB@B`@CFJUNGKGOCC@B`ABpAB8ABAABBGlo`OCFJ*NGKGO~x`FBAQB oBlOCFJUNG\gG''DgdGP?D@B`ABpAB8ABAABBLBlOCFJ*NG\sqpr2C3sdGOaHBAQBBOB`OCFJUNG_@B@dGQ|0TAA ~~B@@oBLOCFJ*NG_DsdGOE@`pG`@GBBYCFJUNG_<C9dGOGCGAHBBOBYOCFJ*NG_`@O@@`dGO~x`FGA>B~BBBYCFJUNG_CyCbGQF@`Dp`@HB@@_BY_CFJ*NG_G|~bGOG|L|HBFACFJUNGKGOD@CAAGA <|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|}~BJUL !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( + %Щ ߩx"L! )L! 8'  )ɀ)4,- U JNT) x"Lv"w" ( !` a"M)Fi/ e"3 k")+,-./0123456789:;<=>?@ABCDEFGHl"m" h" iL X%;"L8"ΠΠҠ`y""""""*$ Fk%YeQP!/RB}QBiBB}\ ĉFEL/#> ț6 . ) ɘ"    L=#=#&ŠϠĠԠŠ ԩ m# m# J Qڨ)̰m] нȱ ̀𩠙 i F > S ɘL   V7 L ' 0% '8 Jm ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ ͍B B(8`%YYZLYLYLY뿭` 8!@8` %MNЩUMߩ  L 5   8 0 8  ` / X& & +&&7&P^&`ŠӠֱҭԠŠҬî̠ӠĮʎ1|&… (n}&Dž (\%Tz&Lc()8= (J 8'z&'{& 3((ʎ1|&|&|&3223 ')L&18|&"m11 2H22h2舌|&|&12H)M0 h10200I20h2 (`LE%12 `_'"L  <8# ȱ)ɀ  )( ` (Xp< @( )m((.(( M(i  ``) |'(j21 z& {&!` ({&z&(i({&(( CBDFGE (r&$ 3(,}&r& … 3(ŅL&JJJJ`Ϡ'8`r&h)hrȱȱȱȱ0]cȱeem*ȱ*ȱ**ȱ**ȱ* )* * )L(`L?* *Ll) ) L( )Ll)8e` ,$`ee` `* G** c*` v* G* c*`hh8`8`***`}*`e`H)hJJ*0JJ)` (< ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <.<ʆ>,=?BC8 é&'112`HB-9F 3"aɿ LLB Nϰ H  @h( L Lj  @`eLJCAB@=?<>=?<>CAB@?A` 1 L  <>`ڢF]PL8i m L   6< L  BLRAM' hLDLآ <B*IBGF08Lé'+8H <,``h(`@ڍL3hh@ihAiH(ؠȱ@JJJJq@)@Yvȱ@Hȱ@Ah@y@cYe J) LL LJiB LJ) >xhHHHHL(  ްƠx@BEOD  ް(`( C)CJJJlB O-`J,~@~@}J@` ߩ%S @ ~`E hhhߺ0 h ߐ( ߐ ߐ ߐ  0 HϭߍLпllllhh8` Qx")T'P) ɺiL; )?     ~ `l@Hȱ@IױHXATȱH ɯȩ׍̒5H)/@a)_ .0 :A[8@`,뎒׮Б` L` @>S)I38Mdeם`K8`@Nȱ@O@ rIiNȽבN)/ȩ/N`@[ WHJjjjhA ,'KI؍0JHi 뎅`C8` @ r3N@) G莱 ⭮i`0 Y; 뮅ٝ٘ 0 W,0 .H hȑNWȮّNW8`ٍّNά0NN` G8`F@ 0 > LK8`: ;I8`FHGH hGhF܌ բFܽܕF芝ܝ 밶:; <܅I m=IHHyHȘI Lܝ` @c@ k@Ю׍S)mיSʈ@qȱ@cȱ@mopfNxOyS)5SI0ܢܽ iP'E* 7deFG (GH Lv܅IR mEIH` tq qM0PQ ESHNFOG 밳NO 밨G%܈D" T)Ii)܍R*܍E'ܮ( 4 䭐 $H %HFFHGHG 됬`R8`)` EHS` #Q'܅IHHSSЍS@`8 ` ͍% ΍Q8`܅I `P܍QR d8D`F` ]lH)HFȍNHGO $%܍&܍!ܢ8* J8` L ܝ>)I 'ܝ:`F8iRFPGQ`F܅IH3H ( )ȱHά`Ύ8EeHI |SB:0M ٙKٙIFNGʈ d献`8m0`,0H hi PȽάhٍ0GF8yאFG  $0 G01 E8`1ݾ00 Y 0ʩ 谼 谷`12)1`0`Ȏi 0U`)8`ά` W xG 0A)H ܝʈh٭0٭)ܝ٭*ܝ٥F٥G٭'ܝ٭(ܝ`)َ 8ʈ` 0ٝ)i `8`R ꍐz{ vNمFمG < ΐ0 FGL鮅0 ٭{٭zٽ8`H8`  ,z { 8` z{ `ٽJJJJ`H͐hn)NjNjNjN. CH͐ v;٭ *Nۙ۰ڙک `Z8` C# (`{ .{ .{ .{8۰*Jz۩ ٰz{`JJJJ;i v묅͚ vٍ0  `H8` `ٍyٍiB0H0FG h0`FG `ϩBxED0C ް(`(8`ؑ@`M8`8@ؐʈI묆)z8zz Ly LةC8`؍)@ i)z8zyJ ^ ؅F Lo) +%J(a *FإGؐ.` *JHIH IL/FHGI ҭJjHIHB>IؙJJ W: ELyHIHI`JKJK`FHIG ( Ȣ؝؈JL)eKM`)` J zJ͟ $0 ΎJFJL8`JGBJ P FإG`BH PFإG`,H hHB؅F  ؅GxDE؍00C ް(`(8` vL'J  6"L vH  6 9ؙ` @ P8`K8`B8` L؈SJJJJحq) ) )Ю ЪGdF $ ᭔ع+ؠ 2H  :h8` 䮅ٽ ٬ؠ@` ( L )8`)i п` H h)N$% LL L r L 2 "pJ덣 )@፦NJOK 2iKK΢΢ IJΣ JФ̭JjHFIH HIGxKE ް((H hH h8`8@ȭ@L2쬆8NNO 8 ؍JL`R΢ʱLN1MOMEKP/MEK΢L7L-M O,p莡eNNO(`JNKOL 2/ "P L8 y WؑJ`L@ȱ@ `@Nȱ@O`؝}zIzؐ` f~ؽ؝z f % f؝~z؈` ` H  Ph)N@ 1; L  2$ )bJ Y ) H 4hL )  )حJjI{HIzH؊ PLE΢ʱNLMOMEKP%MEK΢L$ O, PeNNO 2(` C  7 2JzHI{HI؊ }LE  *` A Hz ع H{ ؙ؊ؠIhHIhH } iع `  عiعi` )؍0CGHFHBFG ުhFhG`@4͔ L @Ai ׭2` . :#ع؍0 Y讅)`.@+ i 8` L )߹0 )p )@ ) ȩ ؝L0NO 방 PQNOFG 嬆؍f؍g؝h ؝c zS) zS )حM͚ v`H@h`h``N8`  ) 1⬆Ȣ؝~@~ݞ@ʈL2 KIJHȢݞ)Jn 8 θ ؍ ؍ DH8 ع)ꭵJJJJ Ȣ؝I؈ 2h(8H ( h(8Hh(`ؑ@`@ȱ@ ` B@8ZS d鮅ٍٍٍsHٍr8fhgSJJJJS)S@` %I -q) 0@S)N8` @LL =@ ȹP8` i` %ם0 B %)( ȹ`8m8m@8` G8`F Pq)@N8`S)@J טyרםSS)׍Sde 밑 LȹL@ȅH@IL,0` G וֹ= YH.q)N 0 >deS)@LP8` D᮴ ֩SGHG v L䬅yٙ٭yٙ٩`K CEdFeG 6%&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(K cXXK تKo`V8`no` , on cI9XX`)HJJJh`OeNeO࿰ c9XАO`@ȭ@` ON INJKO`HхhꭋILhH),Nx8 (8` ԍ`@ABe 2U,,CnZ1IJK,-NOPQRSuHUSTON!' @   !"#$Ԡ͠ˠĠԠҠ(c)1983-1987 AppleLKL`BLL ެެެެެެެެެެެެެެެ(C)APPLE'83xLLM Mh@8nЍLޭ 0J @,,LNP׽8H  ): e: y8鰕:Jjjj<)yאi8i;i(*=>hPם8`;Zx3QZYXXWV[HEVhEhH)IWHPHHHAHHHLaVEWLӿ ֽ ְ& .Vӈ  JJJJH 8h Ei 8EX`'8`jӍWӥC)p> pӥCYӍY 轊( ( ӈBV ( ӭp0 \BkJ ՠ@iӦ> Ӑi'j:ZH i@ioZZH h ѐȭnWǥBJ Ӱ8XӦ>` Ր+>*L o % ԽYӍZӭoӝY 3Ѡ шNZ`rZLkӭZӍq8r7IZӐiZkӐk 8 ѹs ӭq ѹ| kн Z)*>>` @ $(,048<@DHLPTX\`dh 0lptx| 0($ p,&"op8`kkV꽌ɪɖxlӽ*kӽ-kәmMlӈ 꽌ɪ`8` ZԍsԍԍԍԥDEԌ8TԌ8WpԌqԠ 7I꽌ɪ꽌ɭ蠪:љVE:8`]ѾV]H)]ѾV]ҙ)]ѾT]ҙ)] >ɗ8hUD` ԝY`> Hh݌(`HCJJJJ)*h`8LխӅ:HhHh Ո թ թ ՘VYҪҦ>:Y)Ң`;R?AJ;<ȰY)Ң`Y?)Ң`ȐҰ ;HhHh=Ң`Hh `Hh`DEiȍ0֌18V%֌&8V֌֠)HV)hH)hHIhդD?DRIDQD)҅; ?JDQD]ՎՎՎ`MY pӭY)p  ӭp`C)`BFGV 8``,, "ʆ2(!#n  X,T,Q$ % " $% " ,,Lf,ɠɍlPlease insert another diskettePress SPACE BAR to continu,0)L0 L ɛ$ɘɉ ɈL :Lɍ)ې)ɮ۰ɺH h 'L  ġLL ̹L)'L ȳL O'F ʻ ̹(((L $ʩ $$ $L `ީ % K@D EFby LҠؠӠ΢ϠԩҠŠƠԠԠŠӢɯϠҠůȠԠĠ  0h)ύh0HHHH " ׍hhhhhhh .hh8`JIMJAYKERRY&MIKE`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*BcfgfgBUB?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{GIKLMDA*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*ZBUB133cAB*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*BDx~E~xDAUJA@hAUZB*BBABUI>E|>DA*|MB`@C@CKIA*ZBUB3?>B*I~BUI~cAaqDDA*|D {~|ԀßEAIA*ZBUBx x@|B*Bp`D@ACGGOOC@`pDAU|CAc}HEAIAUZB*BBBUB?FOoBoO?DA*|GAAǏGIA*ZBU p00pp00B*I ?>~DAU|YFJLAUZB* FcacFBUB E ax|<|x`||xaDA*uA*V BBUBG B*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~00CBBCCUTTVTBUBKL L <=@<,,nv'~,, "%$(!# ! {" # &L# )% ' 8 Xw'lx'my'n % oI 8 K*دRNH,"MENU":! C!!! !!I `0!JJJА ,!0,,,($`=!)<<ݫ!L<i!0)pJJJJ =莰! !!!,!0 !`,!0` !DISK 3.5z',v' ,0,V,U X,TNPQRS)00"L*&`This product requires an Apple //e withan Extended 80-column card, or a laterApple // series computer.w'&'x'y'12)ɳ`w'D# E#L3&% &L# X,T,Q % "K# &&% n# &) # & ')_YNL&xD#3211&'(`This product will DESTROY the file youhave on the / volume.Do you want to continue? 8#9X67L( Lo X ǔ$A@<@>=?BC8 î)/́f<݀$<0.m>B$<ȽB< >=?C8 éB Ɨ$L3&=?C8L%% %% %I % %!%"%%% %+% %(% % '%!%<"%=%%&% %`H(% '%hL3& % $6e<>e=??<`= I % ,%  ` ` UTIL.BOTHUTIL.MAINUTIL.AUX`{' ,&  L3&.)iU ʘIU Lo`&&,v'0 a{)_ `&&8b& X,T,Q % "( && &Lk&& & $% "& &,,ɠɍ e& Fatal startup error. Code = $Press SPACE BAR to continue ' $<&=&@ X ,R,W,U,P`LOGOt' $u'u' (,,(,ɍ$(`Ɉ ɘu't')_A[u'(u'Ъ PRODUCT.INFO /Ǎ'==}<0 @@'>'?>ȱ>@ȱ>=}λ'=`$.:FR\hnx''(((((((((((( 8  1 8 H !HH X 08  P8  Q <p <q <r Us <\Hp x ____`  ,0`,0L| |`, |`L|hhhH,0(lhhhiȪHH,0H( h(0H(`,0L| |`,(`,. (` L A,JJc `  (`,(`,(` ,`,0L  `H hL <0,LM M`<0,L/ /`,TVWX }`L}>=?@3<>`=eA=?eA?A@ <><>=?` @  b a b c ,c B`I-c c 8`n b p0 , 0 b ʎc `c ,c c c b `a b ` a (L 8  M ( `=   M l , 0C L4  Ȃ H h8, 0 L4  ш ` M  `n  0" , 0 8n  ` M  `Lx M  `n  0 , 0 ` M  `Y

q ?r i F 8, 0(  t  l , 0 `n  < = > ? , 0  , 0 L `f=@8 @  @ A(P8j@ 8L n48n4n4P8nZ56<8 <  7 ,Z0 `,56 <=ZH,40 ;gh ,4PhZRS l IMN JHI h,Z0i L OQY\ P,Z0< [L XI R?H>8/? hih8$nj< Lԥ() $%hi,j0qr nklmo8n t N t Lԍ>?n  % " h 4+ ! p T,o0,m,U,l ,k0,P() $%00(n, `  `L=<(8$>< ) <<Ȅ?> % "$()$< ?$<e?=``'+./ERU<=<<)/BB)/<)_B)_8``xFYG]BFGCJJJST,, ,FG(`(8`Ӡ s,0  s L s-<=>?(@ E   s s+LsPlease make sure that your disk the volume named is in a disk drive.is not write-protected.% "N$ sN,,,0,0ɛ n,P8 Nɠɍ'(n8  >8   >8`Press SPACE BAR to continue<@=A %$*,T I w,Q`<=<>Ȣ<)//<)/a)_ Ls * <=>?x@ E iȅ<=>?x@ E κе`L12`ɯL )8ɀ   Lޤȱ 0:,јe湥 iviw } , L ,`12LL sʎ  #   L)  Ln { R  L! n Ln 2.  { R LLnL  rp` rp` rp` rp, , , ޭ `   H L犨h, rp`  抢 rp`L rp` rp` i` rp , { R  LLn$8 抢 ( rp`  { RLIi Lx  rp`L 2j` 5j`8$ @Y<= >? ,  , { @<= , ީ E ( rp@<>=? I ߅ lݩ L{- ~ e` LH h rp`  `, ֩PyQ AٺLР ,,Н,` `,,0LhhiȪHHȱȱ 0a|L H  h(`xxxxxxxx͍`xxxx`xxxx`gheC?(>   Lie>>?(>  (  ,0ƗēƖƕ(  Ʉh6`h HLhHH!H L(L5逐+@*0*-F4iLLA HHLLFL`  ӥHHvHuHH >L"  { ɫ ޥ L L>L(  HɰɫơhL(  ,h`L  ߅ eX` 꺽  ' 8 uvL"i , LL  F eihh eHiHvHuH j gݥ % ^_L ީ  g 렯^ _LޥHHHL" ߅$0  c`LvH@!A !B!C!h  <=>?( (L (8` =HHW!8 HIi ahhh( `2}}2dd2WW2KK2KK2WW2dd2}}^ RP!XLHNO)%n!,!p h" ֩PyQ AL!h) `""""" , " " " ""  g R""" "c" """" S"  "<"=<"ȱ<ȱ<ȱ<ȱ<" """٢ =<=""Ȉ<"`L#### , 掴# g R猹## 掼# g R猿## #  g R### #### S#  #쭺### ##HH =hh̼#`# g R*PQ PQ dy`    ee8  et$u$v$ 6  Lt$  Lu$  Lv$t$u$v$ eu`  ` g Rх g RӅԩР Jw`   w` f%% { ^ l Lԍ%%% % L$%%%%% % L%8%%%%<%=%%% % L=%=m%?8%<@%=Ae@@A I % L%%%%% % L% % L%  fii` y& z& m&{& m&}&y& ` y& z& {&|&}&  , |& }&y& `  ` { <=@H>? E ^_h z ޤ<=L UVW YZ[X\  &VeU `ZeY `WX[\ z` g R< = ! L,' .a' g R@A g R> ? ! L`' *)LI `(( ެ(( ޭ( `n((z(}(( { ,(0 v}({(|(  )z( / { R{(|( ! z(  (8z(}( ({(|(  L$( ({(|(  >(((<(=(%((mgimhj ,(0 l֩(( ``L 8 '('( eֺL׭(<(=<(=( `(,(` N8`I)J) { H<< <= +ɥ! { R>? LI) ɥLnJ) I)JJ) h ,J)0LL ` g R g R g R  L)  (L` `` KoLI g R{| ֤ʆ}~` { HC*D* { R>@?A n) ! n) { RBCN) 8n)N)) ,)?@ ! Le+ * E ޤ%L $8 { R>?<=(J@ ! L+ *H { Rh E ` { Lޅ< N ,NO){a ^<n ,, ,PLN ,L 8$ J-I- , J- ,C-( { K-@<=>L-?M- E , I- ,F-( { N-@<=>O-?P- E ީI<-=č>?@ E Ġ( =? E ߍ lݩ  { ߍ lݩG- L{- ~ rPpQLOR'SgTL0}4| 4|"# !`@ B `)JJ & & f).kenj` ` e斥nj.k`8 ````.``m``8p808a0fjƆJБҩ(8aHhLa`deadfawd=|d ȥL|dS1b}d$bd*bd+b}d@bȌJbMbRb(ȌKbNbSbRbSbȥLbaaanj.kEQ)Q8majlmnopqrstuvwxyz{|}~aa懤Ć`nj.k)LQ)Q ȥQ)Q8m懤Ć`Emb )JJJJJJL,bEb )JJJJJL,bEb )JJJJL,bEb )JJJL,bEc )JJL,bE?c )JL,bnj.kEQ%Q懤Ć`nj.kE )Q%Q懤Ć`nj.kE )Q%Q懤Ć`nj.kE )Q%Q懤Ć`nj.kE )Q%Q懤Ć`nj.kE )Q%Q懤Ć`nj.kE )Q%Q懤Ć`]*bbbbccSxJcccccdd),) /p`m  `)****)mkmeeeee Lga)L9a ")07))Э `Je0ҩ `m  `eeem  `eeeeenj&.k'&Y)Q&& &Q&)Q&&䖐`010Le k jj  @ s ct(f6  ,gLEg,ffH7f9f ?fh,`) &$20   dmkm`LggH {hhfHfH`:zW{ S|+fhihssiiiiiij(%g&g {hk $20 d g i@ gH, ihɈ)&g0!&g) /pkHk i ihkLf,%g&g`NO8`` K@ʍWRPT`   kk`H) /phjjj )ij ) Vjh ɠ kjij03(hjmkmfjfjgjmfjmgjO`kjhj(H {h ,jhLgghjHkkkjHhj }hh8kkkk8fjkfjgjkgj ,jH /pmk8fjfjgjhhhjhj((hj󩀍ij 0`) VjLg$8nhhj8jjm(h  dmkmhj٩h0 fjgjhjijjjkjljmjljmj`jjhj8fjHgjJhjLVj`,L8k8k i8k8kʍ`kmkmmkL,jkmkmkm8mk`8kkk` ,j@ i iLi iLs`mke膘mkmk 20 Le iL}i, ` i Ti` }i`jjmfjfjgj`   &49<=>CJQX_fmt{ !(/6=DKRY`gnsz}~ !)0266666~~X~3 30n;;n    [~<~[ ? 0 33333  30??003??003<33?0 333333>0    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   8񌈄 & &eee`ppLeH {hh pHpH`FHM{WsH:b4rrrrrrrssirrejjtttptrp,q<=CrDrErw >w?ݩ?)`H8HH ) w X8!yDy 1y8 y yjjj) @ Gy 1y )fD8&HHXy$0^y 1y( y yhhhhHHt0%f$ I i $ %i $ iPII)if Э$pI y$ I 0PyL1yl `/y0y)0y/y`:y;y y` Z Z T16A D G0560G0280yyPyyPyQyi`yiay ީyyyyyy.yNyyPy`PQ`ayŢyP` z 8iMz)?eeȱe,Mz`   8񌈄 & &eee`z<=@@^ NzBeBe<<=@8? l `_jk g ,0 0lne  .>)JH mhH h`> ?Ɗ .>  ?Ɗ .ƍLIH>)? ?Ɗ .hɀ>Ā ƍL> ?Ɗ .>  ƍ ?Ɗ .LI?`LU   <=>?A@ E C "(!#, X,T,Q,V e@-L宮lm ,X  L  el=x1123l2m&n'BCDE,, ,(`((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP                         II8 `(IIȪ`?<>?>,>$f<<` "D#EDȥD` `ȑ `轏Iȑ` m"m# (ȱ``,݄ ބ!߄`'`䅓 i -``nZ$S ,ZC ) w8B)8|' q q67  ;$`煕5 `|腭|酭|ꅭ|`%< @(D)HL ʎ`솎册熥7H6H $8 톈 ;셅$h6h7`#ʆ%$() 6 7H h)6 셢 ͳ 셎`% ()`8m+*` Qi`t8iȥ8i݇ei&F '&m݇`45 {&'&<7'=88n6(,,LɈ2m53@ ɀ6`0 00)?0W 0м)?0 00ф1,62H8 =h<4e<<=4m778 L,! Ʉ <=&F'1 R{Ȅ32,6&'&<7'=82(,,LɈ`,DEDȱDȱDȱD<ȱD=ȱDŠȱDȱDED<-n?nޭNL( {h TikM i iM i )L !LЉ _I ,? / ? +, N콊쾊 _  LЉ Ê`Ɋ0 DÊ ` z{a  z$8` --# -   `<`(l8)Qyf -W$'c!!WC6DN\xaNVrAAAAAAGAAAAAA  C~C~Ac`B`cC?B0C? CBEqABAqCC+Q NL0`@C ώ͝FF$~OEAϸHEAGE㇃H ۻCB B+ADCBAAGE̘0`@ώ͝GBC%ႄDAϸHBKB񻝝DAED+ADCBAAN̘0`@ώ͝GF$EAϸHEAGB񻝝DAH+Q NL0`@C FF ~OBEAϸBJEAGB󽝍DAH+JEABBCBENDpx``BAEUBBEPрICBF+MAABCFFG͍Ϟذ@`0LE$O~EHД񏟃HDBG C?Dsa@BBsDC C?DBsB@asCD+K[DBWHFVGCETK+RAAA ǎWWC DVB ϟЫCWE+M ϞQFFA ͍ϞذC @`0LE$O~EHД񏟃HEG @`?p?o?o_ x|||||?|wpg@MONEY WORKS%MONEY MACHINEBPROGRAMMER R.M.CHILDERS`COPYRIGHT (C) 1987, MECC~LAST UPDATE: 87/5/31 SLL 32000 BANK,1:WVB,48893,0:36863:INSERT,"COMMON2.LIB":INSERT,"COMMON.LIB":(175)(176)256:A136864:A238656:FT7936:MB46592s RFL,"CENT.IFT"FT!0:RFL,"COMM.IMA"A1!0:RFL,"MANAGE.BIN"MB:RVB,MB14,CU:CUįRFL,"US.IMA"A2!0 CUįRFL,"CAN.IMA"A2!0= PN$"Money Machine":P136864:P2P11280:P3P2512:P4P3512:WIND:BANK,0:CST,4096:BANK,1:DFT,1,FT!0:40000: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 <L05: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,.155,.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: SELECT 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)CO(L)8Z2((1)Z1):CO(L)CO(L)Z2:T1T1Z2CV%(L):>"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%(L),75,4::BOX,0,79,279,134,4:WIND,1:CO,X,Y:CEW:WIND:BOX,0,160,279,191:b UNPK MONEYBAG*DFT,7,A1!0:ZUM:L09:TA(L)Z:UIM,12L,TA(L),Z1:ZZZ1::MAIN PROGRAM$HSP,1:MOVE,16384!0,81928192!0:16300,0:CL$:3000:800:ZAMB5:MA3:L03:RVB,ZAL,Z:ZMAL1:L3:RVB,MB,MU:MUMU1(MU4):TT0:L0MU:TTTTCD%(L)CV%(L)::RAMA(MA):AP(MU)(RA)RAAP(MU)ZMB16:L02:RVB,ZL,CD:CDCDL:L2:RT0:M110:L05:CY%(L)76::Z((1)NE):ESEX%(Z):AN(1)RA:AN(AN1000):AN0AN1l AMAN:21000:200:9300:CO,200,0:"Problem "M:DFT,7,A1!0:IMAGE,7,60,0:M11040 TAKE,XX,YY,X2,Y2,P4:BOX,XX,YY,X2,Y2:FRAME,XX5,YY4,X23,Y24,4,5,2:BOX,0,0,100,11:IMAGE,6,60,0:WIND,4:CO,,25 "You will be shown a money amount. Use the money machine to drop exactly enough money to match the amount shown.":16299,0:SPACE:PUT,XX,YY,P4:WIND:BOX,0,0,100,11:IMAGE,7,60,0WIND,1:CO,X,Y:S$CC$;:ES1įAFT,1:"!":AFT:WIND:9100:4000:700:$8000:31000 SETUP MAIN SCREEN$ 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,BT1,6:CO,200,0 CHIGH:WIND,1:"Select money to show: ":GCP,X,Y:WIND: WORK THE SCREEN AND OPERATE MACHINE)TRY0:FI1:CN0:MV0:SB02500oZ8500,8600,8500,8600,4300,9400,9500,9500:MV1:TRY1ıy4020RETURN PRESSED300:WIND,2:SA(DP(0)DP(1)5DP(2)10DP(3)25DP(4)100DP(5)500):BOX:CO,,5:SBĺ"First, you must drop some money."CC$:4390&SAAM4330J"Right!"CC$:TRRTRT1:9600YTR2:4390wTRTR1:TR2İ7000:4390MS$"No! You need more money.":SAAMMS$"No! You need to remove some money."MS$CC$&WIND,3:SPACE,1:WIND:TR2İ9100+ XWRONG - GIVE CORRECTb"No! Watch the money changer."CC$:DFAMSA:SS(DF):DF(DF):L0MU:T(L)CO(L):T1(L)DP(L)::SS1āL0MU:T(L)DP(L):T1(L)CO(L):gAWDF:LMU01:NE(L)(AWCV%(L)):NE(L)T(L)NE(L)T(L)3lAWAWNE(L)CV%(L):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 %SS17240!* 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:9500::7270: REMOVE DIFFERENCEe\T(CN)CO(CN)ZCO(CN)T(CN):I1Z:9400:: DROP DIFFERENCEkf ,e كbQ ǪՁԀԌԲղ꫕꫕Հ̀꣌꫕꫕릕ūԺūњѲќѶŎѲղՃǂܪ߁Ά߽ٛ􃾶習ρ瀀熰ݍؾᅴؿ߸䲷ܷ޷؟ߛߏՆ恀Ϲ%灀뙒݁cӼﶕ쪆˿ρ󀀸蜀띇"w7!D73f7:D"D7`@L7.c|77f| [o]7FOܙ7^O7?w7NO[[7^Gmg7N3`v7Z0}!7FYsL7Lags@7@osL7LO37fO7fO7fGO7laO7Ng7s78~xw7z~73_]70C72w/gǢс䪖و얢Ԛժ⋀ꫀ꫑꫑꫑꫑꫁Ԫↀժճתժ݌ăתܮγ܁񮕚ٶබ⢶涞߆̙܁泀׍ݵ쯝˝۩֛썗דۍտӲ぀%õؠ٘怀ʁ߆썰ۛ޶趬ڵ̱ضә֬쓡ܣ쓇϶Ϭ㟻ܗʶ́낰𼯗큀 1󃀀χ迎̝ߜޟ݁ߞ偀σ߃฿ߎԿ½ȿꚃɁ灀󀀸޽烀 1۵݇ᅫϝ뺀Ϥ큀Ӄό󯟸ߙߟߙ濛ߚﯜߛߏ춛߶󷏶߃׿ܾշ펀ɴ惀𣻍"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{ 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!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%(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:DFT,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 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,66,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 name 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,2,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,89,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)? ";: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: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(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 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're 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:DFT,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:INP,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 arrived 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: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$:"to 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: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)):LELLELI 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$(22)"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 amount 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)):L4DTā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!. "January","February","March","April","May","June","July","August","September","October","November","December"  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"IA!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),CD(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::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,28,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!0: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)2MM%(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:CO,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,ZY,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:ISW,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$:TRRTRT1: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,X1,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:DIAL 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,77,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):900: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(MU)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:31000DISPLAY 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)(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!0:CU12200,2100:CLIP,0,0,0,279,191,*=4U.S. DOLLARM>400:450:bCANADIAN DOLLARZ2((1)2):Z2Z14:2300Z2İ400450:CANADIAN DOLLAR COIN MM%(Z)2340 ZYCY%(Z1):IMAGE,11,CX%(Z1),ZY:MM%(Z)22340 DFT,9,CA!0:L1MM%(Z)1:CLIP:ZZ518(L1):CLIP,0,ZZ,ZY11,279,ZY22:L108:CLIP,L11,ZZ6L1,ZY2L1,279,ZY2L1::L108:CLIP,L110,ZZ6L1,ZY31L1,279,ZY31L1::IMAGE,11,CX%(Z1)8L,ZY:$ CLIP:CLIP,0,8,123,125,154: INPUT  WIND:DFT,7,IA!0:TR0:L14:BX(L)0: TR3BXAB:OBBX:650:L16:IVB,FM2,Y%(BX)1,276,Y%(BX)28:L10500:::SPACE:600:750: PUT,63,165,UA!0:IMAGE,6,FM23,3:Z(0):Z(1):BX0 CH(5):OBBX:CHK7įTSW:3020 CHK5CHK6BXBX14(BX4):3100:3020B (CHK4CHK3)BXBXBX14(BX1):3200:3020W CHK2BX3020s 3300:600:BXAB3010y  DOWN& BX(BX)BXBX14(BX4):31100 600:650:ZOB:800:ZBX:800: UP BX(BX)BXBX14(BX1):3210 600:650:ZOB:800:ZBX:800:' CORRECT?8 BXAB3350i L14:LBXįBOX,FM1,Y%(L)2,279,Y%(L)31 :A$"Right!":700:750: WRONG TRTR1:A$"No, try again.":TR3A$"Wrong!" 700:BOX,FM1,Y%(BX)2,279,Y%(BX)31:BX(BX)1: ANIMATION* X((1)20)4FM:AB1ī4050 TY%(AB)3:CLIP:CLIP,0,FM,0,279,T:DFT,7,TA(0)!0:IMAGE,1,X,T33:PAUSE,4:Z((1)3):ZįDFT,7,TA(Z)!0:IMAGE,1,X,T33:Z4100,4200:ARMSUP,WINK/ARMUP!ZįDFT,7,TA(8)!0:IMAGE,1,X6,T22:SOUND,10,10,50,5,5:ONLY WINKG!PAUSE,4:DFT,7,TA(0)!0:IMAGE,1,X,T33:PAUSE,4:!CLIP:CLIP,0,FM,Y%(AB)32,279,191:L02:DFT,7,TA(96(L1))!0:IMAGE,1,X,Y%(AB)32:L1įSOUND,0,2,27,72,2!PAUSE,4:::TOP ANSWER BOX"L116:SOUND,28,3,27,24,2:::CHEER5"hL112:SOUND,99,9,50,37,30:::WINK/WAVEE"MONEY BAGS]"Y33:X8:RT05040"CLIP:CLIP,0,7,4,125,66:L1RT(RT10):Z((1)3):DFT,7,TA(Z):IMAGE,1,X,Y:XX40:YY(44(L3))(46(L6)):SOUND,10,5,30,7,3:X88X8"#L3L6Z(L6):CLIP,0,7,6854Z,125,12035Z(##HSP:VSP,3:CLIP:CLIP,0,0,0,279,191:FRAME,FM5,30,271,8015(RT10),3,6,2:DFW,3FM,38,265FM,55:WIND,3:"You had "RT""CC$:"right on the"CC$:"first try."CC$:RT105090$Z((1)5)::GW$(Z)"!"CC$:Z1700:X182:Y119:22000-$VSP:WIND:SPACE:JRABDCKKKBDCՁFBՁFBՁFBՁFBAAgJHBAALCEฌEసEEABgAAAgACAAHD BAAgAAAgAJ3?>BAABgAAAgABAJ|B|BAABgAAAgJHA|XpBAAḂgAAAgJJpxpBAABgAAAgJJa330cBAABgAAAgJHABBAABgAAAgJRAABBgAAAgJRAAgAAAgJRAABgAAAgJRAAB𙙘gAAAgJRAAFgAAAgJRAAoAAAgJRAsAAgD*  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*t* 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( ""R" ((E*Za}A}A}A}A}A}A}A}A}A}A}A}A}A}A}A}A}A}A}A}AZ ^0|@`cpqpxx?|x~xxxpp`@?||@?`ppxxxx~x?|pxpq`c@||@?`ppxxxxxGpcpq`x|?~||~|?`xpqpcxGxxxxpp`@?|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:A341472: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$(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)::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,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: SELECT AMT OF MONEYX L0MU:CO(L)CD%(L):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(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 &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: 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:MA3: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:LO1+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 purchase 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$::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: $8000: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,BT1,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:CO,,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! You 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:PCĺ"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:"The 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 ,<x6qRh -h HBBCAրBACՀĀՀՀՀՀBFCAB ʀBRCHt#NE@W`8,f;9B-)++&,0`E`I@KU E8|BAA8 |v|;V|:B:B: 8|H|s]TWHU E<I0nZF* Jj2 ELEK+]BFYBBIBD Օ䰐BDDDAAĐB€ŀBՑժʪʪBՀBDDILEEEFSH(AMC@D`@DB`00`pxxC|A~^gw'gE~pC `0@E `n;dnNd`D?C ` CB M|?D?DC!ASCEF*UDCFU*DCF*UDCFU*DCF*UIF *I( ^ APE@@DRЕ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\"gg!SCEUDCUDCUDC_DC*E*BBBBBBBBBBB'ձՄŧąՅB檀CCj2((ՕBՀBꪺWQőőՀճՔB C*Ҕ檨ճВBBБёBBBCBBBBBBBB!ATBDAEA_W _EA+*+EAUUEA~zj z~EAVB!EBECE ꪪBյIBꫭBIECBCDIDBCI BICBCD)NBSNIAAՔBꨨꪨ訨DAABBՕCCEEBBGAAA꺮N֗NCg,rNЀPA ښںڀM󌇅奥BBهՀՀD%Ɵκ߀FBENURL+gXаEBDĀCABăGCB XBGi&t@B\H!@CA@B`A@RAPBPpL&)X # xOBZB 0`hB@@``0 NkB*k>GBUBQ2hYT/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 E(VFAXЅUCЕTՀDUDԕUCVCAԅ,HLY CBꨨRKABАIBY BWADECLLJS#CAAEIBN ((E8x₊EAAEUU]]__DBAACAAEB*.B/A?ABAACAAEBUBuC}BAAKBEF^AC(EDRADAՀOCGCJADCBK ȈGCJAՀOF R*nДJCBGB Ԁ說BBノ㇟BʢDBbrCC B BBCANBYI+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 BEŽళCBBՅLŕB MDK ՅőđHABBBN+KFBAUAANFӇ\EƦBW PHCIAGKNU,]F] ɧDSCQ €FAAI䨙DGְԲ̕Z a"CAKBLCADf㻣㦦B`CBEՕBABCB澎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 CCDABFBCB JHA BFDDCD濎DKJCO%CAbKఘEGELbHGOC،GDAAFA^*YEG^²BG`I B`Ap@ѐG (*+/=uUu5=-/++* G@PT55B-A+/=uBUGDHAKC+D ȠⰬ踌FԄŔЀ)'BИB̳ʊB֜օB? WʪBԅFFCԄĕEF'GHCBACDCԔՕD ʪDDäCBJAD؆BBGA啔ДJBEABCAC(HB@H@RA@A@p~B?}EDcssp|ptBD`CkB* cCB{x|C~@EDAE`acG??EKBpCB 8p`AADo?BC HFCOA hxxC<xp`G@`` Bh UuX @?EA* AaWSKooBITUBTPB **B+,PPC*@UUeeiBP )**bli)|PB<,KC`]CBBCAR ԕEԐGGBꨡCAELՅFBHDDBDT)H]"BĈ C ECB̌̂σBB CBf,\ ՀЕBЄEAII D( BLA A0@CДхДDBU!euu}|paF */1 d`<0 /# BԕITAPDPETDUU踪FAAAJAD A*)BAG,SBBIN჆DBC͍BBBBCBDBBJABCACBBBCBDDCBΆFATBJ)BF]BCIHAD̆JNBܔIEGACBC^$VAAEMAAACCEAAAIFCABCFBCCBCFJADBEUB*JCC G DžBD ܗؖDBD°°DF ՅđđݗőԅBA BBCBAAтđđBBGBAHM(J @pL xPPP`@E@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):100: !GIVE ANIMA "WIND:MU3CN4:FI0:100:PAUSE,5:7200 "TMU(MU3)(MU5):CN0T:FICN14(CN4):100:PAUSE,5:7200::MU5CN5:FI5:100:PAUSE,5:7200 " (#DEPRESSBUTTON 2#WIND:DFT,7,A1!0:IMAGE,7,14FI46,4:BOX,FI4614,0,36FI46,14:IMAGE,7,14FI46,0C <#BOX,2046FI,13,2546FI,16,3:_ # BOTTOM OF SCREEN INFOw #OKįPUT,0,162,P1::#DFT,7,A1!0:B1162:B2175:BOX,0,B1,279,191:IMAGE,8,0,B1:CO,25,B12:"or":IMAGE,9,45,B1:CO,68,B12:"to move"::BOX,155,B11,204,B110:CO,159,B12:"Return"::CO,209,B12:"when done"#:BOX,0,B2,63,B29:CO,4,B21:"Spacebar"::CO,68,B21:"to drop coin"#:BOX,155,B2,170,B29:CO,159,B21:"R"::CO,176,B21:"remove coin":TAKE,0,162,279,191,P1:OK1:#MAKE MACHINE#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,BT1,6:CO,200,0:BOX,0,135,279,136,6:BOX,0,158,279,159,6:BOX,0,137,2,157,6:BOX,276,137,278,157,6Y#DTMT2:DBBT1:BOX,46,DT,46,DB,6:BOX,88,DT,88,DB,6:BOX,136,DT,136,DB,6:BOX,178,DT,178,DB,6:BOX,236,DT,236,DB,6: COMPARTMENTS$:L05:BOX,2046L,MT4,2546L,MT1::: BUTTONS$T$ FILL MACHINE^$DD0:Y1BT:ZMU(MU4)2(MU5):L0Z:Q3(L3):CO(L)9330`h$L11CO(L)1:DFT,7,A1!0:IMAGE,L1,CX%(L),Y1QL1::CY%(L)Y1Q(L1)CH%(L):HT(L)CD:CD2HT(L)((1)2)m$DFT,7,A2!0:IMAGE,L16HT(L),CX%(L),CY%(L)r$:DFT,7,A2!0:MU4CO(4)įCLIP:CU18300,8200|$MU5CO(5)įCLIP:CLIP,0,238,22,272,75:IMAGE,6,CX%(5),44$600:'$ SPACEBAR PRESSEDG$300:SB1:9000:CO(CN)0ı $SHIGH:CO(CN)CO(CN)1:IMCN1:CO(CN)CN4įDFT,7,A2!0:BOX,CX%(CN),22,WD%(CN),75:IMAGE,IM6(HT(CN)(CN5)),CX%(CN),132(DP(CN)(3(CN3))CH%(CN))(CN5)32(CN5):DP(CN)DP(CN)1:9435$CN4İ9450,$CN4İ9470$CN4āL110DP(CN)2:IMAGE,IM,CX%(CN),(94(CN3)10)L(3(CN3)):BOX,CX%(CN),84,WD%(CN),126DP(CN)(3(CN3))::IMAGE,IM,CX%(CN),132DP(CN)(3(CN3))(CN3)$DFT,7,A1!0:DP(CN)DP(CN)1$CHIGH:z$DP(4)9460:DDZP2256503:BOX,1,21,WD%(4),29DP(4)8(DP(4)3)22:PUT,7,104DP(4)8,ZDP(4)50::NOT $ COIN$CO(4)Z466CO(4):BOX,1,Z4,42,Z:BOX,1,Z,102DP(4),Z3:BOX,272DP(4),Z,42,Z3$CO(4)įBOX,1,42,42,75*$Z1056DP(4):ZZZ4:L1DP(4):DFT,7,A2!0:8400:600:$DDįTAKE,7,46,35,75,P2:L02:TAKE,7,22L8,34,29L8,P2256L50::BOX,1,22,38,29:PUT,7,104,P2:: NOT FIRST $ COIN$DDįDFT,7,A2!0:Z466CO(4):BOX,1,Z4,42,Z:BOX,1,Z,10,Z3:BOX,27,Z,42,Z3:IMAGE,11,0,101: FIRST $ COIN!$$TAKE,CX%(CN),CY%(CN)1,WD%(CN),CY%(CN)IN%(CN),P3:L02(CN3):PUT,CX%(CN),CY%(CN)L,P3::CY%(CN)CY%(CN)L:% R PRESSED (REMOVE MONEY)!%300:9000:DP(CN)0ı&%SHIGH:CO(CN)CO(CN)1:IMCN1:CN49525+%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:Z466L1:ZZZ4:DFT,7,A2!0:8400:600:X%DDZ1016(DP(4)1):BOX,1,Z,42,Z4:BOX,1,Z4,10,Z7:BOX,27,Z4,42,Z7:CLIP:CLIP,0,2,42,42,75:DFT,7,A2!0:IMAGE,11,0,42:600:]%DDįBOX,0,79,38,87:PUT,7,46,P2:Fb%TAKE,CX%(CN),CY%(CN),WD%(CN),75,P3:L14(CN3):PUT,CX%(CN),CY%(CN)1L,P3::CY%(CN)CY%(CN)3(CN3):g%DP(CN)DP(CN)1:DFT,7,A2!0:Z132((3(CN3))DP(CN))(CN5):BOX,CX%(CN),80,WD%(CN)4(CN5),Z(CN5):CN5įCLIP:CLIP,0,238,22,272,75$l%IMAGE,IM6(HT(CN)(CN5)),CX%(CN),73CH%(CN)(CN3):DFT,7,A1!0:CN5İ600*q%:% ANIMATION%CLIP:CLIP,0,200,160,279,191:DFT,7,TA(0)!0:IMAGE,1,238,159:PAUSE,5:Z((1)3):ZįDFT,7,TA(Z)!0:IMAGE,1,238,159:Z9650,9670%ZįDFT,7,TA(8)!0:IMAGE,1,244,170:SOUND,10,10,50,5,5:%PAUSE,5:DFT,7,TA(0)!0:IMAGE,1,238,159:PAUSE,5:600:e%L116:SOUND,28,3,27,24,2:::CHEER%L112:SOUND,99,9,50,37,30:::WINK/WAVE @K 80 ; D 'BpC0A HC p@N~S8@LW~KX0`HZ`F$0l,8.+>/**~~5 }WUU5}UWX\VWWw@`q_GU~D :Cjk+BjG*k CA?I>AC `pp`pxxpaD a@@CAasODE?D|xEpx|DyGsscB|xBpqssqBpx|ss;??scCCgBED p<>?>>??~D@pxC|xp@D ?axxp`qE`qyBxq`E ?saaAcE+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;.;n;w]7BB7]wn;DBBCA;n]EBԓՁҁ];`D)ꊊ𝗍`;w]vX`@B`̀偘B @`Xv]wn;n:l8`0` @@B @@ `0`8l:n;n]w](UjTjBY=eEAa}=}eEQQE}eEQeE}}ZEWx fMx`pozL?##?ozL?#L3?`YET x|LLycyO]}fttf]}ftfDxXEO(`p O ysC}?'L3 j"~LL~ j"~L3jL3#^p@UEJ0@`p|pca|Gf\fEq]v]]w]w]G]UvMYfTg\p@REB"@`0p|3c~=Ff;?N s2Ls"L9s:n;n:l:n;/<*b, 3"l3'\p@NEO_ypx?0x\gGQVD_D]q}|_w]u]w_uFTfDqfGxp`@HE#M 3#LH3*3"LH;rz|*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 ]]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;nJn;n;;Ew]w]J]w]wwEn;n;J;n;n"nE]w]w}w=7=7Jw]w]D]E;n;n ?8C0Ap 0p0x?n;n;;E}@qw]W]w ]@`pxp`@]wwE>z*>*.{.+nn;o>o;n;o>o;n;n;j8j8n2+E3DL3D|5EMWM_=W]W]w}w ]G3EME 8~bf."f 2f*/>;.+.;n{n;~'n "f8*f bfHYbEH`M@MuBUWBV\BpBX\VWW\p@F8L88B,/Q*j?E@pY_WUW||DxE <~@`qC`?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 gcH`pxOI?C\A@x|^NN^|@@N^|p@@=9=99=+Q NL0`@C ώ͝FF$~OEAϸJEAGB񻝝DAH+n;.;n;n]wDHD]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]wDCCDw];n;DDB D @;n;wDC đԑĝÌB삻wnFA%χܖn]w\p@BAđĐņCB@p\w];n :l8h0` ` @J @@ `0h8l:n;w]wMoney WorksA195" 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.IFT"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, 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 DFW,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": 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: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: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:&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,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:RVB,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):RVB,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,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:X141X155X1609002BOX,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)(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 LARGEST/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 at 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$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$(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:"::"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)Kİ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$(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(K6),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:"!":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):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(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 "6200: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,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: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: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&*"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 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:DIR(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*"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:e+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,1XASTARTXALAST ,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,3)(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,YA):.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:8500: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,PTL,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$:900: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 Units","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 selected",""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","Under $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 Card/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 MSG,FHǃCd,תըԁĪՆՠČԚŦѪšŨ꫃웙Lj要궕՚ĪĜюՀՃתܪ%灀Ӄށǿ㿳ǛϷ߉߿Ǜ߿ρ̗Ԫעԁ؆ժӌɢ՚و՘ЬĈ諔諑րӨа꫔慦ѭ՚՞Ŏчբԃܪ%灀ہ콃ύ뷛Ûۏ̛Ϗߛߝߏρ߹΍؍ڞ㽾ؿݏ偀̟ྛ컻ݻ؁灀܁濃ϛߛϛ獰왃ρ瀀ʹܹ܁߻ύݛϹطπ슁؋ōد>癟΁瀀湀"ݻݻݻ߻ݻݻݻժժԪժԪժժ׮ժհŪ߿љ劖߿Ǚۗ՚ժ׬զժ"???];wn?9<3&z?6[Myw?6[=l?0Ly[?&LT?];Wmo?ovp?oS?oN3>os=a_S;p?3;bs6CLs6f~ 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. ՏجW*ꁀ:j՞@+U !