� Name The Graph
#� Copyright (C) G.Ludinski 1983
"��6:�23;8202;0;0;0;:�"$.MENU"
($�6:�23;8202;0;0;0;19,7,0;0;:�ins
25�1:�23;8202;0;0;0;19,7,0;0;:�29,640;512;:*FX200 0
<&ݤY(XI)=(A*XI^2)/400+(A*D*XI)/10+C
F!�-640,0:�640,0:�0,512:�0,-400
P�
Z� DRAW AXES
d�
nXA=-30:XX=0
x�I=-600 � 600 � 100
�  �I,10:�I,-10
�  �XX,17);XA
�  XX=XX+3:XA=XA+5
�  � XA=-5 � XX=XX+2
��I
�YY=25:YA=-300
��I=-300 � 500 � 100
�  �-10,I:�10,I
�  � YA<>0 � �15,YY);YA
�  � YA=0 � YY=YY-1
�  YY=YY-3:YA=YA+100
��I
��

� DRAW TARGET GRAPH

�

A=�(2*�(1)+1):D=�(5*�(1)+2)

"
C=�(9)

,3A=A*((-1)^�(2)):D=D*((-1)^�(2)):C=C*((-1)^�(2))

6A1=A:D1=D:C1=C:B1=2*A1*D1

@�3:�0,3

J�_GRAPH(A,D,C)

T�19,7,7;0;

^�

h"� INPUT AND DRAW GUESSED GRAPH

r�

|G=0

�|G=G+1:�28,0,31,39,28:�:�28,0,31,39,0:�0,28)"             _     _   _"�0,29)"This is y = +Ax^2 +Bx +C . Guess A,B,C";:�1

�X�0,31);�39," ");�0,31);"Guess ";G;:� G<>1 � �"     Last guess = ";A$;",";B$;",";C$;

��7:�0,30);

�*�28,0,30,39,30:�A$,B$,C$:�28,0,31,39,0

�[� A$="WHAT" � B$="IS" � C$="IT" � �0,28);�79," ");�0,29)"Answer = ";A1;",";B1;",";C1:�

��0,1

�$�_GRAPH(�(A$),�(B$)/(2*A),�(C$))

�	�tFA

�:

���_GRAPH(A,D,C)

�P=0

��128

�� X=-600 � 600 � 30
   � X=-600 � � -640,�Y(-640)
.  � �Y(X)<650 � �Y(X)>-450 � � X,�Y(X):P=1
.  � P=1 � (�Y(X)>650 � �Y(X)<-450) � �TpB
&�
0�
::
D	��ins
N5�(13)"NAME THE GRAPH"'�(11)"Genevieve Ludinski"'
X��'"THIS is a game of logic where you aim tofind the equation of a graph on screen. You can key in the three values for the parabola and see immediately how close  they come to being correct when your"'"guess is drawn on screen."
b��'"The three values (A,B,C) are always"'"constants (positive or negative). For"'"example: -2x^2 + 3x - 5 where A=-2, B=3 and C=5. Input all three numbers on the same line separated by a comma then"
l.�"press <RETURN>. (E.g. -2,3,-5 <RETURN>)"
v��'"If you cannot guess the answer, key in  WHAT,IS,IT <RETURN> for the answer but  trying to find it by trial and error is the biggest part of the fun - so don't  cheat!"
��19,0,4;0;19,7,7;0;
�!�14,24)"PRESS SPACE!";:*FX21
�
���=32
��
�

