10 *EXEC 20 *FX229,1 30 *FX200,2 40 HIMEM=&5800 50 FORI%=0TO&40ASTEP4:I%!&5000=I%!TOP :NEXT:CALL&5000 60 *RUN SpIn