Star Micronics LC-20 user manual 1820REAOIX

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$;“Variousdot graphicdensities:“ 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~					‘Set8/72”linespscing
1860LPRINrm; “A’’;CHR$(8):
1870FORROW=lTO 4
1880LPRINTH$;“			“:
1890RX?E=JOTO 4
1900IF		1940			‘Selectdot graphicsmode
1910LPRI~ E$;“*’’;CHR.$(B);
1920LPRI~ CHR$(65);CHR$(0);KG0$(173W)
1930LPRI~ “		“;
1940NEXTB
1950LPRI~
1960mm
1970LPRINT
1980m	mw==lm		4
1990LPRIm I-l$			“:
2000FcRB-5m		7			‘S
2010LPRINTES:“*’’;CHR$(B);						dotgraphicsmode
2020LPRI~ C			;	;		;
2030L	“
2040NEXTB
2050LPRI~
2060					‘Initializeprinter
2070EN!mm;		“@”
2080m
2090
2100 ‘	~INES
2110 ‘ Definedraftdownloadcharacter
2120LPRIm D$;E$;“&”;CHR$(0);CHR$(60);CHR$(60)
2130RE510RE2300
2140FORM=O~		11
2150READMt4

2160LPRINTCHR$(MM); 2170NIXTM

84