graphics mode (pset, put, _putimage)

[PMACKAY]

hey guys... i am making a game in graphics mode but seem to be having problems with the pset (and put)

HOW DO I MAKE THESE SOLID... NO ALPHA BUT SEE THROUGH...

i want the rings solid but see the background... (solid rings on back ground..



DIM TILE0(1 TO 5000), TILE1(1 TO 5000), TILE2(1 TO 5000): GLB& = _LOADIMAGE("PYRAMID.jpg", 32)
SCREEN _NEWIMAGE(1280, 680, 32)
FOR I = 1 TO 32: READ A$: FOR J = 1 TO 63: A = VAL(MID$(A$, J, 1))
        IF A = 1 THEN PSET (J, I), _RGB(0, 0, 128, 255): PSET (J, 65 - I), _RGB(0, 0, 128, 255)
        IF A = 0 THEN PSET (J, I), _RGB(&HFF, &HFF, &HFF): PSET (J, 65 - I), _RGB(&H00, &H00, &H00)
NEXT: NEXT: GET (1, 1)-(64, 64), TILE0(): RESTORE
FOR I = 1 TO 32: READ A$: FOR J = 1 TO 63: A = VAL(MID$(A$, J, 1))
        IF A = 1 THEN PSET (J, I), _RGB(128, 0, 0): PSET (J, 65 - I), _RGB(128, 0, 0)
        IF A = 0 THEN PSET (J, I), _RGB(&HFF, &HFF, &HFF): PSET (J, 65 - I), _RGB(&HFF, &HFF, &HFF)
NEXT: NEXT: GET (1, 1)-(64, 64), TILE1(): RESTORE
FOR I = 1 TO 32: READ A$: FOR J = 1 TO 63: A = VAL(MID$(A$, J, 1))
        IF A = 1 THEN PSET (J, I), _RGB(0, 128, 0): PSET (J, 65 - I), _RGB(0, 128, 0)
        IF A = 0 THEN PSET (J, I), _RGB(&HFF, &HFF, &HFF): PSET (J, 65 - I), _RGB(&HFF, &HFF, &HFF)
NEXT: NEXT: GET (1, 1)-(64, 64), TILE2()


CLS
_PUTIMAGE , GLB&
PUT (1, 1), TILE0()
PUT (32, 32), TILE1()
PUT (64, 64), TILE2()


DATA "000000000000000000000000000111111110000000000000000000000000000"
DATA "000000000000000000000011111111111111111110000000000000000000000"
DATA "000000000000000000011111111111111111111111110000000000000000000"
DATA "000000000000000001111111111111111111111111111100000000000000000"
DATA "000000000000000111111111111111111111111111111111000000000000000"
DATA "000000000000011111111111111111111111111111111111110000000000000"
DATA "000000000000111111111111111111111111111111111111111000000000000"
DATA "000000000001111111111111111111111111111111111111111100000000000"
DATA "000000000011111111111111111111111111111111111111111110000000000"
DATA "000000000111111111111111111111111111111111111111111111000000000"
DATA "000000001111111111111111111111111111111111111111111111100000000"
DATA "000000011111111111111111111111111111111111111111111111110000000"
DATA "000000111111111111111111111111111111111111111111111111111000000"
DATA "000001111111111111111111111111111111111111111111111111111100000"
DATA "000011111111111111111111111111111111111111111111111111111100000"
DATA "000011111111111111111111111111111111111111111111111111111110000"
DATA "000111111111111111111111111111111111111111111111111111111111000"
DATA "000111111111111111111111111111111111111111111111111111111111000"
DATA "001111111111111111111111111111111111111111111111111111111111100"
DATA "001111111111111111111111111111111111111111111111111111111111100"
DATA "001111111111111111111111111111111111111111111111111111111111100"
DATA "011111111111111111111111111111111111111111111111111111111111110"
DATA "011111111111111111111111111111111111111111111111111111111111110"
DATA "011111111111111111111111111110000011111111111111111111111111110"
DATA "011111111111111111111111111000000000111111111111111111111111110"
DATA "011111111111111111111111110000000000011111111111111111111111110"
DATA "111111111111111111111111100000000000001111111111111111111111111"
DATA "111111111111111111111111000000000000000111111111111111111111111"
DATA "111111111111111111111111000000000000000111111111111111111111111"
DATA "111111111111111111111110000000000000000011111111111111111111111"
DATA "111111111111111111111110000000000000000011111111111111111111111"
DATA "111111111111111111111110000000000000000011111111111111111111111"

[PMACKAY]

CASE IS SOLVED...... YAY I WORKED IT OUT... SILLY ME



DIM TILE0(1 TO 5000), TILE1(1 TO 5000), TILE2(1 TO 5000): GLB& = _LOADIMAGE("PYRAMID.jpg", 32): test& = _LOADIMAGE("timer.png", 32)
BLUERING& = _LOADIMAGE("blue.png", 32): REDRING& = _LOADIMAGE("red.png", 32): GREENRING& = _LOADIMAGE("green.png", 32)


SCREEN _NEWIMAGE(1280, 680, 32): CLS


_PUTIMAGE , GLB&

FOR I = 0 TO 20
    FOR J = 1 TO 8
        A = INT(RND(1) * 3) + 1

        SELECT CASE A
            CASE 1: _PUTIMAGE (I * 64, J * 64)-(I * 64 + 63, J * 64 + 63), BLUERING&
            CASE 2: _PUTIMAGE (I * 64, J * 64)-(I * 64 + 63, J * 64 + 63), REDRING&
            CASE 3: _PUTIMAGE (I * 64, J * 64)-(I * 64 + 63, J * 64 + 63), GREENRING&
        END SELECT
    NEXT J
NEXT I