2.4.1 BITPIC

1.
Function
Returns a bit pattern as character strings of '0' and '1'.
2.
Call
CALL BITPIC(IP,CP)
3.
Explanation of Parameters
IP (I) An argument of 1 word length that checks the bit pattern..
CP (C*(*)) A character-type argument that returns the bit pattern. '1' and '0' are returned when the bit is ON and OFF, respectively.
4.
Notes
(a)
When the length of CP is N (=LEN(CP)), then this subroutine checks the lower MIN(N,NB) bits of IP (NB is a number determined by the internal variable 'NBITSPW') and returns the bit pattern right-aligned. When N is greater than NB, CP(1:N-NB) is undefined.