2-13
!R! RES;
XPAT 100;
@X0@ | 0Af0CC0FA8L@<X@6p@3p@3X@6L@<FA8CC0Af0@ | 0@X0;
MZP 1, 1;
PAT 100;
BLK 1, 1;
PAGE;
EXIT;
Lines 2 and 3 define the pattern shown in the figure on the next page, defining it as pat-
tern 100. The PAT command on line 5 selects the pattern for use in fills. Line 6 prints the
filled block.
Figure 2. 11. Dot Pattern and a Filled Block
The pattern is 16 dots high and 16 dots wide, and is encoded as a series of 16-bit words.
Each 16-bit word is encoded by three characters, representing the most significant six
bits, the next six bits, and the least significant four bits, respectively, as shown on the
next page.
You obtain the characters that define the pattern by dividing each row-work into sections
of six, six, and four bits, calculating the numerical value of each section (referred to as x,
y, and z, respectively), treating it as a binary number in which the white dots are zeroes
and the black dots are ones. Then add 64 (decimal) to the values of the 6-bit sections and
48 to the values of the 4-bit sections. The result is the ASCII code of the character that
represents that section.
To Next Page
Loading...
Need help?
General
Weight and Dimensions
