Code |
Lbl A |
Input "Age:",A |
InpSt "Name:",B |
Disp A,B |
Goto A |
Code |
Lbl A |
Input "#:",A |
Disp A2 |
If A==0 or A==1 |
Then |
Disp "A = Aany power. |
Goto B |
End |
Goto A |
Lbl B |
DelVar(A |
Code |
Lbl A |
getKy→A |
If A==22:Goto B |
If A==45 |
Then |
ClLCD |
Disp 45 |
Else |
Disp A |
End |
Goto A |
Lbl B |
DelVar(A |
Code |
While getKy=0 |
For(X,0,100,5 |
IS>(X,50:Disp "Greater than 50. |
DS>(X,50:Disp "Less than 50. |
End |
End |
DelVar(X |
Code |
0→x |
Repeat A |
x+1→x |
Disp x |
getKy→A |
End |
Disp A |
DelVar(x |
DelVar(A |