Star Micronics NX-1000, User Manual

Page: 55 / 122

N ext th e p ro g ra m r e tu r n s to n o rm a l sp a c in g a n d gives a d e m o n s tr a tio n
"I the p r in te r ’s w o rd -p ro c e ssin g ab ilitie s: b o ld p r in tin g , u n d e rlin in g , sub-
it'H pU , etc.
I lie row o f a u to m o b ile s in th e n e x t p r in te d lin e is c re a te d by d o w n lo a d in g
i n n new c h a r a c te r p a tte r n s , w h ich a re p r in te d in p la c e o f th e c h a r a c te r “ < ”
(i Im m e ter 60). D e ta ils c a n b e fo u n d in A p p e n d ix C.
I lie final p a r t o f th e p r o g ra m uses d o t g ra p h ic s to p r in t a n “ S & S ” logo.
I lie d o t p a tte r n o f th e lo g o w as o rig in a lly la id o u t o n g r a p h p a p e r, th e n
c o n v e rte d to th e d a t a in lines 2640 to 3030 w ith th e h e lp o f a c a lc u la to r.
I in Ii n u m b e r r e p re s e n ts e ig h t v e rtic a l d o ts . (See “ G ra p h ic s c o m m a n d s ” in
A p p e n d ix B fo r d e ta ils. See a lso F ig u re C - l in A p p e n d ix C .)
T h e p a tte r n is p r in te d in f o u r ro w s, e a c h e ig h t d o ts h ig h a n d 100 d o ts
w ule. L in es 1800 to 1850 r e a d th e d o t d a t a in to a s trin g a r r a y v a ria b le n a m e d
I < )G O $. L in e 1860 se ts th e lin e s p a c in g to 8 /7 2 in c h so th a t th e ro w s will
c o n n e c t v ertically . T h e lo o p in lin e s 1870 to 1940 d o e s th e p rin tin g in fo u r
passes o f th e p r in t h e a d .
T his p r o g ra m c a n a lso be ru n in IB M m o d e (D I P sw itc h 1-6 O F F ) if
you c h a n g e a few o f th e lines as sh o w n b elo w to a llo w fo r d iffe re n c e in som e
til the c o m m a n d s . Y o u w ill g et a c y lin d e r in s te a d o f a b a r re l effect, b e c u a se
the IB M m o d e d o e s n o t h a v e a n y c o m m a n d to m ic ro -a d ju s t th e c h a r a c te r
.pacing.
M o llific a tio n s fo r IB M m o d e :
1090 P$=CHR$(18) 'Pica pitch
1190 LPRINT CHRS(28);"4"; 'Select italics
1220 LPRINT CHR$(28);"S" 'Cancel italics
I,!B0 ' LPRINT H$;E$;"M";"Condensed elite pitch,";
1 -100 LPRINT CHR$(28);”Q";CHR$(47) 'Set right margin
1440 LPRINT E$;"AM;CHR$(I);E$;"2"; 'Line spacing set
I>n0 ’
LPRINT E$;" ";CHR$(I); 'Increase character space
1490 LPRINT E$;"A";CHR$(I);E$;"2";
inOO '
LPRINT E$;" ";CHR$(I);
IHftO LPRINT E$; "A";CHR$(8) ;E$; "2"; -'Set 8/72"
,'Hlt) LPRINT D$;CHR$(28);":";CHR$(0);CHR$(0);CHR$(0):
I 10 IPRINT C$;CHR$(28);":";CHR$(0);CHR$(0);CHR$(0);