Code: Select all
DATA 01,01,01,01
DATA 01,00,00,01
DATA 01,00,00,01
DATA 01,01,01,01
FOR x = 1 TO 4
FOR x = 1 TO 4
READ z
PSET(x, y), z
NEXT
NEXT
DIM box(4*4)
GET (0, 0) - (4, 4), box
so i redid it but now i get a syntax about GET (0,0) - etc.
Code: Select all
DATA 01,01,01,01
DATA 01,00,00,01
DATA 01,00,00,01
DATA 01,01,01,01
FOR x = 1 TO 4
FOR x = 1 TO 4
READ z
PSET(x, y), z
NEXT
NEXT
DIM box(4*4)
GET (0, 0) - (4, 4), box
Code: Select all
DATA 01,01,01,01
DATA 01,00,00,01
DATA 01,00,00,01
DATA 01,01,01,01
SCREEN 13
FOR x = 1 TO 4
FOR x = 1 TO 4
READ z
PSET(x, y), z
NEXT
NEXT
DIM box(4*4)
GET (0, 0) - (4, 4), box
Code: Select all
FOR x = 1 TO 4
FOR x = 1 TO 4
READ z
PSET(x, y), z
NEXT
NEXT
Code: Select all
DATA 01,01,01,01
DATA 01,00,00,01
DATA 01,00,00,01
DATA 01,01,01,01
SCREEN 13
FOR y = 1 TO 4 ' You need to read Y
FOR x = 1 TO 4 ' Then X, not just X
READ z
PSET(x, y), z
NEXT
NEXT
DIM box(4*4)
GET (0, 0) - (4, 4), box
21 Thats how you get that screen!!Z!re wrote:Change to freeBASIC:
SCREEN 21 = 1280x1024x8bit
Or just use SDL directly like I do, and get any resolution you want, with any bithdepth you want.