
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
40LPRINT CHR$ (27) “K”CHR$ (14) CHR$ (2) ;
and RUN.
Figure
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
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