'ProgramMode:RUN
Menu "Use current _GraphY_1 ?","Yes",1,"No, let me type it",0
Lbl 0
"Type new _GraphY_1 (use X)"?->Str 1
Str 1->GraphY1
Lbl 1
"Avg val from"?->A
"to"?->B
ClrText
Integral(GraphY1,A,B)frac(B-A)->V
Locate 1,1,"     A         B"
Locate 1,2,"["
Locate 2,2,A
Locate 10,2,","
Locate 11,2,B
Locate 20,2,"]"
Locate 1,3,"Avg value V="
Locate 7,4,V
Locate 1,5,"note _Integral(__GraphY_1)dx=(B-A)*V"