Home » Personal collection » Acorn tapes » Own_Work » drawer_tl_tape05a_c15_acorn_railway.wav » Sch.Badge1
Sch.Badge1
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 » Personal collection » Acorn tapes » Own_Work » drawer_tl_tape05a_c15_acorn_railway.wav |
| Filename: | Sch.Badge1 |
| Read OK: | ✔ |
| File size: | 01CE bytes |
| Load address: | FFFF0E00 |
| Exec address: | FFFF8023 |
File contents
10MODE5:VDU19,1,2,0;0;19,2,6,0;0;0; 20VDU19,3,3,0;0;0;:s=0 30COLOUR130:GCOL0,1:CLS:MOVE0,0 40MOVE1300,0:PLOT85,0,500 50PLOT85,1300,500:z=500:z2=900 60FORlo=0 TO 1300 70 IF lo=1301 THEN 250 80r=RND(RND(2)+1) 90IFr=1 THENz=z-1 100IFr=2 THENz=z+1 110IFr=3 THENz=z+1 120IFz>700 THEN z=680 130MOVElo,z:DRAWlo,500 140 IFz2<z+10 THEN s=1:NEXT 145 IF lo=1301 THEN 250 150 IFs=1 THEN NEXT 160GCOL0,3 170r2=RND(RND(2)+1) 180IFr2=1 THENz2=z2-1 190IFr2=2 THENz2=z2+1 200IFr2=3 THENz2=z2-1 210IFz2<z THEN z2=z+10 220IFz2>1000 THEN z2=990 230MOVElo,z:DRAWlo,z2 240GCOL0,1:NEXT 250
�5:�19,1,2,0;0;19,2,6,0;0;0; �19,3,3,0;0;0;:s=0 �130:�0,1:�:�0,0 (�1300,0:�85,0,500 2 �85,1300,500:z=500:z2=900 <�lo=0 � 1300 F � lo=1301 � �dz@ Pr=�(�(2)+1) Z�r=1 �z=z-1 d�r=2 �z=z+1 n�r=3 �z=z+1 x�z>700 � z=680 ��lo,z:�lo,500 � �z2<z+10 � s=1:� � � lo=1301 � �dz@ � �s=1 � � ��0,3 �r2=�(�(2)+1) ��r2=1 �z2=z2-1 ��r2=2 �z2=z2+1 ��r2=3 �z2=z2-1 ��z2<z � z2=z+10 ��z2>1000 � z2=990 ��lo,z:�lo,z2 � �0,1:� � �
00000000 0d 00 0a 20 eb 35 3a ef 31 39 2c 31 2c 32 2c 30 |... .5:.19,1,2,0| 00000010 3b 30 3b 31 39 2c 32 2c 36 2c 30 3b 30 3b 30 3b |;0;19,2,6,0;0;0;| 00000020 0d 00 14 16 ef 31 39 2c 33 2c 33 2c 30 3b 30 3b |.....19,3,3,0;0;| 00000030 30 3b 3a 73 3d 30 0d 00 1e 14 fb 31 33 30 3a e6 |0;:s=0.....130:.| 00000040 30 2c 31 3a db 3a ec 30 2c 30 0d 00 28 15 ec 31 |0,1:.:.0,0..(..1| 00000050 33 30 30 2c 30 3a f0 38 35 2c 30 2c 35 30 30 0d |300,0:.85,0,500.| 00000060 00 32 1d f0 38 35 2c 31 33 30 30 2c 35 30 30 3a |.2..85,1300,500:| 00000070 7a 3d 35 30 30 3a 7a 32 3d 39 30 30 0d 00 3c 10 |z=500:z2=900..<.| 00000080 e3 6c 6f 3d 30 20 b8 20 31 33 30 30 0d 00 46 15 |.lo=0 . 1300..F.| 00000090 20 e7 20 6c 6f 3d 31 33 30 31 20 8c 20 8d 64 7a | . lo=1301 . .dz| 000000a0 40 0d 00 50 0f 72 3d b3 28 b3 28 32 29 2b 31 29 |@..P.r=.(.(2)+1)| 000000b0 0d 00 5a 0f e7 72 3d 31 20 8c 7a 3d 7a 2d 31 0d |..Z..r=1 .z=z-1.| 000000c0 00 64 0f e7 72 3d 32 20 8c 7a 3d 7a 2b 31 0d 00 |.d..r=2 .z=z+1..| 000000d0 6e 0f e7 72 3d 33 20 8c 7a 3d 7a 2b 31 0d 00 78 |n..r=3 .z=z+1..x| 000000e0 12 e7 7a 3e 37 30 30 20 8c 20 7a 3d 36 38 30 0d |..z>700 . z=680.| 000000f0 00 82 11 ec 6c 6f 2c 7a 3a df 6c 6f 2c 35 30 30 |....lo,z:.lo,500| 00000100 0d 00 8c 15 20 e7 7a 32 3c 7a 2b 31 30 20 8c 20 |.... .z2<z+10 . | 00000110 73 3d 31 3a ed 0d 00 91 15 20 e7 20 6c 6f 3d 31 |s=1:..... . lo=1| 00000120 33 30 31 20 8c 20 8d 64 7a 40 0d 00 96 0d 20 e7 |301 . .dz@.... .| 00000130 73 3d 31 20 8c 20 ed 0d 00 a0 08 e6 30 2c 33 0d |s=1 . ......0,3.| 00000140 00 aa 10 72 32 3d b3 28 b3 28 32 29 2b 31 29 0d |...r2=.(.(2)+1).| 00000150 00 b4 12 e7 72 32 3d 31 20 8c 7a 32 3d 7a 32 2d |....r2=1 .z2=z2-| 00000160 31 0d 00 be 12 e7 72 32 3d 32 20 8c 7a 32 3d 7a |1.....r2=2 .z2=z| 00000170 32 2b 31 0d 00 c8 12 e7 72 32 3d 33 20 8c 7a 32 |2+1.....r2=3 .z2| 00000180 3d 7a 32 2d 31 0d 00 d2 13 e7 7a 32 3c 7a 20 8c |=z2-1.....z2<z .| 00000190 20 7a 32 3d 7a 2b 31 30 0d 00 dc 15 e7 7a 32 3e | z2=z+10.....z2>| 000001a0 31 30 30 30 20 8c 20 7a 32 3d 39 39 30 0d 00 e6 |1000 . z2=990...| 000001b0 10 ec 6c 6f 2c 7a 3a df 6c 6f 2c 7a 32 0d 00 f0 |..lo,z:.lo,z2...| 000001c0 0a e6 30 2c 31 3a ed 0d 00 fa 05 20 0d ff |..0,1:..... ..| 000001ce
.