Star Micronics SJ-48 Chapter8 MS-DOSANDYOUR PRINTER 81

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
D14 8
D8 8 0
D888
D80, 80, 47,192, 40, 16, 0
D10, 23, 0, 0, 8, 0, 0, 7, 0, 0
DATA O, 0, 0
‘4 d cd
DATA 3, 31, 2
Do, 20, 0, 0, 0, 0, 0,170, 0, 0, 0, 0
DATA 1, 84, 0, 0, 0, 0, 6,170, 0, 0, 0, 0
D1 2 1 0
D42 1 0
D00, 22, 1, 85, 10,160, 0
D43, 80, 0, 2 0
D40, 22, 1, 80, 2 0
D2,160, 5, 80, 0, 22, 1, 80, 2 0
D20, 22, 1, 80, 2 0
D40, 22, 85, 84, 2 0
DATA 40,170,170, 5, 80, 0, 22, 1, 85, 10,160, 0
D02 1 0
D42 1 0
D16,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