github.com/pkimpel.retro-220
1
0
Fork 0
mirror of https://github.com/pkimpel/retro-220.git synced 2026-03-08 03:29:40 +00:00
Code Issues Releases Wiki Activity
Files
e5d34c322eb9d13aeea46c02549d4bc7eb8c4e21
pkimpel.retro-220/software/BALGOL/BALGOL-Examples/Reference-Manual/Example-3/Example-3-Code-List.lst

1033 lines
65 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
0200 BAC-220 STANDARD VERSION 2/1/62
0200 COMMENT THIRD EXAMPLE PROGRAM FROM BALGOL MANUAL, MARCH 1963.
0200 THE SHORT PROGRAM WHICH FOLLOWS IS FOR A REDUCTION OF A SQUARE MATRIX
0200 TO TRIDIAGONAL FORM, USING THE METHOD OF HOUSEHOLDER$
0200
0200 COMMENT HOUSEHOLDER REDUCTION TO TRIDIAGONAL FORM$
0200 INTEGER I, J, K, L, R, N$
0200 ARRAY A(50,50), X(50), P(50)$
0200 INPUT
0200 0000 30
0201 0000 30
0202 0100 42 0202
0203 0002 20 0201
0204 0000 40 2399 I
0205 0100 42 0205
0206 0002 20 0201
0207 0000 40 2398 J
0205 ELEMENT (I, J, Q)$
0208 0000 42 0208
0209 0002 20 0201
0210 0000 40 2397 Q
0211 0009 43 0000
0212 0000 30 0201
0200 0213
0213 OUTPUT
0213 0000 30
0214 0000 30
0215 0000 10 2396 R
0216 0000 14 2395 CONST
0217 0001 49 0010
0218 0000 12 2396 R
0219 0000 40 2394 TEMP
0215 AOUT (A(R,R)),
0220 0000 42 2394 TEMP
0221 - 0000 10 2449 A
0222 0000 42 0222
0223 0002 20 0214
0224 0009 43 0000
0225 0000 30 0214
0213 0226
0226 0000 30
0227 0000 30
0228 0000 11 2393 CONST
0229 0002 45 0000
0230 0000 25 2392 S
0226 BOUT (-0.5/S)$
0231 0000 42 0231
0232 0002 20 0227
0233 0009 43 0000
0234 0000 30 0227
0226 0235
0235 FORMAT
0235 0000 30
0236 0004 20 1000
0237 0006 70 1005
0238 0006 60 0000
0239 - 0000 00 0236
0235 AF (B10, X10.5, W),
0240 0004 20 4000
0241 0006 70 1005
0242 0006 60 0000
0243 - 0000 00 0240
0235 BF (B40, X10.5, W)$
0235
0235 0244
0244 N = 5$
0244 0000 10 2391 CONST
0245 0000 40 2390 N
0246 IN..
0246 READ ($$ ELEMENT)$
0246 0000 10 0247
0247 0000 01 0201 ELEME
0248 0000 44 2251 READ
0249 0000 30 2251
0250 IF I NEQ 0$
0250 0000 10 2399 I
0251 0000 36
0250 BEGIN
0252 0000 10 2399 I
0253 0000 14 2395 CONST
0254 0001 49 0010
0255 0000 12 2398 J
0256 0000 40 2394 TEMP
0252 A(I,J) = Q$
0257 0000 10 2397 Q
0258 0000 42 2394 TEMP
0259 - 0000 40 2449 A
0260 GO TO IN
0260 0000 30 0246 IN
0261 END$
0261
0251 0261
0261 0000 10 2250 CONST
0262 0000 40 2396 R
0263 0000 44
0264 0000 30
0265 0000 10 2250 CONST
0266 0000 12 2396 R
0267 0000 40 2396 R
0264 0268
0268 0000 40 2394 TEMP
0269 0000 10 2390 N
0270 0000 13 2250 CONST
0271 0000 13 2394 TEMP
0272 1111 31 0274
0273 0000 36
0274 0000 33
0261 FOR R = (1,1,N-1)$
0275 0000 30
0274 0276
0273 0276
0275 BEGIN
0276 0000 10 0277
0277 0000 01 0214 AOUT
0278 4400 28 2010
0279 - 0000 40 0000
0280 WRITE ($$ AOUT, AF)$
0280 0000 10 0281
0281 0000 01 0236 AF
0282 0000 44 2010 WRITE
0283 0100 30 2010
0284 L = R+1$
0284 0000 10 2250 CONST
0285 0000 12 2396 R
0286 0000 40 2009 L
0287 S = 0$
0287 0000 46 2392 S
0288 0000 10 2009 L
0289 0000 40 2398 J
0290 0000 44
0291 0000 30
0292 0000 10 2250 CONST
0293 0000 12 2398 J
0294 0000 40 2398 J
0291 0295
0295 0000 13 2390 N
0296 1111 31 0298
0297 0000 36
0298 0001 33
0288 FOR J = (L,1,N)$
0299 0000 30
0298 0300
0297 0300
0300 0000 10 2396 R
0301 0000 14 2395 CONST
0302 0001 49 0010
0303 0000 12 2398 J
0304 0000 40 2394 TEMP
0299 S = S + A(R,J)*2$
0299
0305 0000 42 2394 TEMP
0306 - 0000 10 2449
0307 - 0000 24 2449 A
0308 0000 22 2392 S
0309 0000 40 2392 S
0299 0311
0290 0310
0310 0000 30
0311 0000 10 2396 R
0312 0000 14 2395 CONST
0313 0001 49 0010
0314 0000 12 2009 L
0315 0000 40 2394 TEMP
0316 0000 42 2394 TEMP
0317 - 0000 10 2449 A
0318 0000 36 0322
0319 0001 48 0000
0320 0000 10 2008 CONST
0321 0001 49 0000
0311 S = SIGN(A(R,L))/2SQRT(S)$
0322 0000 40 2394 TEMP
0323 0000 10 2392 S
0324 0000 44 1963 SQRT
0325 0000 30 1963
0326 0000 24 1962 CONST
0327 0000 40 1961 TEMP
0328 0000 10 2394 TEMP
0329 0002 45 0000
0330 0000 25 1961 TEMP
0331 0000 40 2392 S
0332 0000 10 0333
0333 0000 01 0227 BOUT
0334 4400 28 2010
0335 - 0000 40 0000
0332 WRITE ($$ BOUT, BF)$
0336 0000 10 0337
0337 0000 01 0240 BF
0338 0000 44 2010 WRITE
0339 0100 30 2010
0340 0000 10 2396 R
0341 0000 14 2395 CONST
0342 0001 49 0010
0343 0000 12 2009 L
0344 0000 40 1961 TEMP
0345 0000 42 1961 TEMP
0346 - 0000 10 2449 A
0347 0000 24 2392 S
0348 0000 22 2393 CONST
0340 X(L) = SQRT(0.5 + A(R,L).S)$
0349 0000 44 1963 SQRT
0350 0000 30 1963
0351 0000 42 2009 L
0352 - 0000 40 2449 X
0353 S = S/X(L)$
0353 0000 10 2392 S
0354 0002 45 0000
0355 0000 42 2009 L
0356 - 0000 25 2449 X
0357 0000 40 2392 S
0358 0000 10 1960 CONST
0359 0000 12 2396 R
0360 0000 40 2398 J
0361 0000 44
0362 0000 30
0363 0000 10 2250 CONST
0364 0000 12 2398 J
0365 0000 40 2398 J
0362 0366
0366 0000 13 2390 N
0367 1111 31 0369
0368 0000 36
0369 0001 33
0358 FOR J = (R+2,1,N)$
0370 0000 30
0369 0371
0368 0371
0371 0000 10 2396 R
0372 0000 14 2395 CONST
0373 0001 49 0010
0374 0000 12 2398 J
0370 X(J) = S.A(R,J)$
0375 0000 40 1961 TEMP
0376 0000 10 2392 S
0377 0000 42 1961 TEMP
0378 - 0000 24 2449 A
0379 0000 42 2398 J
0380 - 0000 40 2449 X
0370 0382
0361 0381
0381 0000 30
0382 0000 10 2396 R
0383 0000 40 2398 J
0384 0000 44
0385 0000 30
0386 0000 10 2250 CONST
0387 0000 12 2398 J
0388 0000 40 2398 J
0385 0389
0389 0000 13 2390 N
0390 1111 31 0392
0391 0000 36
0392 0001 33
0382 FOR J = (R,1,N)$
0393 0000 30
0392 0394
0391 0394
0393 BEGIN
0393 S = 0$
0394 0000 46 2392 S
0395 0000 10 2009 L
0396 0000 40 1959 K
0397 0000 44
0398 0000 30
0399 0000 10 2250 CONST
0400 0000 12 1959 K
0401 0000 40 1959 K
0398 0402
0402 0000 13 2390 N
0403 1111 31 0405
0404 0000 36
0405 0001 33
0395 FOR K = (L,1,N)$
0406 0000 30
0405 0407
0404 0407
0407 0000 10 1959 K
0408 0000 18 2398 J
0409 0001 34 0411
0410 0000 10 2398 J
0411 0000 14 2395 CONST
0412 0001 49 0010
0412 0001 40 1961 TEMP
0413 0000 10 1959 K
0414 0000 18 2398 J
0415 0000 34 0417
0416 0000 10 2398 J
0417 0000 12 1961 TEMP
0418 0000 40 1961 TEMP
0406 S = S + A(MIN(J,K), MAX(J,K)).X(K)$
0419 0000 42 1961 TEMP
0420 - 0000 10 2449 A
0421 0000 42 1959 K
0422 - 0000 24 2449 X
0423 0000 22 2392 S
0424 0000 40 2392 S
0406 0426
0397 0425
0425 0000 30
0426 P(J) = S
0426 0000 10 2392 S
0427 0000 42 2398 J
0428 - 0000 40 2399 P
0429 END$
0429
0393 0430
0384 0429
0429 0000 30
0430 S = 0$
0430 0000 46 2392 S
0431 0000 10 2009 L
0432 0000 40 2398 J
0433 0000 44
0434 0000 30
0435 0000 10 2250 CONST
0436 0000 12 2398 J
0437 0000 40 2398 J
0434 0438
0438 0000 13 2390 N
0439 1111 31 0441
0440 0000 36
0441 0001 33
0431 FOR J = (L,1,N)$
0442 0000 30
0441 0443
0440 0443
0442 S = S + K(J).P(J)$
0443 0000 10 2398 J
0444 0000 44 1945 FLOAT
0445 0000 30 1945
0446 0000 42 2398 J
0447 - 0000 24 2399 P
0448 0000 40 1961 TEMP
0449 0000 10 1959 K
0450 0000 44 1945 FLOAT
0451 0000 30 1945
0452 0000 24 1961 TEMP
0453 0000 22 2392 S
0454 0000 40 2392 S
0442 0456
0433 0455
0455 0000 30
0456 0000 10 2009 L
0457 0000 40 2398 J
0458 0000 44
0459 0000 30
0460 0000 10 2250 CONST
0461 0000 12 2398 J
0462 0000 40 2398 J
0459 0463
0463 0000 13 2390 N
0464 1111 31 0466
0465 0000 36
0466 0001 33
0456 FOR J = (L,1,N)$
0467 0000 30
0466 0468
0465 0468
0467 P(J) = P(J) - S.X(J)$
0468 0000 11 2392 S
0469 0000 42 2398 J
0470 - 0000 24 2449 X
0471 - 0000 22 2399 P
0472 - 0000 40 2399 P
0467 0474
0458 0473
0473 0000 30
0474 0000 10 2009 L
0475 0000 40 2398 J
0476 0000 44
0477 0000 30
0478 0000 10 2250 CONST
0479 0000 12 2398 J
0480 0000 40 2398 J
0477 0481
0481 0000 13 2390 N
0482 1111 31 0484
0483 0000 36
0484 0001 33
0474 FOR J = (L,1,N)$
0485 0000 30
0484 0486
0483 0486
0486 0000 10 2398 J
0487 0000 40 1959 K
0488 0000 44
0489 0000 30
0490 0000 10 2250 CONST
0491 0000 12 1959 K
0492 0000 40 1959 K
0489 0493
0493 0000 13 2390 N
0494 1111 31 0496
0495 0000 36
0496 0001 33
0485 FOR K = (J,1,N)$
0497 0000 30
0496 0498
0495 0498
0498 0000 10 2398 J
0499 0000 14 2395 CONST
0500 0001 49 0010
0501 0000 12 1959 K
0502 0000 40 1961 TEMP
0503 0000 10 2398 J
0504 0000 14 2395 CONST
0505 0001 49 0010
0506 0000 12 1959 K
0507 0000 40 2394 TEMP
0508 0000 42 2398 J
0509 - 0000 10 2449 X
0510 0000 42 1959 K
0511 - 0000 24 2399 P
0497 A(J,K) = A(J,K) - 2(X(J).P(K) + X(K).P(J))
0512 0000 40 1944 TEMP
0513 - 0000 10 2449 X
0514 0000 42 2398 J
0515 - 0000 24 2399 P
0516 0000 22 1944 TEMP
0517 0000 24 1962 CONST
0518 0000 42 2394 TEMP
0519 - 0000 23 2449 A
0520 0000 40 2394 TEMP
0521 0000 11 2394 TEMP
0522 0000 42 1961 TEMP
0523 - 0000 40 2449 A
0497 0525
0488 0524
0524 0000 30
0485 0526
0476 0525
0525 0000 30
0517 END$
0517
0275 0527
0263 0526
0526 0000 30
0527 0000 10 0528
0528 0000 01 0214 AOUT
0529 4400 28 2010
0530 - 0000 40 0000
0527 WRITE ($$ AOUT, AF)$
0531 0000 10 0532
0532 0000 01 0236 AF
0533 0000 44 2010 WRITE
0534 0100 30 2010
0535 STOP$
0535 0137 00 7310
0536 GO TO IN$
0536 0000 30 0246 IN
0537 FINISH$
0537 9669 00 9669
0538 1000 60 0000
2250 0000 00 0001 POOL
1960 0000 00 0002
2395 0000 00 0050
2391 0000 00 0005
2008 5110 00 0000
1962 5120 00 0000
2393 5050 00 0000
1887 0000 44 1920
1888 0000 30 1916
1889 @ 5945 62 6453
1890 @ 6300 56 6463
1891 @ 0056 46 0059
1892 @ 4155 47 4500
1893 @ 4955 00 0000
1894 0000 44 1920
1895 0000 30 1916
1896 @ 5945 62 6453
1897 @ 6300 64 5544
1898 @ 4546 49 5545
1899 @ 4400 46 5659
1900 @ 0000 00 0000
1901 0000 44 1920
1902 0000 30 1916
1903 @ 5945 62 6453
1904 @ 6300 49 5353
1905 @ 2044 45 4649
1906 @ 5545 44 0046
1907 @ 5659 00 0000
1908 0000 46 1929
1909 0000 44 1920
1910 0000 30 1918
1911 0000 00 0000
1912 @ 0041 59 4963
1913 @ 4854 45 6349
1914 @ 4300 56 6545
1915 @ 5946 53 5666
1916 0001 40 1929
1917 0003 45 0000
1918 0412 40 1923
1919 0000 42 1940
1920 0050 29 0033
1921 1106 44 1874 REED
1922 0037 30 1874 REED
1923 0000 30 0036
1924 0000 00 0000
1925 0000 00 0000
1926 0000 00 0000
1927 0000 00 0000
1928 0000 00 0000
1929 0000 00 0000
1930 0000 00 0000
1931 0000 00 0000
1932 0000 00 0000
1933 0000 00 0000
1934 0000 00 0000
1935 5000 00 0000
1936 0000 00 0000
1937 0000 00 0000
1938 5110 00 0000
1939 0000 00 0000
1940 0000 00 1924
1945 0006 45 0000
1946 2200 36 1949
1947 0000 48 0001
1948 0001 20 1946
1949 0001 48 0008
1950 - 0000 10 1955
1951 0001 49 0008
1952 0000 22 1958
1953 0000 42 1945
1954 - 0000 30 0000
1955 0000 00 0058
1956 0000 00 0059
1957 0000 00 0060
1958 5800 00 0000
2251 - 0128 01 0000
2252 0410 40 2341
2253 0410 40 2342
2254 0401 26 2342
2255 0000 44 2348
2256 0000 30 2341
2257 0000 42 2379
2258 - 0000 46 0000
2259 0000 46 2387
2260 0000 44 1941 RITE
2261 0117 30 1941 RITE
2262 0000 46 2389
2263 0502 26 2389
2264 0000 42 2379
2265 9999 20 2269
2266 6400 28 2387
2267 0000 10 0101
2268 9999 20 2363
2269 9400 28 2389
2270 - 0000 10 0101
2271 0000 42 2389
2272 - 0000 49 0000
2273 0502 26 2389
2274 0000 41 2387
2275 0000 37 2289
2276 0160 21 2260
2277 4400 28 2387
2278 2213 36 2304
2279 0000 48 0008
2280 - 0000 49 0000
2281 0000 19 2386
2282 4102 27 2387
2283 0000 32 2269
2284 0000 10 2386
2285 0000 44 2348
2286 0000 30 2341
2287 5212 27 2387
2288 0000 30 2269
2289 0162 21 2260
2290 1108 36 2320
2291 2203 36 2316
2292 2220 36 2314
2293 2234 36 2314
2294 2223 36 2309
2295 2213 36 2371
2296 2214 36 2302
2297 0000 42 2383
2298 9999 20 2269
2299 0000 44 2348
2300 0000 30 2327
2301 0000 30 2269
2302 9416 26 2389
2303 0000 30 2297
2304 0000 46 2387
2305 0000 10 2386
2306 0000 44 2348
2307 9992 20 2341
2308 0000 30 2269
2309 0001 26 2385
2310 0000 44 2348
2311 0000 30 2327
2312 0001 26 2382
2313 0000 30 2269
2314 0001 26 2381
2315 0000 30 2269
2316 0000 41 2375
2317 2211 40 2380
2318 0001 26 2384
2319 0000 30 2269
2320 0000 49 0001
2321 0000 41 2386
2322 0001 49 0001
2323 0001 40 2386
2324 2201 27 2380
2325 0001 26 2383
2326 0000 30 2269
2327 0000 41 2382
2328 0000 37 2354
2329 0000 42 2381
2330 0000 11 2386
2331 0000 49 0008
2332 9999 20 2334
2333 0000 43 0000
2334 0001 13 2388
2335 1210 27 2388
2336 0000 32 2341
2337 0000 43 0000
2338 0000 30 2341
2339 0000 42 2385
2340 0001 21 2349
2341 0000 44 0090
2342 0000 30 0091
2343 0009 33 2351
2344 0412 40 2342
2345 0000 42 2359
2346 0000 46 2380
2347 0070 29 2380
2348 0000 30 0097
2349 0000 40 2388
2350 0000 30 2345
2351 0000 42 2251
2352 0000 46 2379
2353 - 0000 30 0000
2354 0000 10 2386
2355 0000 42 2384
2356 9999 20 2359
2357 0000 12 2380
2358 0000 22 2380
2359 0000 42 2381
2360 9999 20 2339
2361 0001 43 0000
2362 0000 30 2339
2363 0810 18 2376
2364 0001 35 2269
2365 0000 41 0102
2366 0011 18 2377
2367 0001 35 2269
2368 0000 42 2379
2369 - 0001 26 0000
2370 0000 30 2351
2371 0000 42 2383
2372 9999 20 2287
2373 0502 27 2389
2374 0000 30 2299
2375 5800 00 0000
2376 @ 8562 45 5563
2377 @ 4955 45 5300
2378 5110 00 0000
2379 0000 00 0000
2380 0000 00 0000
2381 0000 00 0000
2382 0000 00 0000
2383 0000 00 0000
2384 0000 00 0000
2385 0000 00 0000
2386 0000 00 0000
2387 0000 00 0000
2388 0000 00 0000
2389 0000 00 0000
1941 0000 01 0000
1942 1000 60 0117
1943 0000 30 2262 READ
1874 0000 01 0000
1875 0000 42 1874
1876 - 0000 10 9999
1877 0000 48 0006
1878 0410 40 1884
1879 - 0000 10 9998
1880 4210 40 1884
1881 0000 48 0008
1882 0000 13 1886
1883 0000 19 1884
1884 2000 61 0000
1885 - 0000 30 0000
1886 0000 00 0001
1963 0004 45 0000
1964 0000 42 1963
1965 - 0000 36 0000
1966 0001 33 1997
1967 0810 40 1999
1968 2310 40 2000
1969 0000 10 1935 ERROR
1970 0000 14 2000
1971 0000 13 2001
1972 2310 40 2000
1973 3110 18 2000
1974 0000 35 1977
1975 0001 33 1977
1976 2201 26 2000
1977 0000 10 2002
1978 0000 24 1999
1979 0000 22 2003
1980 0000 24 1999
1981 0000 22 2004
1982 0000 40 1936 ERROR
1983 0000 10 1999
1984 0000 25 1936 ERROR
1985 0000 22 1936 ERROR
1986 0000 24 2005
1987 0000 40 1936 ERROR
1988 0000 10 1999
1989 0000 25 1936 ERROR
1990 0000 22 1936 ERROR
1991 0000 12 2000
1992 0000 35 1995
1993 0000 24 2006
1994 - 0000 30 0000
1995 0000 24 2005
1996 - 0000 30 0000
1997 0000 41 2007
1998 0000 30 1894 ERROR
1999 5110 00 0000
2000 0000 00 0000
2001 2550 00 0000
2002 - 4916 45 0338
2003 5041 11 7101
2004 5062 69 7923
2005 5050 00 0000
2006 5015 81 1388
2007 @ 6258 59 6300
2010 0100 01 0000
2011 0410 40 2046
2012 0000 42 2014
2013 0010 29 2246
2014 0300 29 0101
2015 0000 42 2010
2016 0412 40 2095
2017 - 0000 41 9999
2018 0009 43 7557
2019 2200 37 2023
2020 0000 42 0100
2021 - 0000 44 0000
2022 - 2201 37 0001
2023 0000 40 0132
2024 0412 40 2077
2025 0000 41 0130
2026 0000 37 2044
2027 0000 10 0134
2028 0000 46 0133
2029 5246 37 2206
2030 5267 37 2182
2031 5249 37 2120
2032 5262 37 2233
2033 5241 37 2035
2034 0000 30 2221
2035 0000 41 2053
2036 0001 27 0129
2037 0000 44 2178
2038 0000 30 2169
2039 0000 10 0129
2040 0000 36 2060
2041 2299 37 2074
2042 0001 49 0010
2043 0000 30 2036
2044 0000 42 2011
2045 0000 31 1908 ERROR
2046 0000 10 9999
2047 0401 26 2046
2048 0000 33 2062
2049 0000 41 2053
2050 0001 33 2078
2051 2214 36 2046
2052 0000 44 2178
2053 9900 30 2169
2054 2299 37 2046
2055 0001 49 0010
2056 0000 30 2051
2057 0000 10 0129
2058 0000 19 0125
2059 0000 19 0125
2060 0000 10 0130
2061 3300 36 2044
2062 3300 36 2064
2063 0000 13 2247
2064 0000 40 0130
2065 0210 40 0131
2066 0001 48 0002
2067 0310 40 0129
2068 7242 36 2057
2069 7266 36 2098
2070 7257 36 2106
2071 7263 36 2108
2072 7243 36 2097
2073 0300 36 2046
2074 0000 10 0132
2075 0000 40 0134
2076 0009 33 2057
2077 0000 30 9999
2078 0000 42 2046
2079 6600 36 2094
2080 0001 49 0003
2081 0300 37 2088
2082 0000 13 2247
2083 3300 36 2090
2084 - 6301 27 9999
2085 - 0000 41 9999
2086 0411 40 2046
2087 0000 30 2046
2088 - 3310 40 9999
2089 0000 30 2082
2090 - 0000 10 9999
2091 0001 48 0003
2092 - 6610 40 9999
2093 0000 30 2046
2094 0000 10 0132
2095 0009 33 9999
2096 0000 30 2085
2097 1008 61 0124
2098 0001 48 0003
2099 3111 40 2100
2100 2408 44 1874 REED
2101 0101 30 1874 REED
2102 0000 42 2104
2103 0010 29 2246
2104 0240 29 0101
2105 0000 30 2060
2106 1008 61 0124
2107 0000 30 2102
2108 0300 36 2113
2109 0010 09 2112
2110 0001 12 2090
2111 0000 30 2108
2112 @ 1602 02 0202
2113 0000 10 0125
2114 0000 36 2060
2115 0000 12 2183
2116 0001 48 0004
2117 3211 40 2118
2118 0990 09 0101
2119 0000 30 2102
2120 0000 42 2130
2121 0000 36 2179
2122 1100 36 2180
2123 0000 40 0134
2124 0003 45 0080
2125 0002 40 0128
2126 0000 46 0126
2127 0410 40 0126
2128 0001 40 0127
2129 0000 10 0134
2130 0002 48 0010
2131 0001 43 0023
2132 0000 12 0129
2133 0000 13 0128
2134 0001 33 2221
2135 0000 19 0125
2136 5000 19 0125
2137 0000 10 0134
2138 0000 41 2174
2139 0000 44 2178
2140 0001 33 2168
2141 0001 27 0128
2142 0000 32 2154
2143 0000 41 0127
2144 0000 37 2060
2145 0000 41 2131
2146 0000 44 2178
2147 0000 30 2168
2148 0000 10 0127
2149 0000 13 2136
2150 0000 42 2066
2151 0000 46 0129
2152 0003 26 0129
2153 0000 30 2123
2154 0001 27 0126
2155 0000 41 0126
2156 0000 37 2162
2157 0000 41 0133
2158 0000 37 2164
2159 0001 27 0133
2160 0000 41 2124
2161 0000 30 2168
2162 0000 41 2091
2163 0000 30 2168
2164 0000 10 0134
2165 0000 41 2183
2166 0001 49 0001
2167 0000 40 0134
2168 0001 49 0018
2169 0001 48 0008
2170 0001 42 0125
2171 - 0000 49 0008
2172 9400 28 0125
2173 0024 21 2178
2174 0000 43 0020
2175 - 0000 12 0125
2176 - 0010 40 0125
2177 0002 26 0125
2178 0000 30 9999
2179 0009 21 2124
2180 0000 49 0051
2181 0001 21 2122
2182 0002 45 7557
2183 0001 48 0008
2184 0410 18 2248
2185 0001 40 0134
2186 0001 34 2196
2187 0410 40 2194
2188 0449 27 2194
2189 0000 42 2194
2190 0000 10 0130
2191 0001 48 0004
2192 4211 40 2195
2193 0000 10 2194
2194 0002 45 9999
2195 0000 20 2125
2196 0000 43 7557
2197 0000 13 2248
2198 0210 40 0133
2199 0211 18 0130
2200 0000 35 2203
2201 0000 10 2248
2202 0000 30 2187
2203 0000 10 2180
2204 1110 40 0134
2205 0000 30 2187
2206 0304 27 0129
2207 0000 32 2210
2208 0000 30 2220
2209 0000 10 2249
2210 0000 36 2209
2211 0002 45 7557
2212 2210 40 2135
2213 0001 48 0008
2214 0001 40 0134
2215 0002 48 0010
2216 0000 12 0130
2217 0000 17 2180
2218 0310 18 0129
2219 0001 34 2229
2220 0004 26 0129
2221 0000 10 0129
2222 0000 19 0125
2223 0000 19 0125
2224 0002 27 0125
2225 0000 41 2236
2226 0000 44 2178
2227 0000 30 2168
2228 0000 30 2060
2229 0000 41 2135
2230 0000 10 2166
2231 0000 42 0131
2232 0001 20 2125
2233 0002 45 7557
2234 0001 48 0008
2235 0001 40 0134
2236 0000 43 0014
2237 0000 13 2248
2238 0002 45 7557
2239 0001 33 2244
2240 0210 18 0130
2241 0000 34 2221
2242 0000 12 2166
2243 0000 30 2231
2244 0010 40 0133
2245 0000 30 2230
2246 @ 0000 00 0000
2247 0010 00 0000
2248 0000 00 0050
2249 5000 00 0000
COMPILED PROGRAM ENDS AT 0538
PROGRAM VARIABLES BEGIN AT 1874
Reference in New Issue View Git Blame Copy Permalink