Home » Personal collection » Acorn hard disk » misc » misc2 » dcfprogs/Graphics/Plasma

dcfprogs/Graphics/Plasma

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 » misc » misc2
Filename: dcfprogs/Graphics/Plasma
Read OK: ✔
File size: 03EB bytes
Load address: 0000
Exec address: 0000
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10REM Plasmatic EUG
   20MODE 2
   30FORl=60 TO 0 STEP -1
   40GCOL0,l MOD 7
   50MOVEFNP(50-l),FNP(206+l)
   60DRAWFNP(100+l),FNP(206+l)
   70DRAWFNP(100+l),FNP(206-l)
   80DRAWFNP(50+l),FNP(206-l)
   90DRAWFNP(50+l),FNP(128+l)
  100DRAWFNP(100+l),FNP(128+l)
  110DRAWFNP(100+l),FNP(128-l)
  120DRAWFNP(50+l),FNP(128-l)
  130DRAWFNP(50+l),FNP(50+l)
  140DRAWFNP(100+l),FNP(50+l)
  150DRAWFNP(100+l),FNP(50-l)
  160DRAWFNP(50-l),FNP(50-l)
  170DRAWFNP(50-l),FNP(206+l)
  180MOVEFNP(130-l),FNP(206+l)
  190DRAWFNP(130+l),FNP(206+l)
  200DRAWFNP(130+l),FNP(50+l)
  210DRAWFNP(180-l),FNP(50+l)
  220DRAWFNP(180-l),FNP(206+l)
  230DRAWFNP(180+l),FNP(206+l)
  240DRAWFNP(180+l),FNP(50-l)
  250DRAWFNP(130-l),FNP(50-l)
  260DRAWFNP(130-l),FNP(206+l)
  270MOVEFNP(210-l),FNP(206+l)
  280DRAWFNP(260+l),FNP(206+l)
  290DRAWFNP(260+l),FNP(206-l)
  300DRAWFNP(210+l),FNP(206-l)
  310DRAWFNP(210+l),FNP(50+l)
  320DRAWFNP(260-l),FNP(50+l)
  330DRAWFNP(260-l),FNP(128+l)
  340DRAWFNP(260+l),FNP(128+l)
  350DRAWFNP(260+l),FNP(50-l)
  360DRAWFNP(210-l),FNP(50-l)
  370DRAWFNP(210-l),FNP(206+l)
  380NEXT
  390DIMval(14)
  400FORcol=0TO6
  410READval(col)
  420NEXT
  430REPEAT
  440FORL=0TO8
  450FORcol=0TO6
  460VDU19,(col+L) MOD 7,val(col),0,0,0,0
  470NEXT,
  480UNTIL INKEY(-1)
  490END
  500DEFFNP(pos)=4*pos
  510DATA 0,1,3,7,3,1,0,-1


