StarInfo/Adcock/Mettallic

Home » Archimedes archive » Acorn User » AU 1997-01 B.adf » Regulars » StarInfo/Adcock/Mettallic

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-01 B.adf » Regulars
Filename:	StarInfo/Adcock/Mettallic
Read OK:	✔
File size:	0264 bytes
Load address:	0000
Exec address:	0000

File contents

   10MODE 12
   20ON ERROR REPORT:PRINTERL:END
   30FOR C = 1 TO 16:COLOUR C,C*16,C*16,C*16:NEXT
   40DIM input_list  8
   50DIM output_list 4
   60input_list!0 = 149
   70input_list!4 =  -1
   80SYS "OS_ReadVduVariables",input_list,output_list
   90BASE_ADDRESS = output_list!0
  100FOR A = 0 TO 239
  110FOR B = 0 TO 319
  120C=B+A*320
  130BASE_ADDRESS?C = A
  140NEXT B
  150NEXT A
  160B=1
  170:
  180R=200
  190GCOL 4,0
  200ORIGIN 640,512
  210FOR Z = 0.1 TO 1.7 STEP 0.1
  220FOR X = -640 TO 640 STEP 2
  230IF (R^2)-(X^2)<>0 THEN
  240Y=SQR(ABS(R^2-(X/Z)^2))
  250POINT X,Y
  260DRAW X,-Y
  270ENDIF
  280NEXT X
  290NEXT Z
  300:
  310REPEAT
  320FOR C = 0 TO 15
  330E=C
  340FOR D = 0 TO 15
  350COLOUR D,E*16,E*16,E*16
  360E=E+1
  370IF E>15 E=0
  380NEXT D
  390A=INKEY(10)
  400NEXT C
  410UNTIL FALSE


