Home » Archimedes archive » Acorn User » AU 1997-07 A.adf » Regulars » info/Boham/Spiral
info/Boham/Spiral
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-07 A.adf » Regulars |
| Filename: | info/Boham/Spiral |
| Read OK: | ✔ |
| File size: | 0188 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1MODE 31
2OFF
3FOR C=0 TO 7
4COLOUR C,C*32,C*32,C*32
5NEXT C
6N=255
7FOR C=7 TO 15
8COLOUR C,N,N,N
9N=N-32
10NEXT C
11:
12A=0
13C=0
14FOR R=1100 TO 1 STEP -2
15GCOL C
16C=C+0.5
17IF C>=15 THEN C=0
18ELLIPSEFILL 800,600,R,R*0.8,RADA
19A=A+0.4
20NEXT R
21:
22REPEAT
23FOR S=15 TO 0 STEP -1
24N=0
25NS=32
26WAIT
27FOR C=S TO S+15
28IF C>15 THEN COLOUR C-16,N,N,N ELSE COLOUR C,N,N,N
29N=N+NS
30IF N>=255 THEN N=255:NS=-NS
31NEXT C
32NEXT S
33UNTIL FALSE
� 31 � � C=0 � 7 � C,C*32,C*32,C*32 � C N=255 � C=7 � 15 � C,N,N,N N=N-32 � C : A=0 C=0 � R=1100 � 1 � -2 � C C=C+0.5 � C>=15 � C=0 ȝȐ 800,600,R,R*0.8,�A A=A+0.4 � R : � � S=15 � 0 � -1 N=0 NS=32 Ȗ � C=S � S+15 %� C>15 � � C-16,N,N,N � � C,N,N,N N=N+NS � N>=255 � N=255:NS=-NS � C � S !� � �
00000000 0d 00 01 08 eb 20 33 31 0d 00 02 05 87 0d 00 03 |..... 31........| 00000010 0d e3 20 43 3d 30 20 b8 20 37 0d 00 04 16 fb 20 |.. C=0 . 7..... | 00000020 43 2c 43 2a 33 32 2c 43 2a 33 32 2c 43 2a 33 32 |C,C*32,C*32,C*32| 00000030 0d 00 05 07 ed 20 43 0d 00 06 09 4e 3d 32 35 35 |..... C....N=255| 00000040 0d 00 07 0e e3 20 43 3d 37 20 b8 20 31 35 0d 00 |..... C=7 . 15..| 00000050 08 0d fb 20 43 2c 4e 2c 4e 2c 4e 0d 00 09 0a 4e |... C,N,N,N....N| 00000060 3d 4e 2d 33 32 0d 00 0a 07 ed 20 43 0d 00 0b 05 |=N-32..... C....| 00000070 3a 0d 00 0c 07 41 3d 30 0d 00 0d 07 43 3d 30 0d |:....A=0....C=0.| 00000080 00 0e 15 e3 20 52 3d 31 31 30 30 20 b8 20 31 20 |.... R=1100 . 1 | 00000090 88 20 2d 32 0d 00 0f 07 e6 20 43 0d 00 10 0b 43 |. -2..... C....C| 000000a0 3d 43 2b 30 2e 35 0d 00 11 11 e7 20 43 3e 3d 31 |=C+0.5..... C>=1| 000000b0 35 20 8c 20 43 3d 30 0d 00 12 1b c8 9d c8 90 20 |5 . C=0........ | 000000c0 38 30 30 2c 36 30 30 2c 52 2c 52 2a 30 2e 38 2c |800,600,R,R*0.8,| 000000d0 b2 41 0d 00 13 0b 41 3d 41 2b 30 2e 34 0d 00 14 |.A....A=A+0.4...| 000000e0 07 ed 20 52 0d 00 15 05 3a 0d 00 16 05 f5 0d 00 |.. R....:.......| 000000f0 17 13 e3 20 53 3d 31 35 20 b8 20 30 20 88 20 2d |... S=15 . 0 . -| 00000100 31 0d 00 18 07 4e 3d 30 0d 00 19 09 4e 53 3d 33 |1....N=0....NS=3| 00000110 32 0d 00 1a 06 c8 96 0d 00 1b 10 e3 20 43 3d 53 |2........... C=S| 00000120 20 b8 20 53 2b 31 35 0d 00 1c 25 e7 20 43 3e 31 | . S+15...%. C>1| 00000130 35 20 8c 20 fb 20 43 2d 31 36 2c 4e 2c 4e 2c 4e |5 . . C-16,N,N,N| 00000140 20 8b 20 fb 20 43 2c 4e 2c 4e 2c 4e 0d 00 1d 0a | . . C,N,N,N....| 00000150 4e 3d 4e 2b 4e 53 0d 00 1e 1b e7 20 4e 3e 3d 32 |N=N+NS..... N>=2| 00000160 35 35 20 8c 20 4e 3d 32 35 35 3a 4e 53 3d 2d 4e |55 . N=255:NS=-N| 00000170 53 0d 00 1f 07 ed 20 43 0d 00 20 07 ed 20 53 0d |S..... C.. .. S.| 00000180 00 21 07 fd 20 a3 0d ff |.!.. ...| 00000188
.