Pixel Plus 256

[NovaProgramming]

Hey guys, I know I am just being lazy, but how do you load the images into your QBASIC program after you've made them in PP256? I am sorry that I am so lazy but you guys can explain it better than they can in my personal opinion.

=Nova

[na_th_an]

The manual is very explanatory. You can also check Zeldatut by relsoft, or follow any of the directions already given in this forum (sorry, I can't help further, I am one of those morons who don't use PP256 :lol: ).

[Neo]

Here Nova :

Code:

DEFINT A-Z
SUB HARloadPut (FileName$, Array() AS INTEGER)
   l& = 0
   FF= FREEFILE
   OPEN FileName$ FOR BINARY AS #FF
      l& = LOF(FF)
   CLOSE #FF
   Ints = (l& - 7) \ 2
   REDIM Array(Ints) AS INTEGER
   DEF SEG = VARSEG(Array(0))
   BLOAD FileName$, 0
   DEF SEG
END SUB

This piece of code will load a PP256-PUT file into an array, after which you can do sth like this LoL:

Code:

SCREEN 13
DIM MyArray(0) AS INTEGER
HARloadPut "MYPUT.PUT", MyArray()
PUT (0,0), MyArray, PSET

[NovaProgramming]

THanks NEO but it comes back saying duplicate definition on

REDIM Array(Ints) AS INTEGER


and I really don't know how to fix that cause im a newbified programmer. ummm.... help:?

[na_th_an]

Code:

'$DYNAMIC

is missing, so your arrays are static and you can't REDIM them.