Parallax BASIC Stamp 2e Programming Manual page 116

EEPROM - BASIC Stamp Command Reference
Demo Program (EEPROM.bas)
This program stores a couple of text strings into EEPROM with the EEPROM directive and
then sends them, one character at a time via the SEROUT command. This is a good
demonstration of how to save program space by storing large amounts of data in EEPROM
directly, rather than embedding the data into SEROUT commands.
'{$STAMP BS1}
'-----Define variables-----
SYMBOL Index = B0 'Holds current location number
SYMBOL Phrase = B1
SYMBOL Character = B2 'Holds current character to print
'-----Define all text phrases -----
EEPROM ("Here is a long message that needs to be transmitted.", 255)
EEPROM ("Here is some more text to be transmitted.", 255)
'-----Main Routine-----
Main:
Index = 0
FOR Phrase = 1 TO 2
GOSUB PrintIt
PAUSE 12000
NEXT
END
'-----PrintIt Subroutine-----
PrintIt:
READ Index, Character
IF Character = 255 THEN Done
SEROUT 0,N2400,(Character)
Index = Index + 1 'Increment Index to the next EEPROM location
GOTO PrintIt
Done:
RETURN
Page 114 • BASIC Stamp Programming Manual 2.0b • www.parallaxinc.com
'STAMP directive (specifies a BS1)
'Pause for 12 seconds in between text blocks
'Get next character
'If it is 255, we're done with this block
'Otherwise, transmit it
'Loop again
'Return to the main routine
1