Star Micronics LC-20 *;CHR.$(B); Select, *;CHR$(B); , 84

1650 LPRI~ H$;C$;“Ibtnloadcharacters:“;
1660LPRI~ D$;E$;“%1”; ‘Selectdownloadcharacter
1670l?3R1=1TO5
1680LPRINTCHR$(60); ‘Printdownlmdcharacter
1690NEXTI
1700LPRINTE$;“%0”; ‘Selectnormalcharacter
1710GCEuB2200
1720LPRIm C$;E$;“%1”: ‘Selectdownloadcharacter
1730FQR1=1‘lU5
1740LPRINTCHR$(60); Printdownloadcharacter
1750NEXTI
1760LPRINTE$;“%0” ‘Selectnomal character
1770LPRI~ H$;C$;“Variousdotgraphicdensities:“
1780DIM 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=lTO4
1880LPRINTH$;“ “:
1890RX?E=JOTO4
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); ‘
Sdotgraphicsmode
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