Filter
Top Products
1640
1650
1660
1670
1680
1690
1700
1710
1720
1730
1740
1750
1760
1770
1780
1790
1800
1810
1820
1830
1840
1850
1860
1870
1880
1890
1900
1910
1920
1930
1940
1950
1960
1970
1980
1990
2000
2010
2020
2030
2040
2050
2060
2070
2080
2090
2100
2110
2120
2130
2140
2150
2160
2170
GOSUB 2100
LPRINT H$;C$;’’Downloadcharacters: “;
LPRINT D$;E$;”%l”;
‘Selectdownload character
FOR 1=1 TO 5
LPRINT CHR$(60);
‘Print downloaded character
NEXT I
LPRINT D$;E$;’’%O”; ‘Selectnormal character
GOSUB 2180
LPRINT C$;E$;”%l”;
‘Selectdownload character
FOR 1=1 TO 5
LPRINT CHR$(60);
‘Printdownloaded character
NEXT I
LPRINT D$;E$;“%0” ‘Select normal character
LPRINT H$;C$;’’Variousdot f
DIM LOGO$(4)
RESTORE 2370
FOR ROW=l TO 4
FOR COL=l TO 65
READ DG
LOGO$(ROW)=LOGO$(ROW)+CHR$
NEXT COL
NEXT ROW
raphic densities:“
DG)
LPRINTE$;’’A’’;CHR$(8); ‘Set 8/72” line spacing
FOR ROW=l TO 4
LPRINT H$;” “;
FOR B=O TO 4
IF B=2 THEN 1940
LPRINT E$;’’*”;CHR$(B); ‘Selectdot grapgics mode
LPRINT CHR$(65);CHR$(0);LOGO$(ROW);
LPRINT “ “;
NEXT B
.
LPRINT
NEXT ROW
LPRINT
FOR ROW=l TO 4
LPRINTH$; ” “;
FOR B=5 TO 7
LPRINT E$;”*’’;CHR$(B);
‘Selectdot grapgics m,ode
LPRINT CHR$(65);CHR$(0);LOGO$(ROW);
LPRINT “ “;
NEXT B
LPRINT
NEXT ROW
LPRINT E$;”@”
‘Initializeprinter
END
‘ SUBROUTINES ––––––––––--–––-––––--––––––––-––-––-––
t Define draft download character ––--–––––-––––––––––
LPRINT D$;E$;’’&’’;CHR$(O);CHR$(60);CHR$(60);
RESTORE 2280
FOR M=O TO 11
READ MM
LPRINT CHR$(MM);
NEXT M
RETURN
2180 ‘ Define NLQ download character ––––––-–-–––-–-––––––
84