Publicité
' t,Ym~..,;,,;_;.z
;;.,,2,.,a-:' _"- LJtI ;Iv$* :, ' 3.8 ,i,i 7'
' I
m,:.; ,,l-' Sir,"$ ,c' ' ) / ' t,., 1 ,l, 8, j ,,
!.+i,,
1 !f-j
Jo .:hj
/
";b"L;
1,. 9; V[ xv&;; ," n:,,pn
,: ;-,:.y
-; I*f:;;
T2flL'"y",-
,",
,,",1, ,_~x,.I.
~,
I ._
I
,,,A II,, lb,, l' i~~~a~~~~~~~~~~~~~~!~~~~~
Exemple 3 : Polices/Pas/Styles
disponibles
en mode LQ
(Le sélecteur DIP 12 doit être sur la position
ON)
1000
'-----
Set
control
codes
-----
1010 NL$=CHR$(O)
'NUL code
1020 E$=CHR$I27)
'ESC code
3.030 PM$=E$+"k"
'Select
typeface
1040 DF$=PM$+CHR$(l)+E$+'xl"
'Select
Sans
Serif
HQ mode
1050 HT$=CHR$(9)
'HT code
1060
SI$=CHR$(15)
'SI
code
(Set
Condensed
Mode)
1070 D2$=CHR$(18)
'DC2 code
(Cancel
Condensed
Mode)
1080
SO$=CHK$(lO)
'SO code
(Double-wlde
printing
by Line)
1090
SC$=E$-I-" I-"tCHR$(3)tCHR$(O)tCHR$(l)'Select
score
mode
1100 MSG$="Bubble
Jet
Printer"
'Message
string
1 1. 3. 0 '-----
Start
printing
-----
1120 WIDTII
"lptl:",255
1130 LPRINT
E$;"D";CHR+(3);CHR$(26);NL$
'Set
Horizontal
Tabs
1140 LPRINT
DF$;"Available
fonts:"
1150 FOR 1=0
TO
1
1160
LsPRTNT DF$;
1170
1F I=O T&IEN LPRINT
"HS";
ELSE LPRINT
"HQ";
1180
LPRINT
"mode"
1190
LPRINT
HT$;DF$;"Romnn";
HT$;E$;"x";CI,IRS(I)
;PM$;CHR$(O);MSG$
1200
I,PRINT
HT$;DF$;"Sans
Serif";HT$;E$;"x";
CHR$(I);PMS;CHRG(l);MSGS
1210
LPRINT
HT$;DF$;"Courier
";HT$;E$;"x";CHR$(T);PM$;CHR$(?.);MSG$
1220
LPRINT
HTS;DF$;"Prestige
";HT$;E$;"x";CHR$(l);l'M$;CHI7$(3/;MSG$
1230
LPRINT
HT$;DF$;"Script";
HT$;E$;"x";CHR$(I);PMS;CIIR$(4);MSG$
1240
LPRTNT HT$;DF$;"OratOr";
IHT$;E$;"x";CHR$II);PM$;CHR$(7);MSG$
1250
LPRINT
HT$;DFS;"Orator-S";HT$;E$;
"x";CHR$(T);PM$;CHR$(8);MSG$
1260 NEXT 1
1270 LPRINT
1280 LPRINT
13F$;"Print
pllrches:"
1290 LPRINT
H'F$; "lOCPI";HT$;MSG$
1300 LPRINT
HT$;"12CPI";HT$;E$;"M";MSG$;E$;"P"
1310 LPRINT
HT$;'l5CE'I';HT$;E$;"s";MSGS;ES;"P"
1320 J,PRINT HT$;"17CPI";
IHTs;SI$;MSG$;D2$;E$;"P'
1330 LPRINT
HT$;"JOCPI
";HT$;E$;"M";SI$;MSGS;D2S;ES;"P"
3340 LPRINT
HT$;"NOrmal
PrOpOrt1Onal";
I-ITS;E$;"pl";MSGS;E$;"pO"
1350 LPRINT
HT$;"Condensed
Proport1onal";HT$;SIS;ES;"pl";MSG$;D2$;E$;"pO~
1360 LPRINT
HT$;"Various
SpaCing";HT$;
1370
FOR I-O
TO LEN(MSG$)-1
1380
LPRTNT
E$;"
";CHR$(I);MID$(MSG$,I+l,l);
1390 NEXT
1400 LPRINT
ES;"
";CHR$(O)
1410 LPRINT
1420 LPRTNT DF$;"Print
Styles."
1430 LPRINT
1440 LPRINT
HT$;"Emphasized";HT~;ES;"E";MSGS;ES;"F"
1450 LPRINT
HT$;"Double-strike";HT$;E$;"G";MSG$;F$;"H"
1460 LPRINT
HT$;"Double-wide";HT$;SO$;MSG$
1470 LPRINT
1480 LPRINT
HT$;"Double-high";HTS;ES;"wl";MSGS;E$;"wO'
2490 LPRINT
1500 LPRINT
HTS;"Doubïe-high/wide";HTS;ES;"wl';SOS;MSG$;~$;~wO~
1510
LPRTNT
HT$;"Superscript/Subscrlpt
";I-I'L'$;$;
"SO". ,"Superscript";E$;"T";
3.570
T,PRJNT
' and
';i;$;"Sl";~Subscrip~";ES;"'~~
1530 LPRINT
HT$;"Score";HT$;
1540
LPRINT
SC$;CHR$(1);CHR$(1);"Under";
SC$;CHR$(l);CHRS(O);"/";
1550 LPRINT
SC$;CHR$(2);CHR$[?);"Strike-through";SC$;CHR$(2);CH~$(O);"/";
60
Publicité
