Home » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_199403_2.adf » Disk2Mar94 » !AWMar94/Goodies/yass/!Yass2/Savers/Meltdown
!AWMar94/Goodies/yass/!Yass2/Savers/Meltdown
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/Meltdown |
| Read OK: | ✔ |
| File size: | 0145 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM 20REM Yass 2 Screen Saver Module : Meltdown 30REM 40REM LEN copyright Ian Palmer 1993 50REM 60 70DEFFNmeltdown_start 90=1 100 110DEFFNmeltdown_poll 120LOCAL X% 130X%=RND(max_x%)-1:PROCset_colour(0,135):PROCset_colour(0,7) 140RECTANGLE X%,0,4,max_y% TO X%,-8:RECTANGLE FILL X%,max_y%-8,4,8 170IF now_going%>24000 THEN =TRUE 180=FALSE 190 200DEFFNmeltdown_stop 210=0 220
� +� Yass 2 Screen Saver Module : Meltdown � (!� � copyright Ian Palmer 1993 2� < Fݤmeltdown_start Z=1 d nݤmeltdown_poll x� X% �6X%=�(max_x%)-1:�set_colour(0,135):�set_colour(0,7) �2ȓ X%,0,4,max_y% � X%,-8:ȓ Ȑ X%,max_y%-8,4,8 �� now_going%>24000 � =� �=� � �ݤmeltdown_stop �=0 � �
00000000 0d 00 0a 05 f4 0d 00 14 2b f4 20 59 61 73 73 20 |........+. Yass | 00000010 32 20 53 63 72 65 65 6e 20 53 61 76 65 72 20 4d |2 Screen Saver M| 00000020 6f 64 75 6c 65 20 3a 20 4d 65 6c 74 64 6f 77 6e |odule : Meltdown| 00000030 0d 00 1e 05 f4 0d 00 28 21 f4 20 a9 20 63 6f 70 |.......(!. . cop| 00000040 79 72 69 67 68 74 20 49 61 6e 20 50 61 6c 6d 65 |yright Ian Palme| 00000050 72 20 31 39 39 33 0d 00 32 05 f4 0d 00 3c 05 20 |r 1993..2....<. | 00000060 0d 00 46 14 dd a4 6d 65 6c 74 64 6f 77 6e 5f 73 |..F...meltdown_s| 00000070 74 61 72 74 0d 00 5a 06 3d 31 0d 00 64 04 0d 00 |tart..Z.=1..d...| 00000080 6e 13 dd a4 6d 65 6c 74 64 6f 77 6e 5f 70 6f 6c |n...meltdown_pol| 00000090 6c 0d 00 78 08 ea 20 58 25 0d 00 82 36 58 25 3d |l..x.. X%...6X%=| 000000a0 b3 28 6d 61 78 5f 78 25 29 2d 31 3a f2 73 65 74 |.(max_x%)-1:.set| 000000b0 5f 63 6f 6c 6f 75 72 28 30 2c 31 33 35 29 3a f2 |_colour(0,135):.| 000000c0 73 65 74 5f 63 6f 6c 6f 75 72 28 30 2c 37 29 0d |set_colour(0,7).| 000000d0 00 8c 32 c8 93 20 58 25 2c 30 2c 34 2c 6d 61 78 |..2.. X%,0,4,max| 000000e0 5f 79 25 20 b8 20 58 25 2c 2d 38 3a c8 93 20 c8 |_y% . X%,-8:.. .| 000000f0 90 20 58 25 2c 6d 61 78 5f 79 25 2d 38 2c 34 2c |. X%,max_y%-8,4,| 00000100 38 0d 00 aa 1b e7 20 6e 6f 77 5f 67 6f 69 6e 67 |8..... now_going| 00000110 25 3e 32 34 30 30 30 20 8c 20 3d b9 0d 00 b4 06 |%>24000 . =.....| 00000120 3d a3 0d 00 be 04 0d 00 c8 13 dd a4 6d 65 6c 74 |=...........melt| 00000130 64 6f 77 6e 5f 73 74 6f 70 0d 00 d2 06 3d 30 0d |down_stop....=0.| 00000140 00 dc 04 0d ff |.....| 00000145
.