Home » Archimedes archive » Archimedes World » AW-1991-02.adf » !AWFeb91/Goodies/FeedBack/BigsMalg
!AWFeb91/Goodies/FeedBack/BigsMalg
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/BigsMalg |
| Read OK: | ✔ |
| File size: | 01BA bytes |
| Load address: | FFFFFB42 |
| Exec address: | 75E94FF8 |
File contents
10 MODE 15 20: 30REM GRASS 40GCOL 4 44C=1 50FOR DN% = 400TO 600 STEP 4 60FOR GL% = 400TO 600 70GC%=RND(256) 80GCOL GC% 90POINT GL%,DN% 100NEXT GL%:NEXTDN% 110: 120FOR Y = 410 TO 590STEP 4 130FOR X = 410TO 590STEP2 140TL1=POINT(X,Y):TL2=POINT(X+2,Y):TL3=POINT(X+4,Y) 150ML1=POINT(X,Y+4):ML2=POINT(X+2,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+ML2+ML3+BL1+BL2+BL3)/9 166REM 170G=POINT(X+1,Y+1) 175IF G>P THEN G=G-1 ELSE G=G+1 180: 199GCOL G:POINT X+1,Y+1 210NEXT X :NEXT Y 220CLEAR:GOTO110
� 15 : � GRASS (� 4 ,C=1 2� DN% = 400� 600 � 4 <� GL% = 400� 600 FGC%=�(256) P � GC% ZȒ GL%,DN% d� GL%:�DN% n: x� Y = 410 � 590� 4 �� X = 410� 590�2 �%TL1=�X,Y):TL2=�X+2,Y):TL3=�X+4,Y) �+ML1=�X,Y+4):ML2=�X+2,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+ML2+ML3+BL1+BL2+BL3)/9 �� �G=�X+1,Y+1) �� G>P � G=G-1 � G=G+1 �: �� G:Ȓ X+1,Y+1 � � X :� Y � �:�Dn@ �
00000000 0d 00 0a 09 20 eb 20 31 35 0d 00 14 05 3a 0d 00 |.... . 15....:..| 00000010 1e 0b f4 20 47 52 41 53 53 0d 00 28 07 e6 20 34 |... GRASS..(.. 4| 00000020 0d 00 2c 07 43 3d 31 0d 00 32 18 e3 20 44 4e 25 |..,.C=1..2.. DN%| 00000030 20 3d 20 34 30 30 b8 20 36 30 30 20 88 20 34 0d | = 400. 600 . 4.| 00000040 00 3c 14 e3 20 47 4c 25 20 3d 20 34 30 30 b8 20 |.<.. GL% = 400. | 00000050 36 30 30 0d 00 46 0e 47 43 25 3d b3 28 32 35 36 |600..F.GC%=.(256| 00000060 29 0d 00 50 09 e6 20 47 43 25 0d 00 5a 0e c8 92 |)..P.. GC%..Z...| 00000070 20 47 4c 25 2c 44 4e 25 0d 00 64 0e ed 20 47 4c | GL%,DN%..d.. GL| 00000080 25 3a ed 44 4e 25 0d 00 6e 05 3a 0d 00 78 16 e3 |%:.DN%..n.:..x..| 00000090 20 59 20 3d 20 34 31 30 20 b8 20 35 39 30 88 20 | Y = 410 . 590. | 000000a0 34 0d 00 82 14 e3 20 58 20 3d 20 34 31 30 b8 20 |4..... X = 410. | 000000b0 35 39 30 88 32 0d 00 8c 25 54 4c 31 3d b0 58 2c |590.2...%TL1=.X,| 000000c0 59 29 3a 54 4c 32 3d b0 58 2b 32 2c 59 29 3a 54 |Y):TL2=.X+2,Y):T| 000000d0 4c 33 3d b0 58 2b 34 2c 59 29 0d 00 96 2b 4d 4c |L3=.X+4,Y)...+ML| 000000e0 31 3d b0 58 2c 59 2b 34 29 3a 4d 4c 32 3d b0 58 |1=.X,Y+4):ML2=.X| 000000f0 2b 32 2c 59 2b 34 29 3a 4d 4c 33 3d b0 58 2b 34 |+2,Y+4):ML3=.X+4| 00000100 2c 59 2b 34 29 0d 00 a0 2b 42 4c 31 3d b0 58 2c |,Y+4)...+BL1=.X,| 00000110 59 2b 38 29 3a 42 4c 32 3d b0 58 2b 32 2c 59 2b |Y+8):BL2=.X+2,Y+| 00000120 38 29 3a 42 4c 33 3d b0 58 2b 34 2c 59 2b 38 29 |8):BL3=.X+4,Y+8)| 00000130 0d 00 a5 2d 50 3d 28 54 4c 31 2b 54 4c 32 2b 54 |...-P=(TL1+TL2+T| 00000140 4c 33 2b 4d 4c 31 2b 4d 4c 32 2b 4d 4c 33 2b 42 |L3+ML1+ML2+ML3+B| 00000150 4c 31 2b 42 4c 32 2b 42 4c 33 29 2f 39 0d 00 a6 |L1+BL2+BL3)/9...| 00000160 05 f4 0d 00 aa 0f 47 3d b0 58 2b 31 2c 59 2b 31 |......G=.X+1,Y+1| 00000170 29 0d 00 af 19 e7 20 47 3e 50 20 8c 20 47 3d 47 |)..... G>P . G=G| 00000180 2d 31 20 8b 20 47 3d 47 2b 31 0d 00 b4 05 3a 0d |-1 . G=G+1....:.| 00000190 00 c7 12 e6 20 47 3a c8 92 20 58 2b 31 2c 59 2b |.... G:.. X+1,Y+| 000001a0 31 0d 00 d2 0c ed 20 58 20 3a ed 20 59 0d 00 dc |1..... X :. Y...| 000001b0 0b d8 3a e5 8d 44 6e 40 0d ff |..:..Dn@..| 000001ba
.