OPTION ARITHMETIC DECIMAL_HIGH
LET a=3
LET b=2
LET C=1
PRINT
PRINT C;": ( ";a;", ";b;")"
PRINT "               →";a;"^2 - 2 *";b;"^2 =";a^2-2*b^2
DO WHILE C<6
   LET C=C+1
   LET x=a^2+2*b^2
   LET y=2*a*b
   PRINT C;": ( ";x;", ";y;")"
   PRINT "               →";x;"^2 - 2 *";y;"^2 =";x^2-2*y^2
   PRINT
   LET a=x
   LET b=y
LOOP
PRINT
LET C=C+1
LET a=99
LET b=70
PRINT
PRINT C;": ( ";a;", ";b;")"
PRINT "               →";a;"^2 - 2 *";b;"^2 =";a^2-2*b^2
DO WHILE C<11
   LET C=C+1
   LET x=a^2+2*b^2
   LET y=2*a*b
   PRINT C;": ( ";x;", ";y;")"
   PRINT "               →";x;"^2 - 2 *";y;"^2 =";x^2-2*y^2
   PRINT
   LET a=x
   LET b=y
LOOP
LET C=C+1
LET a=3363
LET b=2378
PRINT
PRINT C;": ( ";a;", ";b;")"
PRINT "               →";a;"^2 - 2 *";b;"^2 =";a^2-2*b^2
DO WHILE C<15
   LET C=C+1
   LET x=a^2+2*b^2
   LET y=2*a*b
   PRINT C;": ( ";x;", ";y;")"
   PRINT "               →";x;"^2 - 2 *";y;"^2 =";x^2-2*y^2
   PRINT
   LET a=x
   LET b=y
LOOP
PRINT
PRINT "このプログラムは終了しました。"
END