PROGRAM
NO.
1
590
LPRINT";036";CHR$(127)"O;644GABBDDHHHPP"0;677'PLBA6
u
;CHR$(29)
600
LPR
I
NT
"R"
:
LPR
INT
CHR$
(28)
;"
;035D"
;CHR$
(
127)
;"
DDO;
1
02I\B";
CHR$
(95);
"CO
;634AA8DDHHP
'xO
;683 'PHDIA6 ;036"
;CHR$
(127) ;"0;096AIDHP'
1'@pHFAO
;625ABBDHHPP
'0
;689'
PHDBAO";
610
lPRINT";712AAAAtBBDDDDH";CHR$(94l;"DBA6";CHRi(29)
620
LPRINT"O
10":LPRINT CHR$(28);";035D";CHR$(127);"DDO;090ABDHP'06;110pXBAO;6
131\1\"B
ODDHPP"0;695pHDOBDDDHHHHPPP"'0;728'PHDBA6";
630
LPRINT";036";CHR$(127);"O;084ABDHP'O;113'XDCO;561CL
U;CHR$(124);"PPPHHHHHDDDDDDB88
BAAAAAAO;592AAABBBBDDDHHHHPPP""II@I'Ol698'0;735'PHDBA6";CHR$(19)
640
LPRINT"P":LPRINT
CHR$~28);";035D";CHR$~127};"DDO;077GABDHP'O;117'XHCOfl55AAB
U
t
CH
R
$(95);"AO;319";CHRt(127);STRING$(26,"B"l;CHR$(126);"GO;558CLPO;S88"x'0;741'PHDBAO;77
OAAABBDDOH";CHR$(126);"6";
650RE"fHE
USE
IN
BASIC
OD
THE.
'STRINGS(N,S)'
FUNCTION
IS
A
PRDGRA""ING
AID
AVAILABL
E
IN
SO"E
BASICS
BUT
DOES
NOT
USE
ANY
LESS
PRINTER
BUFPER
SPACE
THAN
THEREPBATE~AHA
RACTER.
THIS
FUNCTION
OUTPUTS
AN
'H'
LENGTH
STRING
OF'S'
CHARACtERS.
660
LPRINT";036";CHR$(127);"0;076GxO;121pHFAO;147ABDDHPP'I'I"PLCO;314AFHP'O;349pNCO;
554CPpO;747'PHDCCIAAABBDDDHHHPP"'6";CHR$(29)
670
LPRI
NTu
I
''':
LPRI
NT
CHR$
(28) ;
II
;'0350
II
;CHR$(
121
)i"
DDO;0750pO;
125pLBAO;138t\A8DDHP'
\
0;163pLCO;310CDHpO;352pLGO;551CFpO;752x'6";
680
..
LPRI
NT"
;036"
;CHR$
(127)
;"0
;07
40pO;
128
'PLOBDHPP'
0;
166
'XFAO;305ABLX'
0
;354'XFAO;5·48AF
X'6"CHR$(29)
690LPR
INT
"r":
LPR
INTCHR$( 28)
;"
;035D"
;CHR$<
127
l;
"DDO
;07'3";CHRS(95);U\O;131xO;
169'XFAQ
;301AFHP'Ol357'XPAO;545A'X'6";
700
LPRI
H.T
II
;036"
;CHR$
(127) ; "0;072*'
;CHR$
(
127)
;"0;
173pLCO
;293CIIIPHpO;360'XPAO;542AP)('6
";CHR$
(29)
710·
LPRINT
II
8":LPRI
NT
CHR$
(28
);"
;0350
II
;CHR$
(127)
;
"DDO
;070""
;CHR$
(124
);"O;116pL8AO··;
293";CHRS(127);"DX'0;363'XGO;509CO;539APX'6";CHR$(29)
720
LPRINT"A":LPRIHT
CHR$(28);";036";CHRS(127);"0,069CxO;179'XFAO;289ALX'O;366pLCO;50
8CLx"PPPPPHHHHHHDDDDDBBBBBBAAGPX'6";
730·
LPRI
NT";035D" ;CHR$(127) ;
"D1)O
;068CxO
;182
'LDOO;286APHpO;
369pPCO;505C" ;CHR$(92);''
'0';'
536p6";CHR$(29)
740
.LPRINT'·S
":LPRINT
CHR$
(~8);
";036"
;CHR$
(121) ; "0;067GxO ;185''',CHR$(94)
;"AO;283AAPX'O
;372PXOAAAAAAAAAAAAAAAt;503ANX6-;CHR$(29)
750
LPRI
NT"
7
i
':
LPR
INT
··CHRS
(28);
II
;035D
ai
;CHR$(
127);
II
DDO;0660pO
;187xGO;280AFX'O;3?4x·O
;389PPPPPPPPPPPH"
;CHR$
(126) ;
"CO
;500CP"
;CHR$
(92
lin,
6
";
;CHR$(
29)
160
LPRINT"X"
770
LPRINT
CHR$
(28)
;"
;036"
;CHR$
(127 ).;"0
;065"
;CHR$(95);"pO;188'" ;CHRS(94);UAO;211APX
'0
;402PNAO;498C
II
;CHR$
(92);"
'6";
. . . . ..
..
..
..
'.
.
..
......'
780
LPRI
NT
It;
035D";CHR$
(127) ;
II
DDO
;064"
;CHR$
(95) ;
II
'0
;190xGO;274CLpO;404xGO;495APx6";CHR,.
$(29)
790 .
LPRIHT"O"
:LPRINT
CHR$
(28
);"
;036"
;CHR$
(127>;"O;063";CHR$
(95);"
'0;
191'"
;CHR$(
9.4l,""
.,
O;271CLpO;406";CHR$(124) ;
"CO;
493CLp6"
;CHR$
(29)
800
LPRI
NT"
..
6":LPRINT
CHR$
(28);"
;035D
";
CHR$
(127)
;"
DDO;062";CHR$(
127l;"0,
1
'3x~O;268
CLpO;407''';CHR$(94);''AO;491c
u
;CHRt<92);U'6'';CHRt(29)
810
LPRI
NT"pu:LP'R
I
HTCHR$
(28);"
;036"
;CHR$
(127)
;"0,0601\"
;CHRS
(126)
;i'0;194''';;CHRtl94l1'
uAO;262ABBD
II
;CHR$
(126) ; "pO;409pOO;
489Gx6
"';
820
LPRINTu;035D";CHR$(127l;"DDO;059A";CHR$(126);"O;196";CHR$(1241;"CO;254AB8DHPP'O;4
11xGO;486ANp6"; . '
'i'
830
LPRIMT
";
036"
;CHR$
(127);
"0;058C"
;CHR$
(124
);··Ol197pOO;246ABPDHPP'O;.412xGO;~a3APx6···
..
;CHR$(
29).
..
'..
..
.. .
..
..
.......:.
840
LPR
IHT"S
5":
LPRINTCHR$
(28) ;
II
;035D
II
;CHRS·(
127
);"
DDO
;057GxO; 199";CHR$(124
);~·CO~23.:·
.
8AOBDHP"O;414pNAO;481AGx6";
850·
LPRINT·.
It
;036".;CHR$(
127);"0;056GxO
200pOO
;235flFX' '0;4161GO;477CDHHx6
U
;CHR$(Z·9).
860LPR
INTIIA":
LPRI
NT
CHR$
(28)
;"
;035D
II
CHR$(
127);
II
DDO;
0550PO;202
1t
;CHR$(124l;i'
COl232CP'X'
'O;418
U
;CHR$(124);"CO;472ABDX""; . .
A
...
5
...
'.
.. . . .
"'-'.'.
,
':,·'·;·:·i":\dY:.f
'