' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'з꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`ɃlXLȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QL߼J̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLISUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATA_OMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p@p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`(4)"BLOAD MAC,A35583"%35582036354B:(15);(2)H$2,16,243,2,162,20,76,18,212I952975:J:I,J:: POKE IN TRAP ROUTINEI(952256):1010,952I256:1011,I:(3)250Č1169(230,32:0:0,0:62454:CLEAR HGR 223781,202:782,208:783,245:784,174:785,0:786,3:787,76:788,2:789,3:790,96T>j DECIDE ON SOUND(4);"OPEN SOUND"(4);"READ SOUND"QQ$(4);"CLOSE SOUND"QQ$"N"Ĺ770,96 SETUP HRCG(4)"BLOAD XF.HRCG"HTON MIFFLIN AD(: PAUSE AND RUN MENU8DI12500:WN:952,12:(4);"RUN MENU"wX:952,12:(4);"RUN HELLO"} * POKE IN MUSIC ROUTINE AT 770N4770,173:771,48:772,192:773,136:774,208:775,5:776,206:777,1:778,3:779,240:780,9:ON."<17:2:"ATLANTA DALLAS GENEVA,ILL."v18:2:"HOPEWELL,N.J. PALO ALTO TORONTO"20:2:"IT IS ILLEGAL TO REPRODUCE THESE "&21:2:"MATERIALS WITHOUT PERMISSION FROM"+22:2:"THE PUBLISHER.";0 HOUG70: 5:3:"HOUGHTON"1 6:3:"MIFFLIN"J  COPYRIGHT MESSAGESy 11:2:"C OMPLETE INSTRUCTIONS FOR EACH" 12:2:"ACTIVITY ARE IN THE TEACHER'S MANUAL." 14:2:"COPYRIGHT 1983 BY"15:2:"HOUGHTON MIFFLIN COMPANY, BOST,45:770" 768,116:769,30:770< 768,111:769,40:770M 7:26:"ES"g 768,133:769,60:770 768,133:769,30:770 768,133:769,30:770 768,133:769,60:770 255 5:30:" OURSEWARE" V133:I111:768,V:769,4:VV4:7" CT" 6768,100:769,30:770: @768,103:769,40:770T J768,100:769,30:770e T4:24:"IV" ^768,107:769,30:770 h768,111:769,40:770 r768,107:769,30:770 |5:25:"IT" 6:26:"I" 768,127:769,30:770 768,121:769BWXBB B"> 3:28:"1Z ABB CDE  FG  HIJ  KLMB"` BLUE BOX AROUND MICRO M A Cg 2 I08:0,I279,I:0,(I64)279,(I64): I963:0,I7,I:272,I279,I:  MATH ACTIVITIES COURSEWARE 40 "5:16:" ATH" ,3:23:0,64:0:0,0:62454:CLEAR HGR2* x:255Z 810:900: SETUP OF SOUND EFFECTS ROUTINESy 1000: LOAD AND INIT HRCG ************ MICRO M A C PRINTED 3:11 "1 AC IMBDFEBBGBJBB L BB B" 3:20 :"1 HK NOPQRSTUI 600g 32,234,3,162,2,173,0,224,201,76,240,7,202,157,128,192,16,243,2,162,20,76,18,212I952975:J:I,J:: POKE IN TRAP ROUTINEI(952256):1010,952I256:1011,I:(3)250Č1169(230,32:0:0,0:62454:CLEAR HGR 223     $ a:t yLvh \hgQMEưikmjln[lX `ĠԤi[4W^Z2CrXw.}ɜ=>qyZDDdhxVAaGoS*WM3q9v0QN\[i796(XR4% L S jh hV]LƍSQME氥 y-$a yXVW*.C31s.5#*(IGFFG~aP3}L3tuTl_q@e_~aiKEd"*Fgc@lZ&B} QV]o|: WF|1G@ai  @2)HN&#+   4254,128("A"), "BRUN SSPROT$$1"2 ALS A=\ AND B=/. A POINT"NB0" IS ALSO NEEDED FOR A FLIP.IE / (3,2)"02AꜺ" TURNS WILL MOVE THE FIGURE CLOCKWISE"kA" BY 1/ 4, 1/ 2, OR 3/ 4. THE TURN MUST"A" TAKE PLACE AT A GIVEN POINT."A" IE. 1/ 4 ( 2, 3)"AA" FLIPS CAN BE VERTICLE, HORIZONTAL, OR" B&" DIAGON"-@"FIGURE ONTO IT'S IMAGE IN 8 TURNS OR"Z@"LESS. THE COMPUTER WILL ALSO HAVE A"w@"SOLUTION YOU CAN SEE."}@@"THE TRANSFORMATIONS ARE:"@œ@̜" SLIDES WILL MOVE THE FIGURE UP, DOWN,"@֜" RIGHT, OR LEFT."ASE....":(4);"RUN HELLO"$?@(16).?J2:6V?T"SLIDE-FLIP-TURN INSTRUCTIONS"m?^UX34:UY16:UL196?h5:US02:UX,UYUSUXUL,UYUS:US?r4:1?|"A FIGURE AND IT'S IMAGE WILL APPEAR ON A";@"GRID. USING TRANSFORMATIONS, MOVE THE38:" "=>454:" ";:14:" ";:34:" ";:38:" "p>>510:5:"PRESS THE SPACE BAR TO CONTINUE. ";>H5Z$" "(27):F0:7000:Z2ġ:410>R5"";>\5>Hq952,12::(16):(4);"RUN MENU">0u952,12?1u(16):10:"...ONE MOMENT PLEA" ";:24:" ";:34:" "Q= 54:" ";:14:" ";:24:" ";:34:" "=54:" ";:8:" ";:14:" ";:24:" ";:34:" "= 54:" ";:8:" ";:14:" ";:24:" ";:34:" " >*54:" ";:14:" ";:34:" ";:TRATEGY ACTIVITY"<4?<48:"INVOLVING MOTION GEOMETRY."n<422:5:"TYPE - TO CHANGE YOUR ANSWER."<4:5:"TYPE ESC TO END SLIDE-FLIP-TURN.";<43:73,16870,17173,174<467,18206,18206,1967,19<414:" ";=54:" ";:14:1:"";:5:40:"";:;;2Sĺ"YOU RAN OUT OF MOVES.":k;2"YOU SUCCEEDED IN "HS" MOVE";:HS1ĺ"S";;2".":A100305:768,A:769,10:770:;2;4 DRAW TITLE PAGE AND RANDOMIZE;4"";:2:11:"S LIDE - FLIP - TURN"<45:11:"A S"DO YOU WISH TO SEE YOUR SOLUTION (Y,N)?";L:/Z$"NY":F0:7000:""A$;V:/YZ1\:/z:0 ANNOUNCE 'OUT OF MOVES':01:1:"";:5:40:"";::0:"YOU HAVE RUN OUT OF MOVES.":0768,200:769,150:770:768,255:769,200:770:0;21:5:40:"";;9-::"PRESS THE SPACE BAR TO CONTINUE. ";V9 -Z$" "(27):F0:7000f9-Z2ġ:390l9-9. WISH TO SEE YOUR SOL'N AGAIN?9.A100305:768,A:769,10:770:9.1:1:"";:5:40:"";9.::"I SUCCEEDED IN 2 MOVES.".:.:EAR TRANSFORMATION LIST WINDOW>8)7:1:"";:22:14:"";D8)h8* WISH TO SEE COMPUTER'S SOL'N?8+:"DO YOU WISH TO SEE MY SOLUTION (Y,N)?";8 +Z$"NY":F0:7000:""A$;8+YZ18 +8, WAIT FOR SPACE BAR TO CONTINUE 9,1:1:"";:XF(2))83,8(Y1)367'XF(1)0XF(2)0Ė7:"NOWHERE"<7'b7'42,8(Y1)348,8(Y1)3:102407'45,8(Y1)45,8(Y1)6:102407'42,8(Y1)648,8(Y1):102407'42,8(Y1)48,8(Y1)67(1:"FLIP";:10:"("XF(1)","XF(2)")"7 (8) CL"6L'6`' SLIDE#6j'"SLIDE ";66t'XF(1)010140E6~'(XF(1));d6'49,8(Y1)355,8(Y1)36'52,8(Y1)523(XF(1)),8(Y1)352,8(Y1)66'XF(2)0101806'11:(XF(2));6'80,8(Y1)80,8(Y1)67'77,8(Y1)380,8(Y1)33(ORE PREVIOUS POSITIONB5&I02:PO(I,0)PS(I,0):PO(I,1)PS(I,1):N5&HSHS1T5&z5' RECORD TRANSFORMATION ON SCREEN5'YHS265$'Y:15)'35.'XF(0)10040,10080,10200,10210,10220,1023058' TURN6B'"TURN "XF(3)"/"XF(4)" ("XF(1)","XF(2)") 4%S0:J4% PROMPT FOR NEW PROBLEM - RETURN Y=1 IF AGAIN, Y=0 OF QUITx4%:"DO YOU WISH TO PLAY AGAIN (Y,N)?";4%Z$"NY":F0:7000:""A$;4&YZ14 &4H& SAVE CURRENT POSITION4R&I02:PS(I,0)PO(I,0):PS(I,1)PO(I,1):4\&5& REST8:36172,6:361523}%/3% CHECK FOR SUCCESSb3%I02:PO(I,0)DS(I,0)PO(I,1)DS(I,1)9690h3%p3%S13%1:1:"";:5:40:"";3%1:1:"YOU SUCCEEDED IN "HS" MOVE";:HS1ĺ"S.":96703%"."3%A100305:768,A:769,10:770:4%1:"";:5:40:"";N2X%1:1:"YOU HAVE MOVED THE OBJECT OFF THE SCREEN";2b%:"PLEASE TRY AGAIN."::"PRESS THE SPACE BAR. ";2l%Z$" ":F0:70002q%9900: RESTORE PREVIOUS POSITION2v% RESTORE SCREEN WITHOUT LINE/POINT3{%XF(0)2Ĺ36170,279,40*1^$100,40100,191:101,40101,191=1h$0,181100,181C1r$1% CHECK FOR OFF-SCREEN - RETURN OF=0 IF OK, OF=1 IF OFF SCREEN1&%I02:PO(I,0)0PO(I,0)10PO(I,1)0PO(I,1)10954010%1:%OF0:1D%OF11I%768,200:769,200:7702N%1:Y100#X210X210&0#Y210Y210[0#12315X1,4813(10Y1)12315X2,4813(10Y2)a0$t0$ DIAG. LINE B0$X1XF(1)XF(2):Y10::X110Y1X110:X1100"$12315X1,4813(10Y1)12315Y1,4813(10X1)0,$0T$ DIVIDE SCREEN1Y$3:0,401:X,B1X,B1:/x#(/# HORIZ. LINEY/#B4813(10XF(2)):YB1B1:123,Y273,Y:_/#p/# VERT. LINE/#A12315XF(1):XA1A1:X,48X,178:/#/# DIAG. LINE A (/)/#AXF(1)XF(2):X1A:Y1A:X210A:Y210A/#X10X100#Y10PO(I,1)XXF(1)XF(2)::A.(# DRAW FLIPPING LINE/TURNING POINTX.2#XF(0)2ı: SLIDEt.<# SAVE SCREEN ON PAGE 3.F#36170,6:36172,8:36152.K#3.P#XF(0)9050,9010,9090,9120,9150,9230.Z# TURN.d#A12315XF(1):B4813(10XF(2))/n#XA1A2:PO(I,0)2XF(1)PO(I,0)::O- DIAG FLIP A (/) X' = Y-B+A, Y' = -X+A+B- I02:XPO(I,0):PO(I,0)PO(I,1)XF(2)XF(1):PO(I,1)XXF(2)XF(1)::-& DIAG FLIP B X' = -Y+A+B, Y' = -X+A+B.0 I02:XPO(I,0):PO(I,0)PO(I,1)XF(1)XF(2):F(1):PO(I,1)XXF(1)XF(2):",C, SLIDE X' = X+A, Y' = Y+A|,I02:PO(I,0)PO(I,0)XF(1):PO(I,1)PO(I,1)XF(2):,, HORIZ. FLIP X' = X, Y' = 2*B-Y,I02:PO(I,1)2XF(2)PO(I,1)::, VERT. FLIP X' = 2*A-X, Y' = Y- I0O(I,0)2XF(1)PO(I,0):PO(I,1)2XF(2)PO(I,1):6+\+ 1/4 TURN X' = Y-B+A, Y'=A-X+B+I02:XPO(I,0):PO(I,0)PO(I,1)XF(2)XF(1):PO(I,1)XF(1)XXF(2):++ 3/4 TURN X' = B-Y+A, Y' = X-A+B,I02:XPO(I,0):PO(I,0)XF(2)PO(I,1)X,30:769,8:7709*T((1)T): RANDOMIZE ?* m*@ PERFORM TRANSFORMATION XF( ) ON PO( , )*JXF(0)8020,8140,8170,8190,8210,8230*T TURN*^XF(3)1XF(4)48080*hXF(3)38110*r 1/2 TURN X' = 2*A-X, Y'=2*B-Y0+|I02:P((16384)128):Z(16368):" "(8);<)(1023)107110O)A$(7)7110m)(770)96Ĺ770,173:7060)770,96:7060)F07140)A$(27)ġ::390)A$(8)ġ:6000)Z1(Z$):A$(Z$,Z,1)7160):7060) MAKE TONE*768 CONTAINS A LIST OF VALID CHARACTERSW(l Z IS THE INDEX IN Z$ OF THE TYPED CHARACTER.z(vZ(16368): CLEAR KBD STROBE( FLASH CURSOR(T0(T0ĺ" "(8);(T10ĺ" "(8);(FR(0)(TT1:T20T0((16384)1287060')A$HROUGH":" WHICH POINT? ( , )";(8);(8);(8);(8);['|6190: READ CO-ORDINATES & RETURN'"";: RESET WINDOW TO FULL SCREEN'I04:HS(HS,I)XF(I)::HSHS1: UPDATE XFORMATION HISTORY ARRAY''X SUBROUTINE TO GET A CHAR FROM KBD$(b Z$"THE HORIZONTAL";:6770*&"VERTICAL"6&"XF(0)4T&,"THE VERTICAL ";:6770d&6"DIAGONAL"&@"WHICH DIAGONAL (A=/, B="(220)")?";&JZ$"AB":7000&TZ1ĺ"/":XF(0)5:6760&^(220):XF(0)6&h"THE DIAGONAL ";4'r" LINE PASSES TRTICAL SLIDE (1,2,...9)?";:%ZZ$"123456789":7000:A$;H%dXF(2)AZY%n6800: DONEd% FLIPp%"FLIP"%"FLIP ACROSS A (HORIZONTAL,":" VERTICAL OR DIAGONAL) LINE?";%Z$"HVD":7000%Z6650,6680,6710%"HORIZONTAL"%XF(0)3&/$"AMOUNT OF HORIZONTAL SLIDE (1,2,...9)?";L$Z$"123456789":7000:A$Z$ XF(1)AZ$"VERTICAL SLIDE (UP,DOWN,NONE)?";$Z$"UDN":7000$(Z1ĺ"UP":6470$2Z2ĺ"DOWN":6470$<"NONE":XF(2)0:6510$FA32Z%P"AMOUNT OF VES EXACTLY 40 CHARACTERS LONG.)#XF(0)2V#"HORIZONTAL SLIDE (RIGHT,LEFT,NONE)?";i#Z$"RLN":7000#Z1ĺ"RIGHT";:6380: ";" USED BECAUSE THERE ARE EXACTLY 40 CHARACTERS IN THE LINE.#Z2ĺ"LEFT":6380#"NONE":XF(1)0:6420#A32Z000:A$"B4#"XF(3)A:XF(4)B^"$"TURN AROUND WHICH POINT? ( , )"(8);(8);(8);(8);}".Z$"0123456789":7000:A$;"8XF(1)Z1"B",";:7000:A$")""LXF(2)Z1"V6800: DONE" SLIDE#"SLIDE";: SEMI-COLON HERE BECAUSE THE LINE I"TSF":7000: GET A CHAR.!Z6060,6300,66009! TURNE!"TURN"Q!XF(0)1!"KIND OF CLOCKWISE TURN (1/4,1/2,3/4)? /"(8);(8);!Z$"113":7000:A$;!Z3A3:6150!A1!"/";:Z$"42":7000:A$!B62Z:6170"Z$"4":"/";:7 X12025515 AX,184' AA1- 5 A1G Y1755813T A112,Y^ AA1d j  p READ A TRANSFORMATION INTO XF( ) z SET WINDOW 1:1:"";:5:40:""; 1:1:"T YPE OF MOTION (TURN, SLIDE, FLIP)?";!F1:Z$,208:775,5:776,206:777,1:778,3:779,240:780,9:781,202:782,208:783,245:784,174:785,0:786,3:787,76:788,2:789,3:790,96(1023)10Ĺ770,96 INITIALIZE HRCG36354:(15)(2),(16), LABEL GRID3:0:1A1Y-LANGUAGE ROUTINES](4);"BLOAD TRANSFORM.SET,A36152": LOAD IN ALL BINARY FILES AT ONCE POKE IN SHAPE TABLE ADDRESS232,94:233,141: 141*256+94 = 36190 POKE IN MUSIC ROUTINE AT 770 ($302)770,173:771,48:772,192:773,136:774,1),OP(2,1),HS(20,4),SO(1,4)" = INITIALIZE VARIABLESi& SH04:X02:Y02:SH(SH,X,Y):::0 0,1,0,0,1,0,0,1,1: 1,1,0,1,0,0,1,1,1D 1,0,1,1,1,1,1,0,0N 1,1,1,1,1,0,0,0,0X 1,1,0,1,1,0,1,1,1  INITIALIZE ASSEMBLXQ1,YQ1XQ,YQXS,YSXS1,YS1XQ1,YQ12B :pG 36170,8:r36172,6:36152: TRANSFER PAGE 3 BACK TO PAGE 2H 230,64: TELL APPLESOFT TO DRAW ON PAGE 2 I 24:1:" ";L  DIMENSION VARIABLES SH(4,2,2),PO(2,1),PS(2,1),DS(20SH(SH,X1,Y)12290SXR1,YR1XQ1,YQ1XQ,YQXR,YRXR1,YR1XQ1,YQ1` BOTTOMnY02320 SH(SH,X,Y1)12330 XP1,YP1XR1,YR1XR,YRXP,YPXP1,YP1XR1,YR1 TOP$ Y22360. SH(SH,X,Y1)12370*8 XS1,YS1)Y(Y3Y2)(X1)))AXS12315(X1(X3X2)X(X2X1)(Y1))rYS4813(10(Y1(Y2Y1)(Y1)(Y3Y2)X)) LEFT SIDEX02240SH(SH,X1,Y)12250XP1,YP1XS1,YS1XS,YSXP,YPXP1,YP1XS1,YS1 RIGHT SIDEX2228P12315(X1(X3X2)X(X2X1)Y)PYP4813(10(Y1(Y2Y1)Y(Y3Y2)X))XQ12315(X1(X3X2)(X1)(X2X1)(Y1))YQ4813(10(Y1(Y2Y1)(Y1)(Y3Y2)(X1)))XR12315(X1(X3X2)(X1)(X2X1)Y)YR4813(10(Y1(Y2Y1G>A12315XP12315XQ(XQXP):A,4813(10YP)A,4813(10YQ):OH:fR DRAW DESTINATIONWX1DS(0,0):X2DS(1,0):X3DS(2,0):Y1DS(0,1):Y2DS(1,1):Y3DS(2,1)\3fX02:Y02k768,X3030:769,10:770pSH(SH,X,Y)02370#zX):Y1PO(0,1):Y2PO(1,1):Y3PO(2,1))2;X02:Y02Y768,X3030:769,10:770p SH(SH,X,Y)02120XPX1(X3X2)X(X2X1)Y YPY1(Y2Y1)Y(Y3Y2)X*XQX1(X3X2)(X1)(X2X1)(Y1)4YQY1(Y2Y1)(Y1)(Y3Y2)(X1)ON OF SCREEN @0:122,47274,47: CLEAR LINE JUST ABOVE GRIDd36449,64: HRCG BACK TO PAGE 2t DRAW GRID{3X12327315:X,48X,178::Y4817813:123,Y273,Y: DRAW CURRENT POSITION OF SHAPE"X1PO(0,0):X2PO(1,0):X3PO(2,0THINKING...";D36170,6:36172,8:36152: COPY HI-RES P.2 TO P.3w230,96: TELL APPLESOFT TO DRAW ON HI-RES P.336449,96: TELL HRCG TO WRITE ON PAGE 3 IN ORDER TO CLEAR PART OF PAGE 3 SCREEN 18:7:"";:39:23:"";: CLEAR GRID PORTI)OP(I,1)1270^A02:B01:PO(A,B)PS(A,B):::768,50(1)80:769,15:770:1190yA04:SO(1,A)XF(A):A02:B01:DS(A,B)PO(A,B):PO(A,B)OP(A,B):: HS0 DRAW GRID, CURRENT POSITION, AND DESTINATION:24:1:"2)2)XF(2)VA((1)3)1:XF(3)(A1)(A2)3(A3):XF(4)4(A1)2(A2)4(A3)|A02:B01:PS(A,B)PO(A,B)::8000: PERFORM XFORMATIONI02:PO(I,0)0PO(I,0)10PO(I,1)0PO(I,1)101260I02:PO(I,0)OP(I,0)PO(I,1!~ CHOOSE ANOTHER XFORMATIONJSO(0,0)2XF(0)((1)2)21:1180`XF(0)((1)3)1XF(0)3XF(0)XF(0)((1)4)XF(1)((1)10):XF(2)((1)10):XF(1)0XF(2)0XF(0)21190 XF(0)2XF(1)(1((1)2)2)XF(1):XF(2)(1((1)(2)(1((1)2)2)XF(2)cQA((1)3)1:XF(3)(A1)(A2)3(A3):XF(4)4(A1)2(A2)4(A3)V8000: PERFORM XFORMATION`I02:PO(I,0)0PO(I,0)10PO(I,1)0PO(I,1)10āA02:B01:PO(A,B)OP(A,B):::1100jtA04:SO(0,A)XF(A):,0):PO(1,1)PO(2(1F3),1)@.A02:B01:OP(A,B)PO(A,B)::[8 CHOOSE AN XFORMATIONBXF(0)((1)3)1:XF(0)3XF(0)XF(0)((1)4)LXF(1)((1)10):XF(2)((1)10):XF(1)0XF(2)0XF(0)21100NXF(0)2XF(1)(1((1)2)2)XF(1):XF"THINKING...";?SH((1)5): CHOOSE A SHAPE ] CHOOSE INITIAL POSITIONA((1)6):B((1)6):F1((1).5):F2((1).5):F3((1).5)PO(0,0)A3F1:PO(2,0)A3(1F1)PO(0,1)B3F2:PO(2,1)B3(1F2)$PO(1,0)PO(2F38:10020: RECORD XFORMATION ON SCREENQ^9a00: DRAW FLIPPING LINE/TURNING PTph8000: PERFORM XFORMATION|rSOSO1|3009700: PROMPT FOR NEW PROBLEMY50:"";29000: RETURN TO MENU GENERATE A PROBLEM24:1:Y3901 10500: CLEAR XFORMATION LIST WINDOWW A02:B01:PO(A,B)OP(A,B)::` "SO0| ,2000: DISPLAY PROBLEM 6SOHSİ13000:120: ANNOUNCE SUCCESS & GO BACK @11500: WAIT FOR SPACE TO CONTINUE JA04:XF(A)HS(SO,A):'TYSO21500: WAIT FOR SPACE TO CONTINUE= A04:XF(A)SO(SO,A):o YSO28:10020: RECORD XFORMATION ON SCREEN 9000: DRAW FLIPPING LINE/TURNING PT 8000: PERFORM XFORMATION SOSO1 170 12000: WISH TO SEE YOUR SOLUTION AGAIN? dOF1707 i10000: RECORD TRANSFORMATION ON SCREEN? n60j x11000: WISH TO SEE COMPUTER'S SOL'N?v Y390 10500: CLEAR XFORMATION LIST WINDOW A02:B01:PO(A,B)OP(A,B):: SO0 2000: DISPLAY PROBLEM SO2250! 19600: CHECK FOR SUCCESS# BS120H CHS8İ12500:120: OUT OF MOVESj F6000: READ A TRANSFORMATION K9000: DRAW FLIPPING LINE/TURNING POINT M9800: SAVE CURRENT POSITION P8000: PERFORM TRANSFORMATION Z9500: CHECK FOR OFF SCREEN INITIALIZE VARIABLESA *13500: DRAW TITLE PAGE AND RANDOMIZE X -5000: LABEL GRIDr .9300: DIVIDE SCREEN 21000: GENERATE A PROBLEM 410500: CLEAR TRANSFORMATION LIST WINDOW <2000: DRAW GRID, CURRENT POSITION, AND DESTINATION A}:ONERR GOTO 30000 %952,32B NEW 82/11/29 04:00 DBSN OLD ?f DESIGN DOUG SUPER PROG GRAEME CLARKE "SLIDE FLIP TURN"32768:361514000: INITIALIZE HRCG AND MUSIC ROUTINE3000: DIM ARRAYS (3100:                              L>xx?? ?8p`? xxxxxx000000?8p`x``<<000??>cAAA 0080000xxx??? 00008000000????00000@`Ppp @p||~wsc?wgcppx<<|aceggr9?0000000xx@@`@`00xxxx`p8xxxxxxxx`p8x`` @@@@@pp0000008x`??0 xxp@p0000`@?0000@@`````pxp0000?000??80000 @`0xx??0??08 ?? ???000000000000?888888800008`p8`p@@@@@`p0xx@@``0xxxx@`p000xxpxppxxp8p`pp   >Ꜻ8>NP1ĺ"THE COMPUTER WILL BE YOUR OPPONENT.":h>"THE FIRST PLAYER TO CLIMB TO THE TOP OF">"THE LADDER AND RING THE BELL WINS.">TIME1:4:24:"PRESS THE SPACE BAR TO CONTINUE. ";:Z$" ":X37:Y24:(11);:8000>0=5="CORRECTLY REPLACE EACH LETTER WITH ONE"b="OF THE NINE NUMBERS AT THE TOP OF THE"r="SCREEN. "x=œ=̜"YOU ARE ALLOWED THREE MISTAKES BEFORE"=֜"YOUR TURN IS UP. IF YOU TAKE TOO MUCH"="TIME, IT WILL COUNT AS A MISTAKE.":UY16:UL21768+ PRINT MESSAGES AT THE BOTTOM OF THE SCREEND8 +P8+(11);8 +TIME1:1:24::" PRESS SPACE BAR TO SEE THE ANSWERS. ";8%+Z$(32):X38:Y24:(12);:80008*+1:24:(12);:" PRESS ESC TO LEAVE FRACTION CHALLENGE. ";947%K130:K7%7707%JM7%CHANCE(100)50A1CHANCE(9):A2I:9660_7%A2I:A1R(A2)7%11:3:A1;:11:4:(A264);7%J1300:J7%50607'(16):952,12:(4);"RUN MENU"8'(16):952,12:10:"...ONE MOMENT PLEASE....":(4);"RUN HOU WISH TO PLAY AGAIN? (Y OR N) ";:(11);S6<#X37:Y24:Z$"YN":TIME1:8000e6A#X:Y:""A$;6F#A$"Y"ĺ(16):::1856P#(16)6#99996% 6&%6%I196%R(I)99996256%I6%K1500:K7%J110:768,CHANCE(50)70:769,10)"5"8:19:N$(0):32:19:N$(0),5"870025"@5"N4:8900I5"N36U5"I130g5"N:10:L$(0)z5"N:10:L1$(2)5"768,100:769,10:7705"J110:J5"N:10:L$(0)5#N:10:L1$(1)5 #J110:J5#I5(#TP19999/62#1:24:"DO Y80T4y"SCR(1)SCR(2)Ė36:12RU(2):" ";:36:11RU(2):" ";:36:10RU(2):" ";z4~"SCR(1)SCR(2)RU(2)RU(2)SCR(2)4"RU(2)1RU(2)04"SCR(1)SCR(2)İ28204"RU(2)088905"PN1:SCR(1)0:SCR(2)0:8:19:L$(0);:32:19:L$(0):11:3:L$(06:" P LAYER 2 ";23d"NP1Ė32:6:" C OMPUTER "M3e"SCR(1)SCR(2)İ130003f"SCR(1)SCR(2)Ė4:12RU(1):" ";:4:11RU(1):" ";:4:10RU(1):" ";3j"SCR(1)SCR(2)RU(1)RU(1)SCR(1)3l"RU(1)1RU(1)03p"SCR(1)SCR(2)İ28204t"RU(1)08824:" P RESS THE SPACE BAR TO CONTINUE. ";:Z$" ":X35:Y24:(11);:80002."1:24:(12);:" PRESS ESC TO LEAVE FRACTION CHALLENGE. ";28"2`" SCORING ROUTINE2b"Y622:12:Y:" ";:Y: CLEAR FRACTIONS3c"NP2Ė32::770 1D 14!"1>! MUSIC BLAP(1H!M1R!I110:768,200:769,10:770:IS1f!Z1! l1! HAPPY MUSICr1!1!I110:768,CHANCE(50)50:769,8:770:I1!1!1" PRINT MESSAGES AT THE BOTTOM OF THE SCREEN1"1"(11);P2"TIME1:1:(16384)128806070 A$((16384)128):Z(16368)P0 A$(27)MGESC1:c0 A$(27)9000v0 (A$)782200 (1023)1080600 (770)96Ĺ770,173:80600 770,96:80600 Z1(Z$):A$(Z$,Z,1)82500& 00 80601: 768,30:769,8X:Y;/T10ĺ" "(8);:TIME1Ė24PN16:9:N$(TIME);o/T0ĺ" "(8);:TIME1Ė24PN16:9:L$(0);/TT1:T20T0/FR(0)/TIME18190/JJ1:J50TIMETIME1:J0/TIME108190/8500/11:3:L$(0)/:5068019:N$(SCR(PN));:SCR(PN)9İ86006.SCR(PN)95145@.8700J.5074\.11:3:L$(0)f.5030l.@.J Z$ CONTAINS A LIST OF VALID CHARACTERS.T Z IS THE INDEX IN Z$ OF THE TYPED CHARACTER..^Z(16368).h FLASH CURSOR.rT0:J0/|:V(Y):5125 -H(X3):V(Y)2[-N$(R(A2)):R(A2)999: REMOVE THE NUMBER FROM THE LISTj-X3XX3- L7H(X)7:M8V(Y)7:L,ML14,M:L,M1L14,M1-I19:A1SRT(I)Ė113I:3:L$(0):SRT(I)1:5140-I".SCR(PN)SCR(PN)1:24PN16: WHO WON THE ROUND AND KEEP S CORE =,3170r, BLANK OU THE LETTER AND REPLACE WITH A NUMERAL, COMPUTE THE COORDINATES OF THE LETTER,Y((P(A2)1)6)1,XP(A2)((P(A2)6)6),X0X3:H(3):V(Y)2:5125 -X4ĖH(X)+8500&+11:3:" ";:11:4:" ";O+NN1:N35030: ALLOW TWO MISTAKESz+11000: PRESS SPACE BAR TO CONTINUE+12000: ANSWERS FILLED IN+8700: PRESS SPACE BAR TO CONTINUE3,PNPN1:11:3:L$(0):PN3İ8800: FIND OUT ORE *8*N0: N IS THE NUMBER OF MISTAKES PER TURNC*TIME0r*PN2NP1ī9600: HAVE THE COMPUTER GUESS*X11:Y3:Z$"123456789":8000*A1(A$):11:3:A$;*X11:Y4:Z$"ABCDEFGHI":8000*A2(A$)64:11:4:A$;*R(A2)A15080)I19:P1)J191)R(I)R(J)PP1J)R(I)R(J)IJPP1l)768,CHANCE(50):769,10:770s)J)SRT(P)I:I)$I19:113I:3::N$(R(SRT(I)));:I).I19:SRT(I)R(SRT(I)):I)* TAKE RESPONSES FOR PN, KEEP TRACK OF SCOP(I)4740,4750;(120,Y4127,Y4:127,Y4120,Y4:4760o(119,Y127,Y:119,Y1127,Y1:123,Y3:123,Y2(123,Y4:123,Y3(154,Y1161,Y1:154,Y1161,Y1(I(( SORT POSSIBLE RESPONSES AND PAINT AT THE TOP OF THE GAMEBOARD)ION LINES''4N(I,J)9N(I,J)9004690E'>D(I,J)9D(I,J)9004690{'HCX,CY15CX14,CY15:CX,CY16CX14,CY16:4700'RCX11,CY15CX14,CY15:CX11,CY16CX14,CY16'\J'f PRINT PROPER OPERATION SIGNS AND EQUAL SIGNS'pY3240I(z10))"&D(I,J)9D(I,J)90045604&H(J):V(I)2U&D(I,J)10ĺN$(D(I,J)):4640&L$(D(I,J)911):XCX1:YCY15:ZCX15:TCY32:3000&4640&H(J)2:V(I)2:N$((D(I,J)10))&H(J):V(I)2:N$(D(I,J)((D(I,J)10)10)) '  PRINT FRACT!%X CHECK IF N(I,J) IS UNKNOWNB%bN(I,J)10ĺN$(N(I,J)):4510p%l PRINT A LETTER AND DRAW A BOX AROUND IT%vL$(N(I,J)911):XCX1:YCY1:ZCX15:TCY16:3000%4510%H(J)2:V(I):N$((N(I,J)10))&H(J):V(I):N$(N(I,J)((N(I,J)10)OMPUTER":4360:$2:6:"PLAYER 1":32:6:NP4330,4335S$" COMPUTER":4360l$" PLAYER 2":4360w$(11)$ PRINT THE FRACTION QUESTIONS$$&I13$0J13$:CX7H(J)7:CY8V(I)8$DN(I,J)9N(I,J)9004490%NH(J):V(I)P%#N(I,2)900P(N(I,2)911)6I4I#D(I,2)900P(D(I,2)911)6I1P#IV#t# PAINT THE CHALLENGE SET# INDICATE WHOSE TURN IT IS#PN4310,4325#(12)#2:6:" PLAYER 1";:32:6:NP4320,4315#"PLAYER 2":4360$"CN(I,N):N(I,N)3I909:P(3I2)6I6N["@R(3I1)D(I,L):D(I,L)3I910:P(3I1)6I3L"JR(3I)D(I,M):D(I,M)3I911:P(3I)6I3M"TOP(I)14250"^"h CHANGE X QUESTIONS BACK TO / QUESTIONS."r#|TEMPN(I,2):N(I,2)D(I,2):D(I,2)TEMI,N):D(I,N)3I911:P(3I)6I3N,!41802!P! DELETE TWO DENOMINATORSV!j!D(I,L)104090!L1L2:M3:4120!L1:4120!D(I,M)104120!M2M3:4120!L1:M2!N(I,N)104150!"N3NN1:4150!,N1'"6R(3I2) dN1 nH x R(9) IS THE ARRAY THAT CONTAINS THE CORRECT RESPONSES  P(9) CONTAINS THE POSITION INDICES OF THE LETTERS A-I  R(3I2)N(I,L):N(I,L)3I909:P(3I2)6I6L R(3I1)N(I,M):N(I,M)3I910:P(3I1)6I6M"!R(3I)D(M3:3810L3L1:M3+NCHANCE(3)BCHANCE(2)14030Hc DELETE 2 NUMERATORSi }N(I,L)103890L1L2:M3:3920(L1:39202N(I,M)103920<M2M3:3920FL1:M2PD(I,N)103990ZN3NN1:3990TEMP/`TEMPD(I,1):D(I,1)D(I,3):D(I,3)TEMP6jI<tQ~ DELETE NUMBERSWbI13 SWITCH / QUESTIONS TO EQUIVALENT X QUESTIONS.OP(I)13770TEMPN(I,2):N(I,2)D(I,2):D(I,2)TEMPLCHANCE(3)L1M2:3810 L2NCE(2))OP(1)1OP(2)1OP(3)2:3620LOP(1)2OP(2)2OP(3)1:3620aOP(3)CHANCE(2)g$. SWITCH THE ORDER OF N(I,1),D(I,1) AND N(I,3),D(I,3) IF THE OPERATION IS /.8BI13LOP(I)13690VTEMPN(I,1):N(I,1)N(I,3):N(I,3)D(I,3)DIV- 768,CHANCE(50):769,10:7704 I:  DECIDE WHICH OPERATION TO APPLY TO EACH SET OF FRACTIONS AND ORDER THE FRACTIONS ACCORDINGLY. MAKE SURE THAT THERE IS AT LEAST ONE X AND ONE /.  OP(1)CHANCE(2) OP(2)CHARODUCTS TO LOWEST TERMS BY DIVIDING)p Kz N(I,3)D(I,3)MN(I,3):3470h N(I,3)D(I,3)MD(I,3)x DIVM11 N(I,3)DIV(N(I,3)DIV)D(I,3)DIV(D(I,3)DIV)3500 768,CHANCE(50):769,10:770 DIV N(I,3)N(I,3)DIV  D(I,3)2)RP(D(I,2),CHANCE(RP(D(I,2),0)))E 768,CHANCE(50):769,10:770L IR * CALCULATE THE THIRD FRACTION IN EACH SET4 9 768,CHANCE(50):769,10:770> I13H D(I,3)D(I,1)D(I,2)R N(I,3)N(I,1)N(I,2)\ #f REDUCE THE P CHOOSE OPERATION X OR /  + I23A D(I,1)CHANCE(9)N J1I1f D(J,1)D(I,1)3270 768,CHANCE(50):769,10:770 J N(I,1)RP(D(I,1),CHANCE(RP(D(I,1),0))) D(I,2)CHANCE(9) D(I,2)D(I,1)D(I,2)N(I,1)3320# N(I,g 12:Y:" "&h YFi I19:113I:3:L$(0):ILj bl D(1,1)CHANCE(9)v N(1,1)RP(D(1,1),CHANCE(RP(D(1,1),0))) D(1,2)CHANCE(9) D(1,2)D(1,1)D(1,2)N(1,1)3200 N(1,2)RP(D(1,2),CHANCE(RP(D(1,2),0))) TICAL LINES  X,YX,T/& X1,YX1,T<0 Z,YZ,TM: Z1,YZ1,TSD YN X CHOOSE 3 SETS OF TWO PAIRS OF NUMBERS PAIRWISE PRIME AND SUCH THAT 3 NUMBERS IN EACH SET ARE DIFFERENT.b d CLEAR CHALLENGE SET AREAe f Y622L1$(1);:36:10RU(2):L1$(1);$T A^ LADDER RUNG SUBROUTINEQr I951598Xw 1v| 17,I37,I:17,I137,I1} 2 242,I262,I:242,I1262,I1 3 I   HORIZONTAL LINES  X,YZ,Y X,TZ,T  VER00" X206::Z207:T168:2:30009 X72:Z73:1:3000] 4:8:L1$(3):36:8:L1$(3):3w 2780: PAINT LADDERS 3180 X16:Y85:Z17:T168:1:3000 X37:Z38:3000 X241:Z242:2:3000 X262:Z263:3000 3 4:10RU(1):d X'n PLOT TIME AND SCORE BOXESEx X47:Y62:Z65:T82:3000[ Y142:T162:3000q X215:Z233:3000 Y62:T82:3000 8:19:N$(0):32:19:N$(0)  PAINT BELL STANDARDS X30:Y54:Z72:T55:1:3000 X207:Z254:2:30OMPUTER";. 7:12:"TIME":31:12:"TIME"W 6:22:"SCORE";:31:22:"SCORE";# 2:3:" N UMBER : ":2:4:"L ETTER : "$ (11)( 2 PLOT TOP ROW OF BOXESF X8925721P Y14:ZX18:T34Z 3000: GO TO THE BOXPLOT SUBROUTINEMG0ESCESC0:15007(16):CLEAR SCREEN @PN1G ] PAINT GAMEBOARD~ PRINT TOP AND BOTTOM LINES " ":1:1:"TYPING 7B TESTS 7 AT POSITION B." 8750 2:6:"PLAYER 1":32:6:"PLAYER 2"  NP1Ė32:6:"C2161,142:154,144161,1445X36:Y8:Z$"12":8000BNP(A$)R36:8:A$;fRU(1)9:RU(2)9p8:3"DO YOU WANT INSTRUCTIONS? (Y OR N) ";TIME1:Z$"YN":X38:Y8:8000TP238:8"";A$;MG1A$"Y"İ4000015:19:N$(4):20:19:N$(3):26:19:N$(2)S^ FRACTION LINES AND BOX AROUND AthX99:Y143:Z112:T144:3030rX134:Z147:3030|X176:Z189:3030X97:Y127:Z113:T144:3030 X SIGN119,138126,146:119,146126,138154,14ONS."0TP1: INDICATES TITLE PAGE DISPLAYED]8:6:"WILL THERE BE 1 OR 2 PLAYERS? "h-(11).5:I177181:0,I278,I:187502RU(1)3:RU(2)762780: PAINT LADDERS@TIME1J15:17:L$(1):20:17:N$(2):26:17:N$(1)-T,7,8,0,0% PAINT TITLE PAGE+6(16)eSCR(1)0:SCR(2)0: SET PLAYER SCORES TO 012:3:"FRACTION CHALLENGE";5:I2529:0,I278,I:3:5:"A STRATEGY GAME INVOLVING DIVISION"4:6:"AND MULTIPLICATION OF FRACTI $I19 .J08" 8RP(I,J)) BJ0 LIH V 8,2,3,4,5,6,7,8,9` ` 5,1,3,5,7,9,0,0,0x j 6,1,2,4,5,7,8,0,0 t 5,1,3,5,7,9,0,0,0 ~ 8,1,2,3,4,6,7,8,9  3,1,5,7,0,0,0,0,0  8,1,2,3,4,5,6,8,9  5,1,3,5,7,9,0,0,0 6,1,2,4,5L1$(1)"2!<#$%&"1 L1$(2)"2!'#(%&"J L1$(3)"20P;/?>"P   READ SETS OF RELATIVELY PRIME NUMBERS TO EACH OF THE NUMBERS FROM 1 TO 9  THE 0 ENTRY COMTAINS THE NUMBER OF NUMBERS RELATIVELY PRIME TO EACH OF THE NUMBERS "19OL."! JN$(10)"  "7 OL$(0)"2  "M TL$(1)"21QAZ"c ^L$(2)"22WSX"y hL$(3)"23EDC" rL$(4)"24RFV" |L$(5)"25TGB" L$(6)"26YHN" L$(7)"27UJM" L$(8)"28IK," L$(9)"29OL." H(1)15:H(2)20:H(3)26:V(1)8:V(2)13:V(3)18E N$(0)"10P;/"[ N$(1)"11QAZ"q N$(2)"12WSX" N$(3)"13EDC" N$(4)"14RFV" N$(5)"15TGB" "N$(6)"16YHN" ,N$(7)"17UJM" 6N$(8)"18IK," @N$(9) I770790:D:I,D:^ 173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96v (1023)10Ĺ770,96 7:"" RP(9,8),D(3,3),N(3,3),OP(3),R(9),P(9),N$(10),L$(10),L1$(3),H(3),V(3),SRT(9),SC(2),RU(2) CHANCE(N)((1)N1)/ 6 10000952,32: PROGRAMMED BY LES DUKOWSKIS FRACTION CHALLENGE^ 24576d(4);"BLOAD CHALLENGE.SET,A";34815:n3481536358,255:36359,13536354: INIT HRCG:(15)(2)(16) INITIALIZE MUSIC ROUTINE                              L@@@@@pp0000008x`??0 xxp@p0000`@?0000@@`````pxp0000?000??80000 @`0xx??0??08 ?? ???000000000000?888888800008`p8`p@@@@@`p0xx@@``0xxxx@`p000xxpxppxxp8p`pp     L`p >> 33 x @`````pxxx xxx p``````  ```px``00  p`Q$(0)"GREATEST":Q$(1)"LEAST":ABC$"ABC":BL$" " ";:A:&8:Y:" W ILL THERE BE 1 OR 2 PLAYERS? ";U&Z$"12":250:NPZ:A$;e&ESC1ī200o&8:Y&"DO YOU WANT INSTRUCTIONS? (Y OR N) ";&Z$"YN":250:ESC200&"";A$;&A$"Y"İ40000:ESC1970& ,' P(2),E(2),N(2),EN(AKING SENSE OF PERCENTS ":5:7:"A QUIZ INVOLVING ESTIMATION":6:5:"OF PERCENTS OF WHOLE NUMBERS."%22:6:"PRESS ESC TO LEAVE P ERCENTS.";%A1503010:1770:N95:220:XN5:N8:220:JN10:N25:220:IN5 &J:I:X;"%";:N1A2::I:,$X1,155Y1,155Y1,180X1,180X1,155=$X(I1)292g$21:X:"";PL$(I);:22:X:"$0 ";n$It$$ - OPENING SCREEN$(16)$2$Y2:0,0272,0272,1810,1810,0$1,1271,1271,1801,1801,1$ESC0:W0f%3:8:" MIT GAME VARIABLES-#b(16);:I1NP:SC(I)04#g2U#i1,1273,1273,1801,1801,1#l0,0274,0274,1810,1810,0:24:1:" PRESS ESC TO LEAVE P ERCENTS. ";:0,108274,108#vX(I1)2022:Y(I1)20270#X,156Y,156Y,179X,179X,156="C(I)(A(I)10E(I))10: GET NUMBER TO TAKE PERCENT OFc"D(I)E(I)100N(I): GET ANSWERv"&L(I)((I))|"0": 120,10,100,10,80,10,80,10,80,20"D -1,0"N 173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96#X -- IN769,60:770:768,80:769,120:770:768,95:769,60:770:768,80:769,240:770R!b!-MAKE TONEv!B8:A200B40!768,A:769,B:770:!A(I)((FT$,(I1)21,1)): GET ITH PIECE OF FT$!B(I)((FD$,(I1)21,1)): GET ITH PIECE OF FD$);"BLOAD PERCENT.SET,A";35583:35582: LOAD NUMBERSM 36358,255:36359,138q 36354::(15)(2),(12),(16) I1100:A,B:A1ī1700 I I770790:D:I,D: (1023)10Ĺ770,96L!768,160:769,60:770:120,72:769,60:770:768,95:6:"WIN!!!!";:A100J10:1770:0^J:" ":uh24:1:(5);:24:2:"DO YOU WISH TO PLAY AGAIN? (Y OR N) ";kY0:Z$"YN":ESC0:T1:250:A$"Y"Y1mESC1ESC0:1643n""A$;rA100:1770:| INIT HRCG,MUSIC,FUNCTIONS3 :(42:2:" ";a@8:12:(11);PL$(PL);:10:12:"YOU WIN!!!!";kA1720BPAUSE1100:PAUSEC1720:PAUSE1100:PAUSEDPA200501:768,PA:769,10:770:JJ503010:16:BL$;:AJ10010:1770:"T1I)));A(I);:. - PRINT ROUNDING RULE?I02:1580iX$"0."(E(I)):X$"0.100"X$"1.00"X$;" * ";(BL$,1,5L(EN(I)));EN(I);" = ";(BL$,1,4L(A(I)));A(I);"I:,17I:2:"";(ABC$,I1,1);". ";:6-PRINT WINNER.;):FDB(E(I)):FD0FD10#1580tFT;"/";FD;:11:"*";(BL$,1,5L(N(I)));N(I);" = ";(BL$,1,4L(A(I)));A(I)|: - PRINT 10% RULEI02:1580 XE(I)10:YN(I)10:(BL$,1,2L(X));X;" *";(BL$,1,5L(Y));Y;" = ";(BL$,1,5L(A(TO CONTINUE. ";:Z$" ":250:ESC1ı^s24:1:" PRESS ESC TO LEAVE P ERCENTS. ";xI419:I:2:BL$;BL$;BL$;" ";:I2122:I:15:BL$;" ";::0,108274,108X(0): - PRINT FRACTION RULEI02FTA(E(I)0SC(PL)0V(22:(PL1)292:" ";:(PL1)292:"$";SC(PL);:SC(PL)5000W1c2X(0):< PRINT COMPUTER'S STRATEGYF16:2:"USING THE ";ST$(ST);" .";PST0İ1430ZST1İ1490dST2İ1530$n24:4:" P RESS THE SPACE BAR 18:"OF $";LVL250250;".";aI110:A100:1770:N2:220:21:24:(N1)10;"%";:J1I20::X(LVL250250)(N1)10:1310 13:29:" CORRECT!!";:1720:XLVL250250XLVL250250:21:15:"YOU WIN $";X;"."; SC(PL)SC(PL)X:SC(PL)368,0:X65X67A200:1770:II1:1210JG$(X):13:N:"";G$;:1240f2:30:" ";:30:I;A100:B3:1780:II1:I011602:29:"TIME'S UP!";AN$G$129013:23:"SORRY ";AN$;" IS RIGHT.";:21:15:"YOU LOSE";22:;:34:"SECS.";t16368,05~IY1:N13(Q$(L))w13:N:(9);" ";(14);(8);:J1500::" ";(8);:J1100:X(16384)128:X0ī1210X27ESC1:X71190(1023)101190(770)173Ĺ770,96:1190770,173(16):Z$(X$,(X$)1X,1):J:39(X3):" ";N$((Z$));" ";bL:I:2:12:"FOR $";LVL250250;",";VN1:220:LN:AN$(ABC$,AN(L)1,1):13:2:"WHICH IS ";Q$(L);" ?";`Y(3LVL)1030: SET MAXIMUM TIME FOR GUESS, 50,40,30 SECSjG$"":2:30:YX1 " -- PRINT QUESTIONSMJ282:J:12:BL$;BL$;" ";:$I02:JI34:J:2:N$(13I);:J:4:N$(11);:J:15:N$(12);.X$(P(I)):X1(X$):Z$(X$,(X$)1X,1):J:15(X2):" ";N$((Z$));" ";8:7BX$(N(I)):X1(X$ EST ANSWERS ARE WELL ORDEREDIX1:Y99999:I02:EX(I)P(I)N(I)100fEX(I)XXEX(I):AE(0)IuA40:1770EX(I)YYEX(I):AE(1)II:X(AN(0)AE(0))(AN(1)AE(1))(A(0)A(1))(A(0)A(2))(A(1)A(2))X11025AE(0)9AE(1)90)IfN(I)C(I):930+pII1:I3I0SzA(I)A(L)(A(L)10(DLVL)):AN(1)IgN(I)C(I):930w980:X730}A60:1770:ST1A(I)D(I):EN(I)(N(I)100.5)100A(I)E(I)100EN(I):L9:740: CHECK THAT EXACT ANDNL:220:NN(L2.5):P(I)E(I)N:P(I)100P(I)100< IN*D5:ST1D44N2:220:LN:IN: -- RANDOMLY CHOOSE FIRST QUESTION>J5(DLVL):NJ2:220:A(L)(N(5J))100HN(I)C(I):930RII1:I3I0\A(I)A(L)(A(L)10(DLVL)):AN(J110:X(XFD)FDJ10:690*XX101JLN(I)X:A(I)N(I)FTFD]A60:1770:{ -- 10%RULE AND ROUNDINGL2:ST2L9I02:E(I)0N9:220:N(N1)10:J0JI1790E(J)N750 JJ1:A50:1770:7605E(I)N:A(E(I)):FDB(E(I)):FD0FD10(X660;bII1:I3I0clA(I)A(L)(A(L)10(4LVL)):AN(1)IvFTA(E(I)):FDB(E(I)):FD0FD10660:980:X440XA(I)FDFT:X(X10.5)10: NUMBER SHOULD HAVE 1 OR 2 SIG FIGURES IN 3 DIGITSz#   Ϡ   ԮԠ ӮԠΠŠ8 ŮԠ ĠРΠӠ< ĠϠԤ ƮǠ àĠԠàӠ@ ҮԠǠŠƠԠ&"Ԥ "ՠ!ҠϠŠ ҮԠŠРΠ2 ȠŠ3 ͮԠ 31,2))*LVL1N2:220:P(I)P(I)N11IgN2:220:LN:IN:-CHOOSE FIRST QUESTION RANDOMLYN3LVL:220:A(I)(N4LVL)100&FTA(E(I)):FDB(E(I)):FD0FD100660:II1:I3I0DA(I)A(L)(A(L)10(4LVL)):AN(0)INFTL3J3:N2:220:STN*ST0İ430:5720:i -- FRACTION RULE (GET FRACTIONS FROM LIST F$)}L10:LVL1L5I02:E(I)0NL:220:NN1:J0JI1500NE(J)460JJ1:A50:1770:470E(I)N:P(I)((F$,(E(I)1)ʲ--GENERATE PROBLEMP h2:2:" PLAYER ";PL;": DO YOU WANT A QUESTION WORTH"; rN13:N22:12:"";(ABC$,N,1);". $";N250250;: |6:24:"? ";:C$" ":T1:Z$" ABC":250:ESCı " ";A$;" " A$"A"LVL1 A$"B"LVL2A$"C"LV(16384)128270B "A$((16384)128):Z(16368):" "(8);T '(A$)7300h ((1023)10300 )(770)173Ĺ770,96:270 *770,173:270 ,Z1(Z$):A$(Z$,Z,1)303 - .270 /768,30:769,8:770 1A$(27)ESC1: T ^ER BE TWEEN 0 AND N INCLUSIVE - WEIGHT ALL INTEGERS THE SAMEP X((1)(N1))i NX(X(N1))(N1)o INPUT ROUTINE Z$Z$(27) Z(16368) T0:ESC0 T0ĺ" "(8); FR(0) T10ĺ" "(8); TT1:T20T0 PL2:Q10000:170) ESC1PL2:Q100004 PL:QV 1640: ASK IF ANOTHER GAMEj Y1ĺ(16):70 (16):952,12::(4);"RUN MENU" (16):952,12:10:"...ONE MOMENT PLEASE....":(4);"RUN HELLO" : ********< -- GET RANDOM NUMBESC1180. Z1880: -- INIT GAME VARIABLES` dQ110000:PL1NP:350: GENERATE PROBLEMS} nESC1PL2:Q10000:170 x1040: PRINT QUESTION, GET ANSWER & SCORE ESC1PL2:Q10000:170 1340: -- PRINT COMPUTER'S STRATEGY Wİ1590:$ 215952,32? FINAL BY DAVID HAMILTON 29/11/82\ DESIGNED BY DOUG SUPER| PROGRAMMED BY GAIL NEWELL 24576(1660: -- INIT HGR2,MUSIC22060: DIM&INIT<1790: -- INIT FUNCTIONSF1970: - PRINT OPENING SCREEN P          L@@@@@pp0000008x`??0 xxp@p0000`@?0000@@`````pxp0000?000??80000 @`0xx??0??08 ?? ???000000000000?888888800008`p8`p@@@@@`p0xx@@``0xxxx@`p000xxpxppxxp8p`pp     "Fź5Fź" LEAVE PROGRAM WILL BRING BACK THE"NFź" COMMAND MENU."YFŰ51000dFź(16)jFƱuF8Ǣ24:4FBǺ"PRESS THE SPACE BAR TO CONTINUE. ";FLZ$" ":7000FVDZOTHER"Elź"COMMANDS."EvźTEź" NEXTLINE WILL MOVE THE COURSOR ( ) DOWN";eEź" 1 LINE."kEźEź" PREVIOUS LINE WILL MOVE THE CURSOR UP"Eź" 1 LINE."EźEź" ERASE LINE WILL REMOVE AN INSTRUCTION"Fź" FROM THE PROGRAM. THE 'PEN' SO THAT IT WON'T";DDź" LEAVE A MARK WHEN IT'S MOVED."JD&ź~D0ź" DOWNPEN PLACES THE 'PEN' ON THE SCREEN";D:ź" SO THAT IF IT MOVES, IT WILL LEAVE A"DDź" MARK."DNŰ51000:ESCıDXŢ5:1Ebź(6);"TO HELP YOU EDIT, THERE ARE Ģ5:19Cĺ(6);"TO MAKE OR CHANGE A PROGRAM, YOU MUST"\Cĺ"TYPE 1 TO EDIT PROGRAM."bCĺCĺ"A NEW MENU APPEARS WITH NEW CHOICES."CĺCĺ" SETPOINT (3,4) WILL BRING THE 'PEN' TO";Cĺ" THE POINT (3,4)."CźDź" UPPEN LIFTSRUNS YOUR PROGRAM"B^ĺKBhĺ" 3 ERASE PROGRAM-CLEARS THE PROGRAM ON"`Brĺ" THE SCREEN."fB|ĺBĺ" 4 ERASE DRAWING-CLEARS THE DRAWING ON"Bĺ" THE SCREEN."BĺBĺ" 5 QUIT-LETS YOU LEAVE SKETCH A PICTURE."Bİ51000:ESCıCú"AREA TO BE CORRECT.")Aİ51000:ESCı3AĢ5:1fAĺ(6);"THE COMMAND MENU WILL APPEAR ON THE"A"ĺ"SCREEN. FROM HERE YOU CAN TYPE:"A,Ģ8:3A6ĺ" 1 EDIT PROGRAM-LETS YOU MAKE OR CHANGE";A@ĺ" A PROGRAM"AJĺBTĺ" 2 RUN PROGRAM-);" MEANS THAT YOU CAN USE THE"L@ú"COMMANDS TO DRAW WHATEVER YOU LIKE ON"_@ú"THE SCREEN."e@ú@ú(34);"CHALLENGE DRAW";(34);" MEANS THAT YOU MUST"@ú"DRAW A RECTANGLE, SQUARE, OR TRIANGLE."@ú"THEY MUST HAVE A CERTAIN PERIMETER OR"ACTIONS"?nUX34:UY16:UL203]?xÒ5:UX,UYUXUL,UY:UX,UY1UXUL,UY1:UX,UY2UXUL,UY2g?â5:1?ú"AT THE START OF SKETCH A PICTURE, YOU"?ú"ARE ASKED IF YOU WANT A FREE OR"?ú" CHALLENGE DRAW."?ú@ú(34);"FREE DRAW";(34,1)PT(2,1))2(PT(3,2)PT(2,2))2)3>JX(IJK)2\>TCM((X(XI)(XJ)(XK))P1)EP:p>^I13:A(I)0:>hI13:J13:V(I,1)PT(J,1)V(I,2)PT(J,2)A(I)1>r:>|CMA(1)A(2)A(3)3:>Pú(16)>Zâ2:6?dú"SKETCH A PICTURE INSTRUCMP12(DM(1)DM(2)):1=CMP1DM(1)DM(2):L=CMP1DM(1)P1DM(2):l=CMDM(1)DM(2)P14DM(1):="CMDM(1)DM(2)P1DM(1)DM(1):=,I((PT(2,1)PT(1,1))2(PT(2,2)PT(1,2))2)=6J((PT(3,1)PT(1,1))2(PT(3,2)PT(1,2))2)#>@K((PT(3ARY 4<꫺" UNIT";:(CT0P21)(CT0P11)ĺ"S";:<T<ȯSEE IF CHALLENGE MET]<үCM0i<ܯST0ı"SQUARE "P1;:44000:" WIDE.":;H"SQUARE WITH APERV(2,1)40150&9œV(3,1)V(1,1)40100,9̜A9ќV(1,1)V(3,1)ı9֜((V(2,2)V(1,2))(V(2,1)V(1,1))(V(3,2)V(1,2))(V(3,1)V(1,1)))EP4010099 DISPLAY CHALLENGE91:1:"":"":19 "CHALLENGE: DRAW A ";:CT143040,43050,43060P2:8|P1R(10)1:,8P14(R(10)1):G8P1R(10)1:P1P1P1:h8P1(R(10)1)(R(10)1)2:8I13:J12:V(I,J)R(11)5::8(V(1,1)V(2,1)V(1,2)V(2,2))(V(1,1)V(3,1)V(1,2)V(3,2))(V(2,1)V(3,1)V(2,2)V(3,2))40100 9V(1,1)EE DRAW MODE67̈AC$"1S-5-4DS-52S12S11S31S3-4S-5-4L2"?7ֈAC1E7`7@ GENERATE A CHALLENGEm7JCTR(8)7TCT140030,40040,40050,40060,40070,40080,40090,401007^P1R(9)2:P2R(P11)1:7hP12(R(19)2):8rP1R(9)2:P2R(P11)1:P1P1YOU TO EXPERIMENT!"::"IF YOU GET REALLY STUMPED ASK YOUR"::"TEACHER FOR HELP."6u22:"DO YOU WANT FREE OR CHALLENGE DRAW? ";6uZ$"CF":7000:""A$;6uFDZ16uF7LAG16u6 PERFORM DEMONSTRATION6150:PA800 7ˆFD1: SET FRuZ$"YN":7000:""A$;-5}uMG1:A$"Y"5000065~uMG0L5uESCESC0:300005u12:1:"WOULD YOU LIKE A DEMONSTRATION? (Y,N) ";5uZ$"YN":7000:""A$;5uF7LAG15uZ135000: PERFORM DEMONSTRATION5uF7LAG0S6u14:1:" SKETCH CHALLENGES E"!4bu81,26199,26199,2781,274lu6:4:"A CHALLENGING ACTIVITY INVOLVING"::3:"GEOMETRIC FIGURES AND INTRODUCTORY"::9:"COMPUTER PROGRAMMING."4vu6:I8385:0,I279,I:4wuF7LAG04xu12:14yu"DO YOU WANT INSTRUCTIONS? (Y OR N) ";5{ SEGMENT I AS DELETED33bLI(I,1)999:LI(I,2)999\3b23150: PROCEED TO NEXT VALUE OF I.{30u PRINT TITLE PAGE, GET FD3:u"";3Du5:I179181:0,I279,I:3Nu24:2:"PRESS ESC AT ANY TIME TO LEAVE SKETCH.";4Xu3:12:"SKETCH A PICTURK)SG(X,Y,3K)?2fbSG(X,Y,K)MYS(2,K)MY:S(2,3K)SG(X,Y,3K)G2pb:d2zb STORE NEW SEGMENT AT J2bX12:Y12:SG(J,X,Y)S(X,Y)::2bLI(J,1)999LI(J,1)LI(I,1):LI(J,2)LI(I,2): STORE LINE EQUATION OF I AT J IF SEGMENT J IS A POINT.3b MARKENDS OF SEGMENT)'1 bMXXA:MXXBMXXB81bYAMXMXYAI1 bMXYBMXYB`1*bMYXA:MYXBMYXBq14bYAMYMYYA1>bMYYBMYYB1Hb FIND VALUES (Y OR X) CORRESPONDING TO ENDPOINTS FOUND (X OR Y)1RbXIJJI:Y122\bSG(X,Y,K)MXS(1,K)MX:S(1,3YBSG(J,2,K)'0aXAXBTXA:XAXB:XBTB0aYAYBTYA:YAYB:YBT0a(YAXAXAYB)(YAXBXBYB)(XAYAYAXB)25090: SEGMENTS OVERLAP0aF1:23220: SEGMENTS DO NOT OVERLAP, SO SET FLAG & EXIT1b FIND MIN (MX) AND MAX (MY) ENDPOINT VALUES ( NEXT VALUE OF I (BY 'GOTO 23150')f/a IF SEGMENTS DO NOT OVERLAP, SET F=1 AND EXIT BY 'GOTO 23220'./aK1:LI(I,1)99LI(J,1)99K2: USE X-COMPONENTS FOR NON-VERTICAL LINES, Y-COMPONENTS FOR VERTICAL LINES 0aXASG(I,1,K):XBSG(I,2,K):YASG(J,1,K):: POINT ON VERTICAL LINEs._(SG(J,1,2)(LI(I,1)SG(J,1,1)LI(I,2)))EP25000: Y=MX+B? IF SO, POINT IS ON LINE~._23140.a COMPRESS SEGMENTS I & J."/a IF SEGMENTS OVERLAP, COMPRESS TO ONE SEGMENT AT J, MARK SEGMENT I AS DELETED, AND PROCEED TO]LI(J,1)99923140T-]LI(J,1)99LI(J,2)SG(I,1,1)25000: POINT ON VERTICAL LINE-](SG(I,1,2)(LI(J,1)SG(I,1,1)LI(J,2)))EP25000: Y=MX+B? IF SO, POINT IS ON LINE -]23140-_ ZERO LENGTH SEGMENT (J)._LI(I,1)99LI(I,2)SG(J,1,1)25000LI(J,2)25000: SEGMENTS ON SAME LINE1,dZ23100G,nZII1:ISG23090e,xZ REMOVE DELETED SEGMENTSu,ZJ1:I1SG,ZLI(I,1)99923200,ZIJāX12:Y12:SG(J,X,Y)SG(I,X,Y)::,ZJJ1,Z,ZSGJ1,Z,] ZERO-LENGTH SEGMENT (I)-0]+ZLI(I,1)(SG(I,1,2)SG(I,2,2))(SG(I,1,1)SG(I,2,1)):LI(I,2)SG(I,1,2)LI(I,1)SG(I,1,1)c+Zk+(ZI1s+2ZJI+6000: INSERT A BLANK LINE & POSN CURSOR AT LINEV"SET P ( , )";_EF1z12:Z$"-012345":7000Z1ĺ"-";:Z$"012345":7000:A$;:X1Z:450" "A$;:XZ215:Z$"-012345":7000 Z1ĺ"-";:Z$"012345":7000:A$;:YLCNCP1:3500 2300 CP1CNCP1:35009 "230R , ERASE CURRENT LINEa 6CPPL230 @CPPLāICPPL1:P(I)P(I1):5000:: ROUTINE AT 5000 PRINTS LINE I OF PROGRAM JPLPL1 TPL10:4:"";:24:14:"";: CLEAR SCREEN AFTER PGM& CN1:3500: SET CURSOR AT LINE 1a Z$"LNPESUD":NC1:7000: GET EDIT COMMAND - NO CURSOR Z5Z7PL15230: CAN'T INSERT NEW INSTRUCTION IF 15 LINES PRESENT Z250,260,280,300,400,500,540 CN0:3500:90: LEAVE EDIT MODE CPP TO PLAY AGAIN? (Y OR N) ";7 Z$"YN":7000:""A$;V Z140: RESTART PROGRAM| 952,12::(16):(4);"RUN MENU" 952,12 (16):10:"...ONE MOMENT PLEASE....":(4);"RUN HELLO" EDIT PROGRAM 8000: DISPLAY EDIT MENU CP0"12345":7000: GET A COMMAND (1-5)? nZ200,600,120,140,160p xPL0:10:5:"":24:13:"";: CLEAR PGMy 100 2000: CLEAR DWG 100 QUIT PGM? F7LAG0180 : RESET GOSUB STACK 1:1:"":"" 1:1:"DO YOU WISH00: DIM VBLS -255:PA11 23200: INIT VBLSW 730000: PRINT TITLE PAGE, GET FDo <1000: INIT SCREEN FPL0: CLEAR PGM P2000: CLEAR DRAWING UFDİ40000:43000: GENERATE & PRINT A CHALLENGE Z2500: DISPLAY MAIN MENU$ d40:6:Z$>ONERR GOTO 190 #952,12A NEW 82/11/28 19:00 DBSO OLD ???g DESIGN DOUG SUPER PROGRAM GRAEME CLARKE "SKETCH A PICTURE" 24576: VARIABLES START AFTER HI-RES GRAPHICS PAGE 24000: INIT HRCG, ETC. (30                    ٍٍٍٍٍٍĠԠ҇ΠL`x~~x||~~?~~||x?p`@~x`~?gC`gccccccccc33333cCg`````gg @@@@@11111??~|~?Acw|xpp`@@xx||~~@`px??>`x~@@``pppx?~||xxppxx|||~~~p```@@???@`p <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "$! $%%#,ep% !Lp"% $`"H ͒*+)hi#"H ͒!*0+i+icH#c hc`"%$$%H hi#`$% ͒b,c*+Md,cPMb*!0 +i+`%J) a+ߒje *`PPPP򠥹͠0sL"$!e (' !!%##`e`" e$$ ",q0rs(!#L"L$a - $ `L `,fPfA[8 & & &mg)mh ˒e$*+Md$(Mb,cp ,bpP!pA* +i+Md$qr"s`,Ta@0,U`* L" zLB$!$$"% %L"b`f`f`,,Lҩb`@``cd` pLXcd`r$s%L$tc`d`f`e`Yc`d`L$e (' 8!$!$%",qLǎ !%# !Lǎ5 (5`)`W L{ IHHH``F}я"*?GOWrzȐFՐF*Q$``1  emgh` a` ,q0qai$r%s`@a`r$$hLcd`,qSiaLL LGLG B `t8967 ,R,W T ,P`ɭӠҠΠΠ Р̺((*)  a+*HN OI*P,h*,H,_0ɛ_ ɍ $h`ɐ 6+_ pLǎ Lǎ z     ""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,<2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>" <"<"""<< <"""<"><$, **>> "2*&" " >>  ">> "8""> """"""< >> ""*:<"">""""""""""""">>>#"H ͒!*0+i+icH#c hc`"%$$%H hi#`$% ͒b,c*+Md,cPMb*!0 +i+`%J) a+ߒje *`PPPP򠥹͠>>< (&20 * ",q0rs(!#L"L$a - $ `L `,fPfA[8 & & &mg)mh ˒e$*+Md$(Mb,cp ,bpP!pA* +i+Md$$! $%%#,ep% !Lp"% $`"H ͒*+)hi$"% %L"b`f`f`,,Lҩb`@``cd` pLXcd`r$s%L$tc`d`f`e`Yc`d`L$e (' 8!$!$%",q0sL"$!e (' !!%##`e`" e$${ IHHH``F}я"*?GOWrzȐFՐF*Q$``1  emgh` a` ,q0qai$r%s`@a`r$$hLcd`,qSiaqr"s`,Ta@0,U`* L" zLB$!$,W T ,P`ɭӠҠΠΠ@((*)  a+*HN OI*P,h*,H,_0ɛ_ ɍ $h`ɐ 6+_ pLǎ Lǎ zLǎ !%# !Lǎ5 (5`)`W L8ة@`  `` )5ALWer{)u66?$$ -  666-??- -.-=--u? 6.-=$466&6--??6-u6?>I9.-?$6--6)u?v- ?d-)u6?d-6/?LL L$L$ B `t8967 ,R  BRING BACK THE"(9ź" COMMAND MENU."29Ű7500=9ź(16)C9Ʊ1EXTLINE WILL MOVE THE CURSOR ( ) DOWN";=8ź" ONE LINE."C8źu8ź" PREVIOUS LINE WILL MOVE THE CURSOR UP"8ź" ONE LINE."8ź8ź" ERASE LINE WILL REMOVE AN INSTRUCTION"8ź" FROM THE PROGRAM."8ź9ź" LEAVE PROGRAM WILL AVE A MARK WHEN IT'S MOVED.""7&źV70ź" DOWNPEN PLACES THE 'PEN' ON THE SCREEN";7:ź" SO THAT IF IT MOVES, IT WILL LEAVE A"7Dź" MARK."7NŰ7500:ESCı7XŢ5:17bź(6);"TO HELP YOU EDIT, THERE ARE OTHER"7lź"COMMANDS."7vź*8ź" NROGRAM, YOU MUST"46ĺ"TYPE 1 TO EDIT PROGRAM.":6ĺg6ĺ"A NEW MENU APPEARS WITH NEW CHOICES."m6ĺ6ĺ" SETPOINT (3,4) WILL BRING THE 'PEN' TO";6ĺ" THE POINT (3,4)."6ź6ź" UPPEN LIFTS THE 'PEN' SO THAT IT WON'T";7ź" LERAM-CLEARS THE PROGRAM ON"/5rĺ" THE SCREEN."55|ĺh5ĺ" 4 ERASE DRAWING-CLEARS THE DRAWING ON"}5ĺ" THE SCREEN."5ĺ5ĺ" 5 QUIT-LETS YOU LEAVE SKETCH A"5ĺ" PICTURE ."5İ7500:ESCı5Ģ5:16ĺ(6);"TO MAKE OR CHANGE A P154ĺ(6);"THE COMMAND MENU WILL APPEAR ON THE"^4"ĺ"SCREEN. FROM HERE YOU CAN TYPE:"h4,Ģ8:346ĺ" 1 EDIT PROGRAM-LETS YOU MAKE OR CHANGE";4@ĺ" A PROGRAM"4Jĺ4Tĺ" 2 RUN PROGRAM-RUNS YOUR PROGRAM"4^ĺ5hĺ" 3 ERASE PROGO DRAW WHATEVER YOU LIKE ON"/3ú"THE SCREEN."53úp3ú(34);"CHALLENGE DRAW";(34);" MEANS THAT YOU MUST"3ú"DRAW A RECTANGLE, SQUARE, OR TRIANGLE."3ú"THEY MUST HAVE A CERTAIN PERIMETER OR"3ú"AREA TO BE CORRECT."3İ7500:ESCı4Ģ5:UL,UY:UX,UY1UXUL,UY1:UX,UY2UXUL,UY272â5:1g2ú"AT THE START OF SKETCH A PICTURE, YOU"2ú"ARE ASKED IF YOU WANT A FREE OR"2ú" CHALLENGE DRAW."2ú2ú(34);"FREE DRAW";(34);" MEANS THAT YOU CAN USE THE"3ú"COMMANDS T)2,1TCM((X(XI)(XJ)(XK))P1)EP:@1^I13:A(I)0:x1hI13:J13:V(I,1)PT(J,1)V(I,2)PT(J,2)A(I)11r:1|CMA(1)A(2)A(3)3:1Pú(16)1Zâ2:61dú"SKETCH A PICTURE INSTRUCTIONS"1nUX34:UY16:UL203-2xÒ5:UX,UYUXȱ0CMP1DM(1)P1DM(2):<0CMDM(1)DM(2)P14DM(1):`0"CMDM(1)DM(2)P1DM(1)DM(1):0,I((PT(2,1)PT(1,1))2(PT(2,2)PT(1,2))2)06J((PT(3,1)PT(1,1))2(PT(3,2)PT(1,2))2)0@K((PT(3,1)PT(2,1))2(PT(3,2)PT(2,2))2)1JX(IJKT0P21)(CT0P11)ĺ"S";$/-/ȯCM09/ܯST0ıb/I(CT3):(I2ST1)(I2ST2)ı/毴CT145040,45050,45060,45070,45080,45090,45100,45150/CM(P1DM(1)P2DM(2))(P1DM(2)P2DM(1)):/CMP12(DM(1)DM(2)):0CMP1DM(1)DM(2):0.H"SQUARE WITH APERIMETER OF "P1" UNITS.":i.R"SQUARE WITH AN AREAOF "P1" SQUARE";:44000:".":.\"TRIANGLE WITH AN AREAOF "P1" SQUARE";:44000:".":.f"TRIANGLE WITH VERTICES ";:I13:" ("V(I,1)","V(I,2)")";::".":/ૺ" UNIT";:(CCT143040,43050,43060,43070,43080,43090,43100,43110r- "RECTANGLE "P1" UNITSLONG AND "P2;:44000:" WIDE.":-*"RECTANGLE WITH APERIMETER OF "P1" UNITS.":-4"RECTANGLE WITH ANAREA OF "P1" SQUARE UNITS.":.>"SQUARE "P1;:44000:" WIDE.":)V(3,2))40100),V(1,1)V(2,1)40150B,œV(3,1)V(1,1)40100H,̜],ќV(1,1)V(3,1)ı,֜((V(2,2)V(1,2))(V(2,1)V(1,1))(V(3,2)V(1,2))(V(3,1)V(1,1)))EP40100,," PICTURE .",1:1:"":"":1, "CHALLENGE: DRAW A ";6-R(9)2:P2R(P11)1:P1P1P2:2+|P1R(10)1:H+P14(R(10)1):c+P1R(10)1:P1P1P1:+P1(R(10)1)(R(10)1)2:+I13:J12:V(I,J)R(11)5::,(V(1,1)V(2,1)V(1,2)V(2,2))(V(1,1)V(3,1)V(1,2)V(3,2))(V(2,1)V(3,1)V(2,2F":7000:""A$;*uFDZ1$*uTR0**u:*150:PA800C*ˆFD1m*̈AC$"1S-5-4DS-52S12S11S31S3-4S-5-4L2"v*ֈAC1|**@CTR(8)*TCT140030,40040,40050,40060,40070,40080,40090,40100*^P1R(9)2:P2R(P11)1:*hP12(R(19)2): +rP1ION? (Y,N) ";))uZ$"YN":7000:""A$;5)uF7LAG1D)uZ135000)u14:1:" SKETCH CHALLENGES YOU TO EXPERIMENT!"::"IF YOU GET REALLY STUMPED ASK YOUR"::"TEACHER FOR HELP.")u22:"DO YOU WANT FREE OR CHALLENGE DRAW? ";*uTR1:Z$"CF7LAG0:MG2300791(vuCA1CA0:F7LAG1:30110<(xu12:1k(yu"DO YOU WANT INSTRUCTIONS? (Y OR N) ";({uZ$"YN":7000:""A$;(|uMG1:A$"Y"İ50000:MG2(}uESCESC0:MG0:30000(~uMG230000(uMG0)u12:1:"WOULD YOU LIKE A DEMONSTRAT ESC AT ANY TIME TO LEAVE SKETCH.";G'Xu3:13:"SKETCH A PICTURE"f'bu81,26199,26199,2781,27'lu6:4:"A CHALLENGING ACTIVITY INVOLVING"::3:"GEOMETRIC FIGURES AND INTRODUCTORY"::9:"COMPUTER PROGRAMMING."'qu6:I8385:0,I279,I:(suY,3K)7&fbSG(X,Y,K)MYS(2,K)MY:S(2,3K)SG(X,Y,3K)?&pb:f&bX12:Y12:SG(J,X,Y)S(X,Y)::&bLI(J,1)999LI(J,1)LI(I,1):LI(J,2)LI(I,2)&bLI(I,1)999:LI(I,2)999&b23150&0u"";&Du5:I179181:0,I279,I:&'Nu24:2:"PRESSBT>%a(YAXAXAYB)(YAXBXBYB)(XAYAYAXB)25090M%aF1:23220d%bMXXA:MXXBMXXBu%bYAMXMXYA% bMXYBMXYB%*bMYXA:MYXBMYXB%4bYAMYMYYA%>bMYYBMYYB%RbXIJJI:Y12&\bSG(X,Y,K)MXS(1,K)MX:S(1,3K)SG(X,]231400$_LI(I,1)99LI(I,2)SG(J,1,1)25000g$_(SG(J,1,2)(LI(I,1)SG(J,1,1)LI(I,2)))EP25000r$_23140$aK1:LI(I,1)99LI(J,1)99K2$aXASG(I,1,K):XBSG(I,2,K):YASG(J,1,K):YBSG(J,2,K)$aXAXBTXA:XAXB:XBT%aYAYBTYA:YAYB:Y1:ISG23090#ZJ1:I1SG6#ZLI(I,1)99923200f#ZIJāX12:Y12:SG(J,X,Y)SG(I,X,Y)::p#ZJJ1v#Z#ZSGJ1#Z#]LI(J,1)99923140#]LI(J,1)99LI(J,2)SG(I,1,1)25000#](SG(I,1,2)(LI(J,1)SG(I,1,1)LI(J,2)))EP25000$,1,1):23070h"ZLI(I,1)(SG(I,1,2)SG(I,2,2))(SG(I,1,1)SG(I,2,1)):LI(I,2)SG(I,1,2)LI(I,1)SG(I,1,1)n"Zv"(ZI1~"2ZJI"4_4"THE TRANSFORMATIONS ARE:"e4œ4̜" SLIDES WILL MOVE THE FIGURE UP, DOWN,"4֜" RIGHT, OR LEFT."44Ꜻ" TURNS WILL MOVE THE FIGURE CLOCKWISE",5" BY FLIP-TURN INSTRUCTIONS"13^UX34:UY16:UL196Z3h5:US02:UX,UYUSUXUL,UYUS:USd3r5:13|"A FIGURE AND ITS IMAGE WILL APPEAR ON A"3"GRID. USING TRANSFORMATIONS, MOVE THE"3"FIGURE ONTO ITS IMAGE IN 8 TURNS OR"4"LESS. THE:Z3Č54915:29000 2\5"";A$;32f5A$"Y"İ40000H2p5A$(27)ī13500S2z5(16)Y252Hq35,24:952,12:(16):(4);"RUN MENU"20u952,12:35,2421u(16):10:"...ONE MOMENT PLEASE....":(4);"RUN HELLO"2@(25);(16)2J2:63T"SLIDE- "F1 54:" ";:8:" ";:14:" ";:24:" ";:34:" "z1*54:" ";:14:" ";:34:" ";:38:" "1454:" ";:14:" ";:34:" ";:38:" "1>510:5:"DO YOU WANT INSTRUCTIONS (Y OR N) ";2H5Z$"YN"(27):F0:7000SLIDE-FLIP-TURN.";1043:73,16870,17173,174P0467,18206,18206,1967,19^0414:" ";054:" ";:14:" ";:24:" ";:34:" "0 54:" ";:14:" ";:24:" ";:34:" "154:" ";:8:" ";:14:" ";:24:" ";:34:" A100305:768,A:769,10:770:'/22/4(16)^/4"";:2:11:"S LIDE - FLIP - TURN"/45:11:"A STRATEGY ACTIVITY"/4/48:"INVOLVING MOTION GEOMETRY."/422:5:"TYPE - TO CHANGE YOUR ANSWER."04:5:"TYPE ESC TO END .0$.01:1:"";:5:40:"";:I.0:"YOU HAVE RUN OUT OF MOVES."{.0768,200:769,150:770:768,255:769,200:770.0.21:1:"";:5:40:"";:.2Sĺ"YOU RAN OUT OF MOVES.":.2"YOU SUCCEEDED IN "HS" MOVE";:HS1ĺ"S";!/2".":E BAR TO CONTINUE. ";&- -Z$" ":7000,--2-.Y-.A100305:768,A:769,10:770:w-.1:1:"";:5:40:"";-.::"I SUCCEEDED IN 2 MOVES."-.:"DO YOU WISH TO SEE YOUR SOLUTION (Y,N)?";-/Z$"NY":F0:7000:""A$;-/YZ1-/)6-,(1:"FLIP";:10:"("XF(1)","XF(2)")"3, (9,)Y,)7:1:"";:22:14:"";_,)e,*,+:"DO YOU WISH TO SEE MY SOLUTION (Y,N)?";, +Z$"NY":7000:""A$;,+YZ1, +,,,,1:1:"";:5:40:"";--::"PRESS THE SPAC80,8(Y1)80,8(Y1)6O+'77,8(Y1)380,8(Y1)33(XF(2))83,8(Y1)3r+'XF(1)0XF(2)0Ė7:"NOWHERE"x+'+'42,8(Y1)348,8(Y1)3:10240+'45,8(Y1)45,8(Y1)6:10240+'42,8(Y1)648,8(Y1):10240,'42,8(Y1)48,8(Y110,10220,10230*8'C*B'"TURN "XF(3)"/"XF(4)" ("XF(1)","XF(2)")"I*L'O*`'_*j'"SLIDE ";r*t'XF(1)010140*~'(XF(1));*'49,8(Y1)355,8(Y1)3*'52,8(Y1)523(XF(1)),8(Y1)352,8(Y1)6*'XF(2)010180*'11:(XF(2));+'0:""A$;) &A$"Y"İ40000')%&(16)7)*&5000:9300=)>&C)H&p)R&I02:PS(I,0)PO(I,0):PS(I,1)PO(I,1):v)\&|)&)&I02:PO(I,0)PS(I,0):PO(I,1)PS(I,1):)&HSHS1)&)')'YHS26)$'Y:1))'3*.'XF(0)10040,10080,10200,102.")(%A100305:768,A:769,10:770:/(%9(%S0:?(%J(%(16)(%2:1:"DO YOU WISH TO PLAY AGAIN? (Y OR N) ";(%Z$"NY":F0:7000:""A$;(&YZ1(&A$"N"ı(&(&"DO YOU WANT INSTRUCTIONS? (Y OR N) "; ) &F1:Z$"YN":700PACE BAR. ";!'l%Z$" ":F0:7000+'q%9900R'{%XF(0)2Ĺ36170,8:36172,6:36152X'}%^'%'%I02:PO(I,0)DS(I,0)PO(I,1)DS(I,1)9690'%'%S1'%1:1:"";:5:40:"";'%1:1:"YOU SUCCEEDED IN "HS" MOVE";:HS1ĺ"S.":9670(%"&r$ &%G&&%I02:PO(I,0)0PO(I,0)10PO(I,1)0PO(I,1)109540M&0%X&:%OF0:a&D%OF1|&I%768,200:769,200:770&N%1:1:"";:5:40:"";&X%1:1:"YOU HAVE MOVED THE OBJECT OFF THE SCREEN"; 'b%:"PLEASE TRY AGAIN."::"PRESS THE S2109%#12315X1,4813(10Y1)12315X2,4813(10Y2)?%$E%$t%$X1XF(1)XF(2):Y10::X110Y1X110:X110%"$12315X1,4813(10Y1)12315Y1,4813(10X1)%,$%T$%Y$3:0,40279,40%^$100,40100,191:101,40101,191&h$0,181100,181A1A1:X,B1X,B1:$x#"$#S$#B4813(10XF(2)):YB1B1:123,Y273,Y:Y$#_$#$#A12315XF(1):XA1A1:X,48X,178:$#$#$#AXF(1)XF(2):X1A:Y1A:X210A:Y210A$#X10X10$#Y10Y10$#X210X210%#Y210Y(I,1)XXF(2)XF(1)::#& j#0 I02:XPO(I,0):PO(I,0)PO(I,1)XF(1)XF(2):PO(I,1)XXF(1)XF(2)::p#(##2#XF(0)2ı#F#36170,6:36172,8:36152#K#3#P#XF(0)9050,9010,9090,9120,9150,9230#Z##d#A12315XF(1):B4813(10XF(2))$n#X,1)XF(1):PO(I,1)XXF(1)XF(2):'"-"f"I02:PO(I,0)PO(I,0)XF(1):PO(I,1)PO(I,1)XF(2):l"r""I02:PO(I,1)2XF(2)PO(I,1)::"" I02:PO(I,0)2XF(1)PO(I,0)::" # I02:XPO(I,0):PO(I,0)PO(I,1)XF(2)XF(1):PO210,8230!T(!^XF(3)1XF(4)48080:!hXF(3)38110w!|I02:PO(I,0)2XF(1)PO(I,0):PO(I,1)2XF(2)PO(I,1):}!!!I02:XPO(I,0):PO(I,0)PO(I,1)XF(2)XF(1):PO(I,1)XF(1)XXF(2):!!!"I02:XPO(I,0):PO(I,0)XF(2)PO(I(7)7110' (770)96Ĺ770,173:70609 770,96:7060G F07140a A$(27)Č54915:390v A$(8)ġ:6000 Z1(Z$):A$(Z$,Z,1)7160 :7060  768,30:769,8:770 T((1)T)  @!JXF(0)8020,8140,8170,8190,8"";+I04:HS(HS,I)XF(I)::HSHS117XGvZ(16368)OT0eT0ĺ" "(8);zT10ĺ" "(8);FR(0)TT1:T20T0(16384)1287060A$((16384)128):Z(16368):" "(8);(1023)107110 A$ VERTICAL ";:6770#6"DIAGONAL"P@"WHICH DIAGONAL (A=/, B="(220)")?";bJZ$"AB":7000~TZ1ĺ"/":XF(0)5:6760^(220):XF(0)6h"THE DIAGONAL ";r" LINE PASSES THROUGH":" WHICH POINT? ( , )";(8);(8);(8);(8);|6190:A$;dXF(2)AZn6800#/"FLIP"t"FLIP ACROSS A (HORIZONTAL,":" VERTICAL OR DIAGONAL) LINE?";Z$"HVD":7000Z6650,6680,6710"HORIZONTAL"XF(0)3"THE HORIZONTAL";:6770"VERTICAL""XF(0)4,"THE$"123456789":7000:A$% XF(1)AZR"VERTICAL SLIDE (UP,DOWN,NONE)?";eZ$"UDN":7000z(Z1ĺ"UP":64702Z2ĺ"DOWN":6470<"NONE":XF(2)0:6510FA32ZP"AMOUNT OF VERTICAL SLIDE (1,2,...9)?";ZZ$"123456789":7000XF(2)Z1V6800("SLIDE";4XF(0)2a"HORIZONTAL SLIDE (RIGHT,LEFT,NONE)?";tZ$"RLN":7000Z1ĺ"RIGHT";:6380Z2ĺ"LEFT":6380"NONE":XF(1)0:6420A32Z"AMOUNT OF HORIZONTAL SLIDE (1,2,...9)?";ZZ3A3:6150A13"/";:Z$"42":7000:A$EB62Z:6170`Z$"4":"/";:7000:A$hB4|XF(3)A:XF(4)B$"TURN AROUND WHICH POINT? ( , )"(8);(8);(8);(8);.Z$"0123456789":7000:A$;8XF(1)Z1B",";:7000:A$")"; L  p+1:1:"";:5:40:"";_1:1:"T YPE OF MOTION (TURN, SLIDE, FLIP)?";vF1:Z$"TSF":7000Z6060,6300,6600"TURN"XF(0)1"KIND OF CLOCKWISE TURN (1/4,1/2,3/4)? /"(8);(8);Z$"113":7000:A$;08:783,245:784,174:785,0:786,3:787,76:788,2:789,3:790,96X(1023)10Ĺ770,96c36354z:(15)(2),(16),3:0:1A1X12025515AX,184AA1A1Y1755813A112,YAA1,1D 1,0,1,1,1,1,1,0,02N 1,1,1,1,1,0,0,0,0JX 1,1,0,1,1,0,1,1,1P V}(4);"BLOAD TRANSFORM.SET,A36152"232,94:233,141@770,173:771,48:772,192:773,136:774,208:775,5:776,206:777,1:778,3:779,240:780,9:781,202:782,21 B :'G 36170,8:36172,6:361523H 230,64NI 24:1:" ";TL Z  SH(4,2,2),PO(2,1),PS(2,1),DS(2,1),OP(2,1),HS(20,4),SO(1,4)  & SH04:X02:Y02:SH(SH,X,Y):::0 0,1,0,0,1,0,0,1,1: 1,1,0,1,0,0,1,1XR1,YR1XQ1,YQ1XQ,YQXR,YRXR1,YR1XQ1,YQ1<JY02320c SH(SH,X,Y1)12330 XP1,YP1XR1,YR1XR,YRXP,YPXP1,YP1XR1,YR1 $ Y22360. SH(SH,X,Y1)123708 XS1,YS1XQ1,YQ1XQ,YQXS,YSXS1,YS1XQ1,YQY(Y3Y2)(X1)))?XS12315(X1(X3X2)X(X2X1)(Y1))pYS4813(10(Y1(Y2Y1)(Y1)(Y3Y2)X))~X02240SH(SH,X1,Y)12250XP1,YP1XS1,YS1XS,YSXP,YPXP1,YP1XS1,YS1X22280SH(SH,X1,Y)12290612315(X1(X3X2)X(X2X1)Y)NYP4813(10(Y1(Y2Y1)Y(Y3Y2)X))XQ12315(X1(X3X2)(X1)(X2X1)(Y1))YQ4813(10(Y1(Y2Y1)(Y1)(Y3Y2)(X1)))XR12315(X1(X3X2)(X1)(X2X1)Y)YR4813(10(Y1(Y2Y1)(Y1)(Y3Y2)(X1)\>A12315XP12315XQ(XQXP):A,4813(10YP)A,4813(10YQ):dH:WX1DS(0,0):X2DS(1,0):X3DS(2,0):Y1DS(0,1):Y2DS(1,1):Y3DS(2,1)\3fX02:Y02k768,X3030:769,10:770pSH(SH,X,Y)02370!zXP:X2PO(1,0):X3PO(2,0):Y1PO(0,1):Y2PO(1,1):Y3PO(2,1)>2PX02:Y02n768,X3030:769,10:770 SH(SH,X,Y)02120XPX1(X3X2)X(X2X1)Y YPY1(Y2Y1)Y(Y3Y2)X*XQX1(X3X2)(X1)(X2X1)(Y1)4YQY1(Y2Y1)  HS02:24:1:"THINKING...";O36170,6:36172,8:36152[230,96i36449,9618:7:"";:39:23:"";0:122,47274,4736449,643X12327315:X,48X,178::Y4817813:123,Y273,Y:7X1PO(0,0)0PO(I,0)10PO(I,1)0PO(I,1)101260-`I02:PO(I,0)OP(I,0)PO(I,1)OP(I,1)1270fA02:B01:PO(A,B)PS(A,B):::768,50(1)80:769,15:770:1190A04:SO(1,A)XF(A):A02:B01:DS(A,B)PO(A,B):PO(A,B)OP(A,B)::F(2)((1)10):XF(1)0XF(2)0XF(0)21190rXF(0)2XF(1)(1((1)2)2)XF(1):XF(2)(1((1)2)2)XF(2)A((1)3)1:XF(3)(A1)(A2)3(A3):XF(4)4(A1)2(A2)4(A3)A02:B01:PS(A,B)PO(A,B)::8000'I02:PO(I,0) V8000f `I02:PO(I,0)0PO(I,0)10PO(I,1)0PO(I,1)10āA02:B01:PO(A,B)OP(A,B):::1100l j tA04:SO(0,A)XF(A): SO(0,0)2XF(0)((1)2)21:1180 XF(0)((1)3)1 XF(0)3XF(0)XF(0)((1)4)-XF(1)((1)10):X((1)3)1:XF(0)3XF(0)XF(0)((1)4)o LXF(1)((1)10):XF(2)((1)10):XF(1)0XF(2)0XF(0)21100 NXF(0)2XF(1)(1((1)2)2)XF(1):XF(2)(1((1)2)2)XF(2) QA((1)3)1:XF(3)(A1)(A2)3(A3):XF(4)4(A1)2(A2)4(A3)"; SH((1)5)V A((1)6):B((1)6):F1((1).5):F2((1).5):F3((1).5)| PO(0,0)A3F1:PO(2,0)A3(1F1) PO(0,1)B3F2:PO(2,1)B3(1F2) $PO(1,0)PO(2F3,0):PO(1,1)PO(2(1F3),1) .A02:B01:OP(A,B)PO(A,B)::+ BXF(0)B01:PO(A,B)OP(A,B)::" "SO0, ,2000C 6SOHSİ13000:120N @11500j JA04:XF(A)HS(SO,A):~ TYSO28:10020 ^9000 h8000 rSOSO1 |300 IN1Č54915:IN0:42 9700 Y50 29000  24:1:"THINKING...60 x11000 Y390& 10500L A02:B01:PO(A,B)OP(A,B)::U SO0_ 2000m SO2250x 11500 A04:XF(A)SO(SO,A): YSO28:10020 9000 8000 SOSO1 170 12000 Y390 10500 A02:0 30000952,32+32768:3615154000?3000I(3100T*13500^-5000h.9300r21000}410500<2000A9600BS120CHS8İ12500:120F6000K9000M9800P8000Z9500dOF170i10000 n               L@`Pp`@@@xdddddd000000<@`Pp`@@AA``````0 8p`@`QqaCFLEGCa1x`````aaCC??~|xx|~>>@@@@@pp0000008x`??0 xxp@p0000`@?0000@@`````pxp0000?000??80000 @`0xx??0??08 ?? ???000000000000?888888800008`p8`p@@@@@`p0xx@@``0xxxx@`p000xxpxppxxp8p`pp IS ENDED."&场?&Ꜻ"BE CAREFUL! THE SCALE CHANGES EVERY"L&"TURN."R&&"THE GAME ENDS WHEN A TEAM REACHES THE"&"WINNING SCORE."&(24:4&2"PRESS THE SPACE BAR TO CONTINUE. ";& 70 MM.";:1160 INIT HGR2 $ MUSIC48:2:"MEASURE THE SEGMENT";:9:2:"IN MILLIMETERS.";my176,45184,45:180,45180,184:176,184184,184~J10:1160:ESCıV(X$)10:J:38:"MM";" ";:34:" ";J:X$"":I3436I:Z$ZN$:I34Z$Z$(8):I35Z$Z$(13)LV GET SCALE&[H0V0ıd`1:(16);:2:2:"MEASURE THE SEGMENT IN MILLIMETERS.";b15:5:"USE A RULER."c25,10925,121113,121113,10925,109e41,2841,36:41,32199,32:199,28199,36jJ4:1160:ESCıoH(X$)109t40000:MX21:ESC960ZMX:Y:"CHOOSE THE WINNING SCORE (1-9). ";:Z$ZN$:210:ESC1ımMAX(Z$):Z$;zMX21ı$16:Y:N$(15);:37:N$(16);.J6342:J2:" ";:J:N$(17);:N1100::818:14:" PLAY BALL!! ";:1320BI1300:8:Y:"WILL THERE BE 1 OR 2 PLAYERS? ";:SEC0:Z$"12":210KESC1ıTZ$;yNP(Z$):P6:SC(0)0:SC(1)0:W08:Y"DO YOU WANT INSTRUCTIONS? (Y OR N) "; Z$"YN":SEC0:210:ESCı MX10 "";Z$ F7LAG1 Z$"Y"İ0,0272,0272,1810,1810,0>1,1271,1271,1801,1801,1Y2:(12);:24:Y:"PRESS ESC TO LEAVE SOCCER TO SCALE.";(12);3:12:"SOCCER TO SCALE"F7LAG05:9:"AN ESTIMATION ACTIVITY":6:8:"INVOLVING SCALE DRAWINGS.">SS ESC TO LEAVE SOCCER TO SCALE.";-i24:2:(5);"DO YOU WISH TO PLAY AGAIN? (Y OR N) ";Y0:Z$"YN":SEC0:210ESC1ī935Y(Z$"Y")(19);A$; PRINT OPENING SCREEN(16);(17);:2:A30:ESC0:TM0:W0273X,33XX246,33XX246,XK\:2:2:" ";N$(0);:NP2Ģ2:37:N$(0);}f" ";:I1316:I:3:" ";:38:" ";::"";p2:8:"PLAYER . PASS FROM TO .";z3:8:"ESTIMATE: M";4:8:"ACTUAL DISTANCE: M";'24:2:" PRE8:5:N$(11X);:8:33:N$(11X);2 J1100:F"XXY:X3Y1d$A(5X)10:1380:X0790l*:4 SET UP GAME BOARD>(16):0,0274,0274,1810,1810,0:0,43274,43HX14:X,X28X,X28X,33XX,33XX,XRNP2ēX246,X273X,X ";4J1100::8:M$(Z);:A(4I)20:Z1A100CZ4A200[1380:J1100::IqZ0āJ12500:w PRINT WINNERJ25:J:7:BL$;BL$;" ";:1320:10:10:"PLAYER ";PL1;", YOU WIN!!!"; I13:X1:Y1#" ";:4:25:" ";*5:8:BL$;BL$;:I DRAW LINE TO NEXT PLAYEReZ4ĢR(P):C(P):PS$;4:25:(DD(SN)N(SN).5);5:8:M$(Z);1C(P)73,R(P)84X11,Y142:Z2ĢR(P1):C(P1):N$(17);:5I13:8:BL$;" DX121X121!NX1252X12522XY158Y158EbY1176Y1176WlZ3:670:635~vZ4:X1C(P)7:Y1R(P)8:670:PP1{7:2:BL$;:0:52,4452,601,60:2|I722:I:4:BL$;BL$;BL$;" ";:2:15:" ";:28:" ";:33:" ";3:18:1)8# P5İ670:PP1:640:4504Z0:670:P6ySC(PL)SC(PL)1:2:PL352:" ";N$(SC(PL));" ";:SC(PL)MAXW1&5:8:M$(5);:1320:J11200::6350X1D1DX(C(P)7):Y1D1DY(R(P)8):X121X1252Y158Y1176580:Z2:670:6350D1(X$)N(SN)D(SN)Q(DN(SN)D(SN)6)ĭ(DN(SN)D(SN)(X$))1.1560(DN(SN)D(SN)12)ĭ(DN(SN)D(SN)(X$))2.1560(DN(SN)D(SN)25)ĭ(DN(SN)D(SN)(X$))3.1560(DN(SN)D(SN)(X$))4.1560Z1:X1C(P1)7:Y1R(P);GX(C(P1)C(P))7:Y(R(P1)R(P))8:D((XH160)2(YV140)2)aX$"":SEC(7P)4:I13:17I:Z$ZN$:I2Z$Z$(8)(13)210:ESC1ıZ$(8)X$"":II1:480SEC0630Z$(13)510Z$;X$X$Z$:II1:I348)1:C(6):"6";.15:PS(1PL,0):N$(15PL)LN4:I1:SC(PL)5N2:I6n180:SNNI:52,4352,601,60I14:7:2:" ";:J1100:7:2:N(SN);"CM=";D(SN);"M";:J1100::I2:15:PL1;:28:P;:33:P1;R(P):C(P):N$(17::MAKE TONE Z$A$:( h PLAY GAMEN rPS$N$(16PL):P5P:P1NP1P1 |I15:N3:180:C(I)PS(PL,I)N:N13:180:R(I)8N I1I5ĭR(I)8R(I)10 R(I):C(I):PS$;:R(I)1:C(I):I; :R(6)15:C(6)PS(PL,0)R(6):C(6):PS$:R(6X0240 SEC0224/ SECSEC1:SEC02245 Y A$(XX):Z(16368):" "(8); Z0:A1(Z$):A$(Z$,A,1)ZA:A100: :Z0218 A$(7)272 (1023)10218 (770)96Ĺ770,173:218 770,96:218 768,30:769,8:770 CHR ON EXIT- Z$Z$(7):SEC0SECSEC22N Z(16368): CLR KBD STROBEa FLASH CURSORo T0:ESC0 T0ĺ" ";(8); FR(0) T10ĺ" ";(8); TT1:T20T0 SEC0T1A180:1380 XX(16384)128:XX27ESC1: X000: LEAVE GAME 1 ********************L GET RAND INTEGER 0-Na NN((1)(N1))| NNN(NN(N1))(N1) SUBROUTINE TO GET A CHR FROM KBD Z$ CONTAINS LIST OF VALID CHRS ON INPUT Z IS THE INDEX OF TYPED CHR, A$ IS50 P1110: GET SCALE' ZESC1150D d820: SET UP GAME BOARDn nQ11000:PL0NP1:360: PLAY BALL xESC1PL2:Q10000:140 Wİ750:150: PRINT WINNER PL:Q F7LAG029000:LEAVEGAME 930:Y60: ASK IF ANOTHER GAME 29 30000952,327 NEW 82/11/28 12:00 DBSU OLD 82/11/17 21:00 GDNm DESIGN DOUG SUPER PROGRAM GAIL NEWELL "SOCCER TO SCALE" 24576(1270:INITHRCG&MUSIC21430: DIM&INIT<960: OPENING SCREEN FESC11!!!!!                O(4);"CLOSE SOUND"O130(NC$"NNNNN"200702N KEEP DECISIONS ON FILE=N(16)TN(4);"OPEN SOUND"lN(4);"WRITE SOUND"wNI05NQQ$(I)NO(4);"CLOSE SOUND"O130$6)N(4);"OPEN SOUND"N(4);"WRITE SOUND"NI05NQQ$(I)NHN"DO YOU WANT SOUND EFFECTS (Y OR N)? ";TRNZ$"YN":7000:"";A$;:QQ$(0)A$lWNI1500:(8);" ";\NI15:QQ$(I)"Y"::1000fNC$""pNI15zN12:2N"DO YOU WANT ";I10;" IN THE MENU (Y OR N)? ";N6000NQQ$(I)A$N7060"(770)96Ĺ770,173:70604770,96:7060D  MAKE TONE\768,30:769,8:770 A$(20)ġ:20020: TEACHER CONTROL ROUTINE* N ********************N *******************4N ADJUST MENU AND SOUND BY THE TEACHER>N12:2/ASH CURSORT0(T0ĺ" "(8);<FR(0):RN(1)QT10ĺ" "(8);eTT1:T20T0}(16384)1287070A$((16384)128):Z(16368):" "(8);Z1(Z$):A$(Z$,Z,1)ī7140:7060A$(19)7180(1023)10"YN":7000:"";A$;+C$C$A$:J1500::(8);" ";@gX SUBROUTINE TO SET A CHR FROM KBDb Z$ CONTAINS A LIST OF VALID CHARACTERSl Z IS THE INDEX IN Z$ OF THE TYPED CHARvZ$Z$(20)(19)Z(16368): CLR KBD STROBE  LREX15:NA$(X):a PLACE ACTUAL FILE NAMES OF PROGRAMS APPEARING IN MENU IN MENU ORDER FRACTION CHALLENGE,MAKING SENSE OF PERCENT,SLIDE FLIP TURN,SOCCER TO SCALE,SKETCH A PICTUREX15:FI$(X): p YES OR NO ROUTINEzZ$"N"1040)2X12:9:X10;". ";NA$(X)/5. PLACE NAMES OF PROGRAMS YOU WISH TO APPEAR IN THE MENU USING CTRL-S FOR CATITALIZATION FRACTION CHALLENGE,MAKING SENSE OF PERCENTS,SLIDE-FLIP-TURN,SOCCER TO SCALE,SKETCH A PICTUTHER PROGS+RQQ$(0)"Y"Ĺ770,173:1023,1a\Q$"": Q$ COMMUNICATES ACCEPTABLE KEYBOARD INPUTlfI15xpQQ$(I)zQQ$(I)"Y"Q$Q$(I):(4);"CLOSE SOUND": ******************** PRINT MENU CHOICEX15QQ$(X) ";:1 3U 1,791,191279,191279,791,79[   STORED DECISIONS ON MENU AND SOUND *:(4);"OPEN SOUND" 4(4);"READ SOUND" >QQ$(0) HQQ$(0)"N"Ĺ770,96:1023,10: 1023 WILL CONTAIN FLAG FOR OQQ$(5)"Y"ĺ:952,12:(16):10:"...ONE MOMENT PLEASE....":(4);"RUN ";FI$(5)e 1150q 6952,12 ;(16):10:"...ONE MOMENT PLEASE....":(4);"RUN HELLO" @:********************  CLEAR SCREEN AND BOX I1123* I:1:" "...ONE MOMENT PLEASE....":(4);"RUN";FI$(2)8 150 QQ$(3)"Y"Ĺ952,12::(16):10:"...ONE MOMENT PLEASE....":(4);"RUN";FI$(3) 150 "QQ$(4)"Y"Ĺ952,12::(16):10:"...ONE MOMENT PLEASE....":(4);"RUN";FI$(4) '150\ ,10:3:UTINE Z$"1":7000:"";A$;8 Z$"12345":7000:A$;D X(A$)a RUN CHOICE OF ACTIVITY| X250,260,270,290,300 QQ$(1)"Y"Ĺ952,12::(16):10:"...ONE MOMENT PLEASE....":(4);"RUN";FI$(1) 150/ QQ$(2)"Y"Ĺ952,12::(16):10:NAMES INTO FI$( 700: SCREEN AND BOX\ 800: CURRENT MENU AND SOUND EFFECTS DECISIONSo MENU PRINTED 12:2:"CHOOSE AN ACTIVITY (11-15): "; 1000: PRINT MENU CHOICE 12:2:"CHOOSE AN ACTIVITY (11-15): "; GOTO CHAR INPUT RO 310952,325 NEW 82/11/28 10:43 DBS;S DESIGN DOUG SUPERl PROGRAM DOUG SUPER "MENU" FOR 11 TO 15 24576d M A C 6A MENUn255:QQ$(5),FI$(5),NA$(5) x2000: READ MENU NAMES INTO NA$ AND FILE """""!!! ! ! ! ! !!!!/m5^ؘٜ75 10Sj1*(q@sKrdRiZ : 0 (:%  ;< $+ 9' ;+ 2=VEwTK CDe)fIWJ ,,w^iAuVK Fe7g3~;_pEoU[]?o!{4sPWG[ތDUM̞ފǂkz/y\ oX[XXNm?e0f7YJGPeOl)d(h#Y7~יωƓߐ诮)z:h:|]L *+fGA X_fj/ ?NI\A{Eq@mS`Y+4ӂ֟9ωć铝#][8p=.z*b&VB]Pq3fYo[jm"1!'8 :53 'FuFB\j^iZiZmPH~Js`Rk|Jew*d4a)fKhgZW@E0:אГޜͅ΃We\iIjz3Ҕ€͂ÎƉܔforsbWlԚ룐ݛݛԃМٓї#, <6”ڏĊЅLTSr7d$hIH#!:B Mj;m.]E N0'&*$oD}rhf= 0iL^[G Y^~P\_\`\gќ֙Ml(f5m h,e6YAQU|'!0EJVH _8p1c4g5w hW&g)xYSZ~n^kPxY]B#v, K^9vUO (:q5w5z>oI4$h.a7w+ o_hSsN\R] D E3=4eWc^fEUTD VUt`,f!X_7%e+i8z5kF!,.;4WcTkFtD}FEsCrqLOZj]fKEuG|lZn_@ + *l>↋NNZrERcRk\Q." 9 ;; :;ww젒#.?7$)tBwNm]m_bFrD{z''u~*+9jj#7*'fReS~Ir# #̗_hS~HyJq~H|MJqy86'.4 0ʁ; <*%-{IzAj]fmNS~ PPsK|Fk_nWhb aUb\qFwBKA,,?8/#+YS,,> 3岑KCaTo5;,$ ?/03-%4 ;-(Ƌَޝɐߞkl]nUn߄ˎܞٝʀ褴̭GD؛ԀKj({3g*o@ FQv"s!k=,no+)(XlQ}\QB *%"*+3{N}NzMvˉƂė㘙