PRINT 
PRINT "  上２桁、中２桁、下２桁の数をそれぞれ３乗して加えると"
PRINT "自分自身に等しくなる６桁の数"
PRINT
LET z=1
FOR i=100000 TO 999999
   LET a=INT(i/10^4)
   LET aa=MOD(i,10^4)
   LET b=INT(aa/10^2)
   LET c=MOD(aa,10^2)
   IF i=a^3+b^3+c^3 THEN
      PRINT USING "##":z;
      PRINT ": ";i;" ＝ ";a;"^3 + ";
      PRINT USING "##":b;
      PRINT"^3 + ";
      PRINT USING "##":c;
      PRINT "^3  ＝ ";
      PRINT USING "######":a^3;
      PRINT ;" + ";
      PRINT USING "######":b^3;
      print" + ";
      PRINT USING "######":c^3;
      PRINT "  ＝ ";a^3+b^3+c^3
      LET z=z+1
   END if
NEXT i
PRINT
END