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))