Radio Shack TRS-80 Model 100 Basic Manual page 190

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