Parallax BASIC Stamp 2e - Page 112

DTMFOUT - BASIC Stamp Command Reference
Page 110 • BASIC Stamp Programming Manual 2.0b • www.parallaxinc.com
DTdigit VAR EEBYTE.highNIB ' Digit to dial.
Phone VAR NIB ' Pick a phone #.
HiLo VAR BIT ' Bit to select upper and lower nibble.
'-----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 ' For each phone #, get location of # in
EEPROM.
LOOKUP Phone,[Parallax,ParallaxFax,Information],EEloc
Dial:
READ EEloc,EEByte ' Retrieve byte from EEPROM.
FOR HiLo = 0 to 1 ' Dial upper and lower digits.
IF DTdigit = $F THEN Done ' Hex $F is end-of-number flag
DTMFout 11,[DTdigit] ' Dial digit.
EEBYTE = EEBYTE << 4 ' Shift in next digit.
NEXT
EEloc = EEloc + 1 ' next pair of digits.
GOTO dial ' Keep dialing until done ($F in DTdigit).
done: ' This number is done.
PAUSE 2000 ' Wait a couple of seconds.
NEXT
' Dial next phone number.
STOP