File BESK.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 6713 4212 6703 5212 0303 5240 0240 5240 0240 5240 0240 
6240 7703 6715 2720 5324 0305 6324 2710 5240 0313 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 6713 4250 5254 6316 5302 6313 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 
6313 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 6313 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 0313 6255 4324 6705 1240 6705 2723 6314 0724 5316 0324 6313 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 6732 1305 6317 7640 6322 7240 6305 0707 
6724 3311 4305 5215 5303 0240 5240 0240 5240 0240 5240 0240 5240 0240 6711 1305 
5275 0263 5240 0330 6656 2307 5656 0640 5267 6260 6240 0715 6303 4710 5316 0305 
6322 7301 5307 0305 6305 1730 6305 2305 4305 6704 5212 0303 5240 0240 5240 0240 
5240 0240 5240 0240 6240 2711 5722 2275 6240 1240 5313 7240 5307 7324 5640 0261 
5652 3652 4260 5215 4303 5215 5303 0240 5240 0240 5240 0240 6322 6705 6301 5722 
4323 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 6303 6717 
6720 2325 5305 0323 6732 1305 6317 7640 6322 2704 6322 0640 5316 0304 6706 1311 
5323 0324 6317 2322 5305 0322 6702 1705 6323 6305 6640 2706 6716 2303 6311 7317 
6723 2640 6323 7311 4307 5215 5303 0240 5240 0240 5240 0240 5240 0240 6723 1305 
6711 1705 6640 0301 6320 7722 6330 6711 6301 4724 6717 1716 6240 7301 6704 2240 
6310 7305 6240 7703 6715 2720 6724 1705 5240 0316 5324 0310 6317 2322 5305 0322 
6306 7325 6303 4724 4317 6716 5212 0303 5240 0240 5240 0240 5240 0240 6640 1725 
6311 3716 6240 2722 6703 1325 6322 7305 5303 0305 6322 6305 6301 4724 5317 7316 
6215 1612 5240 0240 5240 0240 5240 0240 6640 1240 6705 2703 6322 2722 6316 2703 
6240 2722 6714 2301 6311 7317 6240 7301 6704 0240 6717 4714 6316 6717 6311 6301 
6640 0301 6320 7722 6330 6711 6301 4724 5317 0316 6324 1705 6310 4716 6321 2725 
6215 1612 5240 0240 5240 0240 5240 0240 6240 0640 6323 2240 6305 1723 6322 1311 
5305 0304 5302 0331 6301 5256 5256 7315 6710 2311 6303 1710 6317 5703 6654 0247 
6717 4714 6316 6717 6311 6301 6640 0301 6320 7722 6330 6711 6301 4724 6717 1716 
6215 1612 5240 0240 5240 0240 5240 0240 6640 2240 6317 1240 6705 1723 5305 0314 
6306 7325 6303 4724 6717 1716 6240 3317 6640 1317 6704 1305 6240 2732 5322 0317 
6301 2316 6240 7317 6305 0640 5316 0304 5324 0317 6322 6305 6301 2724 4304 5215 
5303 0240 5240 0240 5240 0240 5240 0240 6306 7325 6303 4724 6717 1716 5247 0254 
6715 2256 5256 7301 5303 6256 5240 7326 5261 6261 5661 2671 6667 0254 5720 4256 
5666 4255 5270 0254 6301 2316 5240 7307 5316 0256 6727 2301 6323 7317 4254 5215 
5303 0240 5240 0240 5240 0240 5240 0240 5247 0301 6324 2722 6301 4724 5323 0305 
5317 0316 6324 2710 6240 4324 6705 1317 6331 7640 6306 1240 6705 1723 5305 0314 
6306 7325 6303 4724 6717 1716 5247 0254 6303 6701 6302 4722 6304 2707 6215 1612 
5240 0240 5240 0240 5240 0240 6640 2640 6716 3311 6705 1722 6711 4724 6640 1320 
6705 1723 5654 0640 5671 4265 6654 0240 5656 3240 4262 5215 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 
5215 0212 5240 0240 6640 1640 6725 1302 6717 2325 6311 2716 6240 2702 5323 4313 
6330 7254 6254 5702 6254 2711 4322 6651 5212 0240 5240 0240 6240 4704 6315 7305 
6323 7711 6716 2240 5650 1261 4251 5215 5240 0240 5240 0240 5702 6713 4256 6660 
5212 0240 5240 0240 6240 3311 5250 4716 5261 6260 5261 6261 4261 6661 5212 0240 
5640 0261 6240 2711 5722 0675 5215 0212 5240 0240 6640 1240 6705 2724 4322 6716 
5212 0240 5640 0661 6240 3311 5250 4730 5261 6262 5261 6262 4262 6660 5212 0240 
5640 1261 6240 2711 5722 1275 5215 0212 5240 0240 6640 1240 6705 2724 4322 6716 
5212 0240 5640 0262 6240 3311 5250 6730 5661 0267 5256 4660 5262 6262 5262 6262 
4262 6661 5212 0240 5640 0662 6240 2711 5722 1675 5215 0212 5240 0240 6640 1240 
6705 2724 4322 6716 5212 0240 5640 1262 6240 2711 5722 0275 5215 0212 5240 0240 
6240 4640 6706 4250 5255 7261 5651 3263 5654 3263 5654 2662 5215 0212 5640 1240 
6265 0640 6675 4305 5320 6650 4330 6651 5212 0240 5240 0240 5640 6702 5261 7656 
4330 5215 5240 0240 5240 0240 6703 1675 6721 2322 5250 4702 5215 0212 5240 0240 
6640 2240 5250 4661 4275 6702 5212 0240 5240 0240 6240 7704 5640 3262 5640 6714 
5662 0654 4262 5215 5240 0240 5262 0266 6324 6250 6651 2275 5250 6714 5261 5251 
4302 5215 5240 0240 5240 0240 5311 4306 5716 0655 5651 3662 5654 4662 5654 3662 
6215 1612 6215 1612 5240 0240 6240 1640 6717 0315 6325 2724 6240 7713 6640 1725 
6311 3716 6240 7720 6314 7331 6317 4715 5301 0314 6701 0320 6722 4317 6311 0715 
6324 7711 4316 5215 4303 5215 5240 0240 5262 0267 5707 6660 5301 4252 5661 1256 
5665 1663 5661 0664 5655 0656 5665 3266 5666 1264 5252 4324 5261 5651 5656 4260 
5670 0661 5661 4262 5252 4324 5262 6651 5656 4660 5661 4663 5660 2671 5252 4324 
4263 6651 5212 0240 5240 0240 5262 7253 5661 2263 5664 4665 6666 2252 5250 4664 
5655 1256 5662 4671 5670 0265 5252 4324 5265 5651 5656 3663 5671 2262 5261 5260 
5724 3250 5251 7255 5665 2262 5667 3662 6667 2252 5250 4667 5215 0212 5240 0240 
5240 5663 5656 2665 5667 1665 5266 5270 5724 4250 5251 7255 5664 3262 5662 1666 
6663 2252 5250 4671 5653 1256 5661 2270 5665 4261 5252 4324 5261 4660 5655 0256 
5666 4266 5660 3671 6667 2252 5650 0661 4251 5215 5240 0240 5640 2240 5653 0256 
5660 0671 5670 1671 5270 5263 5724 0650 5262 4651 4252 6703 5212 0240 5240 0240 
6240 3311 5250 4716 5262 6260 5262 6270 4262 6671 5212 0240 5640 4262 6240 5702 
5675 0307 5215 0212 5240 0240 6640 1240 6705 2724 4322 6716 4212 6703 5212 0303 
5240 0240 6240 7703 6715 2720 5324 0305 5313 0261 6325 4723 5316 0307 6320 6317 
6331 7716 6315 0711 6314 0640 6720 1320 6317 4730 6715 2301 6311 7317 6215 1612 
5215 0212 5640 1240 6271 3640 6261 0675 5652 0650 5656 2662 5663 0663 5264 5661 
5656 3264 5671 4671 5262 5267 5724 0650 5251 7255 5661 3264 5670 4265 6663 2252 
5250 4662 5653 0656 5662 0270 5664 3662 5252 4324 4263 6651 5212 0240 5240 0240 
5262 7255 5661 1667 5666 1664 6662 2252 5250 4664 5653 1256 5670 3664 5666 4261 
5252 4324 5265 6651 5656 2664 5671 1664 5264 5262 5724 3250 5251 7253 5666 4262 
5663 4263 6661 2252 5250 4667 5215 0212 5240 0240 5240 6663 5656 3266 5663 1262 
5271 5265 5724 4250 5251 7253 5665 2660 5660 1662 6671 2252 5250 4671 5655 1256 
5665 0670 5663 2260 5252 4324 5261 4660 5653 0256 5667 4270 5660 0260 6661 2252 
5650 0661 4251 5215 5240 0240 5640 2240 5655 0256 5661 4260 5662 0664 6670 2252 
5650 1261 5251 5251 4303 5215 5240 0240 5240 0240 5311 4306 5716 0655 5651 0262 
5654 0263 5654 0663 5215 0212 5640 1640 6260 1240 6313 3675 4261 5215 5240 0240 
5240 0240 6722 2305 6325 7322 6215 1612 6215 1612 5240 0240 6240 3240 6322 6717 
6240 7713 5654 0713 6240 7703 6715 2720 5324 0305 5313 0316 6325 4723 5316 0307 
6322 1705 6725 1322 6305 1716 6705 1240 6305 0714 6324 7711 4316 5215 4303 5215 
5240 0240 5263 0261 5304 0317 5263 0265 5712 1275 4254 6716 5212 0240 5240 0240 
6240 5307 5275 7262 6252 3250 6314 0717 6324 5250 5651 0655 5256 5251 5307 7661 
6330 3653 4260 5215 5240 0240 5240 0240 5311 4306 5307 6712 5661 3656 5705 1663 
5651 1663 5654 1663 5654 1263 5215 0212 5640 1640 6262 4640 5705 6722 4264 5215 
5240 0240 5240 0240 5307 0317 5324 0317 4263 6664 5212 0240 5640 1663 5640 0307 
5675 0707 5215 0212 5640 1640 6265 3640 6261 3675 4312 5215 5240 0240 5263 0264 
5702 6713 4307 6712 5212 0240 5240 0240 6240 2722 6724 1325 4316 5215 5240 0240 
5263 0266 6702 4275 5257 7262 5215 0212 5240 0240 6240 0640 5675 2656 5667 1267 
5661 3665 6253 6301 5317 4307 4302 6651 5212 0240 5240 0240 5640 6703 6302 1252 
5215 0212 5240 0240 6240 4640 6306 7250 5255 4661 5263 6267 5264 6263 4263 6667 
4212 6703 5212 0303 5240 0240 6240 7703 6715 2720 5324 0305 5313 0317 6325 4723 
5316 0307 6723 1305 6711 1705 6640 4305 6320 7301 6323 7711 4316 5215 4303 5215 
5240 0240 5263 0267 5707 6660 4255 6701 5212 0240 5240 0240 5640 1330 5712 0675 
4256 5215 5240 0240 5240 0240 6306 1701 5724 0675 4256 5215 5240 0240 5240 0240 
5710 6712 4256 6660 5212 0240 5240 0240 6240 7704 5640 0264 5640 6712 5661 3254 
5215 0212 5240 0240 6640 1240 5712 0675 6256 3257 6314 0717 6324 5250 4251 5215 
5240 0240 5240 0240 6330 5262 5675 1330 6312 1652 5215 0212 5240 0240 6240 3240 
6701 2303 6275 0706 5303 5324 5322 5312 4322 6712 5212 0240 5240 0240 6240 5310 
6275 5310 6253 5322 5215 0212 5640 2240 6260 3640 6260 3675 6660 4253 5262 5312 
6306 1701 5324 4252 5310 6712 4301 6651 5212 0240 5240 0240 6240 3311 5250 4716 
5264 6263 5264 6262 4264 6663 5212 0240 5640 1264 6240 5702 5675 0307 5215 0212 
5240 0240 6640 1240 6705 2724 4322 6716 4212 6703 5212 0303 5240 0240 6240 7703 
6715 2720 5324 0305 5313 0261 6325 4723 5316 0307 6723 1305 6711 1705 6640 4305 
6320 7301 6323 7711 4316 5215 4303 5215 5240 0240 5264 0263 6330 5262 4275 6702 
5212 0240 5240 0240 6240 0706 5703 6724 4261 6656 5212 0240 5240 0240 6240 5310 
5275 7261 5215 0212 5240 0240 6240 3640 5661 0675 6656 4257 5653 1330 5312 4252 
5256 5665 6301 4255 4312 6651 5212 0240 5240 0240 6240 7704 5640 0265 5640 6712 
5662 4254 5215 0212 5240 0240 6640 4240 5662 6712 6330 5262 4252 6703 5212 0240 
5240 0240 6240 5322 5275 7261 6257 6306 6717 2301 5250 4712 5215 0212 5240 0240 
6240 3240 6701 2303 6275 0706 5303 5324 5322 5312 4322 6712 5212 0240 5240 0240 
6240 5310 6275 5310 6253 5322 5215 0212 5640 2640 6260 3640 6261 3675 6661 4253 
5262 5312 6306 1701 5324 4252 5256 5665 5250 6701 5310 4712 6252 6306 6717 2301 
5250 4712 4251 5215 5240 0240 5240 0240 5311 4306 5716 0655 5651 0663 5654 1265 
5654 0663 5215 0212 5640 2640 6262 1240 6313 3675 4261 5215 5240 0240 5240 0240 
6722 2305 6325 7322 5215 0212 5240 0240 6240 2640 4316 6704 4212 0232 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 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