_runtimePath_ "../runtime"
_userCodeStart_ &h0300
_codeRomType_ ROMv1

cls
10 aaa = &h21
aaa = aaa AND &hFFFF
a = NOT aaa - peek(aaa AND pEeK(&h0000 OR peek(&h0000))) AND &hFC OR peek(aaa+1) + 23 XOR &B00001111 - NOT 56 + NOT aaa
b = 131
gosub blamo

rem cls
print hex$(a, 2);" ";hex$(b, 4);" ";hex$(&h1111 OR &h2222, 4)
print "test";" ";"dog";" ";56+44;" ";a;" ";hex$(get("ROM_TYPE") AND &hFC, 2)
x = &h0080
z = (x AND &h3F) LSL 8
at x, (z AND &h3F)
print hex$(x, 4);" ";hex$(z, 4)
' goto 10
END

blamo: b = &haa55 XOR &hF0F0
b = b XOR a

for i = 0 to 10
    c$ = CHR$(32)
    c = 32
    f = peek(0)
    d = c AND &hAA55 AND a
    z = a + 5 + b
    b = -b
    print i; " " ;hex$(b, 4)
next i

g = z - NOT g
h = NOT a - d
return