Startdefinition, Macro Lprint CHR$18 Pica | Star Micronics Delta

70		Delta User’s Manual
10	LPRINTCHR$(27)"+";	' STARTDEFINITION
	OF MACRO
20	LPRINT CHR$(18);	' PICA

30LPRINTCHR$(27)"W" CHR$(g);' EXPANDEDOFF

40LPRINTCHR$(27)"F"; ' EMPHASIZEDOFF

50 LPRINT CHR$(27)"H"; ' DOUBLE-STRIKEOFF

60LPRINT CHR$(27)'-" CHR$(@; ' UNDERLINEOFF

70	LPRINTCHR$(27)"T"	' SUPER & SUBSCRIPTS
	OFF	' REGULARPRINT
80	LPRINT CHR$(27)“5”;	' REGULARPRINT
90 LPRINTCHR$(30);		' END MACRO
	DEFINITION

As the comments in the program listing show this will define a macro that will reset all the print style functions. Delta will remember this macro until the power is turned off or until a new macro is defined. A macro can hold up to 16 bytes (characters) of information, The one that we defined contains fifteen.

Now that you have defined a macro, let’s see how to use it. This program will print one line using several printing style fea- tures. Then it “calls” the macro in line 50. When line 60 prints the style is “plain vanilla” because the macro has reset it.

-

-

10 LPRINT CHR$(27)“4”;' ITALIC

20 LPRINTCHR$(27)"G"; ' DOUBLE-STRIKE

30LPRINTCHR$(27)"W" CHR$(l);' EXPANDED

40LPRINT "TESTINGONE, TWO, THREE"

50 LPRINTCHR$(27)"!"; ' USE THE MACRO

60 LPRINT "TESTINGFOUR, FIVE, SIX"	.-

-

-

TESTINc3	ONE	.	TWO	.r 7HlcaEE	-
TESTING	FOUH. FIVE,	SIX

In this chapter we have learned many different commands that have many different uses. In the next chapter we will make up

for this diversity-the whole chapter only covers three com- mands! But they are some of the most powerful that Delta offers. They give you the ability to create your own characters.

Image 82

Star Micronics Delta Startdefinition, Macro Lprint CHR$18 Pica, OFF Regularprint, END Macro, Definition, One Two

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 Commodore VIC-20 Computers Appendix DIP Switch SettingsAppendix Character Style Charts Appendix Delta User’s Manual Consumer Response 309 DIP Switch Quick ReferenceWarranty Inside Back Cover Command Quick Reference Serial busy protocols XONlXOFF Protocol ACK protocol Index Tables Xii Delta User’s Manual Closer Look Paper separator and paper guide used with roll paper Roll paper holder and holder shaft used only with rollPage Parallel interface connector the place where you hook Paper Selection and Loading Loading single sheets Delta User’s Manual Loading roll paper Delta User’s Manual Closer Look Loading sprocket-feed paper Open the tractor covers to expose the sprocket teeth Bottom feeding Delta-15 Figure I-10.Delta ready to run with sprocket-feed paper Delta User’s Manual Ribbon Installation Self-Test Closer Look Delta User’s Manual Getting Started With Delta Using Commercial Sojtware Getting Started With Delta First, some terminology Ascii Using Delta with SuperCalc Using Delta with word processorsPage Using this book without learning Basic Getting Started With Delta OPEN4,4 CMD4 List PRINT#4 CLOSE4 ListEstablishing communications NEW LPRINTCHR$7 RUN NEW Lprint Testing RUNNEW CHR$ function NEW LPRINTCHR$27CHR$52 2$3LPRINT Testing RUN Escape Code Some problem codes ESC$=CHR$27 l@ LPRINTESC$ Delta User’s Manual Printing Text With Delta Chapter Lprint Condensedis the Narrowestpitch Print pitch Commands@ Lprint this is Elite Pitch Printing Lprint NOW WE are Back to Pica Pitch Printing I s LPRINTCHR$27W CHR$@NOW Were Back to NormalExpanded print H153 Lprint NOW WE are Back to Unexpandedpica Printing Print CommandsLPRINTCHR$14EXPANDEDELITE Pitch Making Delta print darker Print EmDhasis a Commands Lprint this is DOUBLE-STRIKEPRINTING Italic Commands Italic printing UnderJining Superscripts and subscripts NEW Lprint Thisline Uses Superscript Subscript commandsMixing modes Build Instructionset REGULAR.HEADING$= STRING$27,*+ Regular LPRINTRESET.ALL$Lprintelites Elite LPRINTPICA$ Pica LPRINTRESET.ALL$ Return Return If Pica = False then LPRINTFOUR.DOT$ GOTO3590 Italics = False LPRINTROMAN$Repeatwith Italics If ENLARGED= True then Lprint Here is the chart it produces Control Code FunctionPage Delta User’s Manual Line Spacing and Forms Control Changing Line Spacing This is what you will get Line spacing Commands Run the program again. Now the results will look like this NEW Lprint Linenumber Moving down the page without a carriage return Forms Controls Form feed Form length commands Changing the Page Length Top and bottom margin commands Lprint PAY to the Order LineSpacingandFormsControl51 Summary Control code ESC Delta User’s Manual Formatting Your Output NEW Lprint ONECHR$9TWOCHR$9THREE CHR$9 Four One-shot tab command Left and right margin commands 5B END 13@ Lprint Return LPRINTCHR$27P CHR$l@ CHR$Z@CHR$@ One-shot vertical tab command Control Code Function LChapter Now hear this Bell commands Initializing Delta Printing to the bottom of the sheet Some Miscellaneous commandsPutting Delta to sleep Unidirectional printing Next Lprint LprintPrinting Direction Lprint Work NEW Lprint Backspacedoes notLprint I===WORK Lprint Deletedoes not Backspace and delete Block graphics characters and special symbols Eighth Bit controls 3pl Lprint I II=11CHR$ICHR$9 4pI Next I Lprint Next J International character sets International Character set commandsMacro control code Macro instruction Commands OFF Regularprint StartdefinitionMacro Lprint CHR$18 Pica END Macro Function Bell Disable bell Enable bell Reset Off-lineOn-line Control code Delta User’s Manual Creating Your Own Characters Dot Matrix Printing 000 0 eeeS&fee Defining Your Own Characters Rule I Download characters are seven dots high Rule 2 Dots cannot overlap 8WRONG Add up each column of dots Creating YourOwn Characters Download character definition command Assigning a value to your character Character designs for the four card suits Next M Figure Y-10. The attribute byte n2 for our heart character Printing Download Characters LPRINTCHR$27CHR$36CHR$@ DEFINTA-Z Next Lprint Return Read X LPRINTCHR$XNext J DECKCARD=X Next Card Return LPRINTSUIT$SUIT Download Character dejfinition commands Proportkmal Characters 12@ 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