Home » Personal collection » Commodore disks » disk50a2_progs1.d64 » plasma

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 » Commodore disks » disk50a2_progs1.d64
Filename: plasma
Read OK:
File size: 04AF bytes
Load address: 0801
Exec address: 0000
File contents
    40 S=16:B=3:C=8:SM=1024:POKE53281,0:DIMP(1,319)
    42 XM=-2:MX=2:YM=-2:MY=2
    45 POKE53272,(PEEK(53272) AND 15) OR S
    50 POKE56578,PEEK(56578) OR 3
    55 POKE56576,(PEEK(56576) AND 252) ORB
    60 X=C*1024:H=INT(X/256):L=X-256*H
    65 POKE51,L:POKE52,H:FORV=55296TO56295:POKEV,15:NEXT
    70 POKE55,L:POKE56,H:POKE53285,0
    75 POKE53272,(PEEK(53272) AND 241) ORC
    80 POKE53265,PEEK(53265) OR 32
    82 POKE53270,PEEK(53270) OR 16
    85 FOR J=SM TO SM+999
    90 POKEJ,188
    95 NEXT
   100 FOR J=X TO X+7999
   105 POKE J,0
   110 NEXT
   115 FORR=0TO199:O=PO:PO=0-PO:FORC=0TO319STEP2
   120 TL=5:TM=5:TR=5
   130 L=5:IFC<>0 THEN L=P(PO,C-2):IFR<>0THENTL=P(O,C-2)
   140 IF R<>0 THEN TM=P(O,C)
   150 IF C<>318 AND R<>0 THEN TR=P(O,C+2)
   155 CT=INT(RND(1)*9)
   160 PR=INT(ABS(CT-TL)/3)+INT(ABS(CT-TM)/3)+INT(ABS(CT-TR)/3)+INT(ABS(CT-L)/3)
   165 IF PR<>0 THEN 155
   167 CL=INT(CT/3.3333):GOSUB1020
   170 P(PO,C)=CT:NEXT:NEXT
   175 GETK$:IFK$<>" "THEN175
   180 POKE53265,PEEK(53265) AND 223
   185 POKE53272,(PEEK(53272) AND 240) OR4
   190 STOP
  1000 BYTE=X+7687-320*INT(R/8)-(RAND7)+INT(C/8)*8
  1005 BIT=7-(CAND7)
  1010 POKE BYTE,PEEK(BYTE) OR 2^BIT
  1015 RETURN
  1020 REMCB=INT(CL/4)
  1022 REMIFCB=0THENCL=2
  1025 REMIFCB=1THENCL=0
  1027 REMIFCB=2THENCL=3
  1028 REMIFCB=3THENCL=1
  1030 IF (CL AND 2)=2 THEN GOSUB1000
  1035 C=C+1:IF (CL AND 1)=1 THEN GOSUB1000
  1040 C=C-1:RETURN
  1050 POKE820,(A AND 3):POKE821,((A+1) AND 3):POKE822,((A+2) AND 3)
  1060 POKE823,((A+3) AND 3)
  1070 A=A+1:FORR=0TOPEEK(824):NEXT:GOTO 1050
  9876 FORJ=8*1024 TO 8*1024+7999:POKEJ,INT(RND(1)*255):NEXT

