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
Summary of Contents for BASIC Stamp 2e
Page 1: ...BASIC Stamp Programming Manual Version 2 0c...
Page 34: ...Quick Start Guide Page 32 BASIC Stamp Programming Manual 2 0b www parallaxinc com...
Page 340: ...ASCII Chart Page 338 BASIC Stamp Programming Manual 2 0b www parallaxinc com...
Page 342: ...Reserved Words Page 340 BASIC Stamp Programming Manual 2 0b www parallaxinc com...
Page 346: ...Conversion Formatters Page 344 BASIC Stamp Programming Manual 2 0b www parallaxinc com...