Auto Re-Dial Program for MTERM Smart II

This nifty little program which can be loaded into the MTERM Smart II program features an automatic re-dialing utility. Once in Smart II, simply exit to the BASIC mode and load this utility program. Press RUN and the enter the phone number to be dialed. The program will continue to dial the phone number until a connection is made( or you can BREAK into the program at any time). Once connection is made, transfer to the terminal mode is made by pressing <ENTER>.

The program is from the public domain data library of the Timex sub-board of the Average Remote BBS (213) 325-0213 in Torrence, California.

Steve Ishii
Corresponding SINCUS member
Cerritos, CA

   1 INPUT "PHONE NUMBER?";a$
   3 CLS
  15 OUT 119,31
  18 PAUSE 50
  19 PRINT AT 10,8; FLASH 1;"DIA
LING "; FLASH 0;a$
  20 FOR i=1 TO LEN a$
  30 LET a=VAL a$(i)
  32 IF a=0 THEN LET a=10
  35 PAUSE 32
  40 GO SUB 60
  50 NEXT i
  55 GO TO 150
  60 FOR d=1 TO a
  70 FOR e=3 TO 4
  80 OUT 119,e
  90 PAUSE 2.5
 100 NEXT e
 110 OUT 119,1
 120 OUT 119,2
 130 NEXT d
 140 RETURN
 150 FOR i=1 TO 2000
 165 IF IN 119=133 THEN CLS : PR
INT FLASH 1;"C O N N E C T E D !
 !": GO TO 200
 168 NEXT i
 170 OUT 119,0
 175 PAUSE 100
 180 GO TO 3
 200 FOR i=1 TO 10: BEEP .05,18:
 NEXT i
 210 LET g$=INKEY$: PRINT AT 10,
0; FLASH 1;"Hit <ENTER> to Start
 MTERM"
 215 IF g$=CHR$ 13 THEN GO TO 22
0
 218 GO TO 200
 220 POKE 61157,24: POKE 61158,6
 230 POKE 61170,184: POKE 61172,
184
 240 FOR i=61193 TO 61211: READ
m: POKE i,m: NEXT i
 250 FOR i=61311 TO 61331: POKE
i,32: NEXT i
 260 POKE 61699,21
 280 OUT 119,34: PRINT USR 54016
 300 DATA 254,147,27,95,254,147,
27,95,234,246,50,193,154,89,193,
247,105,105,121,195