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

• BASIC
• Preview
• Hex Dump

   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