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

550PRINT #1, ESC$ "*" CHR$(39) CHR$(104) CHR$(1);

560FOR COLUMN = 0 TO 359

570FOR BYTE = 0 TO 2

580PRINT #1, CHR$ (BUFFER% (COLUMN, PRINT.LINE

+ BYTE));

590NEXT BYTE

600NEXT COLUMN

610PRINT #1, LF$

620NEXT PRINT.LINE

630PRINT #1, ESC$ "2";

640CLOSE #1 : END

Figure 6-9. Figure produced by plotting program

80