Line
288
Both the input and the output files are closed.
The two program segments can be combined
to
allow dialing. logging-on. receiving
and displaying the NEWS text, logging off and finally. hanging
up
the telephone. The
complete listing would be:
5
MAXFILES
= 2
100
OS
=
"123-4567(hM
h
M?U8768,453
h
M?PTwo-tone
h
M?
SNews
h
M>"
110
M = VARPTR(OS)
120
0 = PEEK(M+1) + PEEK(M+2)*256
130
CALL
21200
:
CALL
21283,0,0
140
OPEN
"MOM:7I10"
FOR
INPUT
AS
1
150
IS=INPUTS(1d):
PRINT
IS;
160
IF
IS<>CHRS(26)
GOTO
150
170
OPEN
"MOM:7I10"
FOR
OUTPUT
AS
2
180
PRINT
-2,
"BYE" + CHR$(13)
180
CALL
21178
200
CLOSE
What you have learned:
You
have learned how to use the built-in modem
to
communicate with other systems
over the telephone lines. You have seen that it
is
possible
to
communicate in either
TELCOM or BASIC. however. TELCOM
is
much more straightforward
to
use.
Several machine language-related functions and statements were presented.
184