Creer/Planets

Home » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199312.adf » !StarInfo_StarInfo » Creer/Planets

Creer/Planets

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 » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199312.adf » !StarInfo_StarInfo
Filename:	Creer/Planets
Read OK:	✔
File size:	03D1 bytes
Load address:	0000
Exec address:	0000

File contents

    1REM    >Planets
    2REM By  Bryan Creer
    3REM For 32-bit machines
    4REM (c) BAU December 1993
    5:
    6MODE 8
    7ORIGIN 640,512
    8OFF
    9e%=384
   10l%=2000
   11COLOUR 0,0,0,0
   12COLOUR 1,16,16,16
   13COLOUR 2,240,240,240
   14FOR x%=-640 TO 636 STEP 2
   15 FOR y%=-512 TO 508 STEP 4
   16  p% = POINT(x%,y%)
   17  s%=FNdistance
   18  IF p% = 0 THEN
   19   c%=RND(2)
   20   GCOL c%
   21   POINT x%,y%
   22   p% = c%
   23  ENDIF
   24  GCOL p%
   25  POINT x%+s%,y%
   26 NEXT
   27NEXT
   28VDU 7
   29IFGET
   30ON
   31END
   32:
   33DEF FNdistance
   34d0%=100
   35x1%=x%
   36y1%=y%+100
   37r%=SQR(x1%*x1%+y1%*y1%)
   38IF r%<d0% THEN
   39 d%=900-SQR(d0%*d0%-r%*r%)
   40 =e%*d%/(l%+d%)
   41ENDIF
   42d1%=300
   43x1%=x%+240
   44y1%=y%+150
   45r%=SQR(x1%*x1%+y1%*y1%)
   46IF r%<d1% THEN
   47 d%=1200-SQR(d1%*d1%-r%*r%)
   48 =e%*d%/(l%+d%)
   49ENDIF
   50d2%=150
   51x1%=x%-50
   52y1%=y%+50
   53r%=SQR(x%*x%+y1%*y1%)
   54IF r%<d2% THEN
   55 d%=1400-SQR(d2%*d2%-r%*r%)
   56 =e%*d%/(l%+d%)
   57ENDIF
   58d3%=100
   59x1%=x%-150
   60y1%=y%-100
   61r%=SQR(x1%*x1%+y1%*y1%)
   62IF r%<d3% THEN
   63 d%=1700-SQR(d3%*d3%-r%*r%)
   64 =e%*d%/(l%+d%)
   65ENDIF
   66d%=2000
   67=e%*d%/(l%+d%)

�    >Planets
� By  Bryan Creer
� For 32-bit machines
� (c) BAU December 1993
:
� 8
ȑ 640,512
�
	
e%=384

l%=2000

� 0,0,0,0
� 1,16,16,16

� 2,240,240,240
� x%=-640 � 636 � 2
 � y%=-512 � 508 � 4
  p% = �x%,y%)
  s%=�distance
  � p% = 0 �
   c%=�(2)
   � c%
   Ȓ x%,y%
   p% = c%
  �

  � p%
  Ȓ x%+s%,y%
 �
�
� 7
�
�
�
 :
!� �distance
"d0%=100
#
x1%=x%
$y1%=y%+100
%r%=�(x1%*x1%+y1%*y1%)
&� r%<d0% �
' d%=900-�(d0%*d0%-r%*r%)
( =e%*d%/(l%+d%)
)�
*d1%=300
+x1%=x%+240
,y1%=y%+150
-r%=�(x1%*x1%+y1%*y1%)
.� r%<d1% �
/ d%=1200-�(d1%*d1%-r%*r%)
0 =e%*d%/(l%+d%)
1�
2d2%=150
3
x1%=x%-50
4
y1%=y%+50
5r%=�(x%*x%+y1%*y1%)
6� r%<d2% �
7 d%=1400-�(d2%*d2%-r%*r%)
8 =e%*d%/(l%+d%)
9�
:d3%=100
;x1%=x%-150
<y1%=y%-100
=r%=�(x1%*x1%+y1%*y1%)
>� r%<d3% �
? d%=1700-�(d3%*d3%-r%*r%)
@ =e%*d%/(l%+d%)
A�
Bd%=2000
C=e%*d%/(l%+d%)
�

