,@p
MAIN  p
OPEN  p
FAD   p
STO   p
FSB   p
GCLEA p
GSTAR p
READ  p
IOH   p
FLOAT p
CHS   p
FDV   A%=1MAIN  ``C\
`D\
x`C\
`D\
{`C\
`D\
~~
}`C\
x`E\
~`D\
``o`\
|\
]`I\
`I\
`I	
`
2r
@({H{``J\
``C\
x`L\
x`D\

A|
A}dA~_Ap
SUBSC p
ISTO  p
IFAD  p
IFIX  p
GPLOT A
\
~~ `\
\
`C\
x`N\
\
}\
}}!~H| `\
\
`O\
`D\
`P\
{{!zy{xw`Q\
\
\
v{zy{xw`Q\
\
\
u{zy{!xw`Q\
\
\
u{!zy{!xw`Q\
\

\
u{!zy{x
AuAvAwAxAyAz
A{A}A~Ap
FMP   B%~`Q\
\
\
}`C\
`R\
`D\
`P\
| `\
\
`C\
`N\
|!{z|y~`Q\
\
\
x|{z|y~`Q\
\
\
w|{z|!y~`Q\
\
\
w|!{z|!y~`Q\
\
\
w|!{z|
y~
Bw
BxByBzB{
B|B}B~Bp
CLEAR p
GSTOP p
EXIT  A|
A{BB+HB#HA(HA$HAHAHB`Q\
\
\
~\
}!|H

) `\
\
H`O\
H`E\
	{`(zHz `\
\
H`O\
H`E\
{	{`(yHyx```BxByHBzB{B|B}B~B



Note: Lines longer than 256 characters were wrapped