Star Micronics Delta guide

L

i i- r

I 1

j L

:L-

&.

L

.

c

i.

c

Creating Your Own Characters

97

480Z(G,H)=l:COLOR31,l:LOCATEX+4,Y+l@:PRINT SC$;:COLOR7,g:RETURN

490Z(G,H)=@:COLOR7,g:LOCATEX+4,Y+l@:PRINT CS$;:COLOR7,g:RETURN

500 REM,**** GET OUT OF EDIT MODE ****

510 FOR I=2 TO 10:LOCATE1,55:PRINT STRING$(20,32);:NEXT

520IF Z(G,H)=l THEN LOCATE X+4,Y+@:COLOR 7,g:PRINT SC$;:GOTO 540

530IF Z(G,H)=@ THEN LOCATE X+4,Y+l0:COLOR7,g:PRINT 'I '1.

540 REM' PRINT THE COLUMN - VALUES

550 FOR I=1 TO 11:FOR J=l TO 7

560MM(I)=MM(I)+Z(J,I)*2"(J-l):NEXTJ:NEXT I

570J=@:FOR I=1 TO ll:LOCATE19,10+J:PRINT RIGHT$(STR$(MM(I)),j);:J=J+j:NEXT

580GOSUB 660 :RETURN

590REM DISPLAY MENU FOR EDIT MODE

600 LOCATE 2,55:PRINT “cursor

movement”;

610LOCATE 4,60:PRINTCHR$(24);:LOCATE5,58:PRINT

CHR$(27);" *

620PRINT CHR$(26;;:LOCATE6,60:PRINTCHR$(25)

630LOCATE 8,55:PRINT"(ins) insert";

640LOCATE 9,55:PRINT "(del) delete";

650LOCATE 10,55:PRINT"(end) exit edit";:RETURN

660FOR I=1 TO 7:FOR J=l TO ll:Z(I,J)=@:NEXTJ:NEXT

T

670'LOCATE24,2:PRINT"E) EDIT P) PRINTER (ESC) ) END ";:RETURN

680 REM **** PRINT MODE ****

690 LOCATE 20,5:INPUT "NORMALOR PROPORTIONAL (W P) -) ";AN$

700IF A,$="," THEN PR=@:GOTO750

710IF AN$="P" THEN GOT0 730

720BEEP:GOTO 690

730LOCATE 21,5:INPUT'ENTER THE PROPORTIONALDATA (4-11) -) ";PR

740IF PR(4 OR PR)ll THEN 730

750LOCATE 22,5:INPUT'IF SHIFTED DOWN ENTER 1 ELSE ENTER 0 -) ";SH

760IF SH(0 OR SH)l THEN BEEP:GOTO750

770LOCATE 23,5:INPUT'ENTER YOUR ASCII CODE (33-126 OR 160-254)-> ";AS

780IF (AS(32 AND AS)126) OR (~S(l60AND AS)254) THEN 770

Image 109

Star Micronics Delta user manual Gosub 660 Return REM **** Display Menu for Edit Mode

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 Character Style Charts Appendix DIP Switch SettingsAppendix Commodore VIC-20 Computers Appendix Warranty Inside Back Cover Command Quick Reference Consumer Response 309 DIP Switch Quick ReferenceDelta User’s Manual Serial busy protocols XONlXOFF Protocol ACK protocol Index 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 OPEN4,4 CMD4 List PRINT#4 CLOSE4 ListEstablishing communications NEW NEW Lprint Testing RUNNEW LPRINTCHR$7 RUN CHR$ function 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 this is Elite Pitch Printing Print pitch CommandsLprint Condensedis the Narrowestpitch Lprint NOW WE are Back to Pica Pitch Printing Expanded print LPRINTCHR$27W CHR$@NOW Were Back to NormalI s H153 LPRINTCHR$14EXPANDEDELITE Pitch Print CommandsLprint NOW WE are Back to Unexpandedpica Printing Making Delta print darker Lprint this is DOUBLE-STRIKEPRINTING Print EmDhasis a Commands Italic printing Italic Commands Superscripts and subscripts UnderJining NEW Lprint Thisline Uses Superscript Subscript commandsMixing modes Build Instructionset Lprintelites Elite LPRINTPICA$ Pica LPRINTRESET.ALL$ Return LPRINTRESET.ALL$REGULAR.HEADING$= STRING$27,*+ Regular Return Repeatwith Italics Italics = False LPRINTROMAN$If Pica = False then LPRINTFOUR.DOT$ GOTO3590 If ENLARGED= True then Lprint 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 Putting Delta to sleep Some Miscellaneous commandsPrinting to the bottom of the sheet Unidirectional printing Next Lprint LprintPrinting Direction Lprint I===WORK Lprint Deletedoes not NEW Lprint Backspacedoes notLprint Work Backspace and delete Eighth Bit controls Block graphics characters and special symbols 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 Macro Lprint CHR$18 Pica StartdefinitionOFF Regularprint END Macro 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 Next J Read X LPRINTCHR$XNext Lprint Return DECKCARD=X Next Card 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