Lbl MA

  ClrHome
  FnOff 
  AxesOn
  0->T
  0->P
  1->G
  Disp "H - POMOC  
  Equ>String(Y1,Str0      //funkcja z katalogu "String to Equ"     
  Input "f(T,X)=",Str9
  Output(1,1,"            v1.0"
   If Str9="H
    Goto HE
 Strin>Equ(Str9,Y1 
 Input "Twartosc:",T
 Input "Tkrok:",S
 FnOn
 
While G<>22
 If G=26
  Then
   If P=24
    ClrDraw
  T+S->T
  G->P
 End

 If G=24
  Then
   If P=26
    ClrDraw
  T-S->T
  G->P
 End

 If G<>0
  Then
   FnOff 
   DrawF Y1
   Text(0,1,Str9
   Text(57,1,"T=",T,".."
  End

 getKey->G

End

String>Equ(Str0,Y1
FnOff 
ClrHome
Stop

 Lbl HE

 FnOff 
 AxesOff
 Text(1,1,"przyklad:
 Text(7,1,"f(T,X)=(T-4)X^2+X+T-2
 Text(13,1,"Twartosc: poczatkowa wart. T
 Text(19,1,"Tkrok: przyrost T
 Text(28,1,"w trybie graf.:
 Text(34,1,"uzyj <- -> by zmienic wart.T
 Text(40,1,"MODE - wyjscie
 Text(48,1,"sugestie?
 Text(54,1,"adrianperek(at)o2.pl
 Pause 
Goto MA