Home » Personal collection » Acorn ADFS disks » Electron » Electrolysis.ADF » ANALOGUE
ANALOGUE
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: | ANALOGUE |
| Read OK: | ✔ |
| File size: | 00C3 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 » ANALOGUE
- Personal collection » Acorn hard disk » zipped_disks » elk06 » electrolys/ANALOGUE
File contents
4 @%=&2020A
5 CLS
10 A=ADVAL(1):PRINT TAB(5,12) A/256,A/65536*1.8*11*2/3
20 GOTO10
1000 @%=&2050A
1010 A=0:B%=0
1015 B%=B%+1
1018 A=A+(ADVAL(1)/65536*1.8*11*2/3-A)/B%
1020 IF B% MOD100=0 THEN PRINT B%,A:GOTO1010
1030 GOTO 1015
@%=&2020A � - A=�(1):� �5,12) A/256,A/65536*1.8*11*2/3 �TJ@ � @%=&2050A � A=0:B%=0 � B%=B%+1 �% A=A+(�(1)/65536*1.8*11*2/3-A)/B% � � B% �100=0 � � B%,A:�drC � �dwC �
00000000 0d 00 04 0e 20 40 25 3d 26 32 30 32 30 41 0d 00 |.... @%=&2020A..| 00000010 05 06 20 db 0d 00 0a 2d 20 41 3d 96 28 31 29 3a |.. ....- A=.(1):| 00000020 f1 20 8a 35 2c 31 32 29 20 41 2f 32 35 36 2c 41 |. .5,12) A/256,A| 00000030 2f 36 35 35 33 36 2a 31 2e 38 2a 31 31 2a 32 2f |/65536*1.8*11*2/| 00000040 33 0d 00 14 0a 20 e5 8d 54 4a 40 0d 03 e8 0e 20 |3.... ..TJ@.... | 00000050 40 25 3d 26 32 30 35 30 41 0d 03 f2 0d 20 41 3d |@%=&2050A.... A=| 00000060 30 3a 42 25 3d 30 0d 03 f7 0c 20 42 25 3d 42 25 |0:B%=0.... B%=B%| 00000070 2b 31 0d 03 fa 25 20 41 3d 41 2b 28 96 28 31 29 |+1...% A=A+(.(1)| 00000080 2f 36 35 35 33 36 2a 31 2e 38 2a 31 31 2a 32 2f |/65536*1.8*11*2/| 00000090 33 2d 41 29 2f 42 25 0d 03 fc 1f 20 e7 20 42 25 |3-A)/B%.... . B%| 000000a0 20 83 31 30 30 3d 30 20 8c 20 f1 20 42 25 2c 41 | .100=0 . . B%,A| 000000b0 3a e5 8d 64 72 43 0d 04 06 0b 20 e5 20 8d 64 77 |:..drC.... . .dw| 000000c0 43 0d ff |C..| 000000c3
.