Parallax BASIC Stamp 2e Programming Manual page 112

DTMFOUT - BASIC Stamp Command Reference
DTdigit VAR EEBYTE.highNIB
Phone VAR NIB
HiLo VAR BIT
'-----Define data-----
Parallax DATA $19,$16,$62,$48,$33,$3F ' Phone: 1-916-624-8333
ParallaxFax DATA $19,$16,$62,$48,$00,$3F ' Phone: 1-916-624-8003
Information DATA $15,$20,$55,$51,$21,$2F ' Phone: 1-520-555-1212
'-----Main Routine-----
FOR Phone = 0 TO 2
EEPROM.
LOOKUP Phone,[Parallax,ParallaxFax,Information],EEloc
Dial:
READ EEloc,EEByte
FOR HiLo = 0 to 1
IF DTdigit = $F THEN Done
DTMFout 11,[DTdigit]
EEBYTE = EEBYTE << 4
NEXT
EEloc = EEloc + 1
GOTO dial
done:
PAUSE 2000
NEXT
STOP
Page 110 • BASIC Stamp Programming Manual 2.0b • www.parallaxinc.com
' Digit to dial.
' Pick a phone #.
' Bit to select upper and lower nibble.
' For each phone #, get location of # in
' Retrieve byte from EEPROM.
' Dial upper and lower digits.
' Hex $F is end-of-number flag
' Dial digit.
' Shift in next digit.
' next pair of digits.
' Keep dialing until done ($F in DTdigit).
' This number is done.
' Wait a couple of seconds.
' Dial next phone number.