� 12
� � �:�:�
%� C = 1 � 16:� C,C*16,C*16,C*16:�
(� input_list  8
2� output_list 4
<input_list!0 = 149
Finput_list!4 =  -1
P3ș "OS_ReadVduVariables",input_list,output_list
Z BASE_ADDRESS = output_list!0
d� A = 0 � 239
n� B = 0 � 319
x
C=B+A*320
�BASE_ADDRESS?C = A
�� B
�� A
�B=1
�:
�	R=200
�	� 4,0
�ȑ 640,512
�� Z = 0.1 � 1.7 � 0.1
�� X = -640 � 640 � 2
�� (R^2)-(X^2)<>0 �
�Y=�(�(R^2-(X/Z)^2))
�
Ȓ X,Y
� X,-Y
�
� X
"� Z
,:
6�
@� C = 0 � 15
JE=C
T� D = 0 � 15
^� D,E*16,E*16,E*16
h	E=E+1
r� E>15 E=0
|� D
�A=�(10)
�� C
�� �
�

00000000  0d 00 0a 08 eb 20 31 32  0d 00 14 0e ee 20 85 20  |..... 12..... . |
00000010  f6 3a f1 9e 3a e0 0d 00  1e 25 e3 20 43 20 3d 20  |.:..:....%. C = |
00000020  31 20 b8 20 31 36 3a fb  20 43 2c 43 2a 31 36 2c  |1 . 16:. C,C*16,|
00000030  43 2a 31 36 2c 43 2a 31  36 3a ed 0d 00 28 13 de  |C*16,C*16:...(..|
00000040  20 69 6e 70 75 74 5f 6c  69 73 74 20 20 38 0d 00  | input_list  8..|
00000050  32 13 de 20 6f 75 74 70  75 74 5f 6c 69 73 74 20  |2.. output_list |
00000060  34 0d 00 3c 16 69 6e 70  75 74 5f 6c 69 73 74 21  |4..<.input_list!|
00000070  30 20 3d 20 31 34 39 0d  00 46 16 69 6e 70 75 74  |0 = 149..F.input|
00000080  5f 6c 69 73 74 21 34 20  3d 20 20 2d 31 0d 00 50  |_list!4 =  -1..P|
00000090  33 c8 99 20 22 4f 53 5f  52 65 61 64 56 64 75 56  |3.. "OS_ReadVduV|
000000a0  61 72 69 61 62 6c 65 73  22 2c 69 6e 70 75 74 5f  |ariables",input_|
000000b0  6c 69 73 74 2c 6f 75 74  70 75 74 5f 6c 69 73 74  |list,output_list|
000000c0  0d 00 5a 20 42 41 53 45  5f 41 44 44 52 45 53 53  |..Z BASE_ADDRESS|
000000d0  20 3d 20 6f 75 74 70 75  74 5f 6c 69 73 74 21 30  | = output_list!0|
000000e0  0d 00 64 11 e3 20 41 20  3d 20 30 20 b8 20 32 33  |..d.. A = 0 . 23|
000000f0  39 0d 00 6e 11 e3 20 42  20 3d 20 30 20 b8 20 33  |9..n.. B = 0 . 3|
00000100  31 39 0d 00 78 0d 43 3d  42 2b 41 2a 33 32 30 0d  |19..x.C=B+A*320.|
00000110  00 82 16 42 41 53 45 5f  41 44 44 52 45 53 53 3f  |...BASE_ADDRESS?|
00000120  43 20 3d 20 41 0d 00 8c  07 ed 20 42 0d 00 96 07  |C = A..... B....|
00000130  ed 20 41 0d 00 a0 07 42  3d 31 0d 00 aa 05 3a 0d  |. A....B=1....:.|
00000140  00 b4 09 52 3d 32 30 30  0d 00 be 09 e6 20 34 2c  |...R=200..... 4,|
00000150  30 0d 00 c8 0e c8 91 20  36 34 30 2c 35 31 32 0d  |0...... 640,512.|
00000160  00 d2 19 e3 20 5a 20 3d  20 30 2e 31 20 b8 20 31  |.... Z = 0.1 . 1|
00000170  2e 37 20 88 20 30 2e 31  0d 00 dc 18 e3 20 58 20  |.7 . 0.1..... X |
00000180  3d 20 2d 36 34 30 20 b8  20 36 34 30 20 88 20 32  |= -640 . 640 . 2|
00000190  0d 00 e6 16 e7 20 28 52  5e 32 29 2d 28 58 5e 32  |..... (R^2)-(X^2|
000001a0  29 3c 3e 30 20 8c 0d 00  f0 17 59 3d b6 28 94 28  |)<>0 .....Y=.(.(|
000001b0  52 5e 32 2d 28 58 2f 5a  29 5e 32 29 29 0d 00 fa  |R^2-(X/Z)^2))...|
000001c0  0a c8 92 20 58 2c 59 0d  01 04 0a df 20 58 2c 2d  |... X,Y..... X,-|
000001d0  59 0d 01 0e 05 cd 0d 01  18 07 ed 20 58 0d 01 22  |Y.......... X.."|
000001e0  07 ed 20 5a 0d 01 2c 05  3a 0d 01 36 05 f5 0d 01  |.. Z..,.:..6....|
000001f0  40 10 e3 20 43 20 3d 20  30 20 b8 20 31 35 0d 01  |@.. C = 0 . 15..|
00000200  4a 07 45 3d 43 0d 01 54  10 e3 20 44 20 3d 20 30  |J.E=C..T.. D = 0|
00000210  20 b8 20 31 35 0d 01 5e  16 fb 20 44 2c 45 2a 31  | . 15..^.. D,E*1|
00000220  36 2c 45 2a 31 36 2c 45  2a 31 36 0d 01 68 09 45  |6,E*16,E*16..h.E|
00000230  3d 45 2b 31 0d 01 72 0e  e7 20 45 3e 31 35 20 45  |=E+1..r.. E>15 E|
00000240  3d 30 0d 01 7c 07 ed 20  44 0d 01 86 0b 41 3d a6  |=0..|.. D....A=.|
00000250  28 31 30 29 0d 01 90 07  ed 20 43 0d 01 9a 07 fd  |(10)..... C.....|
00000260  20 a3 0d ff                                       | ...|
00000264

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .