' +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# up(8)10060!&.'(N$)(MA)100103&/'Z$"."10040L&3'Z$"0"Z$"9"10010e&8'Z$;:N$N$Z$:10010v&L'N$""10010&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)'SR$"FF":"^THAT'S A PERFECT SCORE!!!"@%q(SR$)1SR$"0"SR$S%v30070:2000:j%"^BYE...":1000:%(4);"RUN MENU"%214,255:%'%'N$"":16368,0%'Z$:(Z$(13))(N$"")ı%'(Z$" ")(Z$"-")10010%'Z$(13)10010 &$'Z$0:6060#$811:"^THE ANSWER IS ";R$9Z$(RPAK):(Z$,(Z$)2);".";(Z$,2);"."^$:WYWY1s$B11000:10:6010$X10:" ^CONGRATULATIONS!"$b" ^YOU HAVE COMPLETED LESSON 8."&%l:SR$((100(WYWZ)WZ.5)):"^YOU SCORED ";SR$;"%."::SR$"100"WR6200#WR1#10?#" 6% MEANS 6 HUNDRETHS. 6% CAN"d# "BE WRITTEN AS .06. 12% MEANS"#"12 HUNDRETHS AND CAN BE WRITTEN"#"AS .12."#:"^DID YOU REMEMBER TO USE YOUR"#"DECIMAL POINT CORRECTLY?"$$:"^TRY AGAIN.":11000:1AK((1)50001):AK10006050K""^A SALESPERSON'S RATE OF COMMISSION"s""IS ";RP;"%. ^THE TOTAL SALES ARE"""$";AK;".00 . ^WHAT IS THE"""COMMISSION?""9:"^THE ANSWER IS ->$";:MA7:10000":((N$)RP100AK).001RT6:60000 #5:60000!10:5C!"^SINCE ";NZ;"% MEANS ";NZ;" HUNDREDTHS,"p!7:NZ;"% CAN BE WRITTEN AS ";NZ100;"."!11000:10!5010!pJW0!zJWJW1:JW47000!{WR0!RP((1)82)!(1)2001006050!RP((1)291):RP106040 "10 JW0" JWJW1:JW56000O NZ(JW1)12(JW2)25(JW3)6(JW4)9v :"^IF THE RATE OF COMMISSION IS" NZ;"%, THEN AS A DECIMAL ";NZ;"%" "CAN BE WRITTEN AS ?" "^TYPE THE ANSWER. ->";:MA3:10000: !((N$)NZ100).001RTION YOU GET TO KEEP PART"@"OF THE MONEY YOU COLLECTED FROM"N"SALES."_11000:7:8"^THE PART YOU KEEP IS BASED""ON THE RATE OF COMMISSION."11000:9"^THE RATE OF COMMISSION IS""GIVEN AS A PERCENT."11000 00:1510WQ1=38200,3:38210,14:38219,8e"^SOME PEOPLE EARN MONEY SELLING.""^MANY OF THESE PEOPLE WORK ON"I115:0:4:1:"COMMISSION.";:1:7:"COMMISSION.":I11000:13:4"^WHEN YOU WORK ON""COMMISS15:0:10:7VL:GS$(VL,8);:7VL:7:GS$(VL,8):ILF12:11000:15:3780XP11:10gUJW33945Z"^HERE ARE THE REST OF THE TOTAL"d"INCOMES FOR THESE WORKERS."i38200,5:38210,11:38219,18n10:7:I14:GS$(I,8);:I:x12:110A6:10000:= ((N$)((GS$(VL,8),2))).001RT4:60000N15:WR3900{11:" ^THAT IS INCORRECT. ^TRY AGAIN."(WR1:12:11000:15:3800<11:"^THE CORRECT ANSWER IS ";GS$(VL,8);"."=WYWY1A38200,5:38210,11:38219,183BI115 JW0#JWJW1:JW53920,WR06VLJWcLO4(1JW)5(2JW)5(3JW)6(4JW)1o11:10"^WHAT WAS THE TOTAL INCOME OR""AMOUNT OF MONEY EARNED BY ";(NT$(VL),2(4JW),LO)"THIS WEEK?" "^TYPE YOUR ANSWER. ->$";:MUNT")~"OF MONEY EARNED FOR THE WEEK."J38200,5:38210,11:38219,14n10:HR$(9):HR$(10):12:11000v1511:10"^TOTAL INCOME IS CALCULATED BY""MULTIPLYING THE TOTAL NUMBER""OF PIECES BY THE RATE/PIECE."12:11000:8&`8:7:I14:GS$(I,7);:I::12Za38200,5:38210,11:38219,14:8:HR$(7):HR$(8)bb12xe11000:11:0:10j"^RATE ^PER ^PIECE";n" IS THE PRICE"r"PAID FOR EACH PIECE COMPLETED."s7t10:"^TOTAL INCOME";y" IS THE AMOI:12:11000:11:10:0;="^HERE ARE THE TOTAL NUMBERS"_?"OF PIECES COMPLETED BY THESE"B"WORKERS FOR THE WEEK.":7L11:10Q"^RATE ^PER ^PIECE";S" IS THE PRICE"V"PAID FOR EACH PIECE COMPLETED."[38200,5:38210,11:38219,1VL,J));"+";:J:(GS$(VL,5));"=";GS$(VL,6):79WYWY1C3410O11:10^JW33660"^HERE ARE THE TOTAL NUMBERS""OF PIECES COMPLETED BY THESE"$"WORKERS FOR THE WEEK.".38200,5:38210,11:38219,1287:7:I14:GS$(I,6);:MINUTES DID":"YOU WORK ON ";DA$(R1);"?"C"^TYPE THE HOUR(S)."gMAX1:X19:Y10:10000:N1$N$:"^TYPE THE MINUTE(S).":MAX2:X20:Y11:10000:9700(N1$)N1(R)(N$)N2(R)İ5000:4080JYJY1R6400,6500,6600,6700,68003 :"^WED.":"^THURS.":"^FRI."1 2:0,25279,25O T418511:0,T279,T:T 50,2550,96:114,25114,96:192,25192,96:234,25234,96 9500R15:9550:3R:7);A$(R);"^A.^M.";16);B$(R);"^P.^M.":9500)8:" ^HOW MANY HOURS AND 38210,10:3:38200,6b 1:" ^S^U^P^E^R ^M^A^N^U^F^A^C^T^U^R^I^N^G ^C^O^M^P^A^N^Y":"^NAME";{ T125:(95);:T: 2:6:NA$;" ";LN$ 38210,12 "^DAY ^TIME ^IN ^TIME ^OUT ^HR. ^MIN." 38219,17:38210,10 "^MON.":"^TUES." UP THE TIME YOU WORKED FOR A"B"DIFFERENT WEEK.":11000:9000X3000:DD5:14040b4000w11000:1000::54,189:55,158:43603,240:43604,253:54,237:55,148:43603,237:43604,148: 2:0,0278,0278,960,960,0 38219,10:JY136:28,13028,11870,118:30,14760,147:7>110009000:" ^YOU WORKED 32 HOURS, PLUS 1 HOUR":"AND 56 MINUTES MORE.":" ^YOU WORKED A TOTAL OF 33 HOURS":"AND 56 MINUTES.":110009000:" ^HERE'S ANOTHER TIME CARD. ^LET'S":"ADDNOW TYPE THE REMAINING MINUTES.":Y10:X33:MAX2:10000:_p9700:N1$"1"N$"56"İ5000:930kuWW910z8:" ^NO, THAT IS INCORRECT.":"^TRY AGAIN."WW1:11000:9700:8508:" 1 HOUR":" 60 116":" -60":" 56 MINUTES"JYWORKED 32 HOURS AND 116 MIN-":"UTES. ^SINCE THERE ARE 60 MINUTES"H"IN AN HOUR, CHANGE 116 MINUTES":"INTO HOURS AND MINUTES.":11000:9700R8:" ^HOW MANY HOURS ARE IN 116 MINUTES?":"^TYPE THE HOUR(S)."\Y9:X19:MAX1:10000::N1$N$9f"^ 50005 9:" ^NOW TYPE IN THE TOTAL MINUTES."Y1:T97100:237,T279,T:T:7 8:30:">":MAX3:X30:Y8:10000:%9700*N$"116"Ģ8:JYJY1:" ^NO, THE CORRECT ANSWER IS":"116 MINUTES.":11000:9700:83045000B>8:" ^YOU 9600:9:" ^LET'S ADD UP YOUR TOTAL HOURS FOR":"THIS WEEK. ^TYPE THE NUMBER OF":"HOURS."5:T97100:192,T234,T:T:78:25:">":MAX2:X26:Y8:10000:9700N$"32"Ģ8:" ^NO, THE CORRECT ANSWER IS":"32 HOURS.":11000:9700:780RITE ";FI$;",R";RQ1-uLI$:-u(4);"WRITE ";FI$;",R0"B-uS$T-u(4);"CLOSE"Z-uv-v(4);"READ ";FI$;",R0"~- vRQ-v(4)- vRQRQ1-*vS$"":I138:S$S$" ":I:S$(RQ)S$:S$(S$,40):-4v ERROR TRAP ROUTINED.>v768,104:769,168:77I$,16,ZX):LN$(LI$,ZY):@,vu1000:LL41:FI$"STUDFILE":30260`,{u:(4);"OPEN ";FI$;",L";LLq,uNW1İ30210,uCL(CL1)231,uLZ$(LI$,CL1)SR$(LI$,CL2),uLI$(LZ$,40),u(4);"WRITE ";FI$;",R";RQ,uLI$,u(NW)30190-u(4);"W2:T200,3:T100,4:T50,2:T200,41+ IT11000:T7+ IL+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)" "ZXZZ,luZZ:NA$(L((H(I)(15I))2)%*HV(I)718500.*HQS19*H18462g*HV(I)7V(I)V(I)1((V(I)7)2):18500*HV(I)V(I)1((V(I)7)2)*HV(I)V(I)1:V(I)17V(I)V(I)2*DHI*H7:(QWQS)018340*H7:12:I1(R$):"^";(R$,I,1);:I: +HT10,1)131))GI)GI1(R$)=)GH(I):V(I):"^";(R$,I,1)Q)GTV(I)H(I)I,3X)GI_)G0m)GQW0:QS0|)GI1(R$))GH(I):V(I):"^";(R$,I,1))GH(I)15I18450)GQW1)GH(I)15IH(I)H(I)1((H(I)(15I))2):18450*GH(I)H(I)1BI125:12:10:((1)8):R$:TI,3:TI,2:I:0:12:10E(BR$:11K(0Cb(PFR$R$(((1)61))q(FI1(R$)(GH(I)(1)200:H(I)(H(I)100)(33)34(|GV(I)(1)200:V(I)(V(I)100)(12)13(G(1)200100H(I)((1)341):18320)GV(I)((*3'+13:" (^PRESS THE ^SPACE ^BAR TO CONTINUE)"L' +AC$:AC$" "11020g'+38219,18:WQĹ38219,8'+25113,179:25114,190'+25115,39:25116,1:25145,40:25154' +'hB15:R$R$(((1)61))'rBV$"":I1(R$):V$V$"^"(R$,I,1):I:R$V$9(S.":"12:00 ^P.^M. TO 3:00 ^P.^M. IS 3 HRS."G/6:200,132279,132:7w/12);"TOTAL IS 6 HRS.":11000:9700/6:10,132130,132:7/8:5);"3:42 ^P.^M.":4);"-3:00 ^P.^M.":7);"42 MINUTES"/6430C0X8:" ^HOW MANY ";T$(TI);" IS IT:00 ^P.^M. TO 4:00 ^P.^M. IS 4 HRS."?.16:200,132279,132:7o.613);"TOTAL IS 6 HRS.":11000:9700.;6:10,132130,132:7.@8:5);"4:22 ^P.^M.":4);"-4:00 ^P.^M.":7);"22 MINUTES".J6430,/8:"9:00 ^A.^M. TO 12:00 ^P.^M. IS 3 HR MINUTES"-6430l-8:"8:45 ^A.^M. TO 12:45 ^P.^M. IS 4 HRS.":"12:45 ^P.^M. TO 3:45 ^P.^M. IS 3 HRS."-6:200,132279,132:7-12);"TOTAL IS 7 HRS.":11000:9700-10-6430$.,8:"10:00 ^A.^M. TO 12:00 ^P.^M. IS 2 HRS.":" 12000:9700:d,d8:"9:00 ^A.^M. TO 12:00 ^P.^M. IS 3 HRS.":"12:00 ^P.^M. TO 4:00 ^P.^M. IS 4 HRS.",i6:200,132279,132:7,n12);"TOTAL IS 7 HRS.":11000:9700,s6:10,132130,132:7 -x8:5);"4:30 ^P.^M.":4);"-4:00 ^P.^M.":7);"30RS."+6:200,132279,132:7O+ 12);"TOTAL IS 7 HRS.":11000:9700i+6:10,132130,132:7+8:5);"4:30 ^P.^M.":4);"-4:15 ^P.^M.":7);"15 MINUTES"+"^FOR ";DA$(R1);", YOU WORKED ";N1(R);" HOURS":"AND ";N2(R);" MINUTES." ,(118:" ^NOW WE CAN CONTINUE WITH OUR":"PROBLEM."x*" 4 HRS. 72 MIN.":" -4 HRS. 48 MIN.":" 24 MIN."*6:0,160150,160:7*11000:9700:8:6030+8:"9:15 ^A.^M. TO 12:15 ^P.^M. IS 3 HRS.":"12:15 ^P.^M. TO 4:15 ^P.^M. IS 4 H":"IN AN HOUR. ^FOR EXAMPLE:"g)" 1 HOUR=60 MINUTES":" 2 HOURS=120 MINUTES, ETC.":11000:9700)8:" ^IF WE HAD 5 HRS. AND 12 MIN.,":"WE COULD CHANGE IT TO...")" 4":" 5 HRS. 12 MIN. + 60 MIN.")25,14545,165:11000:9700/*(B12);"TOTAL IS 5 HRS.":11000:9700H(G6:10,132130,132:7(L8:5);"3:00 ^P.^M.":4);"-2:30 ^P.^M.":7);"30 MINUTES"(V6030(8:"^FROM 10:48 ^A.^M. TO 4:48 ^P.^M.IS":"6 HRS.")11000:9600:8:"^REMEMBER, THERE ARE 60 MINUTES;"TOTAL IS 7 HRS.":11000:9700@'6:10,132130,132:7'8:5);"3:47 ^P.^M.":4);"-3:05 ^P.^M.":7);"42 MINUTES"'6030'88:"9:30 ^A.^M. TO 12:30 ^P.^M. IS 3 HRS.":"12:30 ^P.^M. TO 2:30 ^P.^M. IS 2 HRS."'=6:200,132279,132:7.4);"-4:10 ^P.^M.":8);"5 MINUTES"o&"^FOR ";DA$(R);", YOU WORKED ";N1(R);" HOURS":"AND ";N2(R);" MINUTES."&11000:9700:&8:"8:05 ^A.^M. TO 12:05 ^P.^M. IS 4 HRS.":"12:05 ^P.^M. TO 3:05 ^P.^M. IS 3 HRS."&6:200,132279,132:7&'12)$(T2)%%T11:13000:9600:RARA1:~%p8:"9:10 ^A.^M. TO 12:10 ^P.^M. IS 3 HRS.":"12:10 ^P.^M. TO 4:10 ^P.^M. IS 4 HRS."%u6:200,132279,132:7%z12);"TOTAL IS 7 HRS.":11000:9700%6:10,132130,132:7"&8:5);"4:15 ^P.^M.":000$:" ^BYE..."7$1000::(4);"RUN MENU"F$214,255:p$X1:T2(5(1)1):JZJZ1:T12008z$XX1$T$7:9:X:RE$(T2)$768,255(9X):769,5:770$0:9:X:RE$(T2)$768,255(6X):769,5:770%T:7:9:26:REKING":"TIME BECOMES 34 HOURS AND":"49 MINUTES.":11000U#SR$((100(JYJZ)JZ))#9000:" ^WELL, ";NA$;", YOU ANSWERED":SR$;"% OF THE LESSON CORRECTLY."#:SR$"100"SR$"FF":"^THAT'S A PERFECT SCORE."#(SR$)1SR$"0"SR$$30070:20:">":MAX3:X30:Y8:10000:("h9700"rN$"109"Ģ8:JYJY1:" ^NO, THE CORRECT ANSWER IS":"109 MINUTES.":11000:9700:4230"|5000"8:" ^YOU WORKED 33 HOURS AND 109 MIN-":"UTES. ^SINCE THERE ARE 60 MINUTES"8#"IN AN HOUR, YOU TOTAL WOR:192,T234,T:T:7;!"8:25:">":MAX2:X26:Y8:10000:E!,9700!6N$"33"Ģ8:JYJY1:" ^NO, THE CORRECT ANSWER IS":"33 HOURS.":11000:9700:4170!@5000!J9:" ^NOW TYPE IN THE TOTAL MINUTES."!T1:T97100:237,T279,T:T:7"^8:39550:P$(N1(R))" "(N2(R)):V3R:H27:8010: R 8:" ^HERE IS YOUR TIME CARD SHOWING":"YOUR WORK DURING THE FULL WEEK." 11000:9600:9:" ^LET'S ADD UP YOUR TOTAL HOURS FOR":"THIS WEEK. ^TYPE THE NUMBER OF":"HOURS."!5:T971009T,0T279T,127T0T,127T0T,0T:TF 3:T4123:5,T275,T:T] 38219,0:38210,12 0:2:25:"^NO. 1234":3:" ^E^V^E^R^Y^D^A^Y ^D^E^P^A^R^T^M^E^N^T ^S^T^O^R^E" " ^PAY TO THE ^DATE ^JAN.7,1989"! " ^ORDER OF";:T125:(0T10:" WHAT IS THE TOTAL DEDUCTION FOR THIS"::"PAY CHECK? TYPE THE ANSWER."oX29:Y12:MAX6:10000y700011000:1000::54,189:55,158:43603,240:43604,253:54,237:55,148:43603,237:43604,148:( 1:T03:0T,0T27UTION ACT, KNOWN TO MOST PEOPLE":J"AS THE SOCIAL SECURITY TAX.":92010:" THE FIFTH DEDUCTION IS ";::"OTHER";::"."::"THIS MIGHT BE FOR DUES, HOSPITALIZATION,""AND/OR OTHER BENEFITS THAT YOU GET AND"::"HAVE TO PAY FOR.":920WR OUT OF YOUR PAY":"TO HELP SUPPORT THE FEDERAL, STATE,"::"AND CITY GOVERNMENTS. IN SOME PLACES"::"THERE ARE NO STATE OR CITY TAXES.":92010:" THE FOURTH DEDUCTION IS F.I.C.A."::"" F.I.C.A. STANDS FOR FEDERAL INSURANCE"::"CONTRIBIONS ARE CALLED"::"FEDERAL TAX, STATE TAX, AND CITY TAX."I920:93023:16368,0:" (PRESS THE SPACE BAR TO CONTINUE)";:AC$::AC$" "92010:958:10:" THE FEDERAL, STATE, AND CITY TAXES"::"ARE ";::"WITHHELD";::" OR TAKENsz9000:" ^NO, THAT IS INCORRECT."::" ^DEDUCTIONS ARE TAXES AND OTHER":"MONEY TAKEN FROM THE GROSS PAY.":8009900:7:"^THAT IS STILL NOT CORRECT."::" ^IT IS CALLED DEDUCTIONS."JYJY111000:9000:6000;10:" THE FIRST 3 DEDUCT PAY?":"^IT IS CALLED..."Z>:" ^A) REDUCTIONS":" ^B) DEDUCTIONS":" ^C) PREDUCTIONS"{H:" ^TYPE ^A,^B, OR ^C. ";R1000:A$:A$"A"A$"C"850\2000a"^";A$fA$"B"İ9900:JZJZ1:7:"^THAT IS RIGHT!!!":900pWRWR1:WR2895 '^Y' OR '^N'.";31000:A$:A$"Y"A$"N"790J2000:WR0:"^";A$[ 11000:9000w%WRĺ"^NO, IT IS NOT."*" ^TAXES AND OTHER MONEY ARE TAKEN":"FROM YOUR GROSS PAY."4"^DO YOU KNOW THE NAME GIVEN TO THE":"AMOUNT TAKEN FROM THE GROSS770eWRWR1:WR2Ģ9:JYJY1:"^NO, THAT IS STILL WRONG.":"^THE CORRECT ANSWER IS $434.44":7709:"^THAT'S NOT IT. ^TRY AGAIN.":11000:9800:72011000:9000:3000 10:" ^IS YOUR ANSWER THE SAME AS THE":"AMOUNT ON THE CHECK?":"^TYPET:038219,5438219,5:8:29:"? ? ?":95009:" ^FIND THE GROSS PAY BY ADDING THE":"REGULAR PAY, OVERTIME PAY, AND":"OTHER PAY. ^TYPE YOUR ANSWER.""$"X1:Y12:MAX6:100009800:N$"434.44"Ģ10:"^THAT IS CORRECT!":JZJZ1:T91T1500:T9:Y56T13:M$(T):T:^A.^M.,^P.^M.,NOON:T$(0)"MINUTES":T$(1)"HOURS"56T14:DA$(T):T:^TUESDAY,^WEDNESDAY,^THURSDAY,^FRIDAY56T15:RE$(T):T:^G ^O ^O ^D,^G ^R ^E ^A ^T,^S ^U ^P ^E ^R,^F ^I ^N ^E,^N ^I ^C ^E 66T1DD:A$(115,39:25116,1:25145,40:25154:34.X%139:Y%86s4.C0%0:C3.8:CS.017:AAC0%C3CS:XD%R%(AA):YD%R%(AA)4.X%XD%,Y%YD%:X%XD%,Y%YD%:X%XD%,Y%YD%:X%XD%,Y%YD%4.X%YD%,Y%XD%:X%YD%,Y%XD%:X%YD%,Y%XD%:X%YD%,Y%XD%:4/52X:7:N$"":10010^3`'A$(N$,1):N$(N$,(N$)1):0:Y:X1:A$:Y:X1:" ":X1X11:7:10010}3*16368,0:38219,7:CM(0)3+13:" (^PRESS THE ^SPACE ^BAR TO CONTINUE)":AC$3+AC$" "110003 +38219,83+ENı3+25113,179:25114,190"4+25:Y:X11:A$2'A$"."1001092%'N$""A$(13)10010I2''A$(13)ı\2)'A$(8)10060n2*'A$"."100302+'A$"0"A$"9"100102.'(N$)MAX1001028'X1X11:Y:X1:A$:N$N$A$:100102L'(N$)0100103V'(N$)1Ē0:Y:X1:N$:Y:X1:" ":X1P1$:H2:V:H:P$:P1$;1^T:9500:P$"":P1$"":CM(0):N1(#62450:1:1:s1%38219,8:38210,14:38200,3:7:1N%38219,17:38210,10:38200,6:3:1%0:T102140:0,T279,T:T:7:1%0:T102180:0,T279,T:T:7:1'X1X:N$"" 2'16368,0 FROM":A$;" ";M$(M1);" TO ";B$;" ";M$(M2);"?":"^TYPE THE ANSWER."0bCA0:10000::N$AN$ĺ"^CORRECT. ^IT'S ";AN$;" ";T$(TI);".":CA1:RARA1:0l"^NO, THAT IS NOT RIGHT.":11000:97000vCA0:0@38219,O:38210,LI0JT015:H1:V:H1TP$:19,8:38210,14:7:80%0:T130180:0,T279,T:T:7:[0%0:T73130:0,T279,T::7:0H&0:T119173:0,T279,T:T:7:0&0:T73180:0,T279,T::7:1&9600:10:"^NO, THAT'S NOT RIGHT.":"^REMEMBER...THE NET PAY IS EQUAL":"TO THE GROSS MOP$E$:E$(OT):8300:OT$E$:E$(GP):8300:GP$E$:E$(TD):8300:TD$E$k/NPGPTD:E$(NP):8300:NP$E$/E$"":CM(0):/l T1(E$):(E$,T,1)"."8320/v T:E$E$".00":8330/ (E$)T18330/ E$E$"0"/ /(#62450:1:1:0%382(500(1)1)(1):RP((100RP))100:RP3008100k.OP(80(1)1)(1):OP((100OP))100:OP108110.OT(35(1)1)(1):OT((100OT))100:OT18120.GPRPOPOT:TD(GP.32).005:TD((100TD))100H/E$(RP):8300:RP$E$:E$(OP):8300:THATS A PERFECT SCORE."1-(SR$)1SR$"0"SR$C-30070:2000:S-" ^BYE..."p-1000::(4);"RUN MENU"-214,255:-?999-@38219,O:38210,LI-JT015:H1:V:H-TP$:P1$:H2:V:H:P$:P1$-^T:9500:P$"":P1$"":CM(0):3.RPK AT HOW NET PAY IS":"FIGURED OUT AGAIN, ";NA$;".":175B,7120,9000:"^THAT COMPLETES THIS LESSON,":NA$;". ^THANKS FOR LEARNING","ABOUT ^N^E^T ^P^A^Y.",SR$((100(JYJZ)JZ)),:"^YOU SCORED ";SR$;"%.":-SR$"100"SR$"FF":"^150T,63T0T,63T0T,37T:T&+f7c+10:" ^THIS IS THE AMOUNT OF YOUR PAY":"CHECK.":11000p+FL7330+9000:5:" ^NOW LET'S FIND THE NET PAY":"FOR SOME OTHER PEOPLE.":11000:9000+FL1:7125+W1373608,W23İ9000:" ^LET'S LOOPAY. ^TYPE YOUR":"ANSWER."7**MAX6:X9:Y11:10000:r*4((N$)NP).001ĺ"^THAT'S IT!":JZJZ1:W1W11:7240*>9950:W2W21:W11*CJYJY1*H11000:9000*R4:" ^NET ^PAY $";NP$:4:9:T110:(95);:T:+\5:T03:0T,37T150T,37T000)2:10:"^T^O^T^A^L ^D^E^D^U^C^T^I^O^N^S"=)14:TD$)6:T03:65T,10T207T,10T207T,45T65T,45T65T,10T:T:7)5:T09:0,T279,T:T) T1045:0,T61,T:211,T279,T:T)T4657:0,T279,T:T* 7:10:"^FIND THE NET ::"THAT IS STILL INCORRECT."::" THE TOTAL DEDUCTION FOR THIS PAY"Q(JYJY1w(:"CHECK IS $123.44.":920:7100(:::JZJZ1::"R I G H T ! ! !"::920(6:34:"123.44"(920(230,64:9000::2000(FLİ8100)5000:95" ";::" ";::" ";::" ";::" ";::" ";:{'" ";::" ";::" ";::" ";::" ";::41)'''W'XN$"123.44"7070'bWRWR1:WR27050'l:::"NO, THAT IS NOT RIGHT."::"TRY AGAIN.":920:980E(:" ";::" ";::" ";::" ";r&:" ";::" ";::" ";::" ";::" ";::" ";::" ";:&"60.78";::" ";::"11.72";::" ";:&"15.05";::" ";::" 29.45 ";::" ";:&" 6.44";::" ";::" ";:':" ";::;::" ";::"F.I.C.A.";::" ";:O%"OTHER";::" ";::"TOTAL";::" ";:{%" TAX";::" ";::" TAX";::" ";:%" TAX";::" ";::" ";::" ";::" ";:%" ";::"DEDUC";::39);:%:" ";::" ";:$&" ";::EGULAR ^OVERTIME ^OTHER ^GROSS":" ^PAY ^PAY ^PAY ^PAY"z$FLĢ9:2);RP$;12);OP$;21);OT$;28);GP$:$9:" 352.42 60.18 21.84 434.44"$o$p1000:::1::41):$z" FED.";::" ";::"STATE";"%:" ";::" CITY"NUMBER"7#9500:4:" ^JAN. 7, 1989 123-45-6789"=##2:T03:0T,58T279T,58T279T,118T0T,118T0T,58T#68T,6268T,114:149T,62149T,114:205T,62205T,114#0,90T279,90T:T#3#38219,6:38210,12I$6:" ^R;:T:#" 9:21:"^CHRIS ^BENSON"/" 9500:l"2:T03:0T,0T279T,0T279T,59T0T,59T0T,0T"120T,0120T,59"0,31T279,31T:T"38219,14:38210,10:7#1:" ^PERIOD ^SOCIAL ^SECURITY":2:" ^ENDING ^95);:T! 5:11:NA$;" ";LN$O! 6:" ^THREE ^HUNDRED ^ELEVEN $311.00"n! 6:2:T124:(95);:T:! 38219,5:38210,12! 7:" ^THE ^EVERYDAY ^NATIONAL ^BANK":8:" ^NEW ^CITY, ^MICHIGAN"" 10:23:"^TREASURER":9:20:T115:(95)0:7706]DAP5ĺ:" ^LET'S CHOOSE ANOTHER CAREER."EbDAP:N$""{l6:" ^LET'S LOOK AT THIS AD AGAIN.":11000:9000v2408:" ^LOOK AT THE SALARY FOR THIS JOB.":"^WHAT IS BEING ADDED TO THIS":"SALARY?""^TYPE YOUR ANSWER.":Y1):"$";S$:7:16:"^X ";RNF01:105,100155,100:105,101155,101:7Y5N$((S$)RN)s7FLİ7200:SL$N$:580:(N$,(N$)2,1)"."580<(N$,(N$)1,1)"."N$N$"0":580>N$N$".00"DTIıI20(N$):N$N11000:9000XFLFL^SORRY, ";NA$;". ^YOU SHOULD":"MULTIPLY THE SALARY PER HOUR TIMES"WR1ĺ"THE NUMBER OF HOURS WORKED."::"^PLEASE TRY AGAIN.":4509000:1:" ^NO, ";NA$;", THAT'S NOT IT.":"^HERE IS THE CORRECT MULTI-":"PLICATION."JYJY1&6:19(S$YOUR TOTAL WEEKLY":"SALARY BE?"C2:T124126:0,T279,T:T:7p:" ^DO THIS MULTIPLICATION EXAMPLE ON""YOUR PAPER AND TYPE YOUR ANSWER."MAX6:X2:Y12:10000:((N$)(RN(S$))).005İ7000:600WRWR1CWR1İ9000:3:" * 54,189:55,158:43603,2:43604,193:4 &N$""F 016368,0:A$_ :N$""A$(13)1840o DA$(13)ı NA$(32)1840 XA$(8)1920 bA$"A"A$"Z"1840 l(N$)MAX1840 vA$;:N$N$A$:1840 (N$)01840!(N$)1Ē0:(36(LI$,ZZ15,1)" "ZXZZ(ZZ:T54,189:55,158:43603,240:43604,253:54,237:55,148:43603,237:43604,148:(LI$)LLLI$LI$(13):1790I1LL:592I,((LI$,I,1)):I:591,NW:589,A 590,(RQ256):588,(RQ(590)540):^RNRQ1690,h(4);"READ ";FI$;",R";RT4rL$S|(4);"WRITE ";FI$;",R";RQa(L$,40)k(4)RTRT1:RN$((RT)SP$SP$SP$SP$SP$,40)(4);"WRITE ";FI$;",R0"RN$(4);"CLOSE"ZZ115:(LI$,ZZ,1)" "ZYZZ:((LN$SP$,15)(LI$,15))((LI$,16,15)(N$SP$,15))NS1:KRQ:NS0:W CLOSEc1770:z(4);"CLOSE ";FI$ GET"1770:,(4);"READ ";FI$;",R";RN6LI$@(4):J DYNAMIC DELETING RECORDS BY J.M.W.T1770:780:8:" *** ^D^O^N^E ***":1950:1001P OPEN=Z1770:[d(4);"OPEN ";FI$;",L";LLwn(4);"READ ";FI$;",R0"xRT(4)NS0:RT0NS1: FIND1770:RQ1RT(4);"READ ";FI$;",R";RQLI$(4)<1990:1360:1440:NS0İ1520:530:1950:100u1780:30::"^ARE YOU SURE ABOUT PURGING":LN$;", ";NA$;" FROM"("THE STUDENT FILE (^Y/^N)?";:16368,02A$:(A$"Y"A$"N")1330<A$:A$"N"İ1520:100&F:"^PURGING FROM FILE":1610:1TE ";FI$:(4);"OPEN";FI$;",L";LLT(4);"WRITE ";FI$",R0":Z$:(4);"CLOSE ";FI$e1780:30:14:"=--==--==--==--==--=":7:"= ^STUDENT FILE HAS =""= BEEN ERASED ="1:"=--==--==--==--==--=":7:1950:100 NS1İ1360:45001"A$"2")1170$A$:A$"1"1290O:"^ARE YOU SURE (^Y/^N):";:16368,0nA$:(A$"Y"A$"N")1200A$"N"ī10030:5:7:"*** ^PURGING ***":7:"*** ^FILE ***"Z$"":J139:Z$Z$" ":J:Z$"0"Z$(13)!1770:::(4);"DELE ^D^O^N^E ***":1950:100(V1950:100:` ***PURGE***[j30::"^WHICH DO YOU WANT?"t:"<1> - ^PURGE INDIVIDUAL STUDENT":" FROM FILE"~:"<2> - ^ERASE ENTIRE STUDENT FILE":"^ENTER SELECTION (1 OR 2):";:16368,0A$:(A$"Ӡ٠Ӡ٠ INUS THE DEDUCTIONS.":+1'X1X:N$"":ST0F1'16368,0:Y:X11:A$]1'A$"."ST110010w1%'N$""A$(13)100101''A$(13)ı1)'A$(8)100601*'A$"."ST1:100301+'A$"0"A$"9"100101.'(N$)MAX1001028'X1X11:Y:X1:A$:N$N$A$*Q'(N$,1)"."ST0R*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:" ":X1X11:7:10010*t'A$"A"A$"Z"10010*~'10030**16368,0:38219,7:CM(0)++13:" (^PRESS THE ^SPACE T0)'16368,0:Y:X11:A$5)'A$"."ST110010O)%'N$""A$(13)10010_)''A$(13)ır))'A$(8)10060)*'A$"."ST1:10030)+'TE10100),'A$"0"A$"9"10010).'(N$)MAX10010)8'X1X11:Y:X1:A$:N$N$A$:10010*L'(N$)01001038219,10:38210,11:9(%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&0:T134191:0,T279,T:T:7:(&0:TTTBB:0,T279,T:T:7:)'X1X:N$"":S000:9000:&' (N$)2N$N$".00":F'*((N$,2),1)"."N$N$"0"L'4c'@38219,O:38210,LIy'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:38200,3:7:(N%00&YJZJZ1&bY0-&lG$R$((5(1)1))&vT1(G$):Z((G$,T,1)):X1(10T)100(10T)5:S240:YY.68:W(Y)S2:ZX,70W:D15:D:ZX,70W:X&ZX,70W:ZX1,70W:Y0:768,100(T5):769,7:770:T:2X10,70W:2X11,70W 'T12:13ERTISING%T112:O$(T):TT%D$(1)".00":D$(2)".25":D$(3)".50":D$(4)".75":%T(8(1)5):D(4(1)1):S$(T)D$(D):RN(16(1)25):%8T(28(1)1):RN(16(1)25):D1.35(.05T):S$(D):(S$)4ı%BS$S$(D$(1),4(S$)):&X90T013X13:05(1),T:T.$279X2,T2Y$T(X113)503:2795(1)X2,T:T_$$T0279:45T,98((K1TY)12):15:T:$pAIRLINES,SPORTS,MEDICAL,COMPUTER,BUSINESS,TELEVISION%zFOOD ^SERVICES,REPAIR,SALES,FARMING,CONSTRUCTION,ADVCT SCORE!!":SR$"FF"0#:(SR$)1SR$"0"SR$L#30070:2000:"^BYE..."i#1000::(4);"RUN MENU"x#214,255:#11000:1000:#54,189:55,158:43603,240:43604,253:#54,237:55,148:43603,237:43604,148:#7#279X2,00,0$"+""p7:22(AN$):"$";AN$0"u11000:9000d"zDAP1İ9000:5:" ^LET'S TRY ANOTHER EXAMPLE."m"TP0u"DA"9000":"^YOU HAVE COMPLETED LESSON 6."#:SR$((100(JYJZ)JZ.5)):"^YOU SCORED ";SR$;"%."::SR$"100"ĺ"^THAT'S A PERFEYPE THE ANSWER. $":X18:Y8:MAX6:TE0:10000:V!\((N$)((AN$))).005İ7000:900n!aTT100:BB120:9900z!bJYJY1!f:" ^NO, ";NA$;". ^HERE IS":"THE EXAMPLE AND THE ANSWER."!k5:120,86186,86:120,87186,87:0:130,70176,70:7"m6:14:" ^NOW FIND THE TOTAL AMOUNT EARNED":"IN ONE WEEK FROM THIS JOB."j E2:130,70176,70:130,85176,85:7 H:" ^SALARY $":" ^TIPS $ .00" M5:23(SL$):SL$:6:20((TP)):TP ON$((SL$)TP):TI1:570:TI0:AN$N$/!R:"^T900'SL$"123.45"M*((N$)TP).005Ģ10:"^THAT'S RIGHT!":JZJZ1:83049:"^NO, ";NA$;", THAT'S NOT IT.":" ^IF YOU ADDED THE TIPS TOGETHER,"5JYJY16"YOU WOULD HAVE GOTTEN A TOTAL OF":"$";TP;" FOR THE WEEK.">11000:9000B C2:WEDNESDAY":" ^THURSDAY":" ^FRIDAY"1 TP04:T04:4T:17:"$";:D(21(1)10):TPTPD:D:1:136,55(T15)160,55(T15):7:T 10:" ^WHAT ARE THE TOTAL TIPS?":"^TYPE YOUR ANSWER. $":X19:Y11:MAX3:TE0:10000:%TT130:BB165:938210,14:38219,8:TE0X11:" ^HOW MUCH IS THE SALARY?":"^TYPE YOUR ANSWER. $"uX19:Y12:MAX5:10000:WR1:FL1:5001:" ^TIPS ARE ADDED TO THE SALARY.":"^HERE ARE THE TIPS FOR ONE WEEK."( :" ^MONDAY":" ^TUESDAY":" ^THE SALARY FOR":"THIS JOB."4DAP12:N$"":WR0W11000:9900:DAP2İ9000:240^8v38210,12:38219,10" ^THE JOB PAYS $";S$;" PER HOUR.":"^THE TOTAL HOURS FOR THE WEEK ARE":RN;". ^THIS SALARY PART IS PAID BY":"THE EMPLOYER."2:X19:TE1:MAX10:10000:3TT105:BB178:9900N$"TIPS"Ģ9:JZJZ1:" ^THAT'S RIGHT, ";NA$;"!":" ^T ^I ^P ^S !":700JYJY19:" ^THE ANSWER IS TIPS.":T115165:45T,134:45:T11000:9900:62008:" ^TIPS ARE PART OF -";:I"-"'TB04:(RP)TB02`I15:P31(I1)2:SR$(LI$,P,2):SR$"-1"SR$EE$SR$"FF"SR$"100":TBTB1(RP)PS$(I5):3(PS$));PS$;".";(RP)ĭSR$EE$ĺTB);"^NOT TAKEN YET.":782RP0Ė5:780 19 TB)(LI$,16,ZX):"lRP1621,680Dm5);"^S^C^O^R^E^S":5:(37)mv(95);(95);(95);(95);(95);(95)s|75030);" SCORES"30);" ------"20);"";I610" ";I;" ";:I:18);"";I15:" ,0&A$:A$"N"İ1520:100-0A$"Y"5106:550dD1780:RPİ1770::(4);"PR#1":1000:600mN610XRPİ1820:1740:"STUDENT: ";YEE$"***"b(RP)İ1740:1780:30:"^S^T^U^D^E^N^T: ";c(LI$,ZY);", ";g(RP)ĺ:" ";hB$:(B$"1"B$"2")4802RP0:B$"2"RP1EAL1510,1030e1990:1770:1440:NS1580y1780:530:5401780:30:"^STUDENT: ";LN$", ";NA$:"IS NOT ON FILE.":5:"^DO YOU WISH TO EXAMINE ANY":"OTHER STUDENTS (^Y/^N)?";:163680:A$"2"AL1)1360:NS0İ1780:460t1780:30:5:11:"^NO STUDENTS":13:"ON FILE":1520:1780:1950:10030:"^DO YOU WANT THE SCORES TO:"::"<1> - ^THE ^SCREEN"::"<2> - ^THE ^PRINTER":::"^ENTER SELECTION (1 OR 2):";:16368,03q:(4);"RUN MATH.";A$(rREBOOT;| ***SCORES***\30::"^WHICH DO YOU WANT?":"<1> - SINGLE STUDENT'S SCORES"::"<2> - SCORES FOR ENTIRE FILE"::"^ENTER SELECTION (1 OR 2):";:16368,0A$:(A$"1"A$"2")420A$:ALNA$;".",J:"^CHOOSE ANOTHER.":1950:260]T30:6:5:"=-> ^LOADING ^LESSON ";A$;" <-="g^1790sh1770:i(A$"8")ĺ(4);"BLOAD SOUND.IT":(4);"BLOAD TOL,A$6400":(4);"BLOAD PRT.PIC.BIN"j(A$"8")Ĺ1013,76:1014,00:1015,03m38200,*"A$:(A$"1")((A$"6")(A$"9"))290@#A$;:A$"1"301o$B$:B$(8)Ė(36):0:A$;:(36):7:290%B$"0"292&"0":A$"10"-A(A$)6:RE13406(LI$,31A2,2)"-1"340@30:3:"^YOU'VE ALREADY COMPLETED LESSON ";A$;",":$"N"250 ST$"Y"228# 229, RE1^ 30::" (6) - ^LESSON 6":" (7) - ^LESSON 7"i SZ$"" " (8) - ^LESSON 8":" (9) - ^LESSON 9" "(10) - ^LESSON 10" 8:"^WHICH LESSON DO YOU WANT TO WORK":"ON, ";NA$;"? (6 - 10):";:16368,0OU LIKE ";NA$:"TO REPEAT ANY LESSONS? (^Y/^N)"E ST$:ST$"N"100V ST$"Y"228_ 225 30::"^WOULD YOU LIKE TO REVIEW ":NA$"'S GRADES? (^Y/^N) " ST$:ST$"Y"AL0:RP0:SZ$"OKI":580:SZ$"":S5$"WW"ı ST$"N"S5$"WW"ı ST1 L:30:::"^PLEASE CALL YOUR TEACHER OVER."I ST$:ST$(1)221v 30:"^A^T^T^E^N^T^I^O^N ^T^E^A^C^H^E^R" :NA$;" ^"LN$:"HAS ALREADY COMPLETED ALL ":"^MATH ^FOR ^EVERY ^DAY ^LIVING ^LESSONS.":1950:S5$"WW":228:S5$""/ :"^WOULD YOUR LAST NAME." MAX123 :">";: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 L31392:(LI$,L,2)"-1"260 " ZTB14/ d1780:30::MAX11:X(0):RE0D n:"^HELLO!":: x"^PLEASE TYPE IN YOUR FIRST":"NAME, THEN PRESS ^R^E^T^U^R^N." :">";:1830 N$"PURGE"1120 N$"SCORES"380 NA$"^"N$:30 :"^O^K, ";NA$;".":::"^TYPE IN Y RESS THE ^R^E^T^U^R^N KEY."40vA$:A$(13)30410@0v1000:F0vQ0v30340d0Lw2000:9000:50Vw" ^THE STUDENT SCORES FILE"0`w"MUST BE PURGED OR ERASED IF"0jw"ADDITIONAL STUDENTS ARE "0tw"TO USE THIS DISK."0~w110000w30340THIS8611.5:DD.19:T,(10(D))40:T),t@,@38219,O:38210,LIV,JT0RR:H1:V:Hv,TP$:P1$:H2:V:H:P$:P1$,^T:9500:P$"":P1$"":CM(0):RR20:,(#62450:1:1:,%38219,8:38210,14:38200,3:7:,N%38219,11:38210,11:-%0:T89%R%(AA):YD%R%(AA)+VX%XD%,Y%YD%:X%XD%,Y%YD%:X%XD%,Y%YD%:X%XD%,Y%YD%:X%YD%,Y%XD%:X%YD%,Y%XD%:X%YD%,Y%XD%:X%YD%,Y%XD%:+`16:934,15:956,15:0:4838,24:4860,24:1538,23:1560,23#,j8548,36:915,36:1083,37:T3E12:T101005:768,255(1):769,3:770*bD1R:C(D)(D8)T,T:D:T:0:E:7:TT2:D1R1:C(D)(D8)T,T:D:768,100:769,100:770:768,200:769,100:770*lT13:13000:9000:*LD0+QX%49:Y%32:R%32:C0%0:C3.8:CS.064:AAC0%C3CS:XDHOUR ^WEEK":4);"^OVERTIME AT ^TIME AND A ^HALF"<)R16d) T162455:15T,1:15260T,65:T)T1654:1517,T:15245,66T:T)R)P7:9500:)XR$R$((5(1)1)):9000)YJWJW1+*]7:R(R$):T1R:C(T)((R$,T,1)):T:C(R1)2:R,T10(1)3:R,Te(4:T76100:210,T252,T:T:7:209,100209,76253,76253,100:231,76231,100(7:T065:16,T245,T:T(4(9550:1:12:"^A^B^C ^C^O^M^P^A^N^Y":5);"^JOBS ^AVAILABLE-^APPLY ^NOW"1)11);"^NO ^EXPERIENCE":11);"40-^HE DISKETTE THEN"45v"PLACE IT INTO THE DRIVE AND"W5v"PRESS THE ^R^E^T^U^R^N KEY."p5vA$:A$(13)30410|5v1000:5v5v303405Lw2000:9000:55Vw" ^THE STUDENT SCORES FILE"5`w"MUST BE PURGED OR ERASED IF"6jw"ADDITIONAL STUDENTS A0,104:771,166:772,223:773,154:774,072:775,152:776,072:777,096R4HvER(222)[4Rv768k4fvER430360{4zvER9305404v1000::(4);"CLOSE ":(4);"RUN MENU"4vREBOOT4v2000:9000:54v" ^PLEASE REMOVE THE WRITE PROTECT"5v"TAB FROM TRITE ";FI$;",R";RQ13uLI$:3u(4);"WRITE ";FI$;",R0"B3uS$T3u(4);"CLOSE"Z3uv3v(4);"READ ";FI$;",R0"~3 vRQ3v(4)3 vRQRQ13*vS$"":I138:S$S$" ":I:S$(RQ)S$:S$(S$,40):34v ERROR TRAP ROUTINED4>v768,104:769,168:77I$,16,ZX):LN$(LI$,ZY):@2vu1000:LL41:FI$"STUDFILE":30260`2{u:(4);"OPEN ";FI$;",L";LLq2uNW1İ302102uCL(CL1)2312uLZ$(LI$,CL1)SR$(LI$,CL2)2uLI$(LZ$,40)2u(4);"WRITE ";FI$;",R";RQ2uLI$2u(NW)301903u(4);"WT02798:T,0T,191:T71*NT019114:0,T279,T:T:L10uLL41: GET INFO1:uLI$"":ZZ1LL:LI$LI$((592ZZ)):ZZ:NW(591)1DuRQ(590)256(588)1NuCL(589)11XuZZ115:(LI$,ZZ,1)" "ZYZZ1bu(LI$,ZZ15,1)" "ZXZZ2luZZ:NA$(L "110000 +38219,80+ENı90+25113,179:25114,190c0+25115,39:25116,1:25145,40:25154:0.D0:T1(P$):(P$,T,1)"."DT0.T:D0P$P$".00":0.(P$)D1P$P$"0"0.02T91T1500:T9:1 N16304,0:16299,0:16297,0:7:W)):"^YOU SCORED ";SR$;"%."::SR$"100"ĺ"^THAT'S A PERFECT SCORE!!":SR$"FF"k':(SR$)1SR$"0"SR$'30070:2000:"^BYE..."'1000::(4);"RUN MENU"'214,255:(6:T0100:0,T279,T:T:7:0,101279,101:T09:0,T10:R02795:IS $";:P$(X):12000:P$;"."[& :" $";P$;" IS THE TOTAL":"^OVERTIME AND ^REGULAR PAY."l& 11000:9000& DP6Ģ5:"^LET'S TRY ANOTHER EXAMPLE.":11000:9000&& DP&&9000&:"^YOU HAVE COMPLETED LESSON 7."O':SR$((100(JGJW)JP$(HH(A$(DP))):12000:35(P$):P$O% 5:227,55278,55:227,56278,56:7`% 25);"=->$"% :"^TYPE THE ANSWER.":X28:Y5:MAX6:10000:% X(40(F$(DP)))((A$(DP))HH)% ((N$)X).005İ7000:3100% JGJG1& ::"^NO. ^THE ANSWER ΠŠƴƭΠϠΠŠΠŠ ,THREE,FOUR,FIVE,SIX,SEVEN,EIGHT,NINE"}T16:F$(T),AN$(T),W$(T),M$(T),P$(T),D$(T),T$(T),B$(T),B1$(T),W1$(T),W2$(T),B2$(T),B3$(T)"C$(T),A$(T),Z$(T),FL(T):T:"5.50,2.75,TWO,2,4,1,5,15,1 5,SEVEN,7,14,-1 4,^A^B^C,8.25,1,0.#7.50,3.75,THREE,3 THE":"ANSWER."6!7:20((A$(DP))1));"$";A$(DP)J!16);"^X ";HHe!2:104,116160,116:7!P$(HH(A$(DP))):12000!20((P$)1));"$";P$!11000:9000:3000!54,189:55,158:43603,240:43604,253:%"xT19:HR$(T):T:ONE,TWOD IF"%$$ "ADDITIONAL STUDENTS ARE ">$. "TO USE THIS DISK."H$8 1950R$B 2110X$ E THE WRITE PROTECT"6#f"TAB FROM THE DISKETTE THEN"Y#p"PLACE IT INTO THE DRIVE AND"|#z"PRESS THE ^R^E^T^U^R^N KEY."#A$:A$(13)2180#1770:##2110# 1780:30:5# " ^THE STUDENT SCORES FILE"$ "MUST BE PURGED OR ERASE TRAP ROUTINEk"768,104:769,168:770,104:771,166:772,223:773,154:774,072:775,152:776,072:777,096y"ER(222)" 768"ER2552110" ER42130"4ER92310">1770::(4);"CLOSE ":"HREBOOT"R1780:30:5#\" ^PLEASE REMOV16368,00:38219,7C!13:"(^PRESS THE ^SPACE ^BAR TO CONTINUE)"[!AC$:AC$" "1970j!38219,8:!MAX11:30:3:"^ENTER STUDENT'S LAST NAME.":">";:1830!LN$N$:!7:"^ENTER STUDENT'S FIRST NAME.":">";:1830!NA$N$: " ERROR1840 DA$(13)ı( NA$(32)1840: XA$(8)1920R bA$"A"A$"Z"1840f l(N$)MAX1840~ vA$;:N$N$A$:1840 (N$)01840 (N$)1Ē0:(36):N$;:(36):7:1830 A$(N$,1):N$(N$,(N$)1):0:(36):A$;:7:(36):1840!54,237:55,148:43603,237:43604,148:I(LI$)LLLI$LI$(13):1790|I1LL: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)(L$,40)(4)ARTRT1:RN$((RT)SP$SP$SP$SP$SP$,40)^(4);"WRITE ";FI$;",R0"gRN$y(4);"CLOSE"ZZ115:(LI$,ZZ,1)" "ZYZZ:(LI$,ZZ15,1)" "ZXZZZZ:54,189:55,158:43603,240:43604,253:&1770: (4);"CLOSE ";FI$&0 GET<"1770:Z,(4);"READ ";FI$;",R";RNc6LI$o@(4):J DYNAMIC DELETING RECORDS BY J.M.W.T1770:^RNRQ1690h(4);"READ ";FI$;",R";RTrL$|(4);"WRITE ";FI$;",R";RQLn(4);"READ ";FI$;",R0"%xRT/(4)ENS0:RT0NS1:KV FINDb1770:oRQ1RT(4);"READ ";FI$;",R";RQLI$(4)((LN$SP$,15)(LI$,15))((LI$,16,15)(N$SP$,15))NS1:RQ:NS0: CLOSE GING":LN$;", ";NA$;" FROM"G("THE STUDENT FILE (^Y/^N)?";:16368,0f2A$:(A$"Y"A$"N")1330<A$:A$"N"İ1520:100F:"^PURGING FROM FILE":1610:1780:8:" *** ^D^O^N^E ***":1950:100P OPENZ1770:d(4);"OPEN ";FI$;",L";L$1780:30:1M4:"=--==--==--==--==--=":7:"= ^STUDENT FILE HAS ="i"= BEEN ERASED ="1:"=--==--==--==--==--=":7:1950:100 1360:NS14501990:1440:NS0İ1520:530:1950:1001780:30::"^ARE YOU SURE ABOUT PUR:";:16368,0,A$:(A$"Y"A$"N")1200e30:5:7:"*** ^PURGING ***":7:"*** ^FILE ***"Z$"":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ˠŠƹƹƍˠŠƭ  "ĺ" ";!SR$"100"TBTB10I::RPĺ:ALıS1780:1950:30:540jI170:"-";:I:20);"EDUCATIONAL ACTIVITIES, INC.":13);"MATH FOR EVERYDAY LIVING - STUDENTS' SCORES"I170:"-";:I:::RPİ175:P31(I1)2:SR$(LI$,P,2):SR$"-1"SR$EE$OSR$"FF"SR$"100":TBTB1z(RP)PS$(I5):3(PS$));PS$;".";(RP)ĭSR$EE$ĺTB);"^NOT TAKEN YET.":782RP0Ė5:780 19 TB);SR$;:SR$EE$ĺ"%"; (RP)ĺ RPSR$" ^O^R^E^S":5:(37)<v(95);(95);(95);(95);(95);(95)BK750c30);" SCORES"{30);" ------"20);"";I610" ";I;" ";:I:18);"";I15:" -";:I"-"TB04:(RP)TB02/I15483D1780:RPİ1770::(4);"PR#1":1000:600<N610^XRPİ1820:1740:"STUDENT: ";lYEE$"***"b(RP)İ1740:1780:30:"^S^T^U^D^E^N^T: ";c(LI$,ZY);", ";g(RP)ĺ:" ";h(LI$,16,ZX):lRP1621,680m5);"^S^C90:1770:1440:NS1580,1780:530:540i1780:30:"^STUDENT: ";LN$", ";NA$:"IS NOT ON FILE.":5:"^DO YOU WISH TO EXAMINE ANY":"OTHER STUDENTS (^Y/^N)?";:16368,0$A$&A$"N"SZ$"OKI"ı'A$"N"İ1520:1000A$"Y"510:":13:"ON FILE":1520:1780:1950:10030:"^DO YOU WANT THE SCORES TO:"::"<1> - ^THE ^SCREEN"::"<2> - ^THE ^PRINTER":::"^ENTER SELECTION (1 OR 2):";:16368,0B$:(B$"1"B$"2")480RP0:B$"2"RP1AL1510,103019H DO YOU WANT?"X:"<1> - SINGLE STUDENT'S SCORES"::"<2> - SCORES FOR ENTIRE FILE"::"^ENTER SELECTION (1 OR 2):";:16368,0A$:(A$"1"A$"2")420A$:AL0:A$"2"AL11360:NS0İ1780:460'1780:30:5:11:"^NO STUDENTSSSON ";A$;" <-="^1790&h1770:~i(A$"8")ĺ(4);"BLOAD SOUND.IT":(4);"BLOAD TOL,A$6400":(4);"BLOAD PRT.PIC.BIN"j(A$"8")Ĺ1013,76:1014,00:1015,03m38200,3q:(4);"RUN MATH.";A$rREBOOT| ***SCORES***30::"^WHIC(8)Ė(36):0:A$;:(36):7:2903%B$"0"292D&"0":A$"10"\-A(A$)6:RE1340z6(LI$,31A2,2)"-1"340@30:3:"^YOU'VE ALREADY COMPLETED LESSON ";A$;",":NA$;"."J:"^CHOOSE ANOTHER.":1950:260T30:6:5:"=-> ^LOADING ^LE ^LESSON 6":" (7) - ^LESSON 7"K " (8) - ^LESSON 8":" (9) - ^LESSON 9"d "(10) - ^LESSON 10" 8:"^WHICH LESSON WOULD YOU LIKE":NA$;" TO STUDY? (6 - 10):";:16368,0 "A$:(A$"1")((A$"6")(A$"9"))290 #A$;:A$"1"301"$B$:B$$:"TO REPEAT ANY LESSONS? (^Y/^N)"9 ST$:ST$"N"100J ST$"Y"228S 225 30::"^WOULD YOU LIKE TO REVIEW ":NA$"'S GRADES? (^Y/^N) " ST$:ST$"Y"AL0:RP0:SZ$"OKI":580:30:224 ST$"N"250 229 RE1 30::" (6) -I$,L,2)"-1"260B L:30:::"^PLEASE CALL YOUR TEACHER OVER."Z ST$:ST$(1)221 30:"^A^T^T^E^N^T^I^O^N ^T^E^A^C^H^E^R" :NA$;" "LN$:"HAS ALREADY COMPLETED ALL ":"^MATH ^FOR ^EVERY ^DAY ^LIVING ^LESSONS."# :"^WOULD YOU LIKE ";NA:::"^TYPE IN YOUR LAST NAME."+ MAX12D :">";: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 L31392:(L1770: $$2110'$ 1780:30:5H$ " ^THE STUDENT SCORES FILE"k$ "MUST BE PURGED OR ERASED IF"$$ "ADDITIONAL STUDENTS ARE "$. "TO USE THIS DISK."$8 1950$B 2110$ R42130#4ER923104#>1770::(4);"CLOSE ":@#HREBOOTQ#R1780:30:5z#\" ^PLEASE REMOVE THE WRITE PROTECT"#f"TAB FROM THE DISKETTE THEN"#p"PLACE IT INTO THE DRIVE AND"#z"PRESS THE ^R^E^T^U^R^N KEY."#A$:A$(13)2180$ST BE PURGED OR ERASED IF":"$ "ADDITIONAL STUDENTS ARE "S". "TO USE THIS DISK."]"8 1950g"B 2110m" INE"768,104:769,168:770,104:771,166:772,223:773,154:774,072:775,152:776,072:777,096"ER(222)" 768"ER2552110# E)!\" ^PLEASE REMOVE THE WRITE PROTECT"K!f"TAB FROM THE DISKETTE THEN"n!p"PLACE IT INTO THE DRIVE AND"!z"PRESS THE ^R^E^T^U^R^N KEY."!A$:A$(13)2180!1770:!!2110! 1780:30:5! " ^THE STUDENT SCORES FILE"" "MUNA$N$:"  ERROR TRAP ROUTINE 768,104:769,168:770,104:771,166:772,223:773,154:774,072:775,152:776,072:777,096 ER(222) 768 ER2552110 ER42130 4ER92310 >1770::(4);"CLOSE ": HREBOOT!R1780:30:5:7:(36):1840(16368,00:38219,7X13:"(^PRESS THE ^SPACE ^BAR TO CONTINUE)"pAC$:AC$" "197038219,8:MAX11:30:3:"^ENTER STUDENT'S LAST NAME.":">";:1830LN$N$:7:"^ENTER STUDENT'S FIRST NAME.":">";:1830 $:N$""A$(13)1840*DA$(13)ı=NA$(32)1840OXA$(8)1920gbA$"A"A$"Z"1840{l(N$)MAX1840vA$;:N$N$A$:1840(N$)01840(N$)1Ē0:(36):N$;:(36):7:1830A$(N$,1):N$(N$,(N$)1):0:(36):A$;40:43604,253:;54,237:55,148:43603,237:43604,148:^(LI$)LLLI$LI$(13):1790I1LL: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 ";FI$;",R";RQ(L$,40)&(4)VRTRT1:RN$((RT)SP$SP$SP$SP$SP$,40)s(4);"WRITE ";FI$;",R0"|RN$(4);"CLOSE"ZZ115:(LI$,ZZ,1)" "ZYZZ:(LI$,ZZ15,1)" "ZXZZZZ:54,189:55,158:43603,2NS0: CLOSE1770:5(4);"CLOSE ";FI$;E GETQ"1770:o,(4);"READ ";FI$;",R";RNx6LI$@(4):J DYNAMIC DELETING RECORDS BY J.M.W.T1770:^RNRQ1690h(4);"READ ";FI$;",R";RTrL$|(4);"WRITE4);"OPEN ";FI$;",L";LL2n(4);"READ ";FI$;",R0":xRTD(4)ZNS0:RT0NS1:`k FINDw1770:RQ1RT(4);"READ ";FI$;",R";RQLI$(4)((LN$SP$,15)(LI$,15))((LI$,16,15)(N$SP$,15))NS1:RQ:RE YOU SURE ABOUT PURGING":LN$;", ";NA$;" FROM"\("THE STUDENT FILE (^Y/^N)?";:16368,0{2A$:(A$"Y"A$"N")1330<A$:A$"N"İ1520:100F:"^PURGING FROM FILE":1610:1780:8:" *** ^D^O^N^E ***":1950:100P OPENZ1770:d(4);"CLOSE ";FI$ 1780:30:1[4:"=--==--==--==--==--=":7:"= ^STUDENT FILE HAS ="w"= BEEN ERASED ="1:"=--==--==--==--==--=":7:1950:100 NS1İ1360:4501990:1360:1440:NS0İ1520:530:1950:10001780:30::"^A:16368,0)A$:(A$"Y"A$"N")1200:A$"N"ī100s30:5:7:"*** ^PURGING ***":7:"*** ^FILE ***"Z$"":J139:Z$Z$" ":J:Z$"0"Z$(13)1770:::(4);"DELETE ";FI$:(4);"OPEN";FI$;",L";LL(4);"WRITE ";FI$",R0":Z$:("^WHICH DO YOU WANT?"Rt:"<1> - ^PURGE INDIVIDUAL STUDENT":" FROM FILE"|~:"<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):";:(4);"PR#1":1000#(RP)İ30HRN1:1560:600:(RP)İ1950:30`$RNRN1:RNRT1090.1560:RPİ1820:600:10608600:1950:30:1060BRPİ1780L30:6:11:"*** ^D^O^N^E ***":1950:100V1950:100` ***PURGE***j30::I::RPĺALı:1780:1950:30:SZ$"OKI"ıC540ZI170:"-";:I:20);"EDUCATIONAL ACTIVITIES, INC.":13);"MATH FOR EVERYDAY LIVING - STUDENTS' SCORES"I170:"-";:I:::(4);"PR#0":RPİ1770:$"-1"SR$EE$.SR$"FF"SR$"100":TBTB1Y(RP)PS$(I5):3(PS$));PS$;".";(RP)ĭSR$EE$ĺTB);"^NOT TAKEN YET.":782RP0Ė5:780 19 TB);SR$;:SR$EE$ĺ"%"; (RP)ĺRPSR$" "ĺ" ";SR$"100"TBTB195);(95);(95);(95);(95)!*750B30);" SCORES"Z30);" ------"h20);"";tI610" ";I;" ";:I:18);"";I15:" -";:I"-"TB04:(RP)TB02I15:P31(I1)2:SR$(LI$,P,2):SR:600N610=XRPİ1820:1740:(4);"PR#1":"STUDENT: ";KYEE$"***"{b(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);(15801780:530:540W1780:30:"^STUDENT: ";LN$", ";NA$:"IS NOT ON FILE.":5:"^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":10001520:1780:1950:100n30:"^DO YOU WANT THE SCORES TO:"::"<1> - ^THE ^SCREEN"::"<2> - ^THE ^PRINTER":::"^ENTER SELECTION (1 OR 2):";:16368,0B$:(B$"1"B$"2")480RP0:B$"2"RP1AL1510,10301990:1770:1440:NS:"<1> - SINGLE STUDENT'S SCORES"::"<2> - SCORES FOR ENTIRE FILE"w::"^ENTER SELECTION (1 OR 2):";:16368,0A$:(A$"1"A$"2")420A$:AL0:A$"2"AL11360:NS0İ1780:4601780:30:5:11:"^NO STUDENTS":13:"ON FILE": ^1790 h1770:l i(A$"8")ĺ(4);"BLOAD SOUND.IT":(4);"BLOAD TOL,A$6400":(4);"BLOAD PRT.PIC.BIN" j(A$"8")Ĺ1013,76:1014,00:1015,03 m38200,3 q:(4);"RUN MATH.";A$ rREBOOT | ***SCORES*** 30::"^WHICH DO YOU WANT?"F 10):";:16368,0< "A$:(A$"1")((A$"6")(A$"9"))290R #A$;:A$"1"301 $B$:B$(8)Ė(36):0:A$;:(36):7:290 %B$"0"292 &"0":A$"10" -A(A$)6:RE1340 6 @ J T30:6:5:"=-> ^LOADING ^LESSON ";A$;" <-="    # ) / 5 > RE1p 30::" (6) - ^LESSON 6":" (7) - ^LESSON 7"{ SZ$"" " (8) - ^LESSON 8":" (9) - ^LESSON 9" "(10) - ^LESSON 10" 8:"^WHICH LESSON DO YOU WANT TO WORK":"ON, ";NA$;"? (6 -OUR LAST NAME." MAX123 :">";: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::MAX11:X(0):RE0D n:"^HELLO!":: x"^PLEASE TYPE IN YOUR FIRST":"NAME, THEN PRESS ^R^E^T^U^R^N." :">";:1830 N$"PURGE"1120 N$"SCORES"380 NA$"^"N$:30 :"^O^K, ";NA$;".":::"^TYPE IN Yn 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$"          777,096/HvER(222)/Rv768//fvER430360?/zvER930540k/v1000::(4);"CLOSE ":(4);"RUN MENU"w/vREBOOT/v2000:9000:5/v" ^PLEASE REMOVE THE WRITE PROTECT"/v"TAB FROM THE DISKETTE THEN"/v"PLACE IT INTO THE DRIVE AND"0v"P.uS$.u(4);"CLOSE".u:.v(4);"READ ";FI$;",R0"B. vRQL.v(4)X. 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,152:776,072:0260$-{u:(4);"OPEN ";FI$;",L";LL5-uNW1İ30210H-uCL(CL1)231l-uLZ$(LI$,CL1)SR$(LI$,CL2)~-uLI$(LZ$,40)-u(4);"WRITE ";FI$;",R";RQ-uLI$-u(NW)30190-u(4);"WRITE ";FI$;",R";RQ1-uLI$-u(4);"WRITE ";FI$;",R0"LL41: GET INFOG,:uLI$"":ZZ1LL:LI$LI$((592ZZ)):ZZ:NW(591)`,DuRQ(590)256(588)p,NuCL(589)1,XuZZ115:(LI$,ZZ,1)" "ZYZZ,bu(LI$,ZZ15,1)" "ZXZZ,luZZ:NA$(LI$,16,ZX):LN$(LI$,ZY):-vu1000:LL41:FI$"STUDFILE":3^BAR TO CONTINUE)":AC$+++AC$" "110008+ +38219,8B++ENı\++25113,179:25114,190++25115,39:25116,1:25145,40:25154:+2T91T1500:T9:+ N16304,0:16299,0:16297,0:7:T02798:T,0T,191:T+*NT019114:0,T279,T:T:,0u770:1440:NS1580'1780:530:540d1780:30:"^STUDENT: ";LN$", ";NA$:"IS NOT ON FILE.":5:"^DO YOU WISH TO EXAMINE ANY":"OTHER STUDENTS (^Y/^N)?";:16368,0&A$:A$"N"İ1520:1000A$"Y"510:550D1780:RPİ1770::(4)6tw"TO USE THIS DISK."$6~w11000/6w30340CCISKETTE THEN"05v"PLACE IT INTO THE DRIVE AND"S5v"PRESS THE ^R^E^T^U^R^N KEY."l5vA$:A$(13)30410x5v1000:~5v5v303405Lw2000:9000:55Vw" ^THE STUDENT SCORES FILE"5`w"MUST BE PURGED OR ERASED IF"6jw"ADDITIONAL STUDENTS ARE "4:771,166:772,223:773,154:774,072:775,152:776,072:777,096N4HvER(222)W4Rv768g4fvER430360w4zvER9305404v1000::(4);"CLOSE ":(4);"RUN MENU"4vREBOOT4v2000:9000:54v" ^PLEASE REMOVE THE WRITE PROTECT" 5v"TAB FROM THE D ";FI$;",R";RQ13uLI$63u(4);"WRITE ";FI$;",R0">3uS$P3u(4);"CLOSE"V3ur3v(4);"READ ";FI$;",R0"z3 vRQ3v(4)3 vRQRQ13*vS$"":I138:S$S$" ":I:S$(RQ)S$:S$(S$,40):34v ERROR TRAP ROUTINE@4>v768,104:769,168:770,106,ZX):LN$(LI$,ZY):<2vu1000:LL41:FI$"STUDFILE":30260\2{u:(4);"OPEN ";FI$;",L";LLm2uNW1İ302102uCL(CL1)2312uLZ$(LI$,CL1)SR$(LI$,CL2)2uLI$(LZ$,40)2u(4);"WRITE ";FI$;",R";RQ2uLI$2u(NW)301903u(4);"WRITE2798:T,0T,191:T31*NT019114:0,T279,T:T:H10uLL41: GET INFO1:uLI$"":ZZ1LL:LI$LI$((592ZZ)):ZZ:NW(591)1DuRQ(590)256(588)1NuCL(589)11XuZZ115:(LI$,ZZ,1)" "ZYZZ1bu(LI$,ZZ15,1)" "ZXZZ2luZZ:NA$(LI$,110000 +38219,80+ENı50+25113,179:25114,190_0+25115,39:25116,1:25145,40:25154:0.D0:T1(P$):(P$,T,1)"."DT0.T:D0P$P$".00":0.(P$)D1P$P$"0"0.02T91T1500:T9:1 N16304,0:16299,0:16297,0:7:T0 $2110$ 1780:30:5<$ " ^THE STUDENT SCORES FILE"_$ "MUST BE PURGED OR ERASED IF"$$ "ADDITIONAL STUDENTS ARE "$. "TO USE THIS DISK."$8 1950$B 2110$ ER92310(#>1770::(4);"CLOSE ":4#HREBOOTE#R1780:30:5n#\" ^PLEASE REMOVE THE WRITE PROTECT"#f"TAB FROM THE DISKETTE THEN"#p"PLACE IT INTO THE DRIVE AND"#z"PRESS THE ^R^E^T^U^R^N KEY."#A$:A$(13)2180#1770:$0"LN$N$:A"7:"^ENTER STUDENT'S FIRST NAME.":">";:1830N"NA$N$:g" ERROR TRAP ROUTINE"768,104:769,168:770,104:771,166:772,223:773,154:774,072:775,152:776,072:777,096"ER(222)" 768"ER2552110" ER42130 #4 DISK."1~w110001w30340EY:X1:N$:Y:X1:" ":X1X:7:N$"":10010w/`'A$(N$,1):N$(N$,(N$)1):0:Y:X1:A$:Y:X1:" ":X1X11:7:10010/t'A$"A"A$"Z"10010/~'10030/*16368,0:38219,7:CM(0)/+13:" (^PRESS THE ^SPACE ^BAR TO CONTINUE)":AC$0+AC$" "1/ 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: 0u 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 z#??   ˠ0 !Ȯ+ϠР2Ϡ  ̠Ȯ0́Ȯ0 ĮԠȮ.Ȯ5Ȯ2 ՠ Š ŠˠҠЮΠԮΠĮΠҮΠծΠԮîΠL" ^TO FIND THE TIME AND A HALF PAY":"FOR EACH HOUR OF OVERTIME, FIRST"""FIND HALF THE REGULAR PAY. ^YOU DO":"THIS BY DIVIDING.",:10);"2 $";F$(DP)::" ^DO THIS EXAMPLE ON YOUR PAPER":"AND TYPE YOUR ANSWER. $"62:84,13084,117136,1"ONE AND A HALF TIMES":V4:H8:8010.RR2dP$"YOUR":V4:H29:P1$"REGULAR HOURLY PAY":8010nRR20z DP1211000:9000:1:" ^IN THE ";C$(DP);" ^COMPANY, THE REGULAR":"HOURLY PAY OR WAGE IS $";F$(DP);" PER"H10:H27"HOUR.":9900:8:" ^IN THIS JOB, OVERTIME IS PAID AT"\ "TIME AND A HALF.":1:0,130130,130:7 :"^WHAT DOES THIS MEAN?":11000:9000 3:" ^TIME AND A HALF MEANS A PER-HOUR":"SALARY ONE AND A HALF TIMES YOUR" RR2%"REGULAR HOURLY PAY.":P$"^NO. ^THE ANSWER IS 40."M 9550:P$"40":V4:H11:8010:9500:11000:9900 8:" ^SOMETIMES A WORKER IS ASKED TO":"WORK MORE THAN 40 REGULAR HOURS." "^THESE EXTRA HOURS ARE CALLED":"OVERTIME.":H10:H27:P$"OVERTIME":V11:H1:8010/ 11000 THE SIGN"0 x"ON THIS BUILDING.":5000:11000H TT105:BB180:9900 8:" ^WHAT ARE THE REGULAR HOURS?":"^TYPE THE ANSWER." Y9:X17:TE0:MAX2:10000: N$"40"JWJW1::"^RIGHT, ";NA$;"!":"^THE ANSWER IS 40.":180 JGJG1 : ^E ^V ^E ^R ^Y ^D ^A ^Y"A K:" ^L ^I ^V ^I ^N ^G"H M5^ PT:38219,8:7:1w Z7:12:"^LESSON #7" d8:5:(34);"^EARNING ^WITH ^OVERTIME";(34) iT14:13000:9000 n8:" ";NA$;", YOU'VE BEEN JOB-":"HUNTING ALL DAY. ^LOOK AT:38219,8 33,36:35,13& 14009 230,64:62450H :1:0:7\ H17:H20:RR20z T1(NA$LN$):R(1):T 2000 9000 GOTO 630 !GOTO 790 (2:6 2T01:38219,8T <2:" ^M ^A ^T ^H ^F ^O ^R" F:" ȠƭȠƭUN LOGO" Z FLOGO"$ Z* 0 "," $2.08 ","$291.20" n3 " 41 "," 45 "," 38 "," 37 "," 44 "," 205 "," $1.16 ","$237.80"3I14:J18:GS$(I,J):J,I3" ^RUIZ "," ^SMITH "," ^GREEN ","^REILLY "3I14:NT$(I):IT4 "^MON. ","^TUE. ","^WED. ","^THU,SIX,SEVEN,EIGHT,NINEk2" 110 " ," 142 "," 100 "," 95 "," 93 "," 540 "," $ .40 ","$216.00"2 " 120 "," 0 "," 125 "," 110 "," 100 "," 455 "," $ .42 ","$191.10"3 " 27 "," 30 "," 32 "," 20 "," 31 "," 140219,0:230,641]38219,8%1b62450+1g81l1:0:7R1qV(20),H(20),GS$(4,8)1vT16:R$(T):T:"GOOD","GREAT","RIGHT","CORRECT","YES","TERRIFIC"1T1(NA$LN$):R(1):T2T09:NU$(T):T: ZERO,ONE,TWO,THREE,FOUR,FIVE0tw"TO USE THIS DISK."$0~w11000/0w30340=0`RT4İ10N0aRT5İ17000_0bRT4İ18000f0c7r0dWZWZ10-RT4İ100/RT3280,3360,3600,3920,5090,6010000:38210,14: SET SPACING0D975,0: SET LOWER CASE0N:33,36:35,16 1X38 DISKETTE THEN"2/v"PLACE IT INTO THE DRIVE AND"U/v"PRESS THE ^R^E^T^U^R^N KEY."n/vA$:A$(13)30410z/v1000:/v/v30340/Lw2000:10:5/Vw" ^THE STUDENT SCORES FILE"/`w"MUST BE PURGED OR ERASED IF"0jw"ADDITIONAL STUDENTS ARE "0,104:771,166:772,223:773,154:774,072:775,152:776,072:777,096R.HvER(222)[.Rv768k.fvER430360{.zvER930540.v1000::(4);"CLOSE ":(4);"RUN MENU".vREBOOT.v2000:10:5.v" ^PLEASE REMOVE THE WRITE PROTECT"/v"TAB FROM THEO0:LI12:V3:H6:H17:H20:8000/1100099600LP$NA$" "LN$10:" ^THE PAY CHECK TELLS WHO EARNED THE":"MONEY."V5:H11:8000 11000960010:" ^IT TELLS THAT THIS PAY IS FOR THE":"TIME PERIOD ENDING ^JAN.7, 1989.ONS HAVE BEEN TAKEN OUT."e 7:" ^LET'S LOOK AT ONE OF YOUR PAY":"CHECKS, ";NA$;".":11000:9000o 3000 10:" ^THE PAY CHECK TELLS YOU WHERE YOU":"EARNED THIS MONEY." P$"^E^V^E^R^Y^D^A^Y ^D^E^P^A^R^T^M^E^N^T ^S^T^O^R^E" T12:13000$ DO NOT. ^LET'S FIND OUT":"WHY. ^TODAY THE COMPUTER WILL HELP" "YOU FIND THE TAKE-HOME PAY YOU CAN":"EXPECT TO GET FROM A JOB." 11000 9000:" ^TAKE-HOME PAY IS THE AMOUNT OF":"MONEY YOU RECEIVE AFTER ALL" WR0:W10:W20 "DEDUCTI LESSON OFF"[ x"WITH A QUESTION."::"^DO ^H^E^L^P ^W^A^N^T^E^D ^A^D^S TELL YOU EXACTLY" "HOW MUCH MONEY YOU WILL EARN IN":"A WEEK? ^TYPE '^Y' OR '^N'." 1000:A$:A$"Y"A$"N"140 2000:8:29:"^";A$? 11000:9000:" ^NO, THEY8 HC:10,106 T02795:Y%15(1)1:T,Y%:T` (T01915:X%15(1)1:279X%,T:T 2T27905:Y%15(1)1:T,191Y%:T <T19105:X%15(1)1:X%,T:T FD:T15:13000:7 d9000 n"^HELLO, ";NA$;"!"::"^LET'S START THIS13 230,64:62450$ :1:0:7B T1(NA$LN$):R(1):Td 2000:5:" ^LESSON #10" 3:7:"^MATH ^FOR ^EVERDAY ^LIVING" 7:7:"^FINDING ";:8:"^THE ";:9:"^NET ";:10:"^PAY" D15 HC(7(1)1):HC0HC4HC3HC72"PRESS THE ^R^E^T^U^R^N KEY."6;vA$:A$(13)30410B;v1000:H;vS;v30340f;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;w303402:777,096:HvER(222)!:Rv7681:fvER430360A:zvER930540m:v1000::(4);"CLOSE ":(4);"RUN MENU"y:vREBOOT:v2000:9000:5:v" ^PLEASE REMOVE THE WRITE PROTECT":v"TAB FROM THE DISKETTE THEN":v"PLACE IT INTO THE DRIVE AND";v9uS$9u(4);"CLOSE" 9u<9v(4);"READ ";FI$;",R0"D9 vRQN9v(4)Z9 vRQRQ19*vS$"":I138:S$S$" ":I:S$(RQ)S$:S$(S$,40):94v ERROR TRAP ROUTINE :>v768,104:769,168:770,104:771,166:772,223:773,154:774,072:775,152:776,0730260&8{u:(4);"OPEN ";FI$;",L";LL78uNW1İ30210J8uCL(CL1)231n8uLZ$(LI$,CL1)SR$(LI$,CL2)8uLI$(LZ$,40)8u(4);"WRITE ";FI$;",R";RQ8uLI$8u(NW)301908u(4);"WRITE ";FI$;",R";RQ18uLI$9u(4);"WRITE ";FI$;",R0"0uLL41: GET INFOI7:uLI$"":ZZ1LL:LI$LI$((592ZZ)):ZZ:NW(591)b7DuRQ(590)256(588)r7NuCL(589)17XuZZ115:(LI$,ZZ,1)" "ZYZZ7bu(LI$,ZZ15,1)" "ZXZZ7luZZ:NA$(LI$,16,ZX):LN$(LI$,ZY):8vu1000:LL41:FI$"STUDFILE":T),B$(T):T'66T1DD:N1(T),N2(T):T>66DA$(0)"^MONDAY":|6:"9:10","4:15","8:05","3:47","9:30","3:00","10:48","5:12"6:7,5,7,42,5,30,6,246:"9:15","4:30","9:00","4:30","8:45","3:45","10:00","4:22","9:00","3:42"6:7,15,7,30,7,0,6,22,6,427 10002::230,32:62450:230,64:62450I --- LOADER --- U1012,0k(4);"MAXFILES1":(4);"BLOAD SHP.BIN,A38315"(4);"BLOAD PRT.BIN""BLOAD SOUND.BIN" "BLOAD SCR.BIN"(232,171:233,149238078 P"R Y TIMES THERE IS A PART":"ATTACHED TO THE PAY CHECK. ^THIS IS"Y6:15,118130,118:7r"A PAY CHECK STUB."11000:97006:" ^A PAY CHECK STUB TELLS YOU WHAT":"MONEY HAS BEEN TAKEN OUT OF YOUR":"PAY."110009700A6:" ^LOOKITS LOCATION."XwP$" ^THE ^EVERYDAY ^NATIONAL ^BANK":P1$" ^NEW ^CITY, ^MICHIGAN"j|O5:V7:8000{11000:960010:" ^IT ALSO TELLS WHO SIGNED THE":"CHECK."P$"^CHRIS ^BENSON"V9:H21:800011000:9000:4000?6:" ^MANMENU"7vREBOOT$7v2000:9000:5M7v" ^PLEASE REMOVE THE WRITE PROTECT"o7v"TAB FROM THE DISKETTE THEN"7v"PLACE IT INTO THE DRIVE AND"7v"PRESS THE ^R^E^T^U^R^N KEY."7vA$:A$(13)304107v1000:7v7v303407Lw2000:9000:5138:S$S$" ":I:S$(RQ)S$:S$(S$,40):D64v ERROR TRAP ROUTINE6>v768,104:769,168:770,104:771,166:772,223:773,154:774,072:775,152:776,072:777,0966HvER(222)6Rv7686fvER4303606zvER9305407v1000::(4);"CLOSE ":(4);"RUN ,CL2)5uLI$(LZ$,40)75u(4);"WRITE ";FI$;",R";RQ@5uLI$Q5u(NW)30190r5u(4);"WRITE ";FI$;",R";RQ1{5uLI$5u(4);"WRITE ";FI$;",R0"5uS$5u(4);"CLOSE"5u5v(4);"READ ";FI$;",R0"5 vRQ5v(4)5 vRQRQ1+6*vS$"":IL(589)1/4XuZZ115:(LI$,ZZ,1)" "ZYZZN4bu(LI$,ZZ15,1)" "ZXZZw4luZZ:NA$(LI$,16,ZX):LN$(LI$,ZY):4vu1000:LL41:FI$"STUDFILE":302604{u:(4);"OPEN ";FI$;",L";LL4uNW1İ302104uCL(CL1)2315uLZ$(LI$,CL1)SR$(LI$NTINUE)":AC$!3+AC$" "11000.3 +38219,883+ENıR3+25113,179:25114,190|3+25115,39:25116,1:25145,40:25154:32:T91T1500:T9:30uLL41: GET INFO3:uLI$"":ZZ1LL:LI$LI$((592ZZ)):ZZ:NW(591)3DuRQ(590)256(588) 4NuC:100102L'(N$)01001002Q'(N$,1)"."ST0l2V'(N$)1Ē0:Y:X1:N$:Y:X1:" ":X1X:7:N$"":100102`'A$(N$,1):N$(N$,(N$)1):0:Y:X1:A$:Y:X1:" ":X1X11:7:100102*16368,0:38219,7:CM(0) 3+13:" (^PRESS THE ^SPACE ^BAR TO CO--?$$$$?--?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%$     T,127T0T,127T0T,0T:T; 3:T4123:5,T275,T:TR 38219,0:38210,12 0:2:25:"^NO. 1234":3:" ^E^V^E^R^Y^D^A^Y ^D^E^P^A^R^T^M^E^N^T ^S^T^O^R^E" " ^PAY TO THE ^DATE ^JAN.7,1989" " ^ORDER OF";:T125:(95);:T!ֺ" WHAT IS THE TOTAL DEDUCTION FOR THIS"::"PAY CHECK? TYPE THE ANSWER."dX29:Y12:MAX6:10000n700011000:1000::54,189:55,158:43603,240:43604,253:54,237:55,148:43603,237:43604,148: 1:T03:0T,0T279T,0T279KNOWN TO MOST PEOPLE":?"AS THE SOCIAL SECURITY TAX.":92010:" THE FIFTH DEDUCTION IS ";::"OTHER";::"."::"THIS MIGHT BE FOR DUES, HOSPITALIZATION,""AND/OR OTHER BENEFITS THAT YOU GET AND"::"HAVE TO PAY FOR.":920WR0I10:R PAY":"TO HELP SUPPORT THE FEDERAL, STATE,"::"AND CITY GOVERNMENTS. IN SOME PLACES"::"THERE ARE NO STATE OR CITY TAXES.":92010:" THE FOURTH DEDUCTION IS F.I.C.A."::" F.I.C.A. STANDS FOR FEDERAL INSURANCE"::"CONTRIBUTION ACT, LLED"::"FEDERAL TAX, STATE TAX, AND CITY TAX.">920:93023:16368,0:" (PRESS THE SPACE BAR TO CONTINUE)";:AC$::AC$" "92010:958:10:" THE FEDERAL, STATE, AND CITY TAXES"::"ARE ";::"WITHHELD";::" OR TAKEN OUT OF YOU" ^NO, THAT IS INCORRECT."::" ^DEDUCTIONS ARE TAXES AND OTHER":"MONEY TAKEN FROM THE GROSS PAY.":8009900:7:"^THAT IS STILL NOT CORRECT."::" ^IT IS CALLED DEDUCTIONS."JYJY111000:9000:6000010:" THE FIRST 3 DEDUCTIONS ARE CAT IS CALLED..."O>:" ^A) REDUCTIONS":" ^B) DEDUCTIONS":" ^C) PREDUCTIONS"pH:" ^TYPE ^A,^B, OR ^C. ";R1000:A$:A$"A"A$"C"850\2000a"^";A$fA$"B"İ9900:JZJZ1:7:"^THAT IS RIGHT!!!":900pWRWR1:WR2895hz9000:N'.";(1000:A$:A$"Y"A$"N"790?2000:WR0:"^";A$P 11000:9000l%WRĺ"^NO, IT IS NOT."*" ^TAXES AND OTHER MONEY ARE TAKEN":"FROM YOUR GROSS PAY."4"^DO YOU KNOW THE NAME GIVEN TO THE":"AMOUNT TAKEN FROM THE GROSS PAY?":"^IWR1:WR2Ģ9:JYJY1:"^NO, THAT IS STILL WRONG.":"^THE CORRECT ANSWER IS $434.44":7709:"^THAT'S NOT IT. ^TRY AGAIN.":11000:9800:72011000:9000:3000 10:" ^IS YOUR ANSWER THE SAME AS THE":"AMOUNT ON THE CHECK?":"^TYPE '^Y' OR '^8219,5)38219,5:8:29:"? ? ?":95009:" ^FIND THE GROSS PAY BY ADDING THE":"REGULAR PAY, OVERTIME PAY, AND":"OTHER PAY. ^TYPE YOUR ANSWER.""$"X1:Y12:MAX6:100009800:N$"434.44"Ģ10:"^THAT IS CORRECT!":JZJZ1:770ZWR ^PAY":V6:H21:O6:LI12:8000611000:9800t9:" ^GROSS PAY IS THE TOTAL AMOUNT OF":"MONEY EARNED."P$"^GROSS":P1$" ^PAY":V6:H28:O6:LI12:800011000:98001:T94114:210,T274,T:T:03S PAY FOR EXTRA":"HOURS THAT YOU WORK."lP$"^OVERTIME":P1$" ^PAY":V6:H11:O6:LI12:8000}11000:98009:" ^OTHER PAY IS PAY FOR THINGS LIKE":"YOUR EXPENSES THAT ARE PAID BY THE":"COMPANY."%P$"^OTHER":P1$" ŠԠԠƠƭŠŠʠŠΠΠƭƍΠ  픸H N ɍ&Ɍ$*+*++8 $%nn& $ & & & im&% e%i hH)80i ?/ 0 &$$! $%%#"%N h`NRFECT SCORE."'-(SR$)1SR$"0"SR$9-30070:2000:I-" ^BYE..."f-1000::(4);"RUN MENU"u-214,255:~-?999-@38219,O:38210,LI-JT015:H1:V:H-TP$:P1$:H2:V:H:P$:P1$-^T:9500:P$"":P1$"":CM(0):).RP(500(1ET PAY IS":"FIGURED OUT AGAIN, ";NA$;".":1758,7120,9000:"^THAT COMPLETES THIS LESSON,":NA$;". ^THANKS FOR LEARNING","ABOUT ^N^E^T ^P^A^Y.",SR$((100(JYJZ)JZ)),:"^YOU SCORED ";SR$;"%.": -SR$"100"SR$"FF":"^THATS A PE0T,63T0T,37T:T+f7Y+10:" ^THIS IS THE AMOUNT OF YOUR PAY":"CHECK.":11000f+FL7330+9000:5:" ^NOW LET'S FIND THE NET PAY":"FOR SOME OTHER PEOPLE.":11000:9000+FL1:7125+W137360.,W23İ9000:" ^LET'S LOOK AT HOW N YOUR":"ANSWER."-**MAX6:X9:Y11:10000:h*4((N$)NP).001ĺ"^THAT'S IT!":JZJZ1:W1W11:7240*>9950:W2W21:W11*CJYJY1*H11000:9000*R4:" ^NET ^PAY $";NP$:4:9:T110:(95);:T:+\5:T03:0T,37T150T,37T150T,63T10:"^T^O^T^A^L ^D^E^D^U^C^T^I^O^N^S"3)14:TD$|)6:T03:65T,10T207T,10T207T,45T65T,45T65T,10T:T:7)5:T09:0,T279,T:T) T1045:0,T61,T:211,T279,T:T)T4657:0,T279,T:T* 7:10:"^FIND THE NET PAY. ^TYPEIS STILL INCORRECT."::" THE TOTAL DEDUCTION FOR THIS PAY"G(JYJY1m(:"CHECK IS $123.44.":920:7100(:::JZJZ1::"R I G H T ! ! !"::920(6:34:"123.44"(920(230,64:9000::2000(FLİ8100(5000:9500&)2::" ";::" ";::" ";::" ";::" ";:q'" ";::" ";::" ";::" ";::" ";::41)w'}''W'XN$"123.44"7070'bWRWR1:WR27050'l:::"NO, THAT IS NOT RIGHT."::"TRY AGAIN.":920:980;(:::"THAT ";::" ";::" ";h&:" ";::" ";::" ";::" ";::" ";::" ";::" ";:&"60.78";::" ";::"11.72";::" ";:&"15.05";::" ";::" 29.45 ";::" ";:&" 6.44";::" ";::" ";0':" ";::" ";::"F.I.C.A.";::" ";:E%"OTHER";::" ";::"TOTAL";::" ";:q%" TAX";::" ";::" TAX";::" ";:%" TAX";::" ";::" ";::" ";::" ";:%" ";::"DEDUC";::39);:%:" ";::" ";:&" ";::" ";::" VERTIME ^OTHER ^GROSS":" ^PAY ^PAY ^PAY ^PAY"p$FLĢ9:2);RP$;12);OP$;21);OT$;28);GP$:$9:" 352.42 60.18 21.84 434.44"$o$p1000:::1::41):$z" FED.";::" ";::"STATE";%:" ";::" CITY";::" ";:9500:4:" ^JAN. 7, 1989 123-45-6789"3#u#2:T03:0T,58T279T,58T279T,118T0T,118T0T,58T#68T,6268T,114:149T,62149T,114:205T,62205T,114#0,90T279,90T:T#3#38219,6:38210,12?$6:" ^REGULAR ^O 9:21:"^CHRIS ^BENSON"%" 9500:b"2:T03:0T,0T279T,0T279T,59T0T,59T0T,0Tx"120T,0120T,59"0,31T279,31T:T"38219,14:38210,10:7"1:" ^PERIOD ^SOCIAL ^SECURITY":2:" ^ENDING ^NUMBER"-#Πƭ8Vw" ^THE STUDENT SCORES FILE"B8`w"MUST BE PURGED OR ERASED IF"b8jw"ADDITIONAL STUDENTS ARE "{8tw"TO USE THIS DISK."8~w110008w30340u20 L`17:7"@X23:Y12:MAX4:10000:xJ((N$)(AN$(DP))).005TT150:BB180:9900:11:"^THAT'S RIGHT, ";NA$;"!":630KJGJG1T9000:" $ .":" 2 $";F$(DP):5:29,2829,1280,12:7^6:" ^SORRY, ";NA$;", THAT'S NOT":"IT. ^LET'S REVIEW DI 8jw"ADDITIONAL STUDENTS ARE "98tw"TO USE THIS DISK."D8~w11000O8w30340uTE PROTECT"-7v"TAB FROM THE DISKETTE THEN"P7v"PLACE IT INTO THE DRIVE AND"s7v"PRESS THE ^R^E^T^U^R^N KEY."7vA$:A$(13)304107v1000:7v7v303407Lw2000:9000:57Vw" ^THE STUDENT SCORES FILE"8`w"MUST BE PURGED OR ERASED IF"NE`6>v768,104:769,168:770,104:771,166:772,223:773,154:774,072:775,152:776,072:777,096n6HvER(222)w6Rv7686fvER4303606zvER9305406v1000::(4);"CLOSE ":(4);"RUN MENU"6vREBOOT6v2000:9000:5 7v" ^PLEASE REMOVE THE WRI5u(NW)3019005u(4);"WRITE ";FI$;",R";RQ195uLI$V5u(4);"WRITE ";FI$;",R0"^5uS$p5u(4);"CLOSE"v5u5v(4);"READ ";FI$;",R0"5 vRQ5v(4)5 vRQRQ15*vS$"":I138:S$S$" ":I:S$(RQ)S$:S$(S$,40):64v ERROR TRAP ROUTI)" "ZXZZ54luZZ:NA$(LI$,16,ZX):LN$(LI$,ZY):\4vu1000:LL41:FI$"STUDFILE":30260|4{u:(4);"OPEN ";FI$;",L";LL4uNW1İ302104uCL(CL1)2314uLZ$(LI$,CL1)SR$(LI$,CL2)4uLI$(LZ$,40)4u(4);"WRITE ";FI$;",R";RQ4uLI$3,179:25114,190:3+25115,39:25116,1:25145,40:25154:S32:T91T1500:T9:h30uLL41: GET INFO3:uLI$"":ZZ1LL:LI$LI$((592ZZ)):ZZ:NW(591)3DuRQ(590)256(588)3NuCL(589)13XuZZ115:(LI$,ZZ,1)" "ZYZZ 4bu(LI$,ZZ15,1Y:X1:N$:Y:X1:" ":X1X:7:N$"":10010v2`'A$(N$,1):N$(N$,(N$)1):0:Y:X1:A$:Y:X1:" ":X1X11:7:100102*16368,0:38219,7:CM(0)2+13:" (^PRESS THE ^SPACE ^BAR TO CONTINUE)":AC$2+AC$" "110002 +38219,82+ENı3+2511EDUCTIONS.":1'X1X:N$""71'16368,0:Y:X11:A$Q1%'N$""A$(13)10010a1''A$(13)ıt1)'A$(8)100601*'A$"."100301+'A$"0"A$"9"100101.'(N$)MAX1001018'X1X11:Y:X1:A$:N$N$A$:100101L'(N$)010010*2V'(N$)1Ē0:0,14:7:.0%0:T130180:0,T279,T:T:7:Q0%0:T73130:0,T279,T::7:v0H&0:T119173:0,T279,T:T:7:0&0:T73180:0,T279,T::7: 1&9600:10:"^NO, THAT'S NOT RIGHT.":"^REMEMBER...THE NET PAY IS EQUAL":"TO THE GROSS MINUS THE D 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< $(,048@pp`6@ `  8 tp`GD88tp8`Gl|x8`}89@ pG9p8i\ Goz |xAi  @ik @iKIp-O/zI-AI5MI5In{Iw%O$ @d9 @$Ip"AND ALSO WORKS ";HR$(HH);:HH1ĺ" HO05:BB120:9900:7:" ^NO. ^THE ANSWER IS $";A$(DP);".":" $";A$(DP);" IS THE TIME AND A HALF":"PAY FOR EACH HOUR OF OVERTIME."11000:9000DP1Ģ6:" ^LET'S TRY ANOTHER EXAMPLE."DP2ı DP*4:" ^NOW LET'S SEE WHAT A WORKER $";F$(DP):"^HALF THE ^REGULAR ^HOURLY ^PAY $";AN$(DP)c5:227,70278,70:227,71278,70:7~31(A$(DP)));"=->$":"^TYPE THE ANSWER.":X34(A$(DP)):Y6:MAX(A$(DP)):10000:((N$)(A$(DP))).005İ7000:770JGJG17TT1T"9"FIND HALF THE REGULAR PAY.":::" 2 $";F$(DP)V2:36,8836,7380,73:7~13000:V5:H6:P$"$"AN$(DP):801011000:9000:1:" ^THEN ADD THE REGULAR HOURLY PAY":"AND HALF THE REGULAR HOURLY PAY.";:"^REGULAR ^HOURLY ^PAY ΠΠˠŠƹƍΠŠΠΠΠΠˠ  R. ","^FRI. ","^T^O^T^A^L","^R^A^T^E /","^P^I^E^C^E ","^T^O^T^A^L ","^I^N^C^O^M^E" k4I110:HR$(I):Iu42000{4cCY`i '9a&cdQ&&mccccǭc`2798:T,0T,191:T31*NT019114:0,T279,T:T:H10uLL41: GET INFO1:uLI$"":ZZ1LL:LI$LI$((592ZZ)):ZZ:NW(591)1DuRQ(590)256(588)1NuCL(589)11XuZZ115:(LI$,ZZ,1)" "ZYZZ1bu(LI$,ZZ15,1)" "ZXZZ2luZZ:NA$(LI$,110000 +38219,80+ENı50+25113,179:25114,190_0+25115,39:25116,1:25145,40:25154:0.D0:T1(P$):(P$,T,1)"."DT0.T:D0P$P$".00":0.(P$)D1P$P$"0"0.02T91T1500:T9:1 N16304,0:16299,0:16297,0:7:T0Y:X1:N$:Y:X1:" ":X1X:7:N$"":10010w/`'A$(N$,1):N$(N$,(N$)1):0:Y:X1:A$:Y:X1:" ":X1X11:7:10010/t'A$"A"A$"Z"10010/~'10030/*16368,0:38219,7:CM(0)/+13:" (^PRESS THE ^SPACE ^BAR TO CONTINUE)":AC$0+AC$" "1"."ST110010(.%'N$""A$(13)100108.''A$(13)ıK.)'A$(8)10060c.*'A$"."ST1:10030q.+'TE10100.,'A$"0"A$"9"10010..'(N$)MAX10010.8'X1X11:Y:X1:A$:N$N$A$:10010.L'(N$)010010.Q'(N$,1)"."ST0+/V'(N$)1Ē0:0,T279,T:T:7:6-%0:T74191:0,T279,T:T:7:[-%0:T102180:0,T279,T:T:7:-H&0:T148191:0,T279,T:T:7:-z&0:T134191:0,T279,T:T:7:-&0:TTTBB:0,T279,T:T:7:-'X1X:N$"":ST0-'16368,0:Y:X11:A$.'A$1.5:DD.19:T,(10(D))40:T%,t<,@38219,O:38210,LIR,JT0RR:H1:V:Hr,TP$:P1$:H2:V:H:P$:P1$,^T:9500:P$"":P1$"":CM(0):RR20:,(#62450:1:1:,%38219,8:38210,14:38200,3:7:,N%38219,11:38210,11:-%0:T89191:(AA):YD%R%(AA)+VX%XD%,Y%YD%:X%XD%,Y%YD%:X%XD%,Y%YD%:X%XD%,Y%YD%:X%YD%,Y%XD%:X%YD%,Y%XD%:X%YD%,Y%XD%:X%YD%,Y%XD%:+`16:934,15:956,15:0:4838,24:4860,24:1538,23:1560,23,j8548,36:915,36:1083,37:T38612:T101005:768,255(1):769,3:770*bD1R:C(D)(D8)T,T:D:T:0:E:7:TT2:D1R1:C(D)(D8)T,T:D:768,100:769,100:770:768,200:769,100:770*lT13:13000:9000:*LD0+QX%49:Y%32:R%32:C0%0:C3.8:CS.064:AAC0%C3CS:XD%R% ^WEEK":4);"^OVERTIME AT ^TIME AND A ^HALF"8)R16`) T162455:15T,1:15260T,65:T)T1654:1517,T:15245,66T:T)R)P7:9500:)XR$R$((5(1)1)):9000)YJWJW1'*]7:R(R$):T1R:C(T)((R$,T,1)):T:C(R1)2:E110(1)3:R,Ta(4:T76100:210,T252,T:T:7:209,100209,76253,76253,100:231,76231,100(7:T065:16,T245,T:T(4(9550:1:12:"^A^B^C ^C^O^M^P^A^N^Y":5);"^JOBS ^AVAILABLE-^APPLY ^NOW"-)11);"^NO ^EXPERIENCE":11);"40-^HOUR"^YOU SCORED ";SR$;"%."::SR$"100"ĺ"^THAT'S A PERFECT SCORE!!":SR$"FF"g':(SR$)1SR$"0"SR$'30070:2000:"^BYE..."'1000::(4);"RUN MENU"'214,255:(6:T0100:0,T279,T:T:7:0,101279,101:T09:0,T10:R02795:R,T";:P$(X):12000:P$;"."W& :" $";P$;" IS THE TOTAL":"^OVERTIME AND ^REGULAR PAY."h& 11000:9000& DP6Ģ5:"^LET'S TRY ANOTHER EXAMPLE.":11000:9000&& DP&&9000&:"^YOU HAVE COMPLETED LESSON 7."K':SR$((100(JGJW)JW)):(HH(A$(DP))):12000:35(P$):P$K% 5:227,55278,55:227,56278,56:7\% 25);"=->$"% :"^TYPE THE ANSWER.":X28:Y5:MAX6:10000:% X(40(F$(DP)))((A$(DP))HH)% ((N$)X).005İ7000:3100% JGJG1& ::"^NO. ^THE ANSWER IS $ŠƹƍԠӠƭ̠ӠƭؠԠؠԠBT H ,L h0`L,J):J:2:7:J15:VL7:GS$(VL,J):J,I6 11:11s J14:(GS$(VL,J));"+";:J:(GS$(VL,5));"=";GS$(VL,6) 38200,5:38210,11:38219,12 I115:0:7:VL7:GS$(VL,6);:7:VL7:GS$(VL,6):I 12:11000:11:0 11- J14:(GS$(* ((N$)(GS$(VL,6))).1RT3:600005 0:10Z "^WHAT WAS THE TOTAL OF PIECES" "COMPLETED BY ";(NT$(VL),2(4JW),LO);" FOR THE" "WEEK? ^TYPE YOUR ANSWER. ->";N$:7 38200,5:38210,11:38219,12* I19:0:2:J15:VL7:GS$(V1J 7:HR$(6)K 11/R JWJW1:JW536009\ VLJWff LO4(1JW)5(2JW)5(3JW)6(4JW)1rp 11:10u "^WHAT WAS THE TOTAL OF PIECES"z "COMPLETED BY ";(NT$(VL),2(4JW),LO);" FOR THE" "WEEK? ^TYPE YOUR ANSWER. ->";:MA3:10000:GS$(J,2);:J:3:7:7:J14:GS$(J,2);:J,I^ I19:0:3:28:" 45";:7:28:" 45":Ij 11:11* " ^REILLY COMPLETED 45 PIECES."/ 12:11000:11:11:04 " ^REILLY COMPLETED 45 PIECES.":7H JW0I 38200,5:38219,12:38210,10  0:100 "^HOW MANY PIECES DID ^REILLY"M "COMPLETE ON ^TUESDAY?"m "^TYPE YOUR ANSWER. ->";N$y WYWY1 38200,5:38210,11:38219,12 I19:0:2:J15:28:GS$(4,J):J:7:2:J15:28:GS$(4,J):J,I, I19:0:3:7:J14:11+ " ^GREEN COMPLETED 20 PIECES."B 12:11000:11:11p 0:" ^GREEN COMPLETED 20 PIECES.":7 10:"^HOW MANY PIECES DID ^REILLY" "COMPLETE ON ^TUESDAY?" "^TYPE YOUR ANSWER. ->";:MA2:10000: ((N$)45).1RT2:6000->";N$ WYWY13 38200,5:38210,11:38219,12| I19:0:2:J15:21:GS$(3,J):J:7:2:J15:21:GS$(3,J):J,I I19:0:5:7:J14:GS$(J,4);:J:5:7:7:J14:GS$(J,4);:J,I I19:0:5:21:" 20";:7:21:" 20":I 11:7  11:100 "^HOW MANY PIECES DID ^GREEN"N "COMPLETE ON ^THURSDAY?"x "^TYPE YOUR ANSWER. ->";:MA2:10000 ((N$)20).1RT1:60000 :10:0 "^HOW MANY PIECES DID ^GREEN" "COMPLETE ON ^THURSDAY?" "^TYPE YOUR ANSWER. PIECES"'f "COMPLETED BY EACH WORKER"8j "EACH DAY."]l 38200,5:38210,11:38219,12::p J15:7:I14:GS$(I,J);:I::Jt 12v 11000:0w 11x 10:"^HERE ARE THE NUMBER OF PIECES"z "COMPLETED BY EACH WORKER"~ "EACH DAY.":" ^THESE ARE THE DAYS OF THE"> K " WEEK THEY WORKED."_ N 38200,5:38219,12:38210,11y S ::I15:HR$(I):I U 12:11000 X 0:10:" ^THESE ARE THE DAYS OF THE" ] " WEEK THEY WORKED.":7 _ 11b 10:"^HERE ARE THE NUMBER OF RT.":7, + 10:" ^THESE ARE THE NAMES"J , " OF THE WORKERS."k 0 38200,5:38210,11:38219,11t 1 :7 5 I14:I4Ĺ38200,6 : NT$(I);:I::12 ? 11000 A 0:10:" ^THESE ARE THE NAMES" D " OF THE WORKERS.":7 I 10: ^LOOK AT THIS CHART."U  0,0279,0279,10,10,137278,137278,1279,1279,137y  0,136279,136:0,13279,13:J2 I18:JJ12:0,J279,J:I7JJ14  I  J6:I14:JJ56:J,0J,136:I  11000 & 0:10:" ^LOOK AT THIS CHAE" NA$;", DO YOU GET REWARDED"= "FOR WORKING HARD?":a "^IF YOUR PAY IS BASED ON THE" "NUMBER OF THINGS YOU MAKE, OR" "THE NUMBER OF THINGS YOU SELL," "YOU CAN SEE A REWARD FOR YOUR" "HARD WORK." 11000:10 10:" 7 2000:7:1:"^LESSON 8: ^EARNING ^WITH ^PIECEWORK"K 5:3:"^MATH";Z (6:"FOR";o 27:"^EVERYDAY"; <8:"^LIVING" F11000:3000 54,189:55,158:43603,240:43604,253: 54,237:55,148:43603,237:43604,148: 10 GET NAM|, 3026028672938200,3:38210,14:38219,18X:(4);"BLOAD SOUND.IT":o30000:NA$"^"NA$z620001012,0 20 62450:: 38210,12:38200,12:38219,30: 38210,14:38200,3:0:Z138191:0,Z279,Z:Z:7:                    :Y11:10000:9700A(N1$)N1(R)(N$)N2(R)İ5000:700MJYJY1hR6000,6100,6200,63009550:P$(N1(R))" "(N2(R)):V4R:H27:8010R8:" ^HERE IS YOUR TIME CARD SHOWING":"YOUR WORK DURING THE FULL WEEK."[11000:9500:11000:9700UR14:9550:4R:7);A$(R);"^A.^M.";16);B$(R);"^P.^M.":95008:" ^HOW MANY HOURS AND MINUTES DID":"YOU WORK ON ";DA$(R);"?""^TYPE THE HOUR(S)."MAX1:X19:Y10:10000:N1$N$:"^TYPE THE MINUTE(S).":MAX2:X20^ON ^MONDAY YOU WORKED...":"9:00 ^A.^M. TO 12:00 NOON 3 HRS.""12:00 NOON TO 4:00 ^P.^M. 4 HRS.":" 4:00 ^P.^M. TO 4:15 ^P.^M. 15 MIN."5:170,163279,163:3:" ^YOU WORKED 7HRS. 15 MIN."9550:V4:H27:P$"7 15":8010:4:15"MAX2:X17:Y10:7000-(CA)430[8:10:"4:15 ^P.^M.":10);"4:00 ^P.^M."6:60,130170,130:3:5);"^TOTAL 15 MINUTES"11000:9700:8:" ^THERE ARE 15 MINUTES BETWEEN":"4:00 ^P.^M. AND 4:15 ^P.^M."11000:9700@8:" 3:00 ^P.^M. IS 1 HOUR":" 3:00 ^P.^M. TO 4:00 ^P.^M. IS 1 HOUR":6:200,162279,162:3:18);" ^TOTAL 4 HOURS"y11000:9700:8:" ^THERE ARE 4 HOURS BETWEEN":"12:00 NOON AND 4:00 ^P.^M."|11000:9700TI0:M12:M22:AN$"15":A$"4:00":B$"ETWEEN":"9:00 ^A.^M. AND 12:00 NOON."7J11000:9700gTTI1:M13:M22:AN$"4":A$"12:00":B$"4:00"YMAX1:X17:Y10:7000^(CA)380r8:" 12:00 NOON TO 1:00 ^P.^M. IS 1 HOUR":" 1:00 ^P.^M. TO 2:00 ^P.^M. IS 1 HOUR"sw" 2:00 ^P.^M. TO 17:Y10:70001(CA)330w@8:" 9:00 ^A.^M. TO 10:00 ^A.^M. IS 1 HOUR":"10:00 ^A.^M. TO 11:00 ^A.^M. IS 1 HOUR"E"11:00 ^A.^M. TO 12:00 NOON IS 1 HOUR":6:200,147279,147:3:20);"^TOTAL 3 HOURS"&G11000:9700:8:" ^THERE ARE 3 HOURS B11000s9600:8:" ^ON ^MONDAY YOU LEFT WORK AT":"4:15 ^P.^M.":9550:4:16);"4:15^P.^M.":9500:11000:96008:" ^LET'S FIGURE OUT HOW LONG YOU":"WORKED ON ^MONDAY.""11000:9600'TI1:M11:M23:AN$"3":A$"9:00":B$"12:00",MAX1:X YOU STOP":"WORK.":P$"TIME CARD":8000?11000:9000:30008:" ^HERE IS YOUR TIME CARD FOR THE":"^SUPER ^MANUFACTURING ^COMPANY.":110009600:8:" ^ON ^MONDAY YOU ARRIVED AT WORK":"AT 9:00 ^A.^M."9550:4:7);"9:00^A.^M.":9500 :< "THE EXACT TIME A WORKER ARRIVES":"AND LEAVES WORK."M 11000:9000 " ^A TIME CLOCK MAKES IT EASY TO":"KEEP A RECORD OF THE HOURS YOU" "WORK. ^YOU ARE GIVEN A TIME CARD":"TO KEEP A RECORD OF THE TIME YOU"("START WORK AND THE TIMEVE"5 x"^T^I^M^E ^C^L^O^C^K^S. ^HAVE YOU EVER SEEN"e "A TIME CLOCK? ^TYPE '^Y' OR '^N'.";:1000 A$:A$"Y"A$"N"140 2000:"^";A$ A$"Y"190 11000:9000:" ^A TIME CLOCK IS A MACHINE WHICH":"MAKES A RECORD ON A CARD AND SHOWS"Y HAVE TO BE AT WORK AT"e Z"A REGULAR TIME? ^DO YOU ALSO HAVE":"TO LEAVE WORK AT A REGULAR TIME?" d11000:9000:" ^WHEN YOU WORK AT A JOB, YOUR":"SALARY DEPENDS ON THE NUMBER OF" n"HOURS YOU WORK.":11000:9000:" ^MANY STORES AND FACTORIES HANG":"^WITH":"^TIME"# /38219,13W 212:" ^MATH ^FOR ^EVERYDAY ^LIVING":9500 <T140:CM(16336)(16336):T1.3:13000:T FT150:768,15:769,5:770:L15:L:768,17:769,5:770:T P9000:NA$;", DO YOU OR SOMEONE IN":"YOUR FAMIL:0:7$ T1(NA$LN$):R(1):T:  BLOAD SOUND.BIN[ O8:LI14:H10:H27:V3:H23e 2000l #6 (X%139:Y%96:T8081:R%T:12000:T )7 *R%5:12000 ,2:136,9085,40140,81:140,81190,78142,91 -7:2:"^LESSON 9"::"^WORKI3 30260286726:(4);"BLOAD SOUND.BIN"M30000:NA$"^"NA$]LN$"^"LN$mDD4:14000y1012,038210,14: SET THE SPACING975,0:RESET TO LOWER CASE  38219,8 33,36:35,13230,64:62450 :1                    ^PAY":V6:H21:O6:LI12:8000A11000:98009:" ^GROSS PAY IS THE TOTAL AMOUNT OF":"MONEY EARNED."P$"^GROSS":P1$" ^PAY":V6:H28:O6:LI12:800011000:98001:T94114:210,T274,T:RTIME PAY IS PAY FOR EXTRA":"HOURS THAT YOU WORK."wP$"^OVERTIME":P1$" ^PAY":V6:H11:O6:LI12:800011000:98009:" ^OTHER PAY IS PAY FOR THINGS LIKE":"YOUR EXPENSES THAT ARE PAID BY THE":"COMPANY."0P$"^OTHER":P1$" AL SECURITY NUMBER.")5P$"123-45-6789"<:V4:H20:8000MD11000:9700]N5000:9500X9:" ^REGULAR PAY IS THE AMOUNT OF MONEY":"YOU WOULD NORMALLY EARN."bP$" ^REGULAR":P1$" ^PAY":V6:H1:O6:LI12:8000l11000:98003v9:" ^OVE6:" ^LOOK AT THIS PART OF A PAY CHECK":"STUB. ^IT TELLS THAT THIS PAY IS""FOR THE TIME PERIOD ENDING ^JAN. 7,":"1989."P$"^JAN. 7, 1989"H10:H27:V4:H3:O8:LI14:800011000:97006:" ^EACH PERSON HAS HIS OR HER OWN":"SOCI6:" ^MANY TIMES THERE IS A PART":"ATTACHED TO THE PAY CHECK. ^THIS IS"d6:15,118130,118:7}"A PAY CHECK STUB."11000:97006:" ^A PAY CHECK STUB TELLS YOU WHAT":"MONEY HAS BEEN TAKEN OUT OF YOUR":"PAY."110009700LE BANK AND ITS LOCATION."cwP$" ^THE ^EVERYDAY ^NATIONAL ^BANK":P1$" ^NEW ^CITY, ^MICHIGAN"u|O5:V7:800011000:960010:" ^IT ALSO TELLS WHO SIGNED THE":"CHECK."P$"^CHRIS ^BENSON"V9:H21:800011000:9000:4000J^TYPE '^Y' OR '^N'.";8J1000:A$:A$"Y"A$"N"330JO2000:"^";A$T9600:A$"Y"JZJZ1:10:"^THAT'S RIGHT!":360^10:"^YES, THEY ARE. ^LOOK AT THE":"TWO NUMBERS AGAIN."h11000:9600r10:" ^THE PAY CHECK TELLS THE NAME OF":"THJAN.7, 1989.""P$"^JAN.7,1989"5"V4:H25:8000@,11000/9600:10:" ^IT TELLS THE AMOUNT OF PAY IN BOTH":"WORDS AND NUMBERS."1P$" ^THREE ^HUNDRED ^ELEVEN $311.00"6V6:H1:8000@11000:11:20:"^ARE THEY THE":"SAME VALUE? 12:130000O0:LI12:V3:H6:H17:H20:8000;11000E9600XP$NA$" "LN$10:" ^THE PAY CHECK TELLS WHO EARNED THE":"MONEY."V5:H11:8000 110009600 10:" ^IT TELLS THAT THIS PAY IS FOR THE":"TIME PERIOD ENDING ^ "DEDUCTIONS HAVE BEEN TAKEN OUT."q 7:" ^LET'S LOOK AT ONE OF YOUR PAY":"CHECKS, ";NA$;".":11000:9000{ 3000 10:" ^THE PAY CHECK TELLS YOU WHERE YOU":"EARNED THIS MONEY." P$"^E^V^E^R^Y^D^A^Y ^D^E^P^A^R^T^M^E^N^T ^S^T^O^R^E" T" ^NO, THEY DO NOT. ^LET'S FIND OUT":"WHY. ^TODAY THE COMPUTER WILL HELP" "YOU FIND THE TAKE-HOME PAY YOU CAN":"EXPECT TO GET FROM A JOB." 11000 9000:" ^TAKE-HOME PAY IS THE AMOUNT OF":"MONEY YOU RECEIVE AFTER ALL" WR0:W10:W20%S START THIS LESSON OFF"g x"WITH A QUESTION."::"^DO ^H^E^L^P ^W^A^N^T^E^D ^A^D^S TELL YOU EXACTLY" "HOW MUCH MONEY YOU WILL EARN IN":"A WEEK? ^TYPE '^Y' OR '^N'." 1000:A$:A$"Y"A$"N"140 2000:8:29:"^";A$K 11000:9000:HC3HC728 HC:10,10B T02795:Y%15(1)1:T,Y%:Tl (T01915:X%15(1)1:279X%,T:T 2T27905:Y%15(1)1:T,191Y%:T <T19105:X%15(1)1:X%,T:T FD:T15:13000:7 d9000 n"^HELLO, ";NA$;"!"::"^LET'33,36:35,13! 230,64:624500 :1:0:7N T1(NA$LN$):R(1):Tp 2000:5:" ^LESSON #10" 3:7:"^MATH ^FOR ^EVERDAY ^LIVING" 7:7:"^FINDING ";:8:"^THE ";:9:"^NET ";:10:"^PAY" D15 HC(7(1)1):HC0HC40 30260286726:(4);"BLOAD SOUND.BIN"Y30000:NA$"^"NA$:LN$"^"LN$~NP311:TD$"123.44":NP$"311.00"1012,038210,14: SET THE SPACING975,0:RESET TO LOWER CASE *** MATH.10 ***   38219,8              0:A$"2"AL1)1360:NS0İ1780:460t1780:30:5:11:"^NO STUDENTS":13:"ON FILE":1520:1780:1950:10030:"^DO YOU WANT THE SCORES TO:"::"<1> - ^THE ^SCREEN"::"<2> - ^THE ^PRINTER":::"^ENTER SELECTION (1 OR 2):";:16368,0RE "6tw"TO USE THIS DISK."(6~w1100036w30340CHE DISKETTE THEN"45v"PLACE IT INTO THE DRIVE AND"W5v"PRESS THE ^R^E^T^U^R^N KEY."p5vA$:A$(13)30410|5v1000:5v5v303405Lw2000:9000:55Vw" ^THE STUDENT SCORES FILE"5`w"MUST BE PURGED OR ERASED IF"6jw"ADDITIONAL STUDENTS A0,104:771,166:772,223:773,154:774,072:775,152:776,072:777,096R4HvER(222)[4Rv768k4fvER430360{4zvER9305404v1000::(4);"CLOSE ":(4);"RUN MENU"4vREBOOT4v2000:9000:54v" ^PLEASE REMOVE THE WRITE PROTECT"5v"TAB FROM TRITE ";FI$;",R";RQ13uLI$:3u(4);"WRITE ";FI$;",R0"B3uS$T3u(4);"CLOSE"Z3uv3v(4);"READ ";FI$;",R0"~3 vRQ3v(4)3 vRQRQ13*vS$"":I138:S$S$" ":I:S$(RQ)S$:S$(S$,40):34v ERROR TRAP ROUTINED4>v768,104:769,168:77I$,16,ZX):LN$(LI$,ZY):@2vu1000:LL41:FI$"STUDFILE":30260`2{u:(4);"OPEN ";FI$;",L";LLq2uNW1İ302102uCL(CL1)2312uLZ$(LI$,CL1)SR$(LI$,CL2)2uLI$(LZ$,40)2u(4);"WRITE ";FI$;",R";RQ2uLI$2u(NW)301903u(4);"WT02798:T,0T,191:T71*NT019114:0,T279,T:T:L10uLL41: GET INFO1:uLI$"":ZZ1LL:LI$LI$((592ZZ)):ZZ:NW(591)1DuRQ(590)256(588)1NuCL(589)11XuZZ115:(LI$,ZZ,1)" "ZYZZ1bu(LI$,ZZ15,1)" "ZXZZ2luZZ:NA$(L "110000 +38219,80+ENı90+25113,179:25114,190c0+25115,39:25116,1:25145,40:25154:0.D0:T1(P$):(P$,T,1)"."DT0.T:D0P$P$".00":0.(P$)D1P$P$"0"0.02T91T1500:T9:1 N16304,0:16299,0:16297,0:7:Ē0:Y:X1:N$:Y:X1:" ":X1X:7:N$"":10010{/`'A$(N$,1):N$(N$,(N$)1):0:Y:X1:A$:Y:X1:" ":X1X11:7:10010/t'A$"A"A$"Z"10010/~'10030/*16368,0:38219,7:CM(0)/+13:" (^PRESS THE ^SPACE ^BAR TO CONTINUE)":AC$0+AC$"A$"."ST110010,.%'N$""A$(13)10010<.''A$(13)ıO.)'A$(8)10060g.*'A$"."ST1:10030u.+'TE10100.,'A$"0"A$"9"10010..'(N$)MAX10010.8'X1X11:Y:X1:A$:N$N$A$:10010.L'(N$)010010.Q'(N$,1)"."ST0//V'(N$)1191: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&0:T134191:0,T279,T:T:7:-&0:TTTBB:0,T279,T:T:7:-'X1X:N$"":ST0-'16368,0:Y:X11:A$.'6tw"TO USE THIS DISK."$6~w11000/6w30340CISKETTE THEN"05v"PLACE IT INTO THE DRIVE AND"S5v"PRESS THE ^R^E^T^U^R^N KEY."l5vA$:A$(13)30410x5v1000:~5v5v303405Lw2000:9000:55Vw" ^THE STUDENT SCORES FILE"5`w"MUST BE PURGED OR ERASED IF"6jw"ADDITIONAL STUDENTS ARE "4:771,166:772,223:773,154:774,072:775,152:776,072:777,096N4HvER(222)W4Rv768g4fvER430360w4zvER9305404v1000::(4);"CLOSE ":(4);"RUN MENU"4vREBOOT4v2000:9000:54v" ^PLEASE REMOVE THE WRITE PROTECT" 5v"TAB FROM THE D ";FI$;",R";RQ13uLI$63u(4);"WRITE ";FI$;",R0">3uS$P3u(4);"CLOSE"V3ur3v(4);"READ ";FI$;",R0"z3 vRQ3v(4)3 vRQRQ13*vS$"":I138:S$S$" ":I:S$(RQ)S$:S$(S$,40):34v ERROR TRAP ROUTINE@4>v768,104:769,168:770,106,ZX):LN$(LI$,ZY):<2vu1000:LL41:FI$"STUDFILE":30260\2{u:(4);"OPEN ";FI$;",L";LLm2uNW1İ302102uCL(CL1)2312uLZ$(LI$,CL1)SR$(LI$,CL2)2uLI$(LZ$,40)2u(4);"WRITE ";FI$;",R";RQ2uLI$2u(NW)301903u(4);"WRITE:BB121:9900m2:20:" ^NOW SUBTRACT.":6:8:Z$(DP):13000::" ^HOW MANY 2'S ARE THERE IN ";Z$(DP);"?"13000:"^THE ANSWER IS NONE."" ^CAN YOU BRING DOWN ANY MORE":"NUMBERS?":13000:"^YES. ^YOU CAN BRING DOWN THE 0.":V6:H9:P$"0":80111000:BB125:99007:"^THEN, SINCE ";W1$(DP);" 2'S, OR ";W2$(DP);" TIMES":"2, EQUALS ";B2$(DP);", SUBTRACT THE ";B2$(DP);".":13000:V1:H8:P$W2$(DP):80102:32,7272,72:7P$"2":V2:H3:8010:P$B3$(DP):V5:H5:8010 11000:TT90;11000:0:2:20:" ^NOW SUBTRACT.":TT75:BB165:99006:" ^HOW MANY 2'S ARE THERE IN ";B$(DP);"?":13000:V2:H3:P$"2":8010:V4:H6:P$B1$(DP):801013000:8:"^THERE ARE ";W1$(DP);" 2'S IN ";B$(DP);".":13000:V1:H8:P$W2$(DP):80109900:2:20:" ^NOW SUBTRACT.":4:6:"1":13000::" ^HOW MANY 2'S ARE THERE IN ";D$(DP);"?"13000:"^THE ANSWER IS NONE.":" ^CAN YOU BRING DOWN ANY MORE":"NUMBERS?":13000:"^YES. ^YOU CAN BRING DOWN THE ";T$(DP);".":V4:H8:P$T$(DP):8010u6:" ^THEN, SINCE ";W$(DP);" 2'S, OR ";M$(DP);" TIMES":"2, EQUALS ";P$(DP);", SUBTRACT THE ";P$(DP);".":130006:32,4272,42:7V1:H6:P$M$(DP):8010:P$"2":V2:H3:8010:3:5:"-";P$(DP):V3:H6:P$P$(DP):8010^TT75:BB105:11000:VISION.":11000&hTT75:BB100:9900r6:" ^TO DO THIS EXAMPLE, THINK!":"^HOW MANY 2'S ARE IN ";(F$(DP),1);"?":T13:13000|:"^THERE ARE ";W$(DP);" 2'S IN ";(F$(DP),1);".":V1:H6:P$M$(DP):8010:7:1:6:M$(DP):11000TT60:BB130:990017:7"@X23:Y12:MAX4:10000:xJ((N$)(AN$(DP))).005TT150:BB180:9900:11:"^THAT'S RIGHT, ";NA$;"!":630KJGJG1T9000:" $ .":" 2 $";F$(DP):5:29,2829,1280,12:7^6:" ^SORRY, ";NA$;", THAT'S NOT":"IT. ^LET'S REVIEW DIL" ^TO FIND THE TIME AND A HALF PAY":"FOR EACH HOUR OF OVERTIME, FIRST"""FIND HALF THE REGULAR PAY. ^YOU DO":"THIS BY DIVIDING.",:10);"2 $";F$(DP)::" ^DO THIS EXAMPLE ON YOUR PAPER":"AND TYPE YOUR ANSWER. $"62:84,13084,117136,1"ONE AND A HALF TIMES":V4:H8:8010.RR2dP$"YOUR":V4:H29:P1$"REGULAR HOURLY PAY":8010nRR20z DP1211000:9000:1:" ^IN THE ";C$(DP);" ^COMPANY, THE REGULAR":"HOURLY PAY OR WAGE IS $";F$(DP);" PER"H10:H27"HOUR.":9900:8:" ^IN THIS JOB, OVERTIME IS PAID AT"\ "TIME AND A HALF.":1:0,130130,130:7 :"^WHAT DOES THIS MEAN?":11000:9000 3:" ^TIME AND A HALF MEANS A PER-HOUR":"SALARY ONE AND A HALF TIMES YOUR" RR2%"REGULAR HOURLY PAY.":P$"^NO. ^THE ANSWER IS 40."M 9550:P$"40":V4:H11:8010:9500:11000:9900 8:" ^SOMETIMES A WORKER IS ASKED TO":"WORK MORE THAN 40 REGULAR HOURS." "^THESE EXTRA HOURS ARE CALLED":"OVERTIME.":H10:H27:P$"OVERTIME":V11:H1:8010/ 11000 THE SIGN"0 x"ON THIS BUILDING.":5000:11000H TT105:BB180:9900 8:" ^WHAT ARE THE REGULAR HOURS?":"^TYPE THE ANSWER." Y9:X17:TE0:MAX2:10000: N$"40"JWJW1::"^RIGHT, ";NA$;"!":"^THE ANSWER IS 40.":180 JGJG1 : ^E ^V ^E ^R ^Y ^D ^A ^Y"A K:" ^L ^I ^V ^I ^N ^G"H M5^ PT:38219,8:7:1w Z7:12:"^LESSON #7" d8:5:(34);"^EARNING ^WITH ^OVERTIME";(34) iT14:13000:9000 n8:" ";NA$;", YOU'VE BEEN JOB-":"HUNTING ALL DAY. ^LOOK AT:38219,8 33,36:35,13& 14009 230,64:62450H :1:0:7\ H17:H20:RR20z T1(NA$LN$):R(1):T 2000 9000 GOTO 630 !GOTO 790 (2:6 2T01:38219,8T <2:" ^M ^A ^T ^H ^F ^O ^R" F:" 4.30260: LESSON #7 &28672D:(4);"BLOAD SOUND.BIN"[30000:NA$"^"NA$kLN$"^"LN$wO$(12)1012,038210,14: SET THE SPACING975,0:RESET TO LOWER CASE T15:R$(T):T:GREAT,GOOD,NICE,SUPER,RIGHT               "" " " " " """"""""" MULTIPLICATION EXAMPLE AND THE":"ANSWER."Pp7:20((F$(DP))1));"$";F$(DP)bz16);"^X 40"}2:104,116160,116:7P$(40(F$(DP))):1200020((P$)1));"$";P$11000:90004:280 :" ^THE PAY FOR ";H$;:HH1ĺ" HOUR OFUR":837C" HOURS"'E"OVERTIME."yH:" $";F$(DP);" PER HOUR FOR 40 HOURS IS":"A TOTAL OF? ^TYPE YOUR ANSWER."R"$":Y13:X1:MAX6:10000:\((N$)(F$(DP))40).005İ7000:910]JGJG1*f9000:1:" ^NO, ";NA$;". ^HERE IS THE":"WOULD":"EARN IN ONE WEEK WORKING REGULAR"R "HOURS AND OVERTIME.":11000:9000d*DP36:750046:" ^AT $";F$(DP);" AN HOUR, THIS EMPLOYEE":"WORKS A REGULAR 40-HOUR WEEK"9HH(9(1)1):H$HR$(HH)>"AND ALSO WORKS ";HR$(HH);:HH1ĺ" HO05:BB120:9900:7:" ^NO. ^THE ANSWER IS $";A$(DP);".":" $";A$(DP);" IS THE TIME AND A HALF":"PAY FOR EACH HOUR OF OVERTIME."11000:9000DP1Ģ6:" ^LET'S TRY ANOTHER EXAMPLE."DP2ı DP*4:" ^NOW LET'S SEE WHAT A WORKER $";F$(DP):"^HALF THE ^REGULAR ^HOURLY ^PAY $";AN$(DP)c5:227,70278,70:227,71278,70:7~31(A$(DP)));"=->$":"^TYPE THE ANSWER.":X34(A$(DP)):Y6:MAX(A$(DP)):10000:((N$)(A$(DP))).005İ7000:770JGJG17TT1T"9"FIND HALF THE REGULAR PAY.":::" 2 $";F$(DP)V2:36,8836,7380,73:7~13000:V5:H6:P$"$"AN$(DP):801011000:9000:1:" ^THEN ADD THE REGULAR HOURLY PAY":"AND HALF THE REGULAR HOURLY PAY.";:"^REGULAR ^HOURLY ^PAY 2":V2:H3:8010:P$"-10":V7:H7:8010@]P$"0":V8:H9:8010_b11000:TT119:BB180:9900l10:" ^YOUR EXAMPLE SHOULD LOOK LIKE":"THIS."v11000:9000{H10:H271:" ^TO FIND THE TIME AND A HALF PAY":"FOR EACH HOUR OF OVERTIME, FIRS$"10":8010U:13000:10:"^THERE ARE FIVE 2'S IN 10.":13000:V1:H9:P$"5":8010tD11000:TT104:BB180:9900N9:"^THEN, SINCE FIVE 2'S, OR 5 TIMES":"2, EQUALS 10, SUBTRACT THE 10.":13000:V1:H9:P$"5":8010S1:32,10272,102:7'XP$"0=&11000:0:2:20:" ^NOW SUBTRACT.":TT104:BB180:9900+FL(DP)Ģ10:" ^SINCE THERE ARE ZERO 2'S IN 0,":"JUST PLACE A ZERO IN YOUR ANSWER.":P$"0":V1:H9:8010:610 08:" ^HOW MANY 2'S ARE THERE IN 10?":13000:V2:H3:P$"2":8010:V6:H8:P000: 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 w30340"PRESS THE ^R^E^T^U^R^N KEY."7 vA$:A$(13)30410C v1000:I vT v30340g 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 w303401775,152:776,072:777,096( HvER(222)1 Rv768A fvER430360Q zvER930540n v1000::(4);"CLOSE ":z vREBOOT v2000:9000:5 v" ^PLEASE REMOVE THE WRITE PROTECT" v"TAB FROM THE DISKETTE THEN" v"PLACE IT INTO THE DRIVE AND" vRITE ";FI$;",R0" uS$* u(4);"CLOSE"0 uL v(4);"READ ";FI$;",R0"T vRQ^ v(4)j 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:FI$"STUDFILE":302606 {u:(4);"OPEN ";FI$;",L";LLG uNW1İ30210Z uCL(CL1)231~ 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);"W 30260"0uLL41: GET INFOY:uLI$"":ZZ1LL:LI$LI$((592ZZ)):ZZ:NW(591)rDuRQ(590)256(588)NuCL(589)1XuZZ115:(LI$,ZZ,1)" "ZYZZbu(LI$,ZZ15,1)" "ZXZZluZZ:NA$(LI$,16,ZX):LN$(LI$,ZY): vu1000:LL41:  11000:9000:1:" ^THE STARTING SALARY FOR A JOB IN":"THE ^";O$(FF);" FIELD IS $";S$:"PER HOUR."5:T4244:0,T279,T:T:7" ^THE NUMBER OF HOURS YOU WILL WORK":"PER WEEK IS ";RN;"."6:T8084:0,T279,T:T:7 :" ^HOW MUCH WILL ) ^COMPUTER";20);"^J) ^FARMING"y"^E) ^BUSINESS";20);"^K) ^CONSTRUCTION":"^F) ^TELEVISION";20);"^L) ^ADVERTISING"8:"^TYPE THE LETTER OF YOUR CHOICE."16368,0:FF$:FF$"A"FF$"L"4308:33:"^";FF$FF(FF$)646100c:" ^HERE ARE SOME CAREER CHOICES.":"^CHOOSE ONE IN WHICH YOU MIGHT BE":"INTERESTED."owDAP15:WR0:N$""|11000:90001:"^A) ^AIRLINES";20);"^G) ^FOOD ^SERVICES":"^B) ^SPORTS";20);"^H) ^REPAIR" "^C) ^MEDICAL";20);"^I) ^SALES":"^D.DAYS, NIGHTS, OR WEEKENDS...":P$"^DAYS / ^NITES / ^WKNDS.":V5:H2:9550:8010:11000:9900h8:"...APPLY IN PERSON AT THE":"^BRIDGE ^DINER ON ^ROUTE 9.":P$"^APPLY IN PERSON,":P1$" ^BRIDGE ^DINER, ^ROUTE 9.":V6:H2:9550:8010:11000:9000Wr1RK...":P$"^F/^T OR ^P/^T.":V2:H2:9550:8010:11000:9900J8:"...SALARY PLUS TIPS...":P$"^SAL. + TIPS.":V3:H2:9550:8010:11000:9900T8:"...SOME EXPERIENCE REQUIRED...":P$"^SM. EXP. REQUIRED.":V4:H2:9550:8010:11000:9900]^8:"..:"^PRESS ANY KEY TO SEE IF YOU ARE":"CORRECT.":16368,0:A$],TT105:BB175:9900:RR1068:" ^WAITERS OR WAITRESSES WANTED...":P$"^W^A^I^T^E^R^S/^W^A^I^T^R^E^S^S^E^S":V1:H2:9550:8010:11000:BB120:9900<@8:"...FULL-TIME OR PART-TIME WO/^W^A^I^T^R^E^S^S^E^S":" ^F/^T OR ^P/^T."" ^SAL. + TIPS.":" ^SM. EXP. REQUIRED.":" ^DAYS / ^NITES / ^WKNDS.":" ^APPLY IN PERSON,"" ^BRIDGE ^DINER, ^ROUTE 9.":95008:" ^NOW READ THIS AD. ^THEN THINK!":"^WHAT DOES IT MEAN?"?":V4:H2:9550:8010:11000:BB160:9900s7:" ^IF YOU ARE INTERESTED IN THIS JOB,":"CALL ^KATHY AT 555-7263."P$"^CALL ^KATHY, 555-7263":V5:H2:9550:80109500:11000:9000240:280X17:X280:5000*9550:1:" ^W^A^I^T^E^R^SITS":V3:H2:9550:8010:9500/11000:99007:" ^THIS JOB OFFERS A GOOD OPPORTU-":"NITY. ^THIS COULD MEAN ADVANCEMENT""OR A FUTURE WITH THIS COMPANY. ^THE":"COMPANY IS LOCATED IN THE ^MIDTOWN":"AREA."(P$"^GOOD OPPTY. ^MIDTOWN AREA."PE OF WORK IS":"REQUIRED."J P$"^MIN. 2 YRS. EXP.":V2:H2:9550:8010 11000:9900:7:" ^THE JOB OFFERS EXCELLENT PAY AND":"BENEFITS. ^BENEFITS MIGHT BE MEDICAL" "OR DENTAL COVERAGE, OR A PENSION":"PLAN."BB147:P$"^EXCEL. PAY & BENEFT DOES IT":"REALLY MEAN?":110008 TT90:BB135:9900 7:" ^THE JOB IS FOR AN AUTO RADIO":"INSTALLER.":P$"^A^U^T^O ^R^A^D^I^O ^I^N^S^T^A^L^L^E^R.":V1:H7:9550:8010:9500 11000:9900:7:" ^A MINIMUM OF 2 YEARS' EXPERIENCE":"DOING THIS TY"WHICH OFFER JOBS.":11000:9000e xX15:5000:9550:1:7:"^A^U^T^O ^R^A^D^I^O ^I^N^S^T^A^L^L^E^R" " ^MIN. 2 YRS. EXP.":" ^EXCEL. PAY & BENEFITS" " ^GOOD OPPTY. ^MIDTOWN AREA.":" ^CALL ^KATHY, 555-7263"! 9500:7:" ^LOOK AT THIS AD. ^WHA0,T279,T:T9 F7:3:7:"^MATH ^FOR ^EVERYDAY ^LIVING"\ P5:12:"^L ^E ^S ^S ^O ^N #6" Z8:9:(34);"^FINDING ^YOUR ^JOB";(34) dT14:13000:9000 n3:" ";NA$;", YOU'VE DECIDED TO GET":"A JOB." s:"^LET'S LOOK AT SOME NEWSPAPER ADS":,8 33,36:35,13' 230,64:624506 :1:0:7J H10:H27:RR20h T1(NA$LN$):R(1):Tr 6020| 2000 9000 (T020:(7(1)1):0,T279,T:T 2T21171:(7(1)1):0,T28,T:252,T279,T:T <T172191:(7(1)1):( 30260 LESSON #6@(4);"BLOAD SOUND.BIN":28672W30000:NA$"^"NA$c1012,0oO$(12){1012,038210,14: SET THE SPACING975,0:RESET TO LOWER CASE T15:R$(T):T:GREAT,GOOD,NICE,SUPER,RIGHT :38219!! ! ! ! ! !!!!!!!!!               "."ST110010(.%'N$""A$(13)100108.''A$(13)ıK.)'A$(8)10060c.*'A$"."ST1:10030q.+'TE10100.,'A$"0"A$"9"10010..'(N$)MAX10010.8'X1X11:Y:X1:A$:N$N$A$:10010.L'(N$)010010.Q'(N$,1)"."ST0+/V'(N$)1Ē0:0,T279,T:T:7:6-%0:T74191:0,T279,T:T:7:[-%0:T102180:0,T279,T:T:7:-H&0:T148191:0,T279,T:T:7:-z&0:T134191:0,T279,T:T:7:-&0:TTTBB:0,T279,T:T:7:-'X1X:N$"":ST0-'16368,0:Y:X11:A$.'A$1.5:DD.19:T,(10(D))40:T%,t<,@38219,O:38210,LIR,JT0RR:H1:V:Hr,TP$:P1$:H2:V:H:P$:P1$,^T:9500:P$"":P1$"":CM(0):RR20:,(#62450:1:1:,%38219,8:38210,14:38200,3:7:,N%38219,11:38210,11:-%0:T89191:(AA):YD%R%(AA)+VX%XD%,Y%YD%:X%XD%,Y%YD%:X%XD%,Y%YD%:X%XD%,Y%YD%:X%YD%,Y%XD%:X%YD%,Y%XD%:X%YD%,Y%XD%:X%YD%,Y%XD%:+`16:934,15:956,15:0:4838,24:4860,24:1538,23:1560,23,j8548,36:915,36:1083,37:T38612:T101005:768,255(1):769,3:770*bD1R:C(D)(D8)T,T:D:T:0:E:7:TT2:D1R1:C(D)(D8)T,T:D:768,100:769,100:770:768,200:769,100:770*lT13:13000:9000:*LD0+QX%49:Y%32:R%32:C0%0:C3.8:CS.064:AAC0%C3CS:XD%R% ^WEEK":4);"^OVERTIME AT ^TIME AND A ^HALF"8)R16`) T162455:15T,1:15260T,65:T)T1654:1517,T:15245,66T:T)R)P7:9500:)XR$R$((5(1)1)):9000)YJWJW1'*]7:R(R$):T1R:C(T)((R$,T,1)):T:C(R1)2:E110(1)3:R,Ta(4:T76100:210,T252,T:T:7:209,100209,76253,76253,100:231,76231,100(7:T065:16,T245,T:T(4(9550:1:12:"^A^B^C ^C^O^M^P^A^N^Y":5);"^JOBS ^AVAILABLE-^APPLY ^NOW"-)11);"^NO ^EXPERIENCE":11);"40-^HOUR"^YOU SCORED ";SR$;"%."::SR$"100"ĺ"^THAT'S A PERFECT SCORE!!":SR$"FF"g':(SR$)1SR$"0"SR$'30070:2000:"^BYE..."'1000::(4);"RUN MENU"'214,255:(6:T0100:0,T279,T:T:7:0,101279,101:T09:0,T10:R02795:R,T";:P$(X):12000:P$;"."W& :" $";P$;" IS THE TOTAL":"^OVERTIME AND ^REGULAR PAY."h& 11000:9000& DP6Ģ5:"^LET'S TRY ANOTHER EXAMPLE.":11000:9000&& DP&&9000&:"^YOU HAVE COMPLETED LESSON 7."K':SR$((100(JGJW)JW)):(HH(A$(DP))):12000:35(P$):P$K% 5:227,55278,55:227,56278,56:7\% 25);"=->$"% :"^TYPE THE ANSWER.":X28:Y5:MAX6:10000:% X(40(F$(DP)))((A$(DP))HH)% ((N$)X).005İ7000:3100% JGJG1& ::"^NO. ^THE ANSWER IS $,1 9,NINE,9,18,-1 8,*,8.85,1,0J$54,237:55,148:43603,237:43604,148:`$ 1:" ^NOW ADD.":$ :"^REGULAR ^PAY FOR 40 ^HOURS $";:P$(40(F$(DP))):12000:P$$ "^OVERTIME ^PAY FOR ";HH;:HH1ĺ" ^HOUR $";:3027$ " ^HOURS $";#% P$,5,15,1 5,SEVEN,7,14,-1 4,^D^E^F,11.25,1,0e#5.20,2.60,TWO,2,4,1,2,12,1 2,SIX,6,12,-1 2,*,7.80,0,1#7.20,3.60,THREE,3,6,1,2,12,1 2,SIX,6,12,-1 2,*,10.80,0,1#9.50,4.75,FOUR,4,8,1,5,15,1 5,SEVEN,7,14,-1 4,*,14.25,1,0$5.90,2.95,TWO,2,4,1,9,19EE,FOUR,FIVE,SIX,SEVEN,EIGHT,NINE"}T16:F$(T),AN$(T),W$(T),M$(T),P$(T),D$(T),T$(T),B$(T),B1$(T),W1$(T),W2$(T),B2$(T),B3$(T)"C$(T),A$(T),Z$(T),FL(T):T:"5.50,2.75,TWO,2,4,1,5,15,1 5,SEVEN,7,14,-1 4,^A^B^C,8.25,1,0*#7.50,3.75,THREE,3,6,1":"ANSWER."2!7:20((A$(DP))1));"$";A$(DP)F!16);"^X ";HHa!2:104,116160,116:7!P$(HH(A$(DP))):12000!20((P$)1));"$";P$!11000:9000:3000!54,189:55,158:43603,240:43604,253:!"xT19:HR$(T):T:ONE,TWO,THR":937 " HOURS OF"C "OVERTIME AT $";A$(DP);" PER HOUR IS?"y :"^TYPE YOUR ANSWER. $":MAX5:Y5:X19:10000: ((N$)(HH(A$(DP)))).005İ7000:3000 JGJG1 !9000:1:" ^NO, ";NA$;". ^HERE IS THE":"MULTIPLICATION EXAMPLE AND THE):N$;:(36):7:1830U!A$(N$,1):N$(N$,(N$)1):0:(36):A$;:7:(36):1840m!16368,00:38219,7!13:"(^PRESS THE ^SPACE ^BAR TO CONTINUE)"!AC$:AC$" "1970!38219,8:"MAX11:30:3:"^ENTER STUDENT'S LAST NAME.":">";:183