dcfprogs/Graphics/Plasma2

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

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/Plasma2
Read OK:	✔
File size:	049A bytes
Load address:	0000
Exec address:	0000

Duplicates

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

Personal collection » Acorn ADFS disks » Electron » Programs_B.ADF » Graphics/Plasma2
Personal collection » Acorn hard disk » misc » misc2 » dcfprogs/Graphics/Plasma2

File contents

   10REM        Plasmatic EUG                          by D. Ford 1996
   20:
   30I%=27:REM Issue number
   40:
   50MODE 2
   60 ON ERROR GOTO 560
   70FORl=10 TO 0 STEP -1
   80GCOL0,(l MOD 6)+1
   90MOVEFNP(50-l),FNP(206+l)
  100DRAWFNP(100+l),FNP(206+l)
  110DRAWFNP(100+l),FNP(206-l)
  120DRAWFNP(50+l),FNP(206-l)
  130DRAWFNP(50+l),FNP(128+l)
  140DRAWFNP(100+l),FNP(128+l)
  150DRAWFNP(100+l),FNP(128-l)
  160DRAWFNP(50+l),FNP(128-l)
  170DRAWFNP(50+l),FNP(50+l)
  180DRAWFNP(100+l),FNP(50+l)
  190DRAWFNP(100+l),FNP(50-l)
  200DRAWFNP(50-l),FNP(50-l)
  210DRAWFNP(50-l),FNP(206+l)
  220MOVEFNP(130-l),FNP(206+l)
  230DRAWFNP(130+l),FNP(206+l)
  240DRAWFNP(130+l),FNP(50+l)
  250DRAWFNP(180-l),FNP(50+l)
  260DRAWFNP(180-l),FNP(206+l)
  270DRAWFNP(180+l),FNP(206+l)
  280DRAWFNP(180+l),FNP(50-l)
  290DRAWFNP(130-l),FNP(50-l)
  300DRAWFNP(130-l),FNP(206+l)
  310MOVEFNP(210-l),FNP(206+l)
  320DRAWFNP(260+l),FNP(206+l)
  330DRAWFNP(260+l),FNP(206-l)
  340DRAWFNP(210+l),FNP(206-l)
  350DRAWFNP(210+l),FNP(50+l)
  360DRAWFNP(260-l),FNP(50+l)
  370DRAWFNP(260-l),FNP(128+l)
  380DRAWFNP(260+l),FNP(128+l)
  390DRAWFNP(260+l),FNP(50-l)
  400DRAWFNP(210-l),FNP(50-l)
  410DRAWFNP(210-l),FNP(206+l)
  420NEXT
  430 VDU 23,1,0;0;0;0;
  440PRINTTAB(6,29)"Issue ";I%
  450PRINTTAB(3,31)"Press <SPACE>";
  460DIMval(10)
  470FORcol=0TO5
  480READval(col)
  490NEXT
  500REPEAT
  510FORL=0TO7
  520FORcol=0TO5
  530VDU19,((col+L) MOD 6)+1,val(col),0,0,0,0
  540NEXT,
  550UNTIL INKEY(-99)
  560CLS:END
  570DEFFNP(pos)=4*pos
  580DATA 0,1,3,7,3,1,-1


