65 lines
787 B
Plaintext
65 lines
787 B
Plaintext
_runtimePath_ "../runtime"
|
|
_codeRomType_ ROMv1
|
|
|
|
cls
|
|
|
|
a = 3
|
|
b = 3
|
|
c = 3
|
|
d = a**b**c
|
|
e = 2
|
|
f = 7
|
|
|
|
a = -3
|
|
b = 2000
|
|
c = -19000
|
|
d = 0
|
|
print abs(a);" ";sgn(a);" ";abs(b);" ";sgn(b);" ";abs(c);" ";sgn(c);" ";abs(d);" ";sgn(d)
|
|
|
|
if sgn(c) &= 1
|
|
print sgn(c)
|
|
endif
|
|
|
|
print a**b;" ";0**a;" ";1**b;" ";a**0;" ";a**1;" ";a**2;" ";a**c;" ";d
|
|
print e**f
|
|
|
|
g = -6400
|
|
|
|
h = g ASR 1
|
|
i = g LSR 1
|
|
print h;" ";i
|
|
h = g ASR 2
|
|
i = g LSR 2
|
|
print h;" ";i
|
|
h = g ASR 3
|
|
i = g LSR 3
|
|
print h;" ";i
|
|
h = g ASR 4
|
|
i = g LSR 4
|
|
print h;" ";i
|
|
h = g ASR 5
|
|
i = g LSR 5
|
|
print h;" ";i
|
|
h = g ASR 6
|
|
i = g LSR 6
|
|
print h;" ";i
|
|
h = g ASR 7
|
|
i = g LSR 7
|
|
print h;" ";i
|
|
h = g ASR 8
|
|
i = g LSR 8
|
|
print h;" ";i
|
|
|
|
x = e
|
|
y = f
|
|
r = 1
|
|
repeat
|
|
if (y AND 1) &&<> 0 then r = r * x
|
|
|
|
x = x * x
|
|
y = y LSR 1
|
|
until y &&= 0
|
|
|
|
print r
|
|
|
|
end |