File BESJ.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 6712 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 0312 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 
6712 4250 5254 6316 5302 6312 6304 4654 5305 4722 6215 1612 6215 1612 5240 0240 
5240 0240 6240 2240 6305 1723 6722 0311 6324 7711 6316 7640 6706 0240 6301 0722 
6715 2305 6705 1722 6215 1612 5240 0240 5240 0240 5240 0240 6640 4240 5240 6640 
6324 2710 6640 1301 6307 6725 6705 2316 6240 3317 6240 4324 6305 5240 6240 2702 
6323 2723 6314 3240 6325 1716 6324 7711 6316 2240 6305 4723 6322 2305 6215 1612 
5240 0240 5240 0240 5240 0240 6240 7240 5240 6640 6324 2710 6640 1317 6704 1305 
6240 3317 6240 4324 6305 5240 6240 2702 6323 2723 6314 3240 6325 1716 6324 7711 
6316 2240 6305 4723 6322 2305 6215 1612 5240 0240 5240 0240 5240 0240 6240 1240 
5312 6640 6324 2710 6240 2722 6323 6325 6324 7301 6324 5240 6240 2702 6323 2723 
6314 3240 6325 1716 6324 7711 4316 5215 5303 0240 5240 0240 5240 0240 5240 0240 
5304 0240 6255 2722 6321 4725 6322 2305 6240 1701 6703 1325 6701 4703 6215 1612 
5240 0240 5240 0240 5240 0240 6240 4640 5305 6722 6722 1705 6725 2314 6701 2316 
6640 1305 6722 1317 6240 7703 5304 0305 6327 2710 4322 6705 5212 0303 5240 0240 
5240 0240 5240 0240 5240 0240 6240 2711 5722 0275 6240 7240 6317 2640 6322 7722 
4322 5215 5303 0240 5240 0240 5240 0240 5240 0240 5240 0240 6711 1305 5275 0261 
5240 0316 5311 0323 6316 3705 6301 4724 4326 6705 5212 0303 5240 0240 5240 0240 
5240 0240 5240 0240 6240 2711 5722 1275 6640 4240 6640 1711 6240 2716 6707 2301 
6311 2726 6640 1317 6240 2732 4322 6717 5212 0303 5240 0240 5240 0240 5240 0240 
5240 0240 6240 2711 5722 1675 6640 1240 6705 2721 6311 2722 6304 0640 6703 2703 
6322 1701 6331 7240 5317 0324 6717 2302 6301 7311 4305 6704 5212 0303 5240 0240 
5240 0240 5240 0240 5240 0240 6240 2711 5722 2275 6640 1240 6301 3716 6305 7640 
6306 7240 6240 7703 6315 0720 6322 2305 6240 7724 5240 0330 6716 2317 6240 7703 
6322 2722 5303 0324 6250 2723 6705 1240 6305 0715 6722 1713 4251 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 6254 1240 
5325 0324 5311 0324 6715 1725 6324 1240 4305 5215 5303 0240 5240 0240 5240 0240 
5240 0240 6714 1705 6723 2240 6310 7301 6215 1612 5240 0240 5240 0240 5240 0240 
5240 0240 5640 1240 5660 0653 6660 4252 5255 5330 5652 1240 5257 0263 6240 3240 
5317 0322 6330 6240 6705 1723 6240 4324 5301 0316 5317 0322 6705 2721 5301 0314 
5324 0317 4261 6665 5212 0303 5240 0240 5240 0240 5240 0240 5240 0240 5640 0271 
5253 7730 5262 0240 5240 0240 5240 0240 5240 0240 6706 1317 5240 0330 6307 2722 
6301 2724 6722 2240 6310 7301 5640 2661 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 6716 2240 
6305 4303 6716 0711 5325 0305 6704 1705 6303 4722 6302 2305 6640 4702 5240 7310 
6240 7707 6714 1704 6324 4705 6316 0640 4316 6704 5212 0303 5240 0240 5240 0240 
5240 0240 5240 7322 5315 0256 6324 0710 6714 1305 6654 1247 6705 2703 6322 2722 
6316 2703 6240 2724 6303 7310 6711 2721 5305 0323 6706 1317 6240 4324 6305 1640 
6301 1714 6325 0714 6324 7711 6316 7640 4306 5215 5303 0240 5240 0240 5240 0240 
5240 0240 6702 1705 6323 6305 6640 2706 6716 2303 6311 7317 5323 6247 6715 2256 
5256 7301 5303 6256 5726 0656 6663 0254 5720 0656 5260 6662 5661 4260 6240 7301 
6304 4640 5256 7301 6640 2323 6705 2707 4316 5215 5303 0240 5240 0240 5240 0240 
5240 0240 6301 2316 5240 7315 6240 1301 6322 6701 6317 4727 5324 6332 6247 2707 
6716 1305 6301 4724 5317 0316 5317 0306 6702 1705 6323 6305 6640 2706 6716 2303 
6311 7317 6323 7640 6316 4240 6311 4307 6215 1612 5240 0240 5240 0240 5240 0240 
6640 1640 6320 2705 6304 1640 6717 0315 6325 2724 5322 3723 5254 7315 6324 0656 
5256 7303 5254 7326 5261 6261 5661 2671 6667 0254 5720 1256 5265 6665 5662 3665 
6215 1612 6215 1612 5240 0240 5240 7240 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 6656 4212 6703 5212 0240 5240 0240 6640 2723 6302 7722 6325 4724 
5316 0305 6702 1705 6712 4250 5254 6316 5302 6312 6304 4654 5305 4722 6215 1612 
5215 0212 5240 0240 6240 1240 5312 7275 4260 5215 5240 0240 5240 0240 5311 4306 
5716 0651 5660 1254 5660 1254 4260 5215 5240 0240 5261 0260 6711 1305 4275 6661 
5212 0240 5240 0240 6240 2722 6724 1325 4316 5215 5240 0240 5262 0260 5311 4306 
5730 1651 5660 1654 5660 1654 4261 5215 5240 0240 5263 0260 6711 1305 4275 6662 
5212 0240 5240 0240 6240 2722 6724 1325 4316 5215 5240 0240 5263 0261 5311 4306 
5730 0655 5265 4656 5263 6262 5263 6262 4263 6664 5212 0240 5640 1263 6640 2316 
6705 2323 5675 0262 5656 0653 5260 5256 6730 4255 5252 0252 5662 1657 5215 0212 
5240 0240 6240 3640 6717 2240 5717 1640 4266 5215 5240 0240 5263 0264 6316 2724 
5723 6724 5271 7260 5253 7730 4262 6656 5212 0240 5640 3263 6240 3311 5250 6716 
6316 2724 5323 4724 5264 6260 5263 6270 4263 6670 5212 0240 5640 4263 6240 2711 
5722 2275 5215 0212 5240 0240 6640 1240 6705 2724 4322 6716 5212 0240 5640 0264 
6240 2711 5722 0275 5215 0212 5240 0240 6240 7240 6261 7275 4253 6661 5212 0240 
5240 0240 6640 0302 6722 3305 5675 0256 6215 1612 6215 1612 5240 0240 6240 1640 
6717 0315 6325 2724 6640 2323 6701 2322 6311 3716 6240 0726 6314 2725 6240 3317 
4240 6715 4212 6703 5212 0240 5240 0240 6240 3311 5250 6730 5265 4656 5265 6260 
5266 6260 4266 6660 5212 0240 5640 0265 6240 0715 5275 5730 4266 6656 5212 0240 
5240 0240 6240 7707 6240 7724 5640 0267 5215 0212 5640 3240 6260 6640 5701 0675 
5256 5264 5730 3253 5260 7656 4330 5215 5240 0240 5267 0260 5715 6702 6316 4653 
6706 4311 5250 4730 5257 5664 4262 5215 5240 0240 5240 0240 6315 2732 5722 6717 
6715 4301 6260 6650 6301 6654 4302 6651 4212 6703 5212 0303 5240 0240 6240 2723 
6724 2640 6320 2720 6322 6240 6311 4715 6324 7640 6306 6640 6215 1612 5215 0212 
5240 0240 6240 6640 6715 4301 6675 2316 6705 2323 5215 0212 5640 0261 6260 2240 
5717 0640 5271 0260 6315 6675 6732 1305 6317 6654 6715 4301 4254 6663 4212 6703 
5212 0303 5240 0240 6240 2723 6324 3240 5250 4715 5254 4306 5715 0655 4251 5215 
4303 5215 5240 0240 5240 0240 5706 0715 5275 7261 5260 6705 4262 6670 5212 0240 
5240 0240 6240 6706 5675 0256 5215 0212 5240 0240 6240 0640 6314 4320 5301 7275 
4260 5215 5240 0240 5240 0240 5311 4306 5315 4255 5715 1257 5651 1252 5651 1261 
5660 0654 5261 6260 5661 0262 5215 0212 5640 0661 6260 5240 5324 6675 4261 5215 
5240 0240 5240 0240 5307 0317 5324 0317 5661 0263 5215 0212 5640 1261 6260 5240 
5724 0675 5215 0212 5640 1661 6260 6640 6262 6675 4255 6662 5212 0240 5240 0240 
6240 7704 5640 3261 6260 5640 5275 6261 4315 6662 5212 0240 5240 0240 6240 5715 
5275 6715 4313 5215 5240 0240 5240 0240 6302 5715 5275 7262 6252 6306 6717 2301 
6250 5715 6251 3252 5315 7661 6330 3255 4315 5215 5240 0240 5240 0240 5706 6715 
5706 0715 5215 0212 5240 0240 6240 3240 5715 6661 6302 5715 5215 0212 5240 0240 
6240 4640 6306 6650 6313 7255 5255 4661 5661 0265 5654 2261 5660 0654 4265 6660 
5212 0240 5661 0264 6240 5302 6275 6702 4313 5215 5640 0640 5265 0260 5712 6724 
6655 2312 5215 0212 5240 0240 6640 1640 5275 5661 4312 6724 5212 0240 5661 0266 
6240 6301 6320 0710 6275 6301 6320 0710 6253 6702 6713 1652 5215 0212 5240 0240 
6240 1240 5715 6713 5262 5256 5706 0715 5257 6730 4306 6715 5212 0240 5240 0240 
6240 3311 5250 4716 5661 0270 5654 3661 5660 0654 4270 6660 5212 0240 5661 0267 
6240 5302 6275 6702 4313 5215 5640 0640 5270 0260 6701 0314 5710 6701 6701 0314 
5310 5701 6302 5715 5215 0212 5240 0240 6240 1240 6312 1275 6312 0657 6314 4320 
4301 5215 5240 0240 5240 0240 5311 4306 6701 1702 6250 5302 6655 0302 6722 3305 
6251 0655 5302 4323 6304 1252 5312 4651 5662 0260 5654 0262 5660 0654 4271 6660 
5212 0240 5661 0271 6640 0302 6722 3305 6275 5302 5215 0212 5240 0240 6240 4640 
5705 6722 4263 5215 5640 1240 5260 0260 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 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