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