:ClrHome
:Input "YOUR WEIGHT? ",W
:ClrHome
:Lbl 0
:Input "DESIRED PLATEAU? ",P
:If P>4
:Then
:Disp "1 TO 4, PLEASE"
:Goto 0
:Else
:Goto 1
:Lbl 1
:W*.45->W
:(WP)^2+1.5->M
:ClrHome
:Output(1,1,"TAKE ")
:Output(1,6,M)
:Output(2,1,"MG OF DXM.")