Parallax BASIC Stamp 2e - Page 273

5: BASIC Stamp Command Reference – RUN
BASIC Stamp Programming Manual 2.0c • www.parallaxinc.com • Page 271
DATA 200, 65, 23, 70, 90
ProgNum VAR BYTE
Value VAR BYTE
Index VAR BYTE
GET 63, ProgNum
DEBUG "Program #", DEC ProgNum, CR
FOR Index = 0 TO 4
READ ProgNum*5+Index, Value
DEBUG DEC3 Value, " "
NEXT
DEBUG CR
PAUSE 1000
RUN 1
Demo Program (RUN2.bsx)
' This example demonstrates the use of the RUN command. First, location 63 is read
' using the GET command to display the currently running program number. Then a set
' of values (based on the program number) are displayed on the screen. Afterwards,
' program number 0 is run. This program is a BS2sx project consisting of RUN1.bsx and
' RUN2.bsx. See the BASIC Stamp Project section in the manual for more information.
'{$STAMP BS2sx} 'STAMP directive (specifies a BS2sx and
'a second program, RUN2.BSX)
DATA 100, 40, 80, 35, 91
DATA 200, 65, 23, 70, 90
ProgNum VAR BYTE
Value VAR BYTE
Index VAR BYTE
GET 63, ProgNum
DEBUG "Program #", DEC ProgNum, CR
FOR Index = 0 TO 4
READ ProgNum*5+Index, Value
DEBUG DEC3 Value, " "
NEXT
DEBUG CR
PAUSE 1000
RUN 0
e
2
sx
2
p
2
NOTE: This is written for the BS2sx
but can be used for the BS2e, and
BS2p also. Locate the proper
source code file or modify the
STAMP directive before
downloading to the BS2e, or BS2p.