Gemini Industries Printer user manual 107

Prlntlng Caprblllties

10LPRINTCHRI~Z?):CHR$(65):CHR)(b);CHR1(151 !5 LPRINTCHk$~27~:CHRt(85):CHR$~l~:

20 FORK = ! TO I

:O LPRINTCHR((27):CHPS(66);CHfi((K) 40 RESTORE

50FORJ = 1 TO 9 $0 FOR I = 1 TO 1;

70REkDA

80 LPRINTCHRS(A!:

90NEXT1 100LPRINT

110NEXTJ

!?O DATA 224,224,224,224,224,224, 224,224,224,245,2?4,224

130DATA224,224,?24,224,224,?2),224,224,?5?,245,224,224

140DATA224,2?4,224,245,224,224,224,252,239,245,224,224

150DATA?24,224,252,245,224,224,252,239,239,245,224,224 lb0 DATA224,25?,239,245,224,252,239,239,239,245,224,224 170DIITA?5?,239,23?,245,252,239,239,239,239,245,224,224 !80 DATA241,241,241,249,241,241,241,241,241,249,224,224 190DATA?39.239,239,239,239,239,239,239,239,239,239,251

200DATA253,239,239,239,239,239,239,239.23?,239,251,224

210LPRINT: NEXTI:

220LPRINTCHRS(27I:CHR$(64I::END

Figure 7-2. Block graphics created this fleet of sailboats, using the simple program shown.

Line 40 Is a BASIC command that tells the next READ statement to start reading at the beginning of the data.

The data statements have been changed In Figure 7-2 from what they were in Figure 7-1, or else we would have produced another “WY”instead of the sailboat. You can examine the data to see what characters are used, and with what results. You might want to take a sheet of quad paper and mark off 12 squares by 9 squares; then write the symbol for .each character in the corresponding position.

Note that we can control the aspect ratio (height to width) of the block graphic characters in the same manner we control the standard characters.

107