Home » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_199403_2.adf » Disk2Mar94 » !AWMar94/Goodies/yass/!Yass2/Savers/Oval
!AWMar94/Goodies/yass/!Yass2/Savers/Oval
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/Oval |
| Read OK: | ✔ |
| File size: | 0337 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1REM
2REM Yass 2 Screen Saver Module : Oval
3REM
4REM LEN copyright Ian Palmer, 1993
5REM
6
7DEFFNoval_start
8LOCAL A%,B%
9oval%=FNmalloc(24*8):IF oval%=0 THEN =TRUE
10PROCclearscreen(-1)
11FOR A%=0 TO 7:B%=A%*24+oval%
12!B%=128+RND(max_x%-256):B%!4=128+RND(max_y%-256):B%!8=4*RND(16):B%!12=(8*RND(2))-12:B%!16=RND(9)-5:B%!20=RND(9)-5
13PROCset_colour(3,A%+8):MOVE !B%,B%!4:MOVE !B%+B%!8,B%!4:PLOT 197,!B%,B%!4+128
14NEXT
15=0
16
17DEFFNoval_poll
18LOCAL A%,B%
19FOR A%=0 TO 7:B%=A%*24+oval%
20PROCset_colour(3,A%+8):MOVE !B%,B%!4:MOVE !B%+B%!8,B%!4:PLOT 197,!B%,B%!4+128
21B%!8+=B%!12:IF B%!8=128 OR B%!8=0 THEN B%!12=-B%!12
22!B%+=B%!16:IF !B%>=(max_x%-128) OR !B%<=128 THEN B%!16=-B%!16
23B%!4+=B%!20:IF B%!4>=(max_y%-128) OR B%!4<=128 THEN B%!20=-B%!20
24MOVE !B%,B%!4:MOVE !B%+B%!8,B%!4:PLOT 197,!B%,B%!4+128
25NEXT:IF now_going%>12000 THEN =TRUE
26=0
27
28DEFFNoval_stop
29PROCfree(oval%)
30=0
31
� '� Yass 2 Screen Saver Module : Oval � "� � copyright Ian Palmer, 1993 � ݤoval_start � A%,B% &oval%=�malloc(24*8):� oval%=0 � =� �clearscreen(-1) � A%=0 � 7:B%=A%*24+oval% i!B%=128+�(max_x%-256):B%!4=128+�(max_y%-256):B%!8=4*�(16):B%!12=(8*�(2))-12:B%!16=�(9)-5:B%!20=�(9)-5 E�set_colour(3,A%+8):� !B%,B%!4:� !B%+B%!8,B%!4:� 197,!B%,B%!4+128 � =0 ݤoval_poll � A%,B% � A%=0 � 7:B%=A%*24+oval% E�set_colour(3,A%+8):� !B%,B%!4:� !B%+B%!8,B%!4:� 197,!B%,B%!4+128 2B%!8+=B%!12:� B%!8=128 � B%!8=0 � B%!12=-B%!12 <!B%+=B%!16:� !B%>=(max_x%-128) � !B%<=128 � B%!16=-B%!16 ?B%!4+=B%!20:� B%!4>=(max_y%-128) � B%!4<=128 � B%!20=-B%!20 1� !B%,B%!4:� !B%+B%!8,B%!4:� 197,!B%,B%!4+128 �:� now_going%>12000 � =� =0 ݤoval_stop �free(oval%) =0 �
00000000 0d 00 01 05 f4 0d 00 02 27 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 4f 76 61 6c 0d 00 03 05 |odule : Oval....| 00000030 f4 0d 00 04 22 f4 20 a9 20 63 6f 70 79 72 69 67 |....". . copyrig| 00000040 68 74 20 49 61 6e 20 50 61 6c 6d 65 72 2c 20 31 |ht Ian Palmer, 1| 00000050 39 39 33 0d 00 05 05 f4 0d 00 06 04 0d 00 07 10 |993.............| 00000060 dd a4 6f 76 61 6c 5f 73 74 61 72 74 0d 00 08 0b |..oval_start....| 00000070 ea 20 41 25 2c 42 25 0d 00 09 26 6f 76 61 6c 25 |. A%,B%...&oval%| 00000080 3d a4 6d 61 6c 6c 6f 63 28 32 34 2a 38 29 3a e7 |=.malloc(24*8):.| 00000090 20 6f 76 61 6c 25 3d 30 20 8c 20 3d b9 0d 00 0a | oval%=0 . =....| 000000a0 14 f2 63 6c 65 61 72 73 63 72 65 65 6e 28 2d 31 |..clearscreen(-1| 000000b0 29 0d 00 0b 1d e3 20 41 25 3d 30 20 b8 20 37 3a |)..... A%=0 . 7:| 000000c0 42 25 3d 41 25 2a 32 34 2b 6f 76 61 6c 25 0d 00 |B%=A%*24+oval%..| 000000d0 0c 69 21 42 25 3d 31 32 38 2b b3 28 6d 61 78 5f |.i!B%=128+.(max_| 000000e0 78 25 2d 32 35 36 29 3a 42 25 21 34 3d 31 32 38 |x%-256):B%!4=128| 000000f0 2b b3 28 6d 61 78 5f 79 25 2d 32 35 36 29 3a 42 |+.(max_y%-256):B| 00000100 25 21 38 3d 34 2a b3 28 31 36 29 3a 42 25 21 31 |%!8=4*.(16):B%!1| 00000110 32 3d 28 38 2a b3 28 32 29 29 2d 31 32 3a 42 25 |2=(8*.(2))-12:B%| 00000120 21 31 36 3d b3 28 39 29 2d 35 3a 42 25 21 32 30 |!16=.(9)-5:B%!20| 00000130 3d b3 28 39 29 2d 35 0d 00 0d 45 f2 73 65 74 5f |=.(9)-5...E.set_| 00000140 63 6f 6c 6f 75 72 28 33 2c 41 25 2b 38 29 3a ec |colour(3,A%+8):.| 00000150 20 21 42 25 2c 42 25 21 34 3a ec 20 21 42 25 2b | !B%,B%!4:. !B%+| 00000160 42 25 21 38 2c 42 25 21 34 3a f0 20 31 39 37 2c |B%!8,B%!4:. 197,| 00000170 21 42 25 2c 42 25 21 34 2b 31 32 38 0d 00 0e 05 |!B%,B%!4+128....| 00000180 ed 0d 00 0f 06 3d 30 0d 00 10 04 0d 00 11 0f dd |.....=0.........| 00000190 a4 6f 76 61 6c 5f 70 6f 6c 6c 0d 00 12 0b ea 20 |.oval_poll..... | 000001a0 41 25 2c 42 25 0d 00 13 1d e3 20 41 25 3d 30 20 |A%,B%..... A%=0 | 000001b0 b8 20 37 3a 42 25 3d 41 25 2a 32 34 2b 6f 76 61 |. 7:B%=A%*24+ova| 000001c0 6c 25 0d 00 14 45 f2 73 65 74 5f 63 6f 6c 6f 75 |l%...E.set_colou| 000001d0 72 28 33 2c 41 25 2b 38 29 3a ec 20 21 42 25 2c |r(3,A%+8):. !B%,| 000001e0 42 25 21 34 3a ec 20 21 42 25 2b 42 25 21 38 2c |B%!4:. !B%+B%!8,| 000001f0 42 25 21 34 3a f0 20 31 39 37 2c 21 42 25 2c 42 |B%!4:. 197,!B%,B| 00000200 25 21 34 2b 31 32 38 0d 00 15 32 42 25 21 38 2b |%!4+128...2B%!8+| 00000210 3d 42 25 21 31 32 3a e7 20 42 25 21 38 3d 31 32 |=B%!12:. B%!8=12| 00000220 38 20 84 20 42 25 21 38 3d 30 20 8c 20 42 25 21 |8 . B%!8=0 . B%!| 00000230 31 32 3d 2d 42 25 21 31 32 0d 00 16 3c 21 42 25 |12=-B%!12...<!B%| 00000240 2b 3d 42 25 21 31 36 3a e7 20 21 42 25 3e 3d 28 |+=B%!16:. !B%>=(| 00000250 6d 61 78 5f 78 25 2d 31 32 38 29 20 84 20 21 42 |max_x%-128) . !B| 00000260 25 3c 3d 31 32 38 20 8c 20 42 25 21 31 36 3d 2d |%<=128 . B%!16=-| 00000270 42 25 21 31 36 0d 00 17 3f 42 25 21 34 2b 3d 42 |B%!16...?B%!4+=B| 00000280 25 21 32 30 3a e7 20 42 25 21 34 3e 3d 28 6d 61 |%!20:. B%!4>=(ma| 00000290 78 5f 79 25 2d 31 32 38 29 20 84 20 42 25 21 34 |x_y%-128) . B%!4| 000002a0 3c 3d 31 32 38 20 8c 20 42 25 21 32 30 3d 2d 42 |<=128 . B%!20=-B| 000002b0 25 21 32 30 0d 00 18 31 ec 20 21 42 25 2c 42 25 |%!20...1. !B%,B%| 000002c0 21 34 3a ec 20 21 42 25 2b 42 25 21 38 2c 42 25 |!4:. !B%+B%!8,B%| 000002d0 21 34 3a f0 20 31 39 37 2c 21 42 25 2c 42 25 21 |!4:. 197,!B%,B%!| 000002e0 34 2b 31 32 38 0d 00 19 1d ed 3a e7 20 6e 6f 77 |4+128.....:. now| 000002f0 5f 67 6f 69 6e 67 25 3e 31 32 30 30 30 20 8c 20 |_going%>12000 . | 00000300 3d b9 0d 00 1a 06 3d 30 0d 00 1b 04 0d 00 1c 0f |=.....=0........| 00000310 dd a4 6f 76 61 6c 5f 73 74 6f 70 0d 00 1d 10 f2 |..oval_stop.....| 00000320 66 72 65 65 28 6f 76 61 6c 25 29 0d 00 1e 06 3d |free(oval%)....=| 00000330 30 0d 00 1f 04 0d ff |0......| 00000337
.