%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:266
File Name:EULERG
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"EULER'S METHOD       SOLUTION OF DE"
"STORE \d/dx(Y)=\f6(X,Y)FIRST"
"KNOWN POINT IS AT    (A,F(A))"
"A="?\->A
"F(A)="?\->F
(\Xmax-\Xmin)/126\->D
(A-\Xmin)/D\->N
\Frac N\>=.5\=>\Isz N
\Int N\->N
A\->P
F\->Q
\For 1\->J \To N-1
\Plot P,Q
P\->X
Q\->Y
\f6\->M
X-D\->P
Y-MD\->Q
\Next 
A\->P
F\->Q
\For 1\->J \To 125-N
\Plot P,Q
P\->X
Q\->Y
\f6\->M
X+D\->P
Y+MD\->Q
\Next 
\Green \Graph Y=0
%End