1 DATA 1,2928,12,698,19,15,25,21,30,34,37,1869,40,1798,44,2899,47,2917,50,2920,58,68,65,53,69,2920,89,83,94,2930,100,2930,108,103,115,2782,118,2648,121,1439 2 DATA 125,2937,128,181,134,2937,138,2937,144,72,152,2177,156,151,160,1429,172,2177,176,171,179,2106,189,2154,192,127,207,218,210,328,216,194,219,263,225,1437,228,40,232,248 3 DATA 238,234,243,1700,246,230,253,1875,257,1882,260,249,298,2121,307,1883,315,1438,320,325,351,2928,355,2917,358,2016,363,376,373,439,401,2042,404,117,407,433,410,2042,413,2200 4 DATA 416,433,419,2045,422,200,425,369,428,2042,431,2383,434,672,440,2924,443,2920,446,1047,460,456,469,465,492,1431,495,2936,498,1401,504,725,510,1917,513,2946,522,2950,525,672 5 DATA 530,631,535,707,545,559,553,558,560,672,565,598,570,590,580,559,593,559,596,547,601,2950,609,620,613,620,618,605,632,2950,640,666,643,779,649,2950,661,2950,664,532 6 DATA 670,1041,680,672,683,693,1011,791,1028,1036,1038,1013,1042,2920,1048,1007,1057,2950,1066,1074,1072,1108,1115,763,1120,2052,1126,1122,1129,1162,1134,500,1139,400,1144,409,1149,427,1154,418 7 DATA 1159,1122,1168,1122,1171,1429,1177,791,1181,1416,1185,1253,1191,1210,1199,1407,1208,1183,1214,1233,1220,1228,1226,1339,1231,1224,1237,1247,1242,1246,1250,1230,1266,1412,1271,672,1276,1298,1282,1270 8 DATA 1296,1270,1301,1326,1306,1270,1311,1270,1317,1270,1321,2035,1329,1412,1346,1416,1352,805,1356,1429,1361,1367,1365,491,1370,1386,1384,1358,1392,450,1397,1380,1405,1047,1410,1122,1697,2431,1710,1790 9 DATA 1713,2401,1717,1429,1722,2944,1729,1790,1732,1798,1735,1436,1740,1749,1747,1790,1750,2928,1754,1760,1757,1779,1761,2917,1765,2917,1768,1712,1771,1779,1774,2467,1777,1703,1782,1882,1785,1905,1793,1882 10 DATA 1796,1790,1803,1821,1808,1815,1813,1829,1816,1882,1819,1798,1822,1882,1826,2929,1832,1869,1835,100,1839,14,1842,1837,1848,1856,1854,1850,1860,36,1864,1882,1867,1856,1873,2749,1877,1700,1884,2190 11 DATA 1887,300,1897,300,1901,2152,1906,1440,1912,0,1934,1981,1939,2944,1945,2929,1948,2100,1951,1436,1956,1959,1960,2917,1963,2158,1966,1436,1971,1724,1976,1833,1979,1724,1984,1929,1994,2061,1998,2467 12 DATA 2001,1439,2005,2467,2008,2799,2011,2401,2014,350,2018,2917,2021,2010,2024,2467,2027,2799,2030,2003,2040,1270,2046,2920,2049,2924,2068,2063,2075,1929,2080,2930,2088,2094,2092,2810,2096,2083,2101,1429 13 DATA 2104,295,2107,1433,2112,2401,2119,1937,2125,2143,2130,2138,2133,2351,2136,2177,2141,2121,2145,2928,2149,1950,2156,436,2160,2917,2163,2110,2166,2467,2174,188,2186,2935,2201,2648,2207,2928,2212,2401 14 DATA 2216,2899,2220,2917,2224,2239,2228,2428,2231,2628,2234,2449,2237,2206,2242,2248,2246,2230,2250,2428,2253,2230,2271,2268,2277,2732,2282,2917,2286,2304,2289,1436,2294,2299,2301,2929,2305,2944,2312,2320 15 DATA 2316,2310,2327,2337,2331,2320,2340,2329,2345,2319,2349,2320,2354,2121,2384,2648,2387,2401,2390,2428,2393,2628,2396,2449,2399,2386,2402,2700,2405,2920,2418,1441,2421,2929,2433,2439,2437,2431,2440,2285 16 DATA 2443,2928,2456,2153,2464,2153,2468,1433,2480,1436,2486,43,2490,43,2495,2944,2498,2714,2503,2518,2508,2933,2511,2930,2521,2527,2524,2928,2530,2539,2533,2929,2537,2732,2542,2559,2554,2549,2557,2732 17 DATA 2562,2577,2566,2934,2569,2933,2572,2930,2575,2535,2580,2593,2584,2934,2587,2185,2591,2568,2596,2610,2599,2185,2608,2565,2613,2621,2618,2917,2625,2732,2629,2917,2633,2917,2637,2467,2640,2264,2643,2458 18 DATA 2650,2917,2668,2664,2671,1997,2678,2823,2681,2673,2688,2843,2692,2684,2701,2933,2704,2930,2708,2493,2712,2494,2727,2920,2730,1441,2737,2500,2743,2732,2751,2930,2757,104,2764,1871,2767,2748,2776,2770 19 DATA 2788,2783,2791,2900,2795,2930,2808,2803,2811,79,2815,2931,2819,2840,2826,2821,2831,2822,2834,2862,2838,2673,2844,2930,2848,2841,2854,2842,2857,2862,2860,2683,2869,2865,2873,2694,2878,2884,2882,2872 20 DATA 2889,2931,2893,2931,2897,2800,2903,1432,2909,2078,2801,2930,1701,2648,1704,1433,0,0 30 INPUT"New End Address";AD 40 PRINT"PRINT will use";AD-3059;"to";AD:INPUT"Is this right";A$ 50 IFA$<>"Y"ANDA$<>"y"THENCLS:GOTO30 60 AD=AD-3059:IFAD