' +JJJJ ?\>m0M='+l> /+l  P˵B̵CõDĵEµµBD ĵ ⵭µ ۰ µL` 鷎귭෍ᷩ췩緈JJJJx i 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,&" ʎ L/  !"#$%&'()*+,-./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#0EB H  @H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   d@ŵLҦL [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<ԍ L}JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\8õ浍õĵBD` L[W ԧ 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̦µ_bJLLz L^ ۰L^  ȟ QlXJ̥KlV  ȟ QlV eօ3L׮ʊHLQ &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ȿõ` F`  \ 濭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`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- (  Ϡ@跻~!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 ꝍ ŤL{ BH [ h`Lo õ ڬL ꝍ Ť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볩쳢8DH ؿ 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뷭鷭  ˤLª 뷰` Lk ݵܵߵ޵ ^`8ܵ i B8` 9L%ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵BֵO G굎뵎쵬 뵎쵌`` ַ յյ`@ +õm浍õĵL õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(`  d֠ĭz#z#     Ϡ ԠӠŠŠ4I1500:: L: SIMUL. EQNS.Ej"NOW ENTER THE SECOND EQUATION.Ot1270c: CONIC SECT."WHEN THE EQUATION OF A CONIC SECTION""IS SOLVED FOR Y, THE RESULT IS USUALLY""TWO EQUATIONS.""ENTER THE SECOND EQUATION NOW."EL24:1:958+"NEW LIMITS OF Y-AXIS";A4550:YAL1:YBL2J190^ DISPLAY TITLE::"EDU-SOFT PRESENTS":10:15:"P L O T"21:"BY SCOTT STEKETEE":"STEKETEE EDUCATIONAL SOFTWARE""4639 SPRUCE ST.":"PHILA., PA. 19139"; .TO SAVE."R$&HA$:A$"E"Ĺ804,0:597RA$"S"840w\6000:J14:KI2I6:A%,(K):A%A%1:K:II7:J:804,1f5924:1:958804,0"ENTER BOTH LIMITS SEPARATED BY A COMMA.""NEW LIMITS OF X-AXIS";4550:XAL1:XBL24 GRAPH FINISHED#:24:1R"PRESS C TO CHANGE AXES, R TO RESTART.";i1:A$:A$"C"900zA$"R"730 ::"DO YOU WANT TO ERASE THE LAST GRAPH, OR"*R$"DO YOU WANT TO SAVE IT?"R2$4"TYPE: E TO ERASE, OR"R$ >" S ,J%:490I%1,K%I%,J%)F%16007Y2(X)[M%(YBY)M.5:M%U%M%L%600B%:D%N%U%N%L%ēI%,M%:600I%1,N%I%,M%XK%J%:N%M%:I%I%1:I%280390bA%7ī700lA%3Ĺ802,A%4:803,7A%vA%4Ĺ802,7A%:803,A%2K:K0 RI%276K2K:K103 SI%K,JI%K1,J: TYf YF%(800):D%(801):A%(802):B%(803)p ^1600 cF%3B%A% hK%1:N%1:U%0:L%159 |I%0 XXANI% Y2(X) J%(YBY)M.5:J%U%J%L%490A%:D%K%U%K%L%ēI%K1 ,X2 BLG(YBYA)(10):LC(LG):LMLGLCR DY1YA10LC:Y2YB10LC:D1x FLM.7D2:LM.4D5:LM.2D10 JYY1Y2.0011D LY3(DY.999)D:J(Y2Y3)M10LC.5:J0345 PK2:DY35(DY35)(D2Y3(Y3))K3 QK1K:I%3K1 X1XA10LC:X2XB10LC:D1E LM.7D2:LM.4D5:LM.2D10[ "XX1X2.0011D $X3(DX.999)D:I(X3X1)N10LC.5:I280322 &K2:DX35(DX35)(D2X3(X3))K3 (K1K:J%3K12K:K0 *J%156K2K:K10 +I,J%KI,J%16297,0:16304,03 M159(YBYA):N(XBXA)279D (804)ī345M :7j J%0:YAYB0J%YBM.5| YA0J%159 0,J%279,J% I%0:XAXB0I%XAN.5 XB0I%279 I%,0I%,159 LG(XBXA)(10):LC(LG):LC(LG):LMLGLCICIT FUNCTION YOU CHOOSE."4 ZEL400:RL100:3000:K dR$(13):R2$R$R$e (800)150,1100,1200p 2000 R$(13):R2$R$R$:PI3.1416 XA10:XB10:YA6:YB6 (804)0İ4200:190 6000:J14:KI2I6:K,(A%):A%A%1:K:II7:J: ERROR CALL-hhߚHH`+ 3/15/801A P L O TGg (C)1980 BY SCOTT STEKETEE ALL RIGHTS RESERVED8192(1000:5000;:<"THIS PROGRAM WILL DISPLAY THE GRAPH"F"OF Y AS A FUNCTION OF X FOR ANY" P"EXPL        I1 :"WHICH PROGRAM DO YOU WANT TO USE?"X :"PLEASE TYPE THE NUMBER OF THE"q "PROGRAM YOU WANT."x I :(4)"RUN "N$(I) , 2,PLOT,GUESS THE RULE8 ȱȘH80h~~~~~x` F"STEKETEE EDUCATIONAL SOFTWARE"8 Z"4639 SPRUCE ST."Y d"PHILADELPHIA, PA. 19139";u nOG256(176)(175)77} sOG uN1Ģ18::(4)"RUN "N$(1) xI1500:I: "P R O G R A M S A V A I L A B L E :" 5:I1N I".";:5:N$(I) N$(50)N)I1N:N$(I):I8 ::16384h"DOS 3.2.2 PLUS MASTER VOLUME 254"o6"EDU-SOFT PRESENTS:"12("E D U C A T I O N A L P R O G R A M S"214:5<"F O R T H E A P P L E ]"(91)F20! P  )X(N)İ6100:460 :I0 DX(N)19İ6200:460I IX(N)19İ6300:460_ N10:MX9999:4000p XIN$"R"800z b3800 gPTPTL9 l(IN$)Y(N)İ6400:700 v6500 NN1:N10460 6600 5000 *A1AB1BC1C900 /PTPTL9 4ISPLAY POINTS ON RULE BOX2 3700: SHOW 2 HINTS: N2F 6000:\ "GUESS A PAIR"R$t "OF NUMBERS, OR"R$ "PRESS 'R' TO"R$ "GUESS THE RULE.": 14N:1:4); 3 MX99:4000 IN$"R"800 &X(N)(IN$) 0I0N1:X(I1)(2(2(1))1) ZHT(11)) d11007 nSN16336F SC0:7000Q R15d 1:38:"R "R;m 400t R~ 3000 200  PLAY ONE RULE 9600:9700: NEW RULE BOXES 9800: ERASE TABLE OF VALUES 2000:PICK RULE 7500:D2 7/28/800 (C) 1980 BY SCOTT STEKETEEJ ALL RIGHTS RESERVEDP{( G U E S S T H E R U L E2<A1000E PICK A # FROM 1 TO XFR(X)(X(1)1)O PICK A # FROM -X TO X (0 EXCLUDED) PS(X)(X(1)               A$:A$"C"Ĺ801,0:(A$"D"52405801,1:epVF256(106)(105):VL256(108)(107)7zIVFVL7:(I)88ĂI:VFI:(I1)656010A%805:IYA O1:803,2:801,0:=P:"WOULD YOU LIKE A CONTINUOUS GRAPH,"aZR$"WHICH IS A SMOOTH LINE, OR"dR$"WOULD YOU LIKE A DISCRETE GRAPH,"nR$"WHICH IS MADE UP OF SEPARATE POINTS?"xR2$"TYPE: C FOR CONTINUOUS, OR"R$" D FOR DISCRETE."ON?"6R$"PLEASE TYPE THE NUMBER OF YOUR CHOICE."R$TX$:X(X$):X1X35050f800,X:804,0:"DO YOU HAVE A COLOR MONITOR?"R$"TYPE: Y FOR YES"" N FOR NO."R$ X$:X$"N"Ĺ802,7:803,7:5200X$"Y"5110802,WHAT ARE THE LIMITS"; L1,L2-L1L2ı=L1L24540SL3L1:L1L2:L2L3Yj INITIALIZER$(13):R2$R$R$::"DO YOU WANT TO GRAPH:"R$"1. A SINGLE EQUATION""2. TWO SIMULTANEOUS EQUATIONS, OR""3. A CONIC SECTI0:XB6.28:YA2:YB2:(A$"S"4285.4EA$"X":4500UXAL1:XBL2fA$"Y":4500vYAL1:YBL2|R2$"INPUT YOUR LIMITS FOR THE "A$"-AXIS."R$"ENTER ONE LIMIT, THEN A COMMA,"R$"AND THEN THE OTHER LIMIT."R2$"E TRIG. LIMITS:"R$"0 TO 2*PI ON THE X-AXIS"R$"-2 TO 2 ON THE Y-AXISkR$"YOU MAY CHOOSE YOUR OWN LIMITS.R2$"TYPE: S FOR STANDARD LIMITS, OR"" T FOR TRIG. LIMITS, OR"" N FOR NEW LIMITS."A$:A$"N"4330A$"T"XA THE RETURN KEY."/: "3. TYPE 'RUN "RLINE"'."QD "4. PRESS THE RETURN KEY.":gh:NOW INPUT AXES|"NOW CHOOSE THE LIMITS OF YOUR AXES."R$"YOU MAY USE STANDARD LIMITS:"R$"-10 TO +10 ON THE X-AXIS"R$"-6 TO +6 ON THE Y-AXISCR$"YOU MAY US " ^ TO INDICATE AN EXPONENT, AND"R " SQR(X) TO INDICATE SQUARE ROOT." R$"YOU MAY ALSO USE SIN(X), COS(X), AND" "TAN(X) WITH X IN RADIANS." R$"1. TYPE '"ELINE" Y";! " = ' FOLLOWED BY A"& " FUNCTION OF X."0 "2. PRESSAREFULLY"pELINE400ļ4001zELINE500ļ50085LRLINE150:3000Rf DISPLAY RULES R$"USE + TO INDICATE ADDITION," " - TO INDICATE SUBTRACTION," " * TO INDICATE MULTIPLICATION," " / TO INDICATE DIVISION,"'E162100-ELINE400ELINE410J%1:490QELINE500ELINE510M%1:600bECODE254Ħs ECODE255Ā"ERROR "ECODE" IN LINE "ELINE 4 SYNTAX ERROR>ELINE400ELINE5002150H2070f: k"ENTER YOUR FUNCTION MORE C500:RL150:3000::? DISPLAY DATA AT BOTTOM OF SCREENI@:21:400\JF%1Ģ22:500h23:"X: "XA" TO "XB" Y: "YA" TO "YBr:"CALCULATING";::2066: MACHINE LANG. ERROR ROUTINEECODE(222)ELINE(218)256(219) ECOD BELL8I1500:IB0s SHOW TWO HINTS<t6000:]~"RULE # "(R)": HERE ARE"R$x"TWO HINTS TO HELP"R$"YOU GUESS MY RULE.":I11000:N0:3600N1:36007:1:"(PRESS ANY KEY)";16384,128:16368,0"R$: "SOMETIME.";&D I11500:IEN :"PLEASE FIND SOMEONE"R$[X "ELSE TO PLAY"R$k] "WITH ME."|b I11500:Il 70 2500: SHOW A HINTX(N)R(10):N03620I0N1X(I)X(N)3600I$3800:3900."";:!"R$7 SC35(L9)ĺ"YOU PLAYED"R$;R$"VERY WELL!!";H I12500:I] :N$", WOULD"R$w "YOU LIKE TO PLAY"R$ "ANOTHER GAME?";I$ (I$,1)"Y"3200 (I$,1)"N"3050 :N$", I HOPE"R$& "THAT YOU'LL PLAY"R$0 "WITH ME AGAIN  6000:! N$", HOW HARD"R$> "A RULE DO YOU WANT?"R$U "TYPE A NUMBER"R$m "FROM 1 TO 11: ";L L1L11(L)L2530  1:27:"LEVEL "L;  RESPOND AT END OF GAME 6000: N$", I LIKED"R$ "PLAYING WITH YOU:BR(8)1:C0:#R(1).5ī2110-S2120G\A0:BR(9):CR(9):]fA1:B0:CR(9):spA1:BR(6):C0:zA0:BS(4):CS(4):A1:BR(4):CR(5):A1:BS(3):CS(4):AR(2):BS(4):CS(5):A1R(2):BS(9):CS(9):SS ANY KEY TO CONTINUE.";'16368,0A16384,128:16368,0I:] PICK THE RULElPT9010LvP0PTL1LL32030(1).5L1R(L)L12110,2120,2130,2140,2150,2160,2170,2180,2190,2200,2210>A0:B1:CR(9):HA0&"THIS GAME, "N$", YOU CAN GET"R$V"MORE POINTS BY CHOOSING A HARDER RULE."R$~R$"HOW HARD A RULE DO YOU WANT?"R$"TYPE A NUMBER FROM 1 TO 11: ";LL1L11(L)L175090001:27:"LEVEL "L;l9000:24:"PREGAME."R$r19508|4:N$", MY RULES ARE NUMBERED"R$b"FROM 1 (EASY) TO 11 (VERY HARD)."R$"I SUGGEST, "N$", THAT YOU"R$"CHOOSE AN EASY RULE IF YOU'RE PLAYING"R$"FOR THE FIRST TIME."R$R$" IF YOU'RE ALREADY PRETTY GOOD AT"R$CTLY, YOU"R$;T"WILL GET THE POINTS SHOWN ON THE BOX."R$k^R$" IF YOU GUESS WRONG, I'LL GIVE YOU"R$h"ANOTHER HINT, AND YOU CAN KEEP TRYING."R$jR$" WE WILL PLAY FIVE DIFFERENT RULES,"R$l"ONE AFTER THE OTHER, FOR A COMPLETE"R$n"UESS IS CORRECT, YOU WILL"R$K"EARN POINTS. IF YOUR GUESS IS WRONG,"R$|""I WILL SHOW YOU A CORRECT ORDERED PAIR."R$,19506" WHEN YOU THINK YOU KNOW THE RULE"R$@"ITSELF, "N$", JUST TYPE 'R'."R$ JR$" IF YOU GUESS THE RULE CORREN."R$1950;" WHEN WE BEGIN EACH RULE, I WILL"R$l"SHOW YOU TWO ORDERED PAIRS THAT FIT THE"R$"RULE. TO GET MORE HINTS, YOU CAN GUESS"R$"ANOTHER ORDERED PAIR THAT YOU THINK"R$"MIGHT FIT THE RULE."R$ " IF YOUR G."THINK OF A RULE. MY RULE WILL BE AN"R$U"EQUATION FOR Y IN TERMS OF X."R$[" YOU WILL TRY TO GUESS MY RULE, AND"R$"I WILL GIVE YOU HINTS TO HELP YOU."R$"THE SOONER YOU GUESS THE RULE, THE"R$"MORE POINTS YOU WILL WIM GLAD"R$$ "TO PLAY WITH YOU."R$4I11000:L"WOULD YOU LIKE"R$d("INSTRUCTIONS?";I$}<(I$,1)"N"İ2500:F(I$,1)"Y"1400P:"I DIDN'T UNDERSTAND!"R$;R$ZI11000:Id1310x:" IN THIS GAME, "N$", I WILL"R$,96 9000R$(13)&6000:<"WHAT IS YOUR"R$L"NAME?";N$^:N$""1220dw(N$)101290N$(N$,9)"THAT'S TOO LONG FOR"R$"ME TO REMEMBER."R$"I'LL CALL YOU"R$N$" FOR SHORT.";1300  N$", I'"PHILA., PA. 19139";( .I12000:I. 8a K READ STARTING POSITIONS FOR DISPLAYING RULESw LL111:HT(L):L V25,27,25,25,22,22,22,22,22,22,22 `I768785 jX:I,X tI~ 173,48,192,136,208,4,198,7,240,7,202,208,246,166,6,208,2396700 >N10700 H910' 6800- ?  TITLE FRAMEG :` "EDU-SOFT PRESENTS"x 6:15:"G U E S S" 9:17:"T H E" 12:16:"R U L E" 21:"BY SCOTT STEKETEE" "STEKETEE EDUCATIONAL SOFTWARE" "4639 SPRUCE ST." $ME?";I$+|(I$,1)"N"ĉ:3+(I$,1)"Y"6768=+LL1J+:1:33T+L;:f+5800:6000:+"CONGRATULATIONS"R$+"YOU GOT IT!!":+I1500:I+SCSCPT:7000++6000:5:1+"PRESS ANY KEY"R$+"TO CONTINUE.";,*J6000:"*O"HERE'S A HINT."R$2*TI1500:IF*Y:3600:9700:[*^"HERE IS THE"R$p*a"SECRET RULE!";*dI12000:I*g:5800*jI11000:I*mR5İ6900:*p6000:*s"WOULD YOU LIKE TO"R$*v"TRY AN EASIER RULE"R$+y"NEXT TI6:10);)11((Y(N))),):Y(N);:=)I11000:IG)3960M)Y)6000:r)"ONE LAST CHANCE"R$)"TO GUESS THE RULE!"R$)6900)),6000:)1"SORRY. YOUR"R$)6"GUESS IS WRONG."R$);N106750)@:7500)E6900 "THAT'S NOT RIGHT."R$(tR$:/(xI1500:I;(|:7500K(I1500:IW(6000:q("PRESS ANY KEY TO"R$("SEE THE CORRECT"R$("VALUE OF Y."R$(:16368,0(16384,128:16368,0(14N:11(IN$)(:IN$;:(I11000: )"R$'6900:'12:"C";1'J(.75(L9))=' 6000:Q'"CORRECT!!"R$e'"YOU WIN "J;R$t'"POINTS."~'R$:'(I1500:I'2SCSCJ:7000'<I1500:I'F7500'PI1500:I'Z'd12:"X";'h6000:'l"SORRY."R$(p,20:35,8&z&6000:7&"DON'T USE THE SAME"R$R&"VALUE OF X TWICE!"R$^&6900:j&86000:&B"VALUES OF X MUST"R$&L"BE LESS THAN 20!"R$&V6900:& ERROR MESSAGES&6000:&"VALUES OF X MUST BE"R$'"GREATER THAN -20!" "R3$" "((C))&%I(RL$)406%RL$RL$" "=% IG%*J255U%>I1392a%?J.95Jo%@6,J:7,8x%A768%C19:20I2%HR2$;(RL$,I,1);R1$;(RL$,I1,1);R1$;R2$;%RI%W6,.95J:7,200:768%\%o SET SMALL TEXT WINDOW &p33RL$""$I21HT(L)'$RL$RL$" ".$IE$RL$RL$" Y = "c$L1RL$RL$" X ":5900q$L55880$RL$RL$" "(A)" X2 $R3$"+":B0R3$"-"$RL$RL$R3$" "$RL$RL$" "((B))" X "$ R3$"+":C0R3$"-"%RL$RL$I#](8)"-";#bI150>#gIN(16384)128:IN05750E#lIO#q5705]#v16368,0|#{IN$(IN):IN$";"IN$"+"#IN$"+"IN$"-"5770#5705#(8);IN$" ";#IN$"-"S1## REVEAL RULE#R1$(10)(8):R2$" "R1$$NS "" GET A DIGIT *":"?";8"16368,0R"16384,128:16368,0f"IN(16384)48z"IN0IN95610":(8);IN;""C GET A + OR - SIGN "D" ";:16368,0:S1"I(8)"+";"NI150"SIN(16384)128:IN05750#X!L75500#!HT(36)1:6000::!"NOW ENTER THE"R$O!""SIGN OF THE"R$g!'"CONSTANT TERM.":s!,13:HT}!15700!65505!|S1:"+ ";!HT(36)1:6000:!"ENTER THE"R$!"CONSTANT"R$!"TERM.":!13:HT!5600"C1I"SIGN OF THE"R$& _"COEFFICIENT"R$6 d"OF X.";:J i13:HT3:"X";X nHT:5700b s5305j S1 HT(36)1:6000: "ENTER THE"R$ "COEFFICIENT"R$ "OF X.": 13:HT:" X"; HT:5600 B1INS "X "; L25540 55300HT(36)1:6000:0"ENTER THE"R$E"COEFFICIENT"R$V"OF X^2."R$qL10ĺ"TYPE 0 OR 1.";:13:HT " X";:12:"2";13:HT5600:A1IN"X ";L7ĺ"+ ";:5300PHT(36)1:6000:U"ENTER THE"R$ Z04010@IN$I$:4220(hIN$IN$I$Dm(IN$)0(IN$)14250cr(IN$)MX(IN$)MX4250w|(36)2(IN$)IN$;(8);4010IN$(IN$,(IN$)1):401013:HT(L)"Y = ";A10:B10:C10L1ĺ"X ";:B11:5500LI$"R"IN$"R":I(I$)2I47I584200N(I13I44)(IN$)0ı\I84100kI454150vI3Ā4010J(IN$) J04010 J1IN$"":4120IN$(IN$,J1)(36)1(IN$)"" "IN$;(8);,40106(IN$) COMPUTE VALUE OF Y5Y(N)AX(N)X(N)BX(N)C;Y; DISPLAY AN ORDERED PAIRk<3950:3960:znX$(X(N))p14N:1r3(X$));X$;txY$(Y(N))14N:65(Y$));Y$; INPUT ROUTINEIN$""I$TO X (0 EXCLUDED)B TO START DISPLAY OF RULE FOR LEVEL L@9+ N$ PLAYER'S NAME\9+ R$ CARRIAGE RETURN9+ PT POINTS LEFT TO WIN ON CURRENT RULE9+ P0 PREVIOUS # OF POINTS LEFT9+ FNR(X) PICK A RANDOM # FROM 1 TO X:+ FNS(X) PICK A RANDOM # FROM -X UT8R+ IN$ INPUT STRING?8\+ X(N) X-VALUE OF ORDERED PAIRc8f+ Y(N) Y-VALUE OF ORDERED PAIR8p+ L LEVEL OF PLAY (FROM 1 TO 11)8z+ A COEFFICIENT OF X^28+ B COEFFICIENT OF X8+ C CONSTANT TERM OF RULE&9+ HT(L) HORIZ. TANT SCORE27+ S0 PLAYER'S MOST RECENT SCORE c7 + CH,CV SCREEN POSITION AT WHICH TO DRAW BOX7*+ HT,WD HEIGHT & WIDTH OF BOX74+ R RULE NUMBER (FROM 1 TO 5)7>+ N NUMBER OF ORDERED PAIR (0 TO 9)8H+ MX MAXIMUM ALLOWED VALUE OF INP 7500 DISPLAY POINTS REMAINING ON BOXB6( 9000 DRAW THE SCREEN`6( 9500 DRAW AN EMPTY BOX~6( 9600 DRAW THE RULE BOX6( 9700 ERASE THE GUESS BOX6( 9800 ERASE THE TABLE6*6*6* LIST OF VARIABLES6+7 + SC PLAYER'S CURREPAIR WAS WRONG95x( 6600 LAST CHANCE TO GUESS THE RULE[5( 6700 WRONG GUESS FOR RULE5( 6800 CORRECT GUESS FOR RULE5( 6900 PRESS ANY KEY TO CONTINUE5( 7000 CHANGE SCORE5( 7100 DISPLAY SCORE5( 7200 MAKE SOUND FOR SCORE&6(S$42( 6000 SET SMALL TEXT WINDOWH4<( 6100 DON'T USE SAME X TWICEl4F( 6200 X MUST BE LESS THAN 204P( 6300 X MUST BE GREATER THAN -204Z( 6400 ORDERED PAIR WAS CORRECT4d( 6450 MESSAGE--X MUST BE GREATER THAN -205n( 6500 ORDERED SIGN OF COEFFICIENT OF X83' 5300 COEFFICIENT OF X[3' 5400 SIGN OF CONSTANT TERMv3( 5500 CONSTANT TERM3 ( 5600 GET A SINGLE DIGIT3( 5700 GET A + OR - SIGN3( 5800 REVEAL RULE HIDDEN IN BOX4(( 6000 MESSAGE DISPLAY ROUTINE 3900 DISPLAY AN ORDERED PAIR82' 3950 DISPLAY X(N)Q2' 3960 DISPLAY Y(N)k2' 4000 INPUT ROUTINE2' 4100 BACKSPACE2' 4150 + OR - SIGN2' 4200 NUMERIC INPUT2' 5000 USER GUESSES RULE2' 5100 COEFFICIENT OF X^23' 5200WAIT FOR KEYPRESS DURING DIRECTIONS=1L' 2000 PICK THE RULEf1V' 2500 PLAYER CHOOSES LEVEL OF PLAY1`' 3000 RESPOND AT END OF GAME; ASK FOR NEW GAME1j' 3600 DISPLAY AN ORDERED PAIR1t' 3700 SHOW TWO HINTS1~' 3800 CALCULATE VALUE OF Y2':20);0%13:20:20); 0%20G& ERASE TABLE?0H&I1324O0R&I:1:4);\0\&6:8);c0f&Ii0p&0' LIST OF SUBROUTINES0'0$' 400 PLAY ONE RULE0.' 1000 TITLE FRAME08' 1100 INITIALIZE, ASK FOR NAME & GIVE DIRECTIONS#1B' 1900 :5:" ";/#I/#:'/% DRAW BOX-/%?/&%CH:CV:WD)M/0%I1HT2a/:%CVI:CH:" ";t/D%CHWD1:" ";{/N%I/X%CVHT1:CH:WD)/b%:/% DRAW SOLID BOX/%/%I1823/%I:19:22);/%I/%:/% ERASE RULE0%12:20P0PT .~.(#:-.0#CH27:CV3:WD14:HT57.2#9500P.<#8:30:"S C O R E";k.F#CH19:CV10:WD22:HT6u.P#9500.Z#20:"Y O U R G U E S S";.d#9600.n#22:"T H E R U L E";.x#10:2:"X Y";.#12:1.#:10).#I1024 /#I(S1$)9S1$" "S1$" ":7145*-5:304-S1$;:- P- I16:X(SN):I_-*I120:Ie-4-K DISPLAY POINTS REMAINING-LP0P0PT1-V21:28:" "P0" ";-X:" ";:-[I(SN)(SN)(SN)(SN)(SN)(SN)-`I130:I-jP0.t16384,128:16368,0,:/,W CHANGE SCORE>,XSC0S00Q,bSCS0İ7100:e,gSSC:SCS0:S0So,lCT10,qS0SC10CT1,vSCSCCT:7100:7200,SCS0ı,7025,S$(SC),S1$" ",I1(S$),S1$S1$(S$,I,1)" ",I-