Home » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_199403_2.adf » Disk2Mar94 » !AWMar94/Goodies/yass/!Yass2/Savers/Quilt
!AWMar94/Goodies/yass/!Yass2/Savers/Quilt
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/Quilt |
| Read OK: | ✔ |
| File size: | 0242 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1REM
2REM Yass 2 Screen Saver Module : Quilt
3REM
4REM LEN copyright Ian Palmer, 1993
5REM
6
7DEFFNquilt_start
8q_x%=max_x% DIV 2:q_y%=max_y% DIV 2
9q_dx%=RND(32):q_dy%=RND(32):q_c%=RND(8)+7
10PROCclearscreen(-1)
11=0
12
13DEFFNquilt_poll
14LOCAL x%,y%,X%,Y%
15PROCset_colour(3,q_c%)
16q_x%+=q_dx%:IF q_x%<0 OR q_x%>max_x% q_dx%=-q_dx%:REM q_c%=RND(8)+7
17q_y%+=q_dy%:IF q_y%<0 OR q_y%>max_y% q_dy%=-q_dy%:REM q_c%=RND(8)+7
18x%=q_x%:y%=q_y%:X%=max_x%-q_x%:Y%=max_y%-q_y%
19MOVE x%,y%:DRAW X%,y%:DRAW X%,Y%:DRAW x%,Y%:DRAW x%,y%
20IF (q_x%=max_x% DIV 2) AND (q_y%=max_y% DIV 2) THEN =TRUE
21=FALSE
22
23DEFFNquilt_stop
24=0
� (� Yass 2 Screen Saver Module : Quilt � "� � copyright Ian Palmer, 1993 � ݤquilt_start #q_x%=max_x% � 2:q_y%=max_y% � 2 'q_dx%=�(32):q_dy%=�(32):q_c%=�(8)+7 �clearscreen(-1) =0 ݤquilt_poll � x%,y%,X%,Y% �set_colour(3,q_c%) Cq_x%+=q_dx%:� q_x%<0 � q_x%>max_x% q_dx%=-q_dx%:� q_c%=RND(8)+7 Cq_y%+=q_dy%:� q_y%<0 � q_y%>max_y% q_dy%=-q_dy%:� q_c%=RND(8)+7 1x%=q_x%:y%=q_y%:X%=max_x%-q_x%:Y%=max_y%-q_y% +� x%,y%:� X%,y%:� X%,Y%:� x%,Y%:� x%,y% 0� (q_x%=max_x% � 2) � (q_y%=max_y% � 2) � =� =� ݤquilt_stop =0 �
00000000 0d 00 01 05 f4 0d 00 02 28 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 51 75 69 6c 74 0d 00 03 |odule : Quilt...| 00000030 05 f4 0d 00 04 22 f4 20 a9 20 63 6f 70 79 72 69 |.....". . copyri| 00000040 67 68 74 20 49 61 6e 20 50 61 6c 6d 65 72 2c 20 |ght Ian Palmer, | 00000050 31 39 39 33 0d 00 05 05 f4 0d 00 06 04 0d 00 07 |1993............| 00000060 11 dd a4 71 75 69 6c 74 5f 73 74 61 72 74 0d 00 |...quilt_start..| 00000070 08 23 71 5f 78 25 3d 6d 61 78 5f 78 25 20 81 20 |.#q_x%=max_x% . | 00000080 32 3a 71 5f 79 25 3d 6d 61 78 5f 79 25 20 81 20 |2:q_y%=max_y% . | 00000090 32 0d 00 09 27 71 5f 64 78 25 3d b3 28 33 32 29 |2...'q_dx%=.(32)| 000000a0 3a 71 5f 64 79 25 3d b3 28 33 32 29 3a 71 5f 63 |:q_dy%=.(32):q_c| 000000b0 25 3d b3 28 38 29 2b 37 0d 00 0a 14 f2 63 6c 65 |%=.(8)+7.....cle| 000000c0 61 72 73 63 72 65 65 6e 28 2d 31 29 0d 00 0b 06 |arscreen(-1)....| 000000d0 3d 30 0d 00 0c 04 0d 00 0d 10 dd a4 71 75 69 6c |=0..........quil| 000000e0 74 5f 70 6f 6c 6c 0d 00 0e 11 ea 20 78 25 2c 79 |t_poll..... x%,y| 000000f0 25 2c 58 25 2c 59 25 0d 00 0f 17 f2 73 65 74 5f |%,X%,Y%.....set_| 00000100 63 6f 6c 6f 75 72 28 33 2c 71 5f 63 25 29 0d 00 |colour(3,q_c%)..| 00000110 10 43 71 5f 78 25 2b 3d 71 5f 64 78 25 3a e7 20 |.Cq_x%+=q_dx%:. | 00000120 71 5f 78 25 3c 30 20 84 20 71 5f 78 25 3e 6d 61 |q_x%<0 . q_x%>ma| 00000130 78 5f 78 25 20 71 5f 64 78 25 3d 2d 71 5f 64 78 |x_x% q_dx%=-q_dx| 00000140 25 3a f4 20 71 5f 63 25 3d 52 4e 44 28 38 29 2b |%:. q_c%=RND(8)+| 00000150 37 0d 00 11 43 71 5f 79 25 2b 3d 71 5f 64 79 25 |7...Cq_y%+=q_dy%| 00000160 3a e7 20 71 5f 79 25 3c 30 20 84 20 71 5f 79 25 |:. q_y%<0 . q_y%| 00000170 3e 6d 61 78 5f 79 25 20 71 5f 64 79 25 3d 2d 71 |>max_y% q_dy%=-q| 00000180 5f 64 79 25 3a f4 20 71 5f 63 25 3d 52 4e 44 28 |_dy%:. q_c%=RND(| 00000190 38 29 2b 37 0d 00 12 31 78 25 3d 71 5f 78 25 3a |8)+7...1x%=q_x%:| 000001a0 79 25 3d 71 5f 79 25 3a 58 25 3d 6d 61 78 5f 78 |y%=q_y%:X%=max_x| 000001b0 25 2d 71 5f 78 25 3a 59 25 3d 6d 61 78 5f 79 25 |%-q_x%:Y%=max_y%| 000001c0 2d 71 5f 79 25 0d 00 13 2b ec 20 78 25 2c 79 25 |-q_y%...+. x%,y%| 000001d0 3a df 20 58 25 2c 79 25 3a df 20 58 25 2c 59 25 |:. X%,y%:. X%,Y%| 000001e0 3a df 20 78 25 2c 59 25 3a df 20 78 25 2c 79 25 |:. x%,Y%:. x%,y%| 000001f0 0d 00 14 30 e7 20 28 71 5f 78 25 3d 6d 61 78 5f |...0. (q_x%=max_| 00000200 78 25 20 81 20 32 29 20 80 20 28 71 5f 79 25 3d |x% . 2) . (q_y%=| 00000210 6d 61 78 5f 79 25 20 81 20 32 29 20 8c 20 3d b9 |max_y% . 2) . =.| 00000220 0d 00 15 06 3d a3 0d 00 16 04 0d 00 17 10 dd a4 |....=...........| 00000230 71 75 69 6c 74 5f 73 74 6f 70 0d 00 18 06 3d 30 |quilt_stop....=0| 00000240 0d ff |..| 00000242
.