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 6650 LPRINT: NEXT K: LPRINT CHR$(27)"@": END799 ' <<< 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

820DATA 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