Table of Contents
Advertisement
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;27 4CLpO;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 '
Hide quick links:
Advertisement
Table of Contents