00000000  0d 00 0a 14 f4 20 4e 61  6d 65 20 54 68 65 20 47  |..... Name The G|
00000010  72 61 70 68 0d 00 14 23  f4 20 43 6f 70 79 72 69  |raph...#. Copyri|
00000020  67 68 74 20 28 43 29 20  47 2e 4c 75 64 69 6e 73  |ght (C) G.Ludins|
00000030  6b 69 20 31 39 38 33 0d  00 1e 22 ee 85 eb 36 3a  |ki 1983..."...6:|
00000040  ef 32 33 3b 38 32 30 32  3b 30 3b 30 3b 30 3b 3a  |.23;8202;0;0;0;:|
00000050  d7 22 24 2e 4d 45 4e 55  22 0d 00 28 24 eb 36 3a  |."$.MENU"..($.6:|
00000060  ef 32 33 3b 38 32 30 32  3b 30 3b 30 3b 30 3b 31  |.23;8202;0;0;0;1|
00000070  39 2c 37 2c 30 3b 30 3b  3a f2 69 6e 73 0d 00 32  |9,7,0;0;:.ins..2|
00000080  35 eb 31 3a ef 32 33 3b  38 32 30 32 3b 30 3b 30  |5.1:.23;8202;0;0|
00000090  3b 30 3b 31 39 2c 37 2c  30 3b 30 3b 3a ef 32 39  |;0;19,7,0;0;:.29|
000000a0  2c 36 34 30 3b 35 31 32  3b 3a 2a 46 58 32 30 30  |,640;512;:*FX200|
000000b0  20 30 0d 00 3c 26 dd a4  59 28 58 49 29 3d 28 41  | 0..<&..Y(XI)=(A|
000000c0  2a 58 49 5e 32 29 2f 34  30 30 2b 28 41 2a 44 2a  |*XI^2)/400+(A*D*|
000000d0  58 49 29 2f 31 30 2b 43  0d 00 46 21 ec 2d 36 34  |XI)/10+C..F!.-64|
000000e0  30 2c 30 3a df 36 34 30  2c 30 3a ec 30 2c 35 31  |0,0:.640,0:.0,51|
000000f0  32 3a df 30 2c 2d 34 30  30 0d 00 50 05 f4 0d 00  |2:.0,-400..P....|
00000100  5a 0f f4 20 44 52 41 57  20 41 58 45 53 0d 00 64  |Z.. DRAW AXES..d|
00000110  05 f4 0d 00 6e 0f 58 41  3d 2d 33 30 3a 58 58 3d  |....n.XA=-30:XX=|
00000120  30 0d 00 78 17 e3 49 3d  2d 36 30 30 20 b8 20 36  |0..x..I=-600 . 6|
00000130  30 30 20 88 20 31 30 30  0d 00 82 12 20 20 ec 49  |00 . 100....  .I|
00000140  2c 31 30 3a df 49 2c 2d  31 30 0d 00 8c 11 20 20  |,10:.I,-10....  |
00000150  f1 8a 58 58 2c 31 37 29  3b 58 41 0d 00 96 15 20  |..XX,17);XA.... |
00000160  20 58 58 3d 58 58 2b 33  3a 58 41 3d 58 41 2b 35  | XX=XX+3:XA=XA+5|
00000170  0d 00 a0 17 20 20 e7 20  58 41 3d 2d 35 20 8c 20  |....  . XA=-5 . |
00000180  58 58 3d 58 58 2b 32 0d  00 aa 06 ed 49 0d 00 b4  |XX=XX+2.....I...|
00000190  11 59 59 3d 32 35 3a 59  41 3d 2d 33 30 30 0d 00  |.YY=25:YA=-300..|
000001a0  be 17 e3 49 3d 2d 33 30  30 20 b8 20 35 30 30 20  |...I=-300 . 500 |
000001b0  88 20 31 30 30 0d 00 c8  12 20 20 ec 2d 31 30 2c  |. 100....  .-10,|
000001c0  49 3a df 31 30 2c 49 0d  00 d2 1b 20 20 e7 20 59  |I:.10,I....  . Y|
000001d0  41 3c 3e 30 20 8c 20 f1  8a 31 35 2c 59 59 29 3b  |A<>0 . ..15,YY);|
000001e0  59 41 0d 00 dc 16 20 20  e7 20 59 41 3d 30 20 8c  |YA....  . YA=0 .|
000001f0  20 59 59 3d 59 59 2d 31  0d 00 e6 17 20 20 59 59  | YY=YY-1....  YY|
00000200  3d 59 59 2d 33 3a 59 41  3d 59 41 2b 31 30 30 0d  |=YY-3:YA=YA+100.|
00000210  00 f0 06 ed 49 0d 00 fa  05 f4 0d 01 04 17 f4 20  |....I.......... |
00000220  44 52 41 57 20 54 41 52  47 45 54 20 47 52 41 50  |DRAW TARGET GRAP|
00000230  48 0d 01 0e 05 f4 0d 01  18 1f 41 3d a8 28 32 2a  |H.........A=.(2*|
00000240  b3 28 31 29 2b 31 29 3a  44 3d a8 28 35 2a b3 28  |.(1)+1):D=.(5*.(|
00000250  31 29 2b 32 29 0d 01 22  0a 43 3d b3 28 39 29 0d  |1)+2)..".C=.(9).|
00000260  01 2c 33 41 3d 41 2a 28  28 2d 31 29 5e b3 28 32  |.,3A=A*((-1)^.(2|
00000270  29 29 3a 44 3d 44 2a 28  28 2d 31 29 5e b3 28 32  |)):D=D*((-1)^.(2|
00000280  29 29 3a 43 3d 43 2a 28  28 2d 31 29 5e b3 28 32  |)):C=C*((-1)^.(2|
00000290  29 29 0d 01 36 1d 41 31  3d 41 3a 44 31 3d 44 3a  |))..6.A1=A:D1=D:|
000002a0  43 31 3d 43 3a 42 31 3d  32 2a 41 31 2a 44 31 0d  |C1=C:B1=2*A1*D1.|
000002b0  01 40 0b fb 33 3a e6 30  2c 33 0d 01 4a 12 f2 5f  |.@..3:.0,3..J.._|
000002c0  47 52 41 50 48 28 41 2c  44 2c 43 29 0d 01 54 0e  |GRAPH(A,D,C)..T.|
000002d0  ef 31 39 2c 37 2c 37 3b  30 3b 0d 01 5e 05 f4 0d  |.19,7,7;0;..^...|
000002e0  01 68 22 f4 20 49 4e 50  55 54 20 41 4e 44 20 44  |.h". INPUT AND D|
000002f0  52 41 57 20 47 55 45 53  53 45 44 20 47 52 41 50  |RAW GUESSED GRAP|
00000300  48 0d 01 72 05 f4 0d 01  7c 07 47 3d 30 0d 01 86  |H..r....|.G=0...|
00000310  7c 47 3d 47 2b 31 3a ef  32 38 2c 30 2c 33 31 2c  ||G=G+1:.28,0,31,|
00000320  33 39 2c 32 38 3a db 3a  ef 32 38 2c 30 2c 33 31  |39,28:.:.28,0,31|
00000330  2c 33 39 2c 30 3a f1 8a  30 2c 32 38 29 22 20 20  |,39,0:..0,28)"  |
00000340  20 20 20 20 20 20 20 20  20 20 20 5f 20 20 20 20  |           _    |
00000350  20 5f 20 20 20 5f 22 8a  30 2c 32 39 29 22 54 68  | _   _".0,29)"Th|
00000360  69 73 20 69 73 20 79 20  3d 20 2b 41 78 5e 32 20  |is is y = +Ax^2 |
00000370  2b 42 78 20 2b 43 20 2e  20 47 75 65 73 73 20 41  |+Bx +C . Guess A|
00000380  2c 42 2c 43 22 3b 3a fb  31 0d 01 90 58 f1 8a 30  |,B,C";:.1...X..0|
00000390  2c 33 31 29 3b c4 33 39  2c 22 20 22 29 3b 8a 30  |,31);.39," ");.0|
000003a0  2c 33 31 29 3b 22 47 75  65 73 73 20 22 3b 47 3b  |,31);"Guess ";G;|
000003b0  3a e7 20 47 3c 3e 31 20  8c 20 f1 22 20 20 20 20  |:. G<>1 . ."    |
000003c0  20 4c 61 73 74 20 67 75  65 73 73 20 3d 20 22 3b  | Last guess = ";|
000003d0  41 24 3b 22 2c 22 3b 42  24 3b 22 2c 22 3b 43 24  |A$;",";B$;",";C$|
000003e0  3b 0d 01 9a 0f fb 37 3a  f1 8a 30 2c 33 30 29 3b  |;.....7:..0,30);|
000003f0  0d 01 a4 2a ef 32 38 2c  30 2c 33 30 2c 33 39 2c  |...*.28,0,30,39,|
00000400  33 30 3a e8 41 24 2c 42  24 2c 43 24 3a ef 32 38  |30:.A$,B$,C$:.28|
00000410  2c 30 2c 33 31 2c 33 39  2c 30 0d 01 ae 5b e7 20  |,0,31,39,0...[. |
00000420  41 24 3d 22 57 48 41 54  22 20 80 20 42 24 3d 22  |A$="WHAT" . B$="|
00000430  49 53 22 20 80 20 43 24  3d 22 49 54 22 20 8c 20  |IS" . C$="IT" . |
00000440  f1 8a 30 2c 32 38 29 3b  c4 37 39 2c 22 20 22 29  |..0,28);.79," ")|
00000450  3b 8a 30 2c 32 39 29 22  41 6e 73 77 65 72 20 3d  |;.0,29)"Answer =|
00000460  20 22 3b 41 31 3b 22 2c  22 3b 42 31 3b 22 2c 22  | ";A1;",";B1;","|
00000470  3b 43 31 3a e0 0d 01 b8  08 e6 30 2c 31 0d 01 c2  |;C1:......0,1...|
00000480  24 f2 5f 47 52 41 50 48  28 bb 28 41 24 29 2c bb  |$._GRAPH(.(A$),.|
00000490  28 42 24 29 2f 28 32 2a  41 29 2c bb 28 43 24 29  |(B$)/(2*A),.(C$)|
000004a0  29 0d 01 cc 09 e5 8d 74  46 41 0d 01 d6 05 3a 0d  |)......tFA....:.|
000004b0  01 e0 13 dd f2 5f 47 52  41 50 48 28 41 2c 44 2c  |....._GRAPH(A,D,|
000004c0  43 29 0d 01 ea 07 50 3d  30 0d 01 f4 08 fb 31 32  |C)....P=0.....12|
000004d0  38 0d 01 fe 17 e3 20 58  3d 2d 36 30 30 20 b8 20  |8..... X=-600 . |
000004e0  36 30 30 20 88 20 33 30  0d 02 08 20 20 20 e7 20  |600 . 30...   . |
000004f0  58 3d 2d 36 30 30 20 8c  20 ec 20 2d 36 34 30 2c  |X=-600 . . -640,|
00000500  a4 59 28 2d 36 34 30 29  0d 02 12 2e 20 20 e7 20  |.Y(-640)....  . |
00000510  a4 59 28 58 29 3c 36 35  30 20 80 20 a4 59 28 58  |.Y(X)<650 . .Y(X|
00000520  29 3e 2d 34 35 30 20 8c  20 df 20 58 2c a4 59 28  |)>-450 . . X,.Y(|
00000530  58 29 3a 50 3d 31 0d 02  1c 2e 20 20 e7 20 50 3d  |X):P=1....  . P=|
00000540  31 20 80 20 28 a4 59 28  58 29 3e 36 35 30 20 84  |1 . (.Y(X)>650 .|
00000550  20 a4 59 28 58 29 3c 2d  34 35 30 29 20 8c 20 e5  | .Y(X)<-450) . .|
00000560  8d 54 70 42 0d 02 26 05  ed 0d 02 30 05 e1 0d 02  |.TpB..&....0....|
00000570  3a 05 3a 0d 02 44 09 dd  f2 69 6e 73 0d 02 4e 35  |:.:..D...ins..N5|
00000580  f1 89 28 31 33 29 22 4e  41 4d 45 20 54 48 45 20  |..(13)"NAME THE |
00000590  47 52 41 50 48 22 27 89  28 31 31 29 22 47 65 6e  |GRAPH"'.(11)"Gen|
000005a0  65 76 69 65 76 65 20 4c  75 64 69 6e 73 6b 69 22  |evieve Ludinski"|
000005b0  27 0d 02 58 e8 f1 27 22  54 48 49 53 20 69 73 20  |'..X..'"THIS is |
000005c0  61 20 67 61 6d 65 20 6f  66 20 6c 6f 67 69 63 20  |a game of logic |
000005d0  77 68 65 72 65 20 79 6f  75 20 61 69 6d 20 74 6f  |where you aim to|
000005e0  66 69 6e 64 20 74 68 65  20 65 71 75 61 74 69 6f  |find the equatio|
000005f0  6e 20 6f 66 20 61 20 67  72 61 70 68 20 6f 6e 20  |n of a graph on |
00000600  73 63 72 65 65 6e 2e 20  59 6f 75 20 63 61 6e 20  |screen. You can |
00000610  6b 65 79 20 69 6e 20 74  68 65 20 74 68 72 65 65  |key in the three|
00000620  20 76 61 6c 75 65 73 20  66 6f 72 20 74 68 65 20  | values for the |
00000630  70 61 72 61 62 6f 6c 61  20 61 6e 64 20 73 65 65  |parabola and see|
00000640  20 69 6d 6d 65 64 69 61  74 65 6c 79 20 68 6f 77  | immediately how|
00000650  20 63 6c 6f 73 65 20 20  74 68 65 79 20 63 6f 6d  | close  they com|
00000660  65 20 74 6f 20 62 65 69  6e 67 20 63 6f 72 72 65  |e to being corre|
00000670  63 74 20 77 68 65 6e 20  79 6f 75 72 22 27 22 67  |ct when your"'"g|
00000680  75 65 73 73 20 69 73 20  64 72 61 77 6e 20 6f 6e  |uess is drawn on|
00000690  20 73 63 72 65 65 6e 2e  22 0d 02 62 c9 f1 27 22  | screen."..b..'"|
000006a0  54 68 65 20 74 68 72 65  65 20 76 61 6c 75 65 73  |The three values|
000006b0  20 28 41 2c 42 2c 43 29  20 61 72 65 20 61 6c 77  | (A,B,C) are alw|
000006c0  61 79 73 22 27 22 63 6f  6e 73 74 61 6e 74 73 20  |ays"'"constants |
000006d0  28 70 6f 73 69 74 69 76  65 20 6f 72 20 6e 65 67  |(positive or neg|
000006e0  61 74 69 76 65 29 2e 20  46 6f 72 22 27 22 65 78  |ative). For"'"ex|
000006f0  61 6d 70 6c 65 3a 20 2d  32 78 5e 32 20 2b 20 33  |ample: -2x^2 + 3|
00000700  78 20 2d 20 35 20 77 68  65 72 65 20 41 3d 2d 32  |x - 5 where A=-2|
00000710  2c 20 42 3d 33 20 61 6e  64 20 43 3d 35 2e 20 49  |, B=3 and C=5. I|
00000720  6e 70 75 74 20 61 6c 6c  20 74 68 72 65 65 20 6e  |nput all three n|
00000730  75 6d 62 65 72 73 20 6f  6e 20 74 68 65 20 73 61  |umbers on the sa|
00000740  6d 65 20 6c 69 6e 65 20  73 65 70 61 72 61 74 65  |me line separate|
00000750  64 20 62 79 20 61 20 63  6f 6d 6d 61 20 74 68 65  |d by a comma the|
00000760  6e 22 0d 02 6c 2e f1 22  70 72 65 73 73 20 3c 52  |n"..l.."press <R|
00000770  45 54 55 52 4e 3e 2e 20  28 45 2e 67 2e 20 2d 32  |ETURN>. (E.g. -2|
00000780  2c 33 2c 2d 35 20 3c 52  45 54 55 52 4e 3e 29 22  |,3,-5 <RETURN>)"|
00000790  0d 02 76 ae f1 27 22 49  66 20 79 6f 75 20 63 61  |..v..'"If you ca|
000007a0  6e 6e 6f 74 20 67 75 65  73 73 20 74 68 65 20 61  |nnot guess the a|
000007b0  6e 73 77 65 72 2c 20 6b  65 79 20 69 6e 20 20 57  |nswer, key in  W|
000007c0  48 41 54 2c 49 53 2c 49  54 20 3c 52 45 54 55 52  |HAT,IS,IT <RETUR|
000007d0  4e 3e 20 66 6f 72 20 74  68 65 20 61 6e 73 77 65  |N> for the answe|
000007e0  72 20 62 75 74 20 20 74  72 79 69 6e 67 20 74 6f  |r but  trying to|
000007f0  20 66 69 6e 64 20 69 74  20 62 79 20 74 72 69 61  | find it by tria|
00000800  6c 20 61 6e 64 20 65 72  72 6f 72 20 69 73 20 74  |l and error is t|
00000810  68 65 20 62 69 67 67 65  73 74 20 70 61 72 74 20  |he biggest part |
00000820  6f 66 20 74 68 65 20 66  75 6e 20 2d 20 73 6f 20  |of the fun - so |
00000830  64 6f 6e 27 74 20 20 63  68 65 61 74 21 22 0d 02  |don't  cheat!"..|
00000840  80 17 ef 31 39 2c 30 2c  34 3b 30 3b 31 39 2c 37  |...19,0,4;0;19,7|
00000850  2c 37 3b 30 3b 0d 02 8a  21 f1 8a 31 34 2c 32 34  |,7;0;...!..14,24|
00000860  29 22 50 52 45 53 53 20  53 50 41 43 45 21 22 3b  |)"PRESS SPACE!";|
00000870  3a 2a 46 58 32 31 0d 02  94 0a f5 fd a5 3d 33 32  |:*FX21.......=32|
00000880  0d 02 9e 05 e1 0d ff                              |.......|
00000887