Table of Contents
Advertisement
2810 DATA 255.255,255,255, 143, 15,
2820 DATA
3,
2830 DATA
0 ,
2840 DATA
0, 31, 31,
2850 DATA 192,224,224,224,224,240,255,255,255,255
2860 DATA 255,127,
2870 DATA 255,255,193,128,128,128,128,192,224,240
2880 DATA
252,255,255,255,127, 63,
2890 DATA
254,252,248,224,128, 0,
2900 DATA
2910 DATA 129,128,192,192,192,192,192,224,224,224
2920 DATA 224,240.255,255,255,255,255,127,
2930 DATA
2940 DATA
0.248,248,240.224,224,112.112, 56, 56
2950 DATA
56, 56. 56.120.120,240,240,224,224,192
2960 DATA 128,
2970 DATA 240,248,248.248,120.120, 56, 56, 56, 56
2980 DATA
48,112,224,224,224.224,240,240,248,248
2990 DATA 120,120. 56. 56, 56. 56,120,240.224,224
3000 DATA
3010 DATA
224.224,112.112, 56. 56,
3020 DATA 120.240,240,224,224.192,128,
3030 DATA
How the program works
T h is p ro g ra m begins by assig n in g a n u m b e r o f p rin te r c o m m a n d s to
B A S IC strin g v a ria b le s (lines 1000 to 1090). Y o u c a n fin d m o st o f th ese
c o m m a n d s n e a r th e b eg in n in g o f A p p en d ix B.
T h e W ID T H " L P T I :" 255 s ta te m e n t in line 1110 m e an s in fin ite line
w id th . It p re v e n ts th e IB M -P C from in se rtin g u n w a n te d c a rria g e re tu rn s
a n d line feeds in g rap h ic s d a ta .
A c tu a l p rin tin g b egins in line 1120. U sin g th e p rea ssig n e d c o m m a n d s,
th e p ro g ra m p rin ts sa m p le s o f its d iffe re n t ty p e styles, in c lu d in g a line
sh o w in g all styles in italics, follow ed by sa m p le s o f th e p rin t p itch es, th e n
so m e d o u b le a n d q u a d ru p le -siz e d p rin tin g .
N e x t co m es th e c e n tra l a ttr a c tio n o f th e p ro g ra m : a line o f te x t p rin te d
tw en ty tim es in e x p a n d in g a n d c o n tra c tin g lo o p s to give a b a rre l effect.
T h e w o rk is d o n e by fo u r p rin te r c o m m a n d s: a c o m m a n d se ttin g th e rig h t
m a rg in (line 1400); a c e n te rin g c o m m a n d (line 1420); a c o m m a n d to v a ry
th e line sp a cin g (lines 1440 a n d 1490); a n d a c o m m a n d to m ic ro -a d ju st th e
sp ace b etw e en c h a ra c te rs (lines 1450 a n d 1500).
44
3.
3,131, 193, 241, 240, 240,
0 ,
0 ,
0 ,
0 ,
3,129,128,192,192,192,192
0,
0,
0,
7,
0,
0,
0,
0,
0,
192,128,
0,
7,
7,
7,
0 ,
0 ,
0 ,
0 ,
0 ,
0, 63,127,255,255
31,
7,
7, 31
0,
3,
3,
0,
0,
0,
0,
0,192,224,240,240
0.
0. 0. 0. 0.248.248,240
56. 56, 56,120
0,
0,
0,
0,
7
0
0
7, 7
0, 0, 0, 0, 31, 31, 3
0
0, 0, 0, 0, 0, 0, 0
0
0. 0, 0, 0, 0, 0, 0
Advertisement
Table of Contents
