is zwar ein sinloses programm aber es geht trotzdem nicht

er sagt invailad datatype und if then espect das jeweils 2 mal

$regfile = "1200def.dat"
$noramclear
$tiny
Config Pinb.1 = Input
Config Pinb.2 = Input
Ddrb = &B00001001
Portb.1 = 1
Portb.2 = 1
Declare Sub Blinken
Dim X As Iram Integer
Dim Y As Iram Integer
X = 0
Do

If X = 0 Then
Y = 1
Waitms 1000
End If

If Y = 1 Then
Y = 2
End If


Loop

End