'We need to create a compiler to create the byte code:
Local MyCompiler:TCompiler = New TCompiler

'then we compile the script to Byte code:
Print "Generating assembly on memory"
Local CR:TCompilerResults = MyCompiler.Compile("program1.pol")

'We check the compilation results, and inform on any possible error:
If CR.Compiled = False Then
	Print "program was not compiled."
	Print "Error = " + cr.ErrDescription
	Print "on line = " + cr.ErrLine
	Print "of file = " + cr.errfile
	Input "Press enter to quit>"
	End
End If

'In case there were not error, we save the compiled assembly on disk:
Print "saving assembly to disk for later use."
'We're going to save the compile assembly to disk:
cr.Assembly.SaveAssembly("Program1.pexe")


'Now we have the program compiled, it's time to run it on a Virtual Machine:
Local VM:TVirtualMachine = New TVirtualMachine
Print "Loading assembly to virtual machine"
vm.LoadProgram(CR.Assembly)	'You can only load one program per virtual machine
Input "Program is about to be executed. Press enter>"
vm.RunProgram()
Input "Program executed. Press enter>"

'Now we're going to run a program pre-compiled on disk:
vm = New TVirtualMachine
'first of all, we load the assembly from disk:
Print "Loading assembly from disk"
Local Assembly:TAssembly = TAssembly.Load("Program1.pexe")
'then we load set the assembly to the running virtual machine:
vm.LoadProgram(Assembly)
Print "Assembly loaded and set to the VM."

Input "Program is about to be executed again, press Enter>"
vm.RunProgram()
Print "After execution:"
Print "Contens of global byte variable number 5: " + vm.Scopes.scopes[0].bytes[5]
Input "Press enter to perform a speed test>"
Const iterations:Int = 1000000
Local t:Int = MilliSecs()
For Local i:Int = 1 To iterations
	vm.RunProgram()
Next
Local time2:Int = MilliSecs() - t
Print "It took " + time2 + " to perform " + iterations + " iterations."
Print "each iteration took " + (Double(time2) / Double(iterations)) + " milliseconds."
Input "Press Enter to exit>"
End

Byte MyVar = 0
While MyVar<255
MyVar = MyVar + 1
print "The value of MyVar now is: " + MyVar
Wend