BAS:

        '** STAR LOADER **

STAR_LOAD:

        ImgName$="EX\STAR00"
        'record pixels outputs (end of COPY with |FRAMEOUT or |PASTE)
        |COPY,SpriteStar0:'     Create Sprite
        gosub StarAffi
        ImgName$="EX\STAR01"
        'record pixels outputs (end of COPY with |FRAMEOUT or |PASTE)
        |COPY,SpriteStar1:'     Create Sprite
        gosub StarAffi
        ImgName$="EX\STAR02"
        'record pixels outputs (end of COPY with |FRAMEOUT or |PASTE)
        |COPY,SpriteStar2:'     Create Sprite
        gosub StarAffi
        ImgName$="EX\STAR03"
        'record pixels outputs (end of COPY with |FRAMEOUT or |PASTE)
        |COPY,SpriteStar3:'     Create Sprite
StarAffi:
        ximg=0:yimg=0:'         image coordinates
        FirstInk=0:'            First ink use in palette
        BackGround=0:'          BackGround pen
        ' ** DISPLAY BMP IMAGES 16/256 COLORS NOT COMPRESSED **
        goto BMPDISPLAY
        if er%<>0 then IbmpEr





