24 lines
348 B
Text
24 lines
348 B
Text
PROGRAM "Two's complement"
|
|
VERSION "0.0000"
|
|
|
|
DECLARE FUNCTION Entry ()
|
|
|
|
FUNCTION Entry ()
|
|
d = 1234567
|
|
|
|
DIM b[8]
|
|
b[0] = -d
|
|
b[1] = -d+1
|
|
b[2] = -2
|
|
b[3] = -1
|
|
b[4] = 0
|
|
b[5] = 1
|
|
b[6] = 2
|
|
b[7] = d-2
|
|
b[8] = d-1
|
|
|
|
FOR i = 0 TO UBOUND(b[])
|
|
PRINT b[i]; " -> "; -b[i]
|
|
NEXT i
|
|
END FUNCTION
|
|
END PROGRAM
|