' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # dՠ֠z# u*`"A$(AR)" FOR $."(AC)" AND A "B$(BR)" FOR $."(BC)". "SX$" GAVE THE CASHIER A ONE DOLLAR BILL. WHAT WAS "S1$" CHANGE?"# ?ZQ62:700#?P100(ACBC)# ?D$"WRITEANSW":P:1:D$:#H?PP34$R?ZL101:ZH200:ACR(S):AC10(AC10)0ACACI)::I17:C$(I)::I16:D$(I):[">ZL1:ZH6:ARR(S):BRR(S):DRR(S):ZH7:CRR(S)l">ZN3316200v">PP33">ZL10:ZH60:ACR(S):BCR(S):ACBC9916110">ZP1:500:SX$"HE":S1$"HIS":ZR(1)50SX$"SHE":S1$"HER"#?A$ZN$(1)" ORDERED GER,CHILIBURGERw!>RECORD ALBUMS,MOVIE MAGAZINES,MOVIE TICKETS,BOXES OF CANDY,CARTONS OF POP,BUMPER STICKERS,T-SHIRTS!>BUYERS CITY,TREASURE COURT,SHOPPERS UNIVERSE,PETERSON'S OUT-OF-SIGHT MARKET,LAKEVIEW,HALFWAY CENTER$">I16:A$(I)::I16:B$((M(1,2)M(2,2)R3)PR> B;D$"WRITE ANSW":(64P):1:D$:K >PP33-37h >A$:A$"PP33-37"16010 >PP33-37,A ROOTBEER,A COLA,A MILKSHAKE,AN ORANGE DRINK,A GRAPE DRINK,HOT CHOCOLATE!>CHEESEBURGER,HAMBURGER,FISH SANDWICH,HAM SANDWICH,PIZZA BUR,3)99)TF1!::FF0:15030f;I1ZP:"("(64I)") "M(I,1)" FOR ";:TĺM(I,3)" CENTS":15130u;"$"M(I,3);::"("(64I)") "O$" THE SAME"$;P1:M(2,2)M(1,2)P2);R1215160.;M(3,2)M(2,2)P3 8;M(1,2)M(2,2)M(1,2)M(3,2)PR1:ZL2:ZH10:3000:I1ZP:M(I,1)ZR(I):\:ZL10:ZH25:300:I1ZP:M(I,2)ZR(I)::I1ZP:PM(I,1)M(I,2):P10(P10)0M(I,2)M(I,2)1::ZN25ZN26ZN29ZN30T1:I1ZP:TM(I,2)M(I,2)100 :M(I,3)M(I,1)M(I,2):(M(I24BCBC100!9CCBCAC&9A$"IF "(AC)" "B$(BR)" COST $"(CC)", WHAT WOULD BE THE COST OF ONE "(B$(BR),(B$(BR))1)"?":ZQ62:70009PBC:14120:PP25-32:"WHICH IS A BETTER BUY?"::R3(ZN28):O$"BOTH":ZN28O$"ALL":ZT1^8CCACBC:250002c8TAC$(AC$,(AC$)1)h8ZP1:500:A$"HOW MANY "AC$" "A$(AR)" CAN "ZN$(1)" BUY FOR "CC$"?"r8ZQ62:700:PBC:141209PP23&249ZL20:ZH60:ACR(S):ZL2(((ZN24)49)1):ZH9(((ZN24)49)1):BCR(S) 9ZNZN20)49)1):ZH9(((ZN20)49)1):BCR(S)>7A$(BR)B$(BR)\7BC10(BC10)0BCBC1q7ZN20BCBC1007BC$"$"(BC)7PACBC714110@8PP21&22E8ZN2214600J8ZL10:ZH25:ACR(S):ZL2:ZH5:BCR(S):ACBC9914410T8ZN217ZP1:5007A$ZN$(1)" PURCHASED "(AC)" "A$(BR)". THE "A$(BR)" COST "BC$" EACH. WHAT WAS THE TOTAL BILL?":ZQ62:700:PACBC(7D$"WRITE ANSW":P:1:D$:x7PP19&20}7ZN2014400,7ZN$(1)"THE "C$(CR):ZL40:ZH90:ACR(S):ZL2(((RLEADING SQUAD,PENCILS,LETTERS,BOYS CLUB,CANDY BARS,EMBLEMS,GIRLS CLUBg6I16:A$(I),B$(I),C$(I):I6ZL1:ZH6:ARR(S):BRR(S):CRR(S)6ZN18142006ZQ626ZL2:ZH9:ACR(S):ZL10:ZH90:BCR(S)7ZN17T1 7250007PBCAC  BY USING A COUPON?">4700:D$"WRITE ANSW":BCCC:1:D$:K6PP17-24h6A$:A$"PP17-24"14010F6PP17-24,PENS,SWEATSHIRTS,STUDENT COUNCIL,NOTEBOOKS,BUMPER STICKERS,FOOTBALL TEAM,MAGAZINES,T-SHIRTS,BASKETBALL TEAM,RADIO BATTERIES,YEARBOOKS,CHEE62:700:D$"WRITE ANSW":BCAC:1:D$:64PP15&16@4ZQ62p4ZL10:ZH90:BCR(S):CCR(S):BCCC135104ZN16T14250004A$"WITH A COUPON YOU CAN PURCHASE A "C$(CR)" FOR "CC$". THE ORIGINAL PRICE WAS "BC$". HOW MUCH DO YOU SAVE7(CARD)40110"ZK02:Z2(ZK)0MZI02558:Z2(ZK)Z2(ZK)(ZWZI)::{Z2(0)Z2(1)Z2(0)Z2(2)Z2(0)25640120CARD:SLOT:CARD0:SLOT0951,CARD:952,SLOTœCARD1Ĺ950,CARD:D$"BLOAD COMM CARD ROUTINE"̜OR AN INTERFACE =J CARDS: COMM=1,SERIAL=2,PAR=3,MALIBU=4aTD$"CLOSE"F$:Z5(4),Z7(4),Z2(2)^Z5(1)24:Z5(2)56:Z5(3)72:Z5(4)8hZ7(1)56:Z7(2)24:Z7(3)72:Z7(4)72rSLOT17:AD(SLOT192)256|CARD14 (AD5)Z5(CARD)(AD7)Z10)0ZR(I)ZR(I)1e3eI1ZP:ZT(I)ZR(I):GeZL1:ZHZP:300eI1ZP:ZR(I)ZT(ZR(I))::I1ZP:ZR(I)0ZR(I)P:FI:IZPe:xi DETERMINE SEXiSX$"HE":S1$"HIS":ZR(1)50SX$"SHE":S1$"HER"iZ25050a::I1ZP:B$(ZR(I).001):" ("(64I)") "DO$;(B$,(B$)1);" ";U$:::" ("(I64)") NONE OF THE ABOVE":25050aD$"WRITE ANSW":(64F):1:D$:e RANDOMIZE ZP ELEMENTS OF ZR ARRAYeT26010eI1ZP1:ZR(I)10(ZR(I) :25040=aZLP10:ZHP10:ZP3(ZN9):300:ZN9DO$"$"VaI1ZP:ZR(I)PF1ja:FF0:25000aZL1:ZHZP1:FR(S):ZR(F)PaTTaT25042a::I1ZP:" ("(64I)") "DO$;ZR(I);" ";U$:::" ("(I64)") NONE OF THE ABOVE":SAVED $"(AC)" PER WEEK. "ZN$(2)" SAVED $"(BC)" PER WEEK. HOW MUCH MORE WOULD "N$" SAVE IN "(CC)" WEEKS?":ZQ62:700:ZP5:ZR(1)(ACCC):ZR(2)ACCC:ZR(3)BCCC:ZR(4)DC:ZR(5)0:T(ZN17):26000:DO$"$":ZP4:TāI14:ZR(I)(ZR(I)):S):ACBC15010:DCR(S)4:ZL6:ZH52:CCR(S)B:ZP2:500g:N$ZN$(1):BCCCACCCN$ZN$(2)x:ZN1615055:AC10(AC10)0ACAC1:BC10(BC10)0BCBC1:ACAC100:BCBC100:DCDC100:P(BCCCACCC)u:A$ZN$(1)" COUNT?"6ZQ62:700)6PACBC100AC6ZP5:ZR(1)ACBC:ZR(2)ACBC:ZR(3)ACBC:ZR(4)BCAC10:ZR(5)0:T(ZN15):26000:DO$"$":ZP4:TāI14:ZR(I)(ZR(I)):625040: PM16&17:ZL2((ZN17)991):ZH9((ZN17)991):ACR(S):BCR([ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲZQ62:7006,~JP(AC1000000((BR2)9991))(BC100)A,J16160[,aDETERMINEAC$,BC$,CC$,aTAC$(AC)" CENTS":BC$(BC)" CENTS":CC$(CC)" CENTS":25020,aAC$"$."(AC):BC$"$."(BC):CC$"$."(CC),aõL H hBL BH WICHES,PIZZA BURGERS,CHILI BURGERS,HOTDOGS>+VJI17:A$(I):+`JZL1:ZH7:ARR(S):ACR(S):ZH2:BRR(S):ZL10:ZH90:BCR(S)+jJB$(1)"MILLION":B$(2)"BILLION" ,tJA$"HOW MANY "(BC)" CENT "A$(AR)" CAN YOU BUY FOR "(AC)" "B$(BR)" DOLLARS?":AR WOULD THEY REACH?":ZQ62:700:"(A DOLLAR BILL IS 15 CENTIMETERS LONG.)"f*xFP15AC((AR2)9991)*FD$"WRITE ANSW":P;"000000 CENTIMETERS":1:D$*F*8JPP40*BJA$:A$"PP40"19010*+LJPP40,CHEESEBURGERS,HAMBURGERS,FISH SANDWICHES,HAM SANDMUCH DO YOU SAVE BY PAYING IN FULL?"Y)BZQ62:700:P(ACBC)CC:P(P100.5)100:16160c)PFPP39)ZFA$(1)"MILLION":A$(2)"BILLION")dFZL2:ZH7:ACR(S):ZL1:ZH2:ARR(S)K*nFA$"IF "(AC)" "A$(AR)" ONE DOLLAR BILLS WERE PLACED END TO END, HOW FI):/(BZL4:ZH24:BCR(S):ZL1:ZH4:ARR(S)h(BZL10001:ZH20000:CCR(S):CC10(CC10)0CCCC1v(BCCCC100(BAC(CCBC1)$)BA$"A "A$(AR)" SELLS FOR $"(CC)". YOU CAN PAY THE FULL AMOUNT OR $"(AC)" A MONTH FOR "(BC)" MONTHS. HOW C)" EACH, YOU GET ONE "C$". WHAT DOES EACH OF THE "C$(CR)" REALLY COST?"\'.@ZQ62:700'8@P(ACBCCC)(BC1):P(P100.5)100:16160'hBPP38'rBA$:A$"PP38"17010'|BPP38,TELEVISION SET,PAIR OF SKIS,TEN SPEED BICYCLE,STEREO(BI14:A$(S A $"(CC)" TAX ON EACH OF THE "C$(CR)". WHAT WAS "S1$" TOTAL BILL?"g&?ZQ62:700:P(ACCC)BCr&?16160&@PP37&38&@C$"FREE":ZN37C$"FOR $"(CC)M'$@A$D$(DR)" IS HAVING A SALE ON "C$(CR)". IF YOU BUY "(BC)" "C$(CR)" FOR $"(AERK A "M$" DOLLAR BILL. WHAT WAS "S1$" CHANGE?"U%?ZQ62:700:PM(BCAC):16160_%?PP35p%?ZN3616400%?ZL3:ZH15:CCR(S):CC10CC11%?CCCC100%?ZN3716400K&?A$ZN$(1)" PURCHASED "(BC)" "C$(CR)" FOR $"(AC)" EACH. THERE I1$\?ACAC100X$f?ZL2:ZH5:BCR(S):M$"TEN":M10:BCAC10R(S)3M$"TWENTY":M20$p?ZP1:500:SX$"HE":S1$"HIS":ZR(1)50SX$"SHE":S1$"HER"$u?ZN34163003%z?A$ZN$(1)" PURCHASED "(BC)" "C$(CR)" FOR $"(AC)" EACH. "SX$" GAVE THE CL&1A$"A STACK OF "F$" IS "(NU)" KILOMETERS HIGH. EACH "SF$" IS "(N)" CENTIMETERS THICK. HOW MANY "FP$" ARE IN THE STACK?":700:A$(W)" "FP$:10160&2GETFOOD&2ZL1:ZH3:R(S)13020,13030,13040&2F$"WAFFLES":SF$"WAFFLE":FP$F$:BW1000000NNU%L1A$"A STACK OF "F$" IS "(NU)" KILOMETERS HIGH. EACH "SF$" IS "(N)" MILLIMETERS THICK. HOW MANY "FP$" ARE IN THE STACK?":700:A$(W)" "FP$:10160%1PD27%113000:ZL14:ZH19:NR(S)10:ZL2:ZH5:NUR(S):W100000NNU11400:13000:ZL2:ZH5:NR(S):H63360FRN$0A$"A STACK OF "F$" IS "(N)" MILES HIGH. EACH "SF$" IS "FR$" INCHES THICK. HOW MANY "FP$" ARE IN THE STACK?":700:A$(H)" "FP$:10160$81PD26%B113000:ZL14:ZH20:NR(S):ZL2:ZH5:NUR(S):)50SX$"HER"#0CNSNU:C(C.5):A$ZN$(1)"'S FAMILY SPENDS ABOUT $"(C)" ON GROCERIES IN A YEAR. THERE ARE "(NU)" PEOPLE IN "SX$" FAMILY. HOW MUCH DO THEY SPEND PER PERSON ON GROCERIES EACH "S$"?":700#0A$"$"(N):10160#0PD25+$0END ON GROCERIES IN A YEAR?":700>"40A$"$"(NNU52):10160H"p0PD24x"z0ZL1200:ZH1800:NR(S):N10(N10)NN1"0NN100:ZL4:ZH7:NUR(S):ZL1:ZH2:R(S)12421,12422"0S$"MONTH":S12:12430"0S$"WEEK":S52#0ZP1:500:SX$"HIS":ZR(1:ZH1800:NR(S):N10(N10)NN1X! 0NN100:ZP1:500:SX$"HIS":ZR(1)50SX$"HER"!"*0ZL4:ZH7:NUR(S):A$ZN$(1)"'S FAMILY SPENDS ABOUT $"(N)" PER PERSON ON GROCERIES EACH WEEK. THERE ARE "(NU)" PEOPLE IN "SX$" FAMILY. HOW MUCH DO THEY SP(S):W(NS)(LEL):A$"SUPPOSE YOU COULD SPEND $"(N)" EVERY "S$" NIGHT AND DAY. HOW MUCH COULD YOU SPEND IN "(LE)" "L$"?":700:A$"$"(W):10160 /PD22 /ZL100:ZH500:NR(S) /N10(N10)NN1 /NN100:12110 0PD23$!0ZL12001:ZH5:NR(S)5N/ZL1:ZH3:R(S)12111,12112,12113SO/S$"MINUTE":S1440:12120mP/S$"HOUR":S24:12120~Q/S$"DAY":S1X/R(S)12121,12122,12123Y/L$"WEEK(S)":L7:12130Z/L$"MONTH(S)":L30:12130[/L$"YEAR(S)":L365 b/ZL1:ZH5:LERC8,ZL1:ZH5:ZR(S):Z11420,11430,11440,11450,11460O,FR$"1/4":FR.25:g,FR$"3/8":FR.375:},FR$"1/2":FR.5:,FR$"5/8":FR.625:,FR$"3/4":FR.75:.PD21-27.ZN2012100,12200,12300,12400,12500,12600,12700D/PD21I/ZL20,11230,11240 +O$"COOKIE":3+O$"PANCAKE":I+O$"COMIC BOOK":W$,GET FLAT.,ZL1:ZH3:ZR(S):Z11320,11330,113408,FL$"SHEETS OF PANELING":SF$"SHEET":B,FL$"SHEETS OF PLYWOOD":SF$"SHEET":L,FL$"TILES":SF$"TILE":,GETFRA0,11060,11070+F$"APPLE":. +F$"PEAR":?*+F$"PEACH":Q4+F$"BANANA":c>+F$"ORANGE":v\+GET CONTAINERf+ZL1:ZH3:ZR(S):Z11120,11140,11150p+P$"PACKAGE":+P$"SACK":+P$"BAG":+GET OBJECT+ZL1:ZH3:ZR(S):Z11213:ZH19:HR(S)10:MNH:11300)A$"A STACK OF "FL$" IS "(M)" CENTIMETERS HIGH. EACH "SF$" IS "(H)" CENTIMETERS THICK. HOW MANY "SF$"S ARE IN THE STACK?":700:A$(N)" "FL$:10160*GET FRUIT  +ZL1:ZH5:ZR(S):Z11030,11040,1105F$" COST?":700:A$(M)" DOLLARS":10160[)NR(S):ZL13:ZH19:HR(S)10:MNH:11300)A$"THERE ARE "(N)" "FL$" IN A STACK. THE STACK IS "(M)" CENTIMETERS HIGH. HOW THICK IS EACH "SF$"?":700:A$(H)" CENTIMETERS":10160!)NR(S):ZL$" IS "FR$" INCHES THICK. HOW MANY "SF$" ARE IN THE STACK?":700:A$(N)" "SF$"S":10160)NR(S):ZL15:ZH9:MR(S).01:CNM:11000:11100+)A$"A "P$" OF "F$"S COSTS $"(C)". THERE ARE "(N)" "F$"S IN THIS "P$". WHAT DOES EACH "$" OF AN INCH":10160*)NR(S):11300:L)11400:FR.375FR.62510675v)HNFR:ZH(H):H$((H)):Z010680)Z.25H$H$" 1/4":10680)Z.5H$H$" 1/2":10680)H$H$" 3/4"`)A$"A STACK OF "FL$" IS "H$" INCHES HIGH. EACH "SF375FR.62510655;)HNFR:ZH(H):H$((H)):Z010660Z)Z.25H$H$" 1/4":10660x)Z.5H$H$" 1/2":10660)H$H$" 3/4")A$"THERE ARE "(N)" "FL$" IN A STACK. THE STACK IS "H$" INCHES HIGH. HOW THICK IS EACH "SF$".":700:A$FR---",X1):]%C2:L1CY:L11Y:EQ$(C)"!":L21CX:EQ$(C)EQ$(C)("****",X)"!"::CC1%:EQ$(C)"-":L11CX:EQ$(C)EQ$(C)("-----",X1)::CC1:%ĐQXY:U19:X2:YU:A$EQ$(U):36000:&ǐEQ$(1)(Q):EQ$(2)(CXCY):EQ$(3)((CXCY)Q):W*),$E0(A$)1:DS$(XE,Y)(A$,E1,1):2$ȌM$ *SQUARE DRAWING SUBg$ X,Y=FOR THE BIG BOX$ CX,CY=FOR THE LITTLE ONES$ZL2:ZH3:XR(S):YR(S):CXR(S):ZH2:CYR(S)$(XY)(CXCY)37023 %EQ$(1)"-":L1CX:EQ$(1)EQ$(1)("-- "35519)#DS$(X,I)"":XX(X0):355150#IX#X20:I20101:DS$(1,I)""XX1_#Iz#Š(ZN1ZN2)X12X12#ÊZN14ZN21X14#ŊI1X:J136:DS$(J,I);:::#ʊ# *INSERTING SUB# A$=THE STRING TO INSERT$ X,Y=X,Y (DA20:DS$(X,I)"!":"QDP35420K"RDS$(8,7)A1$:DS$(9,7)A2$:DS$(9,16)"X"}"\DS$(10,1)"*":DS$(10,20)"*":DS$(10,11)"*":" *DS$() PRINTING SUB" PRINTS ALL OF DS$()"I120:DS$(2,I)""DS$(2,I)" """I120:X36#DS$(X,I)"!DP352208!DS$(5,9)A1$:DS$(6,9)A2$:DS$(17,9)"X"j!DS$(1,10)"*":DS$(20,10)"*":DS$(11,10)"*":!䉁I120:DS$(I,I)"\":!퉭DP35320!DS$(6,5)A1$:DS$(7,5)A2$:DS$(16,15)"X"!DS$(1,1)"*":DS$(20,20)"*":DS$(11,11)"*":"HX10:I12$((A),1)= ˆZL1:ZH4:ZR(S):Z35100,35200,35300,35400n X0:Y20:I120:DS$(X,Y)"/":XX1:YY1:I| %DP35120 &DS$(4,13)A1$:DS$(5,13)A2$:DS$(14,4)"X" 0DS$(1,19)"*":DS$(19,1)"*":DS$(12,8)"*": X0:Y10:I020:DS$(I,Y)"-": (3,10)"<":DS$(19,10)">":DS$(15,4)" ":DS$(10,10)" ":DS$(11,10)" ":DS$(16,4)" ":DS$(7,4)" ":DS$(3,4)"<":DS$(10,4)">"↭DP34550DS$(15,4)N1$:DS$(16,4)N2$:DS$(7,4)"X":DS$(10,10)T1$:DS$(11,10)T2$*LINE PLOTER A1$((A),1):A(A$,1):N2$(A$,1):T1$(C$,1):T2$(C$,1)ΆI1120:DS$(I,2)"-":DS$(I,6)"-":I:I319:DS$(I,4)"-":DS$(I,10)"-":DS$(I,8)"-":DS$(I,12)"-":I:I26:DS$(11,I)"!":DS$(20,I)"!":DS$(2,I6)"!":DS$(20,I6)"!":I:DS$(12,4)"<":DS$(19,4)">"{؆DS$$(13,8)N1$:DS$(14,8)N2$:DS$(11,16)"X".APARALLELOGRAMI110:DS$(I,2)"-":DS$(I9,11)"-":DS$(I,I1)"\":DS$(I9,I1)"\":I:I211:DS$(10,I)"!":IDP34340DS$(7,5)N1$:DS$(8,5)N2$:DS$(12,8)"X"$Ć*TWO BOX SUB,ɆN1$2,I)"!":DS$(20,I)"!":DS$(13,I)"!":I5HDP34140aRDS$(7,7)N1$:DS$(8,7)N2$:DS$(17,7)"X"g\vTRAPAZOIDY12:I516:DS$(I,Y)"/":YY1:DS$(I,12)"-":DS$(I,20)"-":I:I1220:DS$(5,I)"!":I:I120:DS$(16,I)"!":IDP34240(DS00耲 *SUBIES*$Є*SHAPE PLOTER5ڄENTER WITH:L䄲DP=DON'T PRINT #S\EXIT WITH:sSHAPE IN DS$(X,Y)N1$((A),1):N2$((A),1):ZL1:ZH3:OGR(S) OG34100,34200,343004BOX'>I220:DS$(I,2)"-":DS$(I,12)"-":I:I212:DS$(W }"WHICH EQUATION IS NOT EQUIVALENT TO":"THE EQUATION BELOW? CIRCLE THE LETTER.":}M4:TY3:WF1:ZL1:ZH3:XR(S)2:38000:X$EQ$(1)}TY2:38000:Q282:X22:YQ:A$"("(64(Q2))") "EQ$(Q2):36000:Q:A$X$:X4:Y2:36000}35500:390T"y"WHICH EQUATION IS EQUIVALENT TO THE":"EQUATION BELOW? CIRCLE THE LETTER.":'yM4:TY1:38000:X$EQ$((AN$)64):WQX,yTY1:38000:Q282:X22:YQ:A$"("(64(Q2))") "EQ$(Q2):36000:Q:A$X$:X4:Y2:360006y35500:39000}PROB2238000:Q282:X22:YQ:A$"("(64(Q2))") "EQ$(Q2):36000:QTfq35500:39000`0uPROB20:u"WRITE ONE EQUATION WHICH EXPRESSES THE":"INFORMATION GIVEN IN THE PICTURE AND":"STATEMENTS.":Du37000:M4:TY4:38000Nu35500:39000yPROB214:M4:38000i35500:39000*`mPROB18Njm"WHICH EQUATION IS CORRECT?":tm37000:M4:TY1:38000:Q282:X22:YQ:A$"("(64(Q2))") "EQ$(Q2):36000:Q~m35500:39000HqPROB19Rq"WHICH EQUATION IS INCORRECT?":B\q37000:M4:TY2:'2F$"PEANUT BUTTER SANDWICHES":SF$"SANDWICH":FP$"SANDWICHES":o'2F$"HAMBURGERS":FP$F$:SF$"HAMBURGER":1))10KBI15:"(";(64I);") ";A(I)::I:ZA1:ZA$(1)(64ZR(1)):31000ZPF BLOCK #8nUFBLK8,3,4,2,3,4ZF34000:N(5,5):TR0:A$"ROUND":PT(ZN23):ZA2(ZA2)A$"TRUNCATE":TR1[F34000\F30000:ZA(ZA18)2]FI1ZA:NN:I^FN10:N2(((SM)10).5)10:I1NN1:12);C(I)C(INN):I:10);"+ ";C(NN)C(NNNN):10);"-----"B:A(ZR(1))RS:ZN11A(ZR(1))TSBA(ZR(2))SM:A(ZR(3))A(ZR(1))10:I1NN:S1S1C(I)10:I:INN1NN2:S2S2C(I):I:A(ZR(4))((S1)(S2)):A(ZR(5))A(ZR(1Z(3)5:ZZ(4)10:ZL1:ZHNN:34020:I1NN:ZHZZ(I)1:ZLZZ(I)4:C(INN)R(S):IwuBI1NN:C(I)C(I)10:I:S$"ROUND"wBI1NN:SMSM(C(I)C(INN)):I|BZN11S$"TRUNCATE"ZBS$;" EACH NUMBER TO APPROXIMATE THIS":"SUM.":I1NN:TSTSC(I)::RS(N11):A(ZR(3))N1:A(ZR(4))N11:A(ZR(5))N12:ZN121A(ZR(5))N11>I15:12);A(I):"(";(64I);") ";R110;" X 10":I:ZA1:ZA$(1)(64ZR(3))::31000hB BLOCK #7PrB34000:ZL3:ZH4:NNR(S):ZL5:ZH9:I1NN:C(I)R(S):I:ZZ(1)5:ZZ(2)10:ZN122N1N1:>ZL10:ZH99:R1R(S):((R110))116020s>R1$(R1):ZL1:ZH9:I(R1$)NP:R1$R1$(R(S)):I>ZN122R1$".":I1NP1:R1$R1$"0":I:R1$R1$(R1):I(R1$)9:R1$R1$(R(S)):I>R1$;" IS ABOUT:":F>A(ZR(1))N1:A(ZR(2))(I):ZA$(ZI)((ZQ)):ZN124ZA$(ZI)"."Q:J1ZU(I3):ZA$(ZI)ZA$(ZI)"0":Jv:ZN124ZA$(ZI)ZA$(ZI)((ZQ))}:I:I15:"(";(64I);") ";ZA$(I)::I:ZA$(1)(ZR(3)64):ZA1:31000> BLOCK #6 >34000:ZL2:ZH9:NPR(S):N1NP:ZI$6ZA1:ZA$(1)(ZR(1)64):310002: BLOCK 5Q:ZL100:ZH900:ZQR(S)100i:ZX((ZQ)" X 10"):ZL3:ZH9:ZUR(S):ZN124ZUZU::ZX);ZU:ZQ;" X 10 IS ABOUT::ZN124ZUZU::ZN124ZUZU1:34000(:I15:ZIZR030^6A(ZR(1))(((RN),2)):A(ZR(2))A(ZR(1)).1:A(ZR(3))0:A(ZR(4))1:A(ZR(5))A(ZR(1)).1i6140406A(ZR(1))(RN):A(ZR(2))(((RN),((RN))1)):A(ZR(3))(RN10)10:A(ZR(4))A(ZR(3)).1:A(ZR(5))A(ZR(1))16I15:"(";(I64);") ";A(I)::RE ARE "EQ$(2)" STARS IN EACH ROW.":360002-xJ-X*ANSWER SAVING SUB[-bENTER WITH:m-lANSWER IN A$-v(USE GOTO, NOT GOSUB)-D$"WRITE ANSW":AN$:1:D$-A$(A):I1A:J1B:DS$(J,I)"*":J:If,pEQ$(1)A$:EQ$(2)B$:EQ$(3)C$:ZL1:ZH3:XR(S):EQ$(X)V$,qX1:Y11:A$"THERE ARE "EQ$(1)" ROWS IN THE RECTANGLE.":36000,sX1:Y12:A$"THERE ARE "EQ$(3)" STARS ALTOGETHER.":36000,-uX1:Y13:A$"THEQ)" "V$5+XE$(5,0)A$" "Z$(1Q)" "V$" = "C$a+XE$(6,0)V$" "Z$(1Q)" "A$" = "C$u+EQ$(1)XE$(X,0)+AN$"ANSWER NOT PROVIDED."+ĕ+TYPE4+ ZH3:XR(S)+AN$"ANSWER NOT PROVIDED."+(+d *FILLED BOX SUB+iQ$A$(,nR(S))" "C$" = "A$)*jAN$(64ZR(4))/*t:*TYPE3H*WF38311Y*ZH4:XR(S)*XE$(1,0)C$" "Z$(2Q)" "A$" = "V$*XE$(2,0)V$" = "C$" "Z$(2Q)" "A$*XE$(3,0)C$" "Z$(2Q)" "V$" = "A$ +XE$(4,0)A$" = "C$" "Z$(2))XWQ38075)ZHMd)EQ$(ZR(4))XE$(X,1)" "Z$((XE$(X,4))Q)" "XE$(X,2)" = "XE$(X,3)x)ŔAN$(64ZR(4))~)ʔ)8TYPE2)BX13)LEQ$(ZR(X))XE$(X,1)" "Z$((XE$(X,4))Q)" "XE$(X,2)" = "XE$(X,3))VX*`EQ$(ZR(4))V$" "Z$(3:X:XE$(I,J)EQ$(X)::!(ZHMA(TY38040,38200,38300,38400L(TYPE1|(EQ$(ZR(1))V$" "Z$(R(S))" "C$" = "A$(EQ$(ZR(2))A$" "Z$(R(S))" "C$" = "V$(ZL2Q(EQ$(ZR(3))V$" "Z$(R(S))" "A$" = "C$(ZL1:ZH3)XR(S:'tM=MAX Z$(1-4)''uTY=TYPE (1-4)7'yEXIT WITH:Q'zEQUATION IN EQ$(1-4)i'ANSWER IN AN$(A-D)u'A$(A)'Z$(1)"+":Z$(2)"-":Z$(3)"X":Z$(4)"/"'ZL1:Q0:M4Q2:ZL3'WZ38030'V$EQ$(2):A$EQ$(1):C$EQ$(3)(:I13:J1Z1#&ȐZL1:ZH3:XR(S):EQ$(X)V$&ɐX1:Y11:A$"THERE ARE "EQ$(3)" STARS ALTOGETHER.":36000:Y12:A$"THERE ARE "EQ$(2)" GROUPS OF STARS.":36000:Y13:A$"THERE ARE "EQ$(1)" STARS IN EACH GROUP.":36000&ΐ&p*EQUATION MAKER'sENTER WITHSWER TO THIS PROBLEM.":ZL10:ZH99g.QJN1R(S)10:N2R(S)10:(N1N2)(((N1))2)(((N2))2)19025.SJ((N110.5)(N110))((N210.5)(N210))19025.VJ:9);N1;" X ";N2:P/`JA(ZR(1))(N1.5)(N2.5):A(ZR(2))(N1)(N2):XN1N2:A(ZR(3))X,3))10(N(1,4)N(2,4)):TRXA(ZR(1)):A(ZR(1))A(ZR(2)):A(ZR(2))X-HZA1:ZA$(1)(64ZR(1))::I15:"(";(64I);") ";A(I)::I:31000-8J BLOCK #9-BJ34000:A$"ROUND OFF":ZN103A$"TRUNCATION"".LJ"USE ";A$;" TO HELP YOU APPROXIMATE":"THE ANI:Z3$Z2$"'S",-,Є*** RANDOM NUM. SUB;,ՄZL1:ZH5Q,ڄI15:ZR(I)I:I],䄁I110,X1R(S):X2R(S):X1X234030,XXZR(X1):ZR(X1)ZR(X2):ZR(X2)XX,I, 1-bHA(ZR(5))(N(1,1)N(2,1))1000(N(1,2)N(2,2))100(N(1,3)N(2*** NAME PICKING SUB%+}EXIT WITH:d+ }ZP1:500:ZS$"HIS":Z1$"HE":ZR(1)50ZS$"HER":Z1$"SHE"j+}+耲*** RELATIVE PICKING SUB+REL,BROTHER,SISTER,FATHER,MOTHER,AUNT,UNCLE++ZA$:ZA$"REL"33030,ZL1:ZH6:ZRR(S):I1ZR:Z2$:S DATA FOR THAT#*DuPROBLEM BLOCK.7*NuZZ$"BLK"(ZB)=*XuF*buZX$Z*luZX$ZZ$30050`*vug*y *"y *** ANSWER SAVING SUB*,yZA=NUMBER OF ANSWERS*6yZA$(*)=ANSWERS*=yD$;"WRITE ANSW"*@yI1ZA*JyZA$(I)*Oy1*TyI*^yD$*hy+}ZR(1))(N1.5)(N2.5):A(ZR(2))(N1)(N2):XN1N2:A(ZR(3))X10:A(ZR(4))X:A(ZR(5))(X1)10:ZN103XA(ZR(1)):A(ZR(1))A(ZR(2)):A(ZR(2))X)jJI15:"(";(64I);") ";A(I)::I:ZA1:ZA$(1)(64ZR(1)):31000)/u)0u*** DATA FINDING SUB*:uFIND"TRUNCATION"b(LJ"USE ";A$;" TO HELP YOU APPROXIMATE":"THE ANSWER TO THIS PROBLEM.":ZL10:ZH99(QJN1R(S)10:N2R(S)10:(N1N2)(((N1))2)(((N2))2)19025(SJ((N110.5)(N110))((N210.5)(N210))19025(VJ:9);N1;" X ";N2:)`JA(A(ZR(5))(N(1,1)N(2,1))1000(N(1,2)N(2,2))100(N(1,3)N(2,3))10(N(1,4)N(2,4)):TRXA(ZR(1)):A(ZR(1))A(ZR(2)):A(ZR(2))X'HZA1:ZA$(1)(64ZR(1))::I15:"(";(64I);") ";A(I)::I:31000'8J BLOCK #9 (BJ34000:A$"ROUND OFF":ZN103A$&FHXD18510-&GH9);N1;" - ";N2;": ( )"8&IH18520b&NH11);N1:9);"- ";N2:9);"------":&XHX1N11000:X2N21000:A(ZR(1))((X1.555)(X2.555))1000:A(ZR(2))((X1)(X2))1000:A(ZR(3))A(ZR(2))1000:A(ZR(4))((X1.555)(X2.555))1000'bH)(X2))100:A(ZR(4))(N(1,1)N(2,1))100(N(1,2)N(2,2))10(N(1,3)N(2,3)):A(ZR(5))((X1.55)(X2.55))100%GTRXA(ZR(1)):A(ZR(1))A(ZR(2)):A(ZR(2))X%G18600%DHZL0:ZH1:XDR(S)&EHI14:N(1,I)(((N1),I,1)):N(2,I)(((N2),I,1)):I(4))A(ZR(1))10:A(ZR(5))((X1.5)(X2.5))10:TRXA(ZR(1)):A(ZR(1))A(ZR(2)):A(ZR(2))Xg$G18600m$G$G9);N1;" - ";N2;" IS ABOUT ( )."$Gr%GX1N1100:X2N2100:A(ZR(1))((X1.55)(X2.55))100:A(ZR(2))((X1)(X2))100:A(ZR(3))((X10).5)((N210).5)0(N110)(N210)0Z1:18014C#}GXD18310b#G9);N1;" - ";N2;": ( )"m#G18320#G11);N1:9);"- ";N2:9);"----":\$GX1N110:X2N210:A(ZR(1))((X1.5)(X2.5))10:A(ZR(2))((X1)(X2))10:A(ZR(3))A(ZR(2))10:A(ZR )"""GX1N11000:X2N21000:A(ZR(1))(X1.555)1000(X2.555)1000:A(ZR(2))(X1)1000(X2)1000:A(ZR(3))A(ZR(2))1000:A(ZR(4))A(ZR(2))100:A(ZR(5))A(ZR(1))100:TRXA(ZR(1)):A(ZR(1))A(ZR(2)):A(ZR(2))X",G186005#|GZL0:ZH1:XDR(S):((N112100:A(ZR(1))(X1.55)100(X2.55)100:A(ZR(2))(X1)100(X2)100:A(ZR(3))A(ZR(1))N(1,2)N(1,3)N(2,2)N(2,3):A(ZR(4))N(1,1)N(2,1):A(ZR(5))(X1.55)(X2.55)!FTRXA(ZR(1)):A(ZR(1))A(ZR(2)):A(ZR(2))X!F18600"G9);N1;" + ";N2;": ( I1NN:N(1,I)N(2,I)((N1))NNF14 aF:F18014A bFZ18030 cFA$;" EACH NUMBER TO APPROXIMATE THIS":PT$"SUM":PTPT$"DIFFERENCE" dFPT$;"." iF nFZA18100,18200,18300,18400,18500 F9);N1;" + ";N2;" IS ABOUT: ( )"!FX1N1100:X2N0:I1NN:J12:ZL1(((I1)(J2)2)4):ZH9(((I1)(J1)2)5):N(J,I)R(S):::I1NN1:N1(N1N(1,I))10:N2(N2N(2,I))10::N1N1N(1,I):N2N2N(2,I)_FN1N2XN1:N1N2:N2X:I1NN:XN(1,I):N(1,I)N(2,I):N(2,I)X:I% `FSMN1N2:DFN1N2:F0:N8H$"ROUNDING"\$PZZL1:ZH9:J14:V(J)10R(0)R(0):M(1,J)10((V(J)5(ZN8))10):$ZZI25:J14:M(I,J)10((V(J)10((1).5))10):J$dZK1I1:F1:J14:FF(M(K,J)M(I,J)):J:FKI1:II1$nZK:I$%xZ"TO APPROXIMATE ";V(1);" + ";25:D$(I,1)D$(1,1):D$(I,2)((X$(2),R(0))"00000",R(0)):(D$(I,2))(D$(1,2))II1:22840#.YJ1I1:D$(I,2)D$(J,2)JI1:II1#3YJ#8YI:#Y BLOCK #13#YH$"TRUNCATION":NN4#Y(1(ZA2)(ZA4))23100,23200,23300#NZ1((X2))1:Z2Z11:NA(0)((X2(10Z1).5))(10Z1):NA(1)(X2(10Z1))(10Z1):NA(2)(X2(10Z2))(10Z2):NA(3)NA(2)(10Z2):NA(4)(((X2),1)):NA(5)NA(1)(10Z1) @NNA(6)NA(1)(10Z1)2CNPF$"10)R(S):::X1X(1):X2X(2):X1X220015C 2N(X110X210)20015T 4NX1X220025h 7NXX1:X1X2:X2X 9NZ1((X1))1:Z2Z11:MA(0)((X1(10Z1).5))(10Z1):MA(1)(X1(10Z1))(10Z1):MA(2)(X1(10Z2))(10Z2):MA(3)MA(2)(10Z2):MA(4)(((X1),4000:30000:X(ZA1)2:I1X:RF,NL,NH,NF,PT$,TW$:J15:D1(J),D2(J):J:I /NZL0:ZH1:QR(S):X(1)0:X(2)0:X10:X20:I1((NL)):J12:ZL1(((I1)(J2)(Q1)3)4):ZH9(((I1)(J1)(Q1)3)5):ZH9ZL5 0NZN50ZN51ZH99* 1NX(J)(X(J) #10 !NBLK10= "N0,100,999,0,+,"ADD:",0,0,1,1,2,2,3,2,2,3k #N0,10,99,0,-,SUBTRACT,0,0,1,1,5,1,1,5,4,4 $N 1,100,999,0,-,SUBTRACT,0,0,1,1,2,1,4,4,1,2 %N0,1,99,1,X,MULTIPLY,0,0,1,1,0,5,1,6,1,4 &N0,10,99,1,AND,MULTIPLY,0,0,1,1,2,1,1,2,4,4M *N34,85,91,92,5000,12,18,24,26,28,39,46,48,49,56,54,61,63,64,70,65,108,72,77,80R $'q .'ZA$:ZA$"PASTART"10030 B'I157:ZAZA1 L'ZX:ZX999ZCZX:ZA0 V'ZXZNI57 `'I j'ZCZC1000:ZBZC9 t'ZC20000,21000,22000,23000,24000 N BLOCK:-' OVERLAY X6$' CGMM VOL. 28' (C) MECC 1983W' LAST UPDATE: 2/01/83 KLM]':'** START OF PA BLOCKS 10-14 **'PASTART,1000,14,15,29,30,34,35,50,51,57,58L ' 2000,20,21,97,98,66,67,3000,73,74,78,75,76,79,110,111,112,113,4000,8,9,8                         ԠҠӠ čōčӠԠԮӠԠԮӠԠԮӠԠԮҍٍōōōҍӍōō֍ٍōٍ΍ōō΍ڍǍȍōٍ̍΍΍̍ȍ΍ٍōӍō΍Ӎ΍ٍōȍٍԍӍō΍͍ٍ͍΍Ӎ΍̍΍̍ԍōōˍ̍΍ōٍ̍čٍ̍̍΍ٍˍōٍ΍΍čٍ΍ҍҍȍٍٍ̍ō̍ōӍččč  Ӎz#??    ض/ ط'ҠӠР נ Ҡر'زس!ش'ص,     2ϠԠҠӠ ͠ĠŠӠӠĠS IF NECESSARYN2`T(V$(1))(V$(2)):T0TT:T$V$(1):V$(1)V$(2):V$(2)T$T2`Z2/ut20u*** DATA FINDING SUB2:uFINDS DATA FOR THAT2DuPROBLEM BLOCK.2NuZZ$"BLK"(ZB)2Xu2buZX$2luZX$ZZ$300502vu2y 3"y *** ANSWER SAVING SU1).5ĺ11(V$(2)));:ZP(V$(1)):ZC$"-":100:10);V$(2);"/";V$(1)::247301`10);:V$(1);:I2NT:" ";OS$;" ";V$(I);:::1`34000:I15:"(";(64I);") ";C$(ZR(I))::ZR(I)1AAI:1`I:1`ZA1:ZA$(1)(64AA):310001`2`SWAP TERM0T`I15:LC(C$(I)):LC3C$(I)(C$(I),LC3)","(C$(I),3):LC6C$(I)(C$(I),LC6)","(C$(I),7):LC9C$(I)(C$(I),LC9)","(C$(I),11)0^`I:0|`PRINT PROBLEM & SAVE ANSWER0`"THE BEST ESTIMATE OF THIS ";H$;" IS ( ).":M1`OS$"/"((T$):P1$(T$,SD):P2$"0":LSDP2$(T$,SD1,1)`/,`P2$"5"P1$((P1$)1):(P1$)SDLL1:/6`C$(1)(P1$"000000",L):ZL0:ZHLSD:CSR(0):CL4CS:CS24650/@`I1CS:C$(I1)(C$(1),LI)::CL24660/J`I1CL:C$(I1CS)C$(1)("0000",I):0):V$(I)"":J1ND:ZL1:ZH9:V$(I)V$(I)(R(0))::<._V._GENERATE NUMBERS (2)._ZLD1:ZHD2:NDR(0):V$(1)"":ZL1:ZH9:I1ND:V$(1)V$(1)(R(0)):._V$(2)"":I1D3:V$(2)V$(2)(R(0)):.`.`GENERATE CHOICES1/"`T$((T.001)):L0:24700-<_ -P_ PA 72,77,80D-Z_OS$"/":H$"QUOTIENT":NT2:SD2g-d_D13:D24:D3ZA17:ZN80D25-n_24550:T(V$(1))(V$(2)):T1T1T:T$V$(1):V$(1)V$(2):V$(2)T$-x_24600:24700-_-_GENERATE NUMBERS (1)6._I1NT:ZLD1:ZHD2:NDR(2.1):ZN56D135, _ZA15D1ZA13:D2D11:24500M,_ZA16D2D1:24550,_ZN108D12((1).5):D22((1).5):V1(V$(1)):V2(V$(2)):V$(1)(V$(1),V1D1)"."(V$(1),D1):V$(2)(V$(2),V2D2)"."(V$(2),D2),(_T(V$(1))(V$(2)):SD2-2_2460A5:D2ZA3:ZN49D15)+^24500:24800q+^ZN49NC1((1).5):V$(2)(V$(1),NC)(V$(2),(V$(1))NC):24800+^SD2:T100SD1+^24600:24700+^+^ PA 56,54,61,63,64,70,65,108+^OS$"X":H$"PRODUCT":NT2,_D1((ZA7)2.1):D3((ZA8):H$"SUM":ZL3:ZH4:NTR(0):L*8^D1ZA1:D2ZA1:ZA3D12:D24:ZA5D25*B^24500:T0:I1NT:TT(V$(I))::SD2:T100SD1*L^ZN28ZL1:ZH((T))1:SDR(0)*V^24600:24700*`^*^ PA 39,46,48,49*^OS$"-":H$"DIFFERENCE":NT2+^D1Z34000:I15:"(";(64I);") ";E)[J1NN1:M(ZR(I),J);" + ";:Jf)[M(ZR(I),NN)::ZR(I)1AAIo)[I:)[ZA1:ZA$(1)(64AA):31000)\)] BLOCK #14)](1(ZA5)(ZA9)(ZA17))24100,24200,24300,24400)$^ PA 12,18,24,26,28*.^OS$"+"J:I0(6[J14:M(4,J)(V(J)10((1).5))10:^(@[J14:M(5,J)(V(J)100((1).5))100:(J[V(1);" + ";V(2);" + ";V(3);" + ";V(4):(T["TO APPROXIMATE THIS SUM USING ";H$;",":"YOU SHOULD ADD:":(^[23500:([PRINT PROBLEM & SAVE ANSWER!)[500:'[ PA 91,92.'[ZN91H$"ROUND OFF"'[ZL1:ZH9:J14:ND3((1).5):V(J)R(0)100R(0)10R(0):(1).3V(J)V(J)R(0)10:(1).6V(J)V(J)10'"[J:J14:M(1,J)(V(J)10.5(ZN91))10:J(,[I23:J14:M(I,J)(V(J))((1).5):84)):J6&ZI25:J15:M(I,J)(V(J))((1).5):Jt&ZK1I1:F1:J15:FF(M(K,J)M(I,J)):J:FKI1:II1~&ZK:I&ZV(1);" + ";V(2);" + ";V(3);" + ";V(4);" + ";V(5):&Z"TO APPROXIMATE THIS SUM USING ";H$;",":"YOU SHOULD ADD:":'Z23V(2);" + ";V(3);" + ";V(4);" USING "B%ZH$;", YOU SHOULD ADD:":O%Z23500:^%Z PA 84,85}%ZNN5:ZN84H$"ROUND OFF"%ZZL1:J15:ZH3:NDR(0):ZH9:V(J)R(0)10:ND1V(J)V(J)R(0):ND2V(J)V(J)10R(0)&ZJ:J15:M(1,J)(V(J).5(ZND$"OPEN"F$:D$"READ"F$:FT$;NuFT$"COM-CARD"FT1:35000[XuFT$"DEFAULTS"FT2:40000tbuFT$"USER-SET"FT3lu950,FT:D$"CLOSE"F$vu COMM CARDˆSP:SP10Ĺ802,92:818,82̈D$"BLOAD COMM CARD ROUTINE"ֈ@ SEARCH SLOTS FPROGRAM ENABLES THE USER TO ENTER" "THE OBJECTIVES FOR A WORKSHEET TO BE","CREATED BY THE CGMM TEST GENERATOR.","THIS PROGRAM REQUIRES A PRINTER TO BE","CONNECTED TO THE COMPUTER."0u POKE PRINTER SPECS INTO MEMORY:uF$"PRINTER COMMANDS"DuSPACE-BAR ROUTINE'24:7:16368,0Y"PRESS ";::"SPACE BAR";::" TO CONTINUE";Z01:ZC(16384):Z(ZC141)(ZC160):Z16368,0:1:868:23:: 123,"CGMM PROBLEM SOLVING","VOLUME 2",1" "GENERATE A TEST","LALA","THIS (612) 638-0627"g900:vh::::"IF YOU HAVE ANY PROBLEMS USING MECC"::"COURSEWARE WITH YOUR MICROCOMPUTER,"i:"WRITE OR CALL:"::32,10::"MECC HELP LINE":"2520 BROADWAY DRIVE":"ST. PAUL, MN 55113":"(612) 638-0638":p900::ANUAL TO AID IN THE "IP$"USE":6:"OF THIS DISKETTE IS AVAILABLE FROM MECC."zR11:" TITLE: ";DN$:D2$""Ė13:D2$\15:" DIRECT INQUIRIES TO:"f:13:"MECC DISTRIBUTION CENTER":13:"2520 BROADWAY DRIVE":13:"ST. PAUL, MN 55113":13:"$)2:DN$:11:"PROGRAM DESCRIPTIONS":34,4:LI1N:(37)21DLİ900:\ MN$(I)" -"J1DL:DE$(I,J)""DE$(I,J)" "ĺ" "DE$(I,J) J::I:900*:4SUPPORT BOOK INFO>IP$"":ISIP$"INSTRUCTIONAL "LH4:17(IP$""):"A M11:8:"INSERT THE NEW DISKETTE."-900:PCS(P(P(999))1)16:SLOT #dCS1CS7CS6nCS:DISPLAY LOGO200J1600:(16384)128J600J:16368,0:1023,DN:16368,0DESCRIPTIONS -::21(DN APPLE DOES NOT HAVE ENOUGH ":"MEMORY TO RUN THIS DISKETTE."::"(48K IS NEEDED.)"]D900mXEND OPTIONb::10:1:"DO YOU WANT TO RUN ANOTHER"lIN11:12:868:"DISKETTE? ";A$:A$(A$,1)vA$"N"ĉ::255::IN(A$"Y"):IN":1PDİ750:MENU0|MENUDSEED RANDOM # GENERATOR & CLEAR HGRUX(P(78))jGET THE PROGRAM::12:"GETTING "MN$(A)"..."PR(950)0İ30000CNĺD$"RUN"CN$(A)D$"RUN"MN$(A)&NOT ENOUGH MEMORY010T:"SORRY, THIS ";A$:A$(A$,2)9 TCAA$(1)ĺD$"RUN TEACHER OPTIONS" ^A((A$)):A1AN2PD(A)A$ĢVV:958:VV2:6F35:"PLEASE TYPE A NUMBER FROM 1 TO "N2PD".";:IN0 hIN:PRAN1ĺD$"RUN"X1$ jDRAN1PRĺD$"RUN"X2$ lAN2PDİ600rAN"SET DRIVE OPTIONS":N1PR". "X2$] VV2PD:9(N9PD):N1PD". PROGRAM DESCRIPTION"SP$ "VV3PD:9(N8PD):N2PD". END" + ,RESPOND TO USER'S CHOICE 1MENU11:200 6VVVV7PD:VV22VV22 @IN11:VV:6F35:"WHICH NUMBER?"SP$":" VV7F5:HH9F38D I1N:VV:HH(I10):I". "MN$(I)g VVVV1:F3IC2VV7F5:HH21 I:VVVV2F2F3F6 VV:6F35:"OTHER OPTIONS:" PRĢVV2:9(N9):X1$"SET PRINTER OPTIONS":N1". "X1$" DRĢVV2PR:9(N9PR):X2$EMS' PDPRDR:F3N7PD:TWO COLUMNSg F5N142PD:F6N182PD:FULL SCREEN (LIMIT VARIES 16-20)} (1023)DNİ700 K48(978)157İ550 300 MENU 1(D2$""):21(DN$)2:DN$ 2:21(D2$)2:D2$ 5F5:6F35:"PROGRAM(S)(S1)256- (:::255:0:1:D$"PR#0"O 2DN:(1023)DNČ2054:950,0w <DN$,D2$,N:MN$(N),CN$(N),DE$(N,DL) FSP$"":N1SP$"S" PI1N:MN$(I) ZCNćCN$(I) dJ1DL:DE$(I,J):J:I xC2((N1)2):F2C2(N1)2:ODD # OF MENU ITR%*/49=@C ᷩ?"췩ʎ WRP`cVERSION 4.6LAST UPDATE: 01/26/83 SPM(C) MECC 1982 INITIALIZATIONSDL5:CN1:CA0:PR1:DR0:K480:IS1D$(4):D$"NOMON CIO" #P(S)      ԠҠ&5XXZR(X1):ZR(X1)ZR(X2):ZR(X2)XX-5I35 KING SUB94REL,BROTHER,SISTER,FATHER,MOTHER,AUNT,UNCLE?4Z4ZA$:ZA$"REL"330304ZL1:ZH6:ZRR(S):I1ZR:Z2$:I:Z3$Z2$"'S"44Є*** RANDOM NUM. SUB4ՄZL1:ZH54ڄI15:ZR(I)I:I4䄁I1105X1R(S):X2R(S):X1X234030B3,y ZA=NUMBER OF ANSWERS136y ZA$(*)=ANSWERSF3=yD$;"WRITE ANSW"R3@yI1ZA^3JyZA$(I)f3Oy1m3TyIu3^yD${3hy3}*** NAME PICKING SUB3}EXIT WITH:3 }ZP1:500:ZS$"HIS":Z1$"HE":ZR(1)50ZS$"HER":Z1$"SHE"3}4耲*** RELATIVE PIC_X_lfW_{_>fwooq?ow E "LN:5000:3000SF#"PLEASE REMOVE THE WRITE PROTECT LABEL.":5000:CC$"N"2100]P#1550wpO ROUTINE24:7:16368,0O"PRESS ";::"SPACE BAR";::" TO CONTINUE";~Z01:ZC(16384):Z(ZC141)(ZC160):Z16368,0:1:868:20::(#ERROR RECOVERY2#ER(222):LN(218)(219)256<#:12:ER4ĺ"ERROR NUMBER "ER" IN LIN5,JK5):X((X$))'X0X127X0CL$"":K1L$(S$,K1)_R$"":LJR$(S$,LJ)qS$L$(X)R$LKLJ:4090JK5:868:L(S$):K1LC$(S$,K,1):A(C$):A32AA64:(A);:"K,:SPACE BAR20  A32AA64:1  (A);::S$S$C$:2520A ( 16368,0:V END THE PROGRAMn D$"CLOSE"F$:950,0 D$"RUN HELLO" SCAN FOR CHR$ L(S$):L74140 K1L6:(S$,K,5)"CHR$("4090 JK6L:(S$,J,1)")"4080X$(S$,KY"2092" 4D$"WRITE"F$:FT$:NUM/ >Q$(34)M HJ1NUM:Q$;CM$(J);Q$:JW R3000i STRING INPUT} S$"":16368,0 C$:A(C$):A132600 L(S$) A34(A8L0)2520 A82580 C$" "C$;:L1S$"":2520 S$(S$,L1):258:2500 S$""ĺ:2090. 4000:CM$(I)S$9 I:I9 *NUMI1:NUM0FT$"DEFAULTS":12:"RESETTING PRINTER OPTIONS TO DEFAULTS (SLOT SEARCH).":2100 ,20:868:"ARE THE ABOVE COMMANDS CORRECT? ";OK$ .OK$(OK$,1):OK$"N"2020 0OK$"SP(SP$):SP10SP3015207 D$"WRITE"F$:FT$:SPA 3000X SPECIAL INTERFACEk FT$"USER-SET" :4:"ENTER THE COMMANDS NECESSARY" "TO TURN ON YOUR PRINTER." :"(TO END, JUST PRESS 'RETURN'.)" I19 I8:" "I". ";:86:I01:10:868:"ARE YOU USING A COMMUNICATIONS CARD? ";CC$:I(CC$):Im CC$(CC$,1):CC$"N"2000 CC$"Y"1030 GET SPEED FOR COMM CARD FT$"COM-CARD" 14:"DO YOU WANT TO USE 10 OR 30 CHARACTERS" :"PER SECOND?";SP$  & SET PRINTER OPTIONS PROGRAM 2.1CLAST UPDATE: 5/6/82 RPBV(C) MECC 1982ad9000snD$(13)(4)xTI$"SET PRINTER OPTIONS"::11:TI$:34,3F$"PRINTER COMMANDS"DETERMINE TYPE OF PRINTER FILE249,3:D$"OPEN"F$N      L8Hmx 6*+(n*+c*ȩ*h`HH$hH,b (hHI  X $ i$h`l&H'F0:RN1:ZL60:ZH390:ZP5:300:TT(ZR(1)):I25:T(ZR(I))TF1]'I:FF0:10171'ZL400:ZH990:I15:M(I,1)R(S):M(I,0)2:M(I,2)M(I,1)ZR(I):T(M(I,1))T(M(I,2))(T)I1II1)'I:"WHICH PROBLEM HAS AN ANSWER CLOSEST TO "T"?"::325:T(ZR(I))TF1*'I:FF0:10161'ZL400:ZH990:I15:M(I,1)R(S):M(I,0)2:M(I,2)M(I,1)ZR(I):T(M(I,1))T(M(I,2))(T)I1II1'I:"WHICH PROBLEM HAS AN ANSWER CLOSEST TO "T"?"::37000:SG$"-":36000:ZA$(1)(64F):31000'PA4040:ZH99:I15:M(I,1)R(S):M(I,0)2:M(I,2)M(I,1)ZR(I):T(M(I,1))T(M(I,2))(T)I1II1'I:"WHICH PROBLEM HAS AN ANSWER CLOSEST TO "T"?"::37000:SG$"-":36000:ZA$(1)(64F):31000'PA38'F0:RN1:ZL60:ZH290:ZP5:300:TT(ZR(1)):I,5)100TM(1,5)100II1)'M(I,J)T:'"WHICH PROBLEM HAS AN ANSWER CLOSEST TO "M(1,5)"?":37000:SG$"+"::36000:ZA$(1)(64F):31000'PA33'F0:RN1:ZL6:ZH29:ZP5:300:C1:TT(ZR(1)):I25:T(ZR(I))TF1'I:FF0:10151_'ZL,J)R(S):TTT(M(I,J))::T(T)NTN100TN100II1G'I:37000Z'SG$"+":36000t'ZA$(1)(64F):31000~'PA25'I15:M(I,0)4:T0:ZL2:ZH3:DR(S):ZL510D:ZH9.910D:J14:M(I,J)R(S):TTM(I,J):J:CD:TT(T):I1TM(1,5)TM(10* 'SG$"+":36000:ZA$(1)(64F):31000K '36000:ZA$(1)(64F):31000U 'PA19 'ZL150:ZH350:M(1,1)R(S):M(1,2)R(S):NM(1,1)M(1,2):N(N100.5)100:"WHICH PROBLEM HAS AN ANSWER CLOSEST TO "N"?":9'M(1,0)2:I25:M(I,0)2:T0:J12:M(I'SG$"+":36000:ZA$(1)(64F):310000 'PA96z 'ZL8:ZH18:"WHICH PROBLEM HAS AN ANSWER CLOSEST TO ";:NR(S):N;"?" ':ZL4:ZHN2:F(1)R(S):ZL10:ZH40:F(2)NF(1)(R(S)100):F(3)F(1):F(1)F(2):F(2)F(3):35000 'I15:M(I,0)2: '3700T"?":' 'T((T50)100)100:M(1,I)T 'I25:ZT0:ZL2:ZH4:ZPR(S):J1ZP:ZL10(4J(J4)2):ZH910(4J(J4)2):J1ZH3000 'M(I,J)R(S):ZTZTM(I,J):J:M(I,0)ZP:ZTT(ZT):M(I,ZP1)ZT:ZT(T)ZTT100ZTT100II1 'I '37000& (S)10):F(3)F(1):F(1)F(2):F(2)F(3):35000:35030M w'ZA$(1)(64F):31000W ~'PA27 'ZL2:ZH4:ZPR(S):I1ZP:ZL10(4I(I4)2):ZH910(4I(I4)2):I1ZH3000 'M(1,I)R(S):TTM(1,I):I:M(1,0)ZP:"WHICH PROBLEM HAS AN ANSWER OF ABOUT ";10150,10160,10170,10180,10190,10200,10210,10220,10230,10240,10250,10260,10270,10280,10290,10300,10310,10320w 8'ZF1: t'PA89 u'ZL8:ZH18:"WHICH PROBLEM HAS AN ANSWER OF ABOUT ";:NR(S):N;"?"3 v':ZL4:ZHN2:F(1)R(S):ZL1:ZH4:F(2)NF(1)(R%'COPYRIGHT MECC 1983''BLOCKX7F'LAST UPDATED: 1/31/83 SPMc'T(S)(S10C.5)10Ck'C2'89,27,96,19,25,33,38,40,45,47,101,62,71,109,120,88,90,95,107,117,118,119,13$'I123:A:AZNJPIk .'I:JP10100,10110,10120,10130,10140,          ";:I:" = ?"::39000:37000:RA2:RN1:36000:ZA$(1)(F64):31000N(PA95(ZL3:ZH4:ZNR(S):I1ZN:DI((1)4)2:ZL10DI1:ZH9.910DI:F(I)R(S):H((F(I))):ZL1:ZHH1:DIR(S):DI3DI3 (F(I)F(I)10DI:M(1,1)M(1,1)F(I):I:I15:M((I,0)1o (:F(1)" ";:I2ZN:"+ "F(I)" ";:I:" = ?"::39000:37000:RA2:RN1:36000:ZA$(1)(F64):31000y(PA90(ZL3:ZH4:ZNR(S):ZL101:ZH9999:I1ZN:F(I)R(S)100:M(1,1)M(1,1)F(I):I:I15:M(I,0)1D(:F(1)" ";:I2ZN:"+ "F(I)" F0:10241("WHICH PROBLEM HAS AN ANSWER CLOSEST TO "TR"?"::37000:I15:ZNM(I,1):DVM(I,2):SP5:"("(64I)")":40000:::I (ZA$(1)(64F):31000 (PA88 (ZL3:ZH4:ZNR(S):ZL11:ZH99:I1ZN:F(I)R(S)10:M(1,1)M(1,1)F(I):I:I15:MI:37000:T(M(1,1)M(1,2)):DI((T)):TR(((T10(DI1)).5)10(DI1))(I15:J12:M(I,J)M(I,J).0001:M(I,J)(((M(I,J)),4)):J::SG$"/"(F0:I25:TE(M(I,1)M(I,2)):DI((TE)):TE(((TE10(DI1)).5)10(DI1)):TETRF1 (:FM(1,1)M(1,2)M(I,1)M(I,1)10:F13'I:F10233'"WHICH PROBLEM HAS AN ANSWER CLOSEST TO "TR"?"::37000:36000:ZA$(1)(64F):31000(PA120(RA2:RN1:ZL200:ZH9990:F(1)R(S)100:F(2)R(S)100:F(1)F(2)10241K(35000:I15:M(I,0)2:'ZL200:ZH9990:F(1)R(S)100:F(2)R(S)100:35000:I15:M(I,0)2:I:37000:T(M(1,1)M(1,2)):DI((T)):TR(((T10(DI1)).5)10(DI1))'I15:J12:M(I,J)M(I,J).0001:M(I,J)(((M(I,J)),4)):J::SG$"X"#'F0:I25:TM(I,1)M(I,2):T38000:M(I,1)ZR(1):M(I,2)ZR(2):M(I,0)2:TM(I,1)M(I,2):C((T))1:M(I,3)(T(T)):Iy'F0:I25:M(I,3)M(1,3)F1':FF0:10221'"WHICH PROBLEM HAS AN ANSWER CLOSEST TO "M(1,3)"?":SG$"X"::37000:36000:ZA$(1)(64F):31000'PA109)(T(T)):I/'F0:I25:M(I,3)M(1,3)F1C':FF0:10211'"WHICH PROBLEM HAS AN ANSWER CLOSEST TO "M(1,3)"?":SG$"X"::37000:36000:ZA$(1)(64F):31000'PA71'NL1:NH4:ZP2:I15:J01:38000:J(ZR(1)10000ZR(2)10000):JW')F(2):F(3)(F(3).5):RN1:I15:M(I,0)2:'"WHICH PROBLEM HAS AN ANSWER CLOSEST TO "F(3)"?"::35000:37000:36000:ZA$(1)(64F):31000'PA62 'NL1:NH2:ZP2:I15:38000:M(I,1)ZR(1):M(I,2)ZR(2):M(I,0)2:TM(I,1)M(I,2):C((T))1:M(I,3)M(I,1)ZR(I):T(M(I,1))T(M(I,2))(T)I1II1'I:"WHICH PROBLEM HAS AN ANSWER CLOSEST TO "T"?"::37000:SG$"-":36000:ZA$(1)(64F):31000'PA101-'SG$"-":ZL300:ZH900:F(1)R(S):ZL100:ZHF(1)100:F(2)R(S)100:F(1)F(1)100:F(3)F(1'I:"WHICH PROBLEM HAS AN ANSWER CLOSEST TO "T"?"::37000:SG$"-":36000:ZA$(1)(64F):31000j'PA47'F0:RN1:ZL600:ZH3990:ZP5:300:TT(ZR(1)):I25:T(ZR(I))TF1'I:FF0:101913'ZL4000:ZH9990:I15:M(I,1)R(S):M(I,0)2:M(I,27000:SG$"-":36000:ZA$(1)(64F):310003'PA45}'F0:RN1:ZL600:ZH2900:ZP5:300:TT(ZR(1)):I25:T(ZR(I))TF1'I:FF0:10181'ZL4000:ZH9990:I15:M(I,1)R(S):M(I,0)2:M(I,2)M(I,1)ZR(I):T(M(I,1))T(M(I,2))(T)I1II1`΍Ӎٍ̍ԍ΍ӍӍ΍̍̍Ӎ΍΍΍Ӎ΍čٍ΍͍ōٍҍ΍ӍǍ΍ōǍӍǍՍӍ΍΍΍΍΍΍Ӎōčٍԍ΍΍ҍčǍǍ΍ȍ΍Ӎčҍ΍ٍҍčٍōҍΠčٍč΍ȍ  ZR(ZI)R(S):ZI:5,XCREATE DIFFERENT ANSWER ARRAY{,bZTM(1,1):M(2,1)ZT100:M(3,1)ZT10:M(4,1)ZT10:M(5,1)ZT100:,@DISPLAY EITHER SLASH OR DIV,J(1).540050,TSP)ZN" / "DV;:-rL((ZN)):SP1((DV)));:ZC$"-":ZPL:100:SP)DVI+h+RANDOMIZE M ARRAY+34000:I15:J05:T(I,J)M(I,J):::I15:J05:M(I,J)T(ZR(I),J):::I15:ZR(I)1FI+I++pGENERATE RANDOM NL - NH DIGIT NUMBERS ZP TIMES+zZI1ZP,ZLNL:ZHNH:DIR(S):ZL10DI:ZH(9.9ZL):7(JZP)((M(I,ZR(J)))));M(I,ZR(J)):4);:J:"-------"C*܌:II*挱*"("(64I)") ";:RNZPM(I,0):ZHZP:300:J1ZP1:M(I,ZR(J))" "SG$" ";:J:M(I,ZR(J))::I:36200*J1M(I,0)1:M(I,J)" "SG$" ";:J:M(I,0)1ĺM(I,J):36120*+:R(I),1)M(ZR(I),2))):PZFI:ZP()I.)ꈱW)PRINT ANSWER ARRAY IN RANDOM FORMATb)I15)ZL1:ZH2:(RA)ĴR(S)36020,36100)RA36020,36100)"("(64I)") ";)ȌZPM(I,0):ZHZP:300:RNāJ15:ZR(J)J:J)͌J1ZP:JZPĺSG$;:*Ҍ,2)F(2):M(2,1)F(1)10:M(2,2)F(2)10:M(3,1)F(1):M(3,2)F(2)10:M(4,1)F(1)10:M(4,2)F(2):M(5,1)F(1)10:M(5,2)F(2)10(LjZN109M(5,2)F(2)10(̈ZL1:ZH5:ZP5:34000(ш!)ֈZ1000:I15:"(";(64I);") ";M(ZR(I),1)" + "M(ZR(I),2)::P(N(M(Z6:ZRR(S):I1ZR:Z2$:I:Z3$Z2$"'S".'G'Є*** RANDOM NUM. SUBU'ՄZL1:ZH5m'ڄZI15:ZR(ZI)ZI:z'䄁ZI110'X1R(S):X2R(S):X1X234030'XXZR(X1):ZR(X1)ZR(X2):ZR(X2)XX'' 'GENERATE SET OF ANSWERSz(ˆM(1,1)F(1):M(1&TyI&^yD$&hy/&}*** NAME PICKING SUB?&}EXIT WITH:~& }ZP1:500:ZS$"HIS":Z1$"HE":ZR(1)50ZS$"HER":Z1$"SHE"&}&耲*** RELATIVE PICKING SUB&REL,BROTHER,SISTER,FATHER,MOTHER,AUNT,UNCLE&&ZA$:ZA$"REL"33030('ZL1:ZHDATA FINDING SUB)%:uFINDS DATA FOR THAT=%DuPROBLEM BLOCK.Q%NuZZ$"BLK"(ZB)W%Xu`%buZX$t%luZX$ZZ$30050z%vu%y %"y *** ANSWER SAVING SUB%,yZA=NUMBER OF ANSWERS%6yZA$(*)=ANSWERS%=yD$;"WRITE ANSW"%@yI1ZA%JyZA$(I)&Oy1)10:HNLN10:M(1,3)LN:M(1,0)2$R(I25:M(I,1)R(S):M(I,2)R(S):TM(I,1)M(I,2):M(I,0)2:M(I,3)(T10)10:M(I,3)M(1,3)II1$S(I:SG$"+":37000:"WHICH PROBLEM HAS AN ANSWER BETWEEN "LN" AND "HN"?"::36000:ZA$(1)(64F):31000$/u%0u*** (S)10:M(1,1)ZNDV:((M(1,1)))5M(1,1)110311#H(I15:M(I,0)1::39000:37000:RN1:RA2:"SELECT THE CORRECT ANSWER"::SP5:40000:" = ?"::36000:ZA$(1)(64F):31000#P(PA13 $Q(ZL11:ZH99:M(1,1)R(S):M(1,2)R(S):TM(1,1)M(1,2):LN(T10V:((M(1,1)))5M(1,1)110301">(I15:M(I,0)1::39000:37000:RN1:RA2:"SELECT THE CORRECT ANSWER"::SP5:40000:" = ?"::36000:ZA$(1)(64F):31000"F(PA1192#G(ZL100:ZH99999:ZNR(S):ZL2:ZH((ZN))1:DIR(S):ZNZN10DI:ZL2:ZH9:DVR(1,1)))510291!4(I15:M(I,0)1::39000:37000:RN1:RA2:"SELECT THE CORRECT ANSWER"::SP5:40000:" = ?"::36000:ZA$(1)(64F):31000!<(PA118 "=(ZL100:ZH99999:ZNR(S):ZL1:ZH((ZN))2:DIR(S):ZNZN10DI:ZL11:ZH99:DVR(S):M(1,1)ZND15:M(I,0)1::39000 *("CHOOSE THE CORRECT ANSWER."::" "F(1)" X "F(2)" = ?":::37000:RN1:RA2:36000:ZA$(1)(64F):31000 2(PA117!3(ZL100:ZH99999:ZNR(S):ZL2:ZH((ZN))1:DIR(S):ZNZN10DI:ZL2:ZH9:DVR(S):M(1,1)ZNDV:((MI,0)1n!(:F(1)" ";:I2ZN:"+ "F(I)" ";:I:" = ?"::39000:37000:RA2:RN1:36000:ZA$(1)(F64):31000y((PA107 )(ZL11:ZH99:F(1)R(S)10:ZL2:ZH3:DIR(S):ZL10DI1:ZH9.910DI:F(2)R(S)10(DI1):CDI:F(2)T(F(2)):M(1,1)F(1)F(2):IE8EEEL`EEE  \SETgEEgEh`ɍR EgEEE  hhL"/"ZN;:-,6,5,5,6,7,6,6,5,5,6,7,6,7,6,6,6,5,5,7,6,6,5,5,7,67,7,7,5,5,7,6,7,6,6,6,6,7,7,6,7,6,6,6,7,7,6,7,6,6,6,6,6,7,7,6,7,6,6,6,6,6,6,6,6 6,7,5,5,6,6,7,7,7,7,7,6,6,7,7,7,7,6,6,7,7,7,5,5,7,7,7,7,6,7,6,6,6,6,7,7,7,7,7,77,5,5,5,5,5,5,5,54"PLEASE ENTER AN OBJECTIVE 1-";MX(H);".":70S~20:"PLEASE ENTER A NUMBER.":70::10:"WOULD YOU LIKE TO"::"TRY AGAIN (Y OR N)? ";A$:A$(A$,1):A$"Y"ĬD$"RUN HELLO"DISGUSTING PA DATA ARRAY 2PADATA,5,5,5,5,5,5,5,6,6,5,5,6,7,61))1rRN%(Z)3608|PT%(Z):PO%(Z):RN%(Z)1:500LPT%(I):PO%(I)dI:0:0:D$"CLOSE"c:12:"PLEASE PREPARE YOUR PRINTER.":70::12:"PRINTING THE TEST...":D$"RUN DRIVER"20:"PLEASE ENTER A CORRECT OBJECTIVE TITLE.":70-L20::"PROBLEM ORDER (Y OR N)? ";A$:A$(A$,1):A$"N"A$"Y"305P6A$"Y"R1s@:12:11:"ONE MOMENT PLEASE"ED$"OPEN TEMP":D$"CLOSE":D$"DELETE TEMP"JD$"OPEN TEMP":D$"WRITE TEMP"OVPTI$TI1NU1^R400hZ((1)(NU+IAB:J1P:H5PT%(NU)PA%(I):2669 PT%(NU)H[ PO%(NU)I:NUNU1:NU101290jJ:I:175"::"ONLY 100 PROBLEMS ARE ALLOWED. THESE"::"WILL NOW BE USED TO CREATE A WORKSHEET":70,NU11200@1::3:"WOULD YOU LIKE A RANDOM":U OVER THE"::"100 PROBLEM LIMIT. PLEASE RE-ENTER":70:18020:958:P" PROBLEM(S) OF THE TYPE";:ABĺ"S "MN$(H);A"-"B".":253" ";MN$(H);A"."22:968:"IS THIS ENTRY CORRECT (Y OR N)? ";A$:A$(A$,1):A$"Y"A$"N"253A$"N"180F0:I(N$)$I:F1İ1100:1809F2A(N$):BAaA1ABAMX(H)BMX(H)İ1100:1801:12:958:" NUMBER OF PROBLEMS? ";A$:(((A$)))(A$)((A$))A$İ1150:245P((A$))<(BA)PNU100Ģ20:"THESE PROBLEMS WOULD PUT YO1000:180HF:F07N$(A$,3):(N$)3F2:239yI1(N$):T$(N$,I,1):T$"-"((T$)46(T$)58)F2:238((T$)47(T$)57)T$"-"F1:I(N$):238I1I(N$):F1:238A((N$,I1)):(N$)IBA:235B((N$,I1)) AVE BEEN ENTERED." 34,56 MAIN INPUT ROUTINEk INPUT LIMIT ARBITRARILY SET AT 100 OBJECTIVES.q :8:" OBJECTIVE CODE? ";A$ A$"END"300 (A$)3İ1000:180 F0:MN$(A$,2):I15:MN$MN$(I)FI:I9 I FD.":70 V((A$)) :2:"WHAT TITLE WOULD YOU LIKE FOR THIS TEST?"::TI$:(TI$)40Ģ10:"PLEASE KEEP YOUR TITLE TO LESS THAN 40"::"CHARACTERS.":70:129 :9:"CREATE YOUR WORKSHEET."::" TYPE 'END' WHEN ALL OBJECTIVES"::" HNTER A NUMBER BETWEEN 1 AND 10.":70:125 ~::"SELECT THE OBJECTIVE CODES FROM YOUR"::"SUPPORT MANUAL. ENTER ONE OBJECTIVE"::"CODE AT A TIME. YOU WILL THEN BE ASKED" :"FOR THE NUMBER OF PROBLEMS OF THAT TYPE"::"THAT YOU WOULD LIKE GENERATEONTINUE";:16368,0:16384,128:1:16368,0:A d MAIN ROUTINE x::"MULTIPLE VERSIONS OF A TEST MADE UP OF"::"A SET OF OBJECTIVES CAN BE GENERATED.":) }1:6:958:"HOW MANY VERSIONS WOULD YOU LIKE? ";A$:((A$))1((A$))10Ģ20:"PLEASE EPA%(128):I1128:PA%(I):$ NU1, :? (2:18:"CGMM" 2:"THIS PROGRAM ENABLES THE USER TO ENTER "::"THE OBJECTIVES FOR A WORKSHEET TO BE"::"CREATED BY THE CGMM TEST GENERATOR." <70:100. F24:7:"PRESS ";::"SPACE BAR";::" TO C PROGRAM LALA@AUTHOR: SPM LAST UPDATE: 01/26/83 SPMYCOPYRIGHT MECC 1983k "MAXFILES3"}D$(13)(4)PT%(100),PO%(100),RN%(100)I15:MN$(I),MX(I):I PP,40,PM,19,PD,27,PQ,22,PA,128 A$:A$"PADATA"24      ZL&D$"CLOSE"F9$.&ZL1ZN:ZC$(ZL):ZL4&"VERT OUTPUT TO PRINTER1R&(950)9820,9850,9890A\& COMM CARDSf&775:769,132Yp&oz& DEFAULTS/SEARCH&D$"PR#"(952)&& COMMANDS ON FILE&F9$"PRINTER COMMANDS"&D$"OPEN"F9$&D$"READ"F9$&ZF$,ZN&ZL1ZN:ZC$(ZL):PEND&zD$"OPEN TEMP":D$"OPEN ANSW"tD$"READ TEMP":A,A$:(1023)1(1021)0āI1(1023)1(1021):A,ZN:~A,ZN(1023)1(1021)06070D$"READ ANSW"I1(1023)1(1021)A$:A$"-1"A$"-3"6050IH& DID$"OPEN TEMP":D$"OPEN ANSW":D$"READ TEMP":A:1023,1:1021,0:ZC$(13):ZP15:100:5040| ENDING ROUTINE GOES HERE.. (FINALIZE, AND RETURN TO MENU1023,123:D$"PR#0":D$"IN#0":D$"RUN HELLO"pRETURN FILE POINTERS TO CORRECT POSITION AFTER APrL")";:7:A$:LL1:5240,sL")":LL1CxA$:(A$)15245Vy(A$)25260iz(A$)35240z{7:A$:5240}A$:(A$)25260:5234D$"CLOSE"ZC$(13):ZP15:1001022,(1022)1:(1022)05500Y:41:D$"CLOSE"::"DOES NOT EXIST.":3:D$:1021,(1021)1E:41:1023,(1023)1O5045xP ROUTINE TO PRINT ANSWERS GOES HEREZI115::I_"ANSWERS"`L1dD$"WRITE ANSW":"-2":D$"CLOSE":D$"OPEN ANSW"nD$"READ ANSW"oA$:(A$)25260D$"READ TEMP"-A,ZN:A052005D$FA(0)5070cD$"CLOSE"::"LOAD X";Ax9800:6000:0,A(1)0ĺ::(1023);")"1,0D$"WRITE ANSW":"("Z$(A);ZN")"::D$10000+ZFĹ1023,(1023)1:1,1:D$"WRITE ANSW"4:P$:'  MAIN EXECUTION ROUTINE1 9800D D$"OPEN TEMP"w D$"OPEN ANSW":D$"DELETE ANSW":D$"OPEN ANSW" D$"READ TEMP" A:1022,A:1023,1:1021,0 D$"READ TEMP"A$::(40(A$)2):A$::51);"NAME ________________________") XBXB1:XBXCĺ:760, XB$"":7202 V GET ZP LAST NAMES IN ARRAY ZL$| %D$"OPEN LNAMES":D$"READ LNAMES" *ZL1:ZH70:300:ZP1İ200 4XF1:XI170:ZL$(XF):XIZR(XF)XFXF1 >:D$"CLOSE LNAMES":  PRINT P$ TO PRINTER F1 :D$"CLOSENAMES":! X? bXI1ZP:ZR(XI)R(S)::f  PARSE A$ OUT IN ZQ LENGTH LINES XB$"":XC(A$):XB1:XL1 XC$(A$,XB,1):XB$XB$XC$:XC$" "XCXBXBXB1:720 XL(XB$)ZQĺ:XB$;:XL(XB$):750 XB$;:XLXL(XB$XI)ZR(XJ)XF1:XIZP:XJZP:340: TXJ:XI:XFXF0:310@ ^F ~ XI1ZP:XJXI1ZP:ZT(XI)ZT(XJ)XJZP:XIZP:F1 XJ:XI:  ZL1:ZH99:300:ZP1İ200 D$"OPEN NAMES":D$"READ NAMES":XF1 XI199:ZN$(XF):XIZR(XF)XFX)"PQ":Z$(5)"PA":Z$(6)"PA":Z$(7)"PA"- 23 dL nXI1ZP:ZC$;:::R ^ ZP1ı XI1ZP1:XJXI1ZP:ZR(XI)ZR(XJ)230 XRZR(XI):ZR(XI)ZR(XJ):ZR(XJ)XR XJ:XI: , 6XI1ZP:ZR(XI)R(S): @XI1ZP:XJXI1ZP:ZR(5 4 CGMM MAIN DRIVER ROUTINE: COPYRIGHT MECC 1983F 21500:18000Z "BRUN APPEND"c 0,0l1,0z41:5000) INITIALIZATION ROUTINE*D$(4)+S(S)((S))-R(S)((1)(ZHZL1))ZL' .Z$(1)"PP":Z$(2)"PM":Z$(3)"PD":Z$(4     10)0CCCC17@3ZN14ACAC100:BCBC100:CCCC100EJ3ZP1:800lT3T$"MR. ":ZH2:R(S)1T$"MRS. "^3A$T$ZL$(1)" PURCHASED A "A$(AR)" FOR $"(AC)" AND A "B$(BR)". THE TOTAL BILL WAS $"(BC)". HOW MUCH DID THE "B$(BR)" COST?")h3ZQ$(I)::I15:C$(I):?3ZL1:ZH5:ARR(S):BRR(S):CRR(S)P 3ZN14135003ZL20((ZN14)1001):ZH500((ZN14)1001)3ACR(S):BCR(S):CCR(S)3BCAC1013070"3AC10(AC10)0ACAC1,3BC10(BC10)0BCBC163CC10(CC13-14"13010T2PP13-14,RADIO,TENNIS RACQUET,SKI JACKET,CLASS RING,"DIGITAL WATCH"2C.B.RADIO,CAMERA,GUITAR,PAIR OF SKI BOOTS,"SET OF STEREO SPEAKERS"2PEN,CHEESEBURGER,NOTEBOOK,MAGAZINE,PAIR OF SOCKS,"RADIO BATTERY"2I15:A$(I)::I15:B0750ZP1:500@0A$ZN$(1)" ORDERED A "B$(BR)" FOR "AC$w1A$A$" AND A "C$(CR)". THE TOTAL BILL WAS "BC$ 1A$A$". "1A$A$"HOW MUCH DID A "C$(CR)" COST?":ZQ62:700:PBCAC:D$"WRITE ANSW":P:1:D$:2PP13-16 2A$:A$"PP-/BC(AC2)12075Q0/A$"WITH A COUPON, YOU CAN BUY A "A$(AR)" FOR "AC$". "wD/A$A$"THIS IS A SAVINGS OF "BC$N/A$A$". "X/A$A$"WHAT WAS THE ORIGINAL PRICE?":ZQ62:700:PBCACb/D$"WRITE ANSW":P:1:D$:0PP11-120BCACī12EESEBURGER,HAMBURGER,FISH SANDWICH,HAM SANDWICH,PIZZA BURGER,CHILIBURGER|/I16:A$(I)::I16:B$(I)::I16:C$(I):/ZN10ZN12T1&/ZL1:ZH6:ARR(S):BRR(S):CRR(S)+/ZL10:ZH90:ACR(S):BCR(S):CCR(S),/25000:ZN1012500:BRR(S):FRR(S):SRR(S):ZH4:DRR(S)4z+10220@.PP9-12\.A$:A$"PP9-10"12010.PP9-10,PEN,CHEESEBURGER,NOTEBOOK,MAGAZINE,PAIR OF SOCKS,RADIO BATTERY.A ROOT BEER,A COLA,A MILK SHAKE,AN ORANGE DRINK,A GRAPE DRINK,HOT CHOCOLATEH/CH::I14:D$(I): 9+ZP1:800a>+SX$"HIS":ZL1:ZH2:T$"MR. ":ZNR(S)1SX$"HER":T$"MRS. "vH+ZN$(1)T$ZL$(1)R+T1:ZN6P1\+ZL10(((ZN6)(ZN8))10001):ZH90(((ZN6)(ZN8))10001)f+DCR(S):BCR(S):FCR(S):SCR(S))p+ZL1:ZH5ET,SKI JACKET,CLASS RING,DIGITAL WATCHw +A C.B. RADIO,A CAMERA,A GUITAR,A PAIR OF SKI BOOTS,A SET OF STEREO SPEAKERS*+A TELEVISION SET,A PAIR OF SKIS,A TEN SPEED BICYCLE,A STEREO/+O$" PURCHASED "4+I15:B$(I)::I15:F$(I)::I15:S$(I)(FR)" FOR "FC$E (A$A$". WHAT WAS "SX$" TOTAL BILL?":HHFCBCq (ZQ62:700:D$"WRITE ANSW":H:1:D$:| *PP5-8 +A$:A$"PP5-8"11010 +PP5-8,A WATCH,A HAIR DRYER,A FISHING ROD,AN ELECTRIC RAZOR,A POPCORN POPPER&+RADIO,TENNIS RACQU" CENTS":BC$(BC)" CENTS":SC$(SC)" CENTS":DC$(DC)" CENTS"e (A$ZN$(1)O$B$(BR)" FOR "BC$t 2(P010370} <(ZH2 F(A$A$", "S$(SR)" FOR "SC$ Z(HHSC:(R(S)1)10370 d(A$A$", "D$(DR)" FOR "DC$ x(HHDC (A$A$" AND A "F$(BC10)0BCBC10 'FC10(FC10)0FCFC1N (SC10(SC10)0SCSC1l (DC10(DC10)0DCDC1 ((ZN5)(ZN7)TDCDC100:SCSC100:BCBC100:FCFC100 (TFC$"$"(FC):BC$"$"(BC):DC$"$"(DC):SC$"$"(SC):10270A (FC$(FC)B$(I)::I16:F$(I)::I14:S$(I)::I13:D$(I):J 'ZN2ZN4T1X 'ZN2P1 'ZL1:ZH6:BRR(S):FRR(S):ZH4:DRR(S):ZH3:SRR(S) 'ZP1:500:SX$"HIS":ZR(1)50SX$"HER" 'ZL10:ZH90:FCR(S):BCR(S):DCR(S):SCR(S) 'BC10GE DRINK,A GRAPE DRINK,A HOT CHOCOLATEv 'CHEESEBURGER,HAMBURGER,FISH SANDWICH,HAM SANDWICH,PIZZA BURGER,CHILIBURGER 'FRENCH FRIES,ONION RINGS,A POTATO CAKE 'A PIECE OF PIE,AN ICE CREAM BAR,A SUNDAY,A BOWL OF FRUIT 'O$" ORDERED "7 'I16:%'COPYRIGHT MECC 1983%'PP1-4p'IZN:JP1(I4)(I8)(I12)(I16)(I24)(I32)(I37)(I38)(I39)'JP10100,11000,12000,13000,14000,15000,16000,17000,18000,19000t'A$:A$"PP1-4"10100& ~'PP1-4,A ROOTBEER,A COLA,A MILKSHAKE,AN ORAN              R(S)6ZN15BCBC10006ZP1:500:270006A$ZN$(1)" DEPOSITED $"(AC)" ONE YEAR AGO AT "B$(BR)". THE BANK ADDS "(BC)" PERCENT INTEREST TO "S1$" ACCOUNT AT THE END OF ONE YEAR. AFTER THAT, HOW MUCH MONEY WILL "SX$" HAVE IN "S1$" ACZQ62:70073PAC(BCCC):S$"WITHDREW"PAC(BCCC)3ZP5:ZR(1)ACCC:ZR(2)ACCC:ZR(3)BCCCR(S)R(S):ZR(4)BCCC:ZR(5)0:T(ZN13):26000:DO$"$":ZP4:250406PM14&156ZL2:ZH9:ACR(S)1006ZL5((ZN15)991):ZH6((ZN15)991):BC10)0ACAC1,2BC10(BC10)0BCBC1D2BCBC100:ACAC100Y2ZP1:500:270003A$ZN$(1)" HAD A SAVINGS ACCOUNT AT "B$(BR)" WITH $"(AC)" IN IT. "SX$" "S$" $"(BC)" EACH WEEK FOR "(CC)" WEEKS. HOW MUCH MONEY WOULD "SX$L$ 360((ZN13)991):ACR(S)P2ZL2((ZN13)991):ZH9((ZN13)991):BCR(S)^2ZL0:ZH12L$" HAVE LEFT?":S$"WITHDREW":R(S)L$" HAVE IN ALL?":S$"DEPOSITED"2ZL3:ZH8:CCR(S):S$"WITHDREW"CCBCAC130402ZN12130552AC10(ACACCOUNT AT "B$(BR)". HOW MANY WEEKS WILL IT TAKE "S1$" TO DEPOSIT $"(CC)"?":ZQ62:700/ZP5:ZR(1)ACCC:ZR(2)CCAC:ZR(3)BCCCAC:ZR(4)BCAC:ZR(5)0:I14:ZR(I)(ZR(I))::26000:U$"WEEKS":ZP4:250402PM12&132ZL35((ZN13)991):ZH91):ZH9((ZN11)991):ACR(S)2.ZN1112020P.AC10(AC10)0ACAC1^.ACAC100v.ZL4:ZH10:BCR(S).CCBC(AC):PBC/ZP1:500:27000 /S1$"HIM":ZR(1)50S1$"HER"]/A$ZN$(1)" DEPOSITS $"(AC)" EACH WEEK INTO A SAVINGS +BCBC10!+ZP1:500:27000 +A$ZN$(1)" DEPOSITED $"(AC)" ONE YEAR AGO AT "B$(BR)". THE BANK PAYS "(BC)" PERCENT INTEREST PER YEAR. HOW MUCH INTEREST WILL "SX$" RECIEVE?"*+ZQ62:700:PACBC100:10290.PM9-11!.ZL3((ZN11)9Y AT "B$(BR)". HOW MUCH MONEY WILL "SX$" DEPOSIT AFTER "(BC)" WEEKS?"[(ZQ62:700g(PBCACt(T25000(10290*PM7&8+ZL2:ZH9:ACR(S)100 +ZL5((T0)91):ZH6((T0)91):BCR(S) +T11030+BC10(BC10)0BCBC10290(PM5&6@(ZL3((T0)991):ZH9((T0)991):ACR(S)X(ZL6:ZH17:BCR(S)e(T10440(AC10(AC10)0ACAC1(ACAC100(ZP1:500:27000L(A$ZN$(1)" EARNS $"(AC)" EVERY WEEK "A$(AR)". "SX$" DEPOSITS ALL OF THIS MONEC10(BC10)0BCBC1/ i(ACAC100:BCBC100D n(ZP1:500:27000 x(A$ZN$(1)" HAD A SAVINGS ACCOUNT AT "B$(BR)" WITH $"(AC)" IN IT. "SX$" WITHDREW $"(BC)". THEN HOW MUCH DID "SX$" HAVE IN THE BANK?" (ZQ62:700:PACBC:T25000(1 "S1$" DEPOSIT?"3 'ZQ62:700:PACBC:T10290> (25000_ 2(D$"WRITE ANSW":P:1:D$:j <(PM3&4 F(ZL10((T0)991):ZH20((T0)991):ACR(S) P(ZL2((T0)991):ZH9((T0)991):BCR(S) Z(T10350 _(AC10(AC10)0ACAC1 d(B991):ZP2:300:ACZR(1):BCZR(2)/ 'T10220M 'AC10(AC10)0ACAC1k 'BC10(BC10)0BCBC1 'ACAC100:BCBC100 'A$ZN$(1)" EARNED $"(AC)" AND $"(BC)" "A$(AR)". "SX$" DEPOSITED ALL OF THIS MONEY AT "B$(BR)". HOW MUCH WAS 'ZN1ZN3ZN5ZN7T1- 'LV10:HV10 'ZN10200,10200,10300,10300,10400,10400,11000,11000,12000,12000,12000,13000,13000,14000,14000,15000,15000 'ZL2:ZH9:ZP2:300:ACZR(1):BCZR(2) 'ZP1:500 '27000" 'ZL2((T0)991):ZH9((T0)OMMERCE STATE BANK,HERITAGE STATE BANK,FIRST STATE BANK,MIDWEST FEDERAL BANK,NORTHERN FEDERAL BANK 'I15:A$(I)::I110:B$(I): 'ZL1:ZH5:ARR(S):ZH10:BRR(S) #'IZN:JP1 $'I10160 'SIMILARITY ENDS(EXCEPT FOR MULTIPLE CHOICE OUTPUT)'COPYRIGHT MECC 1983&'PM1-19A'A$:A$"PM1-6"10002'PM1-6,BABYSITTING,WASHING CARS,MOWING LAWNS,RAKING LEAVES,SHOVELING SNOWb 'SECURITY STATE BANK,FIDELITY NATIONAL BANK,FIDELITY STATE BANK,FIRST NATIONAL BANK,AMERICAN NATIONAL BANK,C     :WNFR:W$((W)):11000:11100:)W(W)W$W$" 1/2")A$"THERE ARE "(N)" "F$"S IN A "P$". ALTOGETHER THE "F$"S WEIGH "W$" OUNCES. ABOUT HOW MUCH DOES EACH "F$" WEIGH?":700:A$FR$" OUNCES":10160)NR(S):11300:)11400:FR.r)NR(S):ZL7:ZH18:HR(S):11300|)A$"A STACK OF "FL$" IS "(HN)" MILLIMETERS HIGH. EACH "SF$" IS "(H)" MILLIMETERS THICK. HOW MANY "FL$" ARE IN THE STACK?":700:A$(N)" "FL$:10160 )NR(S):ZL3:ZH5:ZR(S):FR$(Z)" 1/2":FRZ.5OUT HOW MUCH DOES EACH "F$" WEIGH?":700:A$(M)" GRAMS":10160h^)NR(S):ZL7:ZH18:HR(S):11300h)A$"THERE ARE "(N)" "FL$" IN A STACK. THE STACK IS "(NH)" MILLIMETERS HIGH. HOW THICK EACH "FL$"?":700:A$(H)" MILLIMETERS":10160#$"S. HOW MANY "P$"S MUST HE BUY?":700:RN(NZ)Z:A$((NZ))" "P$"S WITH "(R)" EXTRA":10160J)NR(S):ZL84:ZH145:MR(S):11000:11100BT)A$"THERE ARE "(N)" "F$"S IN A "P$". ALTOGETHER THE "F$"S WEIGH ABOUT "(NM)" GRAMS. ABORE OWNER, WANTS "(N)" "F$"S. HOW MANY "P$"S MUST HE BUY?":700:A$(NZ)" "P$"S":101606)NR(S)100:11000:ZP1:800:11100:ZL20:ZH50:ZR(S)i@)A$"THERE ARE "(Z)" "F$"S IN A "P$". MR. "ZL$(1)", A STORE OWNER, WANTS "(N)" "F0"10515h)I1ZN9:ZL,ZH:I:ZN910530,10550,10570,10590,10610,10630,10650,10670,10690,10710,10730")NR(S)100:11000:ZP1:800:11100')ZL20:ZH50:ZR(S):NZ(NZ)10535b,)A$"THERE ARE "(Z)" "F$"S IN A "P$". MR. "ZL$(1)", A STRE ARE "(N)" "O$"S IN A STACK. EACH "O$" IS "(Z)" CENTIMETERS THICK. HOW HIGH IS THE STACK ALTOGETHER?":700:A$(NZ)" CENTIMETERS":10160)PD10-20)PD10-20,5,9,5,9,6,12,21,49,21,49,6,12,20,49,21,49,6,12,21,49,21,49)A$:A$"PD10-2 MILLIMETERS":10160.2(NR(S):11200:11400<(A$"THERE ARE "(N)" "O$"S IN A STACK. EACH "O$" IS "FR$" OF AN INCH THICK. HOW HIGH IS THE STACK ALTOGETHER?":700:A$(NFR)" INCHES":10160F(NR(S):11200:ZL12:ZH18:ZR(S)10P(A$"THEICK. HOW HIGH IS THE STACK ALTOGETHER?":700:A$(NZ)" CENTIMETERS":10160r(NR(S):11200:ZL7:ZH18:ZR(S)((A$"THERE ARE "(N)" "O$"S IN A STACK. EACH "O$" IS "(Z)" MILLIMETERS THICK. HOW HIGH IS THE STACK ALTOGETHER?":700:A$(NZ)"FL$" IN A STACK. EACH "SF$" IS "FR$" OF AN INCH THICK. HOW HIGH IS THE STACK ALTOGETHER?":700:A$(NFR)" INCHES":10160 (NR(S):11300:ZL12:ZH18:ZR(S)10L(A$"THERE ARE "(N)" "FL$" IN A STACK. EACH "SF$" IS "(Z)" CENTIMETERS TH% 'NR(S):11300:ZL7:ZH18:ZR(S) 'A$"THERE ARE "(N)" "FL$" IN A STACK. EACH "SF$" IS "(Z)" MILLIMETERS THICK. HOW HIGH IS THE STACK ALTOGETHER?":700:A$(NZ)" MILLIMETERS":10160 'NR(S):11300:11400 (A$"THERE ARE "(N)" ":A$(NZ)" GRAMS":10160\ 'NR(S):11000:11100:ZL3:ZH5:ZR(S):Z$(Z)" 1/2":ZZ.5 'A$"THERE ARE "(N)" "F$"S IN A "P$". EACH "F$" WEIGHS ABOUT "Z$" OUNCES. HOW MUCH DO THE "F$"S WEIGH ALTOGETHER?":700:A$(ZN)" OUNCES":10160S HE HAVE?":700) 'A$(NZ)" "F$"S"J 'D$"WRITEANSW":A$:1:D$:w 'NR(S):11000:11100:ZL1:ZH12:ZR(S) 'A$"THERE ARE "(N)" "F$"S IN A "P$". EACH "F$" WEIGHS ABOUT "(Z)" GRAMS. HOW MUCH DO THE "F$"S WEIGH ALTOGETHER?":700:ZHZH(ZN)H 'ZN10140,10170,10190,10210,10230,10250,10270,10290,10310l 'NR(S):11000:11100:ZN1:800 'A$"THERE ARE "(N)" "F$"S IN A "P$". MR. "ZL$(1)", A STORE OWNER, HAS ":ZL11:ZH19:ZR(S):A$A$(Z)" "P$"S. HOW MANY "F$"S DOEp' COPYRIGHT MECC 1983$'PDS.'ZQ62\'JP1(ZN9)(ZN20):JP10100,10500,12000gt'PD1-9~'PD1-9,35,55,6,12,7,12,21,49,7,12,21,49,10000,10000,100000,100000,1000000,1000000'A$:A$"PD1-9"10115'I19:ZL(I),ZH(I): 'ZLZL(ZN)          CH EQUATION IS INCORRECT?":ye38500:WZ1:M4:TY2:38000:Q282:X22:YQ:A$"("(64(Q2))") "EQ$(Q2):36000:Qe35500:39000xiPROB17i"WRITE ONE EQUATION WHICH EXPRESSES THE":"INFORMATION GIVEN IN THE PICTURE.": i38500:WZ1:TY(64(Q2))") "EQ$(Q2):36000:Q:A$X$:X4:Y2:36000K]35500:39000WaPROB15{a"WHICH EQUATION IS CORRECT?":a38500:WZ1:M4:TY1:38000:Q282:X22:YQ:A$"("(64(Q2))") "EQ$(Q2):36000:Qa35500:39000ePROB16e"WHI$"("(64(Q2))") "EQ$(Q2):36000:Q:A$X$:X4:Y2:36000PY35500:39000\]PROB14]"WHICH EQUATION IS NOT EQUIVALENT TO THE":"EQUATION BELOW?":]M2:TY3:WF1:ZL1:ZH3:XR(S)2:38000:X$EQ$(1)9]TY2:38000:Q282:X22:YQ:A$"("XPRESSES THE":"INFORMATION GIVEN IN THE PICTURE.":OV34500:TY4:M2:38000aV35500:39000mYPROB13Y"WHICH EQUATION IS EQUIVALENT TO THE":"EQUATION BELOW?":YM2:TY1:38000:X$EQ$((AN$)64)YWQX>YTY1:38000:Q282:X22:YQ:A:Q>N35500:39000!RPROB11R"LABEL THE PICTURE SO THAT THE EQUATION":"AND THE PICTURE EXPRESS THE SAME INFOR-":"MATION.":RDP1:34500:M2:TY3:38000:X22:Y2:A$EQ$(1):36000&R35500:39000UPROB124U"WRITE ONE EQUATION WHICH E IS CORRECT?":gLJ34500:M2:TY1:38000:Q282:X22:YQ:A$"("(64(Q2))") "EQ$(Q2):36000:QyVJ35500:39000 NPROB10*N"WHICH EQUATION IS INCORRECT?":4N34500:M2:TY2:38000:Q282:X22:YQ:A$"("(64(Q2))") "EQ$(Q2):3600036000:Y4:A$EQ$(1):36000&B355001B39000<PFPROB8ZF"WRITE ONE EQUATION WHICH EXPRESSES THE":"INFORMATION GIVEN IN THE PICTURE.":dF34000:TY4:38000:A$"TOTAL AREA = "C$:X22:Y2:36000nF35500:390008JPROB9BJ"WHICH EQUATION))") "EQ$(Q2):36000:Q:A$"TOTAL AREA = "C$:X22:Y12:36000L>35500W>39000bhBPROB7rB"LABEL THE PICTURE SO THAT THE EQUATION":"AND THE PICTURE EXPRESS THE SAME":"INFORMATION."|BDP1:TY3:34000:M2:38000:X22:Y2:A$"TOTAL AREA ="::34000:M2:TY1:38000:Q282:X22:YQ:A$"("(64(Q2))") "EQ$(Q2):36000:Q:A$"TOTAL AREA = "C$:X22:Y12:36000:35500:39000>PROB6>"WHICH EQUATION IS INCORRECT?":>34000:M2:TY2:38000A>Q282:X22:YQ:A$"("(64(Q2EQ$(1):36000 235500# 239000. 6PROB4 6"WRITE ONE EQUATION WHICH EXPRESSES THE":"INFORMATION GIVEN IN THE PICTURE.": 635000:TY4:38000:A$"TOTAL = "C$:X22:Y2:36000 635500:39000 :PROB5 :"WHICH EQUATION IS CORRECT?":{$(Q2):36000:Q:A$"TOTAL = "C$:X22:Y12:36000= .35500H /39000S 2PROB3 2"LABEL THE PICTURE SO THAT THE EQUATION":"AND THE PICTURE EXPRESS THE SAME INFOR-":"MATION." 2DP1:TY3:35000:M2:38000:X22:Y2:A$"TOTAL = "C$:36000:Y4:A$2:TY1:38000:Q282:X22:YQ:A$"("(64(Q2))") "EQ$(Q2):36000:Q:A$"TOTAL = "C$:X22:Y12:36000~ +35500:39000 . PROB2 ."WHICH EQUATION IS INCORRECT?": .TY2 .35000:M2:380002 .Q282:X22:YQ:A$"("(64(Q2))") "EQV$ $':6 )'XE$(1,4)"2":XE$(2,4)"2":XE$(3,4)"1" *ZN11000,12000,13000,14000,15000,16000,17000,18000,19000,20000,21000,22000,23000,24000,25000,26000,27000,28000,29000,30000,31000,32000 * PROB1 +"WHICH EQUATION IS CORRECT?":l +35000:MA:ZN14BR(S):CAB:AB10007= 'A$(A):B$(B):C$(C)\ 'ZL1:ZH4:I14:ZR(I)I:h 'I110 'Z1R(S):Z2R(S):Z1Z210011 'ZZZR(Z1):ZR(Z1)ZR(Z2):ZR(Z2)ZZ: 'A(1)A:A(2)B:A(3)C 'I13:J13:X:XE$(I,J)(A(X)):X2XE$(I,J)%'CGMM VOL2 OVERLAY X4/'(C) MECC 1983O'LAST UPDATED: 01/31/83 KLM'3,2,1,3,1,2,1,2,3:DS$(36,20),EQ$(9),XE$(6,4)'X136:Y120:DS$(X,Y)" "::'V$"X":ZL10:ZH99:ZN14ZL3:ZH10:V$"N"'AR(S):CR(S):AC10006! 'BC               310106 BLOCK 4c634000:ZL1:ZH2(ZN83):XR(S):ZL(10X)(10X):ZH((10(X1))1)(10X)p6RNR(S)6RNRN10:ZN82(RN)0140156ZN83(((RN)))1140156"IF YOU TRUNCATE ";RN;" TO ONE DIGIT,":"YOU GET: ( )":6ZN8314010!2"TRUNCATE ";ZR;". ( )"'2?2ZH5:ZL1:ZP5:300V2ZA(ZR(1))(ZR10)g3ZA(ZR(2))ZR3ZA(ZR(3))10((ZR10))3ZA(ZR(4))ZA(ZR(3))10"3ZA(ZR(5))ZRZA(ZR(3)),3I15:"("(I64)") ";ZA(I)::I63ZA1:ZA$(1)(ZR(3)64)@3A1(I);(X2)((LN$)(X(((A2(I)))21)))3);A2(I)::I:_0ZA1:ZA$(1)(64ZR(3)):31000{0 SMALL SUB FOR LINE #S0I110:LN$LN$"I":J1LL:LN$LN$"-":J:I:LN$LN$"I"02 BLOCK 32ZR(90(1)10)2((ZR),1)((ZR),1)13(2))((RN)10)10:A2(ZR(2))((RN1)10)1010:A1(ZR(3))((RN1000)1000):A2(ZR(3))((RN1000)1000)1000:A1(ZR(4))00A2(ZR(4))10000:A1(ZR(5))((R1100)100):A2(ZR(5))((R1100)100)100<0I15:"(";(64I);") ";LN$:X(((A1(I)))2):4X);00A1(ZR(1))RN:A2(ZR(1))RN.001:A1(ZR(2))(RN):A2(ZR(2))(RN)1:A1(ZR(3))(RN10)10:A2(ZR(3))(RN101)10:A1(ZR(5))(RN100)100:A2(ZR(5))(RN1001)100:A1(ZR(4))(RN1000):A2(ZR(4))(RN1000)10:12430x0A1(ZR(1))RN:A2(ZR(1))RN1:A1(ZR)10440ZA1:ZA$(1)"ARROW LETTER "(AN64):31000p0LL5:12500:34000:ZL1000:ZH9999:RNR(S):ZZ$"100?":ZN6RNRN1000:ZZ$"HUNDREDTH?"z0"WHICH NUMBER LINE WOULD BE MOST HELPFUL":"FOR ROUNDING OFF ";RN;" TO THE NEAREST":ZZ$:|0ZN512424:J170:DF$(I)DF$(I)" ":J:I:I15:SP$(1)" "(I64)" ":J04:DF$(J)(DF$(J),ZR(I)2)SP$(J1)(DF$(J),72(ZR(I)3)):J*0I:I04:2);DF$(I):I:" ";LN$:ZN3ĺ(RN100)100;66);(RN100)100100:12340/0" ";(RN10)10;67);(RN101ANR(S):RN(ZR(AN)10)((RN100)100)70ZN312309d0ZL10:ZH99:XR(S):((X),1)"0"123060RN(X10)(ZR(AN)100)0SP$(3)" ! ":"WHICH ARROW POINTS TO ";RN;" ON THE":"NUMBER LINE?":0I15:ZR(I)(ZR(I)7)1:I:SP$(2)" ! " 0I0)3)):J%/(ZR(I)(107))RNA1I>/I:I02:DF$(I):I/LN$:I010010:I;5);:I::ZA1:ZA$(1)"STICK PERSON NUMBER "(A1):31000 0ZL100:ZH999:RNR(S)100XX(((RN),2))'0DF$(4):LL6:12500:AN99:ZL1:ZH9:ZP5:300:200:ZH5: IS ";RN:"YEARS OLD, CIRCLE THE STICK PERSON"> /LL6:12500H /AN99 /"WHICH BEST SHOWS ";ZS$;" ";Z3$;" AGE."::DF$(2):I02:J180:DF$(I)DF$(I)" ":J:I/I15:SP$(2)" "(I)" ":J02:DF$(J)(DF$(J),ZR(I)2)SP$(J1)(DF$(J),82(ZR(I010:I;:J16:" ";:J:I::ZA1:ZA$(1)(RN):31000 /32000:ZL1:ZH17:ZP5:300:I15:ZR(I)ZR(I)4::RN(ZR(1)(107)):200:33000:ZN$(1);" WANTED TO PLACE A STICK PERSON":"ALONG THE NUMBER LINE TO SHOW ";ZS$. /Z3$;" AGE. IF ";ZS$;" ";Z2$;",12300,12300,12400,12400 D/32000:ZN$(1);" DREW A STICK ON THE NUMBER":"LINE TO SHOW HOW OLD ";Z1$;" IS."::ZN$(1);" IS YEARS OLD.":(ZN$(1)" IS "));"------" N/LL6:12500:ZL1:ZH9:RNR(S):R1RNLLRN1:I15:R1);SP$(I):I7 X/LN$:I +30000 +I1ZA:ZA$:I@ +"ESTIMATE IN ";ZA$;": ( )"U *+ZX(50(1)10)j 4+I1ZX:"-";:Ip 9+ ;+ZA1:ZA$(1)" NO ANSWER." >+31000 . BLOCK 2 .SP$(1)"\O/":SP$(2)" I ":SP$(3)"/ \":SP$(4)" ! ":SP$(5)"\!/" .ZN12100,12200 .'ZA$:ZA$"PASTART"10030& 8'ZB3 B'I1106Q L'ZX:ZX1000ZBZX:10060g V'ZXZNZAI:I106n `'I} j'ZBZB1000 t'ZB11000,12000,13000,14000,15000,16000,17000,18000,19000 * BLOCK #1 + BLK1,MILLIMETRES,CENTIMETRES,DECIMETRES,METRES$'CGMM VOL2 X5 OVERLAY/'(C) MECC 1983N'LAST UPDATE: 02/01/83 KLM_'AUTHOR: KLM'PASTART,1000,126,125,127,128,2000,1,2,3,4,5,6,3000,7,4000,82,83,5000,123,124,6000,122,121,7000,10,11,8000,16,17,23,22,31,32,36,37,43,44,9000,102,103$'             wpO_X_lfW_{_>f{o>_}v_>7_}w{}.;|wooq?ow?o@?_}fYo>_o?_?x?~>{m?_Uv?G_@X~nx1{~?G_ |~}v_g~;ow{}w{?_?|k{o;_ow[o_?>_ox? }xc?[}>_o~[mw{ow_?X_{{?ww~_>wv{?x?o~_}}>`x{}|?@{?|c@ooo}}`|a?l?~gO}v{}{8_|~n~{z{fn{{onowpg_X_nvW_{]_~n{o=_}v_>7_}o}}{}woo|?ow?o@G?_}VZo>_o?_?xx>{m?_mv_??`@?`@?W~v[k>w-w.{~?> x`\o_`O0?~}~}v_o~{nw{}w{?_qwlw`\o<~`ox?a@}xx?_}>``{mw{ow?p?8o{;?o{~_}~.wvs?x?ocO}9^~}~{}~u}w{{o_nn~{v{nn{{wnngxs_X_nfWO{]_>n{o;_}v_>o7_}_~}>{}wOo?~?og?o@q?}6[o>_o?_?|C>{m?_}~g?@~`?@_O~zog>{K/{~Xo~>@|??~>{o7_ow[oO?_o88`}~Xo{mw{|?~~gox?O}x~?_>_o~{ p{owo?|p{{@|~?~~1wvw?~xc?oox p|ao?lxg}Un}}~{}~n}wsO{_qq~{nqan{`xqq~ox_8onV;W[]_]n{ow``>x`>?p>|w_ox?|go?~o@|?}vp>_<`?p>{m?_}v{?ppx?X_~zoo>{k/?{~}v_o~{=}{}w{?~>{o7owoW?Oox<@}~??|_Oox?g}xG?_}>_o~{mw{ow{o?g~xA?o/wu>o{{^o_k~s}mv{}~{}>_}wwg?|{_x`w`>x`}w;p>~wxo?~_|pn6|Xg]_cnw_opg?xwo~o@_~{~?}v[>_o?{?g]{m?_}v}?~~~?~PO>zog>{k/{~}wo~{]{{}w{?|>{o7ow[n_?Wox>?|}?~?xp~@|_>?7{ox?s}|q?_}>_o~{mw{ow[o?o~xA?oOoy]_{??oogO{}}v{}`~>_}|qqpnpqan`{qq`wqq`}O{m7_}v_o7_}w{}>{}wsownw_opq?xgO|O@_~{~?_}v[>_o?w?k{m?_}v~?|x~0W]v[k6wmo.{~}w_n~{mw{}w{?y>x`ow[m_?[ox?q?@}|??_oXo{}>@?Wt?~Ox?x|}?_}>_o{mw{@}{nnnnn{~n{ynnow|g?|{o{m7_}v_*o?_}w{}<{wwoO?w{nsox|?xO>n?_}xA_y_@_8{~?_}v[>_o?o??~wp`}xxs~xXc{o~_ow[k_?]oxG?G|}x?NW?_o~s<}{ow[o?X_s;ww|_>?gv|_x?o~?~}?_}xA?ooo}];?oogy{s}v{}~;>_}{~nnun{~n{{nnww?~oxp67\_{]qcf{m7_}v_6o?_}w{}:{wgog?wox?o@?~`wp> 0`?x>{m?_9v>_`_@_~{~`w[A_0_?p_0G~~v_k~[p{}w{?]{o}_ow[g_?^ox?>pp}xO?U;?_o~+]{{ow[?X_{{@ww~_>?wvyx?o`}?_yxA?ooo}={{^o^k|sg}v{}~{~>_}w{~np{p{~`{{aqswxO8oJV[_{]n]v8_wx>8_}w{}6{