Dim Stuff(100)

    ; assign Stuff() array to some none existent array
     Stuff() = 2000

	Limbs=10

	Dim Tree(Limbs)
	MakeArray Branch()
	
	; create an array to place them in the tree() array.
	; so each cell is now conceptually a 1D array
	For lp =0 to Limbs
		
		; The MakeBranchfunction exports the 'bank/container' of the array
		; as an integer.  We can assign then anywhere.  There's nothing special
		; about them.  
		
		
		Tree(lp)=MakeBranch(rndrange(5,20))	
	next

	; Display the tree
	
	for lp=0 to limbs
		if Tree(lp)
	
			; Copy the Branch array container into our redirection/pointer array
			; so we now use the redirection arrays to look at the array data
			; When PB writes the right handy value into Branch() array it check
			; if this value does represent a legal array.  if it doesn't it'll error
			Branch()=Tree(lp)

			; Parse the values into a string		
			Row$="Branch["+digits$(lp,2)+"] = "
			For b=0 to getarrayelements(branch())
				row$+=str$(Branch(b))+","				
			next
			
			; print it out
			print trimright$(row$,",")
					
		
		endif
	
	next
	

	
	Sync
	waitkey



Function MakeBranch(Size)
	Dim ThisBranch(size)	
	For lp =0 to size
			ThisBranch(lp)=rnd(1000)
	next
EndFunction ThisBranch()

	size=48
	LoadFont "Verdana",2,size,0,8

	FontBlendColour 2,$00ff00

	; Set output to pre blend pixels with FontBlendColour
	fontdrawmode 2,2

Do
		cls 255

		frames++
		startinterval(0)
		Page_Of_Text(2,$ffff0000)
		tt#+=Endinterval(0)
		
		print tt#/frames
	
	
		Sync
	loop	



Function Page_Of_Text(ThisFont,C)

	oldrgb=getink()
	OldFont =GetCurrentFont()
	SetFont ThisFont

	ink c
	
	For lp=asc("a") to asc("z")
		s$+=chr$(lp)
	next
	s$+=s$	;+s$+s$

	lockbuffer
	For ylp=0 to GetScreenHeight() step 10
		text xpos,ylp,s$
	next
	unlockbuffer

	SetFont OldFont
	ink OldRgb
	
EndFunction

	size=48
	LoadFont "Verdana",2,size,0,8

	FontBlendColour 2,$00ff00
	
	Screen=1	
	CreateFXimageEx Screen,800,600,32

	; Set output to pre blend pixels with FontBlendColour
	fontdrawmode 2,2

	; ------------------------------------------------------------------
	Do
	; ------------------------------------------------------------------
			rendertoimage Screen
			cls 255

			frames++

			startinterval(0)
				Page_Of_Text(2,$ffff0000)
			tt#+=Endinterval(0)
		
			rendertoscreen
			drawimage Screen,0,0,false
			setcursor 0,0
			print tt#/frames
			print GetImageDepth(Screen)
	
			Sync
	loop	



Function Page_Of_Text(ThisFont,C)

	oldrgb=getink()
	OldFont =GetCurrentFont()
	SetFont ThisFont

	ink c
	
	For lp=asc("a") to asc("z")
		s$+=chr$(lp)
	next
	s$+=s$	;+s$+s$

	lockbuffer
	For ylp=0 to GetScreenHeight() step 10
		text xpos,ylp,s$
	next
	unlockbuffer

	SetFont OldFont
	ink OldRgb
	
EndFunction

	Filename$="D:\TestCrf.crf"

	// Load a true type and convert it to CRF
	LoadFont  "verdana",20,75,0,8
	SaveFont Filename$,20
	deletefont 20	
	
	// Load the file into a bank
	fh=ReadNewFile(filename$)
		size=filesize(filename$)
		Thisbank=NewBank(size)
		ptr=GetBankptr(thisBank)
		ReadMemory fh,Ptr,Size
	closefile fh
	

	// Load the front from memory.   Here instead of passing the load command
	// the filename with path, we give it the address of the resource in memory
	// in string form.  
	LoadFont "&"+str$(ptr),30,0	


	// This bank is no longer of any use, so delete it
	DeleteBank ThisBank
	
	
	// set and draw some text with the font loaded from memory
	setfont 30
	Print "Hello World"
	
	Sync
	waitkey

 

	Filename$="D:\PlayBasicSig2.png"
   
   // Load the image file into a bank.  The picture data needs the size (of the image) 
   // appended to the header of the structure for this work.   
   fh=ReadNewFile(filename$)
      size=filesize(filename$)
      Thisbank=NewBank(size+4)
      ptr=GetBankptr(thisBank)
	
		; poke the size into the first 4 bytes
		pokebankint ThisBank,0,size

		; read the data in after the size.  
      ReadMemory fh,Ptr+4,Size
   closefile fh
   

   // Load the image from memory. 
   // Just like the LoadFont tests, here we pass the loadIMage command
   // the address of the buffer in memory.   
   LoadImage "&"+str$(ptr),100,8

   // This bank is no longer of any use, so delete it
   DeleteBank ThisBank
   
	cls 255
	drawimage 100,100,100,true
	   
   Sync
   waitkey
 

  Filename$="D:\PlayBasicSig2.png"
   
   // Load the image file into a bank.  The picture data needs the size (of the image) 
   // appended to the header of the structure for this work.   

   fh=ReadNewFile(filename$)
      size=filesize(filename$)
      Thisbank=NewBank(size+4)
      ptr=GetBankptr(thisBank)
   
      ; poke the size into the first 4 bytes
      pokebankint ThisBank,0,size

      ; read the data in after the size.  
      ReadMemory fh,Ptr+4,Size
   closefile fh



   // Load the image from memory. 
   // Just like the LoadFont tests, here we pass the loadIMage command
   // the address of the buffer in memory.   
		t=timer()
	   LoadafxImage "&"+str$(ptr),100
   

		

		BlockWidth=32
		BlockHeight=32

		Map=NewMap(10)
		Level=NewLevel(Map,20,10)

		LoadMapGFX  "&"+str$(ptr),Map,BlockWidth,BlockHeight,-1,4
	
		Tile=0
		For ylp =0 to GetImageHeight(100) step BlockHeight
			For xlp =0 to GetImageWidth(100) step BlockWidth
					PokeLevelTile Map,Level,xlp/BlockWidth,ylp/BlockHeight,Tile
					Tile++
			next	
		next
			
		leveldrawmode map,level,2
		
	   cls 255
	   drawimage 100,100,100,true
			
		drawmap Map,level,100,300      
		
		
	   DeleteBank ThisBank
		
   Sync
   waitkey