Home » Archimedes archive » Acorn User » AU 1994-08.adf » !Education_Education » Control/!Control/Dir/Sparkle/Ride/ride
Control/!Control/Dir/Sparkle/Ride/ride
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn User » AU 1994-08.adf » !Education_Education |
| Filename: | Control/!Control/Dir/Sparkle/Ride/ride |
| Read OK: | ✔ |
| File size: | 00F5 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
; ride repeat call ridestart wait time 800 call ridestop wait time 300 until input 1 on stop ; ; define ridestart output 1 on wait time100 output 1 off output 2 on motor d on enddefine ; define ridestop motor d off output 2 off enddefine ; stop
00000000 3b 20 72 69 64 65 0a 72 65 70 65 61 74 0a 63 61 |; ride.repeat.ca| 00000010 6c 6c 20 72 69 64 65 73 74 61 72 74 0a 77 61 69 |ll ridestart.wai| 00000020 74 20 74 69 6d 65 20 38 30 30 0a 63 61 6c 6c 20 |t time 800.call | 00000030 72 69 64 65 73 74 6f 70 0a 77 61 69 74 20 74 69 |ridestop.wait ti| 00000040 6d 65 20 33 30 30 0a 75 6e 74 69 6c 20 69 6e 70 |me 300.until inp| 00000050 75 74 20 31 20 6f 6e 0a 73 74 6f 70 0a 3b 0a 3b |ut 1 on.stop.;.;| 00000060 0a 64 65 66 69 6e 65 20 72 69 64 65 73 74 61 72 |.define ridestar| 00000070 74 0a 6f 75 74 70 75 74 20 31 20 6f 6e 0a 77 61 |t.output 1 on.wa| 00000080 69 74 20 74 69 6d 65 31 30 30 0a 6f 75 74 70 75 |it time100.outpu| 00000090 74 20 31 20 6f 66 66 0a 6f 75 74 70 75 74 20 32 |t 1 off.output 2| 000000a0 20 6f 6e 0a 6d 6f 74 6f 72 20 64 20 6f 6e 0a 65 | on.motor d on.e| 000000b0 6e 64 64 65 66 69 6e 65 0a 3b 0a 64 65 66 69 6e |nddefine.;.defin| 000000c0 65 20 72 69 64 65 73 74 6f 70 0a 6d 6f 74 6f 72 |e ridestop.motor| 000000d0 20 64 20 6f 66 66 0a 6f 75 74 70 75 74 20 32 20 | d off.output 2 | 000000e0 6f 66 66 0a 65 6e 64 64 65 66 69 6e 65 0a 3b 0a |off.enddefine.;.| 000000f0 73 74 6f 70 0a |stop.| 000000f5
.