Sorry your browser is not supported!

`simple test setup
sync on : sync rate 100
backdrop off

`make a simple image to display
box 0, 0, 19, 19
get image 1, 0, 0, 19, 19, 1
cls

`initialy you will want to read all the data and place it into an array
dim map(10,5)

for n=1 to 5
   for m=1 to 10
      read variable
      map(m,n)=variable
   next m
next n


`view loop
do

`now paste the image tile to the screen where data specifies
for n=1 to 5
   for m=1 to 10
      if map(m,n)=1 then paste image 1, m*20, n*20 :` 20 times as that is the size of the image
   next m
next n


sync
loop

`data block
data 0,1,1,1,0,1,0,1,0,1
data 0,1,1,1,0,0,0,0,0,0
data 0,0,0,0,0,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1

`simple test setup
sync on : sync rate 100
backdrop off

`make a simple image to display
box 0, 0, 19, 19
get image 1, 0, 0, 19, 19, 1
cls

`view loop
do

`now paste the image tile to the screen where data specifies
for n=1 to 5
   for m=1 to 10
      read variable
      if variable=1 then paste image 1, m*20, n*20, 1
   next m
next n

`reset the data pointer to first data entry.
restore

sync
loop

`data block
data 0,1,1,1,0,1,0,1,0,1
data 0,1,1,1,0,0,0,0,0,0
data 0,0,0,0,0,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1

rem --------------------------------------
rem simple data populate with array
rem indi april 5 2003
rem --------------------------------------


rem TEMP SETUP
sync on
sync rate 60
set text size 16


rem Create an array that will hold the position data
dim positions(20)

rem the data
data 1,2,3,755,7,7,7,4,45554,0,555,5,0,0,54,1,0,545,0,0

rem read in the data to the array locations
for n=1 to 20
read positions(n)
next n

rem set the ink to white
ink rgb(255,255,255),1

rem print out the data via text
for n=1 to 20
text 10,16*n,"n = "+STR$(n)+" position = " + STR$(positions(n))
next n

rem Temp Main Loop
disable escapekey
while escapekey()=0
sync
endwhile

rem cleanup
undim positions(20)

rem exit program
end