Program:
{ # 0d # 25d }
PICT OVER walk GXOR
5 MAXR FOR i
0.2 WAIT 5 STEP
»
»
`OWALK K
Checksum: # 28684d
Bytes:
250.0
Example: Send the small person out for a walk.
J %WALK%
Press − when you think the walker's tired.
2-40 RPL Programming Examples
i 131 MOD RB
# 25d 2 LIST
PICT OVER walk GXOR
PICT ROT walk GXOR
Comments:
Puts the first position on the stack
and turns on the first image. This
readies the stack and PICT for
the loop.
Starts the loop to generate
horizontal coordinates
indefinitely.
Computes the horizontal
coordinate for the next image.
Specifies a fixed vertical
coordinate. Puts the two
coordinates in a list.
Displays the new image, leaving
its coordinates on the stack.
Turns off the old image,
removing its coordinates from the
stack.
Increments the horizontal
coordinate by 5.
Stores the program in WALK.