Home » Archimedes archive » Archimedes World » AW-1991-02.adf » !AWFeb91/Goodies/FeedBack/BigBlot
!AWFeb91/Goodies/FeedBack/BigBlot
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 » Archimedes World » AW-1991-02.adf |
| Filename: | !AWFeb91/Goodies/FeedBack/BigBlot |
| Read OK: | ✔ |
| File size: | 018D bytes |
| Load address: | FFFFFB42 |
| Exec address: | 764EA94A |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Archimedes archive » Archimedes World » AW-1991-02.adf » !AWFeb91/Goodies/FeedBack/BigBlot
- Archimedes archive » Archimedes World » AW-1991-02.adf » !AWFeb91/Goodies/FeedBack/TheBlot
File contents
10 MODE 15 20A=200:B=800 30REM GRASS 40GCOL 4 44C=1 50FOR DN% = A TO B STEP 4 60FOR GL% = A TO B STEP 2 70GC%=RND(256) 80GCOL GC% 90POINT GL%,DN% 100NEXT GL%:NEXTDN% 110: 115A=200:B=800 120FOR Y = A TO B STEP 4 130FOR X = A TO B STEP2 140TL1=POINT(X,Y):TL2=POINT(X+2,Y):TL3=POINT(X+4,Y) 150ML1=POINT(X,Y+4):ML3=POINT(X+4,Y+4) 160BL1=POINT(X,Y+8):BL2=POINT(X+2,Y+8):BL3=POINT(X+4,Y+8) 165P=(TL1+TL2+TL3+ML1+ML3+BL1+BL2+BL3)/8 166REM 199GCOL P:POINT X+1,Y+1 210NEXT X :NEXT Y 220CLEAR:GOTO110
� 15 A=200:B=800 � GRASS (� 4 ,C=1 2� DN% = A � B � 4 <� GL% = A � B � 2 FGC%=�(256) P � GC% ZȒ GL%,DN% d� GL%:�DN% n: sA=200:B=800 x� Y = A � B � 4 �� X = A � B �2 �%TL1=�X,Y):TL2=�X+2,Y):TL3=�X+4,Y) � ML1=�X,Y+4):ML3=�X+4,Y+4) �+BL1=�X,Y+8):BL2=�X+2,Y+8):BL3=�X+4,Y+8) �)P=(TL1+TL2+TL3+ML1+ML3+BL1+BL2+BL3)/8 �� �� P:Ȓ X+1,Y+1 � � X :� Y � �:�Dn@ �
00000000 0d 00 0a 09 20 eb 20 31 35 0d 00 14 0f 41 3d 32 |.... . 15....A=2| 00000010 30 30 3a 42 3d 38 30 30 0d 00 1e 0b f4 20 47 52 |00:B=800..... GR| 00000020 41 53 53 0d 00 28 07 e6 20 34 0d 00 2c 07 43 3d |ASS..(.. 4..,.C=| 00000030 31 0d 00 32 15 e3 20 44 4e 25 20 3d 20 41 20 b8 |1..2.. DN% = A .| 00000040 20 42 20 88 20 34 0d 00 3c 15 e3 20 47 4c 25 20 | B . 4..<.. GL% | 00000050 3d 20 41 20 b8 20 42 20 88 20 32 0d 00 46 0e 47 |= A . B . 2..F.G| 00000060 43 25 3d b3 28 32 35 36 29 0d 00 50 09 e6 20 47 |C%=.(256)..P.. G| 00000070 43 25 0d 00 5a 0e c8 92 20 47 4c 25 2c 44 4e 25 |C%..Z... GL%,DN%| 00000080 0d 00 64 0e ed 20 47 4c 25 3a ed 44 4e 25 0d 00 |..d.. GL%:.DN%..| 00000090 6e 05 3a 0d 00 73 0f 41 3d 32 30 30 3a 42 3d 38 |n.:..s.A=200:B=8| 000000a0 30 30 0d 00 78 13 e3 20 59 20 3d 20 41 20 b8 20 |00..x.. Y = A . | 000000b0 42 20 88 20 34 0d 00 82 12 e3 20 58 20 3d 20 41 |B . 4..... X = A| 000000c0 20 b8 20 42 20 88 32 0d 00 8c 25 54 4c 31 3d b0 | . B .2...%TL1=.| 000000d0 58 2c 59 29 3a 54 4c 32 3d b0 58 2b 32 2c 59 29 |X,Y):TL2=.X+2,Y)| 000000e0 3a 54 4c 33 3d b0 58 2b 34 2c 59 29 0d 00 96 1d |:TL3=.X+4,Y)....| 000000f0 4d 4c 31 3d b0 58 2c 59 2b 34 29 3a 4d 4c 33 3d |ML1=.X,Y+4):ML3=| 00000100 b0 58 2b 34 2c 59 2b 34 29 0d 00 a0 2b 42 4c 31 |.X+4,Y+4)...+BL1| 00000110 3d b0 58 2c 59 2b 38 29 3a 42 4c 32 3d b0 58 2b |=.X,Y+8):BL2=.X+| 00000120 32 2c 59 2b 38 29 3a 42 4c 33 3d b0 58 2b 34 2c |2,Y+8):BL3=.X+4,| 00000130 59 2b 38 29 0d 00 a5 29 50 3d 28 54 4c 31 2b 54 |Y+8)...)P=(TL1+T| 00000140 4c 32 2b 54 4c 33 2b 4d 4c 31 2b 4d 4c 33 2b 42 |L2+TL3+ML1+ML3+B| 00000150 4c 31 2b 42 4c 32 2b 42 4c 33 29 2f 38 0d 00 a6 |L1+BL2+BL3)/8...| 00000160 05 f4 0d 00 c7 12 e6 20 50 3a c8 92 20 58 2b 31 |....... P:.. X+1| 00000170 2c 59 2b 31 0d 00 d2 0c ed 20 58 20 3a ed 20 59 |,Y+1..... X :. Y| 00000180 0d 00 dc 0b d8 3a e5 8d 44 6e 40 0d ff |.....:..Dn@..| 0000018d
.