Star Micronics Delta user manual NUMERAL.BOT$NUM= CHR$ASCII+ 2 + CHR$ASCII+

Page 105

Creating Your Own Characters

93

210NUMERAL.BOT$(NUM)= CHR$(ASCII+ 2) + CHR$(ASCII+ 3)

220 ASCII = ASCII + 4

230 NEXT NUM

240 BLANK$ = CHR$(200)

250LPRINT DOWN.CHAR.PROP$;LINE.7$

260FOR NUM = 0 TO 9

270LPRINT NUMERAL.TOP$(NUM);BLANK$;

280NEXT NUM

290LPRINT

300FOR NUM = 0 TO 9

310LPRINT NUMERAL.B~T$(NUM);BLANK$;

320NEXT NUM

330LPRINT NOT.DOWN.CHAR.PROP$;LINE.12$

340'ZERO

350DATA 11,0,96,16,104,16,44,30,14,0,2,1

360DATA 11,2,1,2,1,6,8,38,88,32,88,32

370DATA 11,3,12,19,12,51,0,96,0,96,0,96

380DATA 11,0,32,0,48,0,28,3,12,3,4,3

390'ONE

400 DATA 11,0,0,0,0,0,4,0,4,0,4,126

410 DATA 9,12,114,12,114,12,2,0,0,0,0,0

420 DATA 11,64,0,64,0,64,0,64,32,80,47,80

430 DATA 9,47,80,47,64,0,64,0,64,0,0,0

440 ' TWO

450 DATA 11,0,0,0,0,0,12,16,14,0,6,0

460 DATA 11,3,0,3,0,70,56,70,56,4,24,0

470 DATA 11,64,0,64,32,64,32,80,32,80,40,64

480 DATA 11,44,64,38,65,34,65,32,80,32,88,0

490 ' THREE

500 DATA 11,0,0,0,0,0,0,4,2,4,2,4

510 DATA 11,34,84,34,92,34,76,34,68,2,64,0

520 DATA 11,16,0,48,0,56,64,48,64,32,64,32

530 DATA 11,64,32,64,48,9,54,9,22,9,6,1

540 ' FOUR

550 DATA 11,0,0,0,0,0,0,64,36,88,32,16

560 DATA 11,0,0,64,32,64,56,64,60,2,12,0

570 DATA 11,0,8,4,10,5,10,5,8,4,72,4

580 DATA 11,88,38,89,38,89,6,73,4,8,6,0

590 ' FIVE

600 DATA 11,0,0,0,0,64,32,84,50,76,34,68

610 DATA 10,34,68,34,68,34,68,2,68,2,0,0

620 DATA 10,0,32,24,101,24,97,0,64,0,64,0

Image 105

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 Character Style Charts Appendix DIP Switch SettingsAppendix Commodore VIC-20 Computers AppendixWarranty Inside Back Cover Command Quick Reference Consumer Response 309 DIP Switch Quick ReferenceDelta User’s Manual Serial busy protocols XONlXOFF Protocol ACK protocol IndexTables 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 hookLoading single sheets Delta User’s Manual Loading roll paper Delta User’s Manual Loading sprocket-feed paper Closer LookOpen the tractor covers to expose the sprocket teeth Figure I-10.Delta ready to run with sprocket-feed paper Bottom feeding Delta-15Delta 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 DeltaAscii Using Delta with word processors Using Delta with SuperCalcPage Getting Started With Delta Using this book without learning BasicList OPEN4,4 CMD4 List PRINT#4 CLOSE4Establishing communications NEW NEW Lprint Testing RUNNEW LPRINTCHR$7 RUN CHR$ functionEscape Code NEW LPRINTCHR$27CHR$52 2$3LPRINT Testing RUNESC$=CHR$27 l@ LPRINTESC$ Some problem codesDelta 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 PrintingExpanded print LPRINTCHR$27W CHR$@NOW Were Back to NormalI s H153LPRINTCHR$14EXPANDEDELITE Pitch Print CommandsLprint NOW WE are Back to Unexpandedpica Printing Making Delta print darkerLprint this is DOUBLE-STRIKEPRINTING Print EmDhasis a CommandsItalic printing Italic CommandsSuperscripts and subscripts UnderJiningSuperscript Subscript commands NEW Lprint Thisline UsesMixing modes Build Instructionset Lprintelites Elite LPRINTPICA$ Pica LPRINTRESET.ALL$ Return LPRINTRESET.ALL$REGULAR.HEADING$= STRING$27,*+ Regular ReturnRepeatwith Italics Italics = False LPRINTROMAN$If Pica = False then LPRINTFOUR.DOT$ GOTO3590 If ENLARGED= True then LprintControl 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 CommandsMoving down the page without a carriage return NEW Lprint LinenumberForm feed Forms ControlsChanging the Page Length Form length commandsLprint PAY to the Order Top and bottom margin commandsLineSpacingandFormsControl51 Control code SummaryESC Delta User’s Manual Formatting Your Output NEW Lprint ONECHR$9TWOCHR$9THREE CHR$9 Four Left and right margin commands One-shot tab command13@ Lprint Return 5B ENDLPRINTCHR$27P CHR$l@ CHR$Z@CHR$@ Control Code Function One-shot vertical tab commandNow hear this LChapterInitializing Delta Bell commandsPutting Delta to sleep Some Miscellaneous commandsPrinting to the bottom of the sheet Unidirectional printingLprint Lprint NextPrinting Direction Lprint I===WORK Lprint Deletedoes not NEW Lprint Backspacedoes notLprint Work Backspace and deleteEighth Bit controls Block graphics characters and special symbols3pl Lprint I II=11CHR$ICHR$9 4pI Next I Lprint Next J International Character set commands International character setsMacro control code Macro instruction Commands Macro Lprint CHR$18 Pica StartdefinitionOFF Regularprint END MacroControl code Function Bell Disable bell Enable bell Reset Off-lineOn-lineDelta 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 CharactersRule 2 Dots cannot overlap Add up each column of dots 8WRONGCreating YourOwn Characters Assigning a value to your character Download character definition commandCharacter designs for the four card suits Figure Y-10. The attribute byte n2 for our heart character Next MPrinting Download Characters LPRINTCHR$27CHR$36CHR$@ DEFINTA-Z Next J Read X LPRINTCHR$XNext Lprint Return DECKCARD=X Next Card ReturnLPRINTSUIT$SUIT Proportkmal Characters Download Character dejfinition commands12@ 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