Gosub 950RETURN | Star Micronics Delta specs

96	Delta User’s Manual

139 Pl=l:M$=CHR$(179)+ STRING$(2,32):N$=STRING$(2,196)+ CHR$(197):L$=STRING$(2,196)+CHR$(193)

llt(TlLOCATE 4,lp:PRINTCHR$(218);CHR$(196);

15pIFOR I=1 TO la:PRINT CHR$(l96);CHR$(l94);CHR$(196);:NEXT I

_-

16g PRINT CHR$(l96);CHR$(l9l):LOCATE5,lg:FORK=l TO 12:PRINTM$;:NEXT K:PRINT

17@ FOR J=l TO 6:LOCATE 5+Pl,l@:Pl=Pl+l:PRINT CHR$(195);

lS@ FOR K=l TO l@:PRINTN$;:NEXT K

19@ PRINT CHR$(l96);CHR$(l96);CHR$(l8@):LOCATE - s+Pl,lp:Pl=Pl+l

2@g FOR K=l TO 12:PRINTM$;:NEXT K

21@ PRINT:NEXTJ:LOCATE 18,la:PRINTCHR$(192); 22@ FOR I=1 TO l@:PRINTL$;:NEXT I

238PRINT CHR$(l96);CHR$(l96);CHR$(217) 24plFOR I=@ TO 6:LOCATE 5+1*2,6:PRINT2"I;:NEXTI 25$lRETURN : REM **** END OF MATRIX SUBROUTINE

****

26@ REM **** SINGLE CHARACTERINPUT @ EDIT LEVEL

****

27pILOCATE 5,ll:PRINTCS$;:GOSUB59p

289A$=INKEY$:IFA$="" THEN 28g

299B$=RIGHT$(A$,l)

3@@ IF B$=CHR$(75)THEN GOSUB 39g:GOTO 37&J

319IF B$=CHR$(77)THEN GOSUB 4lpl:GOTO37@ 32~ IF B$=cHR$(~~)THEN GOSUB 4y:GoTo 37g

338IF B$=CHR$(72)THEN GOSUB 45p:GOTO 370

340IF B$=CHR$(82)THEN GOSUB 470:GOTO 370

350IF B$=CHR$(83)THEN GOSUB 49ja:GOTO370

360IF B$=CHR$(79)THEN GOSUB 50B:GOTO380

370GOT0 280

380RETURN : REM **** END OF INPUT ****

390GOSUB 920:Y=Y-3:H=H-l:IFY(l THEN BEEP:Y=l:H=l

400GOSUB 950:RETURN

410GOSUB 920:Y=Y+3:H=H+l:IFY)31 THEN BEEP:Y=31:H=ll

	420	GOSUB 950:RETURN	-
	430	GOSUB 920:X=X+2:G=G+l:IFX)13 THEN BEEP:X=13:G=7	-
	430	GOSUB 920:X=X+2:G=G+l:IFX)13 THEN BEEP:X=13:G=7
	440	GOSUB 950:RETURN	-
	450	GOSUB 920:X=X-2:G=G-l:IFX(1 THEN BEEP:X=l:G=l	-
	450	GOSUB 920:X=X-2:G=G-l:IFX(1 THEN BEEP:X=l:G=l
	460	GOSUB 950:RETURN
	470	IF Z(G,H-l)=lOR Z(G,H+l)=lTHEN BEEP:RETURN	-

Image 108

Star Micronics Delta user manual Gosub 950RETURN

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 DIP Switch Settings Appendix Character Style ChartsAppendix Commodore VIC-20 Computers Appendix Consumer Response 309 DIP Switch Quick Reference Warranty Inside Back Cover Command Quick ReferenceDelta User’s Manual 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 List OPEN4,4 CMD4 List PRINT#4 CLOSE4Establishing communications NEW Lprint Testing RUN NEWNEW LPRINTCHR$7 RUN 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 Print pitch Commands @ Lprint this is Elite Pitch PrintingLprint Condensedis the Narrowestpitch Lprint NOW WE are Back to Pica Pitch Printing LPRINTCHR$27W CHR$@NOW Were Back to Normal Expanded printI s H153 Print Commands LPRINTCHR$14EXPANDEDELITE PitchLprint NOW WE are Back to Unexpandedpica Printing Making Delta print darker Print EmDhasis a Commands Lprint this is DOUBLE-STRIKEPRINTING Italic Commands Italic printing UnderJining Superscripts and subscripts Superscript Subscript commands NEW Lprint Thisline UsesMixing modes Build Instructionset LPRINTRESET.ALL$ Lprintelites Elite LPRINTPICA$ Pica LPRINTRESET.ALL$ ReturnREGULAR.HEADING$= STRING$27,*+ Regular Return Italics = False LPRINTROMAN$ Repeatwith ItalicsIf Pica = False then LPRINTFOUR.DOT$ GOTO3590 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 Some Miscellaneous commands Putting Delta to sleepPrinting to the bottom of the sheet Unidirectional printing Lprint Lprint NextPrinting Direction NEW Lprint Backspacedoes not Lprint I===WORK Lprint Deletedoes notLprint Work 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 set commands International character setsMacro control code Macro instruction Commands Startdefinition Macro Lprint CHR$18 PicaOFF Regularprint 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 Read X LPRINTCHR$X Next JNext Lprint Return 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