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