prontera,155,175,5	script	Sample	757,{
set .@number,rand(100000);
dispbottom "Number : "+.@number;
set .@number_size,getstrlen( ""+.@number ) - 1;
dispbottom "getstrlen : "+( .@number_size + 1);
dispbottom "===========";
for( set .@i,.@number_size;.@i >= 0; set .@i,.@i - 1 ){
	set .@index,( .@number / pow( 10,.@i ) );
	dispbottom .@index+" : "+.number$[.@index];
	set .@number,( .@number % pow( 10,.@i ) );
}
end;

OnInit:
setarray .number$,"ZERO","ONE","TWO","THREE","FOUR","FIVE","SIX","SEVEN","EIGHT","NINE";
set .number_size,getarraysize( .number$ );
end;
}