� Plasmatic EUG
� 2
�l=60 � 0 � -1
(�0,l � 7
2�P(50-l),�P(206+l)
<ߤP(100+l),�P(206+l)
FߤP(100+l),�P(206-l)
PߤP(50+l),�P(206-l)
ZߤP(50+l),�P(128+l)
dߤP(100+l),�P(128+l)
nߤP(100+l),�P(128-l)
xߤP(50+l),�P(128-l)
�ߤP(50+l),�P(50+l)
�ߤP(100+l),�P(50+l)
�ߤP(100+l),�P(50-l)
�ߤP(50-l),�P(50-l)
�ߤP(50-l),�P(206+l)
��P(130-l),�P(206+l)
�ߤP(130+l),�P(206+l)
�ߤP(130+l),�P(50+l)
�ߤP(180-l),�P(50+l)
�ߤP(180-l),�P(206+l)
�ߤP(180+l),�P(206+l)
�ߤP(180+l),�P(50-l)
�ߤP(130-l),�P(50-l)
ߤP(130-l),�P(206+l)
�P(210-l),�P(206+l)
ߤP(260+l),�P(206+l)
"ߤP(260+l),�P(206-l)
,ߤP(210+l),�P(206-l)
6ߤP(210+l),�P(50+l)
@ߤP(260-l),�P(50+l)
JߤP(260-l),�P(128+l)
TߤP(260+l),�P(128+l)
^ߤP(260+l),�P(50-l)
hߤP(210-l),�P(50-l)
rߤP(210-l),�P(206+l)
|�
��val(14)
��col=0�6
�
�val(col)
��
��
�
�L=0�8
��col=0�6
�$�19,(col+L) � 7,val(col),0,0,0,0
��,
�� �(-1)
��
�ݤP(pos)=4*pos
�� 0,1,3,7,3,1,0,-1
�
00000000  0d 00 0a 13 f4 20 50 6c  61 73 6d 61 74 69 63 20  |..... Plasmatic |
00000010  45 55 47 0d 00 14 07 eb  20 32 0d 00 1e 12 e3 6c  |EUG..... 2.....l|
00000020  3d 36 30 20 b8 20 30 20  88 20 2d 31 0d 00 28 0c  |=60 . 0 . -1..(.|
00000030  e6 30 2c 6c 20 83 20 37  0d 00 32 17 ec a4 50 28  |.0,l . 7..2...P(|
00000040  35 30 2d 6c 29 2c a4 50  28 32 30 36 2b 6c 29 0d  |50-l),.P(206+l).|
00000050  00 3c 18 df a4 50 28 31  30 30 2b 6c 29 2c a4 50  |.<...P(100+l),.P|
00000060  28 32 30 36 2b 6c 29 0d  00 46 18 df a4 50 28 31  |(206+l)..F...P(1|
00000070  30 30 2b 6c 29 2c a4 50  28 32 30 36 2d 6c 29 0d  |00+l),.P(206-l).|
00000080  00 50 17 df a4 50 28 35  30 2b 6c 29 2c a4 50 28  |.P...P(50+l),.P(|
00000090  32 30 36 2d 6c 29 0d 00  5a 17 df a4 50 28 35 30  |206-l)..Z...P(50|
000000a0  2b 6c 29 2c a4 50 28 31  32 38 2b 6c 29 0d 00 64  |+l),.P(128+l)..d|
000000b0  18 df a4 50 28 31 30 30  2b 6c 29 2c a4 50 28 31  |...P(100+l),.P(1|
000000c0  32 38 2b 6c 29 0d 00 6e  18 df a4 50 28 31 30 30  |28+l)..n...P(100|
000000d0  2b 6c 29 2c a4 50 28 31  32 38 2d 6c 29 0d 00 78  |+l),.P(128-l)..x|
000000e0  17 df a4 50 28 35 30 2b  6c 29 2c a4 50 28 31 32  |...P(50+l),.P(12|
000000f0  38 2d 6c 29 0d 00 82 16  df a4 50 28 35 30 2b 6c  |8-l)......P(50+l|
00000100  29 2c a4 50 28 35 30 2b  6c 29 0d 00 8c 17 df a4  |),.P(50+l)......|
00000110  50 28 31 30 30 2b 6c 29  2c a4 50 28 35 30 2b 6c  |P(100+l),.P(50+l|
00000120  29 0d 00 96 17 df a4 50  28 31 30 30 2b 6c 29 2c  |)......P(100+l),|
00000130  a4 50 28 35 30 2d 6c 29  0d 00 a0 16 df a4 50 28  |.P(50-l)......P(|
00000140  35 30 2d 6c 29 2c a4 50  28 35 30 2d 6c 29 0d 00  |50-l),.P(50-l)..|
00000150  aa 17 df a4 50 28 35 30  2d 6c 29 2c a4 50 28 32  |....P(50-l),.P(2|
00000160  30 36 2b 6c 29 0d 00 b4  18 ec a4 50 28 31 33 30  |06+l)......P(130|
00000170  2d 6c 29 2c a4 50 28 32  30 36 2b 6c 29 0d 00 be  |-l),.P(206+l)...|
00000180  18 df a4 50 28 31 33 30  2b 6c 29 2c a4 50 28 32  |...P(130+l),.P(2|
00000190  30 36 2b 6c 29 0d 00 c8  17 df a4 50 28 31 33 30  |06+l)......P(130|
000001a0  2b 6c 29 2c a4 50 28 35  30 2b 6c 29 0d 00 d2 17  |+l),.P(50+l)....|
000001b0  df a4 50 28 31 38 30 2d  6c 29 2c a4 50 28 35 30  |..P(180-l),.P(50|
000001c0  2b 6c 29 0d 00 dc 18 df  a4 50 28 31 38 30 2d 6c  |+l)......P(180-l|
000001d0  29 2c a4 50 28 32 30 36  2b 6c 29 0d 00 e6 18 df  |),.P(206+l).....|
000001e0  a4 50 28 31 38 30 2b 6c  29 2c a4 50 28 32 30 36  |.P(180+l),.P(206|
000001f0  2b 6c 29 0d 00 f0 17 df  a4 50 28 31 38 30 2b 6c  |+l)......P(180+l|
00000200  29 2c a4 50 28 35 30 2d  6c 29 0d 00 fa 17 df a4  |),.P(50-l)......|
00000210  50 28 31 33 30 2d 6c 29  2c a4 50 28 35 30 2d 6c  |P(130-l),.P(50-l|
00000220  29 0d 01 04 18 df a4 50  28 31 33 30 2d 6c 29 2c  |)......P(130-l),|
00000230  a4 50 28 32 30 36 2b 6c  29 0d 01 0e 18 ec a4 50  |.P(206+l)......P|
00000240  28 32 31 30 2d 6c 29 2c  a4 50 28 32 30 36 2b 6c  |(210-l),.P(206+l|
00000250  29 0d 01 18 18 df a4 50  28 32 36 30 2b 6c 29 2c  |)......P(260+l),|
00000260  a4 50 28 32 30 36 2b 6c  29 0d 01 22 18 df a4 50  |.P(206+l).."...P|
00000270  28 32 36 30 2b 6c 29 2c  a4 50 28 32 30 36 2d 6c  |(260+l),.P(206-l|
00000280  29 0d 01 2c 18 df a4 50  28 32 31 30 2b 6c 29 2c  |)..,...P(210+l),|
00000290  a4 50 28 32 30 36 2d 6c  29 0d 01 36 17 df a4 50  |.P(206-l)..6...P|
000002a0  28 32 31 30 2b 6c 29 2c  a4 50 28 35 30 2b 6c 29  |(210+l),.P(50+l)|
000002b0  0d 01 40 17 df a4 50 28  32 36 30 2d 6c 29 2c a4  |..@...P(260-l),.|
000002c0  50 28 35 30 2b 6c 29 0d  01 4a 18 df a4 50 28 32  |P(50+l)..J...P(2|
000002d0  36 30 2d 6c 29 2c a4 50  28 31 32 38 2b 6c 29 0d  |60-l),.P(128+l).|
000002e0  01 54 18 df a4 50 28 32  36 30 2b 6c 29 2c a4 50  |.T...P(260+l),.P|
000002f0  28 31 32 38 2b 6c 29 0d  01 5e 17 df a4 50 28 32  |(128+l)..^...P(2|
00000300  36 30 2b 6c 29 2c a4 50  28 35 30 2d 6c 29 0d 01  |60+l),.P(50-l)..|
00000310  68 17 df a4 50 28 32 31  30 2d 6c 29 2c a4 50 28  |h...P(210-l),.P(|
00000320  35 30 2d 6c 29 0d 01 72  18 df a4 50 28 32 31 30  |50-l)..r...P(210|
00000330  2d 6c 29 2c a4 50 28 32  30 36 2b 6c 29 0d 01 7c  |-l),.P(206+l)..||
00000340  05 ed 0d 01 86 0c de 76  61 6c 28 31 34 29 0d 01  |.......val(14)..|
00000350  90 0c e3 63 6f 6c 3d 30  b8 36 0d 01 9a 0d f3 76  |...col=0.6.....v|
00000360  61 6c 28 63 6f 6c 29 0d  01 a4 05 ed 0d 01 ae 05  |al(col).........|
00000370  f5 0d 01 b8 0a e3 4c 3d  30 b8 38 0d 01 c2 0c e3  |......L=0.8.....|
00000380  63 6f 6c 3d 30 b8 36 0d  01 cc 24 ef 31 39 2c 28  |col=0.6...$.19,(|
00000390  63 6f 6c 2b 4c 29 20 83  20 37 2c 76 61 6c 28 63  |col+L) . 7,val(c|
000003a0  6f 6c 29 2c 30 2c 30 2c  30 2c 30 0d 01 d6 06 ed  |ol),0,0,0,0.....|
000003b0  2c 0d 01 e0 0b fd 20 a6  28 2d 31 29 0d 01 ea 05  |,..... .(-1)....|
000003c0  e0 0d 01 f4 12 dd a4 50  28 70 6f 73 29 3d 34 2a  |.......P(pos)=4*|
000003d0  70 6f 73 0d 01 fe 16 dc  20 30 2c 31 2c 33 2c 37  |pos..... 0,1,3,7|
000003e0  2c 33 2c 31 2c 30 2c 2d  31 0d ff                 |,3,1,0,-1..|
000003eb

© Dominic Ford 2021–2024.

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