Star Micronics NB-15 user manual Lprint LPRINTGERMANYCHR$9

Page 109

To demonstrate how to use these characters, let’s use this character set to print a small graph. This program, which has been built around the first program in this chapter, will do just

Ithat:

10 LPRINTCHR$(27);"xO";

20 LPRINTCHRS(27);":";CHR$(O);CHR$(O);CHR$(O)

30LPRINTCHR$(27);"&";CHR$(O);CHR$(60);CHR$(61);

40FOR N=60 TO 61

50FOR M=l TO 30

60READ MM

70 LPRINTCHR$(MM);

80NEXT M

90 NEXT N

100 LPRINT

110 DATA 1, 9, 2, 1,240, 0, 6, 8, 0, 8, 100, 0

120 DATA 0, 0, 0, 24, 99,128, 0, 0, 0, 31, 255,192

130 DATA 0, 0, 0, 6, 3, 0

140 DATA 1, 9, 2, 14, 0, 0, 0, 31,192,18, 96, 0

150 DATA 4,132,64, 16, 10, 0, 4,132,64, 18,

96, 0

160 DATA 0, 31,192,14, 0, 0

170 LPRINTCHR$(27);"D";CHR$(ll);CHR$(O)

180 LPRINTCHR$(27);"h";CHR$(l);

190 LPRINTw DIFFUSIONRANGESOF"

200 LPRINTw CARS & TELEPHONES'*

210 LPRINTCHR$(27);"h";CHR$(O);

220 LPRINTCHR$(27);"%1";CHR$(O);

230 LPRINT "USA";CHR$(9);

240 FOR I=0 TO 681 STEP 50

250 LPRINTCHR$(60);

260 NEXT I

270 LPRINT

280 LPRINTCHR$(9);

290 FOR I=0 TO 781 STEP 50

300 LPRINTCHR$(61);

310 NEXT I

320 LPRINT

330 LPRINT"GERMANY";CHR$(9);

340 FOR I=0 TO 412 STEP 50

350 LPRINTCHR$(60);

360 NEXT I

Image 109

Contents USER’S MANUAli Tatement Special Message to the New Owner Table of Contents CHR$ Chapter Controlling with BasicChapter Special Features of the Printer Functions of the Connector Signals TRS-80 Basic Appendix G Serial Interface SpecificationsSetting UP Your Printer Page Tion and movement for both removing and replacing the cover Page Print head Printer Slide the I/F board into the slot Page Getting to Know Your Printer Page Page Page Selecting and Loading Paper ‘igure 2-4. Raise the paper guide for loading single sheets You can insert a sheet of paper by using the release lever To align paper that is not in straight Sprocket cover You can raise While trrnirrgon the power Self-test DIP switch 2-2 on Efgh!jklmnopqr¶tuvwxyz~ ?lSS&‘ TOF During normal operation Connecting the Printer Page Memo Using Commercial Software Page Ascii Using Your Printer with Word Processors Page Memo Controlling With Basic List PR#ONEW Lprint Testing RUN ESC W Lprint CHR$27WCHR$l Lprint CHR$27WCHR$49 Lprint CHRS27Wl Memo Printing Text Lprint CHR$27 xl ESC Lprint Undelined OFF ESCLprint Overlined Boldface on Escso When you run this program you should get this Demonstration Condensed Here’s what you should get from this program OFF Elite mint Summary notes Memo Formatting Text This is what you will get This Line Spacing is SET to Run the program again. Now the results will look like this Here is what your printer will produce Lprint CHRS12 Line NumberIOI ESCNCHR$n Lprint this is LINE1 Next This is Line Return TWO Three Four ONE This command sets the horizontal tab to every eight columns Next Try thisprogram tosee how this works Lprint CHR$11 First TAB Lprint CHR$llFIFTH TAB CHR$O Lprint 2ND TAB of CHANNEL’ Memo Special Features Printer Lprint CHR$7 ESCVCHR$O Here is what this program will print Lprint CHR$27il Printing direction commands Function Control code Next Lprint Lprint Eighth bit controls Next J 129 LPRINTCHR$27 LPRINTCHR$27= Lprintlprint Double This is Double Sized Printing Lprint CHR$I Next LprintPage Creating Your OWN Characters Print Matrix Defining Your OWN Characters Usethisgridoronesimilartoittodefineyourown draftcharacters Wrong 128 Assigningavalueofcharacterspace Characterdesignsforthetwographsymbols Page Read MM LPRINTCHR$MM Next M Next N Lprint LPRINTCHR$I Next Lprint CHR$I Next LprintLprint LPRINTGERMANYCHR$9 Lprintscales Read MM Lprint CHR$MM Next M Data 1, 9, 2, 31,253,64, 32, 1,128,80MO+ml +m2 105 106