File BESY.FT (FORTRAN source file)

Directory of image this file is from
This file as a plain text file

4303 5215 5303 0240 5240 0240 5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 
5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 
5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 
5256 7256 6215 1612 6215 1612 5240 0240 5240 0240 6640 1640 6725 1302 6717 2325 
6311 2716 6240 2702 4323 6731 4212 6703 5212 0303 5240 0240 5240 0240 6640 2720 
6322 7720 4323 6705 5212 0303 5240 0240 5240 0240 5240 0240 6240 7703 6715 2720 
5324 0305 6324 2710 5240 0331 6702 1705 6323 6305 6640 2706 6716 2303 6311 7317 
6240 7706 6322 0640 6240 4707 6326 7305 6640 1301 6307 6725 6705 2316 6240 7301 
6304 7640 6322 2704 4322 5215 4303 5215 5303 0240 5240 0240 5240 0240 6325 0723 
4307 6705 5212 0303 5240 0240 5240 0240 5240 0240 6240 0703 5314 0314 6702 1705 
6731 4250 5254 6316 5302 6331 6711 1305 4251 5215 4303 5215 5303 0240 5240 0240 
5240 0240 6704 1705 6303 4722 6320 4724 5317 0316 5317 0306 6720 1301 6301 2715 
6724 1305 4323 5215 5303 0240 5240 0240 5240 0240 5240 0240 5330 0240 6255 4324 
6305 0640 6722 2707 6315 7305 6324 7640 6706 2240 5310 0305 6331 1240 6705 1723 
5305 0314 6306 7325 6303 4724 5317 0316 6704 1705 6311 2722 4304 5215 5303 0240 
5240 0240 5240 0240 5240 0240 5316 0240 6255 4324 6305 7640 6322 2704 6322 7640 
6706 2240 5310 0305 6331 1240 6705 1723 5305 0314 6306 7325 6303 4724 5317 0316 
6704 1705 6311 2722 4304 5215 5303 0240 5240 0240 5240 0240 5240 0240 5302 0331 
6255 4324 6705 1240 6705 2723 6314 0724 5316 0324 6331 1240 6705 1723 5305 0314 
6306 7325 6303 4724 4317 6716 5212 0303 5240 0240 5240 0240 5240 0240 6240 2711 
6722 1255 6705 2723 6314 0724 5316 0324 6705 1322 5317 0322 6303 2317 6705 3640 
6710 1305 4305 5215 5303 0240 5240 0240 5240 0240 5240 0240 5240 0240 6711 1305 
5275 0260 6240 7716 6640 1305 6722 1317 6215 1612 5240 0240 5240 0240 5240 0240 
5240 0240 6240 4640 5705 6722 5261 0240 6316 4640 6323 7240 6305 0707 6724 3311 
4305 5215 5303 0240 5240 0240 5240 0240 5240 0240 5240 0240 6711 1305 5275 0262 
5240 0330 5311 0323 6316 3705 6301 4724 5326 0305 5317 0322 6732 1305 4317 5215 
5303 0240 5240 0240 5240 0240 5240 0240 5240 0240 6711 1305 5275 0263 6640 4702 
6240 0710 6323 2640 6330 2703 6305 2704 6304 6640 6301 7307 6711 2724 5304 0305 
5317 0306 5261 5260 5652 0267 6215 1612 6215 1612 5240 0240 5240 0240 6640 1240 
6305 0715 6722 1713 6215 1612 5240 0240 5240 0240 5240 0240 6640 3240 6705 4722 
6240 6723 6301 6314 6240 0726 6314 2725 6323 7640 6706 4240 6240 0715 6331 1640 
6701 1725 6705 2240 5310 0305 6322 7301 5307 0305 5317 0306 6324 2710 6240 4714 
6302 0722 4322 6731 5212 0303 5240 0240 5240 0240 5240 0240 6640 2706 6716 2303 
6311 7317 6240 6301 5317 0307 5324 0317 5302 0305 6305 1730 6305 2305 4305 6704 
5212 0303 5240 0240 5240 0240 5240 0240 5240 0330 6715 1725 6324 1240 6305 3640 
6322 0705 6724 1305 6240 4324 5301 0316 6732 1305 4317 5215 5303 0240 5240 0240 
5240 0240 5240 0240 6316 6640 6725 2323 6240 2702 6640 1307 6705 2301 5305 0322 
6324 0710 6316 7640 6322 2640 6321 0725 6714 2240 6717 5240 6305 7722 6215 1612 
6215 1612 5240 0240 5240 0240 6640 1640 6725 1302 6717 2325 6311 2716 6323 0640 
5316 0304 6306 7325 6303 4724 5317 0316 6323 1325 6320 7722 6307 0722 5315 0323 
6722 0705 6725 1311 4305 6704 5212 0303 5240 0240 5240 0240 5240 0240 6240 7716 
4316 6705 4212 6703 5212 0303 5240 0240 5240 0240 6240 2715 6324 7710 4304 5215 
5303 0240 5240 0240 5240 0240 5240 0240 6322 1705 6725 1322 6305 1716 6705 1240 
6305 0714 6324 7711 6316 0640 5316 0304 6320 6317 6331 7716 6315 0711 6314 0640 
6720 1320 6317 4730 6715 2301 6311 7317 6240 2724 6303 7310 6711 2721 4305 5215 
5303 0240 5240 0240 5240 0240 5240 0240 5301 0323 6704 1705 6303 4722 6302 2305 
6640 4702 5240 7301 6312 6656 6256 4710 6324 4303 6303 1717 5313 3654 6320 6317 
6331 7716 6315 0711 6314 0640 6720 1320 6317 4730 6715 2301 6311 7317 4323 5215 
5303 0240 5240 0240 5240 0240 5240 0240 5324 0317 6702 1705 6323 6305 6640 2706 
6716 2303 6311 7317 6323 7640 6306 7640 6322 2704 6722 5240 6305 7722 6240 7301 
6304 7640 5316 0305 6301 2316 6240 7724 6240 2722 6714 2301 4305 6704 5212 0303 
5240 0240 5240 0240 5240 0240 6640 2706 6716 2303 6311 7317 5323 6247 5240 7315 
6324 0656 5256 7303 6654 3240 5656 0661 5654 4661 5265 6267 5320 7320 5270 6666 
5270 6270 6240 7301 6304 3640 5256 7316 6240 0727 6324 7723 4316 6654 5212 0303 
5240 0240 5240 0240 5240 0240 6240 0647 6640 1324 6705 2301 6311 2723 6240 7317 
6240 4324 6705 2240 6310 7705 5322 0331 5317 0306 6702 1705 6323 6305 6640 2706 
6716 2303 6311 7317 5323 6247 6240 0703 6715 1302 6311 3704 4305 5215 5303 0240 
5240 0240 5240 0240 5240 0240 6325 4716 6726 1305 6723 2311 6731 0240 6722 1705 
5323 0254 5661 2671 5270 0254 5320 0256 4266 6662 4212 6703 5212 0303 5240 0240 
5240 7256 5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 
5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 
5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 4256 5215 4303 5215 
5240 0240 5240 0240 6323 1325 6722 2717 6324 7311 6305 1240 6705 4723 5250 6330 
6316 1254 6331 4654 5305 4722 6215 1612 6215 1612 5240 0240 6240 1640 6310 1705 
6313 3240 5317 0322 6705 1322 6717 1722 6240 7311 5240 0316 6301 2316 4240 6730 
4212 6703 5212 0240 5240 0240 6240 3311 5250 4716 5661 0270 5654 0261 5654 0261 
5215 0212 5640 0640 6260 4640 5705 6722 4260 5215 5240 0240 5240 0240 5311 4306 
5730 0651 5271 6260 5661 0271 5654 0262 6215 1612 6215 1612 5240 0240 6240 1240 
6322 7301 5303 0310 5311 0306 6330 6240 6705 1723 6240 4324 5301 0316 5317 0322 
6705 2721 5301 0314 4264 5215 4303 5215 5240 0240 5262 0260 5311 4306 5730 2255 
5256 4660 5264 6260 5264 6260 4263 6660 4212 6703 5212 0303 5240 0240 5240 0240 
6303 6717 6720 2325 6705 4640 6260 0640 5316 0304 5331 0261 6706 1317 5240 0330 
6307 2722 6301 2724 6722 2240 6310 7301 4240 6664 4212 6703 5212 0240 5640 0263 
5640 0724 5275 7264 6660 4257 5215 0212 5240 0240 6640 2240 6662 2275 6661 2252 
4261 5215 5240 0240 5240 0240 5720 6660 5250 4250 5250 7255 5660 0260 5660 1660 
5667 2260 6663 2252 5262 7253 5660 0260 5660 3661 5663 3265 5265 5251 5324 6662 
5656 0260 5660 2260 5670 3267 5261 4663 5652 1324 5215 0212 5240 0240 5240 0261 
5240 7253 5660 0260 5661 1667 5264 4663 5652 1324 5655 0256 5660 3661 5665 0263 
5266 4662 5652 1324 5653 1656 5671 4670 5664 1662 5215 0212 5240 0240 6640 0640 
5260 4275 5250 4250 5656 0260 5660 0260 5663 1662 5261 5262 5324 6662 5656 0260 
5660 0660 5664 0262 5267 4670 5652 1324 5653 0256 5660 0260 5663 1264 5664 4266 
6651 2252 4262 5215 5240 0240 5640 0640 5240 6640 5656 0260 5660 4260 5666 3671 
5271 4661 5652 1324 5653 0256 5660 2260 5665 2266 5663 2262 6651 2252 5262 7255 
5660 1261 5664 3266 4271 6664 5212 0240 5240 0240 5640 0720 5275 4250 5250 7250 
5660 0260 5660 2260 5662 0664 6664 2252 5262 7255 5660 0260 5660 0262 5660 1271 
5260 5251 5324 5662 5656 0260 5660 2660 5670 3660 5265 4671 5652 1324 5215 0212 
5240 0240 5240 0261 5240 7255 5660 0260 5662 1662 5662 1660 6651 2252 5262 7253 
5660 1260 5671 0662 5670 3262 6651 2252 5262 7253 5663 4271 5671 1264 4263 5215 
5240 0240 5240 0240 5721 6661 5250 4250 5250 7255 5660 0260 5660 1660 5666 4665 
6664 2252 5262 7253 5660 0260 5660 3261 5262 4662 5652 1324 5655 0256 5660 0260 
5663 4271 5667 4260 6651 2252 4262 5215 5240 0240 5640 0640 5240 5640 5656 0260 
5660 0261 5666 3664 5264 4661 5652 1324 5655 0256 5660 3260 5663 0271 5664 0260 
6651 2252 5262 7253 5660 3663 5664 0260 4270 6664 5212 0240 5240 0240 5640 6701 
5662 0256 6657 0723 5322 4324 4330 6651 5212 0240 5240 0240 5640 6702 6701 2252 
4261 5215 5240 0240 5240 0240 6703 4275 5655 3656 5670 1665 5671 1270 5215 0212 
5240 0240 6640 4640 6260 0675 5652 0320 6252 4723 6316 1650 6251 1253 5652 0321 
6252 7703 6323 1650 4251 5215 5240 0240 5240 0240 5731 6661 5255 5301 5320 5261 
6703 1717 5250 4703 5253 5302 5321 5261 6323 7311 5250 4703 5215 0212 5240 0240 
6240 3640 6717 2240 5717 4640 4260 5215 4303 5215 5303 0240 5240 0240 6240 1640 
6717 0315 6325 2724 5640 0331 6240 7301 6704 4640 6261 3240 5317 0322 6330 6240 
6705 1723 6240 4324 5301 0316 5317 0322 6705 2721 5301 0314 5324 0317 4264 5215 
4303 5215 5240 0240 5264 0260 5730 6730 5730 1257 4256 5215 5240 0240 5240 0240 
5730 6662 5330 5330 4330 6730 5212 0240 5240 0240 5640 6724 6301 7714 6707 4250 
5330 5651 5656 3665 5667 0662 4265 6667 5212 0240 5240 0240 6640 2723 5715 0275 
4256 5215 5240 0240 5240 0240 6724 1305 6715 2275 5215 0212 5240 0240 6640 4640 
6660 2275 5215 0212 5240 0240 6240 2240 5717 3640 6260 6240 5275 6261 4261 6665 
5212 0240 5240 0240 6240 3311 5250 6714 5661 2651 5660 3254 5660 2654 4260 5215 
5240 0240 5265 0260 6323 6725 6675 2723 5715 0653 6256 3257 6314 0717 6324 6250 
5255 4661 5215 0212 5640 3240 6260 3240 6314 6275 5215 0212 5240 0240 6640 2240 
6723 2275 6655 2723 4315 5215 5240 0240 5240 0240 6724 1305 5315 4275 6724 1305 
5315 4252 5655 1330 6251 3257 5314 5252 5262 5251 5250 7261 5255 7261 6257 3250 
6714 2252 5323 4651 5215 0212 5640 3640 6660 4640 6660 4675 6660 2253 6305 6722 
5215 0212 5240 0240 6640 2240 6305 6722 5240 0275 5330 5330 5250 6724 5256 4665 
5215 0212 5240 0240 6640 1640 5725 6715 4260 6656 5212 0240 5240 0240 5640 0731 
6275 2724 4322 6715 5212 0240 5240 0240 6240 7704 5640 0270 5640 6714 5662 0654 
4266 5215 5240 0240 5240 0240 6323 6725 6675 2723 5715 0653 6256 3257 6314 0717 
6324 6250 5255 4661 5215 0212 5240 0240 6240 3240 6314 6275 5215 0212 5240 0240 
6240 3240 5714 6661 5306 6714 4261 6656 5212 0240 5240 0240 6640 1724 5275 6724 
6323 6725 5215 0212 5240 0240 6640 2240 6305 6722 6675 2250 6305 6722 5252 6650 
5330 4662 6257 3250 5314 5261 5306 4714 5251 4252 6650 1724 5655 2656 6257 6306 
5251 4257 5324 5723 5256 7665 5706 0714 4251 6651 5212 0240 5640 0270 5640 0731 
5675 0731 6253 2724 4322 6715 5212 0240 5240 0240 6240 4720 5262 7275 5666 3263 
5666 4661 4270 5215 5240 0240 5240 0240 5731 6660 5720 1311 5652 0331 5215 0212 
5240 0240 6640 4640 5261 6675 5720 1311 5257 5730 5720 1311 5652 0731 6215 1612 
6215 1612 5240 0240 6240 1640 6310 1705 6313 4640 6306 7640 6716 4714 5640 0331 
6640 1317 5640 0731 6640 1711 6240 2704 6723 1311 4305 6704 4212 6703 5212 0240 
5640 0271 6240 3311 5250 6716 5661 0651 5260 6260 5661 0260 5654 1661 4260 5215 
4303 5215 5303 0240 5240 0240 6722 2305 6325 7322 6240 4705 6324 2710 6722 4640 
6260 7640 6722 4640 6261 0640 6723 1240 6705 2721 6311 2722 4304 5215 4303 5215 
5640 0640 5260 0260 5311 4306 5716 0651 5261 6260 5661 0262 5654 0661 4260 5215 
5640 0640 5261 0260 5702 6731 4331 6661 5212 0240 5240 0240 6240 7707 6240 7724 
5640 3661 4260 5215 5640 0640 5262 0260 5702 6731 4331 6660 5212 0240 5240 0240 
6240 7707 6240 7724 5640 3661 4260 5215 4303 5215 5303 0240 6640 0240 6305 3322 
6317 6722 6240 2722 6703 1325 6322 7305 5303 0305 6317 2720 6722 2301 6311 7317 
6723 2240 6317 3240 6311 2316 6240 7331 5250 4730 6215 1612 5215 0212 5640 1661 
6660 4640 6701 4675 4260 5215 5240 0240 5240 0240 5731 6702 4331 6661 5212 0240 
5240 0240 5640 6713 4261 5215 5640 0640 5264 0260 6324 3275 6314 0717 5724 1250 
5252 4713 4257 6730 5212 0240 5240 0240 6240 1731 5275 5324 5331 6702 4331 6701 
5212 0240 5240 0240 6240 3311 6250 1301 6723 4650 5303 6651 5661 3656 5705 1663 
5651 2261 5665 0654 5264 6265 5661 0664 5215 0212 5640 2261 6261 4640 5705 6722 
4263 5215 5240 0240 5240 0240 6722 2305 6325 7322 5215 0212 5640 2261 6265 5640 
5275 5713 4261 5215 5240 0240 5240 0240 5311 4306 6313 7255 5651 2661 5660 0654 
5266 6260 5661 0265 5215 0212 5640 2661 6660 4640 6701 4675 4302 5215 5240 0240 
5240 0240 5731 6702 4331 6703 5212 0240 5240 0240 6240 7707 6240 7724 5640 2261 
4260 5215 5640 0640 5266 0260 5702 6731 4331 6703 5212 0240 5661 0267 6240 2722 
6724 1325 4316 5215 5640 0640 5270 0260 6711 1305 4275 6661 5212 0240 5240 0240 
6240 2722 6724 1325 4316 5215 5640 0640 5271 0260 6711 1305 4275 6662 5212 0240 
5240 0240 6240 2722 6724 1325 4316 5215 5240 0240 5240 0240 6305 2316 4615 5212 
4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 
4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 
4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 
4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 
4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 
4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 
4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 
4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 
4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 
4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 
4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 
4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search