$regfile = "m32def.dat"
$crystal = 8000000
$baud = 19200

Dim I As Integer
I = -12345

Print "Integer Wert: " ; I

Do
Loop

End