Table of Contents
Advertisement
ESC &
-
510 '139 is an Attribute a
520 LPRINT CHR$(139';
530 LPRINT
CHR$(8);CHR$(0);CHR$(8)~CHRS(0)=CHR$(248);
540 LPRtNT CHR$(0';
550 LPRINT CHR$(0);CHR$(0);CHR$(0);CHR$(0);CHR$(0';
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);CHRS(255';
600 LPRINT CHR$(0);
610 LPRINT CHR$(0);CHR$(0);CHR$(0';CHR$(0);CHR$(0';
620 'Sends pattern for ASCII 136
630 '139 is an Attribute
a
640 LPRINT CHR$(139';
650 LPRINT CHP$(8';CHP$(0);CHP$(8)=CHR$(0';CHR$(B);
660 LPRINT CHR$(0);
670 LPRINT CHR$(8';CHRS(0);CHR$(8';CHPS(0);CHRS(8);
-
680 'Sends pattern for ASCII 137
690 '139 is an Attribute
a
700 LPRINT CHR$(139);
710 LPRINT CHRS(8);CHRS(0';CHRS(B';CHRS(0';CHRS(248';
720 LPRINT CHRS(0);
T::Q1
LPP
1:
NT CHF.:S (8) ; CHPS
<:
0) ;
CHH$
(El) ;
CHR~;
(0' ;
CHF~!f;
(El)';
740 'Sends pattern for ASCII 138
750 '139 is an Attribute a
760 LPRINT CHRS(139';
770 LPRINT CHR$(r);CHR$(0';CHRS(8,;CHR$(0';CHR$(255);
780 LPRINT CHRS(0';
790 LPRINT CHPS(8';CHR$(0';CHR$(8';CHR$(0';CHR$(8);
800 ·Ok.
Let's use the characters.
810 FOR 1=128 TO 138
820 LPRINT "chrS(I; I; ") is ";CHRS(I)
8~50
NEXT
840
LPF~INT
850 'Sets line spacing to
8
(dots/line)
-
860 L.PR
I
NT
CHF~$
(27) ;
II
A" ; CHRS (8'
=
870 LPRINT CHR$(128);CHRS(136)
~CHRS(132)~
880 LPRINT CHR$(136);CHR$(129)
890 LPR I NT CHRS ( 135) ;
II
1. ..
=
CHRS (
1.
~5~:j)
=
":2
II
=
CHF~$
(
1.
~:r,5)
-
900 LPRINT
CHHS(130);CHR$(136);CHR$(138)~
910 LPPINT CHR$(136);CHR$(1.31)
92(2) LPR I NT
CHF~$
(
1.
3~.'i'
: •.
4
II
=
CHRS ( 1
::::;;5) ; ":::;''' •
CHR$ (
:I.
~::'5)
930
LPRINT
CHR$(133)=CHRS(1.36)~CHRS(137);
940 LPHINT CHR$(136);CHRS(134)
-
950 'Sets line spacing to 12 (dots/line)
96(2) L.PR
I
NT CHR$ (2.7) ;
II
A"; CHR$ (
1:'2)
970 END
-
-
3-44
-
Advertisement
Table of Contents
