For lp =0 to 100
          print lp
       next

     if 0<=100
      For lp =0 to 100
          print lp
       next
    endif

; ---------------------------------------------------------------------
; ---------------------------------------------------------------------
; ---- [cube.dll ]---------------------------------------
; ---- [ Created:28 Apr 2014 ]---------------------------------------
; ---------------------------------------------------------------------
; ---------------------------------------------------------------------


linkDll "cube.dll"

	dll_addintegers(a,b) alias "dll_addintegers" as Integer
	dll_addfloats(a#,b#) alias "dll_addfloats" as Float
	dll_addstrings(a$,b$) alias "dll_addstrings" as String
	DrawCube(sections,spacing,scale#) alias "dll_rotate_vertex_cube_9mult_common_point"
	DrawCube_opt1(sections,spacing,scale#) alias "dll_rotate_vertex_cube_9mult_common_point_opt1"
DrawCube_opt2(sections,spacing,scale#) alias "dll_rotate_vertex_cube_9mult_common_point_opt2"


EndlinkDll 

  

		print not a=b
		print not a<>b

		print not a#=b#
		print not a#<>b#

                ; thee lines would fail in older versions of PB, since it'd evaluate Not A$ first
		print not a$=b$ 
		print not a$<>b$

             Print Not 1
             Print Not 0

             Print Not 1.0
             Print Not 0.0

             Print Not A=B
             Print Not A<>B

             Print Not A#=B#
             Print Not A#<>B#

             Print Not A$=B$
             Print Not A$<>B$

             Print 0
             Print 1

             Print 0
             Print 1

             Print A<>B
             Print A=B

             Print A#<>B#
             Print A#=B#

             Print A$<>B$
             Print A$=B$

 		print 1 << 2
 		print 256 >> 2
 		
 		a=16
		b=4
		b#=b

		print "variables & literals:"
		print  a << 4
		print  a >> 4
		print  4 << a
		print  4 >> a
		
		
		print "integer only"
		print  a << b
		print  a >> b

		print  b << a
		print  b >> a


		print "mixtures (floats recast as ints)"
		print  a << b#
		print  a >> b#

		print  b# << a
		print  b# >> a

		Sync
		waitkey

		; Testing operators in standard PlayBasic IDE

		a++
		a--
		
		a+=b
		a-=b
		a*=b
		a/=b

		print a< B
		print a> B
		print a<>B
		print a><B
		print a>=B
		print a<=B
		print a=>B
		print a=<B
	
 		print 1 << 2
 		print 256 >> 2
 		
 		a=16
		b=4
		b#=b

		print "variables & literals:"
		print  a << 4
		print  a >> 4
		print  4 << a
		print  4 >> a
		
		
		print "integer only"
		print  a << b
		print  a >> b

		print  b << a
		print  b >> a


		print "mixtures (floats recast as ints)"
		print  a << b#
		print  a >> b#

		print  b# << a
		print  b# >> a

		print hex$(255 and 15 << 8)

		Sync
		waitkey

 	Dim Table(100)
	Dim Table2(1000)

	
	; make a stub array called Me()
	MakeArray Me()


	; Me() now contains  a copy of buffer that Table() officially owns
	SetArray Me(),  GetArray(Table())
	

	; see me is now 100 elements in size
	Print GetArrayElements(Me())


	; put some data in table are indexes 0,1,2
	Table(0) = 111
	Table(1) = 222
	Table(2) = 333
	
	; show what  me()'s looking at
	print Me(0)
	print Me(1)
	print Me(2)

	Sync
	waitkey
  
  

	Data 10, 20,30,40,50,10,10,50

	; find the first instant of the Integer value 50
	; and set the data pointer to the cell after that value
	Restore FindData(50)+1

	; show us what where it is within the set	
	Print GetDataPointer()


	; find the next instance of 50
	Restore FindData(50)

	; show us where it is	
	Print GetDataPointer()
	
	sync
	waitkey

	Data "StartBaby"

Label1:
	Data 10
Label2:
	data 20,30,40,50

Label3:
	Data 111.111,222.222,333.333 ,444.444, 555.555

Label4:
	data "hello world1","hello world2","hello world3","hello world4","hello world5"


	DLL_DATATEST()

	sync
	waitkey
	


Function DLL_DATATEST()

		print GetDataPointer()


		Label4=100
		restore Label4


		print "Reading data types on heap"
		Count=GetDataQuantity()
		print "Count:"+str$(count)
	
		for lp=-10 to count
				restore lp
				DataType=getDataType()
				s$= Str$(lp)+"  ="+str$(getDataPointer())+" type="+str$(DataType)
				Select DataType
				
						case 0
								s$+="  Data="+str$( ReadData())
						
						case 1
								s$+="  Data="+str$( ReadData#())
						
						case 2
								s$+="  Data="+ReadData$()
				endselect
				print s$
		next
				
				
				
		print "restore tests"				
		restore "hello world2"
		print GetDataPointer()
		restore "StartBaby"
		print GetDataPointer()
		

		print "find Data tests"
		print FindData("hello world3",0)
		print FindData(50,0)
		print FindData(222.222,0)



		; find the first instance of 50 from the current data pointer position
		print FindData(50)
		


EndFunction

Function DLL_JumpTableTest(ptr)

	; integer for next step loop
	For lp =0 to 100 step 10
		pokeint ptr,lp
		ptr+=4	
	next

	print lp
EndFunction



Function DLL_ForLoopTest(ptr)


	StepY=10
	StepX=10

	Counter=0
	; integer for next step loop
	For ylp =0 to 100 step StepY
		For xlp =0 to 100 step StepX
				Counter++
		next
	next


	For ylp =100 to 0 step -StepY
		For xlp =100 to 0 step -StepX
				Counter++
		next
	next



	a=100
	b=200
	swap a,b

	
	print Counter
EndFUnction


Function DLL_JumpTableTest_BIG(a)

	; integer for 'next with literal 
	for lp=0 to 100
		a=b
	next

	; Integer for next with variable/register end value
	for lp=0 to B
		a=b
	next

	; Nested integer for / next loop
	For xlp=A*B to 100
		For ylp =0 to xlp*100	
				Stuff=xlp	
		next
	next




	on a goto label0,label1,label2,label3

   a=999	
	goto done

Label0:
		a=0
		goto done
Label1:
		a=111
		goto done
Label2:
		a=222
		goto done

Label3:
		a=333
		goto done
Label4:
		a=444
	
Done:

	a=addtest(a,40000)	
EndFunction

Psub AddTest(A,B)
		result=a+B
EndPsub result

LinkDLL  "StringTest.dll"

		; String tests
		DLL_StringTest() alias "stringtest" as string
		
EndLinkDLL

	startinterval(0)
		for test=0 to 100
				Result$=DLL_StringTest()
		next
	print EndInterval(0)
	print Len(Result$)
	
	
	StartInterval(0)
		for test=0 to 100
				result$=DLL_StringTest2()
		next
	print EndInterval(0)
	print Len(Result$)

	Sync
	waitkey
	



Function DLL_StringTest2()
		s$="Hello World"

		for lp =0 to 100
			b$+=s$
		next	
				
		result$=b$		
Endfunction result$

	Type CoolType
			x,y,z
			a#,b#,c#
			ThisString$
			IntArray(10)
			FltArray#(10)
			StrArray$(10)
			cool
	EndType

	
	
Function DLL_Pointer_FillCoolType(Address)
		if Address

			DIm Me as CoolType pointer
			Me=Address
			
			me.x=111
			me.y=222
			me.z=333
			
			me.a#=111.111
			me.b#=222.222
			me.c#=333.333
			
;			me.ThisSTring="String"
			
			for a=0 to 9
				me.intarray(a) = 2000+a
				me.fltarray(a) = 2222.34+a
				me.Strarray(a) = "storm"+str$(a)
			next

			me.intarray(1) = 1001 
			me.intarray(2) = 1002
			me.intarray(3) = 1003
			
			me.fltarray(0) = 1000.111
			me.fltarray(1) = 1001.111 
			me.fltarray(2) = 1002.111
			me.fltarray(3) = 1003.111

			me.Strarray(0) = "cool1"
			me.Strarray(1) = "cool2"
			me.Strarray(2) = "cool3"
			me.Strarray(3) = "cool4"
			
			me.cool=123456
			
		endif
EndFunction result$