Home » Archimedes archive » Micro User » MU 1992-04.adf » Listings » 8bit/Atomic

8bit/Atomic

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 » Micro User » MU 1992-04.adf » Listings
Filename: 8bit/Atomic
Read OK:
File size: 033F bytes
Load address: 0000
Exec address: 0000
Duplicates

There are 2 duplicate copies of this file in the archive:

File contents
   10REM > <basicsave$dir>.Atomic
   20REM The Safe Scientist
   30REM (c) The Micro User
   40MODE1
   50PROCnucleus
   60X1%=450:Y1%=450:X2%=450:Y2%=200
   70D%=25:VDU23,255,24,60,126,255,255,126,60,24
   80REPEAT
   90Y1%=Y1%-D%:Y2%=Y2%+D%
  100PROCelectrons
  110IF Y1%=200 OR Y1%=450 D%=-D%
  120UNTIL FALSE:END
  130DEFPROCnucleus
  140PROCparticle(700,630,1)
  150PROCparticle(700,500,2)
  160PROCparticle(600,500,1)
  170PROCparticle(600,630,2)
  180ENDPROC
  190DEFPROCparticle(X%,Y%,C%)
  200VDU29,X%;Y%;:GCOL0,C%
  210MOVE0,0:MOVE0,100
  220FORN=0TO360STEP5:MOVE0,0
  230PLOT85,SINRADN*100,COSRADN*100
  240NEXT
  250GCOL0,0:MOVE0,100
  260FORN=0TO360STEP5
  270DRAWSINRADN*100,COSRADN*100:NEXT
  280VDU29,X%+30;Y%+30;
  290MOVE0,0:MOVE0,20:GCOL4,3
  300FORN=0TO360STEP5:MOVE0,0
  310PLOT85,SINRADN*20,COSRADN*20:NEXT
  320VDU29,0;0;:GCOL0,3:ENDPROC
  330DEFPROCelectrons
  340VDU29,650;565;:VDU5
  350FORN=-90TO270STEP4
  360P=N-180:GCOL0,1
  370MOVESINRADN*X1%,COSRADN*Y1%:VDU255
  380GCOL0,2
  390MOVESINRADP*X2%,COSRADP*Y2%:VDU255
  400TIME=0:REPEATUNTILTIME>2:GCOL0,0
  410MOVESINRADN*X1%,COSRADN*Y1%:VDU255
  420MOVESINRADP*X2%,COSRADP*Y2%:VDU255
  430NEXT:ENDPROC

