XProfan

def MakeLong2(2) OR(@&(1),MUL(@&(2),$10000))
print Makelong(5,0)
print makelong2(5,0)
declare m#
dim m#,2
byte m#,0=65
byte m#,1=chr$(0)
print string$(m#,0)
print "Ab hier:"
print makelong2(m#,0)
print makelong(m#,0)

Def MakeLong3(2) @&(1) | (@&(2) * $10000)

!print makelong2(word(m#,0),0)
print makelong(word(m#,0),0)e>

!def MakeLong2(2) INT(OR(AND(@&(1),$FFFF),MUL(AND(@&(2),$FFFF),$10000)))