' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*` ?d)u6?d-6/? I--??q - )66:?$$ 66$?-- 666H)hɠFȄBLL$B<%=eB$$ " Eȱ81ׅh<&݅ۅ߅,`߅߅ h%<$=ЅFȄB@ i1i>CBCC`  EHLP)HJJh)JJL)%"# !L-`Ԣ ێȱLKТLF ێH?@DE >L- Li0 ࢏L81Hȱ81Hȥ 8$Ʌ<ȥ 8$(=ȱ8"(>ȱ8#>L~?ȱ81@ȱ Dȱ` 才` 才` Ii`` Lo0`LMLS0`LgLm JF8ȹe8ИL`Lø{{ttlnghab\\WWRRMNIIEEAA=>::673401..+,))&'$` 0 `{80 ``hhhhz{L2  c `#! "`#67 X ? T @UWWRP{``` 0䍃$% W `  ` Ii }1~20 y|1}2~00` L䇥ޅhhL-$(`L XL׉+**++8 $%` $%%#"%L"$$!L` 0`*U HmhHmh c` z獀筇`z{{z`䭀yxz`6 zzɡ`hhL2hh7n8o L2z F8   ` e vȱ e w|}~ vw ΁ }~`67 ( cTQLX hhL2 FhhL/ 7(A(AM)2)),127:768 U28S(16384)14121240" S@(12):1:1,1279,1279,1891,1891,1:3,3277,3277,1873,1873,3:2,2278,2:2,188278,188: Ʌ(L J؍PrQ U ?(hLw ?(hZLhhߚHH`pd ؍PrQ UL󕺽HHi`6&$6M?666$ u6&6&I66?666$-  66666$, u6& -6?$666$,e$? u66$$66$, u -=?-?/ 666$$=/6ve $666 $66 $$& 6ve $66?----I9w-i-?*- 6&$4 %66?$$ 666$$$-u?7)u6 $$L666$$$-u?)u?v-?--?66666v- $$466 $$666 4$$$vd 4v6&$ 4--.-=666--#$$-=r--666??L!$$---J u$66$>4666$ u6 -?6- I166&$ -6" ->?7--'du66& -?206,3:207,16:232,32:233,100:191(7(A(AM)1)),111:768pED1A(AM)1Ē3:191(7(A(AM)2)),111:768v206,2:207,14:232,00:233,100:120(7(A(AM)1)),127:768ED1A(AM)1Ē3:120(7(A(AM)2)),127:768M)1Ē3:120(`xF1f1CaCaCaCaf30x`>@`A0    ? pp p 0?`@>`0`1N9[1[1[yN`08`>@`A0 ls60s0FA1f3fw1   0`A@>>@pA8  0fg1c0cc3c6c6cfc10  8pA@>H`;~?gc6`Xm36?`Lm6`a`Fm{0g>`C? v-7{jCAaFUl,33jCaLFl,s2jCaLSl,W3dCaLAl<33dCAaZl<33dC?$l,73dC: `CFi @aC& @aH `;|0gc6  Xm36Lm{\g` `3ng;\m3xXm3Xm{s@A H DAD!D',LH  @A>p$u.U"u.$p>@A :'bB*2N"X*z' @A>>@A0 ~$ N 6U=6Ea6UaN>$ 0@A>@N1[1[[`[ [ [=.D=NAb'@@!B1@.5iU!%@X %IT! @%KT! @0 %5KH! @%MH! @ EIH!@@@E2IH!@ A!@ A!@A@@ f`HQ1BUIB @TyoI@@w7N] 8[Y `0[Y  0[=dxNAr'@@!BOwA!%@A! @T:A! @D82A! @d0A! @A!@@h rA!@A!@ A!@` A@(@MuP@I)3jU)$U]|_K@@=x^ F`N1 XD N"&@@A1H`]:AAJ@!H AA$@,!H AA" bHAA  "H AA@ " AA L "9AA@AA@pAA@L3A]@2L]EQGEM)NMB,@P ~?L@@@|LNL L=b# ^Ar'@@!BL$:A!%@ * A! @.j A! jA! E* A!  * A!@ H $:A!@A!@(A!@HA!@D A-UM)fII,@H?\@    ɠàƠŠƠŠƠŠǍՠ2)),88:768yR~206,3:207,19:232,112:233,100:191(7(A(AM)1)),88:768ED1A(AM)1Ē3:191(7(A(AM)2)),88:768206,2:207,13:232,80:233,100:120(7(A(AM)1)),111:768ED1A(AM)1Ē3:120(7(A(AM)2)),111:76819(AA3)):768:I!ĭAAAM1ı1Ĺ233,100AMnĭA(AM)1ē104(14(A(AM)1)),18(AM10)(19(AA3)):768t"ıjAM460020,60030,60040,60050,60060t206,3:207,21:232,176:233,100:120(7(A(AM)1)),88:768 wED1A(AM)1Ē3:120(7(A(AM)768 ÂIñMÒ3:207,25:AAAM1:HA18:AM2AM4AAAM1:HA18:50160íA(AM)1ē104(14(A(AM)1)),18(AM10)(19(AA3)):768íA(AA)050195SRA(AM)1:SR1SR1ĭSRA(AA)50195āISRA(AA):233,100AA:104(14I),HA(AA10)(2Ĺ207,10íAM4Ĺ207,25Yù233,100AM:104(14A(AM)),18(AM10)(19(AM3)):768níAM4ED050135~íED150140Ò3:I(AM1)4:A(I)050115ù207,25íA(I)A(I1)AM2Ĺ207,10ù233,100I:104(14A(I)),18(I10)(19(I3)):0:26,16070,160:3:1405`DE1:26,16070,160:140@e60010dhDE1DE0:0:26,16070,160:3jrpPòdíDE1Ē0:26,16070,160:A(AM)A(AM)1:ED1nDE0xA(AM)A(AM)1íAM460010ù206,10:232,0ù207,25 íA(AM)A(AM1)AMUGU.15:AM6GUGU.25:AM5GUGU.5:AM4GUGU4:AM3GUGU5:AM2GUGU10TDEGUGU.01:AM9GUGU.04:AM8GUGU.05:AM7GUGU.15:AM6GUGU.25:AM5GUGU.5:AM4GUGU4:AM3GUGU5:AM2GUGU10[50000^_DE1DE0:TH:VT17,40TH15VT,37TH:VT17,40THVT15,43TH?'45000E+l,AMOP1:DE1A(AM)1AM1045110/A(AM)7ĺ(7):1A(AM)0DE1AM10ĺ(7):6AM1045150@AM1145160RJDEGUGU.01:AM9GUGU.04:AM8GUGU.05:AM7GT$A$:(A$)21(A$)10OPOP1BA$(8)A$(11)OPOP1SOP1OP10cOP11OP0|A$(13)A$(32)ıHT8(OP10)((OP4)25)((OP5)42)((OP6)2)((OP7)14)((OP8)28)((OP9)34)((OP10)41)4"0:VT10,40THVT18,40`xF1f1CaCaCaCaf30x`>@`A0    ? pp p 0?`@>`0`1N9[1[1[yN`08`>@`A0 ls60s0FA1f3fw1   0`A@>>@pA8  0fg1c0cc3c6c6cfc10  8pA@>H`;~?gc6`Xm36?`Lm6`a`Fm{0g>`C? v-7{jCAaFUl,33jCaLFl,s2jCaLSl,W3dCaLAl<33dCAaZl<33dC?$l,73dC: `CFi @aC& @aH `;|0gc6  Xm36Lm{\g` `3ng;\m3xXm3Xm{sMA1KK17>21200=>CRLRES1]RES121205R0:I179187:10,I274,I:I:3R0:I179187:76,I274,I:I:3R14:ES1Ė8R21:"^PRESS ^R^E^T^U^R^N TO CONTINUE."RZN(16384):(ZN141)(/RID$;CB$2;CC$;3;UP$;5;:21:14:"^PRESS";VRCB$2CC$;0;UP$;5;:" ^R^E^T^U^R^N"pS(16384)14121250v S>GHT 1980, 1981."717:10:"^APPLE ^COMPUTER, ^INC."B21200CL$CC$3CB$2:130:12:2:"^GETTING THE MENU...":(13)(4)"RUN MENU"R PRESS RETURN SUBROUTINER16368,0R3RX171185:85,X177,X:XR0RX173183:87,X128,X:^S"+ 6:96,24160,24160,3696,3696,24a 7:5:"^PARTS OF ";UC$;"MONEY, MONEY, MONEY!"LC$09:10:"WERE DEVELOPED USING":11:8:"^APPLE ^COMPUTER PRODUCTS.":13:2:"^COPYRIGHT 1981, ^APPLE ^COMPUTER, ^INC.":15:2:"^APPLE ^D^O^S 3.3 ^COPYRIEX99105:123,X134,X:X0 F124,106133,106: GUC$;k J12:19:CC$;0;CB$;2;"C";CC$;3;UP$;0;" 1988" T14:5:"^WHITE ^BEAR ^PUBLISHING ^COMPANY" ^16:11:"^ALL ^RIGHTS ^RESERVED" cLC$; r21200:CL$ |130:4:16:CC$;3;"^C^R^E^D^I^T "130:3:X1644:20,X240,X:XJ ,6:12,10248,10248,5012,5012,10 64:11:CC$;0;UC$;"MONEY, MONEY, MONEY!";LC$:5:14:"^MONEY ^PRACTICE" ;CC$;3;:7:19:"BY":9:14:"^CHARLES ^LUND" @12:9:CC$;3;"^COPYRIGHT" D3:124,98133,98 3,3: 130:69 12,10248,10248,10812,10812,10@ 3N X18100^ 20,X240,Xe X CS$1CB$2CC$0:4:8:"^EDUCATIONAL ^COURSEWARE" 768: MOVE WHITE BEAR CC$3 UC$ 16:5:"WHITE BEAR PUBLISHING COMPANY";LC$:21200"2767:I,255(I):( p16152,0:786,49 xBC$(2):CC$(3):UP$(17):CS$(19):CB$(16):UC$(23):LC$(26):ID$(9):CL$(12):RT$(6) }170 CL$:1 1,1278,1278,1901,1901,1 2,2277,2277,1892,1892,2 3,3276,3276,1883,188x HELLO MONEY, BY CHARLES LUND^ COPYRIGHT (C) 1984 CONTROL DATA CORPORATIONx ALL RIGHTS RESERVED 34034:32768_d(4);"BRUN MASTER-SM"n(4)"BLOADWHBEAR":(4)"BRUNPUP":(4)"BLOADTWOSCREEN" o16151,0:I245763     @@`0:ȡHeɀ hhл`Ie@҈ 7w?x97?@~9wwwpw7~a7y_O97y{y`w97gp7>97a9wwax~a~96x{s_x97yr~|97?`'>~979ww?~Ca7OCzO97yy'd97qx?~97?@~9wwwAa7gpO97y}v97q?x>97?>~9wwwOca7sgO97y}w9@7ax|97|o97y{y`s97g?p979wwa7|x{96zg97}spy97Oa3979ww~a7?~ys96yya97yGq?x97?Bs979wwAqa7Ag/񀞀ȁ``@@                    $ `ɀ` נ̍ L Xi`$%! Е# I('$ Е`᭏% ЕO ̻ ЕG8ح Е1 $%%#$%`Pɀ,ePȰ Q&-Q&&η` Ǎ U0:233,100:86(21(A(AM)1)),127:7682 >206,2:207,13:232,80:233,100:86(21(A(AM)1)),83:768D206,3:207,16:232,32:233,100:86(21(A(AM)1)),104:768206,2:207,14:232,00:233,100:86(21(A(AM)1)),127:7680:233,100:86(21(A(AM)1)),127:768 A(AM)1)),127:768E^M:99(14(A(AM)1)),30AM2:768KnñsjAM460020,60030,60040,60050,60060t206,3:207,21:232,176:233,100:86(21(A(AM)1)),30:768y~206,3:207,19:232,112:233,100:86(21(A(AM)1)),57:768A~206,3:207,19:232,112:233,100:86(21(A(AM)1)),57:768G206,2:207,13:232,80:233,100:86(21(A(AM)1)),83:768206,3:207,16:232,32:233,100:86(21(A(AM)1)),104:768206,2:207,14:232,00:233,100:86(21((AM)A(AM)1 XôCT60010,50020Ldù233,100AM:99(14A(AM)),30AM2:768iíA(AM)1ED1Ē3:233,100AM:99(14(A(AM)1)),30AM2:768nñjAM460020,60030,60040,60050,60060t206,3:207,21:232,176:233,100:86(21(A(AM)1)),30:768y:AM8GUGU.05:AM7GUGU.15:AM6GUGU.25;^j_DE1DE0:0:26,16070,160:3:140`DE1:26,16070,160:140e60010hDE1DE0:0:26,16070,160:3rPòUíDE1Ē0:26,16070,160:A(AM)A(AM)1:ED1VDE0 WAT145140EJDEGUGU1:AM4GUGU4:AM3GUGU5:AM2GUGU10ODEGUGU1:AM4GUGU4:AM3GUGU5:AM2GUGU10Q50000TDEGUGU.01:AM9GUGU.04:AM8GUGU.05:AM7GUGU.15:AM6GUGU.250YDEGUGU.01:AM9GUGU.040TH15,37TH:17,40TH15,43TH+'450001+o,AMOP1((CT1)4):DE1A(AM)1AM(5((CT1)5))45110/A(AM)(7((CT1)2))ĺ(7):1A(AM)0DE1AM(5((CT1)5))ĺ(7):6AM(5((CT1)5))45150@AM(6((CT1)5))45160 ECA$(11)OPOP1(OP1OP5(CT1)@OP(6(CT1))OP0RCT1AMOP5kA$(13)A$(32)ıHT1(30OP)(5(OP4))(17(OP5))CT1HT(24OP)(1(OP2))(2(OP1))(3(OP4))(4(OP5))(10(OP6)) "0:10,40TH18,40TH:17,4,32:233,100:35,104:768:206,2:207,14:232,00:233,100:35,127:768n5:18.5:"^REMOVE":5:20:"^DONE"tœzȯͯ3ү10,40HT18,40HTܯ17,40HT15,37HT毓17,40HT15,43HTTHHTA$:(A$)21(A$)10OPOP1A$(8)233,99:33,28:768:233,98:33,58:768:233,97:33,88:768:233,96:33,118:768Z40120206,3:207,21:232,176:233,100:35,30:768:206,3:207,19:232,112:233,100:35,57768:206,2:207,13:232,80:233,100:35,83:768F206,3:207,16:232WRNu(4)"CLOSE"+Xu(4)"RUN SUMMARY"1??@2:I03tJ0I,0I0I,191I279I,191I279I,0I0I,0I{TI^hrI13|0,20I75((CT2)30)I,20I75((CT2)30)I,190:I3CT140100O206,10:207,25:232,0:84103,184RR144,182144,184:143,181143,185:120,182120,184:121,181121,185XRba ESCma(12)0u(12):40000:10:6:"^ONE MOMENT PLEASE..."5u1150,34:u(4)"OPEN NAME":(4)"WRITE NAME"DuNN$:NL$:PR:CT3:"COUNTING":CO:C1:ZN155)21220R16368,0.RZN15530000?RES121232cR0:I179187:10,I274,I:I:3R0:I179187:76,I274,I:I:3RTRY0CS1ıRFKıR21:8:"^USE L, L, -, -, AND ^R^E^T^U^R^N":21:12:(127) R3:99,185102,185:98,1.":20:17:"^HERE IS HOW.":15510->212003>9RBRES1SRES121205wR0:I179187:10,I274,I:I:3R0:I179187:76,I274,I:I:3R14:ES1Ė8R21:"^PRESS ^R^E^T^U^R^N TO CONTINUE."RZN(16384):(ZN141)(ZN160)(I19:B(I)A(I)MA1>I=>X1ĺ"^FANTASTIC, "NN$"!"\>X2ĺ"^NICE WORK, "NN$"!"z>X3ĺ"^GOOD JOB, "NN$"!">X4ĺ"^CORRECT, "NN$"!">(AN$)2CT1AN$AN$"0"">MA1Ģ18:17:"^BUT THERE IS AN EASIER":19:17:"WAY TO SHOW $"AN$"i>TRY0COCO1>TRY1Ĺ34,15:35,19:32,P2:33,38:::1024,0:957:34,0:32,0:33,40:35,21>TRY1C1C11:TRY0>X(4(1))1>17:17>MA0>17:17:"^SORRY, YOU ARE":18:17:"INCORRECT. ^YOU SHOWED":19:17:"$";GU$;AD$". ^HERE IS THE":20:17:"CORRECT AMOUNT."FI$:::21:IN$" IS INCORRECT.":22:"^THE ANSWER IS $"V".":W1W11:21205:2058~ :::21:A1$" IS CORRECT.":W0W01:21205 MV((1)V1001)100:T$(MV):LFVMV:V$(V):MV(MV)T$T$".00" V(V)V$V$".00" (T$)2T$T$"0" (VDIME,ONE,TEN ZPF0, M1MM:CL$:5000 21:34,20:1:FI$"11 )$3$91":"^HOW MUCH MONEY IS SHOWN?":"^DON'T FORGET THE DECIMAL POINT! ";: A1$IN$:(A1$,1,1)"$"A$(A1$,2,(A1$)1):2028 A$A1$ (A$)02025N ((A$)V)1E5ĺ1 SUBTRACTION PART2:UPDATED 7/30/86 BY H.N.C38400:22000 MM(920):OP(921):D$(13)(4):C(3),MN$(3):IN$"":CL$(12):D$"OPEN NAME":D$"READ NAME":2:N$:2:L$:D$"CLOSE" 2MV(3):X03:MV(X):: .01,.1,1,10:X03:MN$(X)::CENT,         2HC,02HC,182:278HC,0278HC,183:276HC,0276HC,183XY0,1278,1:0,182278,182x^0,0278,0:0,183278,183:RT2"< R40000:10:10:"^GETTING THE MENU...":D$"RUNMENU"H RFR(0)w R22:7:"^PRESS ^R^E^T^U^R^N TO CONTINUE"; R16368,0:16384,128 R(16384)14121210 R2:38); @ BORDER JCL$:HC((1)2):2HC((1)2)4:THC,0HC,182:RT1(N$)OPMM:Q(1):Z M$"SUBTRACTION":L(M$):900,L:Q1L:900Q,((M$,Q,1)):n 920,MM:921,OP 40000:10:10:"^ONE MOMENT PLEASE..."; D$"OPENNAME":D$"WRITENAME":N$:L$:MM:OP:"SUBTRACTION":D$"CLOSE" D$"RUNSUBTRACTION PA00 TO $0.09"( j5:"2. $0.10 TO $0.99"D o5:"3. $1.00 TO $9.99"b t5:"4. $10.00 TO $99.99" v5:"5. ^RETURN TO MAIN MENU.": y2:"^ENTER YOUR OPTION AND PRESS ^R^E^T^U^R^N":2:251,1 ~FI$"11 $$4151"::OP(IN$):G2 OP521160 1,1::251,0:L$IN$"":N L13:2:"^ENTER A NUMBER AND PRESS ^R^E^T^U^R^N." Q10:2:"^HOW MANY PROBLEMS WOULD":2:"YOU LIKE (1-10)? "; VFI$"11 %$2 1"::MM(IN$) [MM10MM11100 `40000:2:2:"^SUBTRACTION OPTIONS:": e5:"1. $0. ,CL$(12)) 40000:2:"^HELLO!":b FI$"11 .$4AZ1":2:"^PLEASE ENTER YOUR FIRST NAME" 2:"AND PRESS ^R^E^T^U^R^N ";:251,1::251,0:N$IN$"": FI$"11 2$4AZ1":2:"^PLEASE ENTER YOUR LAST NAME" 2:"AND PRESS ^R^E^T^U^R^N ";:25y SUBTRACTION( BY CHARLES LUNDZ COPYRIGHT (C) 1984 CONTROL DATA CORPORATIONt ALL RIGHTS RESERVED 38400:22000:255:D$(13)(4):D$"BLOADBLOCKSHAPEROUTINE":D$"BLOADBS.SMALL MONEY,A17920":D$"BRUNPRINT":D$"BRUNINPUT":IN$"":C(3)  `^_ij^_kl8`iiLȱȱȱ`^_klmn)^_eeLn8`ee` ff`8 ̔ S8` ̔ A731ee ̔80ee ̔`&&eeee`LjA L ERROR IN SORT CALL.6 VARIABLEH SORT ARRAY\ ELEMENT COUNT̢ ̢  آ  ` jj&&8<  @ ?$hi<$6h7h6>=<`ɍɌ ͳ ` I`H)hHɍ rh`PACPOFFEE!` G$H)h0,0R67 m 0N 󹥇9I7߭ r` L<=>6H7H67,0 < L'$H8$$ ? mͳ   ފ `B ֈ?F<?F<>ݦ >ݪ?Ȑ۩`?)8鍸ζ`H88HHԈՈ ߅$0HԈՈ LbLv?<>?>,>$f<<`L+ɇqr+Lɯd 8ɀ   Lޥ8e湥 HH L`qrL   ):HC((1)2):2HC((1)2)4lTHC,0HC,182:2HC,02HC,182:278HC,0278HC,183:276HC,0276HC,183Y0,1278,1:0,182278,182^0,0278,0:0,183278,183: 278,183: (,182278,182^0,0278,0:0,183278,183: Z$(IN$,1):)RANGED NUMERIC INPUT\ ZB = MIN, ZT = MAX, ZC = C/R LEGAL (BOOLEAN)vZH(36)1:ZV(37)1IN$"":FI$"21"(ZV35)(ZH35)(((ZT))35)"#2 1":Z$IN$"":ZN(Z$)ZNZBZNZT37030@ BORDER J(12868:1::ZV:ZH:16368,0:&y ENDg@y40000:2:12:"^ONE MOMENT PLEASE...":(13)(4)"RUN ADMIN"yYES-NO INPUT251,1ZH(36)1:ZV(37)1:IN$"":FI$"21"(ZV35)(ZH35)"&$4AZ1":(IN$,1)"Y"(IN$,1)"N"36020251,0#251,1:(A);:251,0:,#K:Q$:CTCTL2#A0u RETURN `5uZH(36)1:ZV(37)1:ZF0:u22:1:868:7:"^PRESS ^R^E^T^U^R^N TO CONTINUE";Du16368,0:16384,128:ZP(16384):ZP155ZFZF1:ZF231000NuZP160ZP14130020Xu1::(S$,J,1)")"91007P#X$(S$,K5,JK5):X((X$))JZ#X0X127X0fd#L$"":K1L$(S$,K1)n#R$"":LJR$(S$,LJ)x#S$L$(X)R$#LKLJ:9110#J#K#13:868:L(S$):K1L#A((S$,K,1)):PPCTK,A:A32AA64:^(A8L0)ĺC$Q$;:8020+hA88080?rA34L198020R|A32AA64:n(A);::S$S$C$:8020C$" "C$;:L1S$"":8020S$(S$,L1):8020(#SCAN FOR CHR$2#L(S$):L79120<#K1L6:(S$,K,5)"CHR$("9110F#JK6LS$""İ9000:CTCT1:PPCT,13QL2:CTCT1:PPCT,0:PPCT1,255:PPCT2,25522:2:"^ARE THE ABOVE COMMANDS CORRECT? ";:36000L1(Z$"Y"):L1@STRING INPUTJS$"":16368,0:251,1TL(S$):C$:A(C$):A13Ĺ16368,0:251,0:3,255:PP4,255:"L111:CT140000:2:"^PLEASE TYPE IN THE SPECIAL COMMANDS":2:"FOR YOUR PRINTER. ^TYPE AN EXTRA":2:"'RETURN' WHEN YOU HAVE FINISHED."L215:72L2:6:958:"^PRINT "Q$;:8000S$""Ģ72L2:1:958::L25THE PRINTER INTERFACE CARD MAY BE IN":2:"ANY SLOT 1-7. ^MOST COMMONLY 1 OR 2."l12:2:"^WHICH SLOT IS YOUR CARD IN? ";:ZB1:ZT7:37000:PP,128ZNv17:2:"^DOES YOUR PRINTER REQUIRE ANY SPECIAL":2:"COMMANDS? ";:36000Z$"N"ĹPP2,0:PPALLY 10 CPS)"`12:2:"^WHICH PRINTING SPEED DO YOU WANT"::2:"TO USE? ";:ZB1:ZT2:37000uPP2,128(ZN1)18:2:"^WHICH SLOT IS THE COMMUNICATIONS"::2:"CARD IN? ";:ZB1:ZT7:37000PP,ZN:XNOT A COMM CARDPb40000:7:2:"^R ARE YOU MAKING THESE":2:"SETTINGS FOR? ";:251,1::251,0:P$IN$"":LP(P$):LP0ıuiLP20P$(P$,20):LP20nL1LP:PP106L,((P$,L,1))::pSET COMM CARD z40000:6:2:"1. ^HIGH SPEED (^USUALLY 30 CPS)"::2:"^2. ^LOW SPEED (^USUING FOR PAGE LENGTH IS":2:"66 LINES PER PAGE.":9:2:"^WHAT PAGE LENGTH IS YOUR PRINTER SET":2:"TO PRODUCE? ";ZB10:ZT120:ZC0:37000:PP1,ZN:PID FIELDZL120:PP106L,0:_IN$"":FI$"11 7$1 1"Xd40000:14:2:"^WHAT PRINTE PRINTER":3:"INTERFACE YOU WILL BE USING":3:"AND PRESS ^R^E^T^U^R^N. ";:ZB1:ZT2:37000nZN6000,7000PP1,66:(12):APLİ51005200:D$;"BSAVEPRINTER COMMANDS.BIN,A"PP",L128" ADJ PAPER40000:2s4:"^THE NORMAL SETTCOMMUNICATIONS BOARD":6:"(^AN OBSOLETE CARD THAT IS NOT":6:"COMPATIBLE WITH THE ^APPLE //E)":3:"2. ^ANY OTHER TYPE OF PRINTER":3:" INTERFACE CARD (E.G., ^PARALLEL":3:" OR ^SERIAL, ^CENTRONICS TYPE, ETC.)"\::3:"^ENTER THE TYPE OFTESTING THE PRINTER...":D$"IN#0":D$"PR#0":PACT:"PRINTER TEST":I13:J3295:(J);:::J96127:(J);:::::FEEDPOFF17410:40000:10:3:"^PRINTER TEST COMPLETE.":30000 SET NEW OPT40000b6:3:"1. ^APPLE HE PRINTER SETTINGS TO"::2:"THEIR ORIGINAL STATE (^SLOT ^SEARCH)."\ I0127:PPI,0: D$"BSAVE PRINTER COMMANDS.BIN,A"PP",L128" 30000:TEST THE PRINTER40000:12:3:"^PLEASE PREPARE YOUR PRINTER...":30000C40000:12:3:"^:P(PPCT):CTCT10 P0P13P32PP64:Q L2(P13):PP21L2:(P);:[ L2:e L1:w PRINTER TYPE :3:" ^TYPE OF PRINTER:"::"^";:7:L120:((PP106L));::: RETURN TO DEFAULTS E 40000:11:2:"^NOW RETURNING T :3:" ^SLOT: ";(PP)128::APLĖ3:" ^PAGE LENGTH: ";(PP1):[ (PP2)0İ2400r$ (PP107)0İ2500. 30000:` PRINT SPECIAL COMMANDSj 3:" ^COMMANDS:"::CT2t L115:(PPCT)0L15:2470~ 7:"^PRINT "(34)CA$;:L211HIGH":SD30g 10:3:"^THE SPEED IS SET TO '";SD$;"'":3:"(^USUALLY ";SD;" CHARACTERS PER SECOND)." :APLĺ:3:" ^PAGE LENGTH: ";(PP1) :(PP107)0İ2500 30000: USER SET  40000:3:"^THE CURRENT PRINTER SETTINGS ARE:"Fz# ήӠ ٠ ΠҠ ŮƠ!   ̮ʠР נ̠נ̲ԴΠ ΠԲ Ӡ Š נŲ Ӡ"Ԡ"ҠӮΠ"ҠԠ Р ǠŠ ǠŮӠ Ӡ٩ҭ͠ՠխĠ   ǮӠ̠ǠǮӠ Ϡ ڠ Ԡ Ӯ٠ӮٲӮٳӮ٠Ӯ̠٠ ̭ͮʠ ǠΠΠԲήӠΠŠԭǠӮĭ٠MP:5330::2340$ FLAGıb. FI$"11 %$2 1"::::21:"^HOW MANY "V$" IN THE BOTTOM ROW?";h3 8 (IN$)C(T)W0W01:"^CORRECT!":2375B W1W11:"^INCORRECT, THE ANSWER IS "C(T)"."G TR0:C(T)9TR1V MP1:SBC(T):FI$"11 &$4EY1"  V$"DIMES"L O0C(T)1:X18814(O3(O3)):Y14514(O3):T12MP^ 5330::2340l V$"ONES" O0C(T)1:X8614(O3(O3)):Y13912(O3):T13MP 5330::2340 V$"TENS"O0C(T)1:X21(O2(O2)):Y13913(O2):T140H HX1231:X2277:T0X2228:X1182:T1X2172:X185:T2X282:X12Y IN18100:0h JX1,NX2,Nn Ly M50000 fFR(0):T12160,2200,2230,2260 pV$"CENTS" zO0C(T)1 X23714(O3(O3)):Y14514(O3):T1MP 5330::2340;::A$IN$0 (A$,1,1)"$"A$(A$,2,(A$)1)C (A$)02050K 23 ((A$)A(P)).001W0W01:"^CORRECT!":21200:2075 W1W11:"^INCORRECT, THE ANSWER IS $"A(P):21200  *T0OP1 4:::21:"^COMBINING ROWS" >C(T)0246((1)10):T 5000- FI$"11 )$3$91"? 24:34,20:1J A(0)0V P1P2` ::o P2İ5150 A(0)A(0)A(P) 21:"^HOW MUCH MONEY IS IN THE "; P1ĺ"TOP ROW?":2058 "MIDDLE ROW?" "^DON'T FORGET THE DECIMAL POINT! " ^M(3)5:M(2)7:M(1)10:M(0)63 D$"OPEN NAME"F D$"READ NAME"X 2:N$:2:L$l D$"CLOSE NAME" MM(920):OP(921) MT$(0)"CENT":MT$(1)"DIME":MT$(2)"ONE":MT$(3)"TEN" W00:W10:ES0 P22:PL3 M1MM:CL$ T03:B(T) ADDITION PART2B (C) 1984 CONTROL DATA CORPORATION T38400:22000iBY CHARLES LUNDrPF0,IN$"":D$(13)(4):CL$(12)6MP1:V(3),S(3),M(3),A(3),C(3)JV(3)20:V(2)75:V(1)145:V(0)220TS(2)15:S(1)7:S(0)5:S(3)1     3278,183:ADDITION PART2": R40000:10:10:"^GETTING THE MENU..."L RD$"RUN MENU"Y @ BORDER JCL$:HC((1)2):2HC((1)2)4 THC,0HC,182:2HC,02HC,182:278HC,0278HC,183:276HC,0276HC,183 Y0,1278,1:0,182278,182 ^0,0278,0:0,182! RT1(N$)OPMM:Q(1):5 920,MM:921,OPs M$"ADDITION":L(M$):900,L:Q1L:900Q,((M$,Q,1)): 40000:10:10:"^ONE MOMENT PLEASE..."; D$"OPENNAME" (D$"WRITENAME" 2N$:L$:MM:OP:"ADDITION" <D$"CLOSE" FD$"RUN$0.00 TO $0.09":5:"2. $0.10 TO $0.99":` o5:"3. $1.00 TO $9.99"::5:"4. $10.00 TO $99.99": t5:"5. ^RETURN TO MAIN MENU.": y2:"^ENTER YOUR OPTION AND PRESS ^R^E^T^U^R^N":2:251,1 ~FI$"11 $$4151"::OP(IN$) OP521160 P22:PLN ";:251,1::251,0:L$IN$""T L13:2:"^ENTER A NUMBER AND PRESS ^R^E^T^U^R^N." Q10:2:"^HOW MANY PROBLEMS WOULD":2:"YOU LIKE (1-10)? "; VFI$"11 %$2 1"::MM(IN$) [MM10MM11100 `40000:2:2:"^ADDITION OPTIONS:":( j5:"1. ":IN$"" 6CL$(12)1 40000:2:"^HELLO!":j FI$"11 .$4AZ1":2:"^PLEASE ENTER YOUR FIRST NAME" 2:"AND PRESS ^R^E^T^U^R^N ";:251,1::251,0:N$IN$"": FI$"11 2$4AZ1":2:"^PLEASE ENTER YOUR LAST NAME" 2:"AND PRESS ^R^E^T^U^R^ ADDITION"38400:22000T COPYRIGHT (C) 1984 CONTROL DATA CORPORATIONn ALL RIGHTS RESERVED{X(0):255D$(13)(4)D$"BLOADBS.SMALL MONEY,A17920"D$"BRUN PRINT"D$"BLOADBLOCKSHAPEROUTINE" ,D$"BRUNINPUT     ";:OP3Ė5:"S"Vâ24HZú"^ ";:T0ē279,5279,159:278,5278,159:qdíT1ē230,5230,159:229,5229,159:níT2ē181,5181,159:180,5180,159:84,584,159:83,583,159:xÓ83,583,159:84,584,159:1,51,159:0,50,159:9:0,50,12278,182)^0,0278,0:0,183278,183:0( 723<10,7210,111270,111270,7210,72:11,73269,73269,11011,11011,73FPX1175:OP2X184:OP3X10QÒ3UíMP1Ģ2:31:X1,17279,17:X1,5279,5:2:31:251,1:"ES";:OP2Ė16:"ESR16368,0:16384,1289R(16384)155ES0PF1:6000SR(16384)14121210jR24:1:39);:1:w@ BORDERJCL$:HC((1)2):2HC((1)2)4THC,0HC,182:2HC,02HC,182:278HC,0278HC,183:276HC,0276HC,183 Y0,1278,1:0,189:181,5181,159:180,5180,159=E173,5173,159:OP38025vJ85,159175,159:84,584,159:83,583,159:OP38025T0,50,159:1,51,15984,159YRFR(0)R24R2ES6:"^PRESS ^R^E^T^U^R^N TO CONTINUE";:ES0ĺ", ^E^S^C TO END.";236TYT1Q160:W71F232,Q:233,W:206,E:207,R:X,Y:768:rp40000:10:10:"^ONE MOMENT PLEASE..."z829,W0:830,0:831,W1:919,PFD$"RUNSUMMARY"@3:279,5279,159230,159230,5:278,5278,159229,159229,5:174,5174,159229,15O0B%1BT2X8614(O2):Y1819(O2(O2))(P11)42vT3X21(O2):Y1819(O2(O2))(P11)42T1T1:5330OC(T)C(T)B%:T:MP1TY(T1):3Q0:W70:E2:R14:TY1Q28:R13:TY2Q56:E9:R20:TY4Q1)C(T11)B%2O0B%1?<X18214(O3(O3))49(2T1)\FY1813(O3)(P11)42jP5330::yZOP35310_T2OP1dB%(1)(M(T)1)1:B%05220iC(T)B%11B%11C(T)kC(T)B%7T3B%8C(T)nA(P1)A(P1)B%10(T2) OP3Ė2:2:"TENS"%X,5279,5:04OP45090<O3O3:NX12793YN,58`NP10OP1:C(P1)0::P10:HC3P1P11:A(P1)0#T112(OP1)(B%(1)(10T1)1:C(T11)B%13T15160)A(P1)A(P1)B%10T11000 -C(T1"(F$,F51,5);:((1)3)ĺ", ^"N$;. "!"> TR0:21200K M:6000U8000tX0:OP4X84:OP3X175X,101279,101:X,17279,17X11315:176,X1178,X1::X1X3:251,12:35:"CENTS":2:28:"DIMES":OP2Ė14:2:"ONES":TR1:A$A2$:2510@ C$(A(0)):(C$)2(C$,1)"."C$C$"0"Y (C$)3C$C$".00"} (C$,(C$)2,1)"."C$C$"0" "^SORRY, THE ANSWER IS $"C$".":W1W11 W2W21:3090 TR1Ģ24::::21 F$"GREATSUPERGOOD":F((1)3)% "^ :A$IN$1 (A$,1,1)"$"A$(A$,2,(A$)1)C (A$)02503i ((A$)A(0)).001W0W01:3050x TR03021 W1W11::: 21:A$" IS INCORRECT. ^TRY AGAIN. ";: A2$IN$:(A2$,1,1)"$"A2$(A2$,2,(A2$)1) (A2$)03010  T1T2:5330 A MP1:T:24:FI$"11 )$3$91"::::21 "^HOW WOULD YOU WRITE THE AMOUNT OF MONEY":"SHOWN IN THE BOTTOM ROW?" X116150:3:176,X1178,X1:0:176,X13178,X13: "^DON'T FORGET THE DECIMAL POINT!"(7) 22:26 X172,X::SB10MP1:FL1:C(T)SB10:2150:FL0= T2111` Y2:X211:T0X106:T2X28} MP1:T22(T22)MP1 T1MP(T2):5330: 50000:21210:T1T1:5330 MP1:50000:MP1 OPT12490 Y138:X204:T0X104:T1X7)"N"(IN$,1)"Y"2410&o TR2420^q W1W11:"^NO, A TRADE IS NOT NEEDED.":21210:2490t W1W11:"^YES, WE NEED TO MAKE A TRADE."~ FL1:K(C(T)10):MP1:C(T)K10:T2İ2150 C(T1)C(T1)K:C(T)SB:FL00 SB9T2Ē0:X102158:85,` 21200e T32490j :::21:"^DO WE NEED TO MAKE A TRADE OF "MT$(T)"S":"FOR A "MT$(T1)"? ^ENTER ^Y^E^S OR ^N^O. ";k 251,1::(IN$,1)"Y"TRADEW0W01:"^CORRECT!":2430l (IN$,1)"N"TRW0W01:"^CORRECT!":21200:2490m (IN$,1jJ MIiJ`   `%,J`|?Qg{ )6CQr,:Icn)9I[q4EVq+?L[hw6666666.$$$$$$$,66666660 bJ`[JgJgJ80 ``gJhhhhZJ[JLJMN CMMMhJiJjJkJ N `#! "`6J7 X MdJeJfJ  TWRPgJbJcJ[J``` L0LcJ$% W `M L ` MIioJ` MoJ`jJ MJ`^JLeJL YK\JL]JL^JLL` LKޅhhL K$(`LJoJ XcJLM+**++8 $%` $%%#"%L"$$!LcL` L0LdJ`*U LeJHiJmiJhJhHkJmkJjJhMN CM` LfJ` L`JeJgJ`ZJ[J[JZJ`_J`JYJXJZJ`J ZJZJɡ`hhLJhhJNKJOK LJZJ &L8   ` e VJȱ e WJfJaJ\J]J^J VJWJbJ aJ ]J^J`67 ( CMTQLX KhhLJ lJ &LhhLJcJ lJ]JLI II`LI NM J !K lJ SK vL K`KNMK.L+LLgLcLKLLLLLMMMMMMM%\J hJm\J\Ji\J$^J]J^JjJm]J]J^JL"i]J^JL"XJYJ0 i ZJ_JdJ     <e L3`%&L 3278,183:083:(16368,0:16384,128, R(16384)155300F R(16384)14121220L SY @ BORDER JCL$:HC((1)2):2HC((1)2)4 THC,0HC,182:2HC,02HC,182:278HC,0278HC,183:276HC,0276HC,183 ^0,1278,1:0,182278,182 h0,0278,0:0,18R FOR PRINTING THE". "STUDENT SCORES."::l " ^M^O^N^E^Y ^M^A^N^A^G^E^M^E^N^T ^S^Y^S^T^E^M ALLOWS" "YOU TO MANAGE THE STUDENT SCORES.":: 21200:30 R RETURN ROUTINE R22:2:"^PRESS ^R^E^T^U^R^N TO CONTINUE, ^E^S^C TO END"; RNE MOMENT PLEASE...":D$"RUNPRINTER SUPPORT"o 40000:12:10:"^ONE MOMENT PLEASE...":D$"RUNMANSYS (MONEY)" ,40000:12:10:"^GETTING THE MENU...":D$"RUNMENU" 40000 " ^P^R^I^N^T^E^R ^S^U^P^P^O^R^T ALLOWS YOU TO" "SET UP THE PRINTE^PRINTER SUPPORT":: -" 2. ^MONEY MANAGEMENT SYSTEM":V 2" 3. ^DESCRIPTIONS":{ <" 4. ^RETURN TO MAIN MENU":: F"^ENTER YOUR OPTION AND PRESS ^R^E^T^U^R^N."; PFI$"11 $$4141"::O(IN$"") ZO100,200,400,300, d40000:12:10:"^O PROGRAM: ADMIN0PROGRAMMER: TIM BUEGEHCOPYRIGHT (C) 1987hLAST UPDATED: TJB 06/23/87 34034:26528::D$(13)(4)D$"BRUNPRINT":D$"BRUNINPUT":CL$(12):IN$"":32,140000:3:10:"^TEACHER ^OPTIONS ^MENU":: (" 1.       `3ng;\m3xXm3Xm{s???v--*-=766&$$$d - -%4666?-e$$?$666f -66#$$I66&6II6666?66666$d I$$66666266&$ 66&$d 66&266&$ -6??$$$ ----?w?766$$$$$ --??v--??----??666666666-- $$$$666 $$$6666v  $$$$4vd 4v66&$$ 4----.---=66666----$$$$,---r----66666????LI $$$$*-----R 66.--??766--------????66.--??766 --u??666--e$$?/66.---=???766MI $$$$$ --?66666-??II 6666??466666$ 66666----66666$$$$$ 6666666666$$$$$6&u&$$$$4 --666??$$$ ----???66&$$$$4 --666 ??d - ---66&??-- 566&I  Ibb5 II----????   --?6 --66'$<6I:???$$$ Iq>???/---566$$$ 66666--- ???--- ??/ --&??666-- 466666--- $$$???----?????-I16666&$$??----J  6R---  4II --&&$$$ 666-- $$$I 66666?/--= ------b--u??--??66.---='$$66666----????66.--u???d -?6e--??$----6& --??v-- .$$$$$$$,6666666.$$$$$$$,6666666.$$$$$$$,6666666.$$$$$$$,6666666>I1666 6n $4I66666$::p`36k{@o[w_mg@mv``0`pffpf fpff0fpf0ff~f`f[ g{f;tf;'f[]jf[Af[gSBf;>Df; $f{(f[0gpf~ffffff@`s#g{'Wo&Pm{GOosg`3k{@o[@m@mv```sg{w_o@m{w@osg@`vh{@o{7[ovi`0fpf0fffffffff~f`f[9@f{|0f;^Mf;g[ Df[f[9)f[!yf; dg;Fg{8 f[@g`f~fffffff``sg{GOo&Pm{'Wos#g@`h{@o{@ovi``3k{@o[@m`ssg{_ov@m{@os3g`pffpffpff0fpffffffff~fpf[g{<f;BWg; tgmf[8-f[-g Tf;6f;If{x f[qg`f~ffffffffff@f f f f@``[@d{@n{v_k{@k`իիկ`sg{w_o@m{w_osg0`pffpff@fpff`f0f`ffffffpf f`f{@g< gBg dg[Yf[9)f[!f[ ff fl0f{Y@g#`f fpfffffffff@f f f f@`h{@o{@ovi``@d[w_n{@k{6[k{v`F`xF1f1CaCaCaCaf30x``0`1N9[1[1[yN`08`>@`A0    ? pp p 0?`@>>@`A0 ls60s0FA1f3fw1   0`A@>>@pA8  0fg1c0cc3c6c6cfc10  8pA@>`h{w_o{@oi`ALL"i:17:17:"^YOUR ANSWER IS TOO":18:17:DI$". ^YOU SHOWED ":19:17:"$";GU$;AD$;". ^TRY AGAIN."v:21200:"^SORRY, ";:NB3ĺ"THE COLLECTIONS ARE EQUAL.":2115@"COLLECTION "NB" IS "S$(SL)"."C21:39);:1:"^COLLECTION 1=$"LV;:22:"^COLLECTION 2=$"RVHW2W21(12):5010F34,21:21:5:"^COLLECTION 1 ^COLLECTION 2"s:"^WHICH COLLECTION IS "S$(SL)"? " "^PLEASE ENTER 1, 2, OR =. ";:FI$"11 $$41=1":IN$"1"IN$"2"IN$"="ĺ(7):2050ANS(IN$):IN$"="ANS3 (ANN$"11 $$3121":12\2:"^ENTER THE OPTION AND PRESS ^R^E^T^U^R^N. ";::OS(IN$):954,OSS$(2)"SMALLER":S$(1)"LARGER":O50:OP4O51RT1(N$)POP:Q(1):M1PT03:N12:B(T,N)((1)10):N,TSLS:S3SL(2(1)1)OR 3 AND":2:"PRESS ^R^E^T^U^R^N. ";EFI$"11 $$4131"::S(IN$)P953,SiORGANIZED/SCATTERED40000:2:3:"^PLEASE SELECT HOW YOU WANT THE MONEY":2:"PRESENTED.":5:6"1. ^ORGANIZED COLLECTIONS"::5:"2. ^SCATTERED COLLECTIONS":FI:OP(IN$) 952,OP' OP5211602 40000^ :2:"^WHICH DO YOU WANT TO IDENTIFY?" :2:"1. ^THE LARGER COLLECTION"::2:"2. ^THE SMALLER COLLECTION" :2:"3. ^A RANDOM SELECTION OF OPTIONS 1-2"; :%2:"^PLEASE ENTER 1, 2, OPTIONS:":< j5:"1. ^COINS ONLY ":5:"2. ^BILLS ONLY "` o5:"3. ^BOTH BILLS AND COINS " t5:"4. ^A RANDOM CHOICE OF OPTIONS 1-3": w5:"5. ^RETURN TO MAIN MENU ": y2:"^ENTER YOUR OPTION AND PRESS ^R^E^T^U^R^N":2 ~FI$"11 $$4151":251,1::251,0:L$IN$"":' QP2010] L13:2:"^ENTER A NUMBER AND PRESS ^R^E^T^U^R^N." Q10:2:"^HOW MANY PROBLEMS WOULD":2:"YOU LIKE (1-10)? "; VFI$"11 %$2 1"::P(IN$) Y951,P [P10P11100 `40000:2:2:"^COMPARING LESSOND$"CLOSE":1230+ 40000:2:"^HELLO!":d FI$"11 .$4AZ1":2:"^PLEASE ENTER YOUR FIRST NAME" 2:"AND PRESS ^R^E^T^U^R^N ";:251,1::251,0:N$IN$"": FI$"11 2$4AZ1":2:"^PLEASE ENTER YOUR LAST NAME" 2:"AND PRESS ^R^E^T^U^R^N ";:N I,C,O" CL$(12)1 ,D$"BRUN INPUT":IN$""\ .D$"BRUN PRINT": USE ENHANCED VERSIONz 1D$"BLOADBS.MONEY,A17920" 2(4)"BLOADBLOCKSHAPEROUTINE" 6IN$"" @(950)1P(951):OP(952):S(953):OS(954):D$"OPENNAME":D$"READNAME":N$:L$: COMPARINGCd COPYRIGHT (C) 1984 CONTROL DATA CORPORATION`xAUTHORS LUND & ROBERTSz ALL RIGHTS RESERVED3500038400:22000N$"COMPARING":L(N$):900,L:Q1L:900Q,((N$,Q,1)):255D$(13)(4) D$;"NOMO         `fpp`Mcv6Onff6Llff6f<lfv#p ^cSj `bm]m`CCLm`c6#`Lk`c6#'\n`c6#Lm`@C(L `f'\=fv6#E 0mf6VC0mfL)c7fl3`~D`D'eD D D/dNhgQ(Q)QjcQ,Q(Nhgz9"2 D"R "Rz8" @" Dz9$_(2"@`8 F1f1CaCaCaCaf30 8``0`1N9[1[1[yN`08`~@}o`fpFfvgf?ffLa fv f ov*`S1NmaC+ 1[m`c63@0[k`c6C\0[nac6A[m`FF"[m`fFNmmv&Tnf,( 0lf|0`l`0`~~@A0(M$,Q,1)):' ,D$"BRUN INPUT":IN$""; .D$"BRUN PRINT"[ 1D$"BLOADBLOCKSHAPEROUTINE"y 3D$"BLOADBS.MONEY,A17920" 43 6FI$"" @SZ(5)14:SZ(6)16:SZ(7)13:SZ(8)19:SZ(9)20 USER DEFINED FUNCTIONS C(9),B(9)N (950)1Ĺ950,0:PPROGRAM: COUNTING7PROGRAMMERS: LUND&ROBERTSUCOPYRIGHT (C) 1984, 1987uLAST UPDATED: TJB 06/22/873500038400:19456255:CL$(12)D$(13)(4)D$;"NOMON I,C,O" M$"COUNTING":L(M$):900,L:Q1L:900Q,(       @ P$$$?????????>>>>>>66666666655555---------%$$$@ BORDERfJCL$:HC((1)2):2HC((1)2)4THC,0HC,182:2HC,02HC,182:278HC,0278HC,183:276HC,0276HC,183Y0,1278,1:0,182278,182^0,0278,0:0,183278,183:( BOX "^GETTING THE MENU...":(4)"RUN MENU"2RRETURN:R24R1ES6:"^PRESS ^R^E^T^U^R^N TO CONTINUE";:ES0ĺ", ^E^S^C TO END.";R16368,0:16384,128R(16384)155ES06000R(16384)14121210R:21:1:0u(222)2552100E NAME".(4)"OPEN PASS":(4)"WRITE PASS"<XX(921)eP:0:"COUNTING":XX3:(4)"CLOSE"|A$"":XX3A$"2"(4)"RUN SHOW COLL";A$'EXIT ROUTINE':(4);"PR#0"::$'255:22016*WN RETURN TO MENU&\N40000:10:2: NUMBER":EFI$"21+B$$4121"zJ2:"^WHICH OPTION WOULD YOU LIKE? ":22:5:"^ENTER A NUMBER AND PRESS ^R^E^T^U^R^N."T:PP(IN$):PP1ı^40000h10:10:"^ONE MOMENT PLEASE..."r(4)"OPEN NAME":(4)"WRITE NAME"|N$:L$:(4)"CLOST PLEASE..."SzD$"OPENNAME":D$"WRITENAME":N$:L$:P:OP:"COUNTING":D$"CLOSE"o829,W0:830,W1:831,W2D$"RUNSUMMARY"@(12):40000 C2:2:"^DO YOU WANT TO: ":2:4:"1. ^COUNT A GIVEN COLLECTION":2:6:"2. ^SHOW A COLLECTION GIVEN A COINS3$C1C11LC(T)2(C(T)2)XXSZ(T)2:5610sC11X1160:Y113:XX1:YY1:5610C(T)1Y1Y1SZ(T1)5:YY1:5605Y1Y1SZ(T)2:YY1Y125160X1X150:Y113:XX1:YY1 p40000:10:10:"^ONE MOMENY:768:(| OS=1, CHECK FOR PLACEMENT6XX1:YY1DT45570P BILLSW3cC2C21C21X10:Y123:XX1:YY1C(T)1Y1Y120:YY1:Y125155X1X175:Y110:YY1:XX1:5560Y1Y113:YY1:Y125155X1X175:Y110:YY1:XX1Y,X,YT05060&OP1T550209OP2T45020I5080:5020dM1āQW19:VA(QW):NB0:T19:NBNBVA(T)C(T):C(T)0::C10:C20YN((1)2):YNıC(T)C(T)1OS1İ5500206,SX:207,SY:232,A1:233,A26:X, ";:17M"^"(F$,F51,5);:((1)3)ĺ", ^"N$;@N"!"PRTR0:21210a\NB0::6000j:3 RANDOM COLLECTIONOS1OP3Ģ1:5:"^BILLS";25);"^COINS"OS1OP2Ģ1:5:"^BILLS"OS1OP1Ģ1:25:"^COINS"T,A1,A2,SX,S"^TRY AGAIN. ";:"TR1:2040z"^SORRY, THE ANSWER IS "NB;:OP2ĭ((NB),((NB))2,1)"."NB2(NB2)ĺ"0";".": W2W21:21304TR0W1W11>TR1W0W01HF$"GREATSUPERGOOD":F((1)3) J" OP22020722:"^DON'T FORGET THE DECIMAL POINT."W21:FI$"11 )$4.91":34,20x"^HOW MUCH ALTOGETHER? ";:ANS(IN$):(ANNB).0012100TR02070 ::::21:"^INCORRECT, "IN$" IS TOO ";:ANNBĺ"HIGH.":2063 "LOW."5:"2. ^SCATTERED COLLECTIONS ":FI$"11 $$4121":12r2:"^ENTER THE OPTION AND PRESS ^R^E^T^U^R^N. ";:OS(IN$"")922,OSRT1(N$)POP:Q(1):RTW00:W10:W20M1PT03:B(T)((1)10):T(12):5000 R^E^T^U^R^N":2:251,17 ~FI$"112%$$4141"::OP(IN$)C 921,OP[ OP4A$"2":20055e 8000  ORGANIZED OR SCATTERED 40000:3:2:"^PLEASE SELECT HOW YOU WANT THE MONEY":2:"PRESENTED." 5:6 "1. ^ORGANIZED COLLECTIONS ":! %$2 1"::P(IN$)' [P10P111002 ^920,Pb `40000:2:2:"^COUNTING LESSON OPTIONS:": j5:"1. ^COINS ONLY":5:"2. ^BILLS ONLY" o5:"3. ^BOTH BILLS AND COINS" t5:"4. ^RETURN TO MAIN MENU.": y2:"^ENTER YOUR OPTION AND PRESS ^I$"11 2$4AZ1"::2:"^PLEASE ENTER YOUR LAST NAME"q 2:"AND PRESS ^R^E^T^U^R^N ";:251,1::251,0:L$IN$""~ QP1205 L13:2:"^ENTER A NUMBER AND PRESS ^R^E^T^U^R^N." Q10:2:"^HOW MANY PROBLEMS WOULD":2:"YOU LIKE (1-10)? "; VFI$"11(920):OP(921):OS(922):D$"OPENNAME":D$"READNAME":N$:L$:D$"CLOSE":1205i START OF MAIN PROGRAM 40000:2:"^HELLO!": FI$"11 .$4AZ1":2:"^PLEASE ENTER YOUR FIRST NAME" 2:"AND PRESS ^R^E^T^U^R^N ";:251,1::251,0:N$IN$""4 FR^E^T^U^R^N"&S(16384)14121250, S14:"^PRESS";5RCB$2CC$;0;UP$;5;:" ^R^E^T^U^R^N"OS(16384)14121250U SOUTINEnR16368,0uR3RX171185:85,X177,X:XR0RX173183:87,X128,X:RID$;CB$2;CC$;3;UP$;5;:21:14:"^PRESS"; RCB$2CC$;0;UP$;5;:" ^PPLE ^COMPUTER, ^INC."!21200kCL$CC$3CB$2:130:12:2:"^GETTING THE MENU...":(13)(4)"RUN MENU"R PRESS RETURN SUBROUTINER16368,0R3RX171185:85,X177,X:XR0RX173183:87,X128,X:RID$;CB$2;CC$;3;UP$;5;:21:6,3696,24@ 7:5:"^PARTS OF ";UC$;"MONEY, MONEY, MONEY!"LC$ 09:10:"WERE DEVELOPED USING":11:8:"^APPLE ^COMPUTER PRODUCTS.":13:2:"^COPYRIGHT 1981, ^APPLE ^COMPUTER, ^INC.":15:2:"^APPLE ^D^O^S 3.3 ^COPYRIGHT 1980, 1981."17:10:"^A145,106154,106 GUC$;J J12:22:CC$;0;CB$;2;"C";CC$;3;UP$;0;" 1988"z T14:5:"^WHITE ^BEAR ^PUBLISHING ^COMPANY" ^16:11:"^ALL ^RIGHTS ^RESERVED" cLC$; r21200:CL$ |130:4:16:CC$;3;"^C^R^E^D^I^T^S" 6:96,24160,24160,369( ,6:18,10256,10256,5018,5018,10t 64:11:CC$;0;UC$;"MONEY, MONEY, MONEY!";LC$:5:14:"^MONEY ^PRACTICE" ;CC$;3;:7:19:"BY":9:14:"^CHARLES ^LUND" @12:12:CC$;3;"^COPYRIGHT" D3:145,98154,98 EX99105:144,X155,X:X F256,10818,10818,10 3) X181009 27,X247,X@ Xt CS$1CB$2CC$0:4:9:"^EDUCATIONAL ^COURSEWARE" 768: MOVE WHITE BEAR CC$0 UC$ 6:6:"WHITE BEAR PUBLISHING COMPANY";CC$3LC$:21200 "130:3:X1644:27,X247,X:XINTg xBC$(2):CC$(3):UP$(17):CS$(19):CB$(16):UC$(23):LC$(26):ID$(9):CL$(12):RT$(6)p }170| CL$:1 1,1279,1279,1901,1901,1 2,2278,2278,1892,1892,2 3,3277,3277,1883,1883,3: 130:6 18,10256,10W HELLO MONEY, BY CHARLES LUND^ COPYRIGHT (C) 1984 CONTROL DATA CORPORATIONx ALL RIGHTS RESERVED 34034:32768_d(4);"BRUN MASTER-SM"n(4)"BLOADWHBEAR":(4)"BRUNPUP":(4)"BLOADTWOSCREEN" p786,49: "AND" IMPR >17:17>MA00>I19:B(I)A(I)MA17>IV>X1ĺ"^FANTASTIC, "NN$"!"u>X2ĺ"^NICE WORK, "NN$"!">X3ĺ"^GOOD JOB, "NN$"!">X4ĺ"^CORRECT, "NN$"!">MA1Ģ18:17:"^BUT THERE IS AN EASIER":19:17:"WAY TO SHOW $"AN$".":20>TRY0COCO1>TRY1EO2:PK19:11010>TRY1C1C11:TRY0>X(4(1))10,68,2,13,150,147,7,80,68,2,13,260,122~Ã8,112,68,3,19,21,105,8,112,68,3,19,96,30,8,112,68,3,19,140,50,8,112,68,3,19,260,75Ã9,176,68,3,21,120,26,9,176,68,3,21,170,53x - 1,0,0,0,0,0,0_1,5,10,20,.01,.05,.1,.25,.5\|à 5,0,68,2,14,10,146,5,0,68,2,14,120,73,5,0,68,2,14,190,146,5,0,68,2,14,230,123,5,0,68,2,14,42,101,5,0,68,2,14,243,85 à 6,32,68,3,16,0,101,6,32,68,3,16,75,33,6,32,68,3,16,189,51,6,32,68,3,16,210,80&Ã7,80,68,2,13,50,147,7,80,68,2,13,90,74,7,8,25,210,50,2,0,65,10,25,140,100,2,0,65,10,25,75,110nÃ3,0,66,10,25,210,25,3,0,66,10,25,0,75,3,0,66,10,25,70,85,3,0,66,10,25,140,125,3,0,66,10,25,0,25xà 4,0,67,10,25,0,50,4,0,67,10,25,70,0,4,0,67,10,25,140,25,4,0,67,10,25,210,0,4,0,67,10,25,210,134 23P<22,7222,127240,127240,7222,72:23,7323,126239,126239,7323,73VFePòUSER DATAZÃ1,0,64,10,25,0,0,1,0,64,10,25,210,100,1,0,64,10,25,70,134,1,0,64,10,25,140,75,1,0,64,10,25,75,503dÃ2,0,65,10,25,140,0,2,0,65,10,25,0,125,2,0,65,10,182:278HC,0278HC,183:276HC,0276HC,183LY0,1278,1:0,182278,182l^0,0278,0:0,183278,183:1"^PRESS ^R^E^T^U^R^N TO CONTINUE, ^E^S^C TO END.";L-#16368,0:16384,128/#(16384)155İ40000:10:10:"^GETTING THE MENU...":D$"RUN MENU"0#(16384)1419005@ BORDERJCL$:HC((1)2):2HC((1)2)4.THC,0HC,182:2HC,02HCND PRESS ^R^E^T^U^R^N ";:FI$"11 2$4AZ1":251,1::251,0:L$IN$"":q40000:10:10:"^ONE MOMENT PLEASE..."}826,NPD$"OPENNAME"D$"WRITENAME"N$:L$:NP:N:"MAKING CHANGE"D$"CLOSE NAME"D$"RUN NEW CHANGE2"2(#22:2:20:2:"^HOW MANY PROBLEMS? (1-10) ";:FI$"11 %$2 1"::NP(IN$):NP1NP10197 40000:2:2:"^PLEASE ENTER YOUR FIRST NAME":2:"AND PRESS ^R^E^T^U^R^N ";:FI$"11 .$4AZ1":251,1::251,0:N$IN$"":E2:"^PLEASE ENTER YOUR LAST NAME":2:"AU "::3:"^ENTER THE OPTION NUMBER YOU WANT"::3:"AND PRESS ^R^E^T^U^R^N. "; FI$"11 $$4161"::IN$"6"İ40000:10:10:"^GETTING THE MENU...":D$;"RUN MENU" N(IN$):N0MN1:N1MN5:N2MN10:N3MN50:N4MN100 824,MN:825,NT NS:"::4:"1. ^AMOUNTS LESS THAN 1 DOLLAR "::4:"2. ^AMOUNTS LESS THAN 5 DOLLARS "::4 "3. ^AMOUNTS LESS THAN 10 DOLLARS "::4:"4. ^AMOUNTS LESS THAN 50 DOLLARS "O :4:"5. ^AMOUNTS LESS THAN 100 DOLLARS "::4:"6. ^RETURN TO MAIN MEN:"^YOU WILL THEN BE ASKED TO LOOK AT YOUR"::2:"CASH REGISTER DRAWER AND CHOOSE THE": 2:"CORRECT NUMBER OF COINS AND BILLS TO"::2:"GIVE TO THE CUSTOMER.": :2:"^MAKE SURE YOUR CHANGE IS CORRECT!" 9000\ 9:"^MAKING ^CHANGE OPTIO2:"^THIS IS A PROGRAM TO HELP YOU LEARN TO"::2:"MAKE CORRECT CHANGE."::2W {11 |"^IMAGINE YOU ARE A CASHIER IN A STORE.": ~2:"^YOU WILL BE GIVEN THE COST OF AN ITEM"::2:"AND THE AMOUNT GIVEN YOU FOR PAYMENT.": 9000 8Y 2mMAKING CHANGEF COPYRIGHT (C) 1984 CONTROL DATA CORPORATION] BY CHARLES LUND w ALL RIGHTS RESERVED:25538400:19456 D$(13)(4):D$;"NOMON C,I,O":D$"BRUN PRINT":D$"BRUN INPUT":IN$""CL$(12):400006O z`I΍UUU UULU`dUeUeUX eUfUgUcU"fUcUԢ TLSȑhhL2S` TL % ̠ҮŠŮҠɤȮΤĮ̠Ů̠ĮɥԠĮ UUUUUUUUUUUUUUUU UU P ThU '0 ULT T' `% "$`TTijTTkl8`iiLTȱȱȱLSdF?0hԢ T cUۢUL]UfUgUfUȑ TBC SI TUL]UFȩȩ멍 ` eUi eUX eUfUgULR zTLRB>H)h ɠFȄBLRLSB𱦧C B FFLR=$<% " C0`݅ۅ߅,`߅_ h%<$=Ѕ  dUeUfUgUF ȄB@ iSi>  CBCC` S UH)HJJh)JJLR)hLSD D0 ELSQLQ`Ԣ TȱL.QUL]UcUF TH?@DE >LR UL]Ui0 ȢUL]U81Hȱ81Hȥ 8$Ʌ<ȥ 8$(=ȱ8"(>ȱ8#>LaQ?ȱ81@ȱ Dȱ Eȱ81ׅh<&    AQ$"N"100t 7100:D$"DELETE"FL$(O1)".SCORES":D$"OPEN"FL$(O1)".SCORES":D$"WRITE"FL$(O1)".SCORES":0:D$"CLOSE" 40000:10:8:"^THE FILE IS NOW CLEARED.":21200:NS%0:1001000040000:2:8:"^MODIFY A STUDENT RECORD"::11000-22:Correct Percent Correct"h J27RL(O1)2:1300:1400:36,37:ZT%;:36,54:ZC%;:36,70:ZZ%"%"::: NS%0İ40000:10:4:"^THE SCORE FILE IS ALREADY CLEAR.":21200:100 40000:10:"^ARE YOU SURE YOU WANT TO DO THIS?";:VZ10:HZ35:7000  OFF:17410:D$"BRUNINPUT"D$"BRUNPRUTIL.OBJ":32,1:100T436,0:K179:"-";:::2100:HL(O1)10:"Money, Money, Money - "FL$(O1)" score file"::"Student Name: "(R$(I),16,11)" "(R$(I),15)::"Problem Type";:36,30:"Number Tried Number 2:"^TURN ON YOUR PRINTER AT THIS TIME AND":11:"ADJUST THE PAPER.":21200:40000:10:10:"^WORKING AND PRINTING":D$"IN#0":D$"PR#0":PACT2200:I1NS%:2300:IRP(O1)(IRP(O1))İ2100:(12):INS%İ2200:IRP(O1)(IRP(O1))İ21006P "$0.00 $0.09","$0.10 $0.99","$1.00 $9.99","$10.00 $99.99","","" "$0.00 > $0.09","$0.10 > $0.99","$1.00 > $9.99","$10.00 > $99.99","","" "CHANGE < $1","CHANGE < $5","CHANGE < $10","CHANGE < $50","CHANGE < $100",""10000:40000:2:((R$(I),J1))64:ZZ%0:ZC%0ZZ%100(ZT%ZC%)8GlCTRLS!hqI04:J16:M$(I,J):::v "COUNT COINS","COUNT BILLS","COUNT COINS/BILLS","SHOW COINS", "SHOW BILLS", "SHOW COINS/BILLS" { "COINS","BILLS","COINS & BILLS","","",""HEF0:O12EF2iJ27RL(O1)2:1300:1400:EF19:ZT%;:26(EF2):ZC%;:34:ZZ%"%"::21200:yO3(J25)2O13M11(O15M142O13O14M12:O22M13FO21ĺ"^";:M11M10PM$(M1,O3);:2xZC%((R$(I),J))64:ZT%0:1100:1200::100U L2:HL(O1):251,1:FL$(O1);:251,0:" ^MONEY ^SCORE ^FILE": V"^STUDENT: ";:251,1:(R$(I),16,11)" "(R$(I),15):251,0::O23ı`" ^PROBLEM ^NUMBER ^NUMBER ^PERCENT":" ^TYPE ^TRIED ^CORRECT ^CORRECT"::RN MANAGEMENT "MS$(1MS(O1))" (NOW "MS$(MS(O1))")":W z" 7. ^SELECT ANOTHER FILE":z }" 8. ^RETURN TO MAIN MENU": FI$"11 $$4181":7200:O2(IN$"") O28FF$"MENU":9000 O21000,2000,3000,4000,5000,6000,30 10000:I1NS%:4000^SCORE ^FILE":, f"^WOULD YOU LIKE TO:":O i" 1. ^VIEW STUDENT SCORES":} n" 2. ^PRINT A COPY OF STUDENT SCORES": s" 3. ^CLEAR NAMES AND SCORES": u" 4. ^MODIFY A STUDENT RECORD": w" 5. ^DELETE A STUDENT RECORD":4 x" 6. ^TU51,1:FL$(I);:"^ SCORES":! -O <" 6. ^RETURN TO TEACHER OPTIONS MENU":r A" 7. ^RETURN TO MAIN MENU": FFI$"11 $$4171":7200:O1(IN$"") PO17FF$"MENU":9000 UO16FF$"ADMIN":9000 d40000:2:HL(O1):251,1:FL$(O1)" ^MONEY "ADDITION",8,34,5,"SUBTRACTION",7,34,5,"MAKING CHANGE",5,36,5 D$"OPENMS"D$"READMS":I15:MS(I):::D$"CLOSE":MS$(0)"OFF":MS$(1)"ON" 40000:2:8:"^MONEY ^MANAGEMENT ^SYSTEM"::NS%1 #5:"^OPTIONS:": (I15:" "I". ^WORK WITH ";:2MANSYS (MONEY)'TJB 06/23/879 34034:26528\D$(13)(4):CL$(12):IN$""D$"BRUNPRUTIL.OBJ"D$"BLOADSORT48"R$(100):BL$" "I15:FL$(I),HL(I),RL(I),RP(I)::1900>  "COUNTING",8,38,5,"COMPARING",8,32,5,            `LL#L3L n A s %`쇉n䇌NK3ɇ9ʼn %| m||i|$~}~m}}~L"i}~L"xy0 i    ` 0 `{80 ``hhhhz{L2  c `#! "`#67 X ? T @UWWRP{``` 0䍃$% W `  ` Ii }1~20 y|1}2~00` L䇥ޅhhL-$(`L XL׉+**++8 $%` $%%#"%L"$$!L` 0`*U HmhHmh c` z獀筇`z{{z`䭀yxz`6 zzɡ`hhL2hh7n8o L2z F8   ` e vȱ e w|}~ vw ΁ }~`67 ( cTQLX hhL2 FhhL/   `LL#L3L n A s %`쇉n䇌NK3ɇ9ʼn %| m||i|$~}~m}}~L"i}~L"xy0 i       ^R^E^T^U^R^N. ": @32,1HJCL$:HC((1)2):2HC((1)2)4THC,0HC,182:2HC,02HC,182:278HC,0278HC,183:276HC,0276HC,183^0,1278,1:0,182278,182h0,0278,0:0,183278,183:183:;0278,0:0,183278,183:IES":NS%.I1NS%:R$(I):</D$"CLOSE"D$"BRUNPRINT":BRR22:2:"^PRESS ^R^E^T^U^R^N TO CONTINUE, ^E^S^C TO END"R16368,0:16384,128R(16384)155ġ:100R(16384)14121220SU22:2:"^ENTER ^Y^E^S OR ^N^O AND PRESS? +INS%ĺ:"^THAT STUDENT IS NOT IN THE FILE.":21200::100P*+40000:1100V4+.40000:11:7:"^UPDATING STUDENT SCORES...":8000.1:D$"OPEN"FL$(O1)".SCORES":D$"DELETE"FL$(O1)".SCORES".D$"OPEN"FL$(O1)".SCORES":D$"WRITE"FL$(O1)".SCOR1:21200::100*i+"^ENTER THE STUDENT'S FIRST NAME.":251,1:FI$"11 .$4AZ1"::251,0:ZF$IN$"" +:"^ENTER THE STUDENT'S LAST NAME.":251,1:FI$"11 2$4AZ1"::251,0:ZL$IN$""+SR$(ZL$BL$,15)(ZF$BL$,11):I1NS%:SR$(R$(I),26)ĂNS%10050:'40000:11:8:"^LOADING STUDENT SCORES..."z'1:D$"OPEN"FL$(O1)".SCORES":D$"READ"FL$(O1)".SCORES":NS%$'NS%ĺD$"CLOSE":10050.'33,38:I1NS%:R$(I)::33,408'8000:12040B'40000:10:7:"^NO SCORES ARE IN THE FILE.":PF:AQ$(IN$,1):AQ$"Y"AQ$"N"7010+lY40000:10:10:"^ONE MOMENT PLEASE...": "^ENTER YOUR OPTION AND PRESS ^R^E^T^U^R^N.";::@NS%2ıJL1%1:L2%20:X%NS%:37635,("R"):37636,128:37632:(#7100:D$"RUN"FF$'NS%0ı 'O1)"^ IS"::"CURRENTLY "MS$(MS(O1))". ^DO YOU WANT"::"TO TURN IT "MS$(1MS(O1))"? ";:VZ12:HZ18MS(O1):7000:AQ$"N"100zMS(O1)1MS(O1):D$"OPENMS"D$"WRITEMS":I15:MS(I)::D$"CLOSE":100XFI$"11 &$4AZ1":22000%bVZ:HZ:251,1::251,0S":"RECORD? ";:VZ19:HZ10:70003AQ$"N"5130b7100:JINS%1:R$(J)R$(J1)::NS%NS%1 40000:10:"^DO YOU WANT TO DELETE ANOTHER":"RECORD? ";:VZ11:HZ10:7000:AQ$"Y"5050(12000:100}p40000:8:"^MANAGEMENT FOR ";:251,1:FL$((R$(I),27):40000i@10:"^DO YOU WANT TO MODIFY ANOTHER":"RECORD? ";:VZ11:HZ10:7000:AQ$"Y"4050y^12000:1001000040000:2:8:"^DELETE A STUDENT RECORD"::11000!1200:18:2:38)::2:38):18:2:"^DO YOU WANT TO DELETE THI4:3:251,1:(R$(I),1,15):251,0^18:"^IS THIS INFORMATION CORRECT? ";:VZ18:HZ31:7000AQ$"N"Ģ18:" ":4060"JF$""JF$(R$(I),16,11),JL$""JL$(R$(I),1,15)6R$(I)(JL$BL$,15)(JF$BL$,11)"^PRESS ^R^E^T^U^R^N TO LEAVE CONTENTS SAME."10:"^ENTER NEW FIRST NAME.":FI$"11 .#4AZ1":251,1::251,0:JF$IN$"":JF$""Ģ11:3:251,1:(R$(I),16,11):251,0!13:"^ENTER NEW LAST NAME.":FI$"11 2#4AZ1":251,1::251,0:JL$IN$"":JL$""Ģ1)"ADMIN"m xBC$(2):CC$(3):UP$(17):CS$(19):CB$(16):UC$(23):LC$(26):ID$(9):CL$(12):RT$(6)v }450 CL$:1 40000: 2,2258,2258,1892,1892,2 3,3257,3257,1883,1883,3: 130:3:13:CC$;3CB$2UC$UP$5"LESSON OPT:LS$(2)"COMPARING":LS$(3)"ADDITION":LS$(4)"SUBTRACTION":LS$(5)"MAKING ^CHANGE":LS$(0)"DESCRIPTIONS" FLS$(7)"END":LS$(6)"TEACHER ^OPTIONS" PPS$(0)"COUNTING":PS$(1)"COMPARING":PS$(2)"ADDITION":PS$(3)"SUBTRACTION":PS$(4)"MAKING CHANGE":PS$(5[MONEY MENU&BY CHARLES LUNDX COPYRIGHT (C) 1984 CONTROL DATA CORPORATIONr ALL RIGHTS RESERVED 34048:24576:230,32950,0(4)"BRUNMASTER-SM"2HT(1)16:HT(2)16:HT(3)16:HT(4)15:HT(5)14:HT(6)12h <LS$(1)"COUNTING"     Ʌ(L J؍PrQ U ?(hLw ?(hZLhhߚHH`pd ؍PrQ UL󕺽HHi`6&$6M?666$ u6&6&I66?666$-  66666$, u6& -6?$666$,e$? u66$$66$, u -=?-?/ 666$$=/6ve $666 $66 $$& 6ve $66?----I9w-i-?*- 6&$4 %66?$$ 666$$$-u?7)u6 $$L666$$$-u?)u?v-?--?66666v- $$466 $$666 4$$$vd 4v6&$ 4--.-=666--#$$-=r--666??L!$$---J u$66$>4666$ u6 -?6- I166&$ -6" ->?7--'du66& - ?d)u6?d-6/? I--??q - )66:?$$ 66$?-- 666H)hɠFȄBLL$B<%=eB$$ " Eȱ81ׅh<&݅ۅ߅,`߅߅ h%<$=ЅFȄB@ i1i>CBCC`  EHLP)HJJh)JJL)%"# !L-`Ԣ ێȱLKТLF ێH?@DE >L- Li0 ࢏L81Hȱ81Hȥ 8$Ʌ<ȥ 8$(=ȱ8"(>ȱ8#>L~?ȱ81@ȱ Dȱ` 才` 才` Ii`` Lo0`LMLS0`LgLm JF8ȹe8ИL`Lø{{ttlnghab\\WWRRMNIIEEAA=>::673401..+,))&'$T WOULD YOU LIKE TO DO NEXT?"e (:2:"1. ^RUN THIS PROGRAM AGAIN":2:" USING THE SAME OPTIONS." -:2:"2. ^RUN THIS PROGRAM AGAIN":5:"USING DIFFERENT OPTIONS." 2:2:"3. ^RETURN TO MENU." <:2:"4. ^END."D F:2:"^ENTER YOUR OPTION NPROGRAM:MENU-END7LAST UPDATED: TJB 06/22/87F MENU-ENDh(13)(4)"BRUN INPUT":17410sIN$""~950,0 CL$(12) D$(4) 40000D$"OPENNAME":D$"READNAME":2:N$:2:L$:2:NP:2:OP:2:FL$:D$"CLOSE" 2:"^WHA   HC,190:276HC,0276HC,1909Y0,1278,1:0,191278,191Y^0,0278,0:0,190278,190:0PUTER OFF. ^THE":7:"SWITCH IS LOCATED BEHIND THE":7:"COMPUTER ON THE LEFT.":2[r16:" 3. ^TURN YOUR TELEVISION OR":7:"MONITOR OFF."`r29280@ BORDERJCL$:HC((1)2):2HC((1)2)4THC,0HC,191:2HC,02HC,191:278HC,0278(1000)256:B(A)(A1)256:CS(B1)16:CS1CS7CS6SBr:(13)(4)"PR#"CSYGrLr40000:6:2:"^TO TURN THE COMPUTER OFF:"Qr9:2:" 1. ^REMOVE THE DISKETTE FROM THE":7:"DRIVE AND PUT IT IN A SAFE PLACE."SVr12:2:" 2. ^TURN THE COM";:FI$"11 &$3EY1":251,1::251,0;r(IN$,1)"N"29260T$r(IN$,1)"Y"292058r40000:10:8:"^INSERT THE NEW DISKETTE."9r23:7:"^PRESS ";::" ^R^E^T^U^R^N ";::" TO CONTINUE.":16384,0:r(16384)14129242;r(29):;=rA(999)ID$;CB$2;CC$;3;UP$;5;:21:14:"^PRESS";PRCB$2CC$;0;UP$;5;:" ^R^E^T^U^R^N"jS(16384)14121250p S~rKL$(12)r40000:14:4:"^ENTER ^Y^E^S OR ^N^O AND PRESS ^R^E^T^U^R^N."#r11:10:"^WOULD YOU LIKE TO USE":10:"ANOTHER DISKETTE?  TEACHER OPTIONSwG"^THIS OPTION ALLOWS TEACHERS TO","SET UP THE PRINTER AND","WORK WITH STUDENT SCORE FILES.","" pA$:(29)R PRESS RETURN SUBROUTINER16368,0R3RX171185:85,X177,X:XR0RX173183:87,X128,X:)ROGRAM PROVIDES PRACTICE"=2 "WITH SUBTRACTING COLLECTIONS"a4 "OF MONEY. ^THE PROGRAM"6 "HAS 4 OPTIONS."8 MAKING CHANGE="^THE PROGRAM PROVIDES PRACTICE","IN MAKING CORRECT CHANGE.","^THE PROGRAM HAS 5 OPTIONS.","" B "COMPARING COLLECTIONS OF MONEY."F  "^THE PROGRAM HAS 8 OPTIONS."O ""^$ ADDITION& "^THIS PROGRAM PROVIDES PRACTICE WITH"( "ADDING COLLECTIONS OF MONEY."* "^THE PROGRAM HAS 4 OPTIONS.", "". SUBTRACTION0 "^THIS PR(R$)2):R$:21200 XT)4508 COUNTINGe "^THIS PROGRAM PROVIDES PRACTICE WITH" "COUNTING COLLECTIONS OF MONEY." "^THE PROGRAM HAS 6 OPTIONS."  "" COMPARING "^THIS PROGRAM PROVIDES PRACTICE WITH"" 18:11:"^ALL ^RIGHTS ^RESERVED";\230,64:62450:230,32Up:(4)"RUN"PS$(LN2)m:XT16:CC$3CB$2v130O$:P$:Q$:R$6:HT(XT):"^"LS$(XT)::(20(O$)2):O$:(20(P$)2):P$:(20(Q$)2):Q$: (20;LN" /9:HT(LN1):"^"LS$(LN1)A 413:9:CC$;3;"^COPYRIGHT"Y 83:124,106133,106x 9X104112:123,X134,X:X :124,113133,113:124,103133,103 >13:19:CC$;0;CB$;2;"^C";CC$;3;" 1988" H16:5:"^WHITE ^BEAR ^PUBLISHING ^COMPANY" R4181"::LN(IN$) UP$0) LN19009 LN829200] 130:3:X1842:57,X203,X:X %1:49,15211,15211,4549,4549,15 *4:10:CC$;0;UC$;UP$;3;"MONEY, MONEY, MONEY!";LC$ +5:14:"^MONEY ^PRACTICE" ,7:12:CC$3;"^LOADING ^OPTION "IONS"LC$UP$04 6:78,10184,10184,2278,2278,10P CC$;3;CB$;2;:4:X18h 12:X". ^"LS$(X1)n u X XX((78)): RND PATCH UP$3 20:8:"^TYPE THE NUMBER OF YOUR":6:"CHOICE AND PRESS ^R^E^T^U^R^N: "; IN$"":FI$"11 $$10:Q$(I): :* PR1NP:TR0:34,20a P(100MN(1))100:Z9$(P):2415:P$Z7$:X9(0) A(6(1))1:Z0:A5A6Z1 A280,420,460,780,460,780 D(P):EPD:E((E100)25)1:E3420 @M1DE4:1020 D(P):M1D1:1020 P$"NEW CHANGE2":L(M$):900,L:Q1L:900Q,((M$,Q,1)):P IN$"":CL$(12) (.01,.05,.1,.25,.5,1,5,10,20,50:ZM24:ZC23 <I110:Q(I): A PENNIES,NICKELS,DIMES,QUARTERS,HALF-DOLLARS,$1 BILLS,$5 BILLS,$10 BILLS,$20 BILLS,$50 BILLS FI1a NEW CHANGE2>MN(824):OP(825):NP(826):L(827)D$(13)(4):D$"BRUNPRINT"D$"BLOADBS.SIDEMONEY,A17920":D$"BLOADBLOCKSHAPEROUTINE"251,0:D$"OPEN NAME":D$"READNAME":2:N$:2:L$:D$"CLOSE"B(10),Q(10):D$(13)(4):3; M   !!! ! ! ! ! !!!!!!!!!"΍΍Ǡōō  183:O OR":2:" MONITOR OFF."'`r292804@ BORDER\JCL$:HC((1)2):2HC((1)2)4THC,0HC,182:2HC,02HC,182:278HC,0278HC,183:276HC,0276HC,183Y0,1278,1:0,182278,182^0,0278,0:0,183278,183:0,0278,0:0,183278,E COMPUTER OFF:"hQr9:2:" 1. ^REMOVE THE DISKETTE FROM THE":7:"DRIVE AND PUT IT IN A SAFE PLACE."Vr12:2:" 2. ^TURN THE COMPUTER OFF. ^THE":7:"SWITCH IS LOCATED BEHIND THE":7:"COMPUTER ON THE LEFT."[r16:2:" 3. ^TURN YOUR TELEVISION DISKETTE."T9r22:7:"^PRESS ";::" ^R^E^T^U^R^N ";::" TO CONTINUE.":16384,0n:r(16384)14129242{;r(29):=rA(999)(1000)256:B(A)(A1)256:CS(B1)16:CS1CS7CS6Br:(13)(4)"PR#"CSGrLr40000:6:2:"^TO TURN TH(12)I r40000:14:4:"^ENTER ^Y^E^S OR ^N^O AND PRESS ^R^E^T^U^R^N." r11:10:"^WOULD YOU LIKE TO USE":10:"ANOTHER DISKETTE? ";:FI$"11 &$3EY1":251,1::251,0 r(IN$,1)"N"29260 $r(IN$,1)"Y"29205 8r40000:10:8:"^INSERT THE NEW$:L$:NP:OP:FL$:D$"CLOSE"J oO1FL$"COUNTING"OP4A$"SHOW COLL" sO1Ĺ950,1:A$"ADDITION"A$"SUBTRACTION"A$A$" PART2" tO2A$"NEW CHANGE2"A$"MAKING CHANGE" x40000:10:10:"^ONE MOMENT PLEASE..." (13)(4)"RUN"A$ rKL$4AZ1":251,1::251,0:N$IN$"" f2:13:"^PLEASE ENTER YOUR LAST NAME":2:"AND PRESS ^R^E^T^U^R^N ";:FI$"11 2$4AZ1":251,1::251,0:L$IN$"" hE(900):A$"":Q1E jA(900Q):A$A$(A) lQ mO2116 nD$"OPENNAME":D$"WRITENAME":NUMBER"::2:"AND PRESS ^R^E^T^U^R^N. ";:FI$"11 $$4141"::O(IN$)S PO429200 ZO3İ40000:10:10:"^GETTING THE MENU...":D$"RUN MENU" [O2104 d40000 e2:10:"^PLEASE ENTER YOUR FIRST NAME":2:"AND PRESS ^R^E^T^U^R^N ";:FI$"11 .$155ES6000&0#(16384)141900582#2:38);::E@ BORDERmJCL$:HC((1)2):2HC((1)2)4THC,0HC,182:2HC,02HC,182:278HC,0278HC,183:276HC,0276HC,183Y0,1278,1:0,182278,182^0,0278,0:0,183278,183:( 0":2510 Z7$Z7$"00"' X9(0):Sp40000:10:10:"^ONE MOMENT PLEASE..."qz829,W1:830,0:831,NPW1D$"RUNSUMMARY"(#24+#2ES6:"^PRESS ^R^E^T^U^R^N TO CONTINUE";:ESĺ", ^E^S^C TO END.";-#16368,0:16384,128 /#(16384) B(2)B(2)1e 2410-f B(3)B(3)1:B(2)03j Mo Z9(Z9$):Z7$"":Z20Z~ Z11Z9} Z8$(Z9$,Z1,1):Z8$"."2450 Z2Z1 Z7$Z7$Z8$:Z1 X9(0):Z202490 Z3Z9Z2:Z302500 Z322510 Z7$Z7$"0":2510 Z7$Z7$".0Z(IN$)Q24::::21,RZ1490,1550<fQ11021QpB(Q1)(CQ(Q1))dzB(Q1)12200pB(Q1)0z2220CCB(Q1)Q(Q1):C(((C.005)100))100Q1V B(1)C.01:B(1)(B(1).005)a B(1)52410b B(1)0c B(2)12406 dR, THERE IS A MORE":"EFFICIENT WAY TO MAKE THE CHANGE."L09000:24:::s121:"^WHAT WOULD YOU LIKE TO DO?"49:22:"1. ^TRY AGAIN."99:23:"2. ^SEE THE ANSWER.">4:24:"^ENTER 1 OR 2 AND PRESS ^R^E^T^U^R^N. ";:FI$"11 $$4121": H10:C(I)B(I)2090Ik24::::21:"^"("GREATSUPERGOOD",((1)3)51,5);:((1)3)ĺ", ^"N$;t"!"#W1W11$"^THE CORRECT CHANGE IS $";:Z9$(A):2415:Z7$;".":X9(0)%9000:PR)60008*24::::21:"^CORRECT! ^HOWEVEI)2090I"C(4)B(4)20108C(4)B(4)22020B2090VC(5)B(5)2032lC(5)B(5)12032v2090C(6)B(6)2035C(6)B(6)2C(6)B(6)420372090C(7)B(7)2040C(7)B(7)1C(7)B(7)220402090I8:::21:"^WHICH "Z9$;" DO YOU WANT TO CHANGE?"FI$"11 %$2 1":22:"(^ENTER THE VALUE IN "Z7$".)"::C$IN$"":II1%1I1%5:(Q(I)(I1%5)Q(I)100(I1%0))C$1765:C$"0"1700175524::1083:1700l1360I13:C(I)B(24::::21:"^DO YOU WANT TO MAKE A CHANGE IN THE"v" COINS (^C) OR THE BILLS (^B) ? ";:FI$"11 $$4BC1":251,1:C$IN$""C$"N"1700C$"C"Z7$"CENTS":Z9$"COIN":LL%0:I1%0:1750Z7$"DOLLARS":Z9$"BILL":LL%40:I1%5024:1::24:::21 ,2084k33,40:24::21:"^DO YOU WANT TO CHANGE ANYTHING? ":FI$"11 &$4EY1""^ENTER ^Y^E^S OR ^N^O AND PRESS ^R^E^T^U^R^N. ";251,1::251,0:C$IN$"":(C$,1)"Y"(C$,1)"N"Ģ22:1702(C$,1)"N"13605I15:19:I72:" ";:,24:::2161080J PRINT ANSWERV:::3:I110:V194(I5):JI1:H427((J5(J5))5.05)(J5)9:V:H::B(I);::" "(H1)71,(V1)81(H1)71,V81:(H1)71,(V1)81H71,(V1)8C(((C.005)100))100:AC%2150<(AM2).0011940A5$"^YOU GAVE TOO MUCH CHANGE.":AM2A5$"^YOU DIDN'T GIVE ENOUGH CHANGE."24::::A5$:TRTR19000TR1490,1550 ERASE AND TRY AGAINI15:15:I72:" ";:(J5))5.05)(J5)9:V:H:"? ":24::21hL"^HOW MANY "Q$(I)" IN THE CHANGE?";:FI$"11 %$2 1"z:C(I)(IN$)V:H:IN$::1700PM2.01C(1).05C(2).1C(3).25C(4).5C(5)C(6):M2M25C(7)10C(8)20C(9)50C(10)dCM1P:207,13:232,28:123,123:768 207,14:232,0:225,123:768:I16:(I1)505,47(I1)505,151(I1)506,151(I1)506,47:I 5,47255,47:5,48255,48:5,152255,152 !5,121255,121 8I110:1083:1300.;V194(I5):JI1:H427((J5SE.":X9(0)P 232,224:233,74:206,4:207,60:22,51:768:233,73:70,51:768 233,72:123,51:768:233,71:170,51:768:233,70:220,51:768 232,160:207,21:206,3:22,123:768:207,19:232,102:71,123:768:232,54:207,16:169,123:768:206,2:9(P10)1:M1P910:Z1960' 1020J P9(P20)1:M1P920:Z1960T 1020m D(P):DPD:M1M1D Z9$(M1):2415:M$Z7$:X9(0):(12)"$"P$"^ IS THE AMOUNT OF THE PURCHASE." :"$"M$" IS THE AMOUNT GIVEN TO PAY" :"FOR THIS PURCHAABLE CARD"6 C:3:"EACH TIME THE DISKETTE IS USED."C H30000:R COMM CARD] 40000 6:3:"^THIS DISKETTE IS CURRENTLY SET UP TO":3:"EXPECT AN APPLE COMMUNICATIONS BOARD":3:"IN SLOT #";(PP);".": SD$"^LOW":SD10:(PP2)127SD$"^40 BL00:L0+ CHECK CURRENT SETTINGSJ JP1((PP)0)((PP)127)c JP2100,2200,2300:q 4DEFAULTS| 940000 >8:3:"^THIS DISKETTE IS CURRENTLY SET TO THE"::3:"DEFAULT SETTING, WHICH IS TO SEARCH"::3:"SLOTS 1 AND 2 FOR A RECOGNIZTHEIR":6:"ORIGINAL STATE (^SLOT ^SEARCH)":S 3:"4. ^TEST PRINTER SETTINGS": $3:"5. ^RETURN TO TEACHER OPTIONS MENU" .::2:"^ENTER YOUR OPTION NUMBER":2:"AND PRESS ^R^E^T^U^R^N. ";:ZB1:ZT5:37000 8(12):ZN2000,5000,3000,4000,310LENGTH xD$(4):6 PP(948)(949)256:Q$(34)@ MENU L011:40000:13:"^PRINTER ^OPTIONS"::2:"^YOU MAY:": 3:"1. ^CHECK CURRENT PRINTER SETTINGS": 3:"2. ^CHANGE PRINTER SETTINGS":- 3:"3. ^RETURN PRINTER SETTINGS TO PROGRAM: PRINTER SUPPORT;PROGRAMMER: P.BOUCHARDSCOPYRIGHT (C) 1985sLAST UPDATED: TJB 05/27/87 34034:26528<IN$""F(4)"BRUN PRUTIL.OBJ":(4)"BLOAD PRINTER COMMANDS.BIN"d INIT nAPL0: SET =1 TO ADJUST PAPER """""      "**hQ**E+i+$$! $%%# bEEEhh`D76  "(!#@`"E% E*&+'% E!&*'i' E0EE#0̥#%% E*!0 E0`+i+`%J)+%j )* * (je$*` >EWR TPHEE2 ?hHh`0 i Hɝ67  9,T,Q Xhh`ɍ[Ɉ  D L-EɊ%%# bE "L-Eɇ L-EɌ**+*++8 $%QQHH Eh%HJJJ'hH*&'*&'*&')&&EH 0>7333000>;3>3?>60303733  0800633<3??337333333633>0p7>0  <3333333 33??33 333 ? ?<<0<3 3??> 33?3333333333333???3;3333?333 00003333?3???333337?;333333333333?>333303? 33333333333 333???333 3333 ?0 ? 0 ? 33333?<<<?? >< 7 ;8?>  000 ? ? ?  ? 0 3;?73  30??003??003<33?0 333333>0 0  0??  ?LD3 0? ? 3 ? 3 333a    ? m? ? >> ? ? ? l66l 6l6  aamam ??? 3?0 333?33?3 0 ???? ???" " " " " "23P<10,7210,111270,111270,7210,72:11,73269,73269,11011,11011,73VFND"(2((1)2):2HC((1)2)4THC,0HC,182:2HC,02HC,182:278HC,0278HC,183:276HC,0276HC,183Y0,1278,1:0,182278,182 ^0,0278,0:0,183