Star Micronics Delta user manual Summary

Page 110

98

Delta User’s Manual

790FOR I=20 TO 23:LOCATE 1,S:PRINT STRING$(55,32);:NEXT

800IF SH=l THEN SH=16 ELSE SH=0

810Nl=AS:N2=PR+SH

820FOR I=1 TO ll:MM$=MM$+CHR$(MM(I)):NEXT

830LPRINT

CHR$(27);"*";CHR$(l);CHR$(Nl);CHR$(N2);MM$

840IF AN$="N" THEN LPRINT CHR$(27);"$";CHR$(l) :GOTO 860

850LPRINT CHR$(27);"X";CHR$(l)

860FOR I=1 TO 20:LPRINTCHR$(Nl);"";:NEXT 1:LPRINT

870LPRINT CHR$(14);:FORI=1 TO l@:LPRINTCHR$(Nl);" _ ";:NEXT 1:LPRINT CHR$(20)

880 LPRINT CHR$(lS);:FORI-l TO 20:LPRINTCHR$(Nl);" ";:NEXT 1:LPRINT CHR$(18)

890 IF AN$="N" THEN LPRINT CHR$(27);"$";CHR$(@):GOTO

910

900 LPRINT CHR$(27);"X";CHR$(g)

910LPRINT CHR$(~~);"@":MM$="":RETURN:REM **** END OF PRINT MODE ****

92j2iIF z(G,H)=~ THEN LOCATE x+4,Y+l@:pRINT" '1;

930 IF Z(G,H)=l THEN LOCATE X+L,Y+l@:COLOR7,g:PRINT SC$;

940 RETURN

950IF Z(G,H)=l THEN COLOR 31,l: LOCATE X+4,Y+la:PRINTCS$;: COLOR 7,0

960 IF Z(G,H)=e,THEN COLOR 7,0: LOCATE

 

 

 

 

 

X+4,Y+lg:PRINT CS$;:

COLOR 7,0

 

 

 

 

-

970 RETURN

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

-.

Summary

 

 

 

 

 

 

 

 

 

 

Control

code

Function

 

 

 

 

 

 

 

 

(ESC)

“*”

CHR$(l) nl

n2 ml . . . ml1

 

 

 

 

 

 

 

 

 

Defines

download

character

into

RAM

(ESC)

I‘*”

CHR$(O)

Copies

fonts in

ROM

into

download

 

 

 

RAM

 

 

 

 

 

 

 

 

(ESC)

“X”

CHR$(l)

Selects

the

download

character

set

and

 

 

 

uses proportional

spacing

 

 

 

(ESC)

“X”

CHR$(O)

Cancels

proportional

download

charac-

 

 

 

ter set

 

 

 

 

 

 

 

 

(ESC)

“$” CHR$(l)

Selects

the

download

character

set

and

 

 

 

uses normal

spacing

 

 

 

 

 

(ESC)

“$” CHR$(O)

Cancels

normal

download

character

set

Image 110
Contents Delta User’s Manual @Copyright 1983 Star Micronics, Inc Special Message to the New Owner Delta User’s Manual Table of Contents Creating Your Own Characters Special Features Delta PrinterFormatting Your Output Getting It All Together Maintenance Appendix F Atari 400/800 Computers Appendix D TRS-60 ComputersAppendix E Osborne, Kaypro and CP/M Computers Appendix Commodore VIC-20 Computers Appendix DIP Switch SettingsAppendix Character Style Charts AppendixDelta User’s Manual Consumer Response 309 DIP Switch Quick ReferenceWarranty Inside Back Cover Command Quick Reference Serial busy protocols XONlXOFF Protocol ACK protocol IndexTables 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 LoadingLoading single sheets Delta User’s Manual Loading roll paper Delta User’s Manual Closer Look Loading sprocket-feed paperOpen the tractor covers to expose the sprocket teeth Bottom feeding Delta-15 Figure I-10.Delta ready to run with sprocket-feed paperDelta 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 terminologyAscii Using Delta with SuperCalc Using Delta with word processorsPage Using this book without learning Basic Getting Started With DeltaEstablishing communications ListOPEN4,4 CMD4 List PRINT#4 CLOSE4 NEW LPRINTCHR$7 RUN NEW Lprint Testing RUNNEW CHR$ functionNEW LPRINTCHR$27CHR$52 2$3LPRINT Testing RUN Escape CodeSome problem codes ESC$=CHR$27 l@ LPRINTESC$Delta User’s Manual Printing Text With Delta ChapterLprint Condensedis the Narrowestpitch Print pitch Commands@ Lprint this is Elite Pitch Printing Lprint NOW WE are Back to Pica Pitch PrintingI s LPRINTCHR$27W CHR$@NOW Were Back to NormalExpanded print H153Lprint NOW WE are Back to Unexpandedpica Printing Print CommandsLPRINTCHR$14EXPANDEDELITE Pitch Making Delta print darkerPrint EmDhasis a Commands Lprint this is DOUBLE-STRIKEPRINTINGItalic Commands Italic printingUnderJining Superscripts and subscriptsMixing modes Superscript Subscript commandsNEW Lprint Thisline Uses Build Instructionset REGULAR.HEADING$= STRING$27,*+ Regular LPRINTRESET.ALL$Lprintelites Elite LPRINTPICA$ Pica LPRINTRESET.ALL$ Return ReturnIf Pica = False then LPRINTFOUR.DOT$ GOTO3590 Italics = False LPRINTROMAN$Repeatwith Italics If ENLARGED= True then LprintHere 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 thisNEW Lprint Linenumber Moving down the page without a carriage returnForms Controls Form feedForm length commands Changing the Page LengthTop and bottom margin commands Lprint PAY to the OrderLineSpacingandFormsControl51 Summary Control codeESC Delta User’s Manual Formatting Your Output NEW Lprint ONECHR$9TWOCHR$9THREE CHR$9 Four One-shot tab command Left and right margin commands5B END 13@ Lprint ReturnLPRINTCHR$27P CHR$l@ CHR$Z@CHR$@ One-shot vertical tab command Control Code FunctionLChapter Now hear thisBell commands Initializing DeltaPrinting to the bottom of the sheet Some Miscellaneous commandsPutting Delta to sleep Unidirectional printingPrinting Direction Lprint LprintNext Lprint Work NEW Lprint Backspacedoes notLprint I===WORK Lprint Deletedoes not Backspace and deleteBlock graphics characters and special symbols Eighth Bit controls3pl Lprint I II=11CHR$ICHR$9 4pI Next I Lprint Next J Macro control code International Character set commandsInternational character sets Macro instruction Commands OFF Regularprint StartdefinitionMacro Lprint CHR$18 Pica END MacroFunction Bell Disable bell Enable bell Reset Off-lineOn-line Control codeDelta 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 highRule 2 Dots cannot overlap 8WRONG Add up each column of dotsCreating YourOwn Characters Download character definition command Assigning a value to your characterCharacter designs for the four card suits Next M Figure Y-10. The attribute byte n2 for our heart characterPrinting Download Characters LPRINTCHR$27CHR$36CHR$@ DEFINTA-Z Next Lprint Return Read X LPRINTCHR$XNext J DECKCARD=X Next Card ReturnLPRINTSUIT$SUIT Download Character dejfinition commands Proportkmal Characters12@ 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