00000000  0d 00 01 11 f4 20 20 20  20 3e 50 6c 61 6e 65 74  |.....    >Planet|
00000010  73 0d 00 02 15 f4 20 42  79 20 20 42 72 79 61 6e  |s..... By  Bryan|
00000020  20 43 72 65 65 72 0d 00  03 19 f4 20 46 6f 72 20  | Creer..... For |
00000030  33 32 2d 62 69 74 20 6d  61 63 68 69 6e 65 73 0d  |32-bit machines.|
00000040  00 04 1b f4 20 28 63 29  20 42 41 55 20 44 65 63  |.... (c) BAU Dec|
00000050  65 6d 62 65 72 20 31 39  39 33 0d 00 05 05 3a 0d  |ember 1993....:.|
00000060  00 06 07 eb 20 38 0d 00  07 0e c8 91 20 36 34 30  |.... 8...... 640|
00000070  2c 35 31 32 0d 00 08 05  87 0d 00 09 0a 65 25 3d  |,512.........e%=|
00000080  33 38 34 0d 00 0a 0b 6c  25 3d 32 30 30 30 0d 00  |384....l%=2000..|
00000090  0b 0d fb 20 30 2c 30 2c  30 2c 30 0d 00 0c 10 fb  |... 0,0,0,0.....|
000000a0  20 31 2c 31 36 2c 31 36  2c 31 36 0d 00 0d 13 fb  | 1,16,16,16.....|
000000b0  20 32 2c 32 34 30 2c 32  34 30 2c 32 34 30 0d 00  | 2,240,240,240..|
000000c0  0e 17 e3 20 78 25 3d 2d  36 34 30 20 b8 20 36 33  |... x%=-640 . 63|
000000d0  36 20 88 20 32 0d 00 0f  18 20 e3 20 79 25 3d 2d  |6 . 2.... . y%=-|
000000e0  35 31 32 20 b8 20 35 30  38 20 88 20 34 0d 00 10  |512 . 508 . 4...|
000000f0  12 20 20 70 25 20 3d 20  b0 78 25 2c 79 25 29 0d  |.  p% = .x%,y%).|
00000100  00 11 12 20 20 73 25 3d  a4 64 69 73 74 61 6e 63  |...  s%=.distanc|
00000110  65 0d 00 12 10 20 20 e7  20 70 25 20 3d 20 30 20  |e....  . p% = 0 |
00000120  8c 0d 00 13 0e 20 20 20  63 25 3d b3 28 32 29 0d  |.....   c%=.(2).|
00000130  00 14 0b 20 20 20 e6 20  63 25 0d 00 15 0f 20 20  |...   . c%....  |
00000140  20 c8 92 20 78 25 2c 79  25 0d 00 16 0e 20 20 20  | .. x%,y%....   |
00000150  70 25 20 3d 20 63 25 0d  00 17 07 20 20 cd 0d 00  |p% = c%....  ...|
00000160  18 0a 20 20 e6 20 70 25  0d 00 19 11 20 20 c8 92  |..  . p%....  ..|
00000170  20 78 25 2b 73 25 2c 79  25 0d 00 1a 06 20 ed 0d  | x%+s%,y%.... ..|
00000180  00 1b 05 ed 0d 00 1c 07  ef 20 37 0d 00 1d 06 e7  |......... 7.....|
00000190  a5 0d 00 1e 05 ee 0d 00  1f 05 e0 0d 00 20 05 3a  |............. .:|
000001a0  0d 00 21 0f dd 20 a4 64  69 73 74 61 6e 63 65 0d  |..!.. .distance.|
000001b0  00 22 0b 64 30 25 3d 31  30 30 0d 00 23 0a 78 31  |.".d0%=100..#.x1|
000001c0  25 3d 78 25 0d 00 24 0e  79 31 25 3d 79 25 2b 31  |%=x%..$.y1%=y%+1|
000001d0  30 30 0d 00 25 19 72 25  3d b6 28 78 31 25 2a 78  |00..%.r%=.(x1%*x|
000001e0  31 25 2b 79 31 25 2a 79  31 25 29 0d 00 26 0e e7  |1%+y1%*y1%)..&..|
000001f0  20 72 25 3c 64 30 25 20  8c 0d 00 27 1c 20 64 25  | r%<d0% ...'. d%|
00000200  3d 39 30 30 2d b6 28 64  30 25 2a 64 30 25 2d 72  |=900-.(d0%*d0%-r|
00000210  25 2a 72 25 29 0d 00 28  13 20 3d 65 25 2a 64 25  |%*r%)..(. =e%*d%|
00000220  2f 28 6c 25 2b 64 25 29  0d 00 29 05 cd 0d 00 2a  |/(l%+d%)..)....*|
00000230  0b 64 31 25 3d 33 30 30  0d 00 2b 0e 78 31 25 3d  |.d1%=300..+.x1%=|
00000240  78 25 2b 32 34 30 0d 00  2c 0e 79 31 25 3d 79 25  |x%+240..,.y1%=y%|
00000250  2b 31 35 30 0d 00 2d 19  72 25 3d b6 28 78 31 25  |+150..-.r%=.(x1%|
00000260  2a 78 31 25 2b 79 31 25  2a 79 31 25 29 0d 00 2e  |*x1%+y1%*y1%)...|
00000270  0e e7 20 72 25 3c 64 31  25 20 8c 0d 00 2f 1d 20  |.. r%<d1% .../. |
00000280  64 25 3d 31 32 30 30 2d  b6 28 64 31 25 2a 64 31  |d%=1200-.(d1%*d1|
00000290  25 2d 72 25 2a 72 25 29  0d 00 30 13 20 3d 65 25  |%-r%*r%)..0. =e%|
000002a0  2a 64 25 2f 28 6c 25 2b  64 25 29 0d 00 31 05 cd  |*d%/(l%+d%)..1..|
000002b0  0d 00 32 0b 64 32 25 3d  31 35 30 0d 00 33 0d 78  |..2.d2%=150..3.x|
000002c0  31 25 3d 78 25 2d 35 30  0d 00 34 0d 79 31 25 3d  |1%=x%-50..4.y1%=|
000002d0  79 25 2b 35 30 0d 00 35  17 72 25 3d b6 28 78 25  |y%+50..5.r%=.(x%|
000002e0  2a 78 25 2b 79 31 25 2a  79 31 25 29 0d 00 36 0e  |*x%+y1%*y1%)..6.|
000002f0  e7 20 72 25 3c 64 32 25  20 8c 0d 00 37 1d 20 64  |. r%<d2% ...7. d|
00000300  25 3d 31 34 30 30 2d b6  28 64 32 25 2a 64 32 25  |%=1400-.(d2%*d2%|
00000310  2d 72 25 2a 72 25 29 0d  00 38 13 20 3d 65 25 2a  |-r%*r%)..8. =e%*|
00000320  64 25 2f 28 6c 25 2b 64  25 29 0d 00 39 05 cd 0d  |d%/(l%+d%)..9...|
00000330  00 3a 0b 64 33 25 3d 31  30 30 0d 00 3b 0e 78 31  |.:.d3%=100..;.x1|
00000340  25 3d 78 25 2d 31 35 30  0d 00 3c 0e 79 31 25 3d  |%=x%-150..<.y1%=|
00000350  79 25 2d 31 30 30 0d 00  3d 19 72 25 3d b6 28 78  |y%-100..=.r%=.(x|
00000360  31 25 2a 78 31 25 2b 79  31 25 2a 79 31 25 29 0d  |1%*x1%+y1%*y1%).|
00000370  00 3e 0e e7 20 72 25 3c  64 33 25 20 8c 0d 00 3f  |.>.. r%<d3% ...?|
00000380  1d 20 64 25 3d 31 37 30  30 2d b6 28 64 33 25 2a  |. d%=1700-.(d3%*|
00000390  64 33 25 2d 72 25 2a 72  25 29 0d 00 40 13 20 3d  |d3%-r%*r%)..@. =|
000003a0  65 25 2a 64 25 2f 28 6c  25 2b 64 25 29 0d 00 41  |e%*d%/(l%+d%)..A|
000003b0  05 cd 0d 00 42 0b 64 25  3d 32 30 30 30 0d 00 43  |....B.d%=2000..C|
000003c0  12 3d 65 25 2a 64 25 2f  28 6c 25 2b 64 25 29 0d  |.=e%*d%/(l%+d%).|
000003d0  ff                                                |.|
000003d1

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .