Homelite HL-2400CE, HL-P2500, HL-1660E Raster graphics example, REM --- Transfer Raster Graphics

Models: HL-1250 HL-1270N HL-1470N 2400C HL-1050 HL-P2500 2060 HL-1660E HL-1070 HL-1450 HL-2400CE

1 431
Download 431 pages 8 Kb
Page 101
Image 101

10/10/03

Raster graphics example

10 REM ***** A EXAMPLE OF RASTER GRAPHICS *****

20 ESC$=CHR$(27)

30 WIDTH "LPT1:",255

40 REM --- SET GRAPHICS RESOLUTION TO 300 DPI ---

50 LPRINT ESC$+"*t300R";

60 REM --- START RASTER GRAPHICS ---

70 LPRINT ESC$+"*r1A";

80 REM --- TRANSFER RASTER GRAPHICS ---

90 FOR I=1 TO 28

100 REM --- TRANSFER 1 LINE OF DOTS (4 byte = line) ---

110 LPRINT ESC$+"*b4W";

120 FOR J=1 TO 4

130 READ A$

140 LPRINT CHR$(VAL("&H"+A$));

150 NEXT J

160 NEXT I

170 REM --- END RASTER GRAPHICS ---

180 LPRINT ESC$+"*rB"

190LPRINT

200LPRINT

210REM --- CHANGE GRAPHIC RESOLUTION

220LPRINT ESC$+"*t75R";

230REM --- START RASTER GRAPHICS ---

240LPRINT ESC$+"*r1A";

250REM --- TRANSFER RASTER GRAPHICS ---

260RESTORE 410

270FOR I=1 TO 28

280REM --- TRANSFER 1 LINE OF DOTS (4 byte = line) ---

290LPRINT ESC$+"*b4W";

300FOR J=1 TO 4

310READ A$

320LPRINT CHR$(VAL("&H"+A$));

330NEXT J

340NEXT I

350REM --- END RASTER GRAPHICS ---

360LPRINT ESC$+"*rB"

370REM --- PAPER EJECT ---

380LPRINT CHR$(12);

390END

400REM --- RASTER DATA ---

410DATA 00,1F,E0,00

420DATA 00,7F,F8,00

430DATA 01,F0,3E,00

440DATA 03,C0,0F,00

450DATA 07,00,03,80

460DATA 0E,00,01,C0

470DATA 1C,38,70,E0

480DATA 18,70,70,60

490DATA 38,38,70,70

500DATA 30,00,00,30

510DATA 70,00,00,38

520DATA 61,00,02,18

530DATA 61,00,02,18

540DATA 6F,80,07,98

550DATA 67,80,07,D8

560DATA 61,80,06,18

570DATA 61,C0,0E,18

580DATA 70,E0,1C,38

590DATA 30,70,78,30

600DATA 38,3F,F0,70

610DATA 18,0F,C0,60

620DATA 1C,00,00,E0

630DATA 0E,00,01,C0

640DATA 07,00,03,80

650DATA 03,C0,0F,00

660DATA 01,F0,3E,00

670DATA 00,7F,F8,00

680DATA 00,1F,E0,00

690REM --- DATA END ---

<Sample file 8>

CHAPTER 2 "PCL" - 83

Page 101
Image 101
Homelite HL-2400CE, HL-P2500, HL-1660E, HL-1450, HL-1050, HL-1250 Raster graphics example, REM --- Transfer Raster Graphics