Table of Contents
Advertisement
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
LPRI~ H$;C$; 'Tbwnload
characters:
";
LPRI~ D$;E$; "%1";
'Select download character
FOR1==1 ITI 5
LPRI~ CliR$ (60) :
'Print downltid character
NEXTI
LPRIm E$; "%0";
'Select normal character
GC@JB 2200
IYRINTC$;E$; "%1";
'Select download character
FOR1=1 TU 5
LPRINTCHR$(60);
'Print download character
NEXTI
LPRI~ E$; "%0"
'Select normal character
LPRINTH$;C$; "Varioue dot graphic densltles:"
DIMKKQ$(4)
RE3P3RE2390
m
Row=l To 4
FCRCOL=l TO 65
RADrKi
LX130$ (RQW)"LIXO$ (RW +CliR$ (D3)
NEXT COL
~N!!!!;
"A";CHR$ ( 8) ;
'Set8/72"
line
.spacirq
m
ROW-l m
4
LPRINTH$;"
";
mB-o
To4
IF 8=2 TIiD41940
LPRINTE$; "*''; C HR$(B);
'Select dot gra~ica
mode
LPRINTCHR$(65);CHR$(0);I.CX33$(Ii0W)
;
LPRIIW" ";
NEXTB
~INT
mm
LPRI~
m
ROW"lm 4
~1~
H$; "
";
m
B-5 m 7
tYRINTE$; """ ;CliR$(B);
'Select dot
gra@ics
rode
LPRI~ CIiR$ (65) ;CJ-IR$(0) ;LCGO$(ROW)
;
LPRI~ " ";
NEXTB
LPRINT
mm
LPRINTE$; "@"
'Initialize
printer
m
'
SUBR3WINE5
' Define draft
download character
LPRINTD$;E$; "&''; CHR$(O);CHR$(60);CHR$(60);
2130 REEKK!E 2300
2140 FORM=EO IU 11
2150 READ MM
2160 LPRINI'CHR$(MM) ;
2170 NEXT M
M
Advertisement
Table of Contents
