#if Option.ExtRamAble
Option ExtRamConfig On
#endif

'Option RamSize 65536 - Register.RamStart
Option TaskStackMargin 0
Option MainTaskStackSize 90

Const arraySize as UnsignedInteger = 32360
Private mem1(1 to arraySize) as Byte
Private mem2(1 to arraySize) as Byte


Sub Main()	
   Debug.Print "RAM start is "; Register.RamStart
   Debug.Print "RAM size is "; Register.RamSize; " bytes"

	' loop forever 
   do 
	   Debug.Print "Starting RAM test..."
 
	   Dim i as UnsignedInteger
 
    	For i = 1 to arraySize
		   mem1(i) = lobyte(i)
		   If mem1(i) <> lobyte(i) Then
 			   debug.print "error in mem1 at address "; Cstr(i)
		   End If
         
		   mem2(i) = lobyte(i)
		   If mem2(i) <> lobyte(i) Then
			   debug.print "error in mem2 at address "; Cstr(i)
		   End If 
         
	   Next i
	   Debug.Print "...RAM test finished"
      
      Call Sleep(10.0)
	Loop
End Sub