Well Anyway, here is the code for you all:
The important variables are pulled, the colour matchin was quite annoying as i was getting flourescent results for some time. note. If this doesnt work, and displays scrambled, then the bitmap might not be 24-bit or made in paint, this is the only bmp i have managed to load, but I am working on mode switching etc...
REM ************************
REM Turn Bitmaps Into Arrays
REM ************************
REM The Name Of The Bmp:
BmpName$ = "Image.Bmp"
REM Initialise Program
SYNC ON
SYNC RATE 60
REM The Procedure For Turning BmpName$ Into Bitmap(X,Y,3) Stars Here
OPEN TO READ 1,BmpName$
READ WORD 1,A
READ LONG 1,B
READ WORD 1,C
READ WORD 1,D
READ LONG 1,E
READ LONG 1,F
READ LONG 1,G
XPixels = G
READ LONG 1,H
YPixels = H
READ WORD 1,I
READ WORD 1,J
READ LONG 1,K
READ LONG 1,L
Length = L
READ LONG 1,M
READ LONG 1,N
READ LONG 1,O
READ LONG 1,P
REM The Array:
DIM Bitmap(XPixels,YPixels,3)
LocX = 1
LocY = YPixels
FOR N = 1 TO Length-1
FOR Y = 1 TO 4
READ BYTE 1,G
READ BYTE 1,R
READ BYTE 1,B
Bitmap(LocX,LocY,1) = B
Bitmap(LocX,LocY,2) = R
Bitmap(LocX,LocY,3) = G
LocX = LocX + 1
IF LocX = (XPixels+1)
LocY = LocY - 1
LocX = 1
ENDIF
IF LocY = 0 THEN GOTO ItsDrawn
NEXT Y
NEXT N
ItsDrawn:
CLOSE FILE 1
REM The Procedure Ends Here:
REM To Display The Bmp,Just Do This:
FOR X = 1 TO XPixels
FOR Y = 1 TO YPixels
INK RGB(Bitmap(X,Y,1),Bitmap(X,Y,2),Bitmap(X,Y,3)),0
DOT X,Y
NEXT Y
NEXT X
16 Consoles and 200+ Games. Thats some addiction!
