Home » Archimedes archive » Archimedes World » AW-1991-02.adf » !AWFeb91/Goodies/FeedBack/Volcano
!AWFeb91/Goodies/FeedBack/Volcano
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/Volcano |
| Read OK: | ✔ |
| File size: | 0191 bytes |
| Load address: | FFFFFB42 |
| Exec address: | 75069BBD |
File contents
10 MODE 15 20: 30REM GRASS 40GCOL 4 44C=1 50FOR DN% = 400TO 600 STEP 4 60FOR GL% = 400TO 600STEP2 70GC%=RND(256) 80GCOL GC% 90POINT GL%,DN% 100NEXT GL%:NEXTDN% 110: 120FOR Y = 400 TO 600STEP 4 130FOR X = 400 TO 600STEP2 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)/10 166REM 199GCOL P:POINT X+1,Y+1 210NEXT X :NEXT Y 220CLEAR:GOTO110
� 15 : � GRASS (� 4 ,C=1 2� DN% = 400� 600 � 4 <� GL% = 400� 600�2 FGC%=�(256) P � GC% ZȒ GL%,DN% d� GL%:�DN% n: x� Y = 400 � 600� 4 �� X = 400 � 600�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)/10 �� �� P:Ȓ 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 16 e3 20 47 4c 25 20 3d 20 34 30 30 b8 20 |.<.. GL% = 400. | 00000050 36 30 30 88 32 0d 00 46 0e 47 43 25 3d b3 28 32 |600.2..F.GC%=.(2| 00000060 35 36 29 0d 00 50 09 e6 20 47 43 25 0d 00 5a 0e |56)..P.. GC%..Z.| 00000070 c8 92 20 47 4c 25 2c 44 4e 25 0d 00 64 0e ed 20 |.. GL%,DN%..d.. | 00000080 47 4c 25 3a ed 44 4e 25 0d 00 6e 05 3a 0d 00 78 |GL%:.DN%..n.:..x| 00000090 16 e3 20 59 20 3d 20 34 30 30 20 b8 20 36 30 30 |.. Y = 400 . 600| 000000a0 88 20 34 0d 00 82 15 e3 20 58 20 3d 20 34 30 30 |. 4..... X = 400| 000000b0 20 b8 20 36 30 30 88 32 0d 00 8c 25 54 4c 31 3d | . 600.2...%TL1=| 000000c0 b0 58 2c 59 29 3a 54 4c 32 3d b0 58 2b 32 2c 59 |.X,Y):TL2=.X+2,Y| 000000d0 29 3a 54 4c 33 3d b0 58 2b 34 2c 59 29 0d 00 96 |):TL3=.X+4,Y)...| 000000e0 2b 4d 4c 31 3d b0 58 2c 59 2b 34 29 3a 4d 4c 32 |+ML1=.X,Y+4):ML2| 000000f0 3d b0 58 2b 32 2c 59 2b 34 29 3a 4d 4c 33 3d b0 |=.X+2,Y+4):ML3=.| 00000100 58 2b 34 2c 59 2b 34 29 0d 00 a0 2b 42 4c 31 3d |X+4,Y+4)...+BL1=| 00000110 b0 58 2c 59 2b 38 29 3a 42 4c 32 3d b0 58 2b 32 |.X,Y+8):BL2=.X+2| 00000120 2c 59 2b 38 29 3a 42 4c 33 3d b0 58 2b 34 2c 59 |,Y+8):BL3=.X+4,Y| 00000130 2b 38 29 0d 00 a5 2e 50 3d 28 54 4c 31 2b 54 4c |+8)....P=(TL1+TL| 00000140 32 2b 54 4c 33 2b 4d 4c 31 2b 4d 4c 32 2b 4d 4c |2+TL3+ML1+ML2+ML| 00000150 33 2b 42 4c 31 2b 42 4c 32 2b 42 4c 33 29 2f 31 |3+BL1+BL2+BL3)/1| 00000160 30 0d 00 a6 05 f4 0d 00 c7 12 e6 20 50 3a c8 92 |0.......... P:..| 00000170 20 58 2b 31 2c 59 2b 31 0d 00 d2 0c ed 20 58 20 | X+1,Y+1..... X | 00000180 3a ed 20 59 0d 00 dc 0b d8 3a e5 8d 44 6e 40 0d |:. Y.....:..Dn@.| 00000190 ff |.| 00000191
.