10IFPAGE<>&C00 THEN PAGE=&C00:CHAIN"D EMO" 20HIMEM=&D00 30M%=7 40DIM C% 20 50X%=C% MOD 256:Y%=C% DIV 256 60ONERRORMODE7:REPORT:END 70REPEAT 80D%=2 90FOR P%=6TOM% 100OSCLI("/ANIMATE 24 :"+STR$D%+".SCRE EN"+STR$P%) 110NEXT 120UNTIL0