CON
....
gxt=32 '# graphics tiles in x direction (was 16) gyt=4 '# graphics tiles in y direction (was 8)
w_x = 15'40 'left tile# of graphics window w_y = 3'30 'top tile# of graphics windows w_left = w_x * 16 w_right = w_left + gxt*16 '256 w_top = (48 - w_y) * 16 w_bottom = w_top - gyt*16'128
PUB start | i, j, k
...
'start and setup graphics gr.start gr.setup(gxt, gyt, gxt*8, gyt*8, bitmap_base)'(16, 8, 16*8, 8*8, bitmap_base)
...
'make some graphics tiles on the screen repeat i from 0 to (gyt-1) '7 repeat j from 0 to (gxt-1) '15 array.word[cols * (w_y + i) + j + w_x] := display_base + i*64 + j*gyt*64 + 21 'RJA