Star Micronics Delta LPRINTCHR$27W CHR$@NOW Were Back to Normal, Expanded print, I s, H153

Page 43

c

‘L

i..

L

L.

L*

i..

L

L

L

i

L.

L

c

‘L

Printing Text With Delta

31

Line 10 turns on elite pitch with ( ESC > “B” CHR$(2). Line 20 prints a line at 12 characters per inch. The (ESC) “B” CHR$(3) in line 30 changes Delta to condensed pitch and line 40 prints a line in condensed pitch. Line 50 resets Delta to pica pitch and line 60 prints a line in pica pitch.

Pica pitch and condensed pitch can be set with “shortcut” codes. Instead of using (ESC) “B” CHR$(n), you can set them with a single code. CHR$(18) sets pica pitch and CHR$(15) sets condensed pitch. You can not set elite pitch with a single code.

Expanded print

Each of Delta’s three print pitches can be enlarged to twice its normal width. This is called expanded print. Try this program to see how it works:

NEW

18LPRINTCHR$(lh)"THISLINE IS EXPANDED" 2@ LPRINT "BUT THIS LINE IS NOT"

T-HIS L~INlzEI IS E x l==‘aNwER

BUT THIS LIME IS NO-r

Expanded print set with CHR$(14) is automatically canceled at the end of the line. This is convenient in many applications, such as for one line titles. Note that you don’t need to put an (ESC) in front of the CHR$(14), although (ESC) CHR$(14) works just the same.

Sometimes you may wish to stay in expanded print for more than one line. Change your program to this:

18LPRINTCHR$(27)"W" CHR$(l)"THISLINE IS EXPANDED"

2flLPRINT "AND SO IS THIS ONE"

39LPRINTCHR$(27)"W" CHR$(@)"NOW WE'RE BACK TO NORMAL"

Now the results look like this:

-l-H I s

LINE

 

I s

ECXF-‘RNlDEr)

6rNR

su

IS

-l-H153

CBNE

NOW WE’ RE BACK TO NCIRMAL

Image 43
Contents Delta User’s Manual @Copyright 1983 Star Micronics, Inc Special Message to the New Owner Delta User’s Manual Table of Contents Formatting Your Output Special Features Delta PrinterCreating Your Own Characters Getting It All Together Maintenance Appendix E Osborne, Kaypro and CP/M Computers Appendix D TRS-60 ComputersAppendix F Atari 400/800 Computers Appendix Appendix DIP Switch SettingsAppendix Character Style Charts Appendix Commodore VIC-20 ComputersSerial busy protocols XONlXOFF Protocol ACK protocol Index Consumer Response 309 DIP Switch Quick ReferenceWarranty Inside Back Cover Command Quick Reference Delta User’s ManualTables Xii Delta User’s Manual Closer Look Roll paper holder and holder shaft used only with roll Paper separator and paper guide used with roll paperPage Paper Selection and Loading Parallel interface connector the place where you hookLoading single sheets Delta User’s Manual Loading roll paper Delta User’s Manual Loading sprocket-feed paper Closer LookOpen the tractor covers to expose the sprocket teeth Figure I-10.Delta ready to run with sprocket-feed paper Bottom feeding Delta-15Delta User’s Manual Ribbon Installation Self-Test Closer Look Delta User’s Manual Getting Started With Delta Using Commercial Sojtware First, some terminology Getting Started With DeltaAscii Using Delta with word processors Using Delta with SuperCalcPage Getting Started With Delta Using this book without learning BasicOPEN4,4 CMD4 List PRINT#4 CLOSE4 ListEstablishing communications CHR$ function NEW Lprint Testing RUNNEW NEW LPRINTCHR$7 RUNEscape Code NEW LPRINTCHR$27CHR$52 2$3LPRINT Testing RUNESC$=CHR$27 l@ LPRINTESC$ Some problem codesDelta User’s Manual Chapter Printing Text With DeltaLprint NOW WE are Back to Pica Pitch Printing Print pitch Commands@ Lprint this is Elite Pitch Printing Lprint Condensedis the NarrowestpitchH153 LPRINTCHR$27W CHR$@NOW Were Back to NormalExpanded print I sMaking Delta print darker Print CommandsLPRINTCHR$14EXPANDEDELITE Pitch Lprint NOW WE are Back to Unexpandedpica PrintingLprint this is DOUBLE-STRIKEPRINTING Print EmDhasis a CommandsItalic printing Italic CommandsSuperscripts and subscripts UnderJiningNEW Lprint Thisline Uses Superscript Subscript commandsMixing modes Build Instructionset Return LPRINTRESET.ALL$Lprintelites Elite LPRINTPICA$ Pica LPRINTRESET.ALL$ Return REGULAR.HEADING$= STRING$27,*+ RegularIf ENLARGED= True then Lprint Italics = False LPRINTROMAN$Repeatwith Italics If Pica = False then LPRINTFOUR.DOT$ GOTO3590Control Code Function Here is the chart it producesPage Delta User’s Manual Line Spacing and Forms Control Changing Line Spacing This is what you will get Run the program again. Now the results will look like this Line spacing CommandsMoving down the page without a carriage return NEW Lprint LinenumberForm feed Forms ControlsChanging the Page Length Form length commandsLprint PAY to the Order Top and bottom margin commandsLineSpacingandFormsControl51 Control code SummaryESC Delta User’s Manual Formatting Your Output NEW Lprint ONECHR$9TWOCHR$9THREE CHR$9 Four Left and right margin commands One-shot tab command13@ Lprint Return 5B ENDLPRINTCHR$27P CHR$l@ CHR$Z@CHR$@ Control Code Function One-shot vertical tab commandNow hear this LChapterInitializing Delta Bell commandsUnidirectional printing Some Miscellaneous commandsPutting Delta to sleep Printing to the bottom of the sheetNext Lprint LprintPrinting Direction Backspace and delete NEW Lprint Backspacedoes notLprint I===WORK Lprint Deletedoes not Lprint WorkEighth Bit controls Block graphics characters and special symbols3pl Lprint I II=11CHR$ICHR$9 4pI Next I Lprint Next J International character sets International Character set commandsMacro control code Macro instruction Commands END Macro StartdefinitionMacro Lprint CHR$18 Pica OFF RegularprintControl code Function Bell Disable bell Enable bell Reset Off-lineOn-lineDelta User’s Manual Creating Your Own Characters Dot Matrix Printing 000 0 eeeS&fee Rule I Download characters are seven dots high Defining Your Own CharactersRule 2 Dots cannot overlap Add up each column of dots 8WRONGCreating YourOwn Characters Assigning a value to your character Download character definition commandCharacter designs for the four card suits Figure Y-10. The attribute byte n2 for our heart character Next MPrinting Download Characters LPRINTCHR$27CHR$36CHR$@ DEFINTA-Z DECKCARD=X Next Card Return Read X LPRINTCHR$XNext J Next Lprint ReturnLPRINTSUIT$SUIT Proportkmal Characters Download Character dejfinition commands12@ Lprint CHR$BITS 138 Next Only Difference Is the way They Are Accessed Creating Your Own Characters Lprint DEF.DOWN.CHAR$ NUMERAL.BOT$NUM= CHR$ASCII+ 2 + CHR$ASCII+ Mixing Print Modes with Download Characters Utility Program Gosub 950RETURN Gosub 660 Return REM **** Display Menu for Edit Mode Summary