9106"xX` L4x1X` a"xGX` LXxU䅑X` "xhhhhhhhhhhhHHX` "hhhhhhh` "Ȅ؅ 񷊢ȑ` "ȱ` #UW0UU,15(UC,0:UN,0:UR$"":UI$"":UL0UL39$-UI$:UI$""45Y2UA(UI$):UR(UR$):UA13UR0UC,1:" ";:707UA20(UR0)45:UR$(UR$,UR1):" ";:45<URUL45A95:UR$UR$UI$:UI$;:45FUR$UX$" ";:145KUIUR11:(UR$,UI,1)" " PUR$(UR$,UI)::_(US$)0110JdUI1(US$):UI$(US$,UI,1):UI$""Pi]nUA46psUA32UR0xUA47UA58}UA64UA91UA193UA218UI$"":(UT)UU%UI$(UA128)170:251,0:252,US256:253,0:254,UF:UVUZ1:UV%(UT):300bUZ0:US$UJ$:UG$UK$:UT$UL$:UPUJ:ULUK:"";:UW0UY,6:UX,14UT,UV%:251,0:252,UF:253,0:254,US256:UV:UW0UU,15U1,U1%:U2,U2%:U3,U3%1:U4,U4%:35U1%(U1):U2%(U2):U3%(U3):U4%(U4)!UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL:F,"":UT,UU%:UW0UY,12:UX,6f1" M E N U"6" --------------------------------";" 1. BEGIN CHANGEMAKER"@" 2. STUDENT INSTRUCTIONS" E" 3. TEACHER INSTRUCTIONS"' J" 4. QUIT"S O" --------------------------------"~ T" PRESS A NUMBER KEY (1-4) "; YUL1:US$"1234" [35:US$"" ^(UR$)1000,400,500,390 c300 rUZ1UP%:155 w UE:"":UW0UY,6:UX,14:UU,14 :6 "":UT,UL%:UW0UY,11:UX,12o UT$" HANGEMAKER":UH1:UP0:UG$"TUDENT NST":850 " HIS PROGRAM SIMULATES" " BUYING ITEMS IN A STORE." 835:850 " OU WILL BE ASKEDTO TYPE IN", " THE NAME ANDPRICESOFITEMS"J " YOU ARE BUYING."u " HENYOUAREDONESHOPPING," " TYPE . HECOMPUTER" " WILL THEN CALCULATE YOUR":" SALES TAX. 835:850 ' " HEN THECOMPUTER GIVES YOU THE"P " TOTAL, YOUWILLBEASKEDTO"x " ENTER THE ," " WHICH MEANS HOW MUCH MONEYYOU" " ARE GIVING THE CASHIER. " HECOMPUTERWILLTHENMAKE":" THE CHANGE. 835:850A " YPE AT ANY TIME TO RETURN"m " TO THE MENU FOR HELP. OU WILL" " BE RETURNED TO THE PLACE IN THE" " PROGRAM WHERE YOU LEFT OFF AS" " SOON AS THE OPTION FROM THE MENU" " IS COMPLETE."835&UZ1UP%:155,P"":UT,UL%:UW0UY,2:UX,10UT$" HANGEMAKER":UH1:UP0:UG$"EACHER NST":850" O THE BEST OF OUR KNOWLEDGE,"" THIS PROGRAM IS IN THE PUBLIC" " DOMAIN. F THIS IS NOT TRUE,"*" PLEASE CONTACT:"S" ŠӠ"w" 3370 HARMACY VE." GINCOURT, NTARIO"" ANADA, 1 24"" (416) 499-4292"UH1:835:850" ROGRAM AME:HANGEMAKER"C" RITTEN BY :. . ALTERS"i" EVISED BY :UINCY EE"" HIS PROGRAM WILL RUN ON ANY" à2.0 OMPUTER" 4.0 ԠOMPUTER" 8032 OMPUTER+" OMMODORE 64 OMPUTER4I835HNUZ1UP%:155NSUC$"BEFORE RUNNING THIS PROGRAM ON AN 8032" LOAD THE 'CBM 4032' PROGRAM": "";:UT,UU%:UW0UY,1:UX,14!I138:" ";:"I122:" ";:(#I137:" ";:@$I122:" ";:`%" z&"  '"  O M M O D O R E(" )"EDUCATIONAL*"SOFTWARE +"1983\,(UD$,24);"PRESS SPACE BAR OR WAIT"UC$:UI0-UI$:UI$" "UIUI1:UI250813.300CUN,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"HUI$:UI$" "840MRUPUP1:""(UT$UP$,21);(UP$UG$(UP),18)EW" --------------------------------------"\UH0(UD$,24);(UP$,7);"HELP - PRESS H "aUH0:"":k(UD$,24);" ONE MOMENT PLEASE... ":UX$"H":US32768:U1196:U2197:U3198:U4216:UC167:UB1024:UD1084:UE1105aUT59468:UU%12:UL%14:UP%1158:UN158:50003,0:UW(50003):UF(53)UW0US1024:U1209:U2210:U3211:U4214:UC204:UB2048:UX53280:UD2064UW0UT53272:UU%21:UL%23:UP%2151:UN198:UY53281:UU2199:UE2087%UC$(155):UV1214:UW0UF196:UV2238vUD$"":UP$" "|900:"":"": SHIFTED SPACE(US40)96700((0)(((0))0)65536)500935 UC$"THIS MACHINE DOES NOT HAVE ENOUGH"5"MEMORY TO RUN THIS PROGRAM !":UE:K""UC$:UW0965hUF60UF108UF12495052,0:53,UF4::900UW1601103,88:1104,228:1107,85:1111,228:965UW1"THIS PGM WILL NOT WORK ON THIS MACHINE!":UE:%1103,49:1104,230:1107,46:1111,230:965-UD;800:300TUZ1UP%:UP%:UZ0v""UC$;::UW0UY,6:UX,14 BY:LOGICS ONE CONSULTANTS P.O.BOX 41,UTICA,MI.48087 ****************************** CONTRIBUTED TO PUBLIC DOMAIN) BY AUTHOR: G.M.WALTERS 10-79N$ ******************************X.1260{8" B" L" V" $CHANGE MAKER! `" $j" Gt" k~" " " " " ݨ " E" j" " ͦ" X14:" ":X: START OF PROGRAM+:900:C.00000001:VF1:T0.0000QUH1:UT$" CHAGEMAKER":850:1080o CLOSE THE CASH DRAWER**835:" 0000.00 "" TO ENDTO REMOVE"" BUYINGLAST ITEM"*" TYPE:TYPE:VOID">" DONE"r" "" ͦ "" """ ",J$""I6J$" "~;(UD$,24);(UP$,7);"HELP - PRESS H "@J$;" ITEM NAME: ";JUS$"":UL11:35TUR$"DONE"1980^UR$"VOID" VF0 TTC:VF1:1890cUR$"VOID"1600hVF0PrJ$;" "}J$;"PRICE: $";US$".0123456789H":UL6:3000:P$UR$:C(P$)X1(P$):(P$,X,1)"."PPX:PE(P$)XX " .00 " (C)C1800R C$(C):"";7(C$));C$:1840u C$(C):""; PE010(C$));C$;"" PE18((C$)PE));C$;"" &PE18((C$)PE));C$;"" 0TTC :T100001880%!?J$;" THIS STORE ALLOWS NO MORE PURCHASES "T!D" DUE TO YOUR POOR CREDIT RATING! "d!NX11800:!PJ$;" "!R" ":1980!XX1800:X"b" .00 ""l(T)T1910J"qT$(T):"";7(T$));T$:1970"vT1T100:T2(T1):TT2100:T$(T):"";"X1(T$):(T$,X,1)"."PPX:PE(T$)X"X"PE010(T$));T$;"""PE18((T$)PE));T$;""#PE18((T$)PE));T$;"")#1580B# TAX SECTION*******h#F((T.07100).5)100: F = TAXu#FF.001#UFT: U = TOTAL OF ALL GOODS#X1800:X#" .00 TAX"#(F)F2050$F$(F):"SQQ";7(F$));F$:2080U$F1F100:F2(F1):FF2100:F$(F):"";$ F10(F10)9(F$));F$;"TAX":2080$10(F$));F$;"TAX"$ X1800:X$*" .00 TOT"$4U0U$"0.00":2110-%9U1U100:U2(U1):UU2100:U$(U.001):U$(U$,2,(U$)2)H%;(U$,1)"."U$"0"U$c%>"";%HU10(U10)9(U$));U$;"TOT":2140%R10(U$));U$;"TOT"%\J$;" TOTAL OF ALL GOODS & TAX IS: $";U$ &fJ$;" AMOUNT TENDERED: $ ";3&pUS$"H.0123456789":UL6:35:O$UR$E&I$"00000000"x&X1(O$):(O$,X,1)"$"I$(O$,X1,(O$)X)&X&I$"00000000"O(O$):2230&O(I$)&O$(O)&OU2150& O100(O100) 2150& CHANGE SECTION***%'OUJ$;15)"THANK YOU.":835:300D' CH((OU)100): PENNIESO' KHOU' CH100000K1(CH100000):CHCH(K1100000)'$ CH10000K2(CH10000):CHCH(K210000)'. CH5000K3(CH5000):CHCH(K35000)(8 CH1000K4(CH1000):CHCH(K41000)1(B CH500K5(CH500):CHCH(K5500)Z(L CH100K6(CH100):CHCH(K6100)(V CH50K7(CH50):CHCH(K750)(` CH25K8(CH25):CHCH(K825)(j CH10K9(CH10):CHCH(K910)(t CH5K0(CH5):CHCH(K05) )~ UH1:850:7)"AMOUNT TENDERED: $";(O$,2)@) 7)"TOTAL PURCHASES: $";U$\) 7)"YOUR CHANGE IS:"k) K102480) 8((K1)));K1"$1000 BILL ") K202500) 6);K2"$100 BILL ") K302520) 6);K3"$50 BILL ") K402540* 6);K4"$10 BILL " * K502560<* 6);K5"$5 BILL "K* K602580g* 6);K6"$1 BILL "v* K702600* 6);K7"50 CENT COIN"*( K802620*2 6);K8"25 CENT COIN"*< K902640*F 6);K9"10 CENT COIN"*P K002660+Z 6);K0" 5 CENT COIN"N+d KA(K910)(K825)(K750)(K6100)(K5500)(K41000)+n KAKA(K35000)(K210000)(K1100000)(K05)+x CBKH(KA100):CB(CB100.5)+ CB02730+ CB07)"REGISTAR MALFUNCTION"+ 6);CB" 1 CENT COIN"+ , KH(KH100.5)1004, 7)"FOR A TOTAL OF: $";KHB, 835:300g, ******************************, BY:LOGICS ONE CONSULTANTS, P.O.BOX 41 UTICA,MI.48087, ******************************, COMPUTER EDUCATION CONSULTANTS- ******************************@- CONTRIBUTED TO PUBLIC DOMAINd-" BY AUTHOR: G.M.WALTERS 10-79-, ******************************- +++ SPECIAL INPUT +++- UL3:US$"H0123456789":UO,0:UR$"":FL0- UC,0- UI$:UI$""3020. UI$(13)(UR$)1UC,1:" ";:/. UI$(20)3080B. (UR$)13020^. (UR$,1)"."FL0:UL3}. (UR$)3US$"0123456789". UR$(UR$,(UR$)1). " ";:3020. UI$"."FL0FL1:UL(UR$)3:US$"0123456789":3110. (UR$)UL3120/ 95: CHECK FOR VALID CHARACTER8/& UR$UR$UI$:UI$;:3020G/0 FL13020Y/: US$".":3020