#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