Graphtrax II

100 DATA 4 , 4 , 4 , 4 , 4 , 6 1 , 7 1 , 7 0 , 6 0 , 4 , 4 , 4 , 4 , 4

110DATA 7 2 , 7 9 , 8 9 , 1 0 7 , 7 7 , 7 3 , 1 2 7 , 8 9 , 7 3 , 7 9 , 7 3 , 7 3 , 7 3 , 7 3

120DATA 1 6 , 1 1 2 , 5 4 , 1 7 , 8 1 , 1 7 , 1 2 6 , 1 6 , 4 8 , 8 0 , 1 6 , 1 6 , 1 6 , 1 6

TRS-80 Model I:

40LPRINT CHR$ (27) “K”CHR$ (14) CHR$ (2) ;

and RUN.

Figure 5-3

How about that one, culture hounds? Here’s how it works:

Line 10 sets the line spacing for 7 pin graphics. The G clef is printed in three lines.

Line 20 takes care of the looping.

Line 30 moves the figure away from the left margin.

Line 40 kicks the printer into graphics mode - 14 columns per line.

Lines 50-70 read each code from the DATA lines and send it to the printer.

The NEXT R in line 70 sends control back to line 20 to start the next line.

Line 80 returns the line spacing back to 6 lines per inch.

How’s that for a nifty tune?

Code Summary

ESC K Nl N2 - ENTERS GRAPHICS MODE. Nl and N2 DETERMINE

LENGTH OF GRAPHIC LINE.

0 <= Nl <= 255 O < = N 2 < = 2

47