� > <basicsave$dir>.Atomic
� The Safe Scientist
� (c) The Micro User
(�1
2�nucleus
<#X1%=450:Y1%=450:X2%=450:Y2%=200
F-D%=25:�23,255,24,60,126,255,255,126,60,24
P�
ZY1%=Y1%-D%:Y2%=Y2%+D%
d�electrons
n� Y1%=200 � Y1%=450 D%=-D%
x	� �:�
�
��nucleus
��particle(700,630,1)
��particle(700,500,2)
��particle(600,500,1)
��particle(600,630,2)
��
���particle(X%,Y%,C%)
��29,X%;Y%;:�0,C%
��0,0:�0,100
��N=0�360�5:�0,0
��85,��N*100,��N*100
��
��0,0:�0,100
�N=0�360�5
ߵ�N*100,��N*100:�
�29,X%+30;Y%+30;
"�0,0:�0,20:�4,3
,�N=0�360�5:�0,0
6�85,��N*20,��N*20:�
@�29,0;0;:�0,3:�
J��electrons
T�29,650;565;:�5
^�N=-90�270�4
hP=N-180:�0,1
r쵲N*X1%,��N*Y1%:�255
|�0,2
�쵲P*X2%,��P*Y2%:�255
��=0:���>2:�0,0
�쵲N*X1%,��N*Y1%:�255
�쵲P*X2%,��P*Y2%:�255
��:�
�
00000000  0d 00 0a 1e f4 20 3e 20  3c 62 61 73 69 63 73 61  |..... > <basicsa|
00000010  76 65 24 64 69 72 3e 2e  41 74 6f 6d 69 63 0d 00  |ve$dir>.Atomic..|
00000020  14 18 f4 20 54 68 65 20  53 61 66 65 20 53 63 69  |... The Safe Sci|
00000030  65 6e 74 69 73 74 0d 00  1e 18 f4 20 28 63 29 20  |entist..... (c) |
00000040  54 68 65 20 4d 69 63 72  6f 20 55 73 65 72 0d 00  |The Micro User..|
00000050  28 06 eb 31 0d 00 32 0c  f2 6e 75 63 6c 65 75 73  |(..1..2..nucleus|
00000060  0d 00 3c 23 58 31 25 3d  34 35 30 3a 59 31 25 3d  |..<#X1%=450:Y1%=|
00000070  34 35 30 3a 58 32 25 3d  34 35 30 3a 59 32 25 3d  |450:X2%=450:Y2%=|
00000080  32 30 30 0d 00 46 2d 44  25 3d 32 35 3a ef 32 33  |200..F-D%=25:.23|
00000090  2c 32 35 35 2c 32 34 2c  36 30 2c 31 32 36 2c 32  |,255,24,60,126,2|
000000a0  35 35 2c 32 35 35 2c 31  32 36 2c 36 30 2c 32 34  |55,255,126,60,24|
000000b0  0d 00 50 05 f5 0d 00 5a  19 59 31 25 3d 59 31 25  |..P....Z.Y1%=Y1%|
000000c0  2d 44 25 3a 59 32 25 3d  59 32 25 2b 44 25 0d 00  |-D%:Y2%=Y2%+D%..|
000000d0  64 0e f2 65 6c 65 63 74  72 6f 6e 73 0d 00 6e 1e  |d..electrons..n.|
000000e0  e7 20 59 31 25 3d 32 30  30 20 84 20 59 31 25 3d  |. Y1%=200 . Y1%=|
000000f0  34 35 30 20 44 25 3d 2d  44 25 0d 00 78 09 fd 20  |450 D%=-D%..x.. |
00000100  a3 3a e0 0d 00 82 0d dd  f2 6e 75 63 6c 65 75 73  |.:.......nucleus|
00000110  0d 00 8c 18 f2 70 61 72  74 69 63 6c 65 28 37 30  |.....particle(70|
00000120  30 2c 36 33 30 2c 31 29  0d 00 96 18 f2 70 61 72  |0,630,1).....par|
00000130  74 69 63 6c 65 28 37 30  30 2c 35 30 30 2c 32 29  |ticle(700,500,2)|
00000140  0d 00 a0 18 f2 70 61 72  74 69 63 6c 65 28 36 30  |.....particle(60|
00000150  30 2c 35 30 30 2c 31 29  0d 00 aa 18 f2 70 61 72  |0,500,1).....par|
00000160  74 69 63 6c 65 28 36 30  30 2c 36 33 30 2c 32 29  |ticle(600,630,2)|
00000170  0d 00 b4 05 e1 0d 00 be  18 dd f2 70 61 72 74 69  |...........parti|
00000180  63 6c 65 28 58 25 2c 59  25 2c 43 25 29 0d 00 c8  |cle(X%,Y%,C%)...|
00000190  14 ef 32 39 2c 58 25 3b  59 25 3b 3a e6 30 2c 43  |..29,X%;Y%;:.0,C|
000001a0  25 0d 00 d2 0f ec 30 2c  30 3a ec 30 2c 31 30 30  |%.....0,0:.0,100|
000001b0  0d 00 dc 13 e3 4e 3d 30  b8 33 36 30 88 35 3a ec  |.....N=0.360.5:.|
000001c0  30 2c 30 0d 00 e6 17 f0  38 35 2c b5 b2 4e 2a 31  |0,0.....85,..N*1|
000001d0  30 30 2c 9b b2 4e 2a 31  30 30 0d 00 f0 05 ed 0d  |00,..N*100......|
000001e0  00 fa 0f e6 30 2c 30 3a  ec 30 2c 31 30 30 0d 01  |....0,0:.0,100..|
000001f0  04 0e e3 4e 3d 30 b8 33  36 30 88 35 0d 01 0e 16  |...N=0.360.5....|
00000200  df b5 b2 4e 2a 31 30 30  2c 9b b2 4e 2a 31 30 30  |...N*100,..N*100|
00000210  3a ed 0d 01 18 14 ef 32  39 2c 58 25 2b 33 30 3b  |:......29,X%+30;|
00000220  59 25 2b 33 30 3b 0d 01  22 13 ec 30 2c 30 3a ec  |Y%+30;.."..0,0:.|
00000230  30 2c 32 30 3a e6 34 2c  33 0d 01 2c 13 e3 4e 3d  |0,20:.4,3..,..N=|
00000240  30 b8 33 36 30 88 35 3a  ec 30 2c 30 0d 01 36 17  |0.360.5:.0,0..6.|
00000250  f0 38 35 2c b5 b2 4e 2a  32 30 2c 9b b2 4e 2a 32  |.85,..N*20,..N*2|
00000260  30 3a ed 0d 01 40 13 ef  32 39 2c 30 3b 30 3b 3a  |0:...@..29,0;0;:|
00000270  e6 30 2c 33 3a e1 0d 01  4a 0f dd f2 65 6c 65 63  |.0,3:...J...elec|
00000280  74 72 6f 6e 73 0d 01 54  13 ef 32 39 2c 36 35 30  |trons..T..29,650|
00000290  3b 35 36 35 3b 3a ef 35  0d 01 5e 10 e3 4e 3d 2d  |;565;:.5..^..N=-|
000002a0  39 30 b8 32 37 30 88 34  0d 01 68 10 50 3d 4e 2d  |90.270.4..h.P=N-|
000002b0  31 38 30 3a e6 30 2c 31  0d 01 72 19 ec b5 b2 4e  |180:.0,1..r....N|
000002c0  2a 58 31 25 2c 9b b2 4e  2a 59 31 25 3a ef 32 35  |*X1%,..N*Y1%:.25|
000002d0  35 0d 01 7c 08 e6 30 2c  32 0d 01 86 19 ec b5 b2  |5..|..0,2.......|
000002e0  50 2a 58 32 25 2c 9b b2  50 2a 59 32 25 3a ef 32  |P*X2%,..P*Y2%:.2|
000002f0  35 35 0d 01 90 12 d1 3d  30 3a f5 fd 91 3e 32 3a  |55.....=0:...>2:|
00000300  e6 30 2c 30 0d 01 9a 19  ec b5 b2 4e 2a 58 31 25  |.0,0.......N*X1%|
00000310  2c 9b b2 4e 2a 59 31 25  3a ef 32 35 35 0d 01 a4  |,..N*Y1%:.255...|
00000320  19 ec b5 b2 50 2a 58 32  25 2c 9b b2 50 2a 59 32  |....P*X2%,..P*Y2|
00000330  25 3a ef 32 35 35 0d 01  ae 07 ed 3a e1 0d ff     |%:.255.....:...|
0000033f