Table of Contents
Advertisement
100 DATA 4 , 4 , 4 , 4 , 4 , 6 1 , 7 1 , 7 0 , 6 0 , 4 , 4 , 4 , 4 , 4
110 DATA
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
120 DATA
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:
40 LPRINT CHR$ (27) "K"CHR$ (14) CHR$ (2) ;
and RUN.
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
Figure 5-3
Graphtrax II
47
Advertisement
Table of Contents
