*----------------------*
------------------------
(c) Bengt Werstén & JEFA
------------------------
--*******************---
--*   Jefa Weight   *---
--*******************---
*----------------------*
PrgmX:JEFAWEIG
:ClrHome
:Disp "WEIGHT? /KG"
:Input V
:Disp "LENGHT? /M" 'meters, not miles as you thought.
:Input L
:V/(L)^2->A
:ClrHome
:If A>25
:Disp "FAT AS A PIG"
:If A<15
:Disp "EAT MORE"
:If A>15
:Goto A
:End
:Lbl A
:If A<25
:Disp "THATS NICE"