%%HP: T(3)A(D)F(.);
\<< 0 'At' STO 0 'It'
STO 0 'yt' STO 0
'yc' STO { { "CONT"
  \<< CONT
  \>> } { "LAST"
  \<< 1 SF CONT
  \>> } } TMENU "Xo?"
PROMPT 'Xo' STO
  WHILE 1 FS?C NOT
  REPEAT "X, Y"
PROMPT 'y' STO 'x'
STO Xo y * 'Asq'
STO x Xo - 2 / y *
'Atr' STO y 2 / yt
+ Asq * 2 3 / y *
yt + Atr * + At yc
* + At Asq + Atr +
/ 'yc' STO Xo y 3 ^
* 12 / y 2 / yt +
SQ Asq * + x Xo -
36 / y 3 ^ * + y 2
* 3 / yt + SQ Atr *
+ 'It' STO+ Atr Asq
+ 'At' STO+ x 'Xo'
STO y 'yt' STO+ x
'Xo' STO
  END 2 MENU { x y
Xo Asq Atr } PURGE
It yc SQ At * -
'Icg' STO At "A"
\->TAG yc "yc" \->TAG
Icg "Icg" \->TAG
\>>
