There’s only one thing left to do before you can print the first line-
enter a Graphics Mode:
600 LPRINT CHR$(27)"L"CHR$(60)CHR$(0);
Now RUN the program.
That’s a good start. To complete the program, add 7-dot line
spacing, a loop to process the last five lines of data, and the data lines:
100
LPRINT CHR$(27)"1"
590
FOR K=1 TO 6
650 LPRINT: NEXT K: LPRINT CHR$(27)"@": END
799 ' <<< LOGO DATA >>>
810
DATA 0,126,1,0,126,1,-5,0,0,1,2,4,11,
18,36,-16,8,32,4,32,4,16,8,0,128
820
DATA 0,0,0,64,32,16,72,36,-3,16,4,34,
65,0,0,65,34,-8,16,4,18,11,4,2,1,0,-9,0,0,128
839
DATA -8,0,0,64,32,16,72,36,16,-7,
4,16,36,65,0,0,1,66,36,16,-3,4,16,4,18,11,4,2,1,
-2,0,0,128
840
DATA 0,32,16,64,8,64,-15,8,32,72,16,32,64,-6,
0,0,0,127,0,0,127,0,0,0,128
850
DATA -7,0,0,0,8,4,16,2,16,-15,
2,8,18,36,72,16,32,64,-2,0,0,128
Now RUN the STRATA program.
Figure 12-2. STRATA logo
And there you have it . .
. Figure
12-2,
a genuine logo that you could
use on all types of business printouts. If your printout doesn’t match
this, print a listing and check it against Figure
12-3.
162
