' +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*`xFZN36ZL2:ZH5:LR(S):RR(S)S FI13:J13:M(I,J)SL(I1)R(J1):J:I~ FCT0ĺD$"WRITE ANSW":QU$(34):18080 F"USE THE PATTERNS IN THE TABLE TO FILL IN THE BLANK." FM(E,F)0 FZP19:ZC$"-":(!FI13:100:QU$;"! ! ! 100::QU$;" ";LI1;" !!";:J13:M(I,J)017200^&C4((M(I,J))));M(I,J)" !";:17210n0C" !";:CJ:QU$:I:CT0CT1:"-1":D$:QU$"":17135DCPF PT35-42ZFZN36ZF1:dFZL1:ZH9:SR(S):ZH3:ER(S):FR(S)nFL1:R1" CT0ĺD$"WRITE ANSW":QU$(34):171609BZP5:ZH9:300qBI15:T(ZR(I)1)3:M((T1),(ZR(I)(T)3))0:IB"FIND THE PATTERN AND FILL IN THE BLANKS.":CQU$5)"!! ";R;" ! ";R1;" ! ";R2;" !";QU$CZC$"_":ZP28:1004CI13:)BZN33E2:ZL1:ZH2:LR(S):RR(S)PBZN34ZL1:ZH2:MR(S):N2(M2)BI13:J13:M(I,J)((M(LI1)(SN(RJ1))A)E):J:IB17130BZN31A1(2((1).5))BZN32B2BI13:J13:M(I,J)B(LI1)(RJ1)A:J:I&B:I26:J26:M(I,J)M(I1,J)M(I,J1):J:I:16110OhB PROGRAM DIRECTIVES krBS1:A0:B1:E1:M1:N1|BZL1:ZH7:LR(S):RR(S)BZN2617040,17040,17100,17040,17100,17100,17040,17040BZN28S1:LR317020BZN30A1(2((1).5))RJ >M(I,J)M(I,J1)R:J:Ih>I16:(20(I2)):J1I:4((M(IJ1,J))));M(IJ1,J);::::>D$"WRITE ANSW":"NO ANSWER":"-1":D$:?I16:M(I,2)M(I,1)1::I16:J36:M(I,J)M(I,J2)M(I,J1):J:I:161105 ?I16:M(1,I)M(I,1): PROGRAM DIRECTIVES (PT22-26)K>"SEE HOW MANY PATTERNS YOU CAN FIND.":v>ZL1:ZH5:M(1,1)R(S):LR(S):RR(S)>I26>ZN24LI>M(I,1)M(I1,1)L:I>ZN2516130>ZN2616140>I16:J27I>ZN23RM(I,1)1>ZN24:SHU:HS:I;15140;TS1:T(1)S:T(2)T:T(3)T:T(4)T(2)1:I152:T(I4)T(I)T(I2):I:I26:T(I4)T(I)T(I2):I;I1102:ST(I):TT(I1):J15:5((S)));S;:WT:TTS:SW:J:::I$;D$"WRITE ANSW":"NO ANSWER":"-1":D$:>RIDA': PROGRAM DIRECTIVES (PT19-21)T:"SEE HOW MANY PATTERNS YOU CAN FIND.":~:ZL1:ZH5:SR(S):RR(S):UR(S):HS:ZN2115120:RU15020:ZN20UR:I15:J15:5((S)));S;:ZN20RJ:SSR:J:::ZN20UI14005"6"FILL IN THE BLANK.":86ZL1:ZH7:RR(S)J6I1R:W$:IV6RR(S)t6I17:IRĺ"__";:140706(W$,I,1);6I7ĺ", ";7I::D$"WRITE ANSW":" "W$:1:D$: 7PT18,STUDENT,DECIMAL,PERCENT,SPINACH,ENGLAND,AMERICA,FLOΠ̬ŠčȍԮΠͬύȍӠϬҠӍȍŠӠӍҍȍΠԬōȍΠԬōȍǠԬҠǍȍŠǍȍŠ٬ōȍΠ̬ҠǍȍȍٍȍȍЍȍŠӭ¬ōȍԠӬōȍ̠άΠҍȍΠά΍ȍŠ֬ԍȢŠҭOUTINE" ̜/(AD5)Z5(CARD)(AD7)Z7(CARD)40110DZK02:Z2(ZK)0oZI02558:Z2(ZK)Z2(ZK)(ZWZI)::Z2(0)Z2(1)Z2(0)Z2(2)Z2(0)25640120CARD:SLOT:CARD0:SLOT0250,CARD:251,SLOTœCARD1Ĺ1918,CARD:D$"BLOAD COMM CARD R5:M(I,1)0ĺ3((M(I,1))));M(I,1);" !";:21330C/HS" !";[/RSI::T:T$:T:100/\ST:T$:T:"!";:I15:M(I,2)0ĺ3((M(I,2))));M(I,2);" !";:21360/fS" !";/pSI::QU$;:T:T$;QU$:QU$;:T:1000zSCT0CT1:QU$"":"-1":D$:10..SCT0ĺD$"WRITE ANSW":QU$(34):21290`. S"FIND THE PATTERN AND FILL IN THE BLANKS.":.SZH5:MR(S):NR(S):MN21270. SM(M,1)0:M(N,2)0.*SZP31:ZC$"-":T:100.4ST$"!":I15:T$T$" !":4/>SQU$;:T:T$;QU$:QU$;:T:"!";:I13:G(3)3:G(1)2:F(2)2:G(4)4:F(3)4?-RI15:M(I,1)ZR(I):I-RZL1:ZH4:ZR(S):J15:M(J,2)M(J,1)G(Z):M(J,1)M(J,1)F(Z)::21240-RZL1:ZH9:ZP5:300:ZL1:ZH2:MR(S):I15:M(I,1)ZR(I):M(I,2)M(I,1)M(I,1)((ZN64)M):I:21240-R.ST10:TR(S):I1T:X:&,vRZH9:I159,RM(I,1)R(S)1Z,R(XM(I,1))XM(I,1)21120i,RI121170,RJ1I1:M(I,1)M(J,1)F1:JI1,RJ:FF0:21120,RI:I15:M(I,2)XM(I,1):I,R21240,RZL1:ZH9:ZP5:300$-RF(1)3:F(4)3:G(2)ZH18:SR(S)'+&RZL1:ZHS1:ZP5:300Y+0RI15:J15:ZR(I)ZR(J)SIJF1:J5:I5q+:RJ:I:FF0:21030+DRI15:M(I,1)ZR(I):M(I,2)SM(I,1):I+NR21240+XR PT61+bR 24,24,30,36,40,48,54,56,60,72,80+gRX$:(X$)2421095,lRZL1:ZH:100`*OQU$;T);T$;QU$:QU$;T);"!";:I15:M(I,2)0ĺ3((M(I,2))));M(I,2);" !";:20270o*$O" !";*.OI:QU$:QU$;T);T$;QU$:QU$;T);:100*8OCT0ĺ"-1":D$:CT1:QU$"":20150*BO*R PT60*RZN6021080,21190,21230,21230 +RZL10:LANKS."::20200.)ND$"WRITE ANSW":QU$(34)Q)NQU$;:ZP31:ZC$"-":T);:100t)NT$"!":I15:T$T$" !":)NQU$;T);T$:QU$;P$;" !";:I15:M(I,1)0ĺ3((M(I,1))));M(I,1);" !";:20240)O" !";*OI:QU$:QU$;T);T$;QU$:QU$;T);(NZN55P$" ":T115(NZP31:CT020199n(NZN55ĺ"FIND THE PATTERN AND FILL IN THE BLANKS.":(NZN55ZH5:MR(S):NR(S):MN20170(NZN55M(M,1)0:M(N,2)0:20200)NZN56ĭCT1āI25:M(I,2)0::"USE THE RULE TO FILL IN THE B20120,20070,20070,20100,20120-'fNZN53SS='pNZN57SSb'zNI15:M(I,2)M(I,1)S:I:20140h'N'NI15:M(I,2)M(I,1)S:I:20140'N'NI15:M(I,2)M(I,1):M(I,1)M(I,2)S:I'NZN53ZN57SS'NP$Z$(ZN51)" "(S)" ":T(P$)1"ADD":Z$(2)"SUBTRACT":Z$(3)"MULTIPLY BY":Z$(4)"DIVIDE BY"T&4NZL1:ZH10:SR(S)&>NZP5:300:I15:M(I,1)ZR(I):I:ZN53ZN5720060&HNZH6:SR(S):F0:I15:M(I,1)M(I,1)3:M(I,1)SF1:I5&RNI:FF0:20030'\NZN5120070,20070,20100,KI16:QU$;:J12:"!";:M(I,J)019250@%(K" ";:19260c%2K3((M(I,J))));M(I,J);" ";%DZL1:ZH3(M2):XRZR(I)::I12:M(I,0)ZR(I2)::{/DF$"+":I13:J13:M(J,I)ZR(I)ZR(J3)::M(0,I)ZR(I)::I13:M(I,0)ZR(I3)::/ DF$"X":I13:J13:M(J,I)ZR(I)ZR(J3)::M(0,I)ZR(I)::I13:M(I,0)ZR(I3)::/DZL1:ZH6(2(M2)):300:2000DZP2.CZH(100T1)j.CZP2:300:ZR(3)ZR(1)T2:ZR(4)ZR(2)T2:ZR(1)Q1:ZR(2)Q2:17400:ZP2(ZN92):17430p.C.CF$"-":I12:J12:M(I,J)ZR(I2)ZR(J)::M(0,I)ZR(I)::I12:M(I,0)ZR(I2)::"/CF$"/":I12:J12:M(I,J)ZR(I2)ZR(J)::M(0,I))T1:ZR(1)Q1:ZR(2)Q2:17400:ZP2(ZN82)(ZN102):17430x-CM2:ZL2:ZH20:Q1R(S):Q2R(S):T1Q1:T2Q2:Q1Q217310-CR1T1T2(T1T2):R1017340-CT1T2:T2R1:17320-C(Q1Q2)T24917310.CT1(Q1Q2)T2:T2T110:T21ZH(100T2):17370 DETERMINE RESULTANT EQUATIONS)k,lCM2:ZL1(13(ZN100)):ZH12:Q1R(S):Q2R(S):T1Q1:T2Q2:Q1Q217260,vCR1T1T2(T1T2):R1017290,CT1T2:T2R1:17270,C(Q1Q2)T24917260:-CT1(Q1Q2)T2:ZH(100T1):ZP2:300:ZR(3)ZR(1)T1:ZR(4)ZR(2:300:I12:J12:ZR(I2)ZR(J)F1?+DCJ:I:FF0:17210+NCI14:ZR(I)(ZR(I))10:ZR(I)(ZR(I)10)10::17390:ZP2(ZN90):17430+XCM2:ZL20(80(ZN100)):ZH(ZL):ZP4:300:17390:ZP2(ZN100):17430,bCDIVISION(USES LCM OF FACTORS TOB:Fİ17420:ZP2(2(ZN96)(ZN98)):17430<*BF0:17130M*CSUBTRACTIONU*CM2*CM2:ZL1:ZH10(30(ZN80)):ZP4:300:I12:J12:ZR(I2)ZR(J)F1*&CJ:I:FF0:17180*0C17390:ZP2(ZN80):17430'+:CM2:ZL10:ZH100(300(ZN80)):ZP4ǠԠӱč² àӱ² àԲˠԠ΢ӢŠ٬Ӣ΢Ǣ¶ԵԴԴ· àĠŠ· àĠŠƠ àĠŠƠ¶ àĠŠ¶ àĠŠƠ¶ àĠŠ· àĠŠƠǠ±± ٠Ҡ¶ àĠŠƠ²ǹìĬӱͲDzììⶠàĠŠƠ7:ZN$(I);:(16):ZR(I):::"MAKE A "A$(ZT24)" TO SHOW THIS INFORMATION.":AW$"NO ANSWER":1050040 +L:4+S$(Y)(S$(Y),X1)A$(S$(Y),X1):L$,LAST PROGRAM BLOCK.,A$(1)"TALLY CHART":A$(2)"BAR GRAPH":A$(3)"PICTOGRAPH":A$(4)"CIRCLE GRAPH":A$(5)"LINE GRAPH"8,ZP3:500:ZH9:ZL1:300bB,:"HERE ARE THE NUMBER OF "P1$"."::I13:10:11200:IN+I2015:3((I)));I" !";S$(I):J14:" !"S$(IJ):x+:" 0 !"S$(0):5:ZC$"-":ZP50:100+10:" M T W TH F"++A$".":X9X2X1:Y9Y2Y1+L110:XX1L:YY1(Y9L10.1)+112f+S$(20):ROUTINETOPLOTAGRAPHgp+I020:S$(I)" "mz++ZP5:ZL1:ZH5:300:I15:ZR(I)(ZR(I)1)5:I+YZR(1):S$(Y)(S$(Y),5)"."(S$(Y),7) +I14:Y1ZR(I):Y2ZR(I1):X1(I1)106:X2X1::I15:7:"(";(64I)") "(I1)5:::AW$AW$(65ZR(N)5)", "[>+NR(S):NF11070H+:"HOW MANY MORE STUDENTS WERE ABSENT ON "A$(F)" THAN ON "A$(N)"?":PZR(F)ZR(N)R+:I15:7:"("(64I)") "(I1)5:::AW$AW$(64(P5)1)\+10500(64I)") "A$(I)::8 +Z0:I15:ZR(I)ZZZR(I):FIP+I:AW$(64F)", " +ZH5:NR(S)::"WHICH DAY HAD "ZR(N)" ABSENCES?":::I15:7:"("(64I)") "A$(I)::*+AW$AW$(64N)", "D4+NR(S):"HOW MANY STUDENTS WERE ABSENT ON "A$(N)"?"*:*10200*3* ANOTHER PROGRAM BLOCK*A$(1)"MONDAY":A$(2)"TUESDAY":A$(3)"WEDNESDAY":A$(4)"THURSDAY":A$(5)"FRIDAY"*:16:"GRAPH OF ABSENCES PER DAY":*11110*:+"WHICH DAY HAD THE MOST ABSENCES?":::I15:7:"("*500:ZP31:100*I13:"! !";:K1M(I):(11(K1)5):"\O/ ";:K:31:"!":"!"ZN$(I);:(10):"!";:K1M(I):(11(K1)5):"/ \ ";:K:31:"!"*100:I*:" \O/":"EACH / \ = ";:ZH9:MUR(S):MU;" "P3$"."*M$"MOST"ΠèήũΠάҠǍӍȠŬŠǍӍǠجӠԬ΍Ӡ΍Π٬ҍӠ΍ĠάǍӍҠӷĠǍŠԬǍӢĠάǍӍŠҬǠǍӠ΍ΠԬϠˠǠӠҬϠǍǠǍԠ΍ĠҠϠà٬Ӡ̠ǍӠҠ΍Š٬ŠǍԍΠĬŠǍԍŠӬŠǍΠŬӠөˠϭϠǍӍҬŠǍΠÍΠ٬ϠǍ΍ŠĬȠǍԍ̠ӍՠƠάӍΠӍŠԬɍӍ͠ɬŠǍԠ΍ˠҬǠΠԍӠ΍Πɬ̠ǍԠΩȠ̬ĠǍҬˍӠΠÍͮ٬ӍΠ΍ҠɬӍΠͩ΍ˠͬϠӍӠΠΠÍӠάӍΠӍŠάÍĠɬȨũҠڬӨȠө ΠÍĠάӍΠӍԠάŠ͍ӠΠ΍ĠǬԍŠؠӍΠΠӍŠάӍ ΠÍŠŬӨĭĩΠÍ٠ŬӨԭĩΠÍӠȬӨשΠÍŠӬӍΠΠӍĠӠ٠̠ŬӍΠӍ̠άōڮΠΠÍĠŬ΍ ӍϧҬӍΠӍŠάӍԵ٠٠ԠԵԵĠDzŬìŢDzâDz¬¬ŢDzìĬĢDzϠҢDzϠҢDzϠҢDzϠҢDzϠҢDZŬìŬĬ¢DZĬììŢDZĢDZ¬¬ŢDZ쬬ŬâDZì¬ì¬¢DZìì¬DZìĬâDZ¬ììâDz쬬ĢER":20:"PLEASE ENTER A CORRECT OBJECTIVE TITLE.":70pL20:"PLEASE ENTER AN OBJECTIVE 1-";MX(H);".":70~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"TE TEMP"OVPTI$&TI1NU12^R400IhZ((1)(NU1))1YrRN%(Z)360{|PT%(Z):PO%(Z):RN%(Z)1:500PT%(I):PO%(I)I:0:0:D$"CLOSE"c:12:"PLEASE PREPARE YOUR PRINTER.":70::12:"PRINTING THE TEST...":D$"RUN DRIVORKSHEET":70,NU112001::3:"WOULD YOU LIKE A RANDOM"::"PROBLEM ORDER (Y OR N)? ";A$:A$(A$,1):A$"N"A$"Y"3056A$"Y"R1@:12:11:"ONE MOMENT PLEASE"ED$"OPEN TEMP":D$"CLOSE":D$"DELETE TEMP"JD$"OPEN TEMP":D$"WRIT22:968:"IS THIS ENTRY CORRECT (Y OR N)? ";A$:A$(A$,1):A$"Y"A$"N"253dA$"N"180IAB:J1P:PT%(NU)H:PO%(NU)I:NUNU1:NU101290J:I:175 "::"ONLY 100 PROBLEMS ARE ALLOWED. THESE"::"WILL NOW BE USED TO CREATE A W(A$)((A$))A$İ1150:245.P((A$))(BA)PNU100Ģ20:"THESE PROBLEMS WOULD PUT YOU 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"."1:I(N$):238)I1I(N$):F1:238NA((N$,I1)):(N$)IBA:235aB((N$,I1))qF0:I(N$)I:F1İ1100:180F2A(N$):BAA1ABAMX(H)BMX(H)İ1100:1801:12:958:" NUMBER OF PROBLEMS? ";A$:(((A$)))A$"END"300% (A$)3İ1000:180T F0:MN$(A$,2):I14:MN$MN$(I)FI:I9[ In Fİ1000:180z HF:F0 N$(A$,3):(N$)3F2:239 I1(N$):T$(N$,I,1):T$"-"((T$)46(T$)58)F2:238((T$)47(T$)57)T$"-"F:70:129v :9:"CREATE YOUR WORKSHEET."::" TYPE 'END' WHEN ALL OBJECTIVES"::" HAVE BEEN ENTERED." 34,5 MAIN INPUT ROUTINE INPUT LIMIT ARBITRARILY SET AT 100 OBJECTIVES. :8:" OBJECTIVE CODE? ";A$ ILL THEN BE ASKED"k :"FOR THE NUMBER OF PROBLEMS OF THAT TYPE"::"THAT YOU WOULD LIKE GENERATED.":70z V((A$)) :2:"WHAT TITLE WOULD YOU LIKE FOR THIS TEST?"::TI$:(TI$)40Ģ10:"PLEASE KEEP YOUR TITLE TO LESS THAN 40"::"CHARACTERS.".": }1:6:958:"HOW MANY VERSIONS WOULD YOU LIKE? ";A$:((A$))1((A$))10Ģ20:"PLEASE ENTER A NUMBER BETWEEN 1 AND 10.":70:125 ~::"SELECT THE OBJECTIVE CODES FROM YOUR"::"SUPPORT MANUAL. ENTER ONE OBJECTIVE"::"CODE AT A TIME. YOU W:"CREATED BY THE CGMM TEST GENERATOR."4 <70:100 F24:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:16368,0:16384,128:1:16368,0: d MAIN ROUTINE x::"MULTIPLE VERSIONS OF A TEST MADE UP OF"::"A SET OF OBJECTIVES CAN BE GENERATED  "MAXFILES3"%D$(13)(4)EPT%(100),PO%(100),RN%(100)aI14:MN$(I),MX(I):IPT,64,PB,102,PG,29,PS,11NU1:(2:18:"CGMM"' 2:"THIS PROGRAM ENABLES THE USER TO ENTER "::"THE OBJECTIVES FOR A WORKSHEET TO BE":       =( D B DL100:IB.D::I1CT:(64I)" = ( ) ";:CC1:C3C0::H.Dl.D::"MYSTERY NUMBER = ( )".DD$"WRITE ANSW":I1CT:(64I);" = "A(I):I:"MYSTERY NUMBER = "A(I):1:D$:L+BtH6L/$< B3$$<(hhL+B$( B<ɬ B<ȑ($,BCc=,BC` B$ <ɬ B(ɬޢd`pT<ɀl Bȱ( ɯ$<ɕQ(() .<%<$<($ɠ<ɯ<ɍ,ɠ $( BL+B B$( Bƈ( B$к Bȱ( ɯ$=Gì{DŬDԮBBfC (!"# X% " Ɉ $0$(ɛΤ$!< CA AHAH`$(< 轪AP $<($У=,`BpP=$A($AHAH`I i8`( B=ȱ( B====)=8`=)8` @LB< "${A G A G A G A G A G A G !"# " XA G% (!$ " LˮîԮˮϮɯϠҪBBˬDFFGŬDͬFԮGGGŮ( ) ";:CC1:C3C0::$2DH2D::"MYSTERY NUMBER = ( )"2DD$"WRITE ANSW":I1CT:(64I);" = "A(I):I:"MYSTERY NUMBER = "A(I):1:D$:(!"# X HxH )h xH ) )и%;:M(I,0)0ĺ" ";(65CT);:CTCT1:17550K1D4S((M(I,0))));M(I,0);}1D9:"!!";:J1M:M(I,J)0ĺ" MYS #";:175701D(4((0)15)(M(I,J)(M(I,J))))S((M(I,J))));M(I,J);1D(J109):"!";:J::17490:100:I2D::I1CT:(64I)" = ZPM109:100:17490:17500N0RD"!";:9:"!!";:Q1M:(Q109):"!";:Q::0\D"! "F$;:9:"!!";:I1M:M(0,I)0ĺ4);(65CT);:CTCT1:175200fD4((0)15)S((M(0,I))));M(0,I);0pD(I109):"!";:I::17490:100:100,1zDI1M:17490:"!"):A(2)M(Y,0):M(0,X)0:M(Y,0)0:A(3)M(Y,X):M(Y,X)0:17480/ DI1ZP:ZR(I)(3(M2))A(I)M(ZR(I)(2(M3)),0):M(ZR(I)(2(M3)),0)0:17460/*DA(I)M(0,ZR(I)):M(0,ZR(I))0/4D/>DZL1:ZH3(M2):XR(S):YR(S):A(ZP1)M(X,Y):M(X,Y)00HDZC$"-":13:J13:M(J,I)ZR(I)ZR(J3)::M(0,I)ZR(I)::I13:M(I,0)ZR(I3)::. DF$"X":I13:J13:M(J,I)ZR(I)ZR(J3)::M(0,I)ZR(I)::I13:M(I,0)ZR(I3)::.DZL1:ZH6(2(M2)):300:200.DZP217440;/DZH2(M2):XR(S):YR(S):A(1)M(0,XR(4)ZR(2)T2:ZR(1)Q1:ZR(2)Q2:17400:ZP2(ZN92):17430@-C-CF$"-":I12:J12:M(I,J)ZR(I2)ZR(J)::M(0,I)ZR(I)::I12:M(I,0)ZR(I2)::-CF$"/":I12:J12:M(I,J)ZR(I2)ZR(J)::M(0,I)ZR(I)::I12:M(I,0)ZR(I2)::K.DF$"+":I02):17430H,CM2:ZL2:ZH20:Q1R(S):Q2R(S):T1Q1:T2Q2:Q1Q217310j,CR1T1T2(T1T2):R1017340,CT1T2:T2R1:17320,C(Q1Q2)T24917310,CT1(Q1Q2)T2:T2T110:T21ZH(100T2):17370,CZH(100T1):-CZP2:300:ZR(3)ZR(1)T2:Z(ZN100)):ZH12:Q1R(S):Q2R(S):T1Q1:T2Q2:Q1Q217260]+vCR1T1T2(T1T2):R1017290t+CT1T2:T2R1:17270+C(Q1Q2)T24917260 ,CT1(Q1Q2)T2:ZH(100T1):ZP2:300:ZR(3)ZR(1)T1:ZR(4)ZR(2)T1:ZR(1)Q1:ZR(2)Q2:17400:ZP2(ZN82)(ZN1I:FF0:17210^*NCI14:ZR(I)(ZR(I))10:ZR(I)(ZR(I)10)10::17390:ZP2(ZN90):17430*XCM2:ZL20(80(ZN100)):ZH(ZL):ZP4:300:17390:ZP2(ZN100):17430*bCDIVISION(USES LCM OF FACTORS TO DETERMINE RESULTANT EQUATIONS);+lCM2:ZL1(13BF0:17130)CSUBTRACTION%)CM2q)CM2:ZL1:ZH10(30(ZN80)):ZP4:300:I12:J12:ZR(I2)ZR(J)F1)&CJ:I:FF0:17180)0C17390:ZP2(ZN80):17430):CM2:ZL10:ZH100(300(ZN80)):ZP4:300:I12:J12:ZR(I2)ZR(J)F1*DCJ:٠Ҡ¹ ٠Ҡ¹ ٠Ҡ¹ ٠Ҡ± à٠Ҡ± à٠Ҡ¹ àĠ٠Ҡ¹ àĠŠ٠Ҡ¹ àĠŠ٠Ҡ¹ àĠŠ1:D$:&hBPB73-102&rBM3{&|BIZN:JP1(I75)(I78)(I80)(I82)(I85)(I88)(I90)(I92)(I95)(I98)(I100)&BJP17050,17110,17180,17260,17060,17120,17210,17310,17070,17130,17240,17260&BADDITION$'BZL1:ZH10(ZN73)19:ZP6:300:1/%9A$A$"MAGIC SQUARE":NP3A$A$":":14660Z%&9A$A$", THE ":MFA$A$"SUM ":14650o%09A$A$"PRODUCT "%:9A$A$"IS "(SM)"."%D9ZQ62:700::I1NP:(64I);" = ( ) ";:I3(I3)ĺ &N9::D$"WRITE ANSW":I1NP:(64I);" = "AN(I)::"!";:J1N:X1NP:MM(I,J)9990MM(I,J)9997ĺ" "(64(MM(I,J)9990));:XNP:FX1l$8X:FXFX0:14590$85S(MM(I,J))2);MM(I,J);$836,J10:"!";:J::14540:Z$:I$9:A$"IN THIS ":MFA$A$"ADDITION ":14620$9A$A$"MULTIPLICATION "$#k8I16:M(ZR(I))AN(I):I:14435*#r85#|8I1N@#8J1N[#8MM(I,J)M(J(N(I1)))b#8Ji#8I#8Z$"-------------------------------":N4Z$Z$"----------"#8Z$#814550#8"!";:Q1N:36,Q10:"!";:Q::#8I1N#814540U$81))1:X2((M(2)Z1)(M(5)Z1)(M(8)Z1))1:X3((M(3)Z1)(M(6)Z1)(M(9)Z1))1:Y1((M(1)Z1)(M(2)Z1)(M(3)Z1))1:Y2((M(4)Z1)(M(5)Z1)(M(6)Z1))1:Y3((M(7)Z1)(M(8)Z1)(M(9)Z1))1"h8Z2((X11)(X21)(X31)(Y11)(Y21)(Y31))0#i8Z214450ZR(Q4):I!^8PRINT IT8!_8MDāI1NN:M(I)M(I)10:I^!`8SMM(1)M(2)M(3):N4SMSMM(4)y!a8MFSMM(1)M(2)M(3)!c8ZL1:ZHN2:ZPNP:300:I1NP:AN(I)M(ZR(I)):M(ZR(I))9990I:I!e8N3NP614450"g8Z19990:X1((M(1)Z1)(M(4)Z1)(M(7)Z3M*"14171F \7I19:Q1,Q2,Q3,Q4:M(I)ZR(Q1)ZR(Q2)ZR(Q3)ZR(Q4):I\ _7SMM(1)M(2)M(3)g d714430 x73X3 AND 4X4 ADD MAG SQR 7ZH25:ZP8:300 7:Q$"3M*":N4Q$"4M+" 7A$:A$Q$14230 !7I1NN:Q1,Q2,Q3,Q4:M(I)ZR(Q1)ZR(Q2)ZR(Q3)TION 27ZH7<7ZP6 F7300<K7I16:ZR(I)0F1:I6QL7I:FF0:14130P73M*,1,1,3,4,2,2,3,3,1,2,4,4,2,2,4,4,1,2,3,4,1,1,3,3,1,2,3,3,1,1,4,4,2,2,3,4R74M+,1,5,2,6,3,7,4,8,2,8,3,5,4,6,1,7,3,7,4,8,1,5,2,6,4,6,1,7,2,8,3,5Z7 [7A$:A$"0,-25,1,4,5,0,0,-25,1,4,6Z6IZN:ID1(I45)(I48)(I51)(I54)(I57)((I60)(I60))`6z6A$:A$"PB43"140606I1ID:MD,MN,ZL,MF,N,NP:6NPNP((ZN1)3((ZN1)3))17 7MF142107 3X3 MAG.SQR. SUB(7 MULTIPLICAI):I:6 START...$6M(16)6"PB43",0,0,0,1,3,0,0,0,1,0,3,0,1,1,0,1,3,0,1,1,1,0,3,0,0,0,-25,1,3,0,0,0,-10,0,3,0,0,0,0,1,3,6,1,1,0,1,3,6,0,0,-25,1,3,6,0,0,1,0,3,6,1,1,1,0,3,660,0,-10,0,3,6,0,0,0,1,4,5,0,0,0,1,4,6,1,1,0,1,4,5,1,1,0,1,4,6,0,(M(3)X)(M(5)X)(M(9)X)E]4Z3(M(6)X)(M(7)X)(M(8)X)(M(9)X)^4Z4(M(2)M(4)1998)(M(3)M(5)1998)(M(7)M(8)1998)_4(Z1Z0Z2Z0Z3Z0)Z4013410`4I1ZP:M(ZR(I))A(I):Ia413390b4I19:M$(I)(M(I))l4:I1MA:M$(F(I))(64 ( ) ";::L:4D$"WRITE ANSW":I1MA:(64I);" = ";A(I)::1:D$:`D4CREATE ANSWERSyN4ZPMA:ZL1:ZH9:300X4I1ZP:A(I)M(ZR(I)):M(ZR(I))999:F(I)ZR(I):IY4Z0MA3Z4X9991(M(1)X)(M(2)X)(M(4)X)(M(6)X)\4Z2(M(1)X)(5) 3;35:M$(6);:15:M$(7);:25:M$(8);:35:M$(9)f3:A$"MULTIPLICATION":KA$"ADDITION"4:"IN THIS ";A$;" MAGIC TRIANGLE";4MA3ĺ":":133604",":A$"PRODUCT":KA$"SUM"&4"THE ";A$;" IS ";(S)"."04:I1MA:(64I);" =A$"128"13180?3"128",1,2,6,8,4,7,5,7,3,8,3,4,1,8,2,7,5,6}3I19:A,B:M(I)ZR(A)ZR(B):I:MDāJ19:M(J)M(J)10:3SM(1)M(2)M(4)M(6)31338033(20):M$(1)33(15):M$(2);:(25):M$(3)33(10):M$(4);:(30):M$:M(7)ZR(7):M(8)R:M(9)ZR(6)AB3F(ZL0):I19:M(I)0F0:I9QC3I:F13060vE3MDāI19:M(I)M(I)10::SS10J313220T3MULTIPLICATION^3ZP8:600h3FZ0:FM(ZL0):I18:ZR(I)0FZ1m3ZR(I)0FM0r3I:FZFM13150w3|3A$:((ZN24)3):MAMA(MA0)3-2KT2(T2)<2K013140J3ZP7:600h"3SZR(1)ZR(2)ZR(3)ZR(4),3QS(ZR(1)ZR(5)ZR(6)):MNQ11306063RS(ZR(4)ZR(6)ZR(7)):MNR113060@3M(1)ZR(1):M(2)ZR(2):M(3)ZR(5):M(4)ZR(3):M(5)Q:M(6)ZR(4)D$;"WRITE ANSW"0I1MX40(64I);" = ";A(I);0IC01K0D$Q0^2PB25-42s2T((ZN25)3)12"PB25",0,99,0,0,1,12,0,0,0,99,1,0,1,13,1,0,-99,99,0,1,-10,10,0,122A$:A$"PB25"130272I1T:ZL,ZH,MD,MN::MA(ZN24)3(35):M$(3)::=p0A$" ADDITION ":MFA$" MULTIPLICATION "a0"IN THIS";A$;"MAGIC TRIANGLE";y0MX3ĺ":"::124310","0A$"SUM":MFA$"PRODUCT"0"THE ";A$;" IS ";SM;"."00I1MX0(64I);" = ( ) ";0I0::011:ZZZZ6:IZZ6.5:I<0ZZ3.5MF1:ZL1:ZH10:ZZZZ3L 0MX(ZZ.1)W012010d 0 PRINTt*0CT0:I1640M$(I)(M(I))>0IC0I1MX:M$(F(I))(64I):IH0(21):M$(1):R014:M$(6);:(28):M$(5):\0(7):M$(2);:(21):M$(4);:M(2)X)(M(4)X)(M(3)X);/Z2(M(3)X)(M(5)X)(M(1)X)]/Z3(M(1)X)(M(6)X)(M(2)X)v/Z1Z0Z2Z0Z3Z0ı/I1MX:M(ZR(I))A(I):/12170/PB#7-PB#24/41/MD(ZN12ZN19)/MN(ZN18ZN25)/ZZZN:MF0:ZL0:ZH50/IM(I)10X/I%b/SMM(2)M(3)M(4)?l/MFSMM(2)M(3)M(4)Nq/MN12160iv/F1:I16:M(I)0F0y{/I:F12010/ZL1:ZH6:ZPMX/300/I1MX/A(I)M(ZR(I))/M(ZR(I))999:F(I)ZR(I)/I/MX1.5ı/X999:Z0MX2/Z1(I)((1).5):/MF12090N/M(1)R(1)R(3):M(2)R(1)R(4):M(3)R(1)R(5)&/M(4)R(2)R(3):M(5)R(2)R(4):M(6)R(2)R(5)0/12110:/M(1)R(1)R(3):M(2)R(1)R(4):M(3)R(1)R(5)D/M(4)R(2)R(3):M(5)R(2)R(4):M(6)R(2)R(5)N/I16:MDM(I)8:CR(S):I311:", "M(I);(C);:CC1:I:o@+D$"WRITE ANSW":Q$;:CC6:I611:M(I);(C);:I1ĺ", ";B+CC1:I:Q$:1:D$:.PB7-24.12240.CREATE 3X3X3 TRIANGLE.I15:R(I)R(1):.R(1)R(2)12020.MNāI15:R(I)R(.,+D$"WRITE ANSW":Q$;:I15:M(I)", ";:IE.+M(6);Q$:1:D$:4+ZL65:ZH90:CR(S):T1((1).5):I46:", ";:J1D(6I)T:(C);:J:I:6+D$"WRITE ANSW":Q$;:I16:J1D(6I)T:(C);:J:I6ĺ", ";8+I:Q$:1:D$:.>+ZL68:ZH8^)PYĭC%(N,P1)0FF1:)h)964,1:7* PB4,5,6Y+:"COMPLETE THIS PATTERN.":f+Q$(34) +ZL1:ZH3:DR(S):ZHD610:ZLD6:SR(S)+I05:M(I1)S(DI)::"_____, _____, _____";:ZN511060 +ZN611070*+I46:", "M(I);:I:,P1)1:F$F$(PXN)0 )CTCT1:CTXY10520; )10360y )NQ(X):BQ(X):MZ%(N,1)MZ%(N,1)2:MZ%(B,Y)MZ%(B,Y)8: ")NXĭC%(N1,P)0FF1: ,)961,1: 6)P1ĭC%(N,P1)0FF1: @)962,1: J)N1ĭC%(N1,P)0FF1: T)963,1:460,10470,10480,10490Y (MZ%(N1,P)MZ%(N1,P)4:C%(N1,P)1:F$F$((P1)XN1):10500 (MZ%(N,P1)MZ%(N,P1)8:C%(N,P1)1:F$F$((P2)XN):10500 (MZ%(N1,P)MZ%(N1,P)1:C%(N1,P)1:F$F$((P1)XN1):10500 (MZ%(N,P1)MZ%(N,P1)2:C%(N1:N0NX:PP1( (960,MZ%(N,P):941Z (ZB14:B(ZB)0ĴZB10530,10550,10570,10590 (ZB:F0C%(N,P)2:F$(F$,PL1)(F$,PL1):10360 (RQ(F):ZB1 (B(ZB)0RR1:R010440 (ZBZB1:10420 (MZ%(N,P)MZ%(N,P)(2(ZB1)) (ZB103(B1)1):"END"? Z(D$"WRITE ANSW":"NO ANSWER.":"-1":D$:U d(C%(X,Y),MZ%(X,Y)| n(B(S)(960S):Q(S)((1)S)1 s(PL1:NQ(X):PQ(Y):F$":"((P1)XN):C%(N,P)1:CT1::10380 x(F0:PLQ((F$)1)1:Z((F$,PL,1)):P(ZX):NZ(PX):PPY:Z1$"I":Z$":":I1X:960,MZ%(I,J):941:B(2)Z$Z$" :":10250T (Z$Z$"--:"t (B(1)Z1$Z1$" ":10270 (Z1$Z1$" I" (I:Z$:Z1$:J ((Z$":" 2(I1X:960,MZ%(I,Y):941:B(4)Z$Z$" :":10310 <(Z$Z$"--:" F(I:Z$ P(:(. ' PB'S;'IZN:JP1(I3)(I6)(I24)(I42)(I72)g$'JP10200,11000,12000,13000,14000,17000m.'z' PB1-3'X(ZN1)3(ZN2)7(ZN3)15:Y(ZN1)5(ZN2)7(ZN3)15:10340':"TRAVEL THIS MAZE."::((N1)31):"START":D 'J1Ҡ¹ ٠Ҡ¹ ٠Ҡ¹ ٠Ҡ¹ àĠ٠Ҡ¹ àĠҶ¹ àĠ٠Ҡ¹ àĠŠ٠Ҡ¹ àĠŠ٠Ҡ¹ àĠŠ٠¹ ٠Ҡ¹ ٠Ҡ¹ ٠Ҡ¹ àĠ٠Ҡ¹ àĠ٠Ҡ¹ ٠Ҡ¹ ٠Ҡ¹ à٠Ҡ¹ à٠Ҡ¹ à٠Ҡ¸ ٠Ҡ¹ à٠Ҡ¹ à٠Ҡ¹ à٠Ҡ¹ ٠ҠҠ¸ àĠŠ٠Ҡ¸ àĠŠ٠Ҡ¸ ٠Ҡ¸ ٠Ҡ¸ àĠ٠Ҡ¸ àĠ٠Ҡ¸ àĠ٠Ҡ¸ àĠŠٱ٠Ҡ¸ àĠŠ٠Ҡ¸ ٠Ҡ¸ ٠Ҡ¸ ٠ҠàĠ٠Ҡ¸ àĠ٠Ҡ¸ àĠŠ٠Ҡ¸ àĠŠ¸ ٠Ҡ¸ ٠Ҡ¸ ٠Ҡ¸ àĠ٠Ҡ¸ Ҡ¸ ٠Ҡ¸ ٠Ҡ¸ à٠Ҡ¸ à٠Ҡ¸ à٠Ҡ ٠Ҡ· ٠Ҡ¸ à٠Ҡ¸ à٠Ҡ¸ à٠Ҡ¸ ٠Ҡ· àĠŠ٠Ҡ· àĠŠ٠Ҡ· àĠŠ٠Ҡ· ٠Ҡ·٠Ҡ· ٠Ҡ· ٠Ҡ· àĠ٠Ҡ· àĠ٠Ҡ· àĠ àĠ٠Ҡ· àĠŠ٠Ҡ· àĠŠ٠Ҡ· àĠŠ٠Ҡ·¨· ٠Ҡ· ٠Ҡ· ٠Ҡ· àĠ٠Ҡ· àĠ٠Ҡ·&hBPB73-102&rBM3s&|BIZN:JP1(I75)(I78)(I80)(I82)(I85)(I88)(I90)(I92)(I95)(I98)(I100)&BJP17050,17110,17180,17260,17060,17120,17210,17310,17070,17130,17240,17260&BADDITION'BZL1:ZH10(ZN73)19:ZP6:300:17410:ZP$"MAGIC SQUARE":NP3A$A$":":14660R%&9A$A$", THE ":MFA$A$"SUM ":14650g%09A$A$"PRODUCT "%:9A$A$"IS "(SM)"."%D9ZQ62:700::I1NP:(64I);" = ( ) ";:I3(I3)ĺ&N9::D$"WRITE ANSW":I1NP:(64I);" = "AN(I)::1:D$:1N:X1NP:MM(I,J)9990MM(I,J)9997ĺ" "(64(MM(I,J)9990));:XNP:FX1d$8X:FXFX0:14590$85S(MM(I,J))2);MM(I,J);$836,J10:"!";:J::14540:Z$:I$9:A$"IN THIS ":MFA$A$"ADDITION ":14620$9A$A$"MULTIPLICATION "'%9A$AM(ZR(I)):M(ZR(I))9990I:I"#r8-#|8I1N8#8J1NS#8MM(I,J)M(J(N(I1)))Z#8Ja#8I#8Z$"-------------------------------":N4Z$Z$"----------"#8Z$#814550#8"!";:Q1N:36,Q10:"!";:Q::#8I1N#814540M$8"!";:JM(1)M(2)M(3)V"c8N3NP6AX1:I282:AN(AX)M(I):M(I)9990AX:AXAX1:I:14437a"d814440"e8ZL2:ZH5:X1(R(S)2)1:X2(R(S)2)1"f8X1X214437"g8AN(5)M(X1):M(X1)9995:AN(6)M(X2):M(X2)9996:14450#h8ZL1:ZHN2:ZPNP:300:I1NP:AN(I)ZR(7)!7M(9)ZR(3)ZR(7):M(10)ZR(4)ZR(8):M(11)ZR(1)ZR(5):M(12)ZR(2)ZR(6):M(13)ZR(4)ZR(6):M(14)ZR(1)ZR(7):M(15)ZR(2)ZR(8):M(16)ZR(3)ZR(5)!^8 PRINT IT....!_8MDāI1NN:M(I)M(I)10:I!`8SMM(1)M(2)M(3):N4SMSMM(4)"a8MFSMZR(3)ZR(6):M(4)ZR(2)ZR(6):M(5)ZR(3)ZR(4):M(6)ZR(1)ZR(5):M(7)ZR(3)ZR(5):M(8)ZR(1)ZR(6):M(9)ZR(2)ZR(4):14430!7M(1)ZR(1)ZR(5):M(2)ZR(2)ZR(6):M(3)ZR(3)ZR(7):M(4)ZR(4)ZR(8):M(5)ZR(2)ZR(8):M(6)ZR(3)ZR(5):M(7)ZR(4)ZR(6):M(8)ZR(1)ZR(6):M(5)ZR(3)ZR(4):M(6)ZR(1)ZR(5):M(7)ZR(3)ZR(5):M(8)ZR(1)ZR(6):M(9)ZR(2)ZR(4)q_7SMM(1)M(2)M(3)|d714430n7 4X4 MAG. SQR.x7 3X3 AND 4X4 ADD. MAG.SQR.7ZH50:ZP8:3007N414240y 7M(1)ZR(1)ZR(4):M(2)ZR(2)ZR(5):M(3)%6NPNP((ZN1)3((ZN1)3))1,7 :7MF14210S7 3X3 MAG.SQR. SUBk(7 MULTIPLICATION u27ZH10~<7ZP6F7300K7I16:ZR(I)0F1:I6L7I:FF0:14130P7[Z7M(1)ZR(1)ZR(4):M(2)ZR(2)ZR(5):M(3)ZR(3)ZR(6):M(4)ZR(2)50,1,3,6,0,0,1,0,3,6,1,1,1,0,3,660,0,-10,0,3,6,0,0,0,1,4,5,0,0,0,1,4,6,1,1,0,1,4,5,1,1,0,1,4,6,0,0,-50,1,4,5,0,0,-50,1,4,66IZN:ID1(I45)(I48)(I51)(I54)(I57)((I60)(I60))66A$:A$"PB43"140606I1ID:MD,MN,ZL,MF,N,NP:Z013410&`4I1ZP:M(ZR(I))A(I):I1a413390Jb4I19:M$(I)(M(I))nl4:I1MA:M$(F(I))(64I):I:6 START...6M(16) 6"PB43",0,0,0,1,3,0,0,0,1,0,3,0,1,1,0,1,3,0,1,1,1,0,3,0,0,0,-50,1,3,0,0,0,-10,0,3,0,0,0,0,1,3,6,1,1,0,1,3,6,0,0,-ϠˠǠҬӠ΢Ԡ΢ϠǢ          Ǡ͠٠ҠQ(() .<%<$<($ɠ<ɯ<ɍ,ɠ $( BL+B B$( Bƈ( B$к Bȱ( ɯ$==( D B DL100:IB.D::I1CT:(64I)" = ( ) ";:CC1:C3C0::H.Dl.D::"MYSTERY NUMBER = ( )".DD$"WRITE ($У=,`BpP=$A($AHAH`I i8`( B=ȱ( B====)=8`=)8` @LB<ɍL+BtH6L/$< B3$$<(hhL+B$( B<ɬ B<ȑ($,BCc=,BC` B$ <ɬ B(ɬޢd`pT<ɀl Bȱ( ɯ$<ɕîԮˮϮɯϠҪBBˬDFFGŬDͬFԮGGGŮGì{DŬDԮBBfC (!"# X% " Ɉ $0$(ɛΤ$!< CA AHAH`$(< 轪AP $<:1:D$:(!"# X HxH )h xH ) )и% "${A G A G A G A G A G A G !"# " XA G% (!$ " Lˮ(I,J)(M(I,J))))S((M(I,J))));M(I,J);P2D(J109):"!";:J::17490:100:I2D::I1CT:(64I)" = ( ) ";:CC1:C3C0::2D2D::"MYSTERY NUMBER = ( )" 3DD$"WRITE ANSW":I1CT:(64I);" = "A(I):I:"MYSTERY NUMBER = "A(I)520,1fD4((0)15)S((M(0,I))));M(0,I);V1pD(I109):"!";:I::17490:100:1001zDI1M:17490:"!";:M(I,0)0ĺ" ";(65CT);:CTCT1:175501D4S((M(I,0))));M(I,0);1D9:"!!";:J1M:M(I,J)0ĺ" MYS #";:17570(2D(4((0)15)(M*DA(I)M(0,ZR(I)):M(0,ZR(I))0$04D`0>DZL1:ZH3(M2):XR(S):YR(S):A(ZP1)M(X,Y):M(X,Y)00HDZC$"-":ZPM109:100:17490:175000RD"!";:9:"!!";:Q1M:(Q109):"!";:Q::1\D"! "F$;:9:"!!";:I1M:M(0,I)0ĺ4);(65CT);:CTCT1:17(I,0)ZR(I3)::3/DZL1:ZH6(2(M2)):300:200C/DZP217440/DZH2(M2):XR(S):YR(S):A(1)M(0,X):A(2)M(Y,0):M(0,X)0:M(Y,0)0:A(3)M(Y,X):M(Y,X)0:17480/ DI1ZP:ZR(I)(3(M2))A(I)M(ZR(I)(2(M3)),0):M(ZR(I)(2(M3)),0)0:1746002)::_.CF$"/":I12:J12:M(I,J)ZR(I2)ZR(J)::M(0,I)ZR(I)::I12:M(I,0)ZR(I2)::.DF$"+":I13:J13:M(J,I)ZR(I)ZR(J3)::M(0,I)ZR(I)::I13:M(I,0)ZR(I3)::/ DF$"X":I13:J13:M(J,I)ZR(I)ZR(J3)::M(0,I)ZR(I)::I13:M917310=-CT1(Q1Q2)T2:T2T110:T21ZH(100T2):17370N-CZH(100T1)-CZP2:300:ZR(3)ZR(1)T2:ZR(4)ZR(2)T2:ZR(1)Q1:ZR(2)Q2:17400:ZP2(ZN92):17430-C.CF$"-":I12:J12:M(I,J)ZR(I2)ZR(J)::M(0,I)ZR(I)::I12:M(I,0)ZR(I1(Q1Q2)T2:ZH(100T1):ZP2:300:ZR(3)ZR(1)T1:ZR(4)ZR(2)T1:ZR(1)Q1:ZR(2)Q2:17400:ZP2(ZN82)(ZN102):17430,CM2:ZL2:ZH20:Q1R(S):Q2R(S):T1Q1:T2Q2:Q1Q217310,CR1T1T2(T1T2):R1017340,CT1T2:T2R1:17320-C(Q1Q2)T24390:ZP2(ZN100):17430\+bCDIVISION(USES LCM OF FACTORS TO DETERMINE RESULTANT EQUATIONS)+lCM2:ZL1(13(ZN100)):ZH12:Q1R(S):Q2R(S):T1Q1:T2Q2:Q1Q217260+vCR1T1T2(T1T2):R1017290+CT1T2:T2R1:17270+C(Q1Q2)T24917260w,CT0:ZP2(ZN80):17430d*:CM2:ZL10:ZH100(300(ZN80)):ZP4:300:I12:J12:ZR(I2)ZR(J)F1|*DCJ:I:FF0:17210*NCI14:ZR(I)(ZR(I))10:ZR(I)(ZR(I)10)10::17390:ZP2(ZN90):17430+XCM2:ZL20(80(ZN100)):ZH(ZL):ZP4:300:17ǠŠӧӠ:700::I1NP:(64I);" = ( ) ";:I3(I3)ĺv&N9::D$"WRITE ANSW":I1NP:(64I);" = "AN(I)::1:D$:&hBPB73-102&rBM3&|BIZN:JP1(I75)(I78)(I80)(I82)(I85)(I88)(I90)(I92)(I95)(I98)(I100)8'BJP17050,17110,1716,J10:"!";:J::14540:Z$:IP%9:A$"IN THIS ":MFA$A$"ADDITION ":14620l%9A$A$"MULTIPLICATION "%9A$A$"MAGIC SQUARE":NP3A$A$":":14660%&9A$A$", THE ":MFA$A$"SUM ":14650%09A$A$"PRODUCT "%:9A$A$"IS "(SM)"."6&D9ZQ62N4Z$Z$"----------"$8Z$*$814550Q$8"!";:Q1N:36,Q10:"!";:Q::\$8I1Ng$814540$8"!";:J1N:X1NP:MM(I,J)9990MM(I,J)9997ĺ" "(64(MM(I,J)9990));:XNP:FX1$8X:FXFX0:14590$85S(MM(I,J))2);MM(I,J);%83ԶԶԶԶԶԵԵԵԴӍڍȍԴččٍz#???    ҠӠР נ Ġ  ر* ز1س ش Ҡ     1ϠԠҠӠ ͠ĠŠԱ ӠˮʰUTINE" ֈ2@ SEARCH SLOTS FOR AN INTERFACE _J CARDS: COMM=1,SERIAL=2,PAR=3,MALIBU=4TD$"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|CARD14MORY:uF$"PRINTER COMMANDS"?DuD$"OPEN"F$:D$"READ"F$:FT$_NuFT$"COM-CARD"FT1:35000XuFT$"DEFAULTS"FT2:40000buFT$"USER-SET"FT3lu249,FT:D$"CLOSE"F$vuCOMM CARDˆSP:SP10Ĺ802,82:818,82̈D$"BLOAD COMM CARD RO "GENERATE A TEST","LALA","THIS PROGRAM 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 ME;::" TO CONTINUE";CZ01:ZC(16384):Z(ZC141)(ZC160):Zb16368,0:1:868:23:: USER DATA. FIRST LINE FORMAT:DISKETTE#,LINE 1 NAME,LINE 2 NAME(BLANK IF UNNEEDED,NUMBER OF MENU ITEMS 123,"CGMM PROBLEM SOLVING","VOLUME 1",1GE: ";DN$:D2$""Ė13:D2$?\15:" DIRECT INQUIRIES TO:"f:13:"MECC PUBLICATIONS":13:"2520 BROADWAY DRIVE":13:"ST. PAUL, MN 55113":13:"(612) 638-0627"p900::SPACE-BAR ROUTINE24:7:16368,0"PRESS ";::"SPACE BAR"DL:DE$(I,J)""DE$(I,J)" "ĺ" "DE$(I,J)< J::I:900D*:[4SUPPORT BOOK INFO>IP$"":IS$"YES"IP$"INSTRUCTIONAL "H4:17(IP$""):"A MANUAL TO AID IN THE "IP$"USE":6:"OF THIS DISKETTE IS AVAILABLE FROM MECC."R11:" TITLS1CS7CS6CS:)DISPLAY LOGOKJ1300:(16384)128J300oJ:16368,0:1023,DN:16303,0uDESCRIPTIONS ::21(DN$)2:DN$:11:"PROGRAM DESCRIPTIONS":34,4:I1N:(37)21DLİ900: MN$(I)" -"+J1D900XEND OPTIONCb::10:1:"DO YOU WANT TO RUN ANOTHER"ulIN11:12:868:"DISKETTE? ";A$:A$(A$,1)vA$"N"ĉ::255::IN(A$"Y"):IN:11:8:"INSERT THE NEW DISKETTE."900:CS(P(P(999))1)16:SLOT # COGRAM(::12:"GETTING "MN$(A)"..."GPR$"YES"(249)0İ30000eCN$"YES"ĺD$"RUN"CN$(A)xD$"RUN"MN$(A)&NOT ENOUGH MEMORY010:"SORRY, THIS APPLE DOES NOT HAVE ENOUGH ":"MEMORY TO RUN THIS DISKETTE."::"(48K IS NEEDED.)"ONS"n ^A((A$)):A1AN2(A)A$ĢVV:958:VV2:6F35:"PLEASE TYPE A NUMBER FROM 1 TO "N2".";:IN0 hIN:AN2İ600 rAN1İ750:MENU0 |MENU SEED RANDOM # GENERATOR & CLEAR HGR X(P(78)) 230,32:62450GET THE PRN2". END"( ,RESPOND TO USER'S CHOICEA 6VVVV7:VV22VV22n @IN11:VV:6F35:"WHICH NUMBER? ";A$ JPR$"YES"A$"PR"ĺD$"RUN SET PRINTER OPTIONS" ODR$"YES"A$"DR"ĺD$"RUN SET DRIVE OPTIONS" TCA$"YES"A$(1)ĺD$"RUN TEACHER OPTI" 5F5:6F35:"PROGRAM"SP$":"8 VV7F5:HH9F38_ I1N:VV:HH(I10):I". "MN$(I) VVVV1:F3IC2VV7F5:HH21 I:VVVV2F2F3 VV:6F35:"OTHER OPTIONS:" VV2:9(N9):N1". PROGRAM DESCRIPTION"SP$ "VV3:9(N8): xC2((N1)2):F2C2(N1)2:ODD # OF MENU ITEMSK F3N7:TWO COLUMNSr F5N14:FULL SCREEN (18 IS LIMIT) (1023)DNİ700 K48$"YES"(978)157İ550 DISPLAY MENU MENU11:1(D2$""):21(DN$)2:DN$ 2:21(D2$)2:D2$D$(13)(4):D$"NOMON CIO"; (:::255:0:1:D$"PR#0"] 2DN:(1023)DNČ2054:249,0 <DN$,D2$,N:MN$(N),CN$(N),DE$(N,DL) FSP$"":N1SP$"S" PI1N:MN$(I) ZCN$"YES"ćCN$(I) dJ1DL:DE$(I,J):J:I nP(I)(I)(I1)2563O%*/49=@C ᷩ?"췩ʎ WRP`ZHELLOkVERSION 4.5LAST UPDATE: 10/22/82 RPB(C) MECC 1982 INITIALIZATIONSDL5:CN$"YES":CA$"NO":PR$"YES":DR$"NO":K48$"NO":IS$"YES"        à³³ ³ à³³ ³ à³³ ³ à ² à²² ² à²² ² à²² ³±± ± à±± ± à±± ± à± 21240 0S_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      _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 BARĠŠ· àĠŠƠ· àĠŠ· àĠŠƠ¶ àĠŠƠ¶ àĠŠƠ¶ àĠŠ¶ àĠŠƠ¶ à¶ à¶ àĠŠƠ¶ àĠŠƠ¶ àĠŠƠ¶ àĠŠƍµ µ àµµ µ àµµ µ àµµ ԴōӍԴ΍΍čԴ̍ōL8Hmx 6*+(n*+c*ȩ*h`HH$hH,b (hHI  X $ i$h`l&̍ȍ΍ԍȍϠԍǍȍčōȍŠҬōȍˠȍȍȍҍȍԍȍٍȍȍ˭ĠŠԍȢϠؠ׬Ġčȍ٠ȬҠčȍĠ̬Π̍ȍ̠ɬčȍŠĠԬ̍ȍȍӠΠèήũΠάҠǍӍȠŬŠǍӍǠجӠԬ΍Ӡ΍Π٬ҍӠ΍ĠάǍӍҠӷĠǍŠԬǍӢĠάǍӍŠҬǠǍӠ΍ΠԬϠˠǠӠҬϠǍǠǍԠ΍ĠҠϠà٬Ӡ̠ǍӠҠ΍Š٬ŠǍԍΠĬŠǍԍŠӬŠǍΠŬӠөˠϭϠǍӍҬŠǍΠÍΠ٬ϠǍ΍ŠĬȠǍԍ̠ӍՠƠάӍΠӍŠԬɍӍ͠ɬŠǍԠ΍ˠҬǠΠԍӠ΍Πɬ̠ǍԠΩȠ̬ĠǍҬˍӠΠÍͮ٬ӍΠ΍ҠɬӍΠͩ΍ˠͬϠӍӠΠΠÍӠάӍΠӍŠάÍĠɬȨũҠڬӨȠө ΠÍĠάӍΠӍԠάŠ͍ӠΠ΍ĠǬԍŠؠӍΠΠӍŠάӍ ΠÍŠŬӨĭĩΠÍ٠ŬӨԭĩΠÍӠȬӨשΠÍŠӬӍΠΠӍĠӠ٠̠ŬӍΠӍ̠άōڮΠΠÍĠŬ΍ ӍϧҬӍΠӍŠάӍҠԠԍϠҠԠӠōĠčԠӠŠĠƠŠԍȠĠӠĠٍϠҠԠԍϠԠčנԠčϠϠԠčӠŠĠҠȠčӠĠҍԠӠŠĠԠٍԠčϠϠԠӠčΠŠΠԠƍϠԠŠӠĢԠӠŠĠҍԠӠŠĠԠٍӠŠӠĠĠԠٍԠčŠϠԠčϠčϠԠčԠӠŠĠҠǍԠӠŠĠԠٍԠӠĠ٠ϠԠčϠӠŠĠҍԠӠŠàӍččϠĠ΍ΠӍԍčϠĠ΍ĠӍččϠҠԠĠ΍ϠӠŠӠĠҠǍԠӠŠӠĠҠǍԠӠŠ        M(I4)ZZM(I4):FI+IP+"4. "ZN$(F):Z0:I14:ZT(I)ZZZT(I):FIW+If+"5. ";~+ZN$(F):"-1":D$:,PT7,:"FIND THE PATTERN AND FILL IN THE BLANK."::,GREEN,BLUE,YELLOW,RED-ZL1:ZH4:ZP2:300:I12::J14:H THE HIGHEST TOTAL GOES FIRST."::" WHO GOES FIRST? ";:100K+11190|+"! ! ! ! !"++D$"WRITE ANSW":"1. ";M(ZR(1)):"2. ";M(ZR(2)4):Z0:I14:M(I)ZZM(I):FI+I:"3. "ZN$(F):Z7:I14:N THE FIRST ROLL? ";:ZP14:100az+:"2. WHAT DID "ZN$(ZR(2))" GET ON THE SECOND ROLL? ";:100+:"3. WHO HAD THE HIGHEST NUMBER ON THE FIRST ROLL? ";:100+:"4. WHO HAD THE LOWEST NUMBER ON THE SECOND ROLL? ";:100@+:"5. THE PLAYER WITL ! !"&R+11180:ZP41:100\+I14:M(I)ZR(I):M(I4)ZR(I4):11180:"! "ZN$(I);7(ZN$(I)));"! ";ZR(I);4);"! ";ZR(I4);4)"! ";ZT(I);4(ZT(I)9))"!":11180:100:Io+ZL1:ZH4:ZP2:300p+:"1. WHAT DID "ZN$(ZR(1))" GET O1000:P$"FIRST IN A GAME OF MONOPOLY. THE TABLE BELOW SHOWS THE RESULTS.":1000:P$"USE THE TABLE TO ANSWER THE QUESTIONS.":10004+::ZP41:ZC$"-":100>+11180C+ZP4H+"! ! FIRST ! SECOND ! TOTAL !":"! ! ROLL ! ROL:D$:I:D$"WRITE ANSW":"-1":D$' (= *ZN5ZN6ZF1:K +ZP4:500 +ZL1:ZH6:ZP4:300:I14:ZR(I4)ZR(I):I:300 +ZP4:I14:ZT(I)ZR(I)ZR(I4)::400 +FF0:11020*+P$"SOME FRIENDS ROLLED DICE TWO TIMES TO SEE WHO WOULD MOVE":100:I '10210C '"!";:(22):"!";:36,47:"!";:36,79:"!":M '::g 'ZHC:Q$"___________" 'ZPC1:300:ZR(C)R(S)! 'ZQ62:I1C:PZR(I):A$Q$(I,1)" "L$(Q(I),P)" "Q$(I,2)"? "Q$:700::D$"WRITE ANSW":(34);I;" "L$(R(I),P);(34)1 'J:I# 'D$"CLOSE PT1-3DB" '36,(40(T$)21):T$:ZP80:ZC$"-":100:"!";:36,79:"!":"! "T$(1);:(35):T$(2);:36,49:T$(3);:36,79:"!" '100 'I1C:10200:"! ";L$(1,I);:(22):"! "L$(2,I);:36,47:"! "L$(3,I);:36,79:"!":10200:1ZN:D(I):C8((I3)2):J1C:Q$(J,1),Q(J),R(J),Q$(J,2):J:IS 9'C8((ZN3)2)c ='ZN310060 B'IZN13:D(I):B8((I3)2):J1B:A$,A,A,A$:J:I L'ZL1:ZHD(ZN):ZPC:300:200 ~'I1ZN:F1:J1D(I) 'K13:L$(K,F):K 'JZR(F)FF00,17000,18000,19000,20000,21000& ' '"THESE RECORDS HAVE BEEN TAKEN FROM":"THE 1976 GUINESS BOOK OF WORLD RECORDS."::D$"OPEN PT1-3DB":D$"READ PT1-3DB" $'I1ZN:T$:J13:T$(J):J:I )'ZN310040 .'IZN13:A$:J13:A$:J:I@ 8'I(k'CGMM PROBLEM SOLVING VOL.1 X1 OVERLAY (C) MECC 1982 LAST UPDATE: 11/5/82 RPB 'IZN:JP1(I3)(I6)(I7)(I16)(I17)(I18)(I21)(I26)(I34)(I42)(I51)(I59) 'JP10010,11000,11500,12000,13000,14000,15000,160            ҍٍōōōҍӍōō֍ٍōٍ΍ōō΍ڍǍȍōٍ̍΍΍̍ȍ΍ٍōӍō΍Ӎ΍ٍōȍٍԍӍō΍͍ٍ͍΍Ӎ΍̍΍̍ԍōōˍ̍΍ōٍ̍čٍ̍̍΍ٍˍōٍ΍΍čٍ΍ҍҍȍٍٍ̍ō̍ōӍččč  1:ZZZZ6:IZZ6.5:I90ZZ3.5MF1:ZL1:ZH10:ZZZZ3I 0MX(ZZ.1)T012010a 0 PRINTq*0CT0:I1640M$(I)(M(I))>0IC0I1MX:M$(F(I))(64I):IH0(21):M$(1):R014:M$(6);:(28):M$(5): \0(7):M$(2);:(21):M$(4);:(35)X)(M(4)X)(M(3)X)8/Z2(M(3)X)(M(5)X)(M(1)X)Z/Z3(M(1)X)(M(6)X)(M(2)X)s/Z1Z0Z2Z0Z3Z0ı/I1MX:M(ZR(I))A(I):/12170/PB#7-PB#24/41/MD(ZN12ZN19)/MN(ZN18ZN25)/ZZZN:MF0:ZL0:ZH50/I1I)10 X/I"b/SMM(2)M(3)M(4)<l/MFSMM(2)M(3)M(4)Kq/MN12160fv/F1:I16:M(I)0F0v{/I:F12010/ZL1:ZH6:ZPMX/300/I1MX/A(I)M(ZR(I))/M(ZR(I))999:F(I)ZR(I)/I/MX1.5ı/X999:Z0MX2/Z1(M(2((1).5):/MF12090K/M(1)R(1)R(3):M(2)R(1)R(4):M(3)R(1)R(5)|&/M(4)R(2)R(3):M(5)R(2)R(4):M(6)R(2)R(5)0/12110:/M(1)R(1)R(3):M(2)R(1)R(4):M(3)R(1)R(5)D/M(4)R(2)R(3):M(5)R(2)R(4):M(6)R(2)R(5)N/I16:MDM(I)M(R(S):I311:", "M(I);(C);:CC1:I:l@+D$"WRITE ANSW":Q$;:CC6:I611:M(I);(C);:I1ĺ", ";B+CC1:I:Q$:1:D$:.PB7-24.12240.CREATE 3X3X3 TRIANGLE.I15:R(I)R(1):.R(1)R(2)12020 .MNāI15:R(I)R(I),+D$"WRITE ANSW":Q$;:I15:M(I)", ";:IB.+M(6);Q$:1:D$:4+ZL65:ZH90:CR(S):T1((1).5):I46:", ";:J1D(6I)T:(C);:J:I:6+D$"WRITE ANSW":Q$;:I16:J1D(6I)T:(C);:J:I6ĺ", ";8+I:Q$:1:D$:+>+ZL68:ZH88:CPYĭC%(N,P1)0FF1:&h)964,1:4* PB4,5,6V+:"COMPLETE THIS PATTERN.":c+Q$(34) +ZL1:ZH3:DR(S):ZHD610:ZLD6:SR(S)+I05:M(I1)S(DI)::"_____, _____, _____";:ZN511060 +ZN611070*+I46:", "M(I);:I:+1)1:F$F$(PXN)- )CTCT1:CTXY105208 )10360v )NQ(X):BQ(X):MZ%(N,1)MZ%(N,1)2:MZ%(B,Y)MZ%(B,Y)8: ")NXĭC%(N1,P)0FF1: ,)961,1: 6)P1ĭC%(N,P1)0FF1: @)962,1: J)N1ĭC%(N1,P)0FF1: T)963,1:^),10470,10480,10490V (MZ%(N1,P)MZ%(N1,P)4:C%(N1,P)1:F$F$((P1)XN1):10500 (MZ%(N,P1)MZ%(N,P1)8:C%(N,P1)1:F$F$((P2)XN):10500 (MZ%(N1,P)MZ%(N1,P)1:C%(N1,P)1:F$F$((P1)XN1):10500 (MZ%(N,P1)MZ%(N,P1)2:C%(N,PȭN0NX:PP1% (960,MZ%(N,P):941W (ZB14:B(ZB)0ĴZB10530,10550,10570,10590 (ZB:F0C%(N,P)2:F$(F$,PL1)(F$,PL1):10360 (RQ(F):ZB1 (B(ZB)0RR1:R010440 (ZBZB1:10420 (MZ%(N,P)MZ%(N,P)(2(ZB1)) (ZB10460B1)1):"END"< Z(D$"WRITE ANSW":"NO ANSWER.":"-1":D$:R d(C%(X,Y),MZ%(X,Y)y n(B(S)(960S):Q(S)((1)S)1 s(PL1:NQ(X):PQ(Y):F$":"((P1)XN):C%(N,P)1:CT1::10380 x(F0:PLQ((F$)1)1:Z((F$,PL,1)):P(ZX):NZ(PX):PP1:1$"I":Z$":":I1X:960,MZ%(I,J):941:B(2)Z$Z$" :":10250Q (Z$Z$"--:"q (B(1)Z1$Z1$" ":10270 (Z1$Z1$" I" (I:Z$:Z1$:J ((Z$":" 2(I1X:960,MZ%(I,Y):941:B(4)Z$Z$" :":10310 <(Z$Z$"--:" F(I:Z$ P(:(3(/ 'PB'S:'IZN:JP1(I3)(I6)(I24)(I42)(I72)f$'JP10200,11000,12000,13000,14000,17000l.'w'PB1-3'X(ZN1)3(ZN2)7(ZN3)15:Y(ZN1)5(ZN2)7(ZN3)15:10340':"TRAVEL THIS MAZE."::((N1)31):"START":A 'J1Y:Z              )n`I1NP:AN(I)M(ZR(I)):M(ZR(I))9990I:I?"e8N3NP614450)#g8Z19990:X1((M(1)Z1)(M(4)Z1)(M(7)Z1))1:X2((M(2)Z1)(M(5)Z1)(M(8)Z1))1:X3((M(3)Z1)(M(6)Z1)(M(9)Z1))1:Y1((M(1)Z1)(M(2)Z1)(M(3)Z1))1:Y2((M(4)Z1)(M(5)Z1)(M(6)Z17M(I)(ZR(1)Q1)(ZR(2)Q2)(ZR(3)Q3)(ZR(4)Q4)8!7IF!@8PRINT ITU!J8MN14430r!T8F1:I1NN:M(I)0F0!Y8I:F14100!^8MDāI1NN:M(I)M(I)10:I!`8SMM(1)M(2)M(3):N4SMSMM(4)!a8MFSMM(1)M(2)M(3))"c8ZL1:ZHN2:ZPNP:300:Q2,Q3,Q4:M(I)ZR(Q1)ZR(Q2)ZR(Q3)ZR(Q4):IB _7SMM(1)M(2)M(3)M d714400c x7ADDITION MAG SQR 7ZH25:ZL0MN25:ZP4:300 7:Q$"3M*":N4Q$"4M+" 7A$:A$Q$14230 7I1NN:Q1,Q2,Q3,Q4:N3M(I)ZR(Q1)ZR(Q2)ZR(Q3)ZR(Q4):142501!,1,1,3,4,2,2,3,3,1,2,4,4,2,2,4,4,1,2,3,4,1,1,3,3,1,2,3,3,1,1,4,4,2,2,3,4R74M+,1,2,2,1,2,1,1,2,0,0,1,1,1,1,0,0,0,1,1,0,1,0,0,1,1,1,2,2,2,2,1,1,2,0,1,1,1,1,2,0,1,2,0,1,0,1,1,2,1,1,0,2,0,2,1,1,2,1,1,0,1,0,2,1Z7[7A$:A$"3M*"14171, \7I19:Q1,:Z$,NP:.6NPNP((ZN1)3((ZN1)3))1m7MF(Z$,1)"A":MD(Z$,1)"D":MN(Z$,1)"N":N3(ZN66.5){7MF142007MULTIPLICATION MAG SQR27ZH7:ZL1:ZP4:300<7MN14170F7F1:I14:(1).5ZR(I)ZR(I):F0K7I:F14150HP73M*:I:"6PB43-72 (MAGIC SQUARES)-6M(16)6"PB43",A-,0,M-,0,AD,0,MD,0,AN,0,MN,0,A-,6,AD,6,AN,6,M-,6,MD,6,MN,6,A-,5,A-,6,AD,5,AD,6,AN,5,AN,66IZN:ID1(I45)(I48)(I51)(I54)(I57)((I60)(I60))66A$:A$"PB43"14060 6I1ID3)X)(M(5)X)(M(9)X)B]4Z3(M(6)X)(M(7)X)(M(8)X)(M(9)X)|^4Z4(M(2)M(4)1998)(M(3)M(5)1998)(M(7)M(8)1998)_4(Z1Z0Z2Z0Z3Z0)Z4013410`4I1ZP:M(ZR(I))A(I):Ia413390b4I19:M$(I)(M(I))l4:I1MA:M$(F(I))(64I) ) ";::I:4D$"WRITE ANSW":I1MA:(64I);" = ";A(I)::1:D$:]D4CREATE ANSWERSvN4ZPMA:ZL1:ZH9:300X4I1ZP:A(I)M(ZR(I)):M(ZR(I))999:F(I)ZR(I):IY4Z0MA3Z4X9991(M(1)X)(M(2)X)(M(4)X)(M(6)X)\4Z2(M(1)X)(M(3835:M$(6);:15:M$(7);:25:M$(8);:35:M$(9)c3:A$"MULTIPLICATION":KA$"ADDITION"4:"IN THIS ";A$;" MAGIC TRIANGLE";4MA3ĺ":":133604",":A$"PRODUCT":KA$"SUM"&4"THE ";A$;" IS ";(S)"." 04:I1MA:(64I);" = ( "128"13180<3"128",1,2,6,8,4,7,5,7,3,8,3,4,1,8,2,7,5,6z3I19:A,B:M(I)ZR(A)ZR(B):I:MDāJ19:M(J)M(J)10:3SM(1)M(2)M(4)M(6)31338033(20):M$(1)33(15):M$(2);:(25):M$(3)33(10):M$(4);:(30):M$(5)7)ZR(7):M(8)R:M(9)ZR(6)>B3F(ZL0):I19:M(I)0F0:I9NC3I:F13060sE3MDāI19:M(I)M(I)10::SS10~J313220T3MULTIPLICATION^3ZP8:600h3FZ0:FM(ZL0):I18:ZR(I)0FZ1m3ZR(I)0FM0r3I:FZFM13150w3 |3A$:A$(ZN24)3):MAMA(MA0)3*2KT2(T2)92K013140G3ZP7:600e"3SZR(1)ZR(2)ZR(3)ZR(4),3QS(ZR(1)ZR(5)ZR(6)):MNQ11306063RS(ZR(4)ZR(6)ZR(7)):MNR113060@3M(1)ZR(1):M(2)ZR(2):M(3)ZR(5):M(4)ZR(3):M(5)Q:M(6)ZR(4):M(;"WRITE ANSW"0I1MX10(64I);" = ";A(I)80I@01H0D$N0[2PB25-42p2T((ZN25)3)12"PB25",0,99,0,0,1,12,0,0,0,99,1,0,1,13,1,0,-99,99,0,1,-10,10,0,122A$:A$"PB25"130272I1T:ZL,ZH,MD,MN::MA(ZN24)3():M$(3):::p0A$" ADDITION ":MFA$" MULTIPLICATION "^0"IN THIS";A$;"MAGIC TRIANGLE";v0MX3ĺ":"::124310","0A$"SUM":MFA$"PRODUCT"0"THE ";A$;" IS ";SM;"."00I1MX0(64I);" = ( ) ";0I0:: 0D$E8EEEL`EEE  \SETgEEgEh`ɍR EgEEE  hhL,J10:"!";:J::14540:Z$:IO%9:A$"IN THIS ":MFA$A$"ADDITION ":14620k%9A$A$"MULTIPLICATION "%9A$A$"MAGIC SQUARE":NP3A$A$":":14660%&9A$A$", THE ":MFA$A$"SUM ":14650%09A$A$"PRODUCT "%:9A$A$"IS "(SM)"."5&D9ZQ62:N4Z$Z$"----------"$8Z$)$814550P$8"!";:Q1N:36,Q10:"!";:Q::[$8I1Nf$814540$8"!";:J1N:X1NP:MM(I,J)9990MM(I,J)9997ĺ" "(64(MM(I,J)9990));:XNP:FX1$8X:FXFX0:14590$85S(MM(I,J))2);MM(I,J);%836))1:Y3((M(7)Z1)(M(8)Z1)(M(9)Z1))1^#h8Z2((X11)(X21)(X31)(Y11)(Y21)(Y31))0l#i8Z214450#k8I16:M(ZR(I))AN(I):I:14435#r8#|8I1N#8J1N#8MM(I,J)M(J(N(I1)))#8J#8I$8Z$"-------------------------------":R"920:"PLEASE ENTER A CORRECT OBJECTIVE TITLE.":70oL20:"PLEASE ENTER AN OBJECTIVE 1-";MX(H);".":70~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"E TEMP"OVPTI$%TI1NU11^R400HhZ((1)(NU1))1XrRN%(Z)360z|PT%(Z):PO%(Z):RN%(Z)1:500PT%(I):PO%(I)I:0:0:D$"CLOSE"c:12:"PLEASE PREPARE YOUR PRINTER.":70::12:"PRINTING THE TEST...":D$"RUN DRIVEORKSHEET":70,NU112001::3:"WOULD YOU LIKE A RANDOM"::"PROBLEM ORDER (Y OR N)? ";A$:(A$,1)"Y"(A$,1)"N"3056A$"Y"R1@:12:11:"ONE MOMENT PLEASE"ED$"OPEN TEMP":D$"CLOSE":D$"DELETE TEMP"JD$"OPEN TEMP":D$"WRITT22:968:"IS THIS ENTRY CORRECT (Y OR N)? ";A$:A$(A$,1):A$"Y"A$"N"253dA$"N"180IAB:J1P:PT%(NU)H:PO%(NU)I:NUNU1:NU101290J:I:175 "::"ONLY 100 PROBLEMS ARE ALLOWED. THESE"::"WILL NOW BE USED TO CREATE A W(A$)((A$))A$İ1150:245.P((A$))(BA)PNU100Ģ20:"THESE PROBLEMS WOULD PUT YOU 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"."1:I(N$):238)I1I(N$):F1:238NA((N$,I1)):(N$)IBA:235aB((N$,I1))qF0:I(N$)I:F1İ1100:180F2A(N$):BAA1ABAMX(H)BMX(H)İ1100:1801:12:958:" NUMBER OF PROBLEMS? ";A$:(((A$)))A$"END"300% (A$)3İ1000:180T F0:MN$(A$,2):I14:MN$MN$(I)FI:I9[ In Fİ1000:180z HF:F0 N$(A$,3):(N$)3F2:239 I1(N$):T$(N$,I,1):T$"-"((T$)46(T$)57)F2:238((T$)47(T$)56)T$"-"F:70:129v :9:"CREATE YOUR WORKSHEET."::" TYPE 'END' WHEN ALL OBJECTIVES"::" HAVE BEEN ENTERED." 34,5 MAIN INPUT ROUTINE INPUT LIMIT ARBITRARILY SET AT 100 OBJECTIVES. :8:" OBJECTIVE CODE? ";A$ ILL THEN BE ASKED"k :"FOR THE NUMBER OF PROBLEMS OF THAT TYPE"::"THAT YOU WOULD LIKE GENERATED.":70z V((A$)) :2:"WHAT TITLE WOULD YOU LIKE FOR THIS TEST?"::TI$:(TI$)40Ģ10:"PLEASE KEEP YOUR TITLE TO LESS THAN 40"::"CHARACTERS.".": }1:6:958:"HOW MANY VERSIONS WOULD YOU LIKE? ";A$:((A$))1((A$))10Ģ20:"PLEASE ENTER A NUMBER BETWEEN 1 AND 10.":70:125 ~::"SELECT THE OBJECTIVE CODES FROM YOUR"::"SUPPORT MANUAL. ENTER ONE OBJECTIVE"::"CODE AT A TIME. YOU W:"CREATED BY THE CGMM TEST GENERATOR."4 <70:100 F24:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:16368,0:16384,128:1:16368,0: d MAIN ROUTINE x::"MULTIPLE VERSIONS OF A TEST MADE UP OF"::"A SET OF OBJECTIVES CAN BE GENERATED  "MAXFILES3"%D$(13)(4)EPT%(100),PO%(100),RN%(100)aI14:MN$(I),MX(I):IPT,64,PB,102,PG,29,PS,11NU1:(2:18:"CGMM"' 2:"THIS PROGRAM ENABLES THE USER TO ENTER "::"THE OBJECTIVES FOR A WORKSHEET TO BE":¹ ٠Ҡ¹ ٠Ҡ¹ ٠Ҡ± à٠Ҡ± à٠Ҡ±12:M(I,J)R(S):J:ZN44M(I,1)M(I,1)R(S):M(I,1)M(I,2)II1K"`JI"jJZN4219060,19060,19120,19160,19060,19120,19120,19060,19060"tJZN44S1"~JZN47ZH2:NR(S):(1).5NN"JZN50E2:D2#JZN51ZL1:ZH2:MR(S):SR(S):MS !"QU$:QU$"!";:J13:M(I,J)018110T!F3((M(I,J))));M(I,J)" !";:18120c!F" !";!FJ:QU$:QU$"! ! ! !"QU$:I:100:CT0CT1:"-1":QU$"":D$:18060!F!8J PT43-51!BJN0:S1:E1:M1:D3!LJZH9:ZL1D"VJI16:J$ xFZN36ZL2:ZH5:LR(S):RR(S)U FI13:J13:M(I,J)SL(I1)R(J1):J:I FCT0ĺD$"WRITE ANSW":QU$(34):18080 F"USE THE PATTERNS IN THE TABLE TO FILL IN THE BLANK." FM(E,F)0 FZP19:ZC$"-":*!FI13:100:QU$;"! ! !:100::QU$;" ";LI1;" !!";:J13:M(I,J)017200`&C4((M(I,J))));M(I,J)" !";:17210p0C" !";:CJ:QU$:I:CT0CT1:"-1":D$:QU$"":17135DCPF PT35-42ZFZN36ZF1:dFZL1:ZH9:SR(S):ZH3:ER(S):FR(S)nFL1:R1BCT0ĺD$"WRITE ANSW":QU$(34):17160;BZP5:ZH9:300sBI15:T(ZR(I)1)3:M((T1),(ZR(I)(T)3))0:IB"FIND THE PATTERN AND FILL IN THE BLANKS.":CQU$5)"!! ";R;" ! ";R1;" ! ";R2;" !";QU$CZC$"_":ZP28:1006CI13))+BZN33E2:ZL1:ZH2:LR(S):RR(S)RBZN34ZL1:ZH2:MR(S):N2(M2)BI13:J13:M(I,J)((M(LI1)(SN(RJ1))A)E):J:IB17130BZN31A1(2((1).5))BZN32B2BI13:J13:M(I,J)B(LI1)(RJ1)A:J:I()::I26:J26:M(I,J)M(I1,J)M(I,J1):J:I:16110QhB PROGRAM DIRECTIVES mrBS1:A0:B1:E1:M1:N1|BZL1:ZH7:LR(S):RR(S)BZN2617040,17040,17100,17040,17100,17100,17040,17040BZN28S1:LR317020BZN30A1(2((1).524RJ">M(I,J)M(I,J1)R:J:Ij>I16:(20(I2)):J1I:4((M(IJ1,J))));M(IJ1,J);::::>D$"WRITE ANSW":"NO ANSWER":"-1":D$:?I16:M(I,2)M(I,1)1::I16:J36:M(I,J)M(I,J2)M(I,J1):J:I:161107 ?I16:M(1,I)M(I,1> PROGRAM DIRECTIVES (PT22-26)M>"SEE HOW MANY PATTERNS YOU CAN FIND.":x>ZL1:ZH5:M(1,1)R(S):LR(S):RR(S)>I26>ZN24LI>M(I,1)M(I1,1)L:I>ZN2516130>ZN2616140>I16:J27I>ZN23RM(I,1)1>ZN:SHU:HS:I;15140;TS1:T(1)S:T(2)T:T(3)T:T(4)T(2)1:I152:T(I4)T(I)T(I2):I:I26:T(I4)T(I)T(I2):I;I1102:ST(I):TT(I1):J15:5((S)));S;:WT:TTS:SW:J:::I$;D$"WRITE ANSW":"NO ANSWER":"-1":D$: LORIDA): PROGRAM DIRECTIVES (PT19-21)V:"SEE HOW MANY PATTERNS YOU CAN FIND."::ZL1:ZH5:SR(S):RR(S):UR(S):HS:ZN2115120:RU15020:ZN20UR:I15:J15:5((S)));S;:ZN20RJ:SSR:J:::ZN20UI8"14005$6"FILL IN THE BLANK."::6ZL1:ZH7:RR(S)L6I1R:W$:IX6RR(S)v6I17:IRĺ"__";:140706(W$,I,1);6I7ĺ", ";7I::D$"WRITE ANSW":" "W$:1:D$: 7PT18,STUDENT,DECIMAL,PERCENT,SPINACH,ENGLAND,AMERICA,F":D$"WRITE ANSW":(34);" "H", "J;(34):"-1":D$:I0/IN3ININ3y5/ZN11ZN16ININ:S27S:ZN16S23S23:/I15:(64S);", ";:ZN14INI:ZN16ININ%D/SSIN:HS:JHIN(ZN15)(ZN16):I:"____, ____":D$"WRITE ANSW":(34)" D THE PATTERN AND FILL IN THE BLANKS.":L.ZL1:ZH6:SR(S):ZL2:INR(S)j.ZN9ZN14ININ:S70S/ZN10ZN11ZN15ZN1612080/ZN12SIN/I15:S;", ";:ZN12INI:ZN14ININ7&/SSIN:HS:JHIN(ZN13)(ZN14)::"____, ____C$(I):JZR(I)J4: -:D-ZQ62:ZH2:PR(S):SR(S):INR(S)-I13:J1P:A$A$C$(1)", "::J1S:A$A$C$(2)", "::SSIN::A$A$"________________":700(-D$"WRITE ANSW":C$(1):1:D$:.. PROGRAM DIRECTIVES (PT8&9)(."FIN(ɛΤ$!< CA AHAH`$(< 轪AP $<($У=,`BpP=$A($AHAH`I i8`( B=ȱ( B====)=8`=)8` @LB<ɍL+BtH6L/$< B3$$<(hhL+B$( B<ɬ B<ȑ($,BCG !"# " XA G% (!$ " LˮîԮˮϮɯϠҪBBˬDFFGŬDͬFԮGGGŮGì{DŬDԮBBfC (!"# X% " Ɉ $0$DD$"WRITE ANSW":I1CT:(64I);" = "A(I):I:"MYSTERY NUMBER = "A(I):1:D$:(!"# X HxH )h xH ) )и% "${A G A G A G A G A G A 22D9:"!!";:J1M:M(I,J)0ĺ" MYS #";:17570p2D(4((0)15)(M(I,J)(M(I,J))))S((M(I,J))));M(I,J);2D(J109):"!";:J::17490:100:I2D::I1CT:(64I)" = ( ) ";:CC1:C3C0::2D2D::"MYSTERY NUMBER = ( )"R3:K1\D"! "F$;:9:"!!";:I1M:M(0,I)0ĺ4);(65CT);:CTCT1:17520t1fD4((0)15)S((M(0,I))));M(0,I);1pD(I109):"!";:I::17490:100:1001zDI1M:17490:"!";:M(I,0)0ĺ" ";(65CT);:CTCT1:175502D4S((M(I,0))));M(I,0);(2(M3)),0)0:1746070*DA(I)M(0,ZR(I)):M(0,ZR(I))0=04Dy0>DZL1:ZH3(M2):XR(S):YR(S):A(ZP1)M(X,Y):M(X,Y)00HDI0M:J0M:M(I,J)(M(I,J)100)100::0MDZC$"-":ZPM109:100:17490:175001RD"!";:9:"!!";:Q1M:(Q109):"!";:Q::M(0,I)ZR(I)::I13:M(I,0)ZR(I3)::L/DZL1:ZH6(2(M2)):300:200\/DZP217440/DZH2(M2):XR(S):YR(S):A(1)M(0,X):A(2)M(Y,0):M(0,X)0:M(Y,0)0:A(3)M(Y,X):M(Y,X)0:174800 DI1ZP:ZR(I)(3(M2))A(I)M(ZR(I)(2(M3)),0):M(ZR(I)(I)::I12:M(I,0)ZR(I2)::x.CF$"/":I12:J12:M(I,J)ZR(I2)ZR(J)::M(0,I)ZR(I)::I12:M(I,0)ZR(I2)::.DF$"+":I13:J13:M(J,I)ZR(I)ZR(J3)::M(0,I)ZR(I)::I13:M(I,0)ZR(I3)::*/ DF$"X":I13:J13:M(J,I)ZR(I)ZR(J3)::17320 -C(Q1Q2)T24917310V-CT1(Q1Q2)T2:T2T110:T21ZH(100T2):17370g-CZH(100T1)-CZP2:300:ZR(3)ZR(1)T2:ZR(4)ZR(2)T2:ZR(1)Q1:ZR(2)Q2:17400:ZP2(ZN92):17430-C.CF$"-":I12:J12:M(I,J)ZR(I2)ZR(J)::M(0,I)ZR(Q1Q2)T24917260,CT1(Q1Q2)T2:ZH(100T1):ZP2:600:ZR(3)ZR(1)T1:ZR(4)ZR(2)T1:ZR(1)Q1:ZR(2)Q2:17400:ZP2(ZN82)(ZN102):17430,CM2:ZL2:ZH20:Q1R(S):Q2R(S):T1Q1:T2Q2:Q1Q217310,CR1T1T2(T1T2):R1017340-CT1T2:T2R190:ZP2(ZN100):17430[+bCDIVISION(USES LCM OF FACTORS TO DETERMINE RESULTANT EQUATIONS)+lCM2:ZL1(13(ZN100)):ZH12:Q1R(S):Q1Q1(Q10):Q2R(S):Q2Q2(Q20):T1Q1:T2Q2:Q1Q217260+vCR1T1T2(T1T2):R1017290+CT1T2:T2R1:17270,C:ZP2(ZN80):17430c*:CM2:ZL10:ZH100(300(ZN80)):ZP4:300:I12:J12:ZR(I2)ZR(J)F1{*DCJ:I:FF0:17210*NCI14:ZR(I)(ZR(I))10:ZR(I)(ZR(I)10)10::17390:ZP2(ZN90):17430+XCM2:ZL20(80(ZN100)):ZH(ZL):ZP4:300:173)):174308)BZL20:ZH20:ZP6:300:I16:ZR(I)0F1i)B:Fİ17420:ZP2(2(ZN96)(ZN98)):17430x)BF0:17130)CSUBTRACTION)CM2)CM2:ZL1:ZH10(30(ZN80)):ZP4:300:I12:J12:ZR(I2)ZR(J)F1)&CJ:I:FF0:17180*0C17390ZP6:300:I16:ZR(I)0F1N(B:Fİ17410:ZP2(2(ZN93)(ZN95)):17430](BF0:17070q(BMULTIPLICATION(BZL1:ZH9:ZP6:300:17420:ZP2(2(ZN76)(ZN78)):17430 )BZL10:ZH99:ZP6:300:I16:ZR(I)ZR(I)10::17420:ZP2(2(ZN86)(ZN880,17260,17060,17120,17210,17310,17070,17130,17240,17260E'BADDITION'BZL1:ZH10(ZN73)19:ZP6:300:17410:ZP2(2(ZN73)(ZN74)):17430'BZL100:ZH4999:ZP6:300:I16:ZR(I)ZR(I)100:I:17410:ZP2(2(ZN83)(ZN84)):17430(BZL50:ZH49:700::I1NP:(64I);" = ( ) ";:I3(I3)ĺu&N9::D$"WRITE ANSW":I1NP:(64I);" = "AN(I)::1:D$:&hBPB73-102&rBM3&|BIZN:JP1(I75)(I78)(I80)(I82)(I85)(I88)(I90)(I92)(I95)(I98)(I100)7'BJP17050,17110,1718]*A$"ON WHICH TEST DID "N$" SOLVE EXACTLY "(ZR(N))" PROBLEMS CORRECTLY?":700b*I15:7:"("(64I)") "(I):I:AW$(64N)l*10500v* 4TH PROGRAM BLOCK*"NUMBER OF ";P1$:*ZC$"-":ZP3:NU3:ZL1:ZH4:300*I13:M(I)ZR(I):N$(1);0*:"NUMBER OF QUESTIONS CORRECT ON "A$(N)" TESTS"t:*ZL2:ZH12:ZP5:300:I15:ZR(I)2(ZR(I)2)F1;*I:F010810?*I15:M(I)ZR(I):D*I15:ZN$(I)(I)::10520N*:23:"TESTS"::X*ZH5:NR(S):M(N)2(M(N)2)10840T:I15:M(I)ZZM(I):LI1):NU5:MU1:10190H) PROBLEM BLOCK 3Z)T12:B2:S2*L$(10)"NUMBERS":L$(8)"OF":L$(6)"CORRECT":L$(4)"QUESTIONS"*A$(1)"SCIENCE":A$(2)"SOCIAL SCIENCE":A$(3)"READING":ZL1:ZH3:NR(S)*ZP1:500&*N$Z";:ZP45:ZC$"-":1004)I15:I8:ZN$(I);:::b) PG7-12(USES BARGRAPH AND ORIG. SUBS) r)M$"FEWEST")S5:T30:B5)ZP5:500)ZL1:ZH6:ZP5:300:I15:M(I)ZR(I)5:ZR(I)M(I):)3:"NUMBER OF ";P1$)10520):)Z10 !"6)ITBS.@)" ";3((I)));I;" !";\J)J15:M(J)IF(J)1:J8:"***";:10590uT)F(J)Ė(J8):"***";^)J:ZN3I12Ĺ36,49:L$(I);h):J1XS:" !";:K15:F(K)M(K)I1Ė8K:"***";:F(K)1r)K:|)J) )I:" U:#(F0:I15:ZR(I)TFI:I5G(:FZL1:ZH5:FR(S):ZR(F)T(I15:7:"("(64I)") "ZR(I)::::AW$AW$(64F))D$"WRITE ANSW":(34);AW$;(34):"-1":D$)) BARGRAPH SUBROUTINE") BAR-GRAPH PRINTINT SUBROUTINE,)" I)MUPNI:I5)(:NNR(S):ZR(N)P1(:s(I15:7:"("(64I)") "ZR(I)MU::::AW$AW$(N64)", "(T0:I1NU:TTM(I):(" E) WHAT WAS THE TOTAL NUMBER OF "P5$"?"::(SCTMU:ZLSC5:ZHSC5:ZP5:300:I15:ZR(I)ZR(I)MMU::::ZN4Ė7:"(E) NONE OF THESE IS CORRECT."Mx(AW$AW$(64F)", "u(ZHNU:NR(S):NH(ZN2NL)10370(ZN2HN:NL(:" D) HOW MANY MORE "P3$" DID "ZN$(H)" "P4$" THAN "ZN$(N)"?":ZH5:ZP5(300:P(M(H)M(N)):N0:I15:ZR( "@((NR(S):" C) HOW MANY "P3$" DID "ZN$(N)" "P4$"?"::O2(ZN1MU1^<(ZN2MU5~F(ZN4āI13:M(I)M(I)MU:P(ZP5(ZN4)(ZN2):ZL1:ZH5(ZN4)(ZN2):300Z(I1ZH:ZR(I)MUM(N)FI:I5d(4n(I1ZH:7:"("(64I)") "ZR(I);ZN$(1);" AND ";ZN$(3)::9 'I1NU:M(I)ZZM(I):HI@ 'Ib (ZN2AW$(64L)", ":10260w (AW$(64H)", " (ZL1:ZH3:NR(S):" B) WHICH STUDENT "P2$" "M(N)MU" "P3$"?"(::I1NU:7:"("(64I)") "ZN$(I)::::AW$AW$(64N)",HE RESULTS:":700) 'ZP3:ZL1:ZH5:300e 'I13::7:ZN$(I);:20:J1ZR(I):"/";:J::I:::~ 'I1NU:M(I)ZR(I): '" A) WHICH STUDENT "P2$" THE "M$" "P3$"?":: 'I1NU:7:"(";(64I);") ";ZN$(I)::::ZN1Ė7:"(D) TIE BETWEEN "KETS,BUY,CIRCUS TICKETS SOLDb t'BOXES OF CANDY SOLD,SOLD,BOXES OF CANDY,SELL,BOXES OF CANDY SOLD 'ZNJP:JP10130,10660,10740,10870,10970,11300 'M$"MOST":NU3 'MU1 'ZP4:500 'A$ZN$(4)" KEPT TRACK OF "P1$". HERE IS A TALLY CHART OF TSKETSD V'BOOKS BOUGHT AT A BOOK FAIR,BOUGHT,BOOKS,BUY,BOOKS BOUGHT `'LUNCH TICKETS BOUGHT,BOUGHT,TICKETS,BUY,LUNCH TICKETS BOUGHT e'DECORATIONS MADE FOR A CLASS PARTY,MADE,DECORATIONS,MAKE,DECORATIONS MADE j'CIRCUS TICKETS SOLD,BOUGHT,CIRCUS TICP3$,P4$,P5$:S .'VOTES CAST IN A CLASS ELECTION,RECEIVED,VOTES,RECEIVE,VOTES CAST 8'HITS IN A SOFTBALL GAME,HAD,HITS,HAVE,HITS B'GOALS SCORED IN A HOCKEY GAME,SCORED,GOALS,SCORE,GOALS L'BASKETS SCORED IN A BASKETBALL GAME,SCORED,BASKETS,SCORE,BAck'CGMM PROBLEM SOLVING VOL.1 X3 OVERLAY (C) MECC 1982 LAST UPDATE: 11/3/82 RPB 'PG1-29(LETSDOTHISRIGHTFORONCE)'IZN:ZTZN:JP1(I6)(I12)(I13)(I19)(I24)'ZQ62 $'ZL1:ZH9(ZN25)2:NR(S):I1N:P1$,P2$,          $:212400S1:C3C0::H.Dl.D::"MYSTERY NUMBER = ( )".DD$"WRITE ANSW":I1CT:(64I);" = "A(I):I:"MYSTERY NUMBER = "A(I):1:D$:Ac=,BC` B$ <ɬ B(ɬޢd`pT<ɀl Bȱ( ɯ$<ɕQ(() .<%<$<($ɠ<ɯ<ɍ,ɠ $( BL+B B$( Bƈ( B$к Bȱ( ɯ$==( D B DL100:IB.D::I1CT:(64I)" = ( ) ";:CC15:M(I,1)0ĺ3((M(I,1))));M(I,1);" !";:21330E/HS" !";]/RSI::T:T$:T:100/\ST:T$:T:"!";:I15:M(I,2)0ĺ3((M(I,2))));M(I,2);" !";:21360/fS" !";/pSI::QU$;:T:T$;QU$:QU$;:T:1000zSCT0CT1:QU$"":"-1":DST100.SCT0ĺD$"WRITE ANSW":QU$(34):21290b. S"FIND THE PATTERN AND FILL IN THE BLANKS.":.SZH5:MR(S):NR(S):MN21270. SM(M,1)0:M(N,2)0.*SZP31:ZC$"-":T:100.4ST$"!":I15:T$T$" !":6/>SQU$;:T:T$;QU$:QU$;:T:"!";:I)3:G(3)3:G(1)2:F(2)2:G(4)4:F(3)4A-RI15:M(I,1)ZR(I):I-RZL1:ZH4:ZR(S):J15:M(J,2)M(J,1)G(Z):M(J,1)M(J,1)F(Z)::21240-RZL1:ZH9:ZP5:300:ZL1:ZH2:MR(S):I15:M(I,1)ZR(I):M(I,2)M(I,1)M(I,1)((ZN64)M):I:21240-R.H10:TR(S):I1T:X:(,vRZH9:I15;,RM(I,1)R(S)1\,R(XM(I,1))XM(I,1)21120k,RI121170,RJ1I1:M(I,1)M(J,1)F1:JI1,RJ:FF0:21120,RI:I15:M(I,2)XM(I,1):I,R21240,RZL1:ZH9:ZP5:300&-RF(1)3:F(4)3:G(20:ZH18:SR(S))+&RZL1:ZHS1:ZP5:300[+0RI15:J15:ZR(I)ZR(J)SIJF1:J5:I5s+:RJ:I:FF0:21030+DRI15:M(I,1)ZR(I):M(I,2)SM(I,1):I+NR21240+XR PT61+bR 24,24,30,36,40,48,54,56,60,72,80+gRX$:(X$)2421095,lRZL1:Z);:100b*OQU$;T);T$;QU$:QU$;T);"!";:I15:M(I,2)0ĺ3((M(I,2))));M(I,2);" !";:20270q*$O" !";*.OI:QU$:QU$;T);T$;QU$:QU$;T);:100*8OCT0ĺ"-1":D$:CT1:QU$"":20150*BO*R PT60*RZN6021080,21190,21230,21230+RZL1 BLANKS."::202000)ND$"WRITE ANSW":QU$(34)S)NQU$;:ZP31:ZC$"-":T);:100v)NT$"!":I15:T$T$" !":)NQU$;T);T$:QU$;P$;" !";:I15:M(I,1)0ĺ3((M(I,1))));M(I,1);" !";:20240)O" !";*OI:QU$:QU$;T);T$;QU$:QU$;T1!(NZN55P$" ":T117(NZP31:CT020199p(NZN55ĺ"FIND THE PATTERN AND FILL IN THE BLANKS.":(NZN55ZH5:MR(S):NR(S):MN20170(NZN55M(M,1)0:M(N,2)0:20200)NZN56ĭCT1āI25:M(I,2)0::"USE THE RULE TO FILL IN THE0,20120,20070,20070,20100,20120/'fNZN53SS?'pNZN57SSd'zNI15:M(I,2)M(I,1)S:I:20140j'N'NI15:M(I,2)M(I,1)S:I:20140'N'NI15:M(I,2)M(I,1):M(I,1)M(I,2)S:I'NZN53ZN57SS(NP$Z$(ZN51)" "(S)" ":T(P$)1)"ADD":Z$(2)"SUBTRACT":Z$(3)"MULTIPLY BY":Z$(4)"DIVIDE BY"V&4NZL1:ZH10:SR(S)&>NZP5:300:I15:M(I,1)ZR(I):I:ZN53ZN5720060&HNZH6:SR(S):F0:I15:M(I,1)M(I,1)3:M(I,1)SF1:I5&RNI:FF0:20030'\NZN5120070,20070,2010%KI16:QU$;:J12:"!";:M(I,J)019250B%(K" ";:19260e%2K3((M(I,J))));M(I,J);" ";%f{o>_}v_>7_}w{}.;|wooq?ow?o@?_}fYo>_o?_?x?~>{m?_UvuG_@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{{on}wpg_X_nvW_{]_~n{o=_}v_>7_}o}}{}woo|?ow?o@G?_}VZo>_o?_?xx>{m?_mvw??`@?`@?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{{wn~gxs_X_nfWO{]_>n{o;_}v_>o7_}_~}>{}wOo?~?og?o@q?}6[o>_o?_?|C>{m?_}~w?@~`?@_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{`xq`~ox_8onV;W[]_]n{ow``>x`>?p>|w_ox?|go?~o@|?}vp>_<`?p>{m?_}vw?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?_}vw?~~~?~PO>zog>{k/{~}wo~{]{{}w{?|>{o7ow[n_?Wox>?|}?~?xp~@|_>?7{ox?s}|q?_}>_o~{mw{ow[o?o~xA?oOoy]_{??oogO{}}v{}`~>_}|qqpnpqan`{qqqwqq`}O{m7_}v_o7_}w{}>{}wsownw_opq?xgO|O@_~{~?_}v[>_o?w?k{m?_}vw?|x~0W]v[k6wmo.{~}w_n~{mw{}w{?y>x`ow[m_?[ox?q?@}|??_oXo{}>@?Wt?~Ox?x|}?_}>_o{mw{@}{nnnnn{~n{ynnnw|g?|{o{m7_}v_*o?_}w{}<{wwoO?w{nsox|?xO>n?_}xw_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{{nnow?~oxp67\_{]qcf{m7_}v_6o?_}w{}:{wgog?wox?o@?~`wp> 0`?x>{m?_9vs_`_@_~{~`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{