'
Deflist 3
Defint "a-z"
Cls
'
Dim Anim$(6)
For A%=1 To 21
  Read D%
  M$=M$+Mki$(D%)
Next A%
For B%=1 To 5
  Anim$(B%)=M$
  For A%=1 To 16
    Read D%
    Anim$(B%)=Anim$(B%)+Mki$(D%)
  Next A%
Next B%
'
For A%=1 To 21
  Read D%
  Anim$(6)=Anim$(6)+Mki$(D%)
Next A%
For A%=1 To 16
  Read D%
  Anim$(6)=Anim$(6)+Mki$(D%)
Next A%
'
Open "o",#1,"e:\anim.mki"
For A%=1 To 6
  Defmouse Anim$(A%)
  Pause 2
  Print #1,Anim$(A%);
Next A%
Close #1
'
'
'
'
Data 7,7,1,0,1
Data %0000000000000000
Data %1111111111111111
Data %0100000000000010
Data %0010000000000100
Data %0001000000001000
Data %0000100000010000
Data %0000010000100000
Data %0000001001000000
Data %0000001001000000
Data %0000010000100000
Data %0000100000010000
Data %0001000000001000
Data %0010000000000100
Data %0100000000000010
Data %1111111111111111
Data %0000000000000000
'
'
'
Data %0000000000000000
Data %0000000000000000
Data %0011111111111100
Data %0001111111111000
Data %0000111111110000
Data %0000011111100000
Data %0000001111000000
Data %0000000110000000
Data %0000000110000000
Data %0000001001000000
Data %0000010000100000
Data %0000100000010000
Data %0001000000001000
Data %0011111111111100
Data %0000000000000000
Data %0000000000000000
'
Data %0000000000000000
Data %0000000000000000
Data %0011111111111100
Data %0001000000001000
Data %0000111111110000
Data %0000011111100000
Data %0000001111000000
Data %0000000110000000
Data %0000000110000000
Data %0000001001000000
Data %0000010000100000
Data %0000100000010000
Data %0001111111111000
Data %0011111111111100
Data %0000000000000000
Data %0000000000000000
'
Data %0000000000000000
Data %0000000000000000
Data %0011111111111100
Data %0001000000001000
Data %0000100000010000
Data %0000011111100000
Data %0000001111000000
Data %0000000110000000
Data %0000000110000000
Data %0000001001000000
Data %0000010000100000
Data %0000111111110000
Data %0001111111111000
Data %0011111111111100
Data %0000000000000000
Data %0000000000000000
'
Data %0000000000000000
Data %0000000000000000
Data %0011111111111100
Data %0001000000001000
Data %0000100000010000
Data %0000010000100000
Data %0000001111000000
Data %0000000110000000
Data %0000000110000000
Data %0000001001000000
Data %0000011111100000
Data %0000111111110000
Data %0001111111111000
Data %0011111111111100
Data %0000000000000000
Data %0000000000000000
'
Data %0000000000000000
Data %0000000000000000
Data %0011111111111100
Data %0001000000001000
Data %0000100000010000
Data %0000010000100000
Data %0000001001000000
Data %0000000110000000
Data %0000000110000000
Data %0000001111000000
Data %0000011111100000
Data %0000111111110000
Data %0001111111111000
Data %0011111111111100
Data %0000000000000000
Data %0000000000000000
'
' End:
Data 7,7,1,0,1
Data %0000000000000000
Data %0110000000000110
Data %0101000000001010
Data %0100100000010010
Data %0100010000100010
Data %0100001001000010
Data %0100000110000010
Data %0100000110000010
Data %0100000110000010
Data %0100000110000010
Data %0100001001000010
Data %0100010000100010
Data %0100100000010010
Data %0101000000001010
Data %0110000000000110
Data %0000000000000000
'
Data %0000000000000000
Data %0000000000000000
Data %0010000000000100
Data %0011000000001100
Data %0011100000010100
Data %0011110000100100
Data %0011111001000100
Data %0011111110000100
Data %0011111110000100
Data %0011111001000100
Data %0011110000100100
Data %0011100000010100
Data %0011000000001100
Data %0010000000000100
Data %0000000000000000
Data %0000000000000000
'