-(S�16:B�3:C�8:SM�1024:�53281,0:�P(1,319)G*XM��2:MX�2:YM��2:MY�2f-�53272,(�(53272) � 15) � S~2�56578,�(56578) � 3�7�56576,(�(56576) � 252) �B�<X�C�1024:H��(X�256):L�X�256�H�A�51,L:�52,H:�V�55296�56295:�V,15:��F�55,L:�56,H:�53285,0	K�53272,(�(53272) � 241) �C7	P�53265,�(53265) � 32P	R�53270,�(53270) � 16d	U� J�SM � SM�999o	Z�J,188u	_��	d� J�X � X�7999�	i� J,0�	n��	s�R�0�199:O�PO:PO�0�PO:�C�0�319�2�	xTL�5:TM�5:TR�5�	�L�5:�C��0 � L�P(PO,C�2):�R��0�TL�P(O,C�2)
�� R��0 � TM�P(O,C)7
�� C��318 � R��0 � TR�P(O,C�2)H
�CT��(�(1)�9)�
�PR��(�(CT�TL)�3)��(�(CT�TM)�3)��(�(CT�TR)�3)��(�(CT�L)�3)�
�� PR��0 � 155�
�CL��(CT�3.3333):�1020�
�P(PO,C)�CT:�:��
��K$:�K$��" "�175�
��53265,�(53265) � 223��53272,(�(53272) � 240) �4��C�BYTE�X�7687�320��(R�8)�(R�7)��(C�8)�8S�BIT�7�(C�7)n�� BYTE,�(BYTE) � 2�BITt�����CB=INT(CL/4)���IFCB=0THENCL=2��IFCB=1THENCL=0��IFCB=2THENCL=3��IFCB=3THENCL=1�� (CL � 2)�2 � �1000C�C�1:� (CL � 1)�1 � �1000C�C�1:�M�820,(A � 3):�821,((A�1) � 3):�822,((A�2) � 3)b$�823,((A�3) � 3)�.A�A�1:�R�0��(824):�:� 1050��&�J�8�1024 � 8�1024�7999:�J,�(�(1)�255):�
-H(@s.16:b.3:c.8:sm.1024:.53281,0:.p(1,319)@gH*@xm..2:mx.2:ym..2:my.2@FH-@.53272,(.(53272) . 15) . s@.H2@.56578,.(56578) . 3@.H7@.56576,(.(56576) . 252) .b@.H<@x.c.1024:h..(x.256):l.x.256.h@.Ha@.51,l:.52,h:.v.55296.56295:.v,15:.@.Hf@.55,l:.56,h:.53285,0@.Ik@.53272,(.(53272) . 241) .c@7Ip@.53265,.(53265) . 32@pIr@.53270,.(53270) . 16@DIu@. j.sm . sm.999@OIz@.j,188@UI.@.@.ID@. j.x . x.7999@.II@. j,0@.IN@.@.IS@.r.0.199:o.po:po.0.po:.c.0.319.2@.IX@tl.5:tm.5:tr.5@.I.@l.5:.c..0 . l.p(po,c.2):.r..0.tl.p(o,c.2)@UJ.@. r..0 . tm.p(o,c)@7J.@. c..318 . r..0 . tr.p(o,c.2)@hJ.@ct..(.(1).9)@.J.@pr..(.(ct.tl).3)..(.(ct.tm).3)..(.(ct.tr).3)..(.(ct.l).3)@.J.@. pr..0 . 155@.J.@cl..(ct.3.3333):.1020@.J.@p(po,c).ct:.:.@.J.@.k$:.k$.." ".175@.J.@.53265,.(53265) . 223@SK.@.53272,(.(53272) . 240) .4@YK.@.@cK.Cbyte.x.7687.320..(r.8).(r.7)..(c.8).8@sK.Cbit.7.(c.7)@NK.C. byte,.(byte) . 2.bit@TK.C.@.K.C.cb=int(cl/4)@.K.C.ifcb=0thencl=2@.KAD.ifcb=1thencl=0@.KCD.ifcb=2thencl=3@.KDD.ifcb=3thencl=1@.KFD. (cl . 2).2 . .1000@NLKDc.c.1:. (cl . 1).1 . .1000@ZLPDc.c.1:.@mLZD.820,(a . 3):.821,((a.1) . 3):.822,((a.2) . 3)@BL$D.823,((a.3) . 3)@.L.Da.a.1:.r.0..(824):.:. 1050@.L.&.j.8.1024 . 8.1024.7999:.j,.(.(1).255):.@@@
00000000  2d 08 28 00 53 b2 31 36  3a 42 b2 33 3a 43 b2 38  |-.(.S.16:B.3:C.8|
00000010  3a 53 4d b2 31 30 32 34  3a 97 35 33 32 38 31 2c  |:SM.1024:.53281,|
00000020  30 3a 86 50 28 31 2c 33  31 39 29 00 47 08 2a 00  |0:.P(1,319).G.*.|
00000030  58 4d b2 ab 32 3a 4d 58  b2 32 3a 59 4d b2 ab 32  |XM..2:MX.2:YM..2|
00000040  3a 4d 59 b2 32 00 66 08  2d 00 97 35 33 32 37 32  |:MY.2.f.-..53272|
00000050  2c 28 c2 28 35 33 32 37  32 29 20 af 20 31 35 29  |,(.(53272) . 15)|
00000060  20 b0 20 53 00 7e 08 32  00 97 35 36 35 37 38 2c  | . S.~.2..56578,|
00000070  c2 28 35 36 35 37 38 29  20 b0 20 33 00 9d 08 37  |.(56578) . 3...7|
00000080  00 97 35 36 35 37 36 2c  28 c2 28 35 36 35 37 36  |..56576,(.(56576|
00000090  29 20 af 20 32 35 32 29  20 b0 42 00 bf 08 3c 00  |) . 252) .B...<.|
000000a0  58 b2 43 ac 31 30 32 34  3a 48 b2 b5 28 58 ad 32  |X.C.1024:H..(X.2|
000000b0  35 36 29 3a 4c b2 58 ab  32 35 36 ac 48 00 e6 08  |56):L.X.256.H...|
000000c0  41 00 97 35 31 2c 4c 3a  97 35 32 2c 48 3a 81 56  |A..51,L:.52,H:.V|
000000d0  b2 35 35 32 39 36 a4 35  36 32 39 35 3a 97 56 2c  |.55296.56295:.V,|
000000e0  31 35 3a 82 00 ff 08 46  00 97 35 35 2c 4c 3a 97  |15:....F..55,L:.|
000000f0  35 36 2c 48 3a 97 35 33  32 38 35 2c 30 00 1e 09  |56,H:.53285,0...|
00000100  4b 00 97 35 33 32 37 32  2c 28 c2 28 35 33 32 37  |K..53272,(.(5327|
00000110  32 29 20 af 20 32 34 31  29 20 b0 43 00 37 09 50  |2) . 241) .C.7.P|
00000120  00 97 35 33 32 36 35 2c  c2 28 35 33 32 36 35 29  |..53265,.(53265)|
00000130  20 b0 20 33 32 00 50 09  52 00 97 35 33 32 37 30  | . 32.P.R..53270|
00000140  2c c2 28 35 33 32 37 30  29 20 b0 20 31 36 00 64  |,.(53270) . 16.d|
00000150  09 55 00 81 20 4a b2 53  4d 20 a4 20 53 4d aa 39  |.U.. J.SM . SM.9|
00000160  39 39 00 6f 09 5a 00 97  4a 2c 31 38 38 00 75 09  |99.o.Z..J,188.u.|
00000170  5f 00 82 00 88 09 64 00  81 20 4a b2 58 20 a4 20  |_.....d.. J.X . |
00000180  58 aa 37 39 39 39 00 92  09 69 00 97 20 4a 2c 30  |X.7999...i.. J,0|
00000190  00 98 09 6e 00 82 00 bd  09 73 00 81 52 b2 30 a4  |...n.....s..R.0.|
000001a0  31 39 39 3a 4f b2 50 4f  3a 50 4f b2 30 ab 50 4f  |199:O.PO:PO.0.PO|
000001b0  3a 81 43 b2 30 a4 33 31  39 a9 32 00 d0 09 78 00  |:.C.0.319.2...x.|
000001c0  54 4c b2 35 3a 54 4d b2  35 3a 54 52 b2 35 00 fe  |TL.5:TM.5:TR.5..|
000001d0  09 82 00 4c b2 35 3a 8b  43 b3 b1 30 20 a7 20 4c  |...L.5:.C..0 . L|
000001e0  b2 50 28 50 4f 2c 43 ab  32 29 3a 8b 52 b3 b1 30  |.P(PO,C.2):.R..0|
000001f0  a7 54 4c b2 50 28 4f 2c  43 ab 32 29 00 15 0a 8c  |.TL.P(O,C.2)....|
00000200  00 8b 20 52 b3 b1 30 20  a7 20 54 4d b2 50 28 4f  |.. R..0 . TM.P(O|
00000210  2c 43 29 00 37 0a 96 00  8b 20 43 b3 b1 33 31 38  |,C).7.... C..318|
00000220  20 af 20 52 b3 b1 30 20  a7 20 54 52 b2 50 28 4f  | . R..0 . TR.P(O|
00000230  2c 43 aa 32 29 00 48 0a  9b 00 43 54 b2 b5 28 bb  |,C.2).H...CT..(.|
00000240  28 31 29 ac 39 29 00 86  0a a0 00 50 52 b2 b5 28  |(1).9).....PR..(|
00000250  b6 28 43 54 ab 54 4c 29  ad 33 29 aa b5 28 b6 28  |.(CT.TL).3)..(.(|
00000260  43 54 ab 54 4d 29 ad 33  29 aa b5 28 b6 28 43 54  |CT.TM).3)..(.(CT|
00000270  ab 54 52 29 ad 33 29 aa  b5 28 b6 28 43 54 ab 4c  |.TR).3)..(.(CT.L|
00000280  29 ad 33 29 00 98 0a a5  00 8b 20 50 52 b3 b1 30  |).3)...... PR..0|
00000290  20 a7 20 31 35 35 00 b2  0a a7 00 43 4c b2 b5 28  | . 155.....CL..(|
000002a0  43 54 ad 33 2e 33 33 33  33 29 3a 8d 31 30 32 30  |CT.3.3333):.1020|
000002b0  00 c5 0a aa 00 50 28 50  4f 2c 43 29 b2 43 54 3a  |.....P(PO,C).CT:|
000002c0  82 3a 82 00 da 0a af 00  a1 4b 24 3a 8b 4b 24 b3  |.:.......K$:.K$.|
000002d0  b1 22 20 22 a7 31 37 35  00 f4 0a b4 00 97 35 33  |." ".175......53|
000002e0  32 36 35 2c c2 28 35 33  32 36 35 29 20 af 20 32  |265,.(53265) . 2|
000002f0  32 33 00 13 0b b9 00 97  35 33 32 37 32 2c 28 c2  |23......53272,(.|
00000300  28 35 33 32 37 32 29 20  af 20 32 34 30 29 20 b0  |(53272) . 240) .|
00000310  34 00 19 0b be 00 90 00  43 0b e8 03 42 59 54 45  |4.......C...BYTE|
00000320  b2 58 aa 37 36 38 37 ab  33 32 30 ac b5 28 52 ad  |.X.7687.320..(R.|
00000330  38 29 ab 28 52 af 37 29  aa b5 28 43 ad 38 29 ac  |8).(R.7)..(C.8).|
00000340  38 00 53 0b ed 03 42 49  54 b2 37 ab 28 43 af 37  |8.S...BIT.7.(C.7|
00000350  29 00 6e 0b f2 03 97 20  42 59 54 45 2c c2 28 42  |).n.... BYTE,.(B|
00000360  59 54 45 29 20 b0 20 32  ae 42 49 54 00 74 0b f7  |YTE) . 2.BIT.t..|
00000370  03 8e 00 86 0b fc 03 8f  43 42 3d 49 4e 54 28 43  |........CB=INT(C|
00000380  4c 2f 34 29 00 9a 0b fe  03 8f 49 46 43 42 3d 30  |L/4)......IFCB=0|
00000390  54 48 45 4e 43 4c 3d 32  00 ae 0b 01 04 8f 49 46  |THENCL=2......IF|
000003a0  43 42 3d 31 54 48 45 4e  43 4c 3d 30 00 c2 0b 03  |CB=1THENCL=0....|
000003b0  04 8f 49 46 43 42 3d 32  54 48 45 4e 43 4c 3d 33  |..IFCB=2THENCL=3|
000003c0  00 d6 0b 04 04 8f 49 46  43 42 3d 33 54 48 45 4e  |......IFCB=3THEN|
000003d0  43 4c 3d 31 00 ef 0b 06  04 8b 20 28 43 4c 20 af  |CL=1...... (CL .|
000003e0  20 32 29 b2 32 20 a7 20  8d 31 30 30 30 00 0e 0c  | 2).2 . .1000...|
000003f0  0b 04 43 b2 43 aa 31 3a  8b 20 28 43 4c 20 af 20  |..C.C.1:. (CL . |
00000400  31 29 b2 31 20 a7 20 8d  31 30 30 30 00 1a 0c 10  |1).1 . .1000....|
00000410  04 43 b2 43 ab 31 3a 8e  00 4d 0c 1a 04 97 38 32  |.C.C.1:..M....82|
00000420  30 2c 28 41 20 af 20 33  29 3a 97 38 32 31 2c 28  |0,(A . 3):.821,(|
00000430  28 41 aa 31 29 20 af 20  33 29 3a 97 38 32 32 2c  |(A.1) . 3):.822,|
00000440  28 28 41 aa 32 29 20 af  20 33 29 00 62 0c 24 04  |((A.2) . 3).b.$.|
00000450  97 38 32 33 2c 28 28 41  aa 33 29 20 af 20 33 29  |.823,((A.3) . 3)|
00000460  00 81 0c 2e 04 41 b2 41  aa 31 3a 81 52 b2 30 a4  |.....A.A.1:.R.0.|
00000470  c2 28 38 32 34 29 3a 82  3a 89 20 31 30 35 30 00  |.(824):.:. 1050.|
00000480  ae 0c 94 26 81 4a b2 38  ac 31 30 32 34 20 a4 20  |...&.J.8.1024 . |
00000490  38 ac 31 30 32 34 aa 37  39 39 39 3a 97 4a 2c b5  |8.1024.7999:.J,.|
000004a0  28 bb 28 31 29 ac 32 35  35 29 3a 82 00 00 00     |(.(1).255):....|
000004af