C�        Plasmatic EUG                          by D. Ford 1996
:
I%=27:� Issue number
(:
2� 2
< � � � �TpB
F�l=10 � 0 � -1
P�0,(l � 6)+1
Z�P(50-l),�P(206+l)
dߤP(100+l),�P(206+l)
nߤP(100+l),�P(206-l)
xߤP(50+l),�P(206-l)
�ߤP(50+l),�P(128+l)
�ߤP(100+l),�P(128+l)
�ߤP(100+l),�P(128-l)
�ߤ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)
6�P(210-l),�P(206+l)
@ߤP(260+l),�P(206+l)
JߤP(260+l),�P(206-l)
TߤP(210+l),�P(206-l)
^ߤP(210+l),�P(50+l)
hߤP(260-l),�P(50+l)
rߤP(260-l),�P(128+l)
|ߤP(260+l),�P(128+l)
�ߤP(260+l),�P(50-l)
�ߤP(210-l),�P(50-l)
�ߤP(210-l),�P(206+l)
��
� � 23,1,0;0;0;0;
��6,29)"Issue ";I%
��3,31)"Press <SPACE>";
��val(10)
��col=0�5
�
�val(col)
��
��
�
�L=0�7
�col=0�5
(�19,((col+L) � 6)+1,val(col),0,0,0,0
�,
&� �(-99)
0�:�
:ݤP(pos)=4*pos
D� 0,1,3,7,3,1,-1
�

00000000  0d 00 0a 43 f4 20 20 20  20 20 20 20 20 50 6c 61  |...C.        Pla|
00000010  73 6d 61 74 69 63 20 45  55 47 20 20 20 20 20 20  |smatic EUG      |
00000020  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000030  20 20 20 20 62 79 20 44  2e 20 46 6f 72 64 20 31  |    by D. Ford 1|
00000040  39 39 36 0d 00 14 05 3a  0d 00 1e 18 49 25 3d 32  |996....:....I%=2|
00000050  37 3a f4 20 49 73 73 75  65 20 6e 75 6d 62 65 72  |7:. Issue number|
00000060  0d 00 28 05 3a 0d 00 32  07 eb 20 32 0d 00 3c 0f  |..(.:..2.. 2..<.|
00000070  20 ee 20 85 20 e5 20 8d  54 70 42 0d 00 46 12 e3  | . . . .TpB..F..|
00000080  6c 3d 31 30 20 b8 20 30  20 88 20 2d 31 0d 00 50  |l=10 . 0 . -1..P|
00000090  10 e6 30 2c 28 6c 20 83  20 36 29 2b 31 0d 00 5a  |..0,(l . 6)+1..Z|
000000a0  17 ec a4 50 28 35 30 2d  6c 29 2c a4 50 28 32 30  |...P(50-l),.P(20|
000000b0  36 2b 6c 29 0d 00 64 18  df a4 50 28 31 30 30 2b  |6+l)..d...P(100+|
000000c0  6c 29 2c a4 50 28 32 30  36 2b 6c 29 0d 00 6e 18  |l),.P(206+l)..n.|
000000d0  df a4 50 28 31 30 30 2b  6c 29 2c a4 50 28 32 30  |..P(100+l),.P(20|
000000e0  36 2d 6c 29 0d 00 78 17  df a4 50 28 35 30 2b 6c  |6-l)..x...P(50+l|
000000f0  29 2c a4 50 28 32 30 36  2d 6c 29 0d 00 82 17 df  |),.P(206-l).....|
00000100  a4 50 28 35 30 2b 6c 29  2c a4 50 28 31 32 38 2b  |.P(50+l),.P(128+|
00000110  6c 29 0d 00 8c 18 df a4  50 28 31 30 30 2b 6c 29  |l)......P(100+l)|
00000120  2c a4 50 28 31 32 38 2b  6c 29 0d 00 96 18 df a4  |,.P(128+l)......|
00000130  50 28 31 30 30 2b 6c 29  2c a4 50 28 31 32 38 2d  |P(100+l),.P(128-|
00000140  6c 29 0d 00 a0 17 df a4  50 28 35 30 2b 6c 29 2c  |l)......P(50+l),|
00000150  a4 50 28 31 32 38 2d 6c  29 0d 00 aa 16 df a4 50  |.P(128-l)......P|
00000160  28 35 30 2b 6c 29 2c a4  50 28 35 30 2b 6c 29 0d  |(50+l),.P(50+l).|
00000170  00 b4 17 df a4 50 28 31  30 30 2b 6c 29 2c a4 50  |.....P(100+l),.P|
00000180  28 35 30 2b 6c 29 0d 00  be 17 df a4 50 28 31 30  |(50+l)......P(10|
00000190  30 2b 6c 29 2c a4 50 28  35 30 2d 6c 29 0d 00 c8  |0+l),.P(50-l)...|
000001a0  16 df a4 50 28 35 30 2d  6c 29 2c a4 50 28 35 30  |...P(50-l),.P(50|
000001b0  2d 6c 29 0d 00 d2 17 df  a4 50 28 35 30 2d 6c 29  |-l)......P(50-l)|
000001c0  2c a4 50 28 32 30 36 2b  6c 29 0d 00 dc 18 ec a4  |,.P(206+l)......|
000001d0  50 28 31 33 30 2d 6c 29  2c a4 50 28 32 30 36 2b  |P(130-l),.P(206+|
000001e0  6c 29 0d 00 e6 18 df a4  50 28 31 33 30 2b 6c 29  |l)......P(130+l)|
000001f0  2c a4 50 28 32 30 36 2b  6c 29 0d 00 f0 17 df a4  |,.P(206+l)......|
00000200  50 28 31 33 30 2b 6c 29  2c a4 50 28 35 30 2b 6c  |P(130+l),.P(50+l|
00000210  29 0d 00 fa 17 df a4 50  28 31 38 30 2d 6c 29 2c  |)......P(180-l),|
00000220  a4 50 28 35 30 2b 6c 29  0d 01 04 18 df a4 50 28  |.P(50+l)......P(|
00000230  31 38 30 2d 6c 29 2c a4  50 28 32 30 36 2b 6c 29  |180-l),.P(206+l)|
00000240  0d 01 0e 18 df a4 50 28  31 38 30 2b 6c 29 2c a4  |......P(180+l),.|
00000250  50 28 32 30 36 2b 6c 29  0d 01 18 17 df a4 50 28  |P(206+l)......P(|
00000260  31 38 30 2b 6c 29 2c a4  50 28 35 30 2d 6c 29 0d  |180+l),.P(50-l).|
00000270  01 22 17 df a4 50 28 31  33 30 2d 6c 29 2c a4 50  |."...P(130-l),.P|
00000280  28 35 30 2d 6c 29 0d 01  2c 18 df a4 50 28 31 33  |(50-l)..,...P(13|
00000290  30 2d 6c 29 2c a4 50 28  32 30 36 2b 6c 29 0d 01  |0-l),.P(206+l)..|
000002a0  36 18 ec a4 50 28 32 31  30 2d 6c 29 2c a4 50 28  |6...P(210-l),.P(|
000002b0  32 30 36 2b 6c 29 0d 01  40 18 df a4 50 28 32 36  |206+l)..@...P(26|
000002c0  30 2b 6c 29 2c a4 50 28  32 30 36 2b 6c 29 0d 01  |0+l),.P(206+l)..|
000002d0  4a 18 df a4 50 28 32 36  30 2b 6c 29 2c a4 50 28  |J...P(260+l),.P(|
000002e0  32 30 36 2d 6c 29 0d 01  54 18 df a4 50 28 32 31  |206-l)..T...P(21|
000002f0  30 2b 6c 29 2c a4 50 28  32 30 36 2d 6c 29 0d 01  |0+l),.P(206-l)..|
00000300  5e 17 df a4 50 28 32 31  30 2b 6c 29 2c a4 50 28  |^...P(210+l),.P(|
00000310  35 30 2b 6c 29 0d 01 68  17 df a4 50 28 32 36 30  |50+l)..h...P(260|
00000320  2d 6c 29 2c a4 50 28 35  30 2b 6c 29 0d 01 72 18  |-l),.P(50+l)..r.|
00000330  df a4 50 28 32 36 30 2d  6c 29 2c a4 50 28 31 32  |..P(260-l),.P(12|
00000340  38 2b 6c 29 0d 01 7c 18  df a4 50 28 32 36 30 2b  |8+l)..|...P(260+|
00000350  6c 29 2c a4 50 28 31 32  38 2b 6c 29 0d 01 86 17  |l),.P(128+l)....|
00000360  df a4 50 28 32 36 30 2b  6c 29 2c a4 50 28 35 30  |..P(260+l),.P(50|
00000370  2d 6c 29 0d 01 90 17 df  a4 50 28 32 31 30 2d 6c  |-l)......P(210-l|
00000380  29 2c a4 50 28 35 30 2d  6c 29 0d 01 9a 18 df a4  |),.P(50-l)......|
00000390  50 28 32 31 30 2d 6c 29  2c a4 50 28 32 30 36 2b  |P(210-l),.P(206+|
000003a0  6c 29 0d 01 a4 05 ed 0d  01 ae 14 20 ef 20 32 33  |l)......... . 23|
000003b0  2c 31 2c 30 3b 30 3b 30  3b 30 3b 0d 01 b8 16 f1  |,1,0;0;0;0;.....|
000003c0  8a 36 2c 32 39 29 22 49  73 73 75 65 20 22 3b 49  |.6,29)"Issue ";I|
000003d0  25 0d 01 c2 1b f1 8a 33  2c 33 31 29 22 50 72 65  |%......3,31)"Pre|
000003e0  73 73 20 3c 53 50 41 43  45 3e 22 3b 0d 01 cc 0c  |ss <SPACE>";....|
000003f0  de 76 61 6c 28 31 30 29  0d 01 d6 0c e3 63 6f 6c  |.val(10).....col|
00000400  3d 30 b8 35 0d 01 e0 0d  f3 76 61 6c 28 63 6f 6c  |=0.5.....val(col|
00000410  29 0d 01 ea 05 ed 0d 01  f4 05 f5 0d 01 fe 0a e3  |)...............|
00000420  4c 3d 30 b8 37 0d 02 08  0c e3 63 6f 6c 3d 30 b8  |L=0.7.....col=0.|
00000430  35 0d 02 12 28 ef 31 39  2c 28 28 63 6f 6c 2b 4c  |5...(.19,((col+L|
00000440  29 20 83 20 36 29 2b 31  2c 76 61 6c 28 63 6f 6c  |) . 6)+1,val(col|
00000450  29 2c 30 2c 30 2c 30 2c  30 0d 02 1c 06 ed 2c 0d  |),0,0,0,0.....,.|
00000460  02 26 0c fd 20 a6 28 2d  39 39 29 0d 02 30 07 db  |.&.. .(-99)..0..|
00000470  3a e0 0d 02 3a 12 dd a4  50 28 70 6f 73 29 3d 34  |:...:...P(pos)=4|
00000480  2a 70 6f 73 0d 02 44 14  dc 20 30 2c 31 2c 33 2c  |*pos..D.. 0,1,3,|
00000490  37 2c 33 2c 31 2c 2d 31  0d ff                    |7,3,1,-1..|
0000049a

Our privacy policy is here.
Last updated: 10 Jun 2024, 13:20 UTC
Website designed by .