17 lines
229 B
Text
17 lines
229 B
Text
PROGRAM "binardig"
|
|
VERSION "0.0000"
|
|
|
|
DECLARE FUNCTION Entry ()
|
|
|
|
FUNCTION Entry ()
|
|
DIM a[3]
|
|
a[0] = 5
|
|
a[1] = 50
|
|
a[2] = 9000
|
|
|
|
FOR i = 0 TO 2
|
|
PRINT FORMAT$ ("####", a[i]); " -> "; BIN$(a[i])
|
|
NEXT i
|
|
|
|
END FUNCTION
|
|
END PROGRAM
|