Dim Eins As Byte At &H60
Dim Zwei As Byte At &H61
Dim Drei As Byte At &H62
Dim Vier As Byte At &H63

Dim Erg As Long At &H60 Overlay

Eins = 255
Zwei = 1
Drei = 0
Vier = 0

Erg = Erg + 1

Do
Print Erg
Loop
End