' +JJJJ ?\>m 0M='+l> /+l   d]@ŵLҦ]]LF L}BBL]` X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` pp>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#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 ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QLJ̥KlVlXlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff `LLL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`MAKLOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!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- (  @Ҡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ`XL XQTV8 <=C>?Bؠ ,L       紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(`F d ֠z# up189:55,158:43603,240:43604,253:)P0:DDETEB:0,DD279,DD:DD:7:V | X200:Y35:P$"^PAGE "(M):6000 M3100,3110,3120,3130 G15:X25 P$"("(G((M1)5))") "I$(M,G)" $"P$(M,G) 10000:G: X100:P$"^S^A^N(SR$)1SR$"0"SR$,SR$"100"SR$"FF"hSR$"FF"P$"^YOU HAVE A PERFECT SCORE!!!":X10:10000s30070~50000P$"^BYE ...":X30:YY15:1000050100: (4);"RUN MENU"(4);"PR#6" 214,255:177,234:178,234:#54,10000:11000::3059000:(WZ25)85Ē7:Y30:755y9000:7:P$"^C^O^N^G^R^A^T^U^L^A^T^I^O^N^S!!!":X3:Y30:10000P$"^YOU HAVE COMPLETED THIS LESSON.":X10:YY15:10000SR$(25WZ):P$"^YOU SCORED "SR$"%.":X10:Y100:100002454:X3:Y10:0;T110:HC(7(1)1):HC3HC7HC5CHC|X(200(1)3):Y(180(1)10):P$"^GREAT!":10000T:T12:25000C9C91:C9275079000:P$" ^LET'S GO BACK AND ORDER":X3:Y30:10000:P$"SOMETHING ELSE.":X3:HSR$SR$".00"8(SR$)3(SR$,2,1)"."SR$SR$"0"a(SR$)4(SR$,3,1)"."SR$SR$"0"P$"^THE CORRECT CHANGE IS $"SR$P$P$".":X3:1000011000:732T110:HC(7(1)1):HC:0,0:62454::C8C81WZWZ17:0,0:6640)CHBITN:(((A$)CH)).001700?WRWR1:WR2680P$"^NO, THAT IS NOT THE ANSWER.":X3:Y155:10000:T15:25000:11000:80006110:T130160:0,T279,T::7:P$"^THAT WAS YOUR LAST TRY.":X3:Y140:10000SR$(CH):(CH)C:((TN))2P$P$".00"2h((TN))3P$P$"0"PiP$P$".":X3:Y15:10000lP$"^YOU HAVE ONLY A $"(BI)" BILL.":X3:10000vP$"^WHAT IS YOUR CHANGE? $":X3:Y140:10000X190:Y140:MAX5:12000:(A$)0Ē0:T125145:189,T279,T:T:7:^T !":X84:Y90:10000::7:C8C81/YWZWZ1Lb11000:9000:WR0:50100c:(4);"BLOAD DOLLAR.BIN,A$4000":50000:Y91Y90:613dBIBI((4(1)1)):Y91eP$"$"(BI):X35:Y60:10000:X205:Y100:10000gP$"^YOUR TOTAL BILL WAS $"(TN)79,T::7:550pNP$"^THAT WAS YOUR LAST TRY.":X3:Y135:10000:T15:25000:P$"^THE CORRECT TOTAL IS $"(TN)O((TN))2P$P$".00"P((TN))3P$P$"0"SP$P$".":X3:Y165:10000:610#X9000:T115:(7(1)1):P$"^C ^O ^R ^R ^E ^C 00N0X176:Y135:MAX4:12000:(A$)0Ē0:T125140:171,T279,T:T:7:560k:TI((A$,4)):TITN600=0:T125140:0,T279,T:T:7?WRWR1:WR2590DP$"^SORRY, BUT THAT IS NOT CORRECT.":X3:Y155:10000:T15:25000:0:T145160:0,T2000:P$"^T ^O ^T ^A ^L":X108:Y30:10000:736VT02:102,33T178,33T::7P$"^HERE ARE YOUR SELECTIONS:":X3:Y50:10000T14:P$"("(T)") "I$(T,SE(T))" $"P$(T,SE(T)):X3:10000:T&P$"^WHAT IS YOUR TOTAL? $":X3:Y135:100T::7:A$"0":415HP$"^YOU CHOSE =-> "I$(M,SE(M)):X3:Y160:10000aTNTN(P$(M,SE(M)))u11000:9000:MTN(((TN),4))P$"^USE YOUR PAPER TO FIGURE OUT":X3:Y20:10000:P$"THE TOTAL COST OF YOUR MEAL.":X3:1000011000,9E FOR LUNCH.":X3:10000pwP$" ^REMEMBER TO PRESS ^RETURN AFTER":X3:Y84:10000:P$"EACH CHOICE.":X3:10000|11000:9000M14:30004000(A$)0İ4010:415SE(M)((A$)((M1)5))SE(M)1SE(M)5Ē0:T135150:242,T279,203,T01914:0,T20,X:279,T259,X:XX3.15:^67:P$"- ^M^E^N^U -":X108:Y35:10000h@5000tJRR14}OY50TMRR:3000^11010:X0:RR4İ7000cRRh9000rP$" ^NOW, CHOOSE WHAT YOU WOULD":X3:Y40:10000:P$"LIKE TO HAV80:10000:P$"FOOD AND DRINKS":X3:10000:P$"WILL HELP YOU":X3:10000c P$"ORDER.":X3:10000t 11000:9000} X20 6 0,0278,0278,1910,1910,0:20,20258,20258,17120,17120,20 "T02794:T,0X,20:T,191X,171:XX3.42:'XЂ  T15:25000:A$""( 50100R 9000::(4);"BLOAD MENU.BIN,A$4000"] 50000 P$"^IT'S TIME FOR":X0:Y20:10000:P$"LUNCH, "NA$".":X0:10000:P$"^HERE'S THE MENU.":Y50:X0:10000 T13:25000 3H P$"^THIS LIST OF":X3:Y" =T1(NA$LN$):R(1):Tk=T09:NU$(T):T: ZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,SEVEN,EIGHT,NINE=I110:AM$(I):I=I15=J((1)101):TA(J)62084=PR$(I)AM$(J):TA(J)1:I> "$20.5432","$18.6189","$11.7154","$14.3897","$,4080 <0'<:38210,14: SET SPACINGCv768,104:769,168:770,104:771,166:772,223:773,154:774,072:775,152:776,072:777,096z8HvER(222)8Rv7688fvER4303608zvER9305408v1000::(4);"CLOSE ":(4);"RUN MENU"8vREBOOT8v2000:10:59v" ^PLEASE REMOQ 7uLI$7u(NW)30190<7u(4);"WRITE ";FI$;",R";RQ1E7uLI$b7u(4);"WRITE ";FI$;",R0"j7uS$|7u(4);"CLOSE"7u7v(4);"READ ";FI$;",R0"7 vRQ7v(4)7 vRQRQ17*vS$"":I138:S$S$" ":I:S$(RQ)S$:S$(S$,40):84v ERRO(LI$,ZZ15,1)" "ZXZZA6luZZ:NA$(LI$,16,ZX):LN$(LI$,ZY):h6vu1000:LL41:FI$"STUDFILE":302606{u:(4);"OPEN ";FI$;",L";LL6uNW1İ302106uCL(CL1)2316uLZ$(LI$,CL1)SR$(LI$,CL2)6uLI$(LZ$,40)7u(4);"WRITE ";FI$;",R";R1(R$):"^";(R$,I,1);:I:F5HT10,2:T200,3:T100,4:T50,2:T200,4W5 IT11000:T]5 It50uLL41: GET INFO 5:uLI$"":ZZ1LL:LI$LI$((592ZZ)):ZZ:NW(591)5DuRQ(590)256(588)5NuCL(589)15XuZZ115:(LI$,ZZ,1)" "ZYZZ6bu(I)(15I))2):1845094GH(I)H(I)1((H(I)(15I))2)K4HV(I)718500T4HQS1_4H184624HV(I)7V(I)V(I)1((V(I)7)2):185004HV(I)V(I)1((V(I)7)2)4HV(I)V(I)1:V(I)17V(I)V(I)24DHI4H7:(QWQS)0183405H7:12:IH(I)((1)341):18320.3GV(I)((1)131)53GID3GI1(R$)c3GH(I):V(I):"^";(R$,I,1)w3GTV(I)H(I)I,3~3GI3G03GQW0:QS03GI1(R$)3GH(I):V(I):"^";(R$,I,1)3GH(I)15I184503GQW14GH(I)15IH(I)H(I)1((H"26"DECIMAL POINT IN .06?"C264:" $12.50 ->2":" .06 ->2"T2620,7290,72g26" 75 00 4"q2634502PFR$R$(((1)61))2FI1(R$)2GH(I)(1)200:H(I)(H(I)100)(33)342|GV(I)(1)200:V(I)(V(I)100)(12)133G(1)2001001.4:" $12.50 ->2":" .06"01.20,7270,72?1/" 75 00"I1/3380o12:"^HOW MANY NUMBERS FOLLOW THE"12"DECIMAL POINT IN .06?"124:" $12.50 ->2":" .06 ->2"1220,7270,7212" 75 00"12338026:"^HOW MANY NUMBERS FOLLOW THEP$"^L ^E ^S ^S ^O ^N # 1 :":X40:Y120:100006 7e P$"^PAYING FOR A ^MEAL":X70:Y150:10000 K150:PO(19(1)1) V(255(1)1):20952PO,V J110 V(255(1)1) T2095320972 T,V: T2095320972:T,255:1 71 <T17H F0T,0T279T,0T279T,191T0T,191T0T,0TN PU Z7 nX90:Y30:P$"^HELLO!":10000:X20:Y50:P$"^WELCOME TO...":10000:X40:Y80:P$"^MATH FOR ^EVERYDAY ^LIVING":10000 s6 xT13:35,85T230,85T: }2/ ,^SALAD,^COLE ^SLAW,^PICKLESP ^FRUIT,^PUDDING,^ICE ^CREAM,^CAKE,^NO ^DESSERTw ^MILK,^JUICE,^SODA,^COFFEE,^SHAKE T14:J15:A$:I$(T,J)A$:J,T #7:WR0:C80:TN0 (T14:X:BI(T)X::5,10,20,50 -230,64:62450: /ZP257 0ZP16368,0:38219,7:CM(0)J0+13:" (^PRESS THE ^SPACE ^BAR TO CONTINUE)"c0 +AC$:AC$" "11020p0+38219,80+25113,179:25114,1900+25115,39:25116,1:25145,40:251540 +0.:"^HOW MANY NUMBERS FOLLOW THE"0."DECIMAL POINT IN $12.50?""10010"/*'Z$"."K8$"Y":10030;/,'Z$"0"Z$"9"10010Q/.'(N$)(MA)10010j/8'Z$;:N$N$Z$:10010{/L'N$""10010/Q'(N$,1)"."K8$""/V'(N$)1Ē0:(36):N$;:(36):7:10000/`'0:(36):(N$,1);:(36):N$(N$,(N$)1):7:100100*SSON."'.|1000::"^BYE, ";NA$;" ..."D.1000::(4);"RUN MENU"S.214,255:Y.'j.'N$"":K8$"".'16368,0:Z$:(Z$(13))(N$"")ı.'(Z$" ")(Z$"-")(Z$(13))10010.'(N$)(MA)Z$(8)10010.$'Z$(8)10060/)'Z$"."K8$"Y@10&-J"^WELL, ";NA$;", OUT OF 10"H-T"PROBLEMS, YOU ANSWERED ";SP\-^"CORRECTLY.":-_SR$(10SP):(SR$)1SR$"0"SR$-`SR$"100"SR$"FF"-a30070-c2000-d:5-hSP10ĺ"^THAT'S A PERFECT SCORE!":.r"^THAT'S ALL FOR THIS LE,I11000:I:8:" $"K,T11000:T:73,10480,115:81,10488,115Z,11000:10,4:" ";A1$:" X .0";(A2$,1),30,7390,73," $";(T$,(T$)2):,$"^THE SALES TAX ON THIS PURCHASE",."IS $";A3$,811000:10:4460-+\11000:105+f"^SINCE THE ANSWER IS IN DOLLARS"\+p"AND CENTS, CROSS OUT THE LAST 2"o+z200,26250,26+"NUMBERS AND WRITE A DOLLAR SIGN"+"IN FRONT OF THE ANSWER.":+" ";A1$:" X .0";(A2$,1)+32,10090,100," ";T$5(T$,3,1)"."T$T$"00"J*/(T$)5(T$,2,1)"."T$T$"0":T$" "T${*0(T$)3(T$,2,1)"."T$T$"000":T$" "T$*1(T$)4(T$,3,1)"."T$T$"000"*2(T$)6(T$,2,1)"."T$" "T$*4" ";T$*>T120:0:8:5:T$:8:5:7:T$:T"T$(((A1$,3))((A2$)100)):S8$"":4650P)%T$(((A1$,2))((A2$)100))x)*(T$)3(T$,3,1)"."T$T$"0000")+(T$)2(T$,2,1)"."T$T$"0000":T$" "T$),(T$)4(T$,2,1)"."T$T$"00")-(T$)6(T$,3,1)"."T$T$"0"*.(T$) ANSWER."4("^PLEASE TRY AGAIN.":11000:10:4480?(10:2d("^PLACE A DECIMAL POINT IN THE"( "ANSWER SO THAT 4 NUMBERS FOLLOW"("IT."((A1$)6A1$" "A1$:S8$"Y"(:" ";A1$:" X .0";(A2$,1)( 32,10090,100-)#S8$"Y)'"AND TYPE YOUR ANSWER. ^BE SURE TO"P'"GIVE YOUR ANSWER IN THE CORRECT"j'"DOLLARS AND CENTS."'"->$";:MA5:10000:'(A3$N$)(A3$(N$".00"))RT11:SPSP1:60000'WR4600'WR1'10:"^SORRY, ";NA$;"," ("THAT IS NOT THE;"."&11000:4080;&010:6:"^LET'S TRY ANOTHER TYPE"S&:" OF EXAMPLE."^&D11000g&bCW0&lCWCW1:WR0:CW58000&v50000&3:"^FIND THE SALES TAX ON A PURCHASE"&"OF ";A1$;" AT ";A2$;"."':"^DO THIS EXAMPLE ON YOUR PAPER"(CW),6,1))1%T1500:T;%0:5:32:(PR$(CW),2):7p%C2((PR$(CW),1))17:C1(((PR$(CW),2),1))17%T801802:C1250,T:C2259,T%TT,2%C1250,T:C2259,T:T&10:"^THEREFORE, THE ANSWER IS ";(PR$(CW),5);((PR$(CW),6,1))1^O^R ^M^O^R^E,""$w168,27246,27E$|"ADD $ .01 TO THE SALES TAX."n$:" ";PR$(CW);" BECOMES ";PR$(CW)~$T1500:T$I2731:0:5:I:(PR$(CW),2):7:5:I1:(PR$(CW),2):I$T1500:T %5:26:0:(PR$(CW),6,1);:(36):7:((PR$:1:7:7:(PR$(CW),7,1):TB#T5:"THE DOLLARS AND CENTS STAYS"V#X"THE SAME.":0q#\1:7:(PR$(CW),7):7#^8:"^THEREFORE, THE ANSWER IS ";(PR$(CW),6);"."#c11000:4080#h10:"^IF THE DIGIT THAT FOLLOWS THE"$r"DOLLARS AND CENTS IS 5 T IS NOT THE ANSWER."@",:"^TRY AGAIN.":11000:10:WR1:4085^"5((PR$(CW),7,1))44200o"610:PR$(CW)";:"^IF THE DIGIT THAT FOLLOWS THE""@"DOLLARS AND CENTS IS ^L^E^S^S ^T^H^A^N 5,""J170,55260,55#OT115:0:1:7:(PR$(CW),7,1)"^TYPE THE CORRECT SALES TAX IN":!"DOLLARS AND CENTS."T! "->$";:MA5:10000:!SW0:W((((PR$(CW),2))1000))10:(W(W)).49W(W)1:SW1!W(W)100:(W(N$)).001RT12:SPSP1:60000!WR4149!"10:"^SORRY, ";NA$;",""'"THA59,T:TT,2% 24250,T:20259,T:TJ 7:"^NOW, TRY SOME EXAMPLES ON"[ "YOUR OWN."f 11000o CW0 CWCW1:WR0:10:CW54450 PR$(CW) "^THIS IS THE ANSWER TO A MULTI-" "PLICATION EXAMPLE INVOLVING SALES" "TAX.": !"ADD $ .01 TO THE SALES TAX."F:" $22.1273 BECOMES $22.1273"VT1500:TI2731:0:5:I:"73":7:5:I1:"73":IT1500:T5:26:0:"2";:(36):7:"3"T1300:T0:5:32:"73":7 T801802:24250,T:202T BE PURGED OR ERASED IF"9$$ "ADDITIONAL STUDENTS ARE "R$. "TO USE THIS DISK."\$8 1950f$B 2110l$ "PRESS THE ^R^E^T^U^R^N KEY."7#A$:A$(13)2180C#1770:I#S#2110d# 1780:30:5# " ^THE STUDENT SCORES FILE"# "MUST BE PURGED OR ERASED IF"#$ "ADDITIONAL STUDENTS ARE "#. "TO USE THIS DISK."#8 1950#B 2110# .SDENTS ARE "$". "TO USE THIS DISK."."8 19508"B 2110>" 130T"4ER92310q">1770::(4);"CLOSE ":}"HREBOOT"R1780:30:5"\" ^PLEASE REMOVE THE WRITE PROTECT""f"TAB FROM THE DISKETTE THEN""p"PLACE IT INTO THE DRIVE AND"#z"TAB FROM THE DISKETTE THEN"?!p"PLACE IT INTO THE DRIVE AND"b!z"PRESS THE ^R^E^T^U^R^N KEY."z!A$:A$(13)2180!1770:!!2110! 1780:30:5! " ^THE STUDENT SCORES FILE"! "MUST BE PURGED OR ERASED IF" "$ "ADDITIONAL STU:769,168:770,104:771,166:772,223:773,154:774,072:775,152:776,072:777,096_ ER(222)h 768y ER2552110 ER42130 4ER92310 >1770::(4);"CLOSE ": HREBOOT R1780:30:5 \" ^PLEASE REMOVE THE WRITE PROTECT"!f3:"(^PRESS THE ^SPACE ^BAR TO CONTINUE)"AAC$:AC$" "1970P38219,8:MAX11:30:3:"^ENTER STUDENT'S LAST NAME.":">";:1830LN$N$:7:"^ENTER STUDENT'S FIRST NAME.":">";:1830NA$N$: ERROR TRAP ROUTINEQ 768,104A$(32)1840 XA$(8)19208bA$"A"A$"Z"1840Ll(N$)MAX1840dvA$;:N$N$A$:1840v(N$)01840(N$)1Ē0:(36):N$;:(36):7:1830A$(N$,1):N$(N$,(N$)1):0:(36):A$;:7:(36):184016368,00:38219,7)143604,148:/(LI$)LLLI$LI$(13):1790bI1LL:592I,((LI$,I,1)):I:591,NW:589,A590,(RQ256):588,(RQ(590)540):54,189:55,158:43603,2:43604,193:&N$""016368,0:A$:N$""A$(13)1840DA$(13)ıNT1:RN$((RT)SP$SP$SP$SP$SP$,40)D(4);"WRITE ";FI$;",R0"MRN$_(4);"CLOSE"eZZ115:(LI$,ZZ,1)" "ZYZZ:(LI$,ZZ15,1)" "ZXZZZZ:54,189:55,158:43603,240:43604,253: 54,237:55,148:43603,237: ";FI$  GET""1770:@,(4);"READ ";FI$;",R";RNI6LI$U@(4):~J DYNAMIC DELETING RECORDS BY J.M.W.T1770:^RNRQ1690h(4);"READ ";FI$;",R";RTrL$|(4);"WRITE ";FI$;",R";RQ(L$,40)(4)'RTRR0" xRT(4)+NS0:RT0NS1:1< FINDH1770:URQ1RTs(4);"READ ";FI$;",R";RQ|LI$(4)((LN$SP$,15)(LI$,15))((LI$,16,15)(N$SP$,15))NS1:RQ:NS0: CLOSE1770:(4);"CLOSE"-("THE STUDENT FILE (^Y/^N)?";:16368,0L2A$:(A$"Y"A$"N")1330g<A$:A$"N"İ1520:100F:"^PURGING FROM FILE":1610:1780:8:" *** ^D^O^N^E ***":1950:100P OPENZ1770:d(4);"OPEN ";FI$;",L";LLn(4);"READ ";FI$;",--==--==--==--=":7:"= ^STUDENT FILE HAS ="H"= BEEN ERASED ="u1:"=--==--==--==--==--=":7:1950:100 NS1İ1360:4501990:1360:1440:NS0İ1520:530:1950:1001780:30::"^ARE YOU SURE ABOUT PURGING":LN$;", ";NA$;" FROMA$"N"ī100D30:5:7:"*** ^PURGING ***":7:"*** ^FILE ***"sZ$"":J139:Z$Z$" ":J:Z$"0"Z$(13)1770:::(4);"DELETE ";FI$:(4);"OPEN";FI$;",L";LL(4);"WRITE ";FI$",R0":Z$:(4);"CLOSE ";FI$1780:30:1,4:"=--==IVIDUAL STUDENT":" FROM FILE"M~:"<2> - ^ERASE ENTIRE STUDENT FILE"|:"^ENTER SELECTION (1 OR 2):";:16368,0A$:(A$"1"A$"2")1170A$:A$"1"1290:"^ARE YOU SURE (^Y/^N):";:16368,0A$:(A$"Y"A$"N")1200 560:600:(RP)İ1950:301$RNRN1:RNRT1090P.1560:RPİ1820:600:1060i8600:1950:30:1060wBRPİ1780L30:6:11:"*** ^D^O^N^E ***":1950:100V1950:100` ***PURGE***j30::"^WHICH DO YOU WANT?"#t:"<1> - ^PURGE INDSZ$"OKI"ı540+I170:"-";:I:V20);"EDUCATIONAL ACTIVITIES, INC.":13);"MATH FOR EVERYDAY LIVING - STUDENTS' SCORES"I170:"-";:I:::(4);"PR#0":RPİ1770::(4);"PR#1":1000(RP)İ30RN1:11*(RP)PS$(I):3(PS$));PS$;".";[(RP)ĭSR$EE$ĺTB);"^NOT TAKEN YET.":782mRP0Ė5:780u 19 TB);SR$;:SR$EE$ĺ"%"; (RP)ĺRPSR$" "ĺ" ";SR$"100"TBTB1I::RPĺALı 1780:1950:30:30);" SCORES"*30);" ------"820);"";CI15\" ";I;" ";:I:j18);"";I15:" -";:I:19);TB04:(RP)TB02I15:P31(I1)2:SR$(LI$,P,2):SR$"-1"SR$EE$SR$"FF"SR$"100":TBTBɺ"STUDENT: ";YEE$"***"Kb(RP)İ1740:1780:30:"^S^T^U^D^E^N^T: ";`c(LI$,ZY);", ";zg(RP)ĺ:" ";h(LI$,16,ZX):lRP1621,680m5);"^S^C^O^R^E^S":5:(37)v(95);(95);(95);(95);(95);(95)750ENT: ";LN$", ";NA$:"IS NOT ON FILE.":s5:"^DO YOU WISH TO EXAMINE ANY":"OTHER STUDENTS (^Y/^N)?";:16368,0&A$:A$"N"İ1520:1000A$"Y"510:550D1780:RPİ1770::(4);"PR#1":1000:600N610 XRPİ1820:1740:(4);"PR#1": SCORES TO:"::"<1> - ^THE ^SCREEN"::"<2> - ^THE ^PRINTER":o::"^ENTER SELECTION (1 OR 2):";:16368,0B$:(B$"1"B$"2")480RP0:B$"2"RP1AL1510,10301990:1770:1440:NS15801780:530:540'1780:30:"^STUDCORES FOR ENTIRE FILE"G::"^ENTER SELECTION (1 OR 2):";:16368,0eA$:(A$"1"A$"2")420A$:AL0:A$"2"AL11360:NS0İ1780:4601780:30:5:11:"^NO STUDENTS":13:"ON FILE":1520:1780:1950:100>30:"^DO YOU WANT THE:(4);"BLOAD TOL,A$6400":(4);"BLOAD PRT.PIC.BIN"e j(A$"3")(A$"5")Ĺ1013,76:1014,00:1015,03r m38200,3 q:(4);"RUN MATH.";A$ rREBOOT | ***SCORES*** 30::"^WHICH DO YOU WANT?":"<1> - SINGLE STUDENT'S SCORES"::"<2> - SCH LESSON DO YOU WANT TO WORK":"ON, ";NA$;"? (1 - 5):";:16368,0] "A$:A$"1"A$"5"290y ,A$:A(A$)1:RE1340 6 @ J T30:6:5:"=-> ^LOADING ^LESSON ";A$;" <-=" ^1790 h1770:3 i(A$"3")(A$"5")ĺ(4);"BLOAD SOUND.IT"    8 USED TO BE TEACHER MSG> D J P V \ b h q RE1 30::" (1) - ^LESSON 1":" (2) - ^LESSON 2" SZ$"" " (3) - ^LESSON 3":" (4) - ^LESSON 4" " (5) - ^LESSON 5"B 8:"^WHI, ";NA$;".":::"^TYPE IN YOUR LAST NAME."6 MAX12O :">";:1830:LN$N$ 1770:1360:NS0N$(NA$,(NA$)1):1440:1520:1780:NS1NW0:210 1520 1780:LI$(LN$SP$,15)((NA$,(NA$)1)SP$,15)"-1-1-1-1-1"(13):NW1:260  " ZTB14. d1780:30::MAX8:X(0):RE0C n:"^HELLO!":: x"^PLEASE TYPE IN YOUR FIRST":"NAME, THEN PRESS ^R^E^T^U^R^N." }"^ONLY TYPE 8 LETTERS." :">";:1830 N$"PURGE"1120 N$"SCORES"380 NA$"^"N$:30+ :"^O^K? 3000! --- MENU --- A 1013,76:1014,88:1015,255_ :(4);"BLOAD SOUND.BIN"g40v62450::(28672:1:0:7238210,14:975,0:<38200,5F38219,8:33,36:35,13:230,64 PLL41:FI$"STUDFILE":SP$"            ,v30340,Lw2000:9000:5?,Vw" ^THE STUDENT SCORES FILE"b,`w"MUST BE PURGED OR ERASED IF",jw"ADDITIONAL STUDENTS ARE ",tw"TO USE THIS DISK.",~w11000,w30340'000::(4);"CLOSE ":(4);"RUN MENU"1+vREBOOTD+v2000:9000:5m+v" ^PLEASE REMOVE THE WRITE PROTECT"+v"TAB FROM THE DISKETTE THEN"+v"PLACE IT INTO THE DRIVE AND"+v"PRESS THE ^R^E^T^U^R^N KEY."+vA$:A$(13)30410+v1000:,vv(4)* vRQRQ1K**vS$"":I138:S$S$" ":I:S$(RQ)S$:S$(S$,40):d*4v ERROR TRAP ROUTINE*>v768,104:769,168:770,104:771,166:772,223:773,154:774,072:775,152:776,072:777,096*HvER(222)*Rv768*fvER430360*zvER930540%+v131&)uLZ$(LI$,CL1)SR$(LI$,CL2)8)uLI$(LZ$,40)W)u(4);"WRITE ";FI$;",R";RQ`)uLI$q)u(NW)30190)u(4);"WRITE ";FI$;",R";RQ1)uLI$)u(4);"WRITE ";FI$;",R0")uS$)u(4);"CLOSE")u)v(4);"READ ";FI$;",R0") vRQ*)(DuRQ(590)256(588)*(NuCL(589)1O(XuZZ115:(LI$,ZZ,1)" "ZYZZn(bu(LI$,ZZ15,1)" "ZXZZ(luZZ:NA$(LI$,16,ZX):LN$(LI$,ZY):(vu1000:LL41:FI$"STUDFILE":30260({u:(4);"OPEN ";FI$;",L";LL(uNW1İ30210)uCL(CL1)2" (^PRESS THE ^SPACE ^BAR TO CONTINUE)":AC$@'+AC$" "11000M' +38219,8W'+ENıq'+25113,175:25114,191'+25115,39:25116,1:25145,40:25154:'2:T91T1500:T9:'0uLL41: GET INFO (:uLI$"":ZZ1LL:LI$LI$((592ZZ)):ZZ:NW(591&+'A$"0"A$"9"10010-&.'(N$)MAX10010T&8'X1X11:Y:X1:A$:N$N$A$:10010g&L'(N$)010010&V'(N$)1Ē0:Y:X1:N$:X1X:7:N$"":10010&`'A$(N$,1):N$(N$,(N$)1):0:Y:X1:A$:X1X11:7:10010&*16368,0:38219,7:CM(0),'+13:1):N1100050001%N2(99(1)1):N2105010N%N3N1N2:(N3)N35000T%u%@T(5(1)1):10:16:R$(T)%J(WA)CCCC1%%(#62450:1:1:%'X1X:N$""%'16368,0:A$%%'N$""A$(13)10010%''A$(13)ı%)'A$(8)1006010ĺ"^THAT'S A PERFECT SCORE!!!"[$:"^THAT'S ALL FOR THIS LESSON.":"^BYE, ";NA$;"..."$SR$(10CC):(SR$)1SR$"0"SR$$SR$"100"SR$"FF"$30070$:(4);"RUN MENU"$(4);"PR#6":214,255:$11000:1000::%N1(9999(1)RY AGAIN.":4600Z# 9:" ^THAT IS STILL INCORRECT.":" ^THE CORRECT ANSWER IS ";N3;"."f#*WWWW1t#\11000:P#f9000::"^WELL, ";NA$;", LET ME TELL YOU":"HOW YOU DID."#p:"^OUT OF 10 PROBLEMS, YOU ANSWERED":10WW;" CORRECTLY."!$zWW0CC) 302609:(4);"BLOAD SOUND.BIN":28672:60000N38210,14:30000cZZ0:NA$"^"NA$r1:0:WZ0P$(4,5),I$(4,5),SE(4) MATH.1 ^TUNA ^FISH,^GRILLED ^CHEESE,^CHICKEN,^HAMBURGER,^CHEESEBURGER ^ONION ^RINGS,^FRENCH ^FRIES             0:10,T270,T:T:7-"N$(N3)İ8000:4700<" WAWA1:0["T7383:70,T200,T:T:7"WA1WW3Ģ9:" ^THAT IS INCORRECT. ^LET'S LOOK":" AT THE EXAMPLE AGAIN.":300#WA1Ģ9:" ^CHECK YOUR WORK CAREFULLY.":" ^THERE IS AN ERROR.":" ^T:T !7$!3:4:"^PROBLEM #";P.!5000D!7:15:N2;" ";N1m!132,99132,87170,87:133,99133,87!9:" ^WORK OUT THIS PROBLEM ON":" PAPER AND THEN TYPE IN YOUR"!" ANSWER."!X21((N3)):Y6:MAX((N3)):10000"0:T12017HELP":"YOU FIND THE NUMBER OF MILES"c "TRAVELED BY DIFFERENT CARS ON 1":"GALLON OF GASOLINE."t 11000:9000 EN1:WW0:P110 9000:WA0 T(7(1)1):T0T3T4T74530!T:T03:0T,0T279T,0T279T,191T0T,191T0T,0T((T6N2)):"-";T6N2<58,72(30FL)81(U8),72(30FL)Q6(2FL):11:0b11000:9000:" ^NOW THAT YOU HAVE SEEN HOW TO":"SOLVE A DIVISION PROBLEM, TRY""SOME ON YOUR OWN."11000:9000% :" ^THESE DIVISION EXAMPLES WILL " ";N2;" IN ";T5;".":4190OT11:"^THERE ARE ";C$(T6);" ";N2;"'S IN ";T5;"."y^11000:0:T104175:0,T279,T:T:7h10:"^YOU WOULD WRITE ";T6;" IN THE ANSWER."rT115:0:1:9U:T6:T1.5:13000:7:1:9U:T6:13000:T|5(2FL):11) T6(T5N2)=8:"^HOW MANY ";N2;"'S ARE IN ";T5;"?"o"9:"^TYPE THE NUMBER.":X18:Y9:MAX1:10000,N$(T6)Ģ10:"^THAT'S RIGHT!!!":417060:T100140:0,T279,T:T:7@9:"^NO, THAT'S NOT IT."JT61Ģ11:"^THERE IS ";C$(T6); 58,7281(U8),72I& 6:11((T2(T3N2))):T2(T3N2):TRT2(T3N2)s0 11000:0:T100120:0,T279,T:T:7} UU17:"^NOW BRING DOWN THE LAST NUMBER."LLLL30:930:110000:T90105:0,T279,T:T:7T5(TR10)(((N1),1);".":3070? 10:"^THERE ARE ";C$(T3);" ";N2;"'S IN ";T2;"."h 11000:0:T75150:0,T279,T:T:7 8:"^YOU WOULD WRITE ";T3;" IN THE ANSWER." T115:0:1:9U:T3:T1.5:13000:7:1:9U:T3:13000:T 5:10((T3N2)):"-";T3N2ANY ";N2;"'S ARE IN ";T2;"?", T3(T2N2)^ 8:"^TYPE THE NUMBER.":X18:Y8:MAX1:10000 N$(T3)Ģ9:"^THAT'S CORRECT!!!":3050 0:T105120:0,T279,T:T:7 8:"^NO, THAT'S NOT IT."  T31Ģ10:"^THERE IS ";C$(T3);" ";N2;" IN ";T2XX,T)769,35:768,T:770:NNXX,T:TENNXX,LL:NNXX1,LL:m11000:0:T7590:0,T279,T:T:7T2(T110)(((N1),2U,1))300054,189:55,158:43603,240:43604,253:54,237:55,148:43603,237:43604,148: 6:"^HOW MTHE NUMBER BY WHICH":"YOU ARE DIVIDING, USE A LARGER":"NUMBER IN THE ANSWER."Z11000|0:T60160:0,T279,T:T:7U2FL0:40006:"^BRING DOWN THE NEXT NUMBER."LL53:930:955XX67(U8):NN(((N1),2U,1))17:T23LL:NN\50,4273(U8),426fT1(((N1),1U))(NTN2)Up4:9U((T1)):T1:TRT1z5:" ^SINCE YOU ARE DIVIDING BY ";N2;",":"THE ANSWER WHEN YOU SUBTRACT MUST":"BE ^L^E^S^S ^T^H^A^N ";N2;"."O" ^IF THE ANSWER IS THE SAME OR":"GREATER THAN OLLARS";"AND CENTS? ^TYPE YOUR ANSWER.";:MA1:10000:TN$"7"RT10:60000{"^NO, THAT'S NOT IT. ^THE ANSWER""IS 7."11000:10"^IF THE DIGIT THAT FOLLOWS THE""DOLLARS AND CENTS IS 5 ^O^R ^M^O^R^E,"163,25241,25 _"STAYS THE SAME.",d0::" 10":7;n11000:10Ks"$22.1273"qx:"^HERE IS ANOTHER ANSWER TO A"z"MULTIPLICATION EXAMPLE INVOLVING"|"SALES TAX. ^THE ANSWER SHOULD BE"~"IN DOLLARS AND CENTS.":"^WHAT DIGIT FOLLOWS THE D1":1:7:" 1":T%<11000:105F"$38.4210"]P:"^IF THE DIGIT THAT FOLLOWS THE"T"DOLLARS AND CENTS IS ^L^E^S^S ^T^H^A^N 5,"U167,56254,56XT115:0:1:" 1":1:7:" 1":TY5Z"THE DOLLARS AND CENTS AMOUNT":T115:0:1:"$38.42":7:1:"$38.42":TQ7:"^WHAT DIGIT FOLLOWS THE"k "DOLLARS AND CENTS?""^TYPE YOUR ANSWER. ->";:MA1:10000:N$"1"RT9:60000(:"^NO, THAT'S NOT IT. ^THE ANSWER"-"IS 1."2T120:0:1:" 235.60":" X .05":"$11.78 00"?71,4462,57:61,4454,57P02,4371,43_11000:10o"$38.4210""^THIS IS THE ANSWER TO A MULTI-""PLICATION EXAMPLE INVOLVING""SALES TAX. ^THE ANSWER SHOULD BE""IN DOLLARS AND CENTS."/ THIS EXAMPLE"6"ON YOUR PAPER AND THEN TYPE YOUR"W"ANSWER. ->$";:MA5:10000|((N$)11.78).001RT8:60000WR3780WR110:"^SORRY, ";NA$;", THAT IS INCORRECT.""^PLEASE TRY AGAIN."11000:10:3700!10::" $ .06":"$.75"::#02,5555,55J"^THE SALES TAX ON THIS PURCHASE"f"IS $ .75.":11000:10oWR0t5:"^THE PRICE OF A CAR STEREO"~"IS $235.60. ^THE SALES TAX IS 5%.":"^FIND THE AMOUNT OF SALES TAX ON""THIS PURCHASE. ^DO0,7050,701 "^SINCE THE ANSWER IS IN DOLLARS"X "AND CENTS, CROSS OUT THE LAST 2" "NUMBERS AND WRITE A DOLLAR SIGN" "IN FRONT OF THE ANSWER." T11000:T 7:"$" 40,7547,83:49,7556,83 11000:10 ::" $12.50":" ((N1),1U);"."P4T115:0:1:8U:NT:T1.5:13000:7:1:8U:NT:13000:T>8:"^SINCE ";NT;" TIMES ";N2;" IS ";NTN2;",":"SUBTRACT ";NTN2;" FROM ";((N1),1U);"."C11000H0:T75128:0,T279,T:T:7R3:8U((NTN2)):"-";NTN2NT1Ģ10:"^THERE IS ";C$(NT);" ";N2;" IN ";((N1),3);".":74010:"^THERE ARE ";C$(NT);" ";N2;"'S IN ";((N1),3);"."11000 9000:51,2551,1390,13:52,2552,13:2:5:N2;" ";N1%UU1*6:"^YOU WOULD WRITE ";NT;" ABOVE THE ";;U1$0:T2545:56,T69,T:T:7T68,2868,4070,40:59,2561,2875,2877,258:"^TYPE THE NUMBER.":X18:Y8:MAX1:10000NT((N110)N2)(N$)NTĢ9:"^YES!!!":7200:T105120:0,T279,T:T:78:"^NO, THAT'S NOT IT."CNT1Ģ10:"^THERE IS ";C$(NT);" ";N2;" IN ";((N1),2);".":530}10:"^THERE ARE ";C$(NT);" ";N2;"'S IN ";((N1),2);"."11000:NT8000:T7384:165,T190,T:T!T105150:0,T279,T:T&7:6:24:(95):6:22:((N1),3);"?"XU(95)&0:T2545:56,T64,T:T:7P64,4064,28:59,2561,2867,2869,258:"^TYPE THE NUMBER.":X18:Y8:MAX1:10000NT((N1100)N2)(N$)NTĢ9:"^YES!!!":5100:T105120:0,T279,T:T:78:"^NO, THAT'S NOT IT."@RE ARE ZERO ";N2;"'S IN ";((N1),1);"."uT115:0:2:8:((N1),1):T1.5:13000:7:2:8:((N1),1):13000:T11000:0:T011:0,60T205,60T:TT7384:165,T190,T:TT120130:0,T200,T:T7:6:22:((N1),2);"?":6:23:O THIS EXAMPLE, THINK!":"^HOW MANY ";N2;"'S ARE IN ";((N1),1);"?":6:22:(95)iJT8590:172,T:TTT172215:T,90:T^T90401:215,T:ThT215601:T,40:TrT40251:60,T:T:56,3059,2561,2564,30w11000(9:"^THEAL AMOUNTS,":"YOU DIVIDE. ^TRY AGAIN."1190:"^THAT IS STILL NOT CORRECT.":"^THE CORRECT CHOICE IS TO DIVIDE.":300,11000:9000:EN0:U0-LL23:FL1:CC0:WW0:WR0151,2551,1390,13:52,2552,1362:5:N2;" ";N1R@5:"^TO DYPE ^A,^M OR ^D. ";B16368,0:A$:A$"A"A$"M"A$"D"220N"^";A$vA$"D"ĺ:"^THAT IS CORRECT!":300WRWR1:WR2WR0:270:"^NO. ^THAT IS NOT CORRECT.":11000:9000(" ^WHEN YOU KNOW THE TOTAL AND YOU":"WANT TO FIND EQU"MILES USING ";N2;" GALLONS OF GAS."::"^LET'S FIGURE OUT HOW MANY MILES IT"} "CAN TRAVEL ON 1 GALLON.":5:15:(95) 11000:9000:" ^WHAT MUST YOU DO TO FIND THE":"ANSWER?" :" ^A) ^ADD":" ^M) ^MULTIPLY":" ^D) ^DIVIDE"8:"^T9000K x2:NA$;", WHEN YOU BUY A CAR,":"ONE OF THE MANY THINGS YOU MUST"z "THINK ABOUT IS HOW MUCH GAS IT":"USES." T14:13000:50:5000 0:T188191:0,T279,T:T:7:11000:9000 " ^THIS CAR CAN TRAVEL ";((N1),1);",";((N1),3)P 4:U:11:7:4:T2z 0:T030:0,T279,T:T:7B{ T1500:Te| 0:T120170:0,T279,T:T:7 :"^PLACE A DECIMAL IN THE ANSWER" "SO THAT 4 NUMBERS FOLLOW IT." U1::" ." 11000:10 4:" $12.50":" .06":" .75 00"  1 MANY NUMBERS FOLLOW THE"7R "DECIMAL POINTS IN ALL?"H\ 70,7290,72ef U:10:"?";:MA1:10000}p N$"4"RT7:60000t U:10:0:"?";N$:7u 9::"^SORRY, ";NA$;", THAT IS NOT CORRECT."v "^THE CORRECT ANSWER IS 4."w T115:U:11:0:HE 0."#% U5ĺ"THE 0 AND THE 6."<* "^THE ANSWER IS 2."G+ 11000j, 0:T115191:0,T279,T:T:7/ U:11:0:N$;:(36):7:"2"4 UU1:U5ı9 0:::18:"$12.50?":7:2:19:".06?"> 3335C 0:T030:0,T279,T:T:7H :"^HOW7270,72 " 75 00"T T115:0:U:" ";JJ$(U3):7:U:" ";JJ$(U3):Tq U:9:"->";:MA1:10000 N$"2"RTU:60000 :9:"^NO, ";NA$;", THAT IS INCORRECT." "^TWO NUMBERS FOLLOW THE DECIMAL" "POINT:";:U4ĺ" THE 5 AND TPOINT(S)." T1500:TE 4:" $":0:4:" 12":4:7:" 12."U T1500:Tc " .0"n 11000v 10 :"^HOW MANY NUMBERS FOLLOW THE" "DECIMAL POINT IN $12.50?" JJ$(1)".50":JJ$(2)".06":U4 4:" $12.50":" .06":20,E8ݻջիݫ.DE8ݻժժժݻ.DE8ݻժݫպ.DE8ݻժժժݻ.DE8ݻݻݻݻ.DE8ݻժժպݻ.DE8ݻݻݻݻ.DE8պջݫݫ.DE8ݻՂպݻ.DE"D"D"D"D"DEx/DE8ݻݻݻݻ.DE8ݻݻݻݻ.DE8ݻݻݻݻ.DE8ݻժժպݻ.DE8ݻݻݻݻ.DE8ݻݻݻݻ.DE8ݻתժՊԪݻ.DE"D"D"D"D"DE8ݻݻݻݻ.DE8ݻתժՊԪݻ.Djݪջݪתݪ Qjݻݫժժݻ Qjݪջݪݫ Qjݻݪժժժݻ Qjݻݻݻݻ Qjݻݻժժݻ Qjݻݻݻݻ Qjݪժջݪݪ QjݻݫՂݻ Q"D"D"D"D"DQ"D"D"D"D"DQjݻݻݻݻ QjݻժժՊԪջ Qjݻݻݻݻ Qjݻݻժժݻ Qjݻݻݻݻ Qjݻݻݻݻ QjݻݪԪݻ Q"D"D"D"D"DQjݻݻݻݻ QjݻժժՊԪݻ QE8ݻպիݫ.DE8ݻժժժݻ.DE8ݻիݪժ.DE8ݻժժժݻ.DE8ݻݻݻݻ.DE8ݻժժպݻ.DE8ݻݻݻݻ.DE8ժջݫݫ.DE8ݻՂպݻ.DE"D"D"D"D"DE"D"D"D"D"DE8ݻݻݻݻ.DE8ݻժժՊԪݻ.DE8ݻݻݻݻ.DE8ݻժժջݻ.DE8ݻݻݻݻ.D,17563,17568,181\ F8,18216,18218,17923,17925,18247,18249,17954,17956,18268,182 P17,18319,18522,18524,183:47,18349,18552,18554,183 SX0:6:0,155 UT17:XX39:Y125(30(1)1):X,Y:T:7 Z25120: dT17:13000 n"^LESSON 4: ^SAVING ON ^TRANSPORTATION"; 5:1:"^MATH";J #6:"FOR";m (7:"^EVERYDAY";:8:"^LIVING"z -50:100 22:T189191:0,T279,T:T:7 725113,169:25114,187:25115,39:25116,0:25145,140 <10,18113,17521,17524,17036,1704633,36:35,13! 230,64:624500 :1:0:7 T15:R$(T):T:^G^O^O^D!!!,^G^R^E^A^T!!!,^R^I^G^H^T!!!,^C^O^R^R^E^C^T!!!,^Y^E^S!!! T1(NA$LN$):R(1):T 2000 T1100:(7(1)1):X(279(1)1):Y(125(1)1):X,Y:T' 7:1:$ 30260286726:(4);"BLOAD SOUND.BIN"M30000:NA$"^"NA$T09:C$(T):T: ZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,SEVEN,EIGHT,NINE MATH.438210,14: SET THE SPACING975,0:RESET TO LOWER CASE  38219,8                     "D"DV.Uz#D"D)E8ݻջݪݫ.DE8ݻժժժݻ.DE8ݻݻݻݻ.DE8ݻתժժժݻ.D(C$E8ݻժݫݫ.DE8ݻժժպݻ.DEx/DE8ݻջݫݫ.DE8ݻժժպݻ.DE"D"D"D"D"DE8ݻݻݻݻ.DE8ݻݻݻݻ.DE8ݻݻݻݻ.DE8ݻݻݻݻ.DE8ݻժժպݻ.DE8ݻݻݻݻ.DE8ݻݻݻݻ.DE8ݻתժՊԪݻ.DE"D"D"D"D"DE8ݻݻݻݻ.DE8ݻժժՊԪݻ.Djݪջݪתݪ Qjݻݫժժݻ Qjݪջݪݻ Qjݻݪժժժݻ Qjݻݻݻݻ Qjݻݻժժݻ Qjݻݻݻݻ Qjݪ׮ջݪݪ Qjݻݫժժݻ Q"D"D"D"D"DQjݻݻݻݻ Qjݻݻݻݻ Qjݻݻݻݻ Qjݻݻݻݻ Qjݻݻժժݻ Qjݻݻݻݻ Qjݻݻݻݻ QjݻݪժՊԪݻ Q"D"D"D"D"DQjݻݻݻݻ QjݻժժՊԪջ Q0000 N$"7500"RT3:60000B 0:T120191:0,T279,T:T:7 :9:"^NO, THAT'S NOT IT.":"^THE ANSWER IS 7500.":11000: 10 :::" 1250":" 6" 16,7056,70 " 7500"::"^NOW PUT BACK THE DOLLAR SIGN"  "AND DECIMAL O THIS" "EXAMPLE."' I1500:Ib T130:7:5:"$ .":" .":0:5:"$ .":" .":T 5:"$12.50":5:7:" 1250" T1500:T 0:" .0":7 0:T100191:0,T279,T:T:7 9:"^TYPE YOUR ANSWER, SO FAR." "?";:MA4:1ERE IS WHAT YOU":"MUST DO."+x 11000:10O{ "^MULTIPLY $12.50 BY 6%. ^YOU"r} "WOULD DO THIS BY WRITING 6%" "PERCENT AS A DECIMAL - .06." :"$12.50":" ^X.06":10,8560,85 :"^TAKE OUT THE DOLLAR SIGN AND" "DECIMAL POINT(S) TO DPE THE ANSWER.":"?";:MA3:10000GP ((N$)NJ100).001RT2:60000jR 0:T100140:0,T279,T:T:7] T115:0:8:NJ;"% = "NJ100:7:8:NJ;"% = ";NJ100:Tb 11000:3142g 10l "^TO FIND THE SALES TAX ON A PURCHASE"q "OF $12.50, H10::"^NO, ";NA$;".":LL115:0:12:"6% = .06":7:12:"6% = .06":LLX ? 11000:10` D L0x F 10:LL1:L43175 H "^SALES TAXES ARE DIFFERENT IN":"DIFFERENT PLACES." J NJ(L1)8(L2)3(L3)12 L ::NJ;"% = WHAT DECIMAL?"::!N "^TY"->";:MA3:100004  ((N$).06).001RT1:60000A WR3092n  WR1::"^NO, ";NA$;".":T11000:T:10  4:"^THE SIGN % MEANS HUNDREDTHS.":"^FOR EXAMPLE, 9% MEANS 9":"HUNDRETHS OR .09.":11000:10:3074  0:T120191:0,T279,T:T:7I  #D"D" Ձ"D"D#D"D"dW*M*"D"t/D"D" "D"Db#D"D"@"D"Db~8D"Dq8D"D"DH?+Uj "D"D E"D"| "D"D1V*]*5D"Da|"D"DE"D"DH "D"DF"D"DHp"D"D "D"Db_.Uj#D"D" x"D"DQ#D"D"4^**%"D"DG"D"ժ@"D"Db#D"D""D"Db`E"DQ$D"D"DHES AND COSTS. ^YOU"F "PAY SALES TAX ON MANY PURCHASES.":11000:10  "^THE SALES TAX FOR THESE ITEMS":"WILL BE 6%.":::"^THIS MEANS THAT YOU WILL PAY 6":"CENTS FOR EVERY DOLLAR OR EVERY"  "100% YOU SPEND.":::"^NOW TYPE 6% AS A DECIMAL.":EMS IS":"$12.50. ^WHAT OTHER CHARGES WILL"U "YOU HAVE TO PAY ON YOUR PURCHASE?"d 11000:10 "^YOU WILL HAVE TO PAY SALES TAX.":170,10240,10 ::"^SALES TAX IS THE MONEY USED BY":"THE STATE TO PAY FOR DIFFERENT" "GOVERNMENT SERVICING" F11000:3000A 54,189:55,158:43603,240:43604,253:m 54,237:55,148:43603,237:43604,148:u 10 GET NAME INTRO "^HI, ";NA$;"!":"^TODAY YOU'RE GOING TO BUY SOME", "ITEMS FOR YOUR CAR.":::"^THE PRICE OF THESE IT6 3026028672H:(4);"BLOAD SOUND.IT":30000:NA$"^"NA$_ --- MATH.5 --- j62000r 20 62450::2000:7:1:"^LESSON 5: ^WORKING ^WITH ^SALES ^TAX"5:3:"^MATH";(6:"FOR";27:"^EVERYDAY"; <8:"^LIV                 (95);(95)750130);" SCORES"I30);" ------"W20);"";bI15{" ";I;" ";:I:18);"";I15:" - ";:I:19);TB04:(RP)TB02I15:P31(I1)2:SR$(LI$,P,2):SR$"-1"SR$EE0 N610,XRPİ1820:1740:"STUDENT: ";:YEE$"***"jb(RP)İ1740:1780:30:"^S^T^U^D^E^N^T: ";c(LI$,ZY);", ";g(RP)ĺ:" ";h(LI$,16,ZX):lRP1621,680m5);"^S^C^O^R^E^S":5:(37) v(95);(95);(95);(95);籠ԠԠƭԠԠƭ)"D"D @ "D"Db "D"4 "D"Db(C$/U#D"D"{"D"Dx#D"D"DU*]* "D"#D"D" "D"Db#D"D""D"DbL"D`"D"D"DH.D"D10D"D"DH@)U "D"D E"Db "D"DqW*M*=D"D9 "D"D E"D"DH "D"DF"D"DH"D"$"D"Db`+U:","TERRIFIC"0=T1(NA$LN$):R(1):T{=T09:NU$(T):T: ZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,SEVEN,EIGHT,NINE=I110:AM$(I):I=I15=J((1)101):TA(J)62084=PR$(I)AM$(J):TA(J)1:I> "$20.5432","$18.6189","$11.7150,3910,4000,4460,4080<07<:38210,14: SET SPACINGSv768,104:769,168:770,104:771,166:772,223:773,154:774,072:775,152:776,072:777,0968HvER(222)8Rv7688fvER4303608zvER9305408v1000::(4);"CLOSE ":(4);"RUN MENU"8vREBOOT8v2000:10:5%9ΠŠƭΠŠƭŠˠŠΠ٠ƭƭΠΠƭΠΠƭ000: 8w Bw30340) Lw2000:9000:5J Vw" ^THE STUDENT SCORES FILE"m `w"MUST BE PURGED OR ERASED IF" jw"ADDITIONAL STUDENTS ARE " tw"TO USE THIS DISK." ~w11000 w30340S THE ^R^E^T^U^R^N KEY."1 vA$:A$(13)30410= v1000:C vN v30340a Lw2000:9000:5 Vw" ^THE STUDENT SCORES FILE" `w"MUST BE PURGED OR ERASED IF" jw"ADDITIONAL STUDENTS ARE " tw"TO USE THIS DISK." ~w11000 w3034000 .w152:776,072:777,096" HvER(222)+ Rv768; fvER430360K zvER930540h v1000::(4);"CLOSE ":t vREBOOT v2000:9000:5 v" ^PLEASE REMOVE THE WRITE PROTECT" v"TAB FROM THE DISKETTE THEN" v"PLACE IT INTO THE DRIVE AND" v"PRES;FI$;",R0" uS$$ u(4);"CLOSE"* uF v(4);"READ ";FI$;",R0"N vRQX v(4)d vRQRQ1 *vS$"":I138:S$S$" ":I:S$(RQ)S$:S$(S$,40): 4v ERROR TRAP ROUTINE >v768,104:769,168:770,104:771,166:772,223:773,154:774,072:775,1TUDFILE":302600 {u:(4);"OPEN ";FI$;",L";LLA uNW1İ30210T uCL(CL1)231x uLZ$(LI$,CL1)SR$(LI$,CL2) uLI$(LZ$,59) u(4);"WRITE ";FI$;",R";RQ uLI$ u(NW)30190 u(4);"WRITE ";FI$;",R";RQ1 uLI$ u(4);"WRITE " 302600u GET INFOS:uLI$"":ZZ1LL:LI$LI$((592ZZ)):ZZ:NW(591)lDuRQ(590)256(588)|NuCL(589)1XuZZ115:(LI$,ZZ,1)" "ZYZZbu(LI$,ZZ15,1)" "ZXZZluZZ:NA$(LI$,16,ZX):LN$(LI$,ZY): vu1000:LL41:FI$"S     0,5H7:12:I1(R$):"^";(R$,I,1);:I:V5HT10,2:T200,3:T100,4:T50,2:T200,4g5 IT11000:Tm5 I50uLL41: GET INFO 5:uLI$"":ZZ1LL:LI$LI$((592ZZ)):ZZ:NW(591)5DuRQ(590)256(588)5NuCL(589)1 6XuZZ115:(LI$,ZZ,1)(I)H(I)1((H(I)(15I))2):18450I4GH(I)H(I)1((H(I)(15I))2)[4HV(I)718500d4HQS1o4H184624HV(I)7V(I)V(I)1((V(I)7)2):185004HV(I)V(I)1((V(I)7)2)4HV(I)V(I)1:V(I)17V(I)V(I)24DHI5H7:(QWQS)01834G(1)200100H(I)((1)341):18320>3GV(I)((1)131)E3GIT3GI1(R$)s3GH(I):V(I):"^";(R$,I,1)3GTV(I)H(I)I,33GI3G03GQW0:QS03GI1(R$)3GH(I):V(I):"^";(R$,I,1)3GH(I)15I184503GQW1%4GH(I)15IHMBERS FOLLOW THE".26"DECIMAL POINT IN .06?"S264:" $12.50 ->2":" .06 ->2"d2620,7290,72w26" 75 00 4"2634502PFR$R$(((1)61))2FI1(R$)2GH(I)(1)200:H(I)(H(I)100)(33)342|GV(I)(1)200:V(I)(V(I)100)(12)13(3NT IN $12.50?"/1.4:" $12.50 ->2":" .06"@1.20,7270,72O1/" 75 00"Y1/338012:"^HOW MANY NUMBERS FOLLOW THE"12"DECIMAL POINT IN .06?"124:" $12.50 ->2":" .06 ->2"1220,7270,7212" 75 00"12338026:"^HOW MANY NU:7:10010)0*16368,0:38219,7:CM(0)Z0+13:" (^PRESS THE ^SPACE ^BAR TO CONTINUE)"s0 +AC$:AC$" "110200+38219,80+25113,179:25114,1900+25115,39:25116,1:25145,40:251540 +0.:"^HOW MANY NUMBERS FOLLOW THE"1."DECIMAL POI)'Z$"."K8$"Y"100102/*'Z$"."K8$"Y":10030K/,'Z$"0"Z$"9"10010a/.'(N$)(MA)10010z/8'Z$;:N$N$Z$:10010/L'N$""10010/Q'(N$,1)"."K8$""/V'(N$)1Ē0:(36):N$;:(36):7:10000 0`'0:(36):(N$,1);:(36):N$(N$,(N$)1)ӠΠƭԠƠˠĠƭ͠͠ŠƍŠ,4,29,68,7,16724,16828=),SA(T),EA(T):T=<^SUPER ^OIL,CANS,4,88,164,4,16416,16607z<^LONG ^LIFE ^BATTERIES,BATTERIES,6,88,179,7,16829,17150<^SIGNAL ^LIGHT ^BULBS,BULBS,8,55,103,2,16384,16415<^SEMI-GLOSS PAINT,CANS,5,495,995,4,16608,16723=^RADIAL ^TIRES,TIREST09:MG$(T):MS(T)0:T: ^LET'S ^TRAVEL,^POPULAR ^PEOPLE,^COMPUTER ^WORLD,^TAPES AND ^RECORDS;^MONTHLY ^MYSTERIES,^PUZZLE ^GAMES,^MACHINE ^MONTHLY,^TODAY'S ^FASHIONS,^TOTAL ^FITNESS,^MOTOR ^MONTHLYv768,104:769,168:770,104:771,166:772,223:773,154:774,072:775,152:776,072:777,096j7HvER(222)s7Rv7687fvER4303607zvER9305407v1000::(4);"CLOSE ":(4);"RUN MENU"7vREBOOT7v2000:10:58v" ^PLEASE REMOVE THE WRITE PROz#?B?    ҮΠ"ՠŠŠˠ Ϡ ϲ خҠ ĮԠ Ȯ+Ȯ,Ȯ7 Ȯ& Ȯ8 ̠ҠЮΠԮΠĮΠҮΠ ծΠ"ԮîΠ^RIGHT!".'bT18:X,Y:768,X:769,Y:770:T9'vWQ1:@'2L'WQWQ1'T5100:29T,158:31274T,158:768,T:769,3:770'(7(1)1)'T:7'11:15:"^R^I^G^H^T!"'T10051:768,T:769,3:770:T'(L" $ 6.35":112):T&F&PTP1P2:0:45T,L1:15:32:45T,L11:15:T:0:h&0:T90B:0,T279,T:T:7:&T0279:45T,98((K1TY)12):15:T:&X9600:7:" ^RIGHT!":" ^RIGHT!":" ^RIGHT!"']"^RIGHT!":" /%T01:0,75T(X112)279,75T(X112):T%T03:0T,75((X11)12)0T,75(X112):279T,75((X11)12)279T,75(X112):T& T03:95T,75((X11)12)95T,75(X112):179T,75((X11)12)179T,75(X112):220T,75((X11)12)220T,75(XR ^Q^U^A^N. ^T^O^T^A^L"I$" ^I^T^E^M ^C^O^S^T"$2:T7375:0,T279,T:T:T04:0T,460T,75:279T,46279T,75:T$T03:95T,4695T,73:179T,46179T,73:224T,46224T,73:T$38210,14:38219,8:%2:X1X11:# 30070:20004# :9:"^THAT'S ALL FOR NOW."Q# 1000::(4);"RUN MENU"`# 216,255:o# "^BYE..."#9550:1:T02:P$(F,T):T#2:T04:0T,0T279T,0T279T,46T0T,46T0T,0T:T#7:$" ^I^T^E^M ^P^R^I^C^E ^P^E^R%8(1)1:F%(R%)125209" T$(R%)I$(T):F%(R%)1:T:v" 9000:" ^WELL, ";NA$;", THAT COMPLETES":"THIS LESSON."" ::"^YOU SCORED ";WQ10;"%"" SR$(WQ10):(SR$)1SR$"0"SR$" SR$"100"SR$"FF"# :WQ10ĺ"^THAT'S A PERFECT SCORE.",158:43603,240:43604,253:Z!SLACKS,JACKETS,JEANS,SNEAKERS,BELTS,BOOKS,GAMES,SWEATERS!ALBUMS,CASSETTES,NEEDLES,RECORDS,SONGBOOKS,TAPES,POSTERS,RADIOS!54,237:55,148:43603,237:43604,148:! T18:I$(T):F%(T)0:T:CM(0)! T18" KTY:29:"$";AN$(K):9500:K5 TYTY1:TY23000 11000:10:" ^HERE IS ANOTHER SALES SLIP WHICH":"SHOWS SOME ITEMS YOU BOUGHT FROM":"THIS STORE.":11000 F1:9000:590: NEED TEXT HERE 11000:1000:20000:!54,189:55THAT'S INCORRECT.":"^PLEASE TRY AGAIN.":11000:9900:655WR2FL1:11:" ^LET'S GO BACK AND REVIEW THE":"PROBLEM WE DID TOGETHER.":11000:9000:45511:" ^SORRY, ";NA$;". ^THE CORRECT":"ANSWER IS ";AN$(K);".":11000 5400:9900:9525:7FLFL0:9525:T11K1:7T1TY:29:"$";AN$(T1):T1:9500:5400:659_WR0WR2İ540012:"^THEN TYPE YOUR ANSWER. $"Y12:X24:MAX5:10000:9900((N$)(P(K)Q(K))).005İ7100:990:WRWR1:WR1Ģ11:" ^SORRY, ";NA$;", ERE ARE THE PRICES AND QUANTITIES":"OF THE OTHER ITEMS YOU BOUGHT.":11000:TT150:BB180:990011:" ^FIND THE TOTAL COST OF EACH ITEM":"BY MULTIPLYING.":11000:9900K14:WR0:FL011:" ^DO THIS EXAMPLE ON YOUR PAPER."FLK1658J1tPR$(K)(P(K)):(PR$(K))3PR$(K)PR$(K)"0"Vu(PR$(K))1PR$(K)PR$(K)".00"v5100:7:" ^";T$(K);16);"$";PR$(K);26);Q(K)xAN$(K)(P(K)Q(K)):(AN$(K))2AN$(K)AN$(K)".00"y(AN$(K))4AN$(K)AN$(K)"0"zK:9500_{11:" ^HS REVIEW THE MODEL PROBLEM."+%11000:10?%4010:10:6010E%l%"^SORRY, THAT IS ALSO INCORRECT."x%KZKZ1%"^LET'S LOOK AT THE PROBLEM."%"TOGETHER."%11000:10:A$((TK$)100):B$(BI)% E1:D2%.4020&8I((1)10):MSΠϠƭΠڠƭΠϠҠҠŠƭ13.9916"D>"$17.2342","$10.1478","$19.4268","$15.3655","$12.9323"[>TA(3)TA(9)62999>J((1)2):PR$(1)AM$(3):JPR$(1)AM$(9)>2000>2000>0>JVbn z/ P$"^EDUCATIONAL ^ACTIVITIES, ^INC.":10000F :(4);"RUN MENU"O 170\ 'PP(P$)i 'PP0ı L'H1PP:R((P$,H,1))31 V'FL1FL0:RR31:10090 `'R63FL1:10100 j'RX,Y:RX1,Y:XX8 t'H:YY15: 0u5: 0uP 300001:0$Z6TdT064:98,1033T,156:179,10243T,156:pnT10156:98,T179,T:wx4T4863:RR.3:116R,T160R,T:T99113:UU.3:101U,T173,T:T99156:II.15:163I,T176I,T:5:Y180:X33  10002::230,32:62450:230,64:62450>1012,0T(4);"MAXFILES1"w:(4);"BLOAD SHP.BIN,A38315"(4);"BLOAD PRT.BIN""BLOAD SOUND.BIN" "BLOAD SCR.BIN"(232,171:233,149238078P"RUN LOGO"Z &2ԠԠԠԠƭԠԠƭ^D^W^I^C^H^E^S":10000:E& X92:P$"^S^I^D^E ^O^R^D^E^R^S":10000:n0 X108:P$"^D^E^S^S^E^R^T^S":10000:: X100:P$"^B^E^V^E^R^A^G^E^S":10000:P$"^THE NUMBER OF YOUR CHOICE IS?":X3:Y145:10000Y145:X235:S8$"K":MAX2:12000:S8$""1 --?$$$$?--?p- $$$?--$$$$M -=??$$$$$$$$.d 6666$$$$%$46666? $$d-666?$$$$--6??? $$d-666'$$$$--6?w?p-- ?? d-$$$$?/---? $$$M 666?$$$M 666 ,$$$$6666d d vv6$$lI666-=??$ $$--??$$M 6666? (--8??  d ?6- ?$$ -u'6-$?6v=? $ ->?V $$?--?$d=? $ -666?$$$$66e66$$  $$ 266?$$$$6n $$$$$$ 66M$$?$$4e66? $ -6/- $?76666=? $ -66-$$4 vv`$5$ dcd$$$$$s $??--?$$$$7-=?? $??p-- $ ? - $$$$.--?-- $??$$----?? $$d-;?-6$d $???-?? $ d-6?/-6I$$$?6--%g8,5 $g 7 Z2=BJLSam| !/<IR_lw (5AOZdku}%/?P]j{d$$$M16#<%$/$6-%4.76?-=6<- ?d%.!5#d $7%$     4ĺ" THE 5 AND THE 0."3% U5ĺ"THE 0 AND THE 6."L* "^THE ANSWER IS 2."W+ 11000z, 0:T115191:0,T279,T:T:7/ U:11:0:N$;:(36):7:"2"4 UU1:U5ı9 0:::18:"$12.50?":7:2:19:".06?"> 3335C 0:T030:0,T279,T:T:" .06":20,7270,72' " 75 00"d T115:0:U:" ";JJ$(U3):7:U:" ";JJ$(U3):T U:9:"->";:MA1:10000 N$"2"RTU:60000 :9:"^NO, ";NA$;", THAT IS INCORRECT." "^TWO NUMBERS FOLLOW THE DECIMAL" "POINT:";:U "AND DECIMAL POINT(S)."* T1500:TU 4:" $":0:4:" 12":4:7:" 12."e T1500:Ts " .0"~ 11000 10 :"^HOW MANY NUMBERS FOLLOW THE" "DECIMAL POINT IN $12.50?" JJ$(1)".50":JJ$(2)".06":U4 4:" $12.50" "?";:MA4:10000/ N$"7500"RT3:60000R 0:T120191:0,T279,T:T:7 :9:"^NO, THAT'S NOT IT.":"^THE ANSWER IS 7500.":11000: 10 :::" 1250":" 6" 16,7056,70 " 7500"::"^NOW PUT BACK THE DOLLAR SIGN"AL POINT(S) TO DO THIS"' "EXAMPLE."7 I1500:Ir T130:7:5:"$ .":" .":0:5:"$ .":" .":T 5:"$12.50":5:7:" 1250" T1500:T 0:" .0":7 0:T100191:0,T279,T:T:7 9:"^TYPE YOUR ANSWER, SO FAR."q "OF $12.50, HERE IS WHAT YOU":"MUST DO.";x 11000:10_{ "^MULTIPLY $12.50 BY 6%. ^YOU"} "WOULD DO THIS BY WRITING 6%" "PERCENT AS A DECIMAL - .06." :"$12.50":" ^X.06":10,8560,85 :"^TAKE OUT THE DOLLAR SIGN AND" "DECIM?"::1N "^TYPE THE ANSWER.":"?";:MA3:10000WP ((N$)NJ100).001RT2:60000zR 0:T100140:0,T279,T:T:7] T115:0:8:NJ;"% = "NJ100:7:8:NJ;"% = ";NJ100:Tb 11000:3142g 10l "^TO FIND THE SALES TAX ON A PURCHASE",279,T:T:7Y  10::"^NO, ";NA$;".":LL115:0:12:"6% = .06":7:12:"6% = .06":LLh ? 11000:10p D L0 F 10:LL1:L43175 H "^SALES TAXES ARE DIFFERENT IN":"DIFFERENT PLACES." J NJ(L1)8(L2)3(L3)12L ::NJ;"% = WHAT DECIMALAS A DECIMAL.":"->";:MA3:10000D  ((N$).06).001RT1:60000Q WR3092~  WR1::"^NO, ";NA$;".":T11000:T:10  4:"^THE SIGN % MEANS HUNDREDTHS.":"^FOR EXAMPLE, 9% MEANS 9":"HUNDRETHS OR .09.":11000:10:3074  0:T120191:0,TOVERNMENT SERVICES AND COSTS. ^YOU"V "PAY SALES TAX ON MANY PURCHASES.":11000:10  "^THE SALES TAX FOR THESE ITEMS":"WILL BE 6%.":::"^THIS MEANS THAT YOU WILL PAY 6":"CENTS FOR EVERY DOLLAR OR EVERY"!  "100% YOU SPEND.":::"^NOW TYPE 6% 15: 0uT/ P$"^EDUCATIONAL ^ACTIVITIES, ^INC.":10000O P$"^COPYRIGHT 1982":10000f :(4);"RUN MENU"o 170| 'PP(P$) 'PP0ı L'H1PP:R((P$,H,1))31 V'FL1FL0:RR31:10090 `'R63FL1:10100 j'RX,Y:RX1,Y:XX8 t'H:YYȱƭƭ 픸H N ɍ&Ɍ$*+*++8 $%nn& $ & & & im&% e%i hH)80i ?/ 0 &$$! $%%#"%N h`N (%'RYRYZZ(B'Y:X/(V'38200,RX:38219,RY7(`'P$P(j'XJX(P$)8:YJY15V(o'(*P$" (^PRESS ^SPACE ^BAR ^TO ^CONTINUE)":X3:Y186:10000:16368,0(*A$:A$" "ı(*11001)+P$" (^PRESS ^SPACE ^BAR ^TO ^CONTINUE)":X3:Y166:10000:1610000}'N X124:Y135:P$".":25000:10000:X100:Y135:P$"$ 7":10000:X3:Y30:P$"^TRY IT YOURSELF.":10000:11000:9000:''#'(#62450:CM(0):1:0:''RXX(X8)88:JXX:JYY''X(X8):X0X1''RYY(Y15)1515($'Y(Y15):Y0Y1NTO 10":10000:X3:P$"PENNIES. ^THIS IS SHOWN AS...":10000^&& 138,85138,88:139,85139,88&0 11000:ET0:EB70:2000:ET177:EB191:2000&: X3:Y15:P$"^NOW SUBTRACT.":10000'D T15:25000:X140:Y135:P$"5":10000:T12:25000:X132:Y135:P$"2":2000:ET177:EB191:2000w% X3:Y15:P$"^NOW WE CROSS OUT THE NEW 10 AND":10000:X3:P$"WRITE A 9 ABOVE IT.":10000% 126,83135,105% X132:Y85:P$"9":10000% 11000:ET0:EB70:2000:ET177:EB191:2000<& X3:Y15:P$"^THIS CHANGES 1 DIME IBOVE IT.":10000-$X116:Y85:P$"9":10000p$7:103,90121,105:11000:ET0:EB70:2000:ET177:EB191:2000$X3:Y10:P$"^THIS CHANGES $1 INTO 10 DIMES.":X3:P$"^THIS IS SHOWN AS...":10000$130,85130,88:131,85131,88%11000:ET0:EB70::Y100:10000:T11:25000:X116:Y100:7:10000:0:25000:T:7r#7:11000:ET0:EB85:2000:ET177:EB191:2000#X3:Y15:P$"^GO TO THE LAST PLACE.":10000:X3:P$"^LET'S REGROUP.":10000$X3:P$"^CROSS OUT THE 10 AND WRITE":10000:X3:P$"A 9 AX3:P$"REGROUP.":10000!"7"T15:25000:T110:P$"0":X132:Y100:10000:T11:25000:X132:Y100:7:10000:0:25000:T:7"X3:Y60:P$"^THERE IS NOTHING IN THE NEXT":10000:X3:P$"COLUMN EITHER.":10000:T15:25000?#T110:P$"0":X116"5 FROM 0, YOU MUST ":X3:10000h!YY15:XX10:P$"^R^E^G^R^O^U^P":6000:YY15:XX48:P$".":10000!7:11000:ET0:EB35:2000:ET177:EB191:2000!X3:Y15:P$"^LET'S LOOK AT THE NEXT PLACE.":10000:X3:P$"^THERE IS NOTHING HERE TO":10000"100:Y100:P$"$10.00":10000@ hX100:Y115:P$"- 2.75":10000a r2:T120122:90,T155,T:Tz wY1130:XX140:13000 |7:11000:ET0:EB85:2000:ET177:EB191:2000 Y1130:XX140:14000 !X3:Y15:P$" ^SINCE YOU CANNOT SUBTRACT":10000:P$,T257,T::7:LZZ15@`A9000:X08:Y15:P$"^WHEN YOU SUBTRACT YOU SOMETIMES":10000BX3:P$"HAVE TO REGROUP. ^LOOK AT THIS":10000JX3:P$"SUBTRACTION EXAMPLE . ^START IN":10000TX3:P$"THE FIRST COLUMN TO THE RIGHT.":10000 ^X$(T,J)(P)J,T:q 1.35,1.20,1.40,1.50,1.65,.85,.65,.60,.40,.35,.50,.55,.60,.75,.00,.40,.45,.55,.50,.65pK1(P$):(P$,K,1)"^"6007uLL1wyLL8zT510:X8,YTXL,YT:0:10000:7L0:X4:T41X170:21(A$)0Ē0:T135150:242,T279,T::7:40107cT15:D:DD(T)D::-.1,-.05,0,.05,.1 {D(DE)(5(1)1)T14:J15:A$:P$(T,J)A$T3J55030P(P$(T,J))DD((5(1)1)):(P$(T,J))((P))P$(T,J)(P)"0":5030 P  Z 20 L`   THIS DISK."1~w11000"1w30340N1Pù54,237:55,148:43603,237:43604,148:z1ù54,189:55,158:43603,240:43604,253:1`975,0:33,36:35,16:230,64:62450::1:0:71500001"0v"PLACE IT INTO THE DRIVE AND"E0v"PRESS THE ^R^E^T^U^R^N KEY."^0vA$:A$(13)30410j0v1000:p0v{0v303400Lw50000:9000:50Vw" ^THE STUDENT SCORES FILE"0`w"MUST BE PURGED OR ERASED IF"0jw"ADDITIONAL STUDENTS ARE " 1tw"TO USE,223:773,154:774,072:775,152:776,072:777,096?/HvER(222)H/Rv768X/fvER430360h/zvER930540/v1000::(4);"CLOSE ":(4);"RUN MENU"/vREBOOT/v50000:9000:5/v" ^PLEASE REMOVE THE WRITE PROTECT"/v"TAB FROM THE DISKETTE THEN"1 .uLI$'.u(4);"WRITE ";FI$;",R0"/.uS$A.u(4);"CLOSE"G.uc.v(4);"READ ";FI$;",R0"k. vRQu.v(4). vRQRQ1.*vS$"":I138:S$S$" ":I:S$(RQ)S$:S$(S$,40):.4v ERROR TRAP ROUTINE1/>v768,104:769,168:770,104:771,166:772,ZY):--vu1000:LL41:FI$"STUDFILE":30260M-{u:(4);"OPEN ";FI$;",L";LL^-uNW1İ30210q-uCL(CL1)231-uLZ$(LI$,CL1)SR$(LI$,CL2)-uLI$(LZ$,40)-u(4);"WRITE ";FI$;",R";RQ-uLI$-u(NW)30190.u(4);"WRITE ";FI$;",R";RQ,:H:YY15:$,aT01T1500::9,0uLL41: GET INFOp,:uLI$"":ZZ1LL:LI$LI$((592ZZ)):ZZ:NW(591),DuRQ(590)256(588),NuCL(589)1,XuZZ115:(LI$,ZZ,1)" "ZYZZ,bu(LI$,ZZ15,1)" "ZXZZ-luZZ:NA$(LI$,16,ZX):LN$(LI$XX,YY:YYYY4:T +2T11:25000X+2YYY1:T15:63XX,YY:YYYY4:T:T11:25000:DD:+6YYY1:T15:63XX,YY:YYYY4:T:+:P(P$):P0YY15:+:H1P:R((P$,H,1))31:FLFL0:RR31:15010+:R63FL1:15015+:RX,Y:RX1,Y:XX8:XXX:YYY:0:15000:7:XXX:YYY:A$"":12003x*/K8P$(A$,1):A$(A$,(A$)1):XX8:YYY:0:10000:7:XX8:12003* /(A$)MAX112003* /((K46)(K57)(K47))12003*/A$A$(K):P$(K):YYY:15000:12003*2DD19:YYY1+20:T15:63368,0)+A$:A$" "ı")+11011<).XX8:XXX:YYY:A$""J).16368,0c).(16384)12712005w).K(16384)128).K46S8$"K"12003).(K13)((A$)0)ı).K1312003).K812044).K8(A$)0XXX:YYY:12003.*/K8(A$)1P$A$PPPPPPPPPPPPPPPPPPPPPPPPPPPPP'71b8b `8bb9b`i(Y`i `9bbbbΣbObbb0"bY`i '9a&&ȑ&bȽY`i '9a&&b筤bb`.26:>"&*.26:>#'+/37;?#'+/37;?((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP`bbb :b'9a&b&  )(Ibb&)`JJJJJMbȑ&bbȌbL`bbbL`` $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,0482":" .06 ->2"0220,7270,7202" 75 00"02338006:"^HOW MANY NUMBERS FOLLOW THE"06"DECIMAL POINT IN .06?" 164:" $12.50 ->2":" ^BAR TO CONTINUE)"+/ +AC$:AC$" "110208/+38219,8R/+25113,179:25114,190z/+25115,39:25116,1:25145,40:25154/ +/.:"^HOW MANY NUMBERS FOLLOW THE"/."DECIMAL POINT IN $12.50?"/.4:" $12.50 ->2":" .06"/.20,7270,720/" 010..'(N$)(MA)100102.8'Z$;:N$N$Z$:10010C.L'N$""10010[.Q'(N$,1)"."K8$"".V'(N$)1Ē0:(36):N$;:(36):7:10000.`'0:(36):(N$,1);:(36):N$(N$,(N$)1):7:10010.*16368,0:38219,7:CM(0)/+13:" (^PRESS THE ^SPACE );"RUN MENU"-214,255:!-'2-'N$"":K8$""[-'16368,0:Z$:(Z$(13))(N$"")ı-'(Z$" ")(Z$"-")(Z$(13))10010-'(N$)(MA)Z$(8)10010-$'Z$(8)10060-)'Z$"."K8$"Y"10010-*'Z$"."K8$"Y":10030.,'Z$"0"Z$"9"10OU ANSWERED ";SP$,^"CORRECTLY.":K,_SR$(10SP):(SR$)1SR$"0"SR$c,`SR$"100"SR$"FF"n,a30070x,c2000,d:5,hSP10ĺ"^THAT'S A PERFECT SCORE!":,r"^THAT'S ALL FOR THIS LESSON.",|1000::"^BYE, ";NA$;" ..." -1000::(4,115:81,10488,115"+11000:10L+4:" ";A1$:" X .0";(A2$,1)]+30,7390,73y+" $";(T$,(T$)2):+$"^THE SALES TAX ON THIS PURCHASE"+."IS $";A3$+811000:10:4460+@10+J"^WELL, ";NA$;", OUT OF 10",T"PROBLEMS, Yp"AND CENTS, CROSS OUT THE LAST 2"7*z200,26250,26^*"NUMBERS AND WRITE A DOLLAR SIGN"*"IN FRONT OF THE ANSWER.":*" ";A1$:" X .0";(A2$,1)*32,10090,100*" ";T$*I11000:I:8:" $"+T11000:T:73,10480"T$(((((A1$,3))((A2$)100))10000)10000):S8$"":4650r)%T$(((((A1$,2))((A2$)100))10000)10000))*(T$,2,1)"."T$" "T$)4" ";T$)>T120:0:8:5:T$:8:5:7:T$:T)\11000:10)f"^SINCE THE ANSWER IS IN DOLLARS"$* ANSWER."4("^PLEASE TRY AGAIN.":11000:10:4480?(10:2d("^PLACE A DECIMAL POINT IN THE"( "ANSWER SO THAT 4 NUMBERS FOLLOW"("IT."((A1$)6A1$" "A1$:S8$"Y"(:" ";A1$:" X .0";(A2$,1)( 32,10090,100>)#S8$"YĠŠƭ٠ŠӠϠРԠΠԠ)'"AND TYPE YOUR ANSWER. ^BE SURE TO"P'"GIVE YOUR ANSWER IN THE CORRECT"j'"DOLLARS AND CENTS."'"->$";:MA5:10000:'(A3$N$)(A3$(N$".00"))RT11:SPSP1:60000'WR4600'WR1'10:"^SORRY, ";NA$;"," ("THAT IS NOT THE;"."&11000:4080;&010:6:"^LET'S TRY ANOTHER TYPE"S&:" OF EXAMPLE."^&D11000g&bCW0&lCWCW1:WR0:CW58000&v50000&3:"^FIND THE SALES TAX ON A PURCHASE"&"OF ";A1$;" AT ";A2$;"."':"^DO THIS EXAMPLE ON YOUR PAPER"(CW),6,1))1%T1500:T;%0:5:32:(PR$(CW),2):7p%C2((PR$(CW),1))17:C1(((PR$(CW),2),1))17%T801802:C1250,T:C2259,T%TT,2%C1250,T:C2259,T:T&10:"^THEREFORE, THE ANSWER IS ";(PR$(CW),5);((PR$(CW),6,1))1^O^R ^M^O^R^E,""$w168,27246,27E$|"ADD $ .01 TO THE SALES TAX."n$:" ";PR$(CW);" BECOMES ";PR$(CW)~$T1500:T$I2731:0:5:I:(PR$(CW),2):7:5:I1:(PR$(CW),2):I$T1500:T %5:26:0:(PR$(CW),6,1);:(36):7:((PR$Ӡ٠ƭӠ٠ƭ:1:7:7:(PR$(CW),7,1):TB#T5:"THE DOLLARS AND CENTS STAYS"V#X"THE SAME.":0q#\1:7:(PR$(CW),7):7#^8:"^THEREFORE, THE ANSWER IS ";(PR$(CW),6);"."#c11000:4080#h10:"^IF THE DIGIT THAT FOLLOWS THE"$r"DOLLARS AND CENTS IS 5                ","$12.9323"#=TA(3)TA(9)62999R=J((1)2):PR$(1)AM$(3):JPR$(1)AM$(9)\=2000b= ZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,SEVEN,EIGHT,NINEJv768,104:769,168:770,104:771,166:LI$,ZY):05vu1000:LL41:FI$"STUDFILE":30260P5{u:(4);"OPEN ";FI$;",L";LLa5uNW1İ30210t5uCL(CL1)2315uLZ$(LI$,CL1)SR$(LI$,CL2)5uLI$(LZ$,40)5u(4);"WRITE ";FI$;",R";RQ5uLI$5u(NW)301906u(4);"WRITE ";FI$;",R";T50,2:T200,44 IT11000:T%4 I<40uLL41: GET INFO s4:uLI$"":ZZ1LL:LI$LI$((592ZZ)):ZZ:NW(591)4DuRQ(590)256(588)4NuCL(589)14XuZZ115:(LI$,ZZ,1)" "ZYZZ4bu(LI$,ZZ15,1)" "ZXZZ 5luZZ:NA$(LI$,16,ZX):LN$()3HV(I)7185003HQS1'3H18462U3HV(I)7V(I)V(I)1((V(I)7)2):18500t3HV(I)V(I)1((V(I)7)2)3HV(I)V(I)1:V(I)17V(I)V(I)23DHI3H7:(QWQS)0183403H7:12:I1(R$):"^";(R$,I,1);:I:4HT10,2:T200,3:T100,4: cCY`i '9a&cdQ&&mccccǭc`E8ݻݻݻݻ.DE8ݻתԪݻ.DE8ݻݻݻݻ.DE8ݻתժՊԪݻ.Djݪջݪݪ Qjݻݫժժݻ Qjݪջݪݪ Qjݻݪժժժݻ Qjݻݻݻݻ Qjݻݻժժݻ Qjݻݻݻݻ Qjݪջݪݪ Qjݻݫժժݻ Q"D"D"D"D"DQ"D"D"D"D"DQjݻݻݻݻ QjݻժժՊԪջ Qjݻݻݻݻ Qjݻݻժժݻ Qjݻݻݻݻ Qjݻݻݻݻ QjݻݪԪݻ Qjݻݻݻݻ QjݻժժՊԪݻ QE8ݻպիݫ.DE8ݻժժժݻ.DE8ݻջݪݫ.DE8ݻժժժݻ.DE8ݻݻݻݻ.DE8ݻժժպݻ.DE8ݻݻݻݻ.DE8ݫժݫݫ.DE8ݻժժպݻ.DE"D"D"D"D"DE"D"D"D"D"DE8ݻݻݻݻ.DE8ݻժժՊԪݻ.DE8ݻݻݻݻ.DE8ݻժժջݻ.DE8ݻݻݻݻ.DE8ݻݻݻݻ.DE8ݻתժժժݻ.DE8ݻݻݻݻ.DE8ݻתժՊԪݻ.Djݪջݪݪ Qjݻݫժժݻ Qjݪջݪתݪ Qjݻݪժժݻ Qjݻݻݻݻ Qjݻݻժժݻ Qjݻݻݻݻ Qjݪջݪݪ Qjݻݫժժݻ Q"D"D"D"D"DQ"D"D"D"D"DQjݻݻݻݻ QjݻժժՊԪջ Qjݻݻݻݻ Qjݻݻժժݻ Qjݻݻݻݻ Q@jݻݻݻݻ Qjݻݪժժժݻ Qxjݻݻݻݻ QjݻժժՊԪݻ Q                    BT H ,L h0`:"2":3:16:"3":4:17:"4":T0T14:13000W12:"14 TENS IS THE SAME AS 140."~T120:0:2:13:"1":5:16:"4"7:2:13:"1":5:16:"4":T 11000:9600:7:" ^FINALLY, MULTIPLY THE HUNDREDS.":"4 ^X 6 HUNDREDS = ";:T13:13000:"2":8010oP$" ^REMEMBER TO INCLUDE ANY TENS YOU":P1$"MADE WHEN YOU MULTIPLIED THE ONES.":V8:H1:RR1:8010z110000:T72100:0,T279,T:T:7:11:"12 TENS + 2 TENS = 14 TENS."T120:0:2:15:"2":3:16:"3":4:17:"4" 7:2:15=T120:2:0:" 2":5:" 0"r2:7:" 2":5:" 0"T:11000:96506:"^NEXT, MULTIPLY THE TENS.":"4 ^X 3 TENS";:T13:13000:" = 12 TENS."V3:H16:P$"3":P1$" 4EVIEW MULTIPLICATION.":11000:9000::7500:6:" ^START AT THE RIGHT COLUMN.":"^MULTIPLY THE ONES.":P$" ONES":V7:H1:8010:"4 ^X 5 =";:T13:13000:" 20. ^SINCE 20 IS 2""TENS AND 0 ONES, SHOW IT THIS WAY:"T15:13000.4).005İ7000:9000:3:7500:5:13);"25 40":570IWRWR1:WR24409800:11:"^SORRY, ";NA$;", THAT'S INCORRECT.":"^TRY AGAIN.":11000:9800:11:400I116:J:I:9600:7:"^SORRY, ";NA$;", THAT IS STILL":"NOT CORRECT."#:"^LET'S RTHE TOTAL OF EQUAL":"AMOUNTS, YOU MULTIPLY.">r11000:9600|7:" ^YOU WILL FIND THE TOTAL COST OF":"THIS ITEM BY MULTIPLYING."7500"^DO THIS EXAMPLE ON YOUR PAPER. ^THEN":"TYPE YOUR ANSWER."X19:Y12:MAX5:10000:3((N$)25ULTIPLY, OR":"DIVIDE?"d@:"^TYPE IN THE FIRST LETTER OF THE":"CORRECT ANSWER: ^S, ^M, OR ^D.";J16368,0:A$:A$"S"A$"M"A$"D"345T330Y"^";A$^A$"M"İ9600:10:"^THAT'S CORRECT!":11000:9700:380-h9600:7:" ^WHEN FINDING T,76T,85:T:7 B135:5300W"9570:6:" ^SHIRTS";16);"$6.35";26);"4":9500u'P1228:P2274:L159:5200,7:" ^WHAT IS THE TOTAL COST OF THE":"SHIRTS?"1B120:11000:530067:"^WHAT MUST YOU DO TO FIND THE":"ANSWER? ^SUBTRACT, M200:0:T120160:T,76T,85:T:7F5300:P1184:P2222:L159:5200b9570:6:26:"4":95007:" ^THE THIRD COLUMN SHOWS THE NUMBER":"OR QUANTITY OF EACH ITEM THAT YOU":"BOUGHT."V8:H4:P$"QUANTITY":801011000:5200:0:T200220:11000:5200:0:T1070:T,76T,85:T:7VB120:5300:P1100:P2178:L159:5200v9570:6:16:"$6.35":95007:" ^THE SECOND COLUMN SHOWS THE PRICE":"OF ONE ITEM, OR THE PRICE PER ITEM."V8:H21:P$"PRICE PER ITEM":8010"11000:5PAY FOR YOUR"O "PURCHASES. ^LET'S LOOK AT YOUR":"SALES SLIP.":11000:9000e 5000:5100:9500 7:" ^THE FIRST COLUMN NAMES THE ITEM":"THAT YOU BOUGHT." L159:P16:P294:5200 9570:6:" ^SHIRTS":9500 P$"ITEM":V7:H29:8010, ^FOR ^EVERDAY ^LIVING":" ^LESSON 2: ^WORKING ^WITH ^SALES ^SLIPS" n" ";NA$;", YOU'VE GOT SOME SHOP-":" PING TO DO! ^THIS LOOKS LIKE A GOOD" x" PLACE TO SHOP, DOESN'T IT?":11000 9000:" ^WELL, YOU'VE FINISHED SHOPPING.":"^NOW IT'S TIME TO 205,9545,955 245,30205,30240,15:205,95205,30e <115,95115,75135,75135,95:125,75125,95 FD22:2:T1828:DD.5:D,70T,90:T P1:22,60:T135 UX(40(1)1):X585 ZY(75(1)1):Y5090 _X,Y:TC d7:8:" ^MATH1(NA$LN$):R(1):TY  100,100,100,100,110,50,118,75,118,75,126,90,120,90,120,150o  BLOAD SOUND.BINy 2000 9000 !6:0,0278,0278,1910,1910,0:7 #4:" ^D^E^P^A^R^T^M^E^N^T ^S^T^O^R^E" (45,9545,3080,15240,15240,80^STREET":P$(0,2)" ^FOREST ^CITY" P$(1,0)" ^REALLY ^RECORD ^CITY":P$(1,1)" ^MAIN ^STREET":P$(1,2)" ^CENTERVILLE" :38219,8 33,36:35,13 230,64:62450 :1:0:7 RR20 H10:H27 TN* 3026028672I:(4);"B LOAD SOUND.BIN":30000^ZZ0:NA$"^"NA$k MATH.238210,14: SET THE SPACING975,0:RESET TO LOWER CASE+ P$(0,0)" ^CENTER ^ISLAND ^DEPARTMENT ^STORE":P$(0,1)" ^FOREST &']"^RIGHT!":" ^RIGHT!"L'bT18:X,Y:768,X:769,Y:770:TW'vWQ1:^'2j'WQWQ1'T5100:29T,158:31274T,158:768,T:769,3:770'(7(1)1)'T:7'11:15:"^R^I^G^H^T!"'T10051:768,T:769,3:770:T0T,75((X11)12)220T,75(X112):T,&d&PTP1P2:0:45T,L1:15:32:45T,L11:15:T:0:&0:T90B:0,T279,T:T:7:&T0279:45T,98((K1TY)12):15:T:&X9600:7:" ^RIGHT!":" ^RIGHT!":" ^RIGHT!"0,14:38219,8:%2:X1X11M%T01:0,75T(X112)279,75T(X112):T%T03:0T,75((X11)12)0T,75(X112):279T,75((X11)12)279T,75(X112):T&& T03:95T,75((X11)12)95T,75(X112):179T,75((X11)12)179T,75(X112):22 ^I^T^E^M ^P^R^I^C^E ^P^E^R ^Q^U^A^N. ^T^O^T^A^L"g$" ^I^T^E^M ^C^O^S^T"$2:T7375:0,T279,T:T:T04:0T,460T,75:279T,46279T,75:T$T03:95T,4695T,73:179T,46179T,73:224T,46224T,73:T%382110ĺ"^THAT'S A PERFECT SCORE.":1# 30070:2000R# :9:"^THAT'S ALL FOR NOW."o# 1000::(4);"RUN MENU"~# 216,255:# "^BYE..."#9550:1:T02:P$(F,T):T#2:T04:0T,0T279T,0T279T,46T0T,46T0T,0T:T#7:5$" " T18)" R%8(1)1:F%(R%)12520H" T$(R%)I$(T):F%(R%)1:T:" 9000:" ^WELL, ";NA$;", THAT COMPLETES":"THIS LESSON."" ::"^YOU SCORED ";((WQ11)1);"%."" SR$(((WQ11)1)):(SR$)1SR$"0"SR$" SR$"100"SR$"FF" # :WQ+!54,189:55,158:43603,240:43604,253:i!SLACKS,JACKETS,JEANS,SNEAKERS,BELTS,BOOKS,GAMES,SWEATERS!ALBUMS,CASSETTES,NEEDLES,RECORDS,SONGBOOKS,TAPES,POSTERS,RADIOS!54,237:55,148:43603,237:43604,148:! T18:I$(T):F%(T)0:T:CM(0):9900:9525:7KTY:29:"$";AN$(K):9500:KD TYTY1:TY23000 11000:10:" ^HERE IS ANOTHER SALES SLIP WHICH":"SHOWS SOME ITEMS YOU BOUGHT FROM":"THIS STORE.":11000 F1:9000:590: NEED TEXT HERE 11000:1000:20000:ORRY, ";NA$;", THAT'S INCORRECT.":"^PLEASE TRY AGAIN.":11000:9900:655WR2FL1:11:" ^LET'S GO BACK AND REVIEW THE":"PROBLEM WE DID TOGETHER.":11000:9000:45511:" ^SORRY, ";NA$;". ^THE CORRECT":"ANSWER IS ";AN$(K);".":11000- 5400FLK1658YFLFL0:9525:T11K1:7T1TY:29:"$";AN$(T1):T1:9500:5400:659nWR0WR2İ540012:"^THEN TYPE YOUR ANSWER. $"Y12:X24:MAX5:10000:9900((N$)(P(K)Q(K))).005İ7100:990IWRWR1:WR1Ģ11:" ^S0n{11:" ^HERE ARE THE PRICES AND QUANTITIES":"OF THE OTHER ITEMS YOU BOUGHT.":11000:TT150:BB180:990011:" ^FIND THE TOTAL COST OF EACH ITEM":"BY MULTIPLYING.":11000:9900K14:WR0:FL011:" ^DO THIS EXAMPLE ON YOUR PAPER." P(K)3.51627@tPR$(K)(P(K)):(PR$(K))3PR$(K)PR$(K)"0"eu(PR$(K))1PR$(K)PR$(K)".00"v5100:7:" ^";T$(K);16);"$";PR$(K);26);Q(K)xAN$(K)(P(K)Q(K)):(AN$(K))2AN$(K)AN$(K)".00"y(AN$(K))4AN$(K)AN$(K)"0"zK:950HE SHIRTS IS":"$25.40."9g9570:6:29:"$25.40":9500iFLĢ8TY:T114:9525:5100:7:" ^";T$(T1);16);"$";PR$(T1);26);Q(T1):T1:9500:655l11000:TT105:BB130:9900r2500:9525:8TY:K14:Q(K)(7(1)3)sP(K)(((1)1000))100:,":"SHOW YOUR ANSWER IN DOLLARS AND":"CENTS."eDT13:13000:P$"$ .":V5:H12:8010:11000:9000tN5000:X10QTYFL617STYĒ7:626U5100:7X9570:6:" ^SHIRTS";16);"$6.35";26);"4":9500]FL615b8:" ^THE TOTAL COST OF T04T120:0:2:13:"1":3:14:"6":4:17:"4"b!7:2:13:"1":3:14:"6":4:17:"4":Ts&11000:9850010:"25 HUNDREDS IS THE SAME AS 2,500.":T13:130005P$"25":V5:H13:8010:11000:9600/:8:" ^SINCE YOU ARE WORKING WITH MONEY4 HUNDREDS.">P$"6":P1$" 4":V3:H14:8010 11000:9600:7:" ^REMEMBER TO INCLUDE ANY HUNDREDS":"YOU MADE WHEN YOU MULTIPLIED THE":"TENS."T13:13000:" 24 HUNDREDS + 1 HUNDRED =":" 25 HUNDREDS"T13:13000:0:1:" 1":1:7:" 1":T5<11000:10EF"$38.4210"mP:"^IF THE DIGIT THAT FOLLOWS THE"T"DOLLARS AND CENTS IS ^L^E^S^S ^T^H^A^N 5,"U167,56254,56XT115:0:1:" 1":1:7:" 1":TY5 Z"THE DOLLARS AND RS AND CENTS."?:T115:0:1:"$38.42":7:1:"$38.42":Ta7:"^WHAT DIGIT FOLLOWS THE"{ "DOLLARS AND CENTS?""^TYPE YOUR ANSWER. ->";:MA1:10000:N$"1"RT9:60000(:"^NO, THAT'S NOT IT. ^THE ANSWER"-"IS 1."&2T12110::" $235.60":" X .05":"$11.78 00"O71,4462,57:61,4454,57`02,4371,43o11000:10"$38.4210""^THIS IS THE ANSWER TO A MULTI-""PLICATION EXAMPLE INVOLVING""SALES TAX. ^THE ANSWER SHOULD BE""IN DOLLAw"ADDITIONAL STUDENTS ARE "52tw"TO USE THIS DISK."@2~w11000K2w30340ROTECT")1v"TAB FROM THE DISKETTE THEN"L1v"PLACE IT INTO THE DRIVE AND"o1v"PRESS THE ^R^E^T^U^R^N KEY."1vA$:A$(13)304101v1000:1v1v303401Lw2000:9000:51Vw" ^THE STUDENT SCORES FILE"1`w"MUST BE PURGED OR ERASED IF"2j0>v768,104:769,168:770,104:771,166:772,223:773,154:774,072:775,152:776,072:777,096j0HvER(222)s0Rv7680fvER4303600zvER9305400v1000::(4);"CLOSE ":(4);"RUN MENU"0vREBOOT0v2000:9000:51v" ^PLEASE REMOVE THE WRITE P(NW)30190,/u(4);"WRITE ";FI$;",R";RQ15/uLI$R/u(4);"WRITE ";FI$;",R0"Z/uS$l/u(4);"CLOSE"r/u/v(4);"READ ";FI$;",R0"/ vRQ/v(4)/ vRQRQ1/*vS$"":I138:S$S$" ":I:S$(RQ)S$:S$(S$,40):/4v ERROR TRAP ROUTINE\ "ZXZZ1.luZZ:NA$(LI$,16,ZX):LN$(LI$,ZY):X.vu1000:LL41:FI$"STUDFILE":30260x.{u:(4);"OPEN ";FI$;",L";LL.uNW1İ30210.uCL(CL1)231.uLZ$(LI$,CL1)SR$(LI$,CL2).uLI$(LZ$,40).u(4);"WRITE ";FI$;",R";RQ.uLI$ /u16299,0:16297,0:7:T02798:T,0T,191:TN-*NT019115:0,T279,T:T:d-0uLL41: GET INFO-:uLI$"":ZZ1LL:LI$LI$((592ZZ)):ZZ:NW(591)-DuRQ(590)256(588)-NuCL(589)1-XuZZ115:(LI$,ZZ,1)" "ZYZZ.bu(LI$,ZZ15,1)"":X1X11:7:100102,*16368,0:38219,7:CM(0)h,+13:" (^PRESS THE ^SPACE ^BAR TO CONTINUE)":AC$|,+AC$" "11000, +38219,8,+ENı,+25113,179:25114,190,+25115,39:25116,1:25145,40:25154:,2:T91T1500:T9:.- N16304,0:"K":10030$++'A$"0"A$"9"100109+.'(N$)MAX10010`+8'X1X11:Y:X1:A$:N$N$A$:10010s+L'(N$)010010+Q'(N$,1)"."S8$""+V'(N$)1Ē0:Y:X1:N$:Y:X1:" ":X1X:7:N$"":10010,`'A$(N$,1):N$(N$,(N$)1):0:Y:X1:A$:Y:X1:" 0:T134191:0,T279,T:T:7:C*&0:TTTBB:0,T279,T:T:7:Y*'X1X:N$"":S8$""t*'16368,0:Y:X11:A$*'N$""A$(13)ı*'(N$)MAXA$(8)10010*%'N$""A$(13)10010*('A$(8)10060*)'A$"."S8$"K"10010 +*'A$"."S8$38200,3:7:3)5%38219,13:38210,11:38200,3:7:Y)N%38219,14:38210,10:38200,3:3:i)b%38219,10:)%0:T89191:0,T279,T:T:7:)%0:T74191:0,T279,T:T:7:)%0:T102180:0,T279,T:T:7:)H&0:T148191:0,T279,T:T:7: *z&(6(L" $ 6.35":" ^X 4":1^(~(37):9:T111:(95);:T::7:u(@38219,O:38210,LI(JT0RR:H1:V:H(TP$:P1$:H2:V:H:P$:P1$(^T:9500:P$"":P1$"":CM(0):RR20:((#62450:1:1: )%38219,8:38210,14:0," ";T$,,I11000:I:8:" $"[,T11000:T:73,10480,115:81,10488,115j,11000:10,4:" ";A1$:" X .0";(A2$,1),30,7390,73," $";(T$,(T$)2):,$"^THE SALES TAX ON THIS PURCHASE",."IS $";A3$ -8118:5:7:T$:T+\11000:10E+f"^SINCE THE ANSWER IS IN DOLLARS"l+p"AND CENTS, CROSS OUT THE LAST 2"+z200,26250,26+"NUMBERS AND WRITE A DOLLAR SIGN"+"IN FRONT OF THE ANSWER.":+" ";A1$:" X .0";(A2$,1),32,10090,10$"0"+*.(T$)5(T$,3,1)"."T$T$"00"Z*/(T$)5(T$,2,1)"."T$T$"0":T$" "T$*0(T$)3(T$,2,1)"."T$T$"000":T$" "T$*1(T$)4(T$,3,1)"."T$T$"000"*2(T$)6(T$,2,1)"."T$" "T$*4" ";T$+>T120:0:8:5:T$:,100=)#S8$"Y"T$(((A1$,3))((A2$)100)):S8$"":4650`)%T$(((A1$,2))((A2$)100)))*(T$)3(T$,3,1)"."T$T$"0000")+(T$)2(T$,2,1)"."T$T$"0000":T$" "T$),(T$)4(T$,2,1)"."T$T$"00"*-(T$)6(T$,3,1)"."T$T"THAT IS NOT THE ANSWER."D("^PLEASE TRY AGAIN.":11000:10:4480O(10:2t("^PLACE A DECIMAL POINT IN THE"( "ANSWER SO THAT 4 NUMBERS FOLLOW"("IT."((A1$)6A1$" "A1$:S8$"Y"(:" ";A1$:" X .0";(A2$,1)) 32,10090E ON YOUR PAPER"9'"AND TYPE YOUR ANSWER. ^BE SURE TO"`'"GIVE YOUR ANSWER IN THE CORRECT"z'"DOLLARS AND CENTS."'"->$";:MA5:10000:'(A3$N$)(A3$(N$".00"))RT11:SPSP1:60000'WR4600'WR1'10:"^SORRY, ";NA$;","((PR$(CW),6,1))1;"."%&11000:4080K&010:6:"^LET'S TRY ANOTHER TYPE"c&:" OF EXAMPLE."n&D11000w&bCW0&lCWCW1:WR0:CW58000&v50000&3:"^FIND THE SALES TAX ON A PURCHASE"&"OF ";A1$;" AT ";A2$;"."':"^DO THIS EXAMPL(36):7:((PR$(CW),6,1))1,%T1500:TK%0:5:32:(PR$(CW),2):7%C2((PR$(CW),1))17:C1(((PR$(CW),2),1))17%T801802:C1250,T:C2259,T%TT,2%C1250,T:C2259,T:T&10:"^THEREFORE, THE ANSWER IS ";(PR$(CW),5);( AND CENTS IS 5 ^O^R ^M^O^R^E,"2$w168,27246,27U$|"ADD $ .01 TO THE SALES TAX."~$:" ";PR$(CW);" BECOMES ";PR$(CW)$T1500:T$I2731:0:5:I:(PR$(CW),2):7:5:I1:(PR$(CW),2):I$T1500:T%5:26:0:(PR$(CW),6,1);::(PR$(CW),7,1):1:7:7:(PR$(CW),7,1):TR#T5:"THE DOLLARS AND CENTS STAYS"f#X"THE SAME.":0#\1:7:(PR$(CW),7):7#^8:"^THEREFORE, THE ANSWER IS ";(PR$(CW),6);"."#c11000:4080#h10:"^IF THE DIGIT THAT FOLLOWS THE"$r"DOLLARSA$;","%"'"THAT IS NOT THE ANSWER."P",:"^TRY AGAIN.":11000:10:WR1:4085n"5((PR$(CW),7,1))44200"610:PR$(CW)";:"^IF THE DIGIT THAT FOLLOWS THE""@"DOLLARS AND CENTS IS ^L^E^S^S ^T^H^A^N 5,""J170,55260,55,#OT115:0:1:7"TAX.":0!"^TYPE THE CORRECT SALES TAX IN"J!"DOLLARS AND CENTS."d! "->$";:MA5:10000:!SW0:W((((PR$(CW),2))1000))10:(W(W)).49W(W)1:SW1!W(W)100:(W(N$)).001RT12:SPSP1:60000!WR4149""10:"^SORRY, ";N:24250,T:20259,T:TT,25 24250,T:20259,T:TZ 7:"^NOW, TRY SOME EXAMPLES ON"k "YOUR OWN."v 11000 CW0 CWCW1:WR0:10:CW54450 PR$(CW) "^THIS IS THE ANSWER TO A MULTI-" "PLICATION EXAMPLE INVOLVING SALES" !163,25241,250"ADD $ .01 TO THE SALES TAX."V:" $22.1273 BECOMES $22.1273"fT1500:TI2731:0:5:I:"73":7:5:I1:"73":IT1500:T5:26:0:"2";:(36):7:"3"T1300:T0:5:32:"73":7 T80180211000:0HT6071:0,T205,T:165,T13190,T13:0,T60240,T60:Tx7:6:20(B$):(A$,SK);"?":6:21(B$)T2SK:(95);:T::0:T56(C$)848S8(C$)8:T,25T,45:T:7-48S8(C$)8,4048S8(C$)8,28:54(C$)8,2556(A$,SK);".":4240L"^THERE ARE ";NU$(N4);" ";B$;"'S IN ";(A$,SK);"."gT115:0:2:8(C$)((E$,(C$)1),S):7:2:8(C$)((E$,(C$)1),S):TN44360SS1:S1EDĢ9:"OVERFLOW":(SE)(D0)(K0)SS1:K1 $)8,25DT56(C$)8,3060(C$)8,2561(C$)8,2564(C$)8,30b^NA$"":NB$A$:4200:4210hNA$NA$(NB$,1):NB$(NB$,2):VA((NA$)):VB((B$)):N4(VAVB):AN$(N4):N5N4VB:NA$(VAN5):r11000|9:N41ĺ"^THERE IS ONE ";B$;" IN ";$:EE$E$(A$,E)*DE$E$D$(A$,D)B"7(B$):B$;" ";E$U,D$"."D$" "65:"^LOOK AT THIS EXAMPLE.":"^HOW MANY ";B$;"'S ARE IN ";(A$,1):6:20(B$):(95);"?"@155(B$)8,85155(B$)8,90215,90215,40J60(C$)8,4060(C"^LET'S REVIEW DIVISION."(11000:1084010:5000LA$"760":B$"8"_C$"$":D2:E1iLL23rLM0D$"":DD$".":8:C$;:DĺE);".";S1:K0(E)S2:K152,2552,13:51,2551,1355(C$D$A$)8,13E$CSWER."D "->$";:MA3:10000?F N$".95"ĭ(WR)RT3:60000RH N$".95"5000_J WR4000lN 10:WR1S :"^SORRY, THAT IS INCORRECT."V :"^PLEASE TRY AGAIN.":3130 1100010:::KZKZ1"^SORRY, THAT IS ALSO INCORRECT.":YOU WILL FIND THE COST OF ONE"@3 "ISSUE AT THE SPECIAL PRICE"n5 "BY DIVIDING.":3:4:I18:(95);:I:w9 WR0: 11000< 10::6:"8 $7.60"> 52,2552,13:51,2551,1395,13@ :"^DO THIS EXAMPLE ON YOUR PAPER."A "^THEN TYPE YOUR ANS NOT CORRECT.":11000:10 " ^WHEN YOU KNOW THE TOTAL AND YOU":"WANT TO FIND EQUAL AMOUNTS,":"YOU DIVIDE. ^TRY AGAIN." WR1:3058& "^THAT IS STILL INCORRECT.":"^THE CORRECT CHOICE IS TO DIVIDE."' KZKZ1( 110000 10:WR01 "^"3 " ^WHAT MUST YOU DO TO FIND THE":"ANSWER?"k :" ^A) ^ADD":" ^M) ^MULTIPLY":" ^D) ^DIVIDE" 10:"^TYPE ^A,^M OR ^D. "; 16368,0:A$:A$"A"A$"M"A$"D"3070 "^";A$ A$"D"RT1:60000 WR3110 :"^NO. THAT I "ISSUE OF THIS MAGAZINE AT THE"3 "NEWSSTAND."T :"^ONE ISSUE COSTS $1.25."| :"^WHAT IS THE COST OF ONE ISSUE" "IF YOU BUY 8 ISSUES FOR $7.60?" 11000 10 "^WHAT IS THE COST OF ONE ISSUE IF" "YOU BUY 8 ISSUES FOR $7.60?V ^TIMES,"/ "WHICH WOULD BE MAILED TO YOU."n I115:0:9:" SUBSCRIPTION":7:9:" SUBSCRIPTION":Iy 11000 10 "^TO FIND OUT IF YOU COULD SAVE MONEY" "BY ORDERING A SUBSCRIPTION, YOU" "MUST FIRST KNOW THE PRICE OF ONE"! "- " OF ^T^V ^T^I^M^E^S FOR ONLY $7.60!"3 \ " ^DON'T ^DELAY! ^SEND FOR ^YOUR"} " ^SUBSCRIPTION ^TODAY!" 2:10,06264,06264,10010,10010,06:7 : "^A SUBSCRIPTION WOULD BE YOUR ORDER" "FOR THE NEXT 8 ISSUES OF ^T^ READ MAGAZINES? ^PEOPLE"B "SAVE MONEY BY BUYING MAGAZINES AT"[ "SPECIAL PRICES.": "^LET'S LOOK AT AN ADVERTISEMENT (AD)" "OFFERING A MAGAZINE AT A SPECIAL" "PRICE." 11000 10: " ^GET THE NEXT 8 ^M^O^N^T^H^L^Y ISSUESVING" F11000:3000B 54,189:55,158:43603,240:43604,253:n 54,237:55,148:43603,237:43604,148: 4XX67S8K8(D0)8:NN((E$,S(C$),1))17:T23LL:NNXX,T >TT,20 HNNXX,T:T RNNXX,LL:NNXX1,LL: 10 "^DO YOU5 3026028672)H(20),V(20)D(4);"BLOAD SOUND.IT"Q MATH.3\62000g30000wXA$"^"NA$ 20 62450::2000:7:1:"^LESSON 3: ^UNIT ^PRICING"5:3:"^MATH";(6:"FOR";27:"^EVERYDAY"; <8:"^LI     !!! ! ! ! ! !!!!!!!!!""" " " " " """""""""     "D"D F"D"Dx "D"D\j*uD"DQ"D"Dժ@D"D"DH "D"D F"D"DHp?"D""D"Db#D"D"DR*U: "D"#D"D" "D"Db#D"D"`k*]"D"Dx"D"Ԫ@"D"Db#D"D""D"DbG"D#D"D"DH "D"DW*U:'D"D x "D"D F"D"DH "D"D`?+OE"DQ<@#D"DЪ`D"D"DHx "D"D ߮E"D"DH                      >@pp`6@ `  8 tp`GD88tp8`Gl|x8`}89@ pG9p8i\ Goz |xAi  @ik @iKIp-O/zI-AI5MI5In{Iw%O$ @d9 @$Ip$";:MA4:10000g$:((N$)(SB$)).001RT6:60000x$10:WR6096$:"^SORRY, THAT IS INCORRECT."$"^PLEASE TRY AGAIN.":WR1$6005$WR26135$WR2%:"^SORRY, THAT IS ALSO INCOR100)#22,13166,131$#11000:7#p10:WR0:6010F#u11000:10_#z"^ONE ISSUE OF ";T$#"AT THE NEWSSTAND COSTS $";NT$;".":#"^WHAT IS THE COST OF ONE ISSUE"#"WHEN YOU BUY ";BI;" ISSUES FOR $";TK$;"?"$:"^DO THIS EXAMPLE ON YOUR10::"^SORRY, THAT IS INCORRECT."."WR1P":"^PLEASE TRY AGAIN.":5008|"10::"^SORRY, THAT IS ALSO INCORRCT.""KZKZ1":"^HERE IS THE EXAMPLE WITH THE"""CORRECT ANSWER."#::" $";A$:" - ";B$:" $ .";(((A$)(B$))ʺ"^ONE ISSUE ON NEWSSTAND $";A$D!"^ONE ISSUE AT SUBSCRIPTION"k!" PRICE $ ";B$!205,100250,100!:"^SUBTRACT AND TYPE YOUR ANSWER."!:"->$";:MA4:10000!((N$)((A$)(B$))).001RT4:60000!WR5040%""$ .95 IS THE UNIT PRICE.":1:14:I110:(95);:I:b :"^THE UNIT PRICE IS THE AMOUNT YOU" "PAY FOR ONE ITEM, OR ONE UNIT." 11000:10:6300 10:"^WHAT IS THE SAVINGS PER ISSUE IF" "YOU ORDER A SUBSCRIPTION TO" T$;"?":"!EĭJE0F$(F$,JE)" "(F$,JE1)85LK(LK0):7:"-";:9(C$)(D2)1(D0)1((D2)(E2))1(E3)11(F$):2((F$)0));F$B7(E$):0LO0:(F$,1)" "O1V72(C$)8,73LK1055(E$)8,73LK1011000:10:WR07 JF$;".":4870@"^THERE ARE ";NU$(N4);" ";B$;"'S IN ";JF$;"."i11000:0:T87175:0,T279,T:T:710:1:"^YOU WOULD WRITE A ";AN$;" IN THE ANSWER."T115:0:1:7(C$)S:AN$:7:1:7(C$)S:AN$:T$F$((N4(B$)))%.JSK:JN THE LAST NUMBER."SS17LLLL30:2100:11000Y0:T87175:0,T279,T:T:7nJF$NA$(NN17)x42007:"^HOW MANY ";B$;"'S ARE IN ";JF$;"?":7:20(B$):T1(JF$):(95);:T:11000 9:N41ĺ"^THERE IS ONE ";B$;" IN ";"^YOU WOULD WRITE A ";AN$;" IN THE ANSWER."gfT115:0:1:7(C$)S:AN$:7:1:7(C$)S:AN$:T}pF$((N4(B$)))zJSK:JEĭJE0F$(F$,JE)" "(F$,JE1)JEF$" "F$5:7:"-";:9SK:F$45008:"^NOW BRING DOW200V*7:"^HOW MANY ";B$;"'S ARE IN ";JF$;"?":7:20(B$):T1(JF$):(95);:T:a411000>9:N41ĺ"^THERE IS ONE ";B$;" IN ";JF$;".":4690H"^THERE ARE ";NU$(N4);" ";B$;"'S IN ";JF$;"."R11000:0:T87175:0,T279,T:T:7,\10:1:G$,1)"."G$" "(G$,2)18(C$)S(G$):G$O(E$)SK2(D0)14770z8:"^NOW BRING DOWN THE NEXT NUMBER."LK3SS1(SE)(K0)K1:SS1LLLL30:2100:11000 0:T87140:0,T279,T:T:7JF$NA$(NN17) 4F$((N4(B$))):KF$(F$,E)D$(F$,E1)T3:7:"-";:8S(C$)(F$):F$56(C$)8,43LM1055(E$)8,43LM10:LMLM3G$((NA$)((SE)(10(SE1)1)1))I1(G$):(G$,I,1)"."ĭI1G$(G$,I1)" "(G$,I1)I(15:0:2:7(C$)S:(E$,(C$)S,1):7NN2:7(C$)S:(E$,(C$)S,1):TeX1:7(C$)S:AN$ob8:1l"^SINCE ";N4;" TIMES ";B$;" IS ";(N4(B$));",":"SUBTRACT ";(N4(B$));" FROM ";(A$,SK);"."v11000:0:T75128:0,T279,T:T:7/(C$)8,2854(C$)8S8,2856(C$)8S8,25D4200:11000:4220S11000:1052,2552,13:51,2551,1355(E$)8,138:C$;:DĺE);".";&07(B$):B$;" ";E$:6:"^YOU WOULD WRITE ";N4;" ABOVE THE ";(E$,(C$)S,1);"."(DT1(NW)30190,6u(4);"WRITE ";FI$;",R";RQ156uLI$R6u(4);"WRITE ";FI$;",R0"Z6uS$l6u(4);"CLOSE"r6u6v(4);"READ ";FI$;",R0"6 vRQ6v(4)6 vRQRQ16*vS$"":I138:S$S$" ":I:S$(RQ)S$:S$(S$,40):64v ERROR TRAP ROUTINE\ "ZXZZ15luZZ:NA$(LI$,16,ZX):LN$(LI$,ZY):X5vu1000:LL41:FI$"STUDFILE":30260x5{u:(4);"OPEN ";FI$;",L";LL5uNW1İ302105uCL(CL1)2315uLZ$(LI$,CL1)SR$(LI$,CL2)5uLI$(LZ$,40)5u(4);"WRITE ";FI$;",R";RQ5uLI$ 6u(R$,I,1);:I:84HT10,2:T200,3:T100,4:T50,2:T200,4I4 IT11000:TO4 Id40uLL41: GET INFO4:uLI$"":ZZ1LL:LI$LI$((592ZZ)):ZZ:NW(591)4DuRQ(590)256(588)4NuCL(589)14XuZZ115:(LI$,ZZ,1)" "ZYZZ5bu(LI$,ZZ15,1)":18450+3GH(I)H(I)1((H(I)(15I))2)=3HV(I)718500F3HQS1Q3H184623HV(I)7V(I)V(I)1((V(I)7)2):185003HV(I)V(I)1((V(I)7)2)3HV(I)V(I)1:V(I)17V(I)V(I)23DHI3H7:(QWQS)0183404H7:12:I1(R$):"^";1):18320 2GV(I)((1)131)'2GI62GI1(R$)U2GH(I):V(I):"^";(R$,I,1)i2GTV(I)H(I)I,3p2GIw2G02GQW0:QS02GI1(R$)2GH(I):V(I):"^";(R$,I,1)2GH(I)15I184502GQW13GH(I)15IH(I)H(I)1((H(I)(15I))2)179:25114,19061+25115,39:25116,1:25145,40:25154<1 +]1.N1((1)MX1):N1MN12000c1.z1PFR$R$(((1)61))1FI1(R$)1GH(I)(1)200:H(I)(H(I)100)(33)341|GV(I)(1)200:V(I)(V(I)100)(12)13 2G(1)200100H(I)((1)340Q'(N$,1)"."S8$""D0V'(N$)1Ē0:(36):N$;:(36):7:10000~0`'0:(36):(N$,1);:(36):N$(N$,(N$)1):7:100100*16368,0:38219,7:CM(0)0+13:" (^PRESS THE ^SPACE ^BAR TO CONTINUE)"0 +AC$:AC$" "110200+38219,81+25113,/'/'N$"":S8$""A/'16368,0:Z$:(Z$(13))(N$"")ı^/'(Z$" ")(Z$"-")10010q/$'Z$(8)10060/)'Z$"."S8$"K"10010/*'Z$"."S8$"K":10040/.'(N$)(MA)10010/3'Z$"0"Z$"9"10010/8'Z$;:N$N$Z$:10010/L'N$""10010RFECT SCORE!!!":".*:"^BYE..."?.+1000::(4);"RUN MENU"N.,214,255:T.0|.XTQ((1)DH(JW)1):TQDL(JW)7000.]TP$(TQ).bTQND(JW)TQ.lJW4TQ$(TQ):.vTQ$((TQ100))"."((TQ),2).{TP$(((TP$)100))"."(TP$,2)/SR$)2SR$"0"SR$*-SR$"100"SR$"FF"=-30070:2000:U-SR$"FF"SR$"100"g-SR$((SR$))~-%10:SR$"65"6951-&"^CONGRATULATIONS!":-'"^YOU HAVE COMPLETED THIS LESSON."-(:"^YOU SCORED ";SR$;"%.":.)SR$"100"ĺ"^THAT'S A PEKZ1(," ^LET'S LOOK AT THE PROBLEM"D,"TOGATHER.":11000:10n,A$((TQ$)100):B$(ND(JW)):D2:E1,JW4E3:D0:A$TQ$,(JW4)((A$)4)E2,C$"$":4030,JWJW1:JW5İ10:CT0:WR0:7000:6480-SR$((100(KZWZ)WZ)):(+:"^PLEASE TRY AGAIN."$+WR1.+6450=+,WR26800F+1WR2P+610:w+@"^SORRY, THAT IS ALSO INCORRECT."+J" ^LET'S REVIEW THE MODEL EXAMPLE."+O11000:10+T4010:CT0:10:6480+10:+"^SORRY, THAT IS ALSO INCORRECT.",KZE UNIT PRICE BY DIVIDING.":8:24:I18:(95);:I:^*:"^DO THIS EXAMPLE ON YOUR PAPER."}*"^THEN TYPE YOUR ANSWER."*"->$";:MA4:10000*:((N$)(TP$)).001RT5:60000*CT0*WR6700* 10:*"^SORRY, THAT IS INCORRECT."256:25405,(EA(JW)256)36')25344H)CTCT1:((JW))(CT2)6500j)(JW2)(CT4)RK30:25364,0)(JW2)(CT8)6500)(JW3)(CT5)6500)(JW4)(CT4)6500)5:13:DI$(JW))13:ND(JW);" ";DD$(JW);" FOR $";TQ$5*:"^FIND THMS."(-JW0:7000'(211000:10:CT0>(P25345,10:25364,0T(ZRK10:JW4RK20]([CZ0(d25345,RK:25364,(25364)PX(JW)1(CT0)PX(JW)(n25378,PX(JW)(x25370,(SA(JW)256)36:25369,SA(JW)(SA(JW)256)256)25398,EA(JW)(EA(JW)256)'TK$((SB$)BI)1'(TK$)1TK$TK$".00"K'(TK$)4TK$TK$"0"U'6000m'A$NT$:B$SB$:5010'JWJW1:JW46330'JW0' 10:4'"^YOU SHOULD ALWAYS CHECK THE UNIT"'"PRICE OR PRICE PER ITEM WHEN YOU"(("BUY A SET OF ITE