QuickBasic Extended has preformed illegial task...
This is what I'm using:
Code: Select all
SCREEN 13
DIM pic(100)
DATA 0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0
FOR y = 1 TO 10
FOR x = 1 TO 10
READ z
PSET (x, y),z
NEXT
NEXT
GET (1, 1)-(10, 10), pic
DEF SEG = VARSEG(pic(0))
BSAVE "Pic.gfx", 0, 10000
DEF SEG
Code: Select all
SCREEN 13
DIM pic(100)
DEF SEG = VARSEG(pic(0))
BLOAD "Pic.gfx", 0
DEF SEG