Parallax BASIC Stamp 2e, Programming Manual

Page: 98 / 353

DATA - BASIC Stamp Command Reference
Page 96
•
BASIC Stamp Programming Manual 2.0b
•
www.parallaxinc.com
DATA "the character at the EEPROM location pointed to by it, and", CR
DATA "prints it to the screen until if finds a byte with a value", CR
DATA "of 255.", CR, CR, 255
'-----Main Routine-----
Main:
FOR PhraseNum = 1 TO 6 'For all text blocks, print them one by one
LOOKUP PhraseNum-1,[Text1, Text2, Text3, Text4, Text5, Text6], Index
GOSUB PrintIt
PAUSE 12000 'Pause for 12 seconds in between text blocks
NEXT
STOP
'-----PrintIt Subroutine-----
PrintIt:
READ Index, Character 'Get next character
IF Character = 255 THEN Done 'If it is 255, we're done with this block
DEBUG 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