12 lines
241 B
Text
12 lines
241 B
Text
#COMPILE EXE
|
|
#DIM ALL
|
|
#COMPILER PBCC 6
|
|
|
|
FUNCTION PBMAIN () AS LONG
|
|
LOCAL i, d() AS DWORD
|
|
REDIM d(2)
|
|
ARRAY ASSIGN d() = 5, 50, 9000
|
|
FOR i = 0 TO 2
|
|
PRINT STR$(d(i)) & ": " & BIN$(d(i)) & " (" & BIN$(d(i), 32) & ")"
|
|
NEXT i
|
|
END FUNCTION
|