Filter
Top Products
1650 LPRI~ H$;C$;“Ibtnloadcharacters:“;
1660LPRI~ D$;E$;“%1”; ‘Selectdownloadcharacter
1670l?3R1=1TO 5
1680LPRINTCHR$(60); ‘Printdownlmd character
1690NEXTI
1700LPRINTE$;“%0”; ‘Selectnormalcharacter
1710GCEuB2200
1720LPRIm C$;E$;“%1”:
‘Selectdownloadcharacter
1730FQR 1=1‘lU5
1740LPRINTCHR$(60); Printdownloadcharacter
1750NEXTI
1760LPRINTE$;“%0”
‘Selectnomal character
1770LPRI~ H$;C$;“Variousdotgraphicdensities:“
1780
DIM 1.030$(4)
1790 RE31?3RE2390
1800 FUR ROW=l TO 4
1810
FORCOL=lTO 65
1820REAOIX
1830- (ROW)‘D30$(ROW)+CHR$(t13)
1840NEXTCOL
1850NEXT~
1860LPRINrm; “A’’;CHR$(8):
‘Set8/72”linespscing
1870FORROW=lTO 4
1880LPRINTH$;“ “:
1890RX?E=JOTO 4
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
IF 1940
LPRI~ E$;
“*’’;CHR.$(B);
‘Select
dotgraphicsmode
LPRI~ CHR$(65);CHR$(0);KG0$(173W);
LPRI~ “ “;
NEXTB
LPRI~
mm
LPRINT
m mw==lm 4
LPRIm I-l$;“ “:
FcRB-5m 7
LPRINTES:
“*’’;CHR$(B);
‘
S dotgraphicsmode
LPRI~
C ; ; ;
L “
NEXTB
LPRI~
EN!mm; “@”
‘Initializeprinter
m
‘ ~INES
‘Definedraftdownloadcharacter
LPRIm D$;E$;“&”;CHR$(0);CHR$(60);CHR$(60);
RE510RE2300
FORM=O~ 11
READMt4
LPRINTCHR$(MM);
NIXTM
84