� Graph It
� by G.J. Monney
� (c) The Micro User
(	�init
2
�A(N%)
<	�read
F
�scale
P�display
Z�
d
��read
n�I%=0�N%:A(I%)=0:�
xch%=�("speeds")
��
��#ch%,s
�x=1+s �5
�A(x)=A(x)+1
�
��#ch%
�	�#ch%
��
�
��display
��'
�
�row%=1�7
��;�((8-row%)/scale+.5);
��3)"_";
��I%=1�N%

"� A(I%)>=8-row% �;D$; � �;" ";

	�:�:�

	�4);

"�"ABCDEFGHIJKLMNOPQRST"'

,*�5,12)H$"CAR SPEEDS DISTRIBUTION";HO$

6*�5,13)H$"    figures in m.p.h.  ";HO$

@�I%=1�4

J�J%=1�5

TG�10*(I%-1),14+J%)�(59+5*I%+J%)"=";25*I%+5*J%-30"-"25*(I%-1)+5*J%-1

^�:�

h�

r��scale

|
max%=0

��I%=1�N%

��A(I%)>max% � max%=A(I%)

��

�scale=1

�� max%<9 ��

�scale=8/max%

��I%=1�N%

�A(I%)=�(A(I%)*scale+.5)

��

��

�
��init

�@%=&10:�

�	N%=20
� DEFINE CHARACTER
D$=�255
'H$=�131+�157+�129:HO$=�32+�131+�156
&�
�

00000000  0d 00 0a 0e f4 20 47 72  61 70 68 20 49 74 0d 00  |..... Graph It..|
00000010  14 14 f4 20 62 79 20 47  2e 4a 2e 20 4d 6f 6e 6e  |... by G.J. Monn|
00000020  65 79 0d 00 1e 18 f4 20  28 63 29 20 54 68 65 20  |ey..... (c) The |
00000030  4d 69 63 72 6f 20 55 73  65 72 0d 00 28 09 f2 69  |Micro User..(..i|
00000040  6e 69 74 0d 00 32 0a de  41 28 4e 25 29 0d 00 3c  |nit..2..A(N%)..<|
00000050  09 f2 72 65 61 64 0d 00  46 0a f2 73 63 61 6c 65  |..read..F..scale|
00000060  0d 00 50 0c f2 64 69 73  70 6c 61 79 0d 00 5a 05  |..P..display..Z.|
00000070  e0 0d 00 64 0a dd f2 72  65 61 64 0d 00 6e 16 e3  |...d...read..n..|
00000080  49 25 3d 30 b8 4e 25 3a  41 28 49 25 29 3d 30 3a  |I%=0.N%:A(I%)=0:|
00000090  ed 0d 00 78 13 63 68 25  3d 8e 28 22 73 70 65 65  |...x.ch%=.("spee|
000000a0  64 73 22 29 0d 00 82 05  f5 0d 00 8c 0b e8 23 63  |ds")..........#c|
000000b0  68 25 2c 73 0d 00 96 0c  78 3d 31 2b 73 20 81 35  |h%,s....x=1+s .5|
000000c0  0d 00 a0 0f 41 28 78 29  3d 41 28 78 29 2b 31 0d  |....A(x)=A(x)+1.|
000000d0  00 aa 0a fd c5 23 63 68  25 0d 00 b4 09 d9 23 63  |.....#ch%.....#c|
000000e0  68 25 0d 00 be 05 e1 0d  00 c8 0d dd f2 64 69 73  |h%...........dis|
000000f0  70 6c 61 79 0d 00 d2 06  f1 27 0d 00 dc 0d e3 72  |play.....'.....r|
00000100  6f 77 25 3d 31 b8 37 0d  00 e6 1b f1 3b a8 28 28  |ow%=1.7.....;.((|
00000110  38 2d 72 6f 77 25 29 2f  73 63 61 6c 65 2b 2e 35  |8-row%)/scale+.5|
00000120  29 3b 0d 00 f0 0c f1 8a  33 29 22 5f 22 3b 0d 00  |);......3)"_";..|
00000130  fa 0c e3 49 25 3d 31 b8  4e 25 0d 01 04 22 e7 20  |...I%=1.N%...". |
00000140  41 28 49 25 29 3e 3d 38  2d 72 6f 77 25 20 f1 3b  |A(I%)>=8-row% .;|
00000150  44 24 3b 20 8b 20 f1 3b  22 20 22 3b 0d 01 0e 09  |D$; . .;" ";....|
00000160  ed 3a f1 3a ed 0d 01 18  09 f1 8a 34 29 3b 0d 01  |.:.:.......4);..|
00000170  22 1c f1 22 41 42 43 44  45 46 47 48 49 4a 4b 4c  |".."ABCDEFGHIJKL|
00000180  4d 4e 4f 50 51 52 53 54  22 27 0d 01 2c 2a f1 8a  |MNOPQRST"'..,*..|
00000190  35 2c 31 32 29 48 24 22  43 41 52 20 53 50 45 45  |5,12)H$"CAR SPEE|
000001a0  44 53 20 44 49 53 54 52  49 42 55 54 49 4f 4e 22  |DS DISTRIBUTION"|
000001b0  3b 48 4f 24 0d 01 36 2a  f1 8a 35 2c 31 33 29 48  |;HO$..6*..5,13)H|
000001c0  24 22 20 20 20 20 66 69  67 75 72 65 73 20 69 6e  |$"    figures in|
000001d0  20 6d 2e 70 2e 68 2e 20  20 22 3b 48 4f 24 0d 01  | m.p.h.  ";HO$..|
000001e0  40 0b e3 49 25 3d 31 b8  34 0d 01 4a 0b e3 4a 25  |@..I%=1.4..J..J%|
000001f0  3d 31 b8 35 0d 01 54 47  f1 8a 31 30 2a 28 49 25  |=1.5..TG..10*(I%|
00000200  2d 31 29 2c 31 34 2b 4a  25 29 bd 28 35 39 2b 35  |-1),14+J%).(59+5|
00000210  2a 49 25 2b 4a 25 29 22  3d 22 3b 32 35 2a 49 25  |*I%+J%)"=";25*I%|
00000220  2b 35 2a 4a 25 2d 33 30  22 2d 22 32 35 2a 28 49  |+5*J%-30"-"25*(I|
00000230  25 2d 31 29 2b 35 2a 4a  25 2d 31 0d 01 5e 07 ed  |%-1)+5*J%-1..^..|
00000240  3a ed 0d 01 68 05 e1 0d  01 72 0b dd f2 73 63 61  |:...h....r...sca|
00000250  6c 65 0d 01 7c 0a 6d 61  78 25 3d 30 0d 01 86 0c  |le..|.max%=0....|
00000260  e3 49 25 3d 31 b8 4e 25  0d 01 90 1c e7 41 28 49  |.I%=1.N%.....A(I|
00000270  25 29 3e 6d 61 78 25 20  8c 20 6d 61 78 25 3d 41  |%)>max% . max%=A|
00000280  28 49 25 29 0d 01 9a 05  ed 0d 01 a4 0b 73 63 61  |(I%).........sca|
00000290  6c 65 3d 31 0d 01 ae 0f  e7 20 6d 61 78 25 3c 39  |le=1..... max%<9|
000002a0  20 8c e1 0d 01 b8 10 73  63 61 6c 65 3d 38 2f 6d  | ......scale=8/m|
000002b0  61 78 25 0d 01 c2 0c e3  49 25 3d 31 b8 4e 25 0d  |ax%.....I%=1.N%.|
000002c0  01 cc 1b 41 28 49 25 29  3d a8 28 41 28 49 25 29  |...A(I%)=.(A(I%)|
000002d0  2a 73 63 61 6c 65 2b 2e  35 29 0d 01 d6 05 ed 0d  |*scale+.5)......|
000002e0  01 e0 05 e1 0d 01 ea 0a  dd f2 69 6e 69 74 0d 01  |..........init..|
000002f0  f4 0c 40 25 3d 26 31 30  3a db 0d 01 fe 09 4e 25  |..@%=&10:.....N%|
00000300  3d 32 30 0d 02 08 16 f4  20 44 45 46 49 4e 45 20  |=20..... DEFINE |
00000310  43 48 41 52 41 43 54 45  52 0d 02 12 0b 44 24 3d  |CHARACTER....D$=|
00000320  bd 32 35 35 0d 02 1c 27  48 24 3d bd 31 33 31 2b  |.255...'H$=.131+|
00000330  bd 31 35 37 2b bd 31 32  39 3a 48 4f 24 3d bd 33  |.157+.129:HO$=.3|
00000340  32 2b bd 31 33 31 2b bd  31 35 36 0d 02 26 05 e1  |2+.131+.156..&..|
00000350  0d ff                                             |..|
00000352