*ap
MAIN  p
OPEN  p
SUBSC @dl0.MAIN  `!~H
D`\
\
7
2}!|}!{H
j`\
\
z7
$`\
$\
~7
H}!y}!xHw
@x@y@z@{@|	@}@~@p
FAD   p
ISTO  p
MPY   @wA`\
\
~7
\
}|`\
$\
{7z`\
y\
x7`\
w\
v7\
u\
uu!tH
es\
ss!vH
ct`C\
\
	
7t `C\
\
	Z`D\
+`E\

;
3\
r\
rr!qHpr
AqArAsAt2AuAvAwAxAyAznA{
A|$A}A~	Ap
LTAPE p
INEXT p
FLOAT p
FMP   p
STO   A`F\
~~	}|!\
{H
~	}}`G\
z		

	y\
x\
xx!wHv`H\
u\
uu!tHs`H\
`H\
`H\
rHq`\
\
7\
p`I\
`J\
(`K\
oH
[n`D\
%`D\
`K\
omo
AmAoApArAtAuAw2AxAy
Az
A{A|A}

A~Ap
IFAD  AnAqIAsKAvMApOB`I\
`D\
`K\
~`C\
\
	
~`C\
\
	
7
7~ `C\
\
	Z~ `C\
\
	Z`L\
`D\
`E\
}|{z!\
y~`C\
x\
x	
a`G\

$	\
wz!\
y~`C\
v\
u	

BuBvBw
Bx
By$BzB{gB|B})B~2Bp
FDV   p
FIX   BrB`G\
$	\
~}!\
|{`C\
~\
z	
`G\
$	\
y\
x\
xx!{H
fw\
ww!yH
d{`C\
\
	
{ `C\
\
	Z{`C\
\
	
P`I	`K\
!`L\
`M\
!`7
(
 }!\
|{`C\
v\
v	

Bv
BwBxByBzB{2B|$B}B~Bp
EXIT  BsBa6B86BH6B16B%6B6AG6AE6Aa6AY6AM6AK6A/6A,6A$6A!6A6A6A	6A6@g6@d6@Y6@V6@A6@>6BY8BC8B@8B<8B!8B8C`G\
$	\
~!\
}|`C\
{\
z	
`G\
$	\
y~!\
}|`C\
x\
	

0`G\
$	\
w`CwCxCyCzC{C|2C}$C~Ca

Note: Lines longer than 256 characters were wrapped