Home » Personal collection » Acorn hard disk » demos » Demo » Sillies/Flames
Sillies/Flames
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 » Personal collection » Acorn hard disk » demos » Demo |
| Filename: | Sillies/Flames |
| Read OK: | ✔ |
| File size: | 01DC bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >Flames 20REM By Jan Vibe 30 40time=TIME 50col=0 60MODE27:OFF 70PROCcycle 80FOR x = 0 TO 1280 STEP 2 90 GCOL RND(15) 100 POINT x,0 110NEXT 120FOR y = 2 TO 960 STEP 2 130 FOR x = 0 TO 1280 STEP 2 140 r = 2 * (RND(3) - 2) 150 c = ABS(POINT(x + r,y - 2)) 160 IF RND(1) > 0.8 c = c MOD 15 + 1 170 GCOL c 180 POINT x,y 190 PROCcycle 200 NEXT 210NEXT 220REPEAT 230 PROCcycle 240UNTIL 0 250END 260 270DEF PROCcycle 280IF TIME>time THEN 290 col = col MOD 15 + 1 300 FOR i = 1 TO 15 310 F% = (col + i) MOD 15 + 1 320 COLOUR F%,255,16*i,0 330 NEXT 340 time = TIME + 5 350ENDIF 360ENDPROC
� >Flames � By Jan Vibe ( time=� 2 col=0 < �27:� F �cycle P� x = 0 � 1280 � 2 Z � �(15) d Ȓ x,0 n� x� y = 2 � 960 � 2 � � x = 0 � 1280 � 2 � r = 2 * (�(3) - 2) � c = �(�x + r,y - 2)) �! � �(1) > 0.8 c = c � 15 + 1 � � c � Ȓ x,y � �cycle � � �� �� � �cycle �� 0 �� � �cycle � �>time � " col = col � 15 + 1 , � i = 1 � 15 6 F% = (col + i) � 15 + 1 @ � F%,255,16*i,0 J � T time = � + 5 ^� h� �
00000000 0d 00 0a 0d f4 20 3e 46 6c 61 6d 65 73 0d 00 14 |..... >Flames...| 00000010 11 f4 20 42 79 20 4a 61 6e 20 56 69 62 65 0d 00 |.. By Jan Vibe..| 00000020 1e 04 0d 00 28 0a 74 69 6d 65 3d 91 0d 00 32 09 |....(.time=...2.| 00000030 63 6f 6c 3d 30 0d 00 3c 09 eb 32 37 3a 87 0d 00 |col=0..<..27:...| 00000040 46 0a f2 63 79 63 6c 65 0d 00 50 16 e3 20 78 20 |F..cycle..P.. x | 00000050 3d 20 30 20 b8 20 31 32 38 30 20 88 20 32 0d 00 |= 0 . 1280 . 2..| 00000060 5a 0c 20 e6 20 b3 28 31 35 29 0d 00 64 0b 20 c8 |Z. . .(15)..d. .| 00000070 92 20 78 2c 30 0d 00 6e 05 ed 0d 00 78 15 e3 20 |. x,0..n....x.. | 00000080 79 20 3d 20 32 20 b8 20 39 36 30 20 88 20 32 0d |y = 2 . 960 . 2.| 00000090 00 82 17 20 e3 20 78 20 3d 20 30 20 b8 20 31 32 |... . x = 0 . 12| 000000a0 38 30 20 88 20 32 0d 00 8c 18 20 20 72 20 3d 20 |80 . 2.... r = | 000000b0 32 20 2a 20 28 b3 28 33 29 20 2d 20 32 29 0d 00 |2 * (.(3) - 2)..| 000000c0 96 1a 20 20 63 20 3d 20 94 28 b0 78 20 2b 20 72 |.. c = .(.x + r| 000000d0 2c 79 20 2d 20 32 29 29 0d 00 a0 21 20 20 e7 20 |,y - 2))...! . | 000000e0 b3 28 31 29 20 3e 20 30 2e 38 20 63 20 3d 20 63 |.(1) > 0.8 c = c| 000000f0 20 83 20 31 35 20 2b 20 31 0d 00 aa 09 20 20 e6 | . 15 + 1.... .| 00000100 20 63 0d 00 b4 0c 20 20 c8 92 20 78 2c 79 0d 00 | c.... .. x,y..| 00000110 be 0c 20 20 f2 63 79 63 6c 65 0d 00 c8 06 20 ed |.. .cycle.... .| 00000120 0d 00 d2 05 ed 0d 00 dc 05 f5 0d 00 e6 0b 20 f2 |.............. .| 00000130 63 79 63 6c 65 0d 00 f0 07 fd 20 30 0d 00 fa 05 |cycle..... 0....| 00000140 e0 0d 01 04 04 0d 01 0e 0c dd 20 f2 63 79 63 6c |.......... .cycl| 00000150 65 0d 01 18 0e e7 20 91 3e 74 69 6d 65 20 8c 0d |e..... .>time ..| 00000160 01 22 17 20 63 6f 6c 20 3d 20 63 6f 6c 20 83 20 |.". col = col . | 00000170 31 35 20 2b 20 31 0d 01 2c 11 20 e3 20 69 20 3d |15 + 1..,. . i =| 00000180 20 31 20 b8 20 31 35 0d 01 36 1d 20 20 46 25 20 | 1 . 15..6. F% | 00000190 3d 20 28 63 6f 6c 20 2b 20 69 29 20 83 20 31 35 |= (col + i) . 15| 000001a0 20 2b 20 31 0d 01 40 15 20 20 fb 20 46 25 2c 32 | + 1..@. . F%,2| 000001b0 35 35 2c 31 36 2a 69 2c 30 0d 01 4a 06 20 ed 0d |55,16*i,0..J. ..| 000001c0 01 54 11 20 74 69 6d 65 20 3d 20 91 20 2b 20 35 |.T. time = . + 5| 000001d0 0d 01 5e 05 cd 0d 01 68 05 e1 0d ff |..^....h....| 000001dc
.