Table of Contents
Advertisement
500 GOSUB 1200: REM
505 GOSUB 1200: REM
510 POKE B 2 ,32: REM
520 POKE B1,0
525 PRINT"move t-d sw to data"
527 PRINT:PRINT
530 PRINT"enter no. to dial<cr>"
535 INPUT D $ : REM
540 POKEB1,32: REM
550 T=10 00
560 T=T-1:1 F T O 0 GOT0560: REM
570 D=LEN(D$)
580 FOR X=1 TO D
590 N$=MID$(D$, X , 1)
592 PRINT N$;
600 N=VAL(N$): REM
610 IF N=0THENN=10
620 GOSUB 650: REM
630 NEXT X
633 PRINT
635 PRINT "dial complete"
640 GOTO 1000: REM
644 :
645 REM SUBROUTINE TO PULSE THE LINE N TIMES
646 :
650 FOR Nl=l TO N
655 POKE B 1 ,0
660 T=6
665 T=T-1: IFTOOTHEN665
670 POKEB1,32
675 T=4
680 T=T-1 : I F T O O T H E N
685 NEXT N1
:
686
690 T=70: REM
WAIT A WHILE
692 T=T-1: IFTOOTHEN692
695 RETURN: REM
799 END
800 :
1000 REM
COMMUNICATION PROGRAM GOES HERE
1002 GOSUB 1200
1003 PRINT "ready to communicate!"
1010 END
1200 FOR ZZ = 1 TO 36
1210 PRINT
1220 NEXT ZZ
1230 RETURN
AUTOM3DEM
WAIT A WHILE
WAIT A WHILE
SET UP PORT B FOR DIALING
INPUT YOUR PHONE #
PICK UP THE PHONE
WAIT A WHILE
CALCULATE THE DIGIT
DIAL THE DIGIT
START COMMUNICATING
6 8
O
DONE DIALING
Page 23
Advertisement
Table of Contents
