Epson FX-80 Operation Manual page 136

[
I
!
510 '139 is an Attribute a
520 LPRINT CHR$(139);
530 LPRINT CHR$(B);CHR$(0);CHR$(B);CHR$(0);CHR$(24B);
540 LPRINT CHR$(O);
550 LPRINT CHR$(O);CHR$(O);CHR$(O);CHR$(O);CHR$(O);
560 'Sends pattern for ASCII 135
570 '139 is an Attribute a
580 LPRINT CHR$(139);
590 LPRINT CHR$(0);CHR$(0);CHR$(0);CHR$(0);CHR$(255);
600 LPRINT CHR$(O);
610 LPRINT CHR$(O);CHR$(O);CHRS(O);CHR$(O);CHR$(O);
620 'Sends pattern for ASCII 136
630 '139 is an Attribute a
640 LPRINT CHR$(139};
650 LPRINT CHR$(8);CHRS(O);CHR$(8);CHR$(O);CHR$(8);
660 LPRINT CHR$(O);
670 LPRINT CHR$(8);CHR$(0);CHR$(8);CHRS(0);CHR$(8);
680 'Sends pattern for ASCII 137
690 '139 is an Atttibute a
700 LPRINT CHRS(139);
710 LPRINT CHR$(8);CHRS(0);CHR$(8);CHR$(0);CHR$(248);
720 LPRINT CHR$(O);
730 LPRINT CHR$(8);CHR$(0);CHR$(8);CHRS(0);CHRS(8);
740 'Sends pattern fer ASCII 138
75C) ~139 is an Attr"ibute a
760 LPRINT CHR$(139);
770 LPRINT CHR$(8);CHRS(O);CHR$(8);CHR$(0);CHRS(255);
780 LPRINT CHR$(O);
790 LPRINT CHRS(8);CHR$(O);CHRS(8);CHR$(0);CHR$(8);
800 'OK. Let's use characters.
810 FOR
I~128
TO 138
820 LPF:::INT
"dil~$:("; I;
II)
is ";CHFU:(I)
Er::O
NEXT
840 LPRINT
850 'Sets Unidirectional Printing
B60 LPRINT
CHR::~
(27) ; "U"; CHFU:
(:L) ;
870 'Sets line spacing to 8 (dots/line)
880 LF'RINT
C1· · · 1 R:$:
(27) ; "A"; CHR:t (8) ;
890 LPRINT CHR$(128);CHRS(136);CHR$(132);
900 LPRINT CHR$(136);CHR$(129)
cll0
LPR I "IT CHH:t (
1 :::'5) ; "
1" ; CI"IF:::"1:~ (
1
::::;~5)
;
"2" ; CHFd:: (
:J.
35)
920 LPF:::INT CHR$(130);CHR$(136);CHRS(138);
930 LPRINT CHF:::$(136);CHR$(131)
940
I..YR
I NT CHR:t (
:L
::~;~5) ; "4" ;
CHR$ ( C;;5) ;;
"::~;"
;
CHR::~
(
L~;5)
950 LPRINT CHR$(133);CHR$(136);CHR$(137);
960 LPF\:
I
NT CHr-;:$ ( 1.36) ; CHR::t: (
1
~:;;LI·)
970 'Sets line spacing to 12 (dots/line)
91:30 L..PF;: I NT CI···IFi::' I ::
(:~~?)
;
"A" ;;
CHI~:;j::
( 12) ;
9';"0 L..F'R I NT
D"IF\~~~
<
27) ; "U" ;
Cf··IR~1;'
(0) ;
1000 END
3-85