HEADING:(DSTSET.LG) DISTRIBUTION DATALOG SET DUMMY ROUTINE 7/25/90 GF STEP 730 REM "DUM 815 IS 1ST RANGE, 816 LAST RNG, 820 START VAL, 821 INC" 731 LET M = DUM 815 732 LET N = DUM 816 + 01 733 LET DUM 804 = DUM 820 734 FOR I = M TO N 735 LET DUM I = DUM 804 736 LET DUM 804 = DUM 804 + DUM 821 737 NEXT I 738 PRIN STRG 3 739 QUIT REG 1800 00 1801 00 1802 00 1803 00 1804 00 1805 00 1806 00 1807 00 1808 00 1809 00 1810 00 1811 00 1812 00 1813 00 1814 00 1815 00 1816 00 1817 00 1818 00 1819 00 1820 00 1821 00 1822 00 1823 00 1824 00 1825 00 1826 00 1827 00 1828 00 1829 00 1830 00 1831 00 1832 00 1833 00 1834 00 1835 00 1836 00 1837 00 1838 00 1839 00 1840 00 1841 00 1842 00 1843 00 1844 00 1845 00 1846 00 1847 00 1848 00 1849 00 1850 00 1851 00 1852 00 1853 00 1854 00 1855 00 1856 00 1857 00 1858 00 1859 00 1860 00 1861 00 1862 00 1863 00 1864 00 1865 00 1866 00 1867 00 1868 00 1869 00 1870 00 1871 00 1872 00 1873 00 1874 00 1875 00 1876 00 1877 00 1878 00 1879 00 1880 00 1881 00 1882 00 1883 00 1884 00 1885 00 1886 00 1887 00 1888 00 1889 00 1890 00 1891 00 1892 00 1893 00 1894 00 1895 00 1896 00 1897 00 1898 00 1899 00 1900 00 1901 00 DUM 801 0.00000E+00 802 0.00000E+00 803 0.00000E+00 804 0.00000E+00 805 0.00000E+00 806 0.00000E+00 807 0.00000E+00 808 0.00000E+00 815 1.80100E+03 816 1.90000E+03 820 0.00000E+00 821 0.00000E+00 1800 0.00000E+00 1801 0.00000E+00 1802 0.00000E+00 1803 0.00000E+00 1804 0.00000E+00 1805 0.00000E+00 1806 0.00000E+00 1807 0.00000E+00 1808 0.00000E+00 1809 0.00000E+00 1810 0.00000E+00 1811 0.00000E+00 1812 0.00000E+00 1813 0.00000E+00 1814 0.00000E+00 1815 0.00000E+00 1816 0.00000E+00 1817 0.00000E+00 1818 0.00000E+00 1819 0.00000E+00 1820 0.00000E+00 1821 0.00000E+00 1822 0.00000E+00 1823 0.00000E+00 1824 0.00000E+00 1825 0.00000E+00 1826 0.00000E+00 1827 0.00000E+00 1828 0.00000E+00 1829 0.00000E+00 1830 0.00000E+00 1831 0.00000E+00 1832 0.00000E+00 1833 0.00000E+00 1834 0.00000E+00 1835 0.00000E+00 1836 0.00000E+00 1837 0.00000E+00 1838 0.00000E+00 1839 0.00000E+00 1840 0.00000E+00 1841 0.00000E+00 1842 0.00000E+00 1843 0.00000E+00 1844 0.00000E+00 1845 0.00000E+00 1846 0.00000E+00 1847 0.00000E+00 1848 0.00000E+00 1849 0.00000E+00 1850 0.00000E+00 1851 0.00000E+00 1852 0.00000E+00 1853 0.00000E+00 1854 0.00000E+00 1855 0.00000E+00 1856 0.00000E+00 1857 0.00000E+00 1858 0.00000E+00 1859 0.00000E+00 1860 0.00000E+00 1861 0.00000E+00 1862 0.00000E+00 1863 0.00000E+00 1864 0.00000E+00 1865 0.00000E+00 1866 0.00000E+00 1867 0.00000E+00 1868 0.00000E+00 1869 0.00000E+00 1870 0.00000E+00 1871 0.00000E+00 1872 0.00000E+00 1873 0.00000E+00 1874 0.00000E+00 1875 0.00000E+00 1876 0.00000E+00 1877 0.00000E+00 1878 0.00000E+00 1879 0.00000E+00 1880 0.00000E+00 1881 0.00000E+00 1882 0.00000E+00 1883 0.00000E+00 1884 0.00000E+00 1885 0.00000E+00 1886 0.00000E+00 1887 0.00000E+00 1888 0.00000E+00 1889 0.00000E+00 1890 0.00000E+00 1891 0.00000E+00 1892 0.00000E+00 1893 0.00000E+00 1894 0.00000E+00 1895 0.00000E+00 1896 0.00000E+00 1897 0.00000E+00 1898 0.00000E+00 1899 0.00000E+00 1900 0.00000E+00 1901 0.00000E+00