10 *EXEC 20 *FX229,1 30 HIMEM=&5800 40 FORI%=0TO&400STEP4:I%!&5000=I%!TOP :NEXT 50 CALL&5000:IF ?&70>2 I%=INKEY(500): PRINT"Loading"; 60 *RUN HHH2