! Project Euler Problem 16 \iBASIC YOS G-spec ! ! http://odz.sakura.ne.jp/projecteuler/ ! 100 OPTION ARITHMETIC DECIMAL_HIGH 110 LET SUM=0 120 LET SAUS=2^1000 130 FOR i=1 TO LEN(STR$(SAUS)) 140 LET SUM=SUM+MOD(SAUS,10) 150 LET SAUS=INT(SAUS/10) 160 NEXT I 170 PRINT SUM 180 WAIT DELAY 8 190 END