Draft Character - Star Micronics LC24-10 User Manual

If you select super/subscript, the character box now has 16 (high) x 7
(wide) dot positions for draft characters, or 16 x 23 dot positions for LQ
characters. Each dot is represented by two adjacent solid blocks, occupying
its own position and the position to the right. This reflects the fact that the
printer still cannot print horizontally adjacent dots, but that even skipping
every other dot, the dots appear joined when printed.
The file created by this program contains the following printer com-
mands:
1.
< ESC > ":" <O>
<O> <O> (standardmode)or <FS> ":" <O>
< 0 > < 0 > (IBM mode) to copy the printer's regular characters into
download memory. If you leave a download character undefined, the
regular character will be printed.
2.
< ESC > "x" < 0 > or < ESC > "x" < 1 > to select draft or letter quality.
3. One <ESC> "&" <O> <cc> <cc> <mO> <ml> <m2> cdl>
. . . command for each character defined. <cc > is the character code,
< m0 > is the left hand space byte, < ml > is the character width byte,
and cm2 > is the right hand space byte. <pl > . . . are the <ml > x
3 bytes of dot data.
4.
< ESC > "% 1" to enable the printer to print the downloaded characters.
This program is coded in Microsoft BASIC for the IBM-PC.
The WIDTH 255 command in line 1050 means infinite line width and
prevents the computer from inserting unwanted line feeds in the character
data. Some versions of BASIC do not need the WIDTH command.
Check your BASIC manual and make any changes necessary.
1000 1***************"~***********11**"**."******.~***********
1010 '
1020 '
WHNLOAD CHARACTER GENERATOR FOR PI-WIRE PRINTER
1030 '
1040 I**~*~***~*********"****************."~"**********.~.**,*********
1050 WIDTH "LPT1:",255 :KEY OFF :CLS
1060 DIH A(l26), A$(l26), P$(l26), DT(24,42) :E$=CHR$(27) :F$=CHR$(aa)
1070 sc.(o)=u---------+---------+ ---------+---------+--"
1080 scg(l)i~.........+.........+.........+.........+..~
1090 KEY l,CHRQ(7)
:KEY 2,CHR$(B)
:KEY 3,CHR$(9)
1100
KEY
4,CHR$(lO) :KEY 5,CHR$(ll)
:KEY
B,CHR$(lP)
1110 FOR I=33 TO 126 :A(I)=-1 :NEXT I
1120
1------ PRINT HEADING ----------------------------~~~~~~~~~~~~~~~
1130 LOCATE 1,l :PRINT STRING$(25,62);
1140 PRINT ' DOWNLOAD CHARACTER GENERATOR ";STRING$(25,60)
1150 1---------------------------------------------------------- ------
1160 LOCATE 3,l :PRINT "READ CHARACTERS FROH EXISTING FILE?"
1170 SO$="Yes" :Sl$="No"
:S=-1 :PX=4 :PY=l :GOSUB 2020 :IP S THEN 1470
1160 t------ open exiating file --------------------------------------
1190 LOCATE 3,l :PRINT STRING$(40,32) :LCCATE 3,l
1200 INPUT "File name";PI$
1210 OPEN FI$ FOR INPUT
AS
#l
1220 0-m-s-s R.,ad ini,--al commands------------------------------------
1230 I$=INPUT$(3,#1)
1240 IF RIGHT$(I$,l)="O"
THEN
QUA=1 :GOTO 1260
92