/* Project Euler Problem 4 HSP YOS G-spec */ /* http://odz.sakura.ne.jp/projecteuler/ */ screen 0,1,1 dim abcba,1000 dim abcbaz sdim aaa sdim char,20 dim z dim max repeat 1000 acnt=cnt repeat 1000 aaa=acnt*cnt bytecut ""+aaa,char maxible=int(strlen(""+aaa)/2) for i,0,maxible if char(i)=char(strlen(""+aaa)-1-i){} else:continue next abcba(z)=aaa z++ loop loop repeat z if abcbaz