File FACTR.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 0706 6703 1324 6215 1612 6215 1612 5240 0240 5240 0240 6640 0240 
6725 0322 6317 2723 6215 1612 5240 0240 5240 0240 5240 0240 6240 3240 6701 2303 
6317 4722 6732 2301 6311 7317 6240 3317 6240 4324 6305 6640 6701 1324 5311 0330 
6301 4640 6316 7724 5240 0301 6320 7722 6304 1725 6324 7640 6306 0640 6240 7714 
6727 1305 6215 1612 5240 0240 5240 0240 5240 0240 6640 2240 6322 0711 6716 2707 
6714 1301 6240 0715 6324 4722 6330 6240 6240 7301 6304 0640 6716 2640 6320 2720 
6722 2240 6322 0711 6716 2707 6714 1301 6240 0715 6324 4722 6730 2640 5256 0240 
6314 4240 4301 6723 5212 0303 5240 0240 5240 0240 5240 0240 6240 7325 5311 0324 
6304 0711 6307 7317 5301 0314 6327 4710 5303 0310 5311 0323 6716 2317 6640 2323 
6317 2722 4304 6656 4212 6703 5212 0303 5240 0240 5240 0240 6640 1725 6301 2707 
6215 1612 5240 0240 5240 0240 5240 0240 6240 1640 6301 6314 6240 0706 6703 1324 
5250 6301 6720 1305 5254 6316 5311 6301 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 5301 0240 
5240 0240 6240 0715 6324 4722 6330 0640 6215 1612 5240 0240 5240 0240 5240 0240 
6640 0240 5305 0322 5240 0240 6317 2716 6240 4704 6315 7305 6323 7711 6316 6301 
6640 1301 6722 4701 6240 4327 6305 2722 6240 2720 6722 2715 6724 2301 6311 7317 
6323 7640 6706 1240 6717 1727 6240 3317 6215 1612 5240 0240 5240 0240 5240 0240 
5240 0240 5240 0240 5240 0240 6324 2710 6240 0715 6324 4722 6330 0640 5322 0305 
6323 7724 6322 2305 6215 1612 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 
5240 0240 6304 6711 6705 1716 6311 7317 6240 3317 6240 2720 6322 6640 6725 2323 
6240 2702 6640 1307 6705 2301 5305 0322 6324 0710 6316 7640 6322 2640 6321 0725 
6714 2240 6317 7240 6215 1612 5240 0240 5240 0240 5240 0240 6240 7240 5240 0240 
5240 0240 6317 2322 5305 0322 5317 0306 6324 2710 6240 0715 6324 4722 6330 0640 
6215 1612 5240 0240 5240 0240 5240 0240 6240 4640 5301 0240 5240 0240 6723 5311 
6305 7640 6706 2240 5310 0305 6706 1311 5323 0324 6304 6711 6705 1716 6311 7317 
6640 1701 6323 3711 6316 2305 6240 7724 6240 4324 6305 0640 6322 0722 6331 0640 
6215 1612 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 5311 0316 
6324 2710 6240 0703 6314 4714 5316 0307 6320 7722 6307 0722 6715 3640 6310 7305 
6240 4324 6305 6640 6701 1324 5311 0330 5311 0323 5311 0316 6704 2717 6302 2714 
6215 1612 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 6323 1325 
6723 1303 6711 2320 5305 0304 6704 2301 6701 1640 6724 1317 6301 2707 6240 7715 
5304 7305 6240 4640 6301 7275 6240 4327 5305 0316 6324 2710 6240 0715 6324 4722 
4330 5215 5303 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 6640 1711 
6240 7311 6640 1723 6720 3240 6705 2303 5317 0322 6323 7724 6322 3701 6305 6640 
6317 2704 4256 5215 5303 0240 5240 0240 5240 0240 5240 0240 6711 1305 5240 0240 
6640 1305 6722 1317 6240 7311 6304 1711 6301 7724 6722 3640 6310 1711 6310 4640 
6723 5240 6305 7722 6240 3311 6240 4324 6305 2722 6640 1711 6240 7716 6640 1305 
6722 1317 4254 5215 5303 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 
6240 7301 6304 4640 6723 2240 6310 2722 6305 4640 6706 2240 5310 0305 6320 7722 
6303 2305 6325 2722 6240 0706 6711 1714 4256 5215 4303 5215 5303 0240 5240 0240 
5240 0240 6322 6705 6301 5722 4323 5215 5303 0240 5240 0240 5240 0240 5240 0240 
6324 2710 6640 1317 6311 4707 6316 6301 6240 0715 6324 4722 5330 0254 6301 4654 
6723 1240 6305 6320 6301 2703 6304 1240 6731 2240 5310 0305 6324 4722 6301 3716 
6325 0714 6322 3240 6701 2303 6717 1722 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 6323 1725 6703 1705 6723 3311 6305 1640 6717 0315 6325 0724 6324 7711 
6316 7640 6706 2240 5310 0305 6303 6317 6325 7315 6323 7640 6306 6240 6240 7301 
6704 2240 4310 6705 5212 0303 5240 0240 5240 0240 5240 0240 6240 7703 6322 2722 
6323 7720 6316 4704 5316 0307 6722 3717 6323 7640 6706 2640 4256 5215 4303 5215 
5303 0240 5240 0240 5240 0240 6322 3305 6305 2722 6316 2703 4323 5215 5303 0240 
5240 0240 5240 0240 5240 0240 5312 0256 5310 0256 6327 6311 6313 7311 6323 7317 
5240 0255 6324 2710 6240 6301 6307 1305 6322 4701 6303 2640 6311 2707 6316 0726 
6314 2725 6640 1320 6317 6302 5305 0315 4255 5215 5303 0240 5240 0240 5240 0240 
5240 0240 6303 0714 6322 7305 6304 7317 6640 1320 6705 1723 6254 7640 6330 7706 
5322 6304 5640 4661 5266 7265 5240 7310 5240 7312 6240 7702 6327 6304 5305 6322 
5240 7322 5240 7323 6240 0715 6322 4724 4316 6654 5212 0303 5240 0240 5240 0240 
5240 0240 5240 7307 6240 2720 6724 1305 5323 0254 6301 2316 5240 7312 5240 7310 
6240 4727 6314 4713 6316 7723 5316 6640 6640 1647 6717 2714 6324 7711 6316 7640 
6706 1240 6305 6301 6240 7301 4304 5215 5303 0240 5240 0240 5240 0240 5240 0240 
6303 6717 6320 2714 6730 1640 6731 2323 6705 1715 6240 3317 6240 4714 6316 0705 
6322 2640 6321 0725 6324 7711 5316 3723 6254 7240 6325 2715 6722 1711 6303 2710 
6240 0715 6324 2710 6715 2301 5311 6313 6215 1612 5240 0240 5240 0240 5240 0240 
6640 3240 5317 7314 5240 6270 6240 7716 5656 1640 5654 0640 5671 3266 6654 0240 
5656 1240 5261 6667 5662 2263 4256 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 0706 6703 1324 5250 6301 6720 1305 
5254 6316 5311 6301 6711 1305 4251 5215 5240 0240 5240 0240 6304 6711 6705 1716 
6311 7317 5240 4301 5261 6251 6720 1305 5250 4661 5215 0212 5240 0240 6240 2240 
6317 1325 5314 0305 6320 2722 6703 1711 6311 7317 6640 0304 6215 1612 6215 1612 
5240 0240 5240 0240 6240 1640 6717 0315 6325 0724 6324 7711 6316 7640 6706 3640 
6305 3711 6710 1724 6240 7706 6322 2640 6321 4725 6314 1311 6722 2301 6311 7317 
6215 1612 5215 0212 5240 0240 6240 2240 5717 1240 6260 4640 5275 6261 4316 5215 
5240 0240 5240 0240 5730 0275 4256 5215 5240 0240 5240 0240 5711 6712 4311 5215 
5240 0240 5240 0240 5304 0317 5261 0260 5712 0675 4254 6716 5212 0240 5240 0240 
6240 3311 6240 0650 5302 4323 6301 4650 5312 4651 5255 4730 5261 6260 5261 6260 
4265 5215 5240 0240 5240 0265 6330 0675 5302 4323 6301 4650 5312 4651 5215 0212 
5640 0640 6260 4640 6312 4675 6312 4653 4301 5215 5240 0240 5240 0240 5311 0306 
5250 4730 5640 0661 5660 0654 5261 6260 4262 6660 5212 0240 5640 0262 6240 2720 
6322 4650 5651 0675 6656 4257 5215 0212 5240 0240 6240 4640 5660 0275 5215 0212 
5240 0240 6240 2240 5717 0640 5260 0260 5711 0675 4254 6716 5212 0240 5240 0240 
6240 6711 6261 4675 4255 6661 5212 0240 5240 0240 6640 0311 6261 4675 4253 6661 
5212 0240 5240 0240 6640 0311 6311 7726 6324 4675 5215 0212 5240 0240 6640 4240 
5275 7260 6215 1612 6215 1612 5240 0240 5240 0240 6240 1640 6717 0315 6325 0724 
6324 7711 6316 7640 6706 2240 5310 0305 6311 4324 6240 7703 6314 6725 6316 7640 
6306 6240 6215 1612 5215 0212 5240 0240 6240 2240 5717 2640 6260 5640 5275 6311 
4316 5215 5240 0240 5240 0240 5713 6711 5311 5660 4313 5215 5240 0240 5240 0240 
5704 6720 6301 5650 4311 6651 5212 0240 5240 0240 6240 3311 6240 4650 5255 4661 
5640 0661 5660 2254 5660 1254 4265 5215 5240 0240 5262 0265 5713 6712 4313 5215 
5240 0240 5240 0240 5304 0317 5263 0260 5712 0675 6254 6711 4261 5215 5240 0240 
5240 0240 5711 6712 5311 5660 4312 5215 5240 0240 5240 0240 5704 6720 5304 6720 
6261 2256 6260 0652 6250 5313 6251 0652 6250 5311 4251 5215 5240 0240 5263 0260 
5713 6712 5313 5712 4311 6701 5212 0240 5240 0240 5240 4301 5313 4711 6675 0304 
6215 1612 6215 1612 5240 0240 5240 0240 6640 1640 6705 1301 5303 0310 6706 1317 
6640 0705 6325 6311 6711 1302 6301 2724 6704 0240 6311 7726 4324 5215 4303 5215 
5240 0240 5264 0260 5311 0306 5250 6730 6304 1301 6323 2250 5320 5251 6720 1305 
5250 4713 5651 2664 5654 0265 5654 0265 5215 0212 5640 2240 6265 4640 6720 3311 
5717 6724 4313 5215 5240 0240 5240 0240 6330 2275 6701 1702 6650 0304 6651 0252 
5305 4322 4313 6651 5212 0240 5640 0265 6240 7703 6316 4724 6316 2725 5215 0212 
5240 0240 6240 4640 5306 4240 5730 0651 5261 6260 5661 0261 5654 2665 6215 1612 
6215 1612 5240 0240 5240 0240 6640 0240 6305 6722 6325 0724 6324 7711 6316 7640 
6706 1240 6717 1727 6240 3311 6240 2722 6321 4725 6322 2305 6215 1612 5215 0212 
5640 2640 6265 4640 5306 4240 6311 4720 6726 2317 5255 4711 5640 0661 5660 3654 
5660 2654 4267 5215 5240 0240 5265 0267 5713 6711 6311 4720 6726 2317 5215 0212 
5240 0240 6240 4640 6312 4675 5215 0212 5240 0240 6240 2240 5717 3240 6260 5240 
5275 6261 4316 5215 5240 0240 5240 0240 6330 0675 6250 5311 4251 5215 5240 0240 
5240 0240 6301 4650 5712 6651 6301 5650 4311 6651 5212 0240 5240 0240 5240 4301 
5313 4711 4275 6730 5212 0240 5240 0240 6240 4713 6275 4713 6253 0711 5215 0212 
5640 3240 6260 4640 6312 4675 6312 4653 4301 5215 5240 0240 5240 0240 6720 1305 
6650 0311 6311 7726 5724 6651 6720 1305 5250 4711 5215 0212 5640 3640 6660 0240 
5305 4322 5711 6651 6311 4720 6726 2317 5215 0212 5240 0240 6240 4640 5306 4240 
6311 7255 5651 3640 5662 0654 5260 6260 5661 0260 5215 0212 5640 3640 6262 4640 
6312 4675 6260 4653 5215 0212 5240 0240 6640 4240 5275 4301 5311 4712 6215 1612 
6215 1612 5240 0240 5240 0240 6240 1640 6717 0315 6325 0724 6324 7711 6316 7640 
6706 2240 5310 0305 6311 4324 6240 7722 6327 7640 6706 2640 6215 1612 5215 0212 
5240 0240 6240 5640 6260 4675 6260 4653 4301 5215 5240 0240 5240 0240 5304 0317 
5271 0260 6313 4675 5320 6261 4316 5215 5240 0240 5240 0240 5713 6711 5311 5660 
4313 5215 5240 0240 5240 0240 6301 5650 5711 6651 6301 5650 5311 7651 4330 5215 
5240 0240 5240 0240 5311 0306 5250 6711 5661 0651 5261 6260 5271 6260 4267 6665 
5212 0240 5640 2667 6240 5311 4275 6711 5212 0240 5240 0240 6240 4713 5675 0313 
4253 6711 5212 0240 5240 0240 6640 0304 5275 4301 5313 4711 5215 0212 5240 0240 
6240 2240 5717 4240 6260 5240 5275 6261 5711 0715 5215 0212 5240 0240 6240 5640 
6312 5675 6260 5253 5215 0212 5240 0240 6240 2240 6320 2275 5720 0655 5656 0304 
5252 4301 5311 4712 5252 4301 5313 4712 5215 0212 5640 4240 6260 4640 6312 4675 
6312 4653 4301 5215 5240 0240 5240 0240 6301 5650 5711 6651 4304 6720 5212 0240 
5640 0271 5640 0313 5675 0313 6253 0711 5215 0212 5640 0261 6260 4640 6260 4675 
6260 4653 4301 5215 5240 0240 5240 0240 6711 1305 4275 6660 5212 0240 5240 0240 
6240 2722 6724 1325 4316 5215 5640 0640 5261 0260 6711 1305 4275 6663 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 



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