A SERVICE OF

logo

460 BUFFER% (COLUMN, ROW)
= BUFFER% (COLUMN, ROW)
OR DOT% (I)
470
NEXT COUNT
480
NEXT ANGLE
490
'
500 ' Print curve
510
'
520 OPEN "LPT:1" AS #1 : WIDTH #1,255
530 PRINT #1, ESC$ "3" CHR$(24);
540
FOR PRINT.LINE
=
0 TO 44
STEP
3
550
PRINT #1, ESC$ "*" CHR$(39) CHR$(104) CHR$(1);
560
FOR COLUMN = 0 TO 359
570
FOR BYTE = 0 TO 2
580
PRINT #1, CHR$ (BUFFER% (COLUMN, PRINT.LINE
+ BYTE));
590
NEXT BYTE
600
NEXT COLUMN
610
PRINT #1, LF$
620
NEXT PRINT.LINE
630 PRINT #1, ESC$ "2";
640
CLOSE #1 : END
Figure 6-9. Figure produced by plotting program
80