Home » Personal collection » Acorn ADFS disks » Electron » Programs_V2.ADF » FrequencyG
FrequencyG
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 » Programs_V2.ADF |
| Filename: | FrequencyG |
| Read OK: | ✔ |
| File size: | 01D8 bytes |
| Load address: | FFFF0E00 |
| Exec address: | FFFF8023 |
Duplicates
There are 5 duplicate copies of this file in the archive:
- Personal collection » Acorn ADFS disks » Electron » Programs_B.ADF » FrequencyG
- Personal collection » Acorn ADFS disks » Electron » Programs.ADF » FrequencyG
- Personal collection » Acorn ADFS disks » Electron » Programs_V2.ADF » FrequencyG
- Personal collection » Acorn ADFS disks » Greaseweazled » adfs_Programs.adf » FrequencyG
- Personal collection » Acorn hard disk » misc » misc2 » dcfprogs/FrequencyG
- Personal collection » Acorn hard disk » misc » misc3 » dcfprog3/FrequencyG
File contents
10MODE1:VDU19,1,3,0;0;0;5 20MOVE250,1000:PRINT"A Frequency Graph" 30MOVE250,999:PRINT"_________________" 40VDU23,95,0,0,0,255,0,0,0,0 50DIMdata(200):x=0 60READdata(x):IFdata(x)=-1THEN80 70x=x+1:GOTO60 80DIMg(40):FORlo=0TOx 90gr=INT(data(lo)/50)+1:g(gr)=g(gr)+1 100NEXT 110FORgro=1TO40 120FORlo=gro*31 TO gro*31+20 130MOVElo,40:DRAWlo,g(gro)*5+40:NEXT 140MOVEgro*31,27:PRINTCHR$(gro+64):NEXT 150REM Screen Dump 1500VDU4:PRINT:FORkey=0TO40 1510PRINTCHR$(64+key);" ";key*50;" To ";key*50+50 1520NEXT 1530REM Data 1540DATA1,6,900,68,453,265,2,1657,99,456,1111,-1
�1:�19,1,3,0;0;0;5 "�250,1000:�"A Frequency Graph" !�250,999:�"_________________" ( �23,95,0,0,0,255,0,0,0,0 2�data(200):x=0 < �data(x):�data(x)=-1��DP@ Fx=x+1:�T|@ P�g(40):�lo=0�x Z%gr=�(data(lo)/50)+1:g(gr)=g(gr)+1 d� n �gro=1�40 x�lo=gro*31 � gro*31+20 � �lo,40:�lo,g(gro)*5+40:� ��gro*31,27:�(gro+64):� �� Screen Dump ��4:�:�key=0�40 �*�(64+key);" ";key*50;" To ";key*50+50 �� � � Data -�1,6,900,68,453,265,2,1657,99,456,1111,-1 �
00000000 0d 00 0a 16 eb 31 3a ef 31 39 2c 31 2c 33 2c 30 |.....1:.19,1,3,0| 00000010 3b 30 3b 30 3b 35 0d 00 14 22 ec 32 35 30 2c 31 |;0;0;5...".250,1| 00000020 30 30 30 3a f1 22 41 20 46 72 65 71 75 65 6e 63 |000:."A Frequenc| 00000030 79 20 47 72 61 70 68 22 0d 00 1e 21 ec 32 35 30 |y Graph"...!.250| 00000040 2c 39 39 39 3a f1 22 5f 5f 5f 5f 5f 5f 5f 5f 5f |,999:."_________| 00000050 5f 5f 5f 5f 5f 5f 5f 5f 22 0d 00 28 1c ef 32 33 |________"..(..23| 00000060 2c 39 35 2c 30 2c 30 2c 30 2c 32 35 35 2c 30 2c |,95,0,0,0,255,0,| 00000070 30 2c 30 2c 30 0d 00 32 12 de 64 61 74 61 28 32 |0,0,0..2..data(2| 00000080 30 30 29 3a 78 3d 30 0d 00 3c 1d f3 64 61 74 61 |00):x=0..<..data| 00000090 28 78 29 3a e7 64 61 74 61 28 78 29 3d 2d 31 8c |(x):.data(x)=-1.| 000000a0 8d 44 50 40 0d 00 46 0f 78 3d 78 2b 31 3a e5 8d |.DP@..F.x=x+1:..| 000000b0 54 7c 40 0d 00 50 12 de 67 28 34 30 29 3a e3 6c |T|@..P..g(40):.l| 000000c0 6f 3d 30 b8 78 0d 00 5a 25 67 72 3d a8 28 64 61 |o=0.x..Z%gr=.(da| 000000d0 74 61 28 6c 6f 29 2f 35 30 29 2b 31 3a 67 28 67 |ta(lo)/50)+1:g(g| 000000e0 72 29 3d 67 28 67 72 29 2b 31 0d 00 64 05 ed 0d |r)=g(gr)+1..d...| 000000f0 00 6e 0d e3 67 72 6f 3d 31 b8 34 30 0d 00 78 1a |.n..gro=1.40..x.| 00000100 e3 6c 6f 3d 67 72 6f 2a 33 31 20 b8 20 67 72 6f |.lo=gro*31 . gro| 00000110 2a 33 31 2b 32 30 0d 00 82 1c ec 6c 6f 2c 34 30 |*31+20.....lo,40| 00000120 3a df 6c 6f 2c 67 28 67 72 6f 29 2a 35 2b 34 30 |:.lo,g(gro)*5+40| 00000130 3a ed 0d 00 8c 1b ec 67 72 6f 2a 33 31 2c 32 37 |:......gro*31,27| 00000140 3a f1 bd 28 67 72 6f 2b 36 34 29 3a ed 0d 00 96 |:..(gro+64):....| 00000150 11 f4 20 53 63 72 65 65 6e 20 44 75 6d 70 0d 05 |.. Screen Dump..| 00000160 dc 12 ef 34 3a f1 3a e3 6b 65 79 3d 30 b8 34 30 |...4:.:.key=0.40| 00000170 0d 05 e6 2a f1 bd 28 36 34 2b 6b 65 79 29 3b 22 |...*..(64+key);"| 00000180 20 22 3b 6b 65 79 2a 35 30 3b 22 20 54 6f 20 22 | ";key*50;" To "| 00000190 3b 6b 65 79 2a 35 30 2b 35 30 0d 05 f0 05 ed 0d |;key*50+50......| 000001a0 05 fa 0a f4 20 44 61 74 61 0d 06 04 2d dc 31 2c |.... Data...-.1,| 000001b0 36 2c 39 30 30 2c 36 38 2c 34 35 33 2c 32 36 35 |6,900,68,453,265| 000001c0 2c 32 2c 31 36 35 37 2c 39 39 2c 34 35 36 2c 31 |,2,1657,99,456,1| 000001d0 31 31 31 2c 2d 31 0d ff |111,-1..| 000001d8
.