' *********** CHECK README.1ST FIRST *********************

STRANGEVALUE = 35150  ' This number depends on the picture, so
                      ' you must to try to find correct number for
                      ' each picture

' There is also a bug with color 27, but you can fix it for yourself


OPEN "beast.PCX" FOR INPUT AS #1

SCREEN 13
 DEF SEG = &HA000

 FOR i = 0 TO 255
   naps% = ASC(INPUT$(1, #1))
   IF naps% = &HFE THEN naps% = &H1A
   OUT (&H3C8), i
   OUT (&H3C9), naps%
   naps% = ASC(INPUT$(1, #1))
   IF naps% = &HFE THEN naps% = &H1A
  
   OUT (&H3C9), naps%
   
   naps% = ASC(INPUT$(1, #1))
   IF naps% = &HFE THEN naps% = &H1A
  
   OUT (&H3C9), naps%
 NEXT i

 x& = 0
 y& = 0
 valmis = 0
 ru% = 0

 SEEK #1, 769
              
FOR k = 1 TO STRANGEVALUE     ' This number depends on the picture, so
                          ' you must to try to find correct number to
                          ' each picture
   valmis = 0
   naps% = ASC(INPUT$(1, #1))
   IF naps% = &HFE THEN naps% = &H1A

 IF (naps% AND &HC0) = &HC0 THEN
   ru% = naps% AND &H3F
   naps% = ASC(INPUT$(1, #1))
   IF naps% = &HFE THEN naps% = &H1A
   valmis = 1
 END IF
 
  IF valmis = 0 THEN ru% = 1

 FOR lask& = 1 TO ru%
   POKE x, naps%
   x = x + 1
 NEXT lask&

NEXT k

SLEEP