Home » Personal collection » Acorn ADFS disks » Electron » Electrolysis.ADF » ELECTRO2
ELECTRO2
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 ADFS disks » Electron » Electrolysis.ADF |
| Filename: | ELECTRO2 |
| Read OK: | ✔ |
| File size: | 00E9 bytes |
| Load address: | FFFF1D00 |
| Exec address: | FFFF8023 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Personal collection » Acorn ADFS disks » Electron » Electrolysis.ADF » ELECTRO2
- Personal collection » Acorn hard disk » zipped_disks » elk06 » electrolys/ELECTRO2
File contents
232 MODE0:file=OPENOUT("ElecDATA3")
1010 A=0:B%=0:T=TIME
1015 B%=B%+1
1018 A=A+(ADVAL(1)/256-A)/B%
1020 IF TIME>=T+500 THEN BPUT#file,A:time=time+5:MOVE (time/5*2) MOD1280,A*4:DRAW (time/5*2) MOD 1280,A*4:GOTO1010
1025 IF INKEY(-35) THEN CLOSE#0:OSCLI"SA. EleGRAPH3a 3000 8000":END
1030 GOTO 1015
� �0:file=�("ElecDATA3")
� A=0:B%=0:T=�
� B%=B%+1
� A=A+(�(1)/256-A)/B%
�[ � �>=T+500 � �#file,A:time=time+5:� (time/5*2) �1280,A*4:� (time/5*2) � 1280,A*4:�drC
1 � �(-35) � �#0:�"SA. EleGRAPH3a 3000 8000":�
� �dwC
� 00000000 0d 00 e8 1b 20 eb 30 3a 66 69 6c 65 3d ae 28 22 |.... .0:file=.("|
00000010 45 6c 65 63 44 41 54 41 33 22 29 0d 03 f2 11 20 |ElecDATA3").... |
00000020 41 3d 30 3a 42 25 3d 30 3a 54 3d 91 0d 03 f7 0c |A=0:B%=0:T=.....|
00000030 20 42 25 3d 42 25 2b 31 0d 03 fa 18 20 41 3d 41 | B%=B%+1.... A=A|
00000040 2b 28 96 28 31 29 2f 32 35 36 2d 41 29 2f 42 25 |+(.(1)/256-A)/B%|
00000050 0d 03 fc 5b 20 e7 20 91 3e 3d 54 2b 35 30 30 20 |...[ . .>=T+500 |
00000060 8c 20 d5 23 66 69 6c 65 2c 41 3a 74 69 6d 65 3d |. .#file,A:time=|
00000070 74 69 6d 65 2b 35 3a ec 20 28 74 69 6d 65 2f 35 |time+5:. (time/5|
00000080 2a 32 29 20 83 31 32 38 30 2c 41 2a 34 3a df 20 |*2) .1280,A*4:. |
00000090 28 74 69 6d 65 2f 35 2a 32 29 20 83 20 31 32 38 |(time/5*2) . 128|
000000a0 30 2c 41 2a 34 3a e5 8d 64 72 43 0d 04 01 31 20 |0,A*4:..drC...1 |
000000b0 e7 20 a6 28 2d 33 35 29 20 8c 20 d9 23 30 3a ff |. .(-35) . .#0:.|
000000c0 22 53 41 2e 20 45 6c 65 47 52 41 50 48 33 61 20 |"SA. EleGRAPH3a |
000000d0 33 30 30 30 20 38 30 30 30 22 3a e0 0d 04 06 0b |3000 8000":.....|
000000e0 20 e5 20 8d 64 77 43 0d ff | . .dwC..|
000000e9 
.