Italics = False LPRINTROMAN$ | Star Micronics Delta instruction

..

b.

i

i

. .

1.

Printing Text With Delta			39
3050 ITALICS		= FALSE	:LPRINTROMAN$;
3060	UNDERLINED= FALSE		:LPRINT
NOT.UNDERLINED$;
3070 ENLARGED		= FALSE	:LPRINTNOT.ENLARGED$;
3080 PICA		= FALSE
3090	IIIIII~~~II~~~RINT		PI~CHESftlfl~fff~~flfffl

3100 LPRINTCONDENSED$;

3110 GOSUB 3500 'PRINTAS REQUIRED

3120 LPRINTELITE$;

3130 GOSUB 3500 'PRINTAS REQUIRED

3140 LPRINTPICA$; :PICA= TRUE

3150 GOSUB 3500 'PRINTAS REQUIRED

3160 '~~"""SEE WHAT HAS BEEN D0NE""""""

3170 IF ENLARGED= TRUE THEN LPRINT :GOTO3190

'CHECKIF UNDERLINED

3180 LPRINTENLARGED$;:ENLARGED= TRUE :GOTO3080

'ELSECONTINUELINE

3190 IF UNDERLINED= TRUE THEN LPRINT :GOTO3210

'CHECKIF ITALICS

3200 LPRINTUNDERLINED~; :UNDERLINED= TRUE :G0~0

3070 'ELSEPRINT UNDERLINE

3210 IF ITALICS= TRUE THEN LPRINTRESET.ALL$ :RETURN

3220 LPRINT ITALICS; :ITALICS= TRUE :GoTo 3060

'REPEATWITH ITALICS

	3500	111!1l1ll111111ll,1l1ll11ff111ll1ll11l1lflll
	3510	’	1
	3510	’	PRINT AS REQUIRED	1
	3520	’	PRINT AS REQUIRED	1
	3530	'	I
	3530	'
	3540	l1l1ll111!rl11ll11llllllllll1ll1lllll11111l1

3550 BLANK$ = STRING$(6,32) :FOUR.DOT$= "...."

3560 IF EMPHASIZED= FALSE THEN LPRINT "ABcd"; :GOTO3610

3570 IF PICA = FALSE THEN LPRINTFOUR.DOT$; :GOTO3590

3580 LPRINTEMPHASIZED$"ABcd";

3590 IF ENLARGED= TRUE THEN LPRINT 11";

:ELSELPRINTBLANK$;
3600	RETURN
3610	llllft~~lfl~~~~~~~~~~	= FA~SElf"llllflll"

3620 IF ENLARGED= TRUE THEN LPRINT v ";

:RETURN

3630 LPRINTSUPERSCRIPT$;"Xx";

3640 LPRINTSUBSCRIPT$; "YY ";

3650 LPRINTNOT.SCRIPTED$;

3660 RETURN

Image 51

Star Micronics Delta Italics = False LPRINTROMAN$, Repeatwith Italics, If Pica = False then LPRINTFOUR.DOT$ GOTO3590

Contents

Delta User’s Manual @Copyright 1983 Star Micronics, Inc Special Message to the New Owner Delta User’s Manual Table of Contents Special Features Delta Printer Formatting Your OutputCreating Your Own Characters Getting It All Together Maintenance Appendix D TRS-60 Computers Appendix E Osborne, Kaypro and CP/M ComputersAppendix F Atari 400/800 Computers Appendix Appendix DIP Switch SettingsAppendix Character Style Charts Appendix Commodore VIC-20 Computers Serial busy protocols XONlXOFF Protocol ACK protocol Index Consumer Response 309 DIP Switch Quick ReferenceWarranty Inside Back Cover Command Quick Reference Delta User’s Manual Tables 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 hook Loading single sheets Delta User’s Manual Loading roll paper Delta User’s Manual Loading sprocket-feed paper Closer Look Open the tractor covers to expose the sprocket teeth Figure I-10.Delta ready to run with sprocket-feed paper Bottom feeding Delta-15 Delta 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 Delta Ascii Using Delta with word processors Using Delta with SuperCalcPage Getting Started With Delta Using this book without learning Basic List OPEN4,4 CMD4 List PRINT#4 CLOSE4Establishing communications CHR$ function NEW Lprint Testing RUNNEW NEW LPRINTCHR$7 RUN Escape Code NEW LPRINTCHR$27CHR$52 2$3LPRINT Testing RUN ESC$=CHR$27 l@ LPRINTESC$ Some problem codes Delta User’s Manual Chapter Printing Text With Delta Lprint NOW WE are Back to Pica Pitch Printing Print pitch Commands@ Lprint this is Elite Pitch Printing Lprint Condensedis the Narrowestpitch H153 LPRINTCHR$27W CHR$@NOW Were Back to NormalExpanded print I s Making Delta print darker Print CommandsLPRINTCHR$14EXPANDEDELITE Pitch Lprint NOW WE are Back to Unexpandedpica Printing Lprint this is DOUBLE-STRIKEPRINTING Print EmDhasis a Commands Italic printing Italic Commands Superscripts and subscripts UnderJining Superscript Subscript commands NEW Lprint Thisline UsesMixing modes Build Instructionset Return LPRINTRESET.ALL$Lprintelites Elite LPRINTPICA$ Pica LPRINTRESET.ALL$ Return REGULAR.HEADING$= STRING$27,*+ Regular If ENLARGED= True then Lprint Italics = False LPRINTROMAN$Repeatwith Italics If Pica = False then LPRINTFOUR.DOT$ GOTO3590 Control 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 Commands Moving down the page without a carriage return NEW Lprint Linenumber Form feed Forms Controls Changing the Page Length Form length commands Lprint PAY to the Order Top and bottom margin commands LineSpacingandFormsControl51 Control code Summary ESC Delta User’s Manual Formatting Your Output NEW Lprint ONECHR$9TWOCHR$9THREE CHR$9 Four Left and right margin commands One-shot tab command 13@ Lprint Return 5B END LPRINTCHR$27P CHR$l@ CHR$Z@CHR$@ Control Code Function One-shot vertical tab command Now hear this LChapter Initializing Delta Bell commands Unidirectional printing Some Miscellaneous commandsPutting Delta to sleep Printing to the bottom of the sheet Lprint Lprint NextPrinting Direction Backspace and delete NEW Lprint Backspacedoes notLprint I===WORK Lprint Deletedoes not Lprint Work Eighth Bit controls Block graphics characters and special symbols 3pl Lprint I II=11CHR$ICHR$9 4pI Next I Lprint Next J International Character set commands International character setsMacro control code Macro instruction Commands END Macro StartdefinitionMacro Lprint CHR$18 Pica OFF Regularprint Control code Function Bell Disable bell Enable bell Reset Off-lineOn-line Delta 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 Characters Rule 2 Dots cannot overlap Add up each column of dots 8WRONG Creating YourOwn Characters Assigning a value to your character Download character definition command Character designs for the four card suits Figure Y-10. The attribute byte n2 for our heart character Next M Printing Download Characters LPRINTCHR$27CHR$36CHR$@ DEFINTA-Z DECKCARD=X Next Card Return Read X LPRINTCHR$XNext J Next Lprint Return LPRINTSUIT$SUIT Proportkmal Characters Download Character dejfinition commands 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