BAS:

        '** BMPMAIN.BAS **
        '** DISPLAY BMP IMAGES 16/256 COLORS NOT COMPRESSED (MAIN) **
        'must be loaded from a CpcAlive command file
        'files INC\MAINJUMP.BAS
        'and   INC\IBMP.BAS
        'must be loaded first

        MEMORY &8FFF
        MODE 1
        clear input

        '** MAIN IMAGE **
        print"Image Name(.BMP) 16 or 256 colors"
        input"without extension:",ImgName$:ImgName$=ImgName$+".BMP"
        input"Screen mode - 0,1 or 2:",ScreenMode
        if ScreenMode=0 then mode 0 else if ScreenMode=1 then mode 1 else mode 2
        ximg=0:yimg=0:'    image coordinates
        BackGround=-1:'    not transparent background
        FirstInk=0:'       First ink use in palette
        gosub IMGDISPLAY:' ** DISPLAY BMP IMAGES 16/256 COLORS NOT COMPRESSED **

