Home » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_199403_2.adf » Disk2Mar94 » !AWMar94/Goodies/yass/!Yass2/Savers/Rain
!AWMar94/Goodies/yass/!Yass2/Savers/Rain
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 » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_199403_2.adf » Disk2Mar94 |
| Filename: | !AWMar94/Goodies/yass/!Yass2/Savers/Rain |
| Read OK: | ✔ |
| File size: | 00D5 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM 20 30DEFFNrain_start 60=1 70 80DEFFNrain_poll 81LOCAL C% 82C%=RND(4)-1:IF C%=3 PROCset_colour(2,7):ELSE PROCset_colour(1,1<<C%) 83CIRCLE FILL RND(max_x%),RND(max_y%),8 84IF now_going%>12000 THEN =TRUE 160=0 170 180DEFFNrain_stop 190=0 200
� ݤrain_start <=1 F Pݤrain_poll Q� C% R<C%=�(4)-1:� C%=3 �set_colour(2,7):� �set_colour(1,1<<C%) S ȏ Ȑ �(max_x%),�(max_y%),8 T� now_going%>12000 � =� �=0 � �ݤrain_stop �=0 � �
00000000 0d 00 0a 05 f4 0d 00 14 04 0d 00 1e 10 dd a4 72 |...............r| 00000010 61 69 6e 5f 73 74 61 72 74 0d 00 3c 06 3d 31 0d |ain_start..<.=1.| 00000020 00 46 04 0d 00 50 0f dd a4 72 61 69 6e 5f 70 6f |.F...P...rain_po| 00000030 6c 6c 0d 00 51 08 ea 20 43 25 0d 00 52 3c 43 25 |ll..Q.. C%..R<C%| 00000040 3d b3 28 34 29 2d 31 3a e7 20 43 25 3d 33 20 f2 |=.(4)-1:. C%=3 .| 00000050 73 65 74 5f 63 6f 6c 6f 75 72 28 32 2c 37 29 3a |set_colour(2,7):| 00000060 8b 20 f2 73 65 74 5f 63 6f 6c 6f 75 72 28 31 2c |. .set_colour(1,| 00000070 31 3c 3c 43 25 29 0d 00 53 1f c8 8f 20 c8 90 20 |1<<C%)..S... .. | 00000080 b3 28 6d 61 78 5f 78 25 29 2c b3 28 6d 61 78 5f |.(max_x%),.(max_| 00000090 79 25 29 2c 38 0d 00 54 1b e7 20 6e 6f 77 5f 67 |y%),8..T.. now_g| 000000a0 6f 69 6e 67 25 3e 31 32 30 30 30 20 8c 20 3d b9 |oing%>12000 . =.| 000000b0 0d 00 a0 06 3d 30 0d 00 aa 04 0d 00 b4 0f dd a4 |....=0..........| 000000c0 72 61 69 6e 5f 73 74 6f 70 0d 00 be 06 3d 30 0d |rain_stop....=0.| 000000d0 00 c8 04 0d ff |.....| 000000d5
.