Table of Contents
Advertisement
N ext the p ro g ra m re tu rn s to n o rm a l sp a cin g a n d gives a d e m o n s tra tio n
"I the p rin te r's w o rd -p ro ce ssin g abilities: b o ld p rin tin g , u n d erlin in g , sub-
it'H pU , etc.
I lie row o f a u to m o b ile s in the n ex t p rin te d line is c re a te d by d o w n lo a d in g
i n n new c h a ra c te r p a tte rn s , w hich are p rin te d in p la ce o f th e c h a ra c te r " < "
(i Im m eter 60). D e ta ils c a n be 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 ro 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 rn o f th e lo g o w as o rig in a lly la id o u t o n g ra p h p a p e r, th en
c o n v e rte d to th e d a ta in lines 2640 to 3030 w ith th e h elp o f a ca lc u la to r.
I in Ii n u m b e r re p re se n ts eig h t v ertical d o ts. (See " G ra p h ic s c o m m a n d s " in
A p p en d ix B fo r d etails. See also F ig u re C - l in A p p e n d ix C .)
T h e p a tte rn is p rin te d in fo u r ro w s, e a c h eig h t d o ts hig h a n d 100 d o ts
w ule. L ines 1800 to 1850 re a d th e d o t d a ta in to a strin g a rra y v a ria b le n a m e d
I <)G O $. L ine 1860 sets th e line sp a cin g to 8/72 in c h so th a t th e ro w s will
co n n e c t v ertically. T h e lo o p in lines 1870 to 1940 d o e s th e p rin tin g in fo u r
passes o f the p r in t h ead .
T his p ro g ra m c a n also be ru n in IB M m o d e (D IP sw itch 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 below to allo w fo r d ifferen ce in som e
til the c o m m a n d s. Y o u will get a c y lin d e r in ste a d o f a b a rre l effect, b ecu ase
the IB M m o d e d o es n o t h av e a n y c o m m a n d to m ic ro -a d ju st th e c h a ra c te r
.pacing.
M o llifica tio n s fo r IB M m o d e:
1090 P$=CHR$(18)
1190 LPRINT CHRS(28);"4";
1220 LPRINT CHR$(28);"S"
I , ! B 0 ' 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"
, ' H l t ) LPRINT D$;CHR$(28);":";CHR$(0);CHR$(0);CHR$(0):
I 1 0 IPRINT C$;CHR$(28);":";CHR$(0);CHR$(0);CHR$(0);
'Pica pitch
'Select italics
'Cancel italics
Advertisement
Table of Contents
