Parallax BASIC Stamp 2e, Programming Manual

Page: 116 / 353

EEPROM - BASIC Stamp Command Reference
Page 114
•
BASIC Stamp Programming Manual 2.0b
•
www.parallaxinc.com
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} 'STAMP directive (specifies a 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 'Pause for 12 seconds in between text blocks
NEXT
END
'-----PrintIt Subroutine-----
PrintIt:
READ Index, Character 'Get next character
IF Character = 255 THEN Done 'If it is 255, we're done with this block
SEROUT 0,N2400,(Character) 'Otherwise, transmit it
Index = Index + 1 'Increment Index to the next EEPROM location
GOTO PrintIt 'Loop again
Done:
RETURN 'Return to the main routine
1