Posted: Fri Feb 18, 2005 10:23 pm
Pardon me, its late and I'm tiered,.. umm but this program work for you with no errors? I mean taking that you are here, its not... I just know Nek gave me the code and it fixed what I needed... here. If you want a code I know that works well with no errors....
Thats for your BSAVE part,.. and ...
That should work, the only errors would be where I converted mine to yours so if you see Ship1 ne where, well, umm..... ZZZZzzzz
Good luck..
Code: Select all
SCREEN 13
arraySize = 10 * 10 / 2 + 1
DIM image(arraySize) AS INTEGER
DATA 7,7,8,8,8,8,8,8,7,7
DATA 7,7,8,8,8,8,8,8,7,7
DATA 7,7,8,8,8,8,8,8,7,7
DATA 7,7,8,8,8,8,8,8,7,7
DATA 7,7,8,8,8,8,8,8,7,7
DATA 7,7,8,8,8,8,8,8,7,7
DATA 7,7,8,8,8,8,8,8,7,7
DATA 7,7,8,8,8,8,8,8,7,7
DATA 7,7,8,8,8,8,8,8,7,7
DATA 7,7,8,8,8,8,8,8,7,7
FOR Y = 1 TO 10
FOR X = 1 TO 10
READ Z
PSET (X, Y), Z
NEXT
NEXT
GET (1, 1)-(10, 10), image
BsaveSize = 10 * 10 + 4
DEF SEG = VARSEG(image(0))
BSAVE "Image.imx", VARPTR(image(0)), BsaveSize
DEF SEG
Code: Select all
SCREEN 13
CLS
arraysize = 10 * 10 / 2 + 1
DIM SHARED image(arraysize) AS INTEGER
DEF SEG = VARSEG(image(0))
BLOAD "Image.imx", VARPTR(image(0))
![Rolling Eyes :roll:](./images/smilies/icon_rolleyes.gif)
![Wink :wink:](./images/smilies/icon_wink.gif)