Home » Archimedes archive » Acorn User » AU 1997-03 B.adf » Regulars » StarInfo/Stoner/LavaLamp
StarInfo/Stoner/LavaLamp
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 1997-03 B.adf » Regulars |
| Filename: | StarInfo/Stoner/LavaLamp |
| Read OK: | ✔ |
| File size: | 02E3 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM lava lamp sim 20REM By Nigel Stoner 30REM basic version 40ON ERROR MODE12:REPORT:PRINT" at line ";ERL:END 50 60MODE9+128 70S=1:T=2 80PROCcolours 90 100DIM blobx%(19),bloby%(19),blobh%(19) 110 120REM x,y, heat 130 140FOR c%= 0 TO 19 150x%=RND(512)+384:y%=RND(1024):h%=RND(8)+8 160blobx%(c%)=x%+RND(64)-32 170bloby%(c%)=y%+RND(64)-32 180blobh%(c%)=h% 190NEXT c% 200 210REPEAT 220SYS6,112,S:SYS6,113,T:SWAPS,T:WAIT:CLS 230 FOR c%=0 TO 19 240 bloby%(c%)+=blobh%(c%)/2 250 IF bloby%(c%)>512 blobh%(c%)-=1:blobx%(c%)+=(640-blobx%(c%))/32 260 IF bloby%(c%)<256 blobh%(c%)+=2:blobx%(c%)-=(640-blobx%(c%))/20 270 GCOL 8+blobh%(c%)/8 280 CIRCLEFILL blobx%(c%),bloby%(c%),48 290NEXT c% 300UNTIL FALSE 310END 320 330DEFPROCcolours 340r%=16*(7AND1) 350g%=8*(3AND1) 360b%=4*(1AND8) 370FOR c%=0 TO 15 380COLOUR c%,c%*r%,c%*g%,c%*b% 390NEXT c% 400ENDPROC
� lava lamp sim � By Nigel Stoner � basic version ( � � �12:�:�" at line ";�:� 2 < �9+128 F S=1:T=2 P �colours Z d&� blobx%(19),bloby%(19),blobh%(19) n x� x,y, heat � �� c%= 0 � 19 �&x%=�(512)+384:y%=�(1024):h%=�(8)+8 �blobx%(c%)=x%+�(64)-32 �bloby%(c%)=y%+�(64)-32 �blobh%(c%)=h% �� c% � �� �"ș6,112,S:ș6,113,T:ȔS,T:Ȗ:� � � c%=0 � 19 � bloby%(c%)+=blobh%(c%)/2 �D � bloby%(c%)>512 blobh%(c%)-=1:blobx%(c%)+=(640-blobx%(c%))/32 D � bloby%(c%)<256 blobh%(c%)+=2:blobx%(c%)-=(640-blobx%(c%))/20 � 8+blobh%(c%)/8 " ȏȐ blobx%(c%),bloby%(c%),48 "� c% ,� � 6� @ J ��colours Tr%=16*(7�1) ^g%=8*(3�1) hb%=4*(1�8) r� c%=0 � 15 |� c%,c%*r%,c%*g%,c%*b% �� c% �� �
00000000 0d 00 0a 13 f4 20 6c 61 76 61 20 6c 61 6d 70 20 |..... lava lamp | 00000010 73 69 6d 0d 00 14 15 f4 20 42 79 20 4e 69 67 65 |sim..... By Nige| 00000020 6c 20 53 74 6f 6e 65 72 0d 00 1e 13 f4 20 62 61 |l Stoner..... ba| 00000030 73 69 63 20 76 65 72 73 69 6f 6e 0d 00 28 1e ee |sic version..(..| 00000040 20 85 20 eb 31 32 3a f6 3a f1 22 20 61 74 20 6c | . .12:.:." at l| 00000050 69 6e 65 20 22 3b 9e 3a e0 0d 00 32 04 0d 00 3c |ine ";.:...2...<| 00000060 0a eb 39 2b 31 32 38 0d 00 46 0b 53 3d 31 3a 54 |..9+128..F.S=1:T| 00000070 3d 32 0d 00 50 0c f2 63 6f 6c 6f 75 72 73 0d 00 |=2..P..colours..| 00000080 5a 04 0d 00 64 26 de 20 62 6c 6f 62 78 25 28 31 |Z...d&. blobx%(1| 00000090 39 29 2c 62 6c 6f 62 79 25 28 31 39 29 2c 62 6c |9),bloby%(19),bl| 000000a0 6f 62 68 25 28 31 39 29 0d 00 6e 04 0d 00 78 0f |obh%(19)..n...x.| 000000b0 f4 20 78 2c 79 2c 20 68 65 61 74 0d 00 82 04 0d |. x,y, heat.....| 000000c0 00 8c 10 e3 20 63 25 3d 20 30 20 b8 20 31 39 0d |.... c%= 0 . 19.| 000000d0 00 96 26 78 25 3d b3 28 35 31 32 29 2b 33 38 34 |..&x%=.(512)+384| 000000e0 3a 79 25 3d b3 28 31 30 32 34 29 3a 68 25 3d b3 |:y%=.(1024):h%=.| 000000f0 28 38 29 2b 38 0d 00 a0 1a 62 6c 6f 62 78 25 28 |(8)+8....blobx%(| 00000100 63 25 29 3d 78 25 2b b3 28 36 34 29 2d 33 32 0d |c%)=x%+.(64)-32.| 00000110 00 aa 1a 62 6c 6f 62 79 25 28 63 25 29 3d 79 25 |...bloby%(c%)=y%| 00000120 2b b3 28 36 34 29 2d 33 32 0d 00 b4 11 62 6c 6f |+.(64)-32....blo| 00000130 62 68 25 28 63 25 29 3d 68 25 0d 00 be 08 ed 20 |bh%(c%)=h%..... | 00000140 63 25 0d 00 c8 04 0d 00 d2 05 f5 0d 00 dc 22 c8 |c%............".| 00000150 99 36 2c 31 31 32 2c 53 3a c8 99 36 2c 31 31 33 |.6,112,S:..6,113| 00000160 2c 54 3a c8 94 53 2c 54 3a c8 96 3a db 0d 00 e6 |,T:..S,T:..:....| 00000170 10 20 e3 20 63 25 3d 30 20 b8 20 31 39 0d 00 f0 |. . c%=0 . 19...| 00000180 1e 20 20 62 6c 6f 62 79 25 28 63 25 29 2b 3d 62 |. bloby%(c%)+=b| 00000190 6c 6f 62 68 25 28 63 25 29 2f 32 0d 00 fa 44 20 |lobh%(c%)/2...D | 000001a0 20 e7 20 62 6c 6f 62 79 25 28 63 25 29 3e 35 31 | . bloby%(c%)>51| 000001b0 32 20 62 6c 6f 62 68 25 28 63 25 29 2d 3d 31 3a |2 blobh%(c%)-=1:| 000001c0 62 6c 6f 62 78 25 28 63 25 29 2b 3d 28 36 34 30 |blobx%(c%)+=(640| 000001d0 2d 62 6c 6f 62 78 25 28 63 25 29 29 2f 33 32 0d |-blobx%(c%))/32.| 000001e0 01 04 44 20 20 e7 20 62 6c 6f 62 79 25 28 63 25 |..D . bloby%(c%| 000001f0 29 3c 32 35 36 20 62 6c 6f 62 68 25 28 63 25 29 |)<256 blobh%(c%)| 00000200 2b 3d 32 3a 62 6c 6f 62 78 25 28 63 25 29 2d 3d |+=2:blobx%(c%)-=| 00000210 28 36 34 30 2d 62 6c 6f 62 78 25 28 63 25 29 29 |(640-blobx%(c%))| 00000220 2f 32 30 0d 01 0e 16 20 20 e6 20 38 2b 62 6c 6f |/20.... . 8+blo| 00000230 62 68 25 28 63 25 29 2f 38 0d 01 18 22 20 c8 8f |bh%(c%)/8..." ..| 00000240 c8 90 20 62 6c 6f 62 78 25 28 63 25 29 2c 62 6c |.. blobx%(c%),bl| 00000250 6f 62 79 25 28 63 25 29 2c 34 38 0d 01 22 08 ed |oby%(c%),48.."..| 00000260 20 63 25 0d 01 2c 07 fd 20 a3 0d 01 36 05 e0 0d | c%..,.. ...6...| 00000270 01 40 04 0d 01 4a 0d dd f2 63 6f 6c 6f 75 72 73 |.@...J...colours| 00000280 0d 01 54 0f 72 25 3d 31 36 2a 28 37 80 31 29 0d |..T.r%=16*(7.1).| 00000290 01 5e 0e 67 25 3d 38 2a 28 33 80 31 29 0d 01 68 |.^.g%=8*(3.1)..h| 000002a0 0e 62 25 3d 34 2a 28 31 80 38 29 0d 01 72 0f e3 |.b%=4*(1.8)..r..| 000002b0 20 63 25 3d 30 20 b8 20 31 35 0d 01 7c 1a fb 20 | c%=0 . 15..|.. | 000002c0 63 25 2c 63 25 2a 72 25 2c 63 25 2a 67 25 2c 63 |c%,c%*r%,c%*g%,c| 000002d0 25 2a 62 25 0d 01 86 08 ed 20 63 25 0d 01 90 05 |%*b%..... c%....| 000002e0 e1 0d ff |...| 000002e3
.