Lbl G
GridOff
AxesOff
ViewWindow 0,120,0,0,64,0
Cls:ClrGraph:ClrList:ClrText
Text 58,3,"INIT"
Text 58,24,"TABL"
Text 58,45,"TIME"
Text 58,66,"WEB"
Text 58,87,"FEIG"
Text 58,100,"END"
F-Line 0,1,0,7:F-Line 0,7,16,7
F-Line 20,1,20,7:F-Line 20,7,36,7
F-Line 40,1,40,7:F-Line 40,7,56,7
F-Line 60,1,60,7:F-Line 60,7,76,7
F-Line 80,1,80,7:F-Line 80,7,96,7
F-Line 100,1,100,7:F-Line 100,7,116,7
Do
GetKey=79=>Goto A
GetKey=69=>Goto B
GetKey=59=>Goto C
GetKey=49=>Goto D
GetKey=39=>Goto E
GetKey=29=>Goto F
LpWhile A=A
Lbl A
ClrText
"  PARAMETEREINGABE "
"  a(n+1)=W*a(n)*(1-a(n))"
"--------------------"
"STARTWERT  a(0)=":?->a(0)
"WACHSTUM    W=":?->W
"ITERATIONEN nano=":?->R End
0->R Start
a(n+1)Type
"a(n)*W*(1-a(n))"->a(n+1)
Goto G
Lbl B
DispR-Tbl
Goto G
Lbl C
DispR-Tbl
AxesOn
ViewWindow 0,R End,5,(-)1,2,2
DrawR-Con
Goto G
Lbl D
ViewWindow 0,2,0,0,1,0
a(0)->a(nStart)
DrawWeb a(n+1),R End
Goto G
Lbl E

Goto G
Lbl F
Stop