A SERVICE OF

logo

2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
SUBROUTINES
Define 24-dot download character
LPRINT E$; ’’&’’;CHR$(O);CHR$(6O) ;CHR$(60);
RESTORE 2510
READ LS :LPRINT CHR$(LS);
READ CW :LPRINT CHR$(CW);
READ RS :LPRINT CHR$(RS);
FOR M=l TO CW*3
READ MM
LPRINT CHR$(MM);
NEXT M
RETURN
Define 48-dot download character
LPRINT CHR$(27) ;”{”;”
&“;CHR$(192); CHR$(0) ;CHR$(0);
LPRINT CHR$(60);CHR$(60) ;
RESTORE 2600
READ LS :LPRINT CHR$(LS);
READ CW :LPRINT CHR$(CW);
READ RS :LPRINT CHR$(RS);
FOR M=l TO CW*6
READ MM
LPRINT CHR$(MM);
NEXT M
RETURN
DATA
24–dot download character data
DATA
3, 31, 2
DATA O, 0, 0, 7, 0, 0, 8, 0,
0, 23, 0,
0, 40, 0, 0
D 1
4 8
D
8 8 0
D 8 8
8
D 8
0, 80, 47,192, 40, 16, 0
D 1
0, 23, 0, 0, 8, 0, 0, 7, 0, 0
DATA O, 0, 0
4 d c d
DATA 3, 31, 2
D
o, 20, 0, 0, 0, 0, 0,170, 0, 0, 0, 0
DATA 1, 84, 0, 0, 0, 0,
6,170, 0, 0, 0, 0
D
1 2 1 0
D 4
2 1 0
D 0
0, 22, 1, 85, 10,160, 0
D 4
3, 80, 0, 2 0
D 4
0, 22, 1, 80, 2 0
D
2,160, 5, 80, 0, 22, 1, 80,
2 0
D 2
0, 22, 1, 80, 2 0
D 4
0, 22, 85, 84, 2 0
DATA 40,170,170, 5, 80, 0, 22, 1, 85, 10,160, 0
D 0
2 1 0
D 4
2 1 0
D 1 6,170, 0, 0, 0, 0
DATA 1, 84, 0, 0, 0, 0,
0,170, 0, 0, 0, 0
DATA O, 20, 0, 0, 0, 0
Dot graphics data
‘ 1ST LINE
DATA O, 0, 0, 0,
DATA O, 0, 0, 0,
DATA O, 0, 0, 0,
DATA O, 0, 0, 0,
DATA O, 0, 0, 0,
DATA 1,255,255, 3,
DATA 31, 0,
0, 31,
DATA 31, 0,
0, 31,
DATA 31, 0, 0, 31,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
0, 0, 0, 0, 0,
0,127,255, 0,255,255
0, 0, 7, 0, 0, 7, 0, 0, 15, 0, 0
0,
0, 31, 0, 0, 31, 0, 0, 31, 0, 0
0,
0, 31, 0, 0, 31, 0, 0, 31, 0, 0
0,
0, 31, 0, 0, 31, 0, 0, 31, 0, 0
Chapter8 MS-DOSANDYOUR PRINTER 81