Home » Archimedes archive » Acorn User » AU 1994-09.adf » !StarInfo_Star » Jefferies/Rock
Jefferies/Rock
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 » Archimedes archive » Acorn User » AU 1994-09.adf » !StarInfo_Star |
| Filename: | Jefferies/Rock |
| Read OK: | ✔ |
| File size: | 01E6 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM>Rock 20REM April 94 30MODE9 40FORC%=0TO15 50COLOURC%,C%*17,C%*17,C%*17 60NEXT 70OFF 80res%=4 90GCOL0,8:RECTANGLEFILL 0,0,1280,1024 100FORY%=res%TO1024-res%STEPres% 110FORX%=res%TO1280-res%STEPres% 120c=(POINT(X%-res%,Y%)+POINT(X%,Y%-res%))/2 130C%=c 140IFC%<>c ANDRND>0 C%+=1 150C%+=RND(3)-2 160IFC%<0 C%=0 170IFC%>15 C%=15 180GCOL0,C% 190RECTANGLEFILL X%,Y%,res%-1 200NEXT 210NEXT 220: 230R%=0:G%=0:B%=0 240REPEAT 250FORX%=0TO15 260COLOUR X%,127*(SINRADR%+1),127*(COSRAD(G%+16)+1),127*(-SINRAD(B%+24)+1) 270R%+=5 280G%-=7 290B%+=9 300NEXT 310R%-=75:G%+=105:B%-=135 320WAIT 330UNTIL0
�>Rock � April 94 �9 ( �C%=0�15 2�C%,C%*17,C%*17,C%*17 <� F� P res%=4 Z�0,8:ȓȐ 0,0,1280,1024 d�Y%=res%�1024-res%�res% n�X%=res%�1280-res%�res% x#c=(�X%-res%,Y%)+�X%,Y%-res%))/2 �C%=c ��C%<>c ��>0 C%+=1 �C%+=�(3)-2 ��C%<0 C%=0 ��C%>15 C%=15 � �0,C% �ȓȐ X%,Y%,res%-1 �� �� �: �R%=0:G%=0:B%=0 �� � �X%=0�15 :� X%,127*(��R%+1),127*(��(G%+16)+1),127*(-��(B%+24)+1) R%+=5 G%-=7 " B%+=9 ,� 6R%-=75:G%+=105:B%-=135 @Ȗ J�0 �
00000000 0d 00 0a 0a f4 3e 52 6f 63 6b 0d 00 14 0e f4 20 |.....>Rock..... | 00000010 41 70 72 69 6c 20 39 34 0d 00 1e 06 eb 39 0d 00 |April 94.....9..| 00000020 28 0c e3 43 25 3d 30 b8 31 35 0d 00 32 19 fb 43 |(..C%=0.15..2..C| 00000030 25 2c 43 25 2a 31 37 2c 43 25 2a 31 37 2c 43 25 |%,C%*17,C%*17,C%| 00000040 2a 31 37 0d 00 3c 05 ed 0d 00 46 05 87 0d 00 50 |*17..<....F....P| 00000050 0a 72 65 73 25 3d 34 0d 00 5a 1b e6 30 2c 38 3a |.res%=4..Z..0,8:| 00000060 c8 93 c8 90 20 30 2c 30 2c 31 32 38 30 2c 31 30 |.... 0,0,1280,10| 00000070 32 34 0d 00 64 1b e3 59 25 3d 72 65 73 25 b8 31 |24..d..Y%=res%.1| 00000080 30 32 34 2d 72 65 73 25 88 72 65 73 25 0d 00 6e |024-res%.res%..n| 00000090 1b e3 58 25 3d 72 65 73 25 b8 31 32 38 30 2d 72 |..X%=res%.1280-r| 000000a0 65 73 25 88 72 65 73 25 0d 00 78 23 63 3d 28 b0 |es%.res%..x#c=(.| 000000b0 58 25 2d 72 65 73 25 2c 59 25 29 2b b0 58 25 2c |X%-res%,Y%)+.X%,| 000000c0 59 25 2d 72 65 73 25 29 29 2f 32 0d 00 82 08 43 |Y%-res%))/2....C| 000000d0 25 3d 63 0d 00 8c 15 e7 43 25 3c 3e 63 20 80 b3 |%=c.....C%<>c ..| 000000e0 3e 30 20 43 25 2b 3d 31 0d 00 96 0e 43 25 2b 3d |>0 C%+=1....C%+=| 000000f0 b3 28 33 29 2d 32 0d 00 a0 0e e7 43 25 3c 30 20 |.(3)-2.....C%<0 | 00000100 43 25 3d 30 0d 00 aa 10 e7 43 25 3e 31 35 20 43 |C%=0.....C%>15 C| 00000110 25 3d 31 35 0d 00 b4 09 e6 30 2c 43 25 0d 00 be |%=15.....0,C%...| 00000120 15 c8 93 c8 90 20 58 25 2c 59 25 2c 72 65 73 25 |..... X%,Y%,res%| 00000130 2d 31 0d 00 c8 05 ed 0d 00 d2 05 ed 0d 00 dc 05 |-1..............| 00000140 3a 0d 00 e6 12 52 25 3d 30 3a 47 25 3d 30 3a 42 |:....R%=0:G%=0:B| 00000150 25 3d 30 0d 00 f0 05 f5 0d 00 fa 0c e3 58 25 3d |%=0..........X%=| 00000160 30 b8 31 35 0d 01 04 3a fb 20 58 25 2c 31 32 37 |0.15...:. X%,127| 00000170 2a 28 b5 b2 52 25 2b 31 29 2c 31 32 37 2a 28 9b |*(..R%+1),127*(.| 00000180 b2 28 47 25 2b 31 36 29 2b 31 29 2c 31 32 37 2a |.(G%+16)+1),127*| 00000190 28 2d b5 b2 28 42 25 2b 32 34 29 2b 31 29 0d 01 |(-..(B%+24)+1)..| 000001a0 0e 09 52 25 2b 3d 35 0d 01 18 09 47 25 2d 3d 37 |..R%+=5....G%-=7| 000001b0 0d 01 22 09 42 25 2b 3d 39 0d 01 2c 05 ed 0d 01 |..".B%+=9..,....| 000001c0 36 1a 52 25 2d 3d 37 35 3a 47 25 2b 3d 31 30 35 |6.R%-=75:G%+=105| 000001d0 3a 42 25 2d 3d 31 33 35 0d 01 40 06 c8 96 0d 01 |:B%-=135..@.....| 000001e0 4a 06 fd 30 0d ff |J..0..| 000001e6
.