FUNCTION GRF.info(pg AS INTEGER) AS STRING
 return MODE, BPP, y-lines, pg address, write address
 it's mainly combination of MM.INFO

SUB GRF.saveBMP(filePath AS STRING, xx AS INTEGER, yy AS INTEGER, ww AS INTEGER, hh AS INTEGER, pp AS INTEGER)
 save BMP file from screen memory on xx,yy with size of ww,hh from page pp
 it takes bpp from current MODE (so either 8 or 16) = makes BMP smaller than MMBASICs 24bpp
 saves image also from other page as 0

FUNCTION GRF.getImgInfo(filePath AS STRING) AS STRING
 return info about graphic file, WIDTH, HEIGHT, BPP, VERSION
 works now just for BMP, PNG, GIF

FUNCTION GRF.loadImg(filePath AS STRING, xx AS INTEGER, yy AS INTEGER, pg AS INTEGER) AS INTEGER
  load image to x, y, page
  returns 0 when NOK

FUNCTION GRF.getC64info(filePath AS STRING) AS STRING
  get info for some C64 formats (Koala, HiEddie, Doodle, HIRES)

FUNCTION GRF.loadC64(filePath AS STRING, x AS INTEGER, y AS INTEGER, pg AS INTEGER) AS INTEGER
  load some C64 formats to x, y, page
  returns 0 when NOK

FUNCTION GRF.getCMMcolor(n AS INTEGER) AS INTEGER
  get color from standard CMM (for sprites)

sub jpgInfo f$, onDisk AS INTEGER, iWdth AS INTEGER, iHt AS INTEGER, info$
 LOCAL INTEGER block
 LOCAL x$
 onDisk = MM.INFO(filesize f$)
 info$ = ""
 OPEN f$ FOR INPUT AS #2
 DO
   block = ASC(INPUT$(1,#2)) ' flag for start of block
   IF block = 255 THEN
     block = ASC(INPUT$(1,#2)) ' block type
     IF block = &hC0 THEN
       x$ = INPUT$(3,#2)
       iHt = ASC(INPUT$(1,#2))*256 + ASC(INPUT$(1,#2))
       iWdth = ASC(INPUT$(1,#2))*256 + ASC(INPUT$(1,#2))
       EXIT DO
     elseif block = &hC2 THEN
       info$ = "Progressive"
       x$ = INPUT$(3,#2)
       iHt = ASC(INPUT$(1,#2))*256 + ASC(INPUT$(1,#2))
       iWdth = ASC(INPUT$(1,#2))*256 + ASC(INPUT$(1,#2))
       exit do
     ENDIF
   ENDIF
 LOOP
 CLOSE #2
END SUB
 
sub bmpInfo f$, onDisk AS INTEGER, iWdth AS INTEGER, iHt AS INTEGER, info$
 LOCAL x$
 onDisk = MM.INFO(filesize f$)
 OPEN f$ FOR INPUT AS #2
 x$ = INPUT$(18,#2) ' skip this
 iWdth = ASC(INPUT$(1,#2))+ASC(INPUT$(1,#2))*256
 iWdth = iWdth +ASC(INPUT$(1,#2))*2^16+ASC(INPUT$(1,#2))*2^24
 iHt = ASC(INPUT$(1,#2))+ASC(INPUT$(1,#2))*256
 iHt = iHt +ASC(INPUT$(1,#2))*2^16+ASC(INPUT$(1,#2))*2^24
 x$ = INPUT$(2,#2) ' colour planes - not used
 info$ = str$(ASC(INPUT$(1,#2))+ASC(INPUT$(1,#2))*256)+" bit"
 CLOSE #2
END SUB
 
sub gifInfo f$, onDisk AS INTEGER, iWdth AS INTEGER, iHt AS INTEGER, info$
 LOCAL x$, iBits as integer
 onDisk = MM.INFO(filesize f$)
 OPEN f$ FOR INPUT AS #2
 x$ = INPUT$(6,#2) ' skip this GIF89a
 iWdth = ASC(INPUT$(1,#2))+ASC(INPUT$(1,#2))*256
 iHt = ASC(INPUT$(1,#2))+ASC(INPUT$(1,#2))*256
 x$ = INPUT$(1,#2) ' colour table start and bits
 iBits = (asc(x$) and &b00000111) + 1
 'if (asc(x$) and &b10000000) then iBits = 0 - iBits ' indicate animated image
 CLOSE #2
 info$ = str$(iBits)+" bit"
END SUB
 
sub pngInfo f$, onDisk AS INTEGER, iWdth AS INTEGER, iHt AS INTEGER, info$
 ' data from https://en.wikipedia.org/wiki/Portable_Network_Graphics
 LOCAL x$, iBits as integer
 onDisk = MM.INFO(filesize f$)
 OPEN f$ FOR INPUT AS #2
 x$ = INPUT$(12,#2)
 x$ = INPUT$(4,#2) ' should be IHDR
 iWdth = ASC(INPUT$(1,#2))*2^24 + ASC(INPUT$(1,#2))*2^16
 iWdth = iWdth +ASC(INPUT$(1,#2))*256 + ASC(INPUT$(1,#2))
 iHt = ASC(INPUT$(1,#2))*2^24 + ASC(INPUT$(1,#2))*2^16
 iHt = iHt +ASC(INPUT$(1,#2))*256 + ASC(INPUT$(1,#2))
 iBits = ASC(INPUT$(1,#2)) ' colour bits/pixel
 select case ASC(INPUT$(1,#2)) ' colour type
   case 0
     info$ = str$(iBits)+" bit Grayscale"
   case 2
     info$ = str$(iBits*3)+" bit Truecolour"
   case 3
     info$ = str$(iBits)+" bit Palettised"
   case 4
     info$ = str$(iBits*2)+" bit Grayscale+Alpha"
   case 6
     info$ = str$(iBits*4)+" bit RGBA"
   case else
     info$ = str$(iBits)+" bit/pixel"
 end select
 
 CLOSE #2
END SUB

ASC(INPUT$(1,#2))*256 + ASC(INPUT$(1,#2))

STR2BIN(UINT16, INPUT$(2, #10), BIG)