Table of Contents
Advertisement
AUTOMATIC ANSWER AND DIAL CODE
If you prefer to write your own terminal program, use this BASIC code
for automatic answer and dial features.
communications code.
NOTE: Check LINE 5 for differences between code for the Commodore 64
and the VIC 20.
5 B1=37136:B2=37138: REM
10 REM: ANCHOR AUTOMATION
20
REM: AUTOVIC DEMO
30
FOR X=1 TO 20
40 PRINT
50 NEXT X
60 PRINT "anchor"
70 PRINT "
automation"
80 PRINT "
90 PRINT
100 PRINT
110 PRINT"autovic demo"
120 PRINT"dialing & answer"
140 PRINT "programs"
150 PRINT
160 PRINT "hit any key to start"
170 GET A $ :IFA$=""THEN170: REM
180 GOSUB 1200: REM
210 PRINT"select one:"
220 PRINT "<a>answer"
230 PRINT "<b>dial out"
240 GET A$
242 IF A$=""THEN 240
250 IF A$="a"THEN GOT0300
260 IF A$="b"THEN GOT0500
270 GOTOI
8
O : REM
280 :
300 GOSUB 1200: REM
310 POKE B 2 ,32: REM
312 POKE B 1 ,0
313 PRINT "move t-d sw to data"
314 PRINT:PRINT
315 PRINT "waiting for ring!!!"
320 X=PEEK(B1)
330 X=X AND 8: REM
333 IFX=0THEN PRINT"ring detected!"
340 IF X=0 THEN GOTO 1000: REM
350 GOTO 320: REM
360 END
499 :
AUTCMODEM
FOR 64 Bl=56577 AND B2=56579
inc."
WAIT FOR A KEY
WAIT A WHILE
NOT A VALID KEY, DO AGAIN
WAIT A WHILE
SET UP PORT B FOR ANSWERING
SEE IF RINGING
PHONE WAS RINGING, START COMMUNICATING
GO BACK AND CHECK AGAIN
All you add is your own
Page 22
Advertisement
Table of Contents
