Star Micronics FR-10 User Manual page 98

1870
1880
1890
1900
1910
1920
1930
1940
1950
1960
1970
1980
1990
2000
2010
2020
2030
2040
3000
3010
3020
3030
3040
3050
3060
3070
3080
3090
3100
3110
3120
3130
3140
3150
3160
3170
3180
3190
3200
3210
3220
3230
3240
4000
4010
4020
4030
4040
4050
4060
4070
4080
4090
4100
4110
4120
READ GD
LoGO$(ROW) =LOGO$ (ROW)+CHR$(GD)
NEXT COL
NEXT ROW
LPRINT E$ ; "A" ;CHR$(8) ;
'Set 8/72" line spacing
FOR ROW=l TO 4
LPRINT " ";
FOR B=O TO 6
IF B=2 THEN 2000
IF B=5 THEN 2000
LPRINT E$;''*'';CHR$(B) ;
'Select normal density
LPRINT CHR$(65);CHR$(0) ;LOGO$(ROW);
LPRINT " ";
NEXT B
LPRINT
NEXT ROW
LPRINT E5;"@"
'Initialize printer
END
' SUBROUTINES
' Define Draft download character
LPRINT E$;''xO'';E$;":U
;CHR$(0);CHR$(O) ;CHR$(0);
LPRINT E$;''&'';CHR$(O) ;CHR$(60);CHR$(60) ;
RESTORE 4020
READ LS :LPRINTCHR$(LS);
FOR M=l TO 11
READ MM
LPRINT CHR$(MM);
NEXT M
RETURN
' Define NLQ download character
LPRINT C$;
LPRINT E$;''&'';CHR$(O) ;CHR$(60):CHR$(60) ;
RESTORE 4060
READ LS :LPRINTCHR$(LS);
READ CW :LPRINTCHR$(CW);
Rl?AD RS :LPRINTCHR$(RS);
FOR M=l TO CW*3
READ MM
LPRINT CHR$(NM);
NEXT M
RETURN
' DATA
' Draft download characterdata
DATA 139
DATA 124, 0, 66, 4, 64, 36, 16, 2, 16, 12, 0
' NLQ download characer data
DATA O, 23, 0
DATA
1,248, 0, 6, 0, 0. 8.124, 0
DATA 16, 2, 0, 32,124, 0> 0, 2, 0
DATA 32,124, 0, 0, 0. 0, 63,248, 0
DATA
O, 0> 0, 32, 0, 0, 0,120, 0
DATA 16, 0, 0, 8,120, 0, 4, 0, 0
9