File KRANK.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 6640 1313 6301 5716 6215 1612 6215 1612 5240 0240 5240 0240 6640 0240 
6725 0322 6317 2723 6215 1612 5240 0240 5240 0240 5240 0240 6640 2240 6705 2323 
6240 7703 6322 2722 6714 2301 6311 7317 6240 2702 6324 2727 5305 0316 6324 7727 
6240 0726 6322 0711 6302 2714 6323 1240 6331 6640 6305 7301 6323 7640 6306 5640 
6305 2316 6301 6314 6215 1612 5240 0240 5240 0240 5240 0240 6640 1240 6301 5716 
6240 7703 6322 2722 6714 2301 6311 7317 6240 7703 6305 3306 6311 4703 6705 2316 
6215 1612 6215 1612 5240 0240 5240 0240 6640 2640 6323 3701 4305 5215 5303 0240 
5240 0240 5240 0240 5240 0240 6303 6301 6314 5640 6322 7301 6313 0650 5254 6302 
6322 7254 6254 0724 6725 1654 6704 5254 6654 1316 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 0255 6711 0316 5325 0324 6326 1705 6724 1317 6240 3317 5240 0316 6717 1702 
6705 3322 6301 4724 6717 1716 6240 7706 6322 3240 6711 1722 6724 3240 6301 4722 
6301 6302 4305 5215 5303 0240 5240 0240 5240 0240 5240 0240 5302 0240 5240 0255 
6711 0316 5325 0324 6326 1705 6724 1317 6240 3317 5240 0316 6717 1702 6705 3322 
6301 4724 6717 1716 6240 7706 6722 1640 6305 7703 5316 0304 6726 1301 6311 1301 
4314 6705 5212 0303 5240 0240 5240 0240 5240 0240 5240 0322 5240 6640 6640 2717 
6724 2720 6724 3240 6705 2303 5317 0322 5317 0306 6322 7301 6313 2305 6240 0704 
5324 0301 5317 0306 6314 7305 6307 4324 5240 5262 5316 0256 6323 0715 6314 2714 
4323 6724 5212 0303 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 6240 1317 
6723 1305 6726 2301 6311 7317 6640 1711 6240 0722 6316 2713 5704 0640 6254 6240 
6301 3722 6705 2323 6640 1711 6240 0722 6316 2713 6304 7240 6656 2240 6711 1705 
6215 1612 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 6240 0640 5322 0305 
6701 1723 6311 7307 5305 0304 6301 2726 6322 3701 6305 7640 6706 2240 6311 2305 
6240 0722 6716 1713 4256 5215 5303 0240 5240 0240 5240 0240 5240 0240 5316 0240 
5240 0255 6316 6725 6702 1305 6240 3317 6240 1317 6723 1305 6726 2301 6311 7317 
4323 5215 5303 0240 5240 0240 5240 0240 5240 0240 6724 2701 5240 0255 6313 7305 
6304 6301 6714 1240 6301 5716 6240 7703 6322 2722 6714 2301 6311 7317 6240 7703 
6305 3306 6311 4703 6705 2316 6240 7650 6725 0324 5325 4724 6215 1612 5240 0240 
5240 0240 5240 0240 6640 1640 5304 0240 6655 1640 6324 7301 6704 1301 6304 2240 
6305 4726 6301 4724 5317 0316 6650 2717 6724 2720 4324 6651 5212 0303 5240 0240 
5240 0240 5240 0240 5240 0332 5240 6640 6240 2724 5323 0324 5317 0306 6323 3711 
6316 3311 6311 0703 6316 2703 6240 3317 6240 0724 6325 4640 6716 2240 6305 6722 
6323 7640 6306 7240 6317 6722 4301 6714 5212 0303 5240 0240 5240 0240 5240 0240 
5240 0240 5240 0240 6240 4704 6723 1324 6711 2702 6324 7711 5316 4240 6717 2325 
6720 2325 4251 5215 5303 0240 5240 0240 5240 0240 5240 0240 5316 0322 5240 0255 
6303 2317 5305 0254 6260 3240 5317 0322 6725 1316 6301 5716 5305 0304 6704 2301 
6301 4640 6316 0640 6240 7301 6304 1240 5654 0640 6240 7706 6722 1240 6301 5716 
4305 6704 5212 0303 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 6240 0704 
5324 0301 5311 0316 6301 0640 5316 0304 5302 4240 6711 0316 5325 4724 6215 1612 
6215 1612 5240 0240 5240 0240 6640 1240 6305 0715 6722 1713 6215 1612 5240 0240 
5240 0240 5240 0240 6640 1640 6304 0640 5316 0304 6332 0640 5322 0305 6723 2305 
6240 7724 6240 2732 5322 0317 5311 0306 6316 4640 6323 6240 6705 1723 6240 4324 
5301 0316 6324 7305 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 0722 4316 6713 5212 0303 5240 0240 5240 0240 5240 0240 
6240 4724 4305 5215 4303 5215 5303 0240 5240 0240 5240 0240 6715 2305 6310 2317 
6215 1612 5240 0240 5240 0240 5240 0240 6240 2240 6305 1723 6322 1311 5305 0304 
5311 0316 5323 0256 6323 2711 6307 6305 5254 3640 6316 7317 6720 1301 6301 2715 
6324 4722 6703 1640 6724 2301 6711 2323 6711 1703 6240 7706 6722 2240 4310 6705 
5212 0303 5240 0240 5240 0240 5240 0240 6240 2702 6710 3301 6711 1317 5301 0314 
6323 4703 6305 1716 5305 3723 6254 6640 6703 1307 5301 6727 6310 6311 5314 0254 
6716 3705 6240 7731 5322 6313 5640 4661 5265 6266 6215 1612 5240 0240 5240 0240 
5240 0240 6240 1640 6710 0301 6724 1305 4240 6671 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 5640 6322 7301 6313 0650 
5254 6302 6322 7254 6254 0724 6725 1654 6704 5254 6654 1316 4251 5215 5240 0240 
5240 0240 6304 6711 6705 1716 6311 7317 5240 4301 5261 6251 5702 0650 6651 1254 
5250 4661 6215 1612 5215 0212 5240 0240 6640 1640 5704 0275 4256 6660 5212 0240 
5240 0240 5640 6732 5660 0256 5215 0212 5240 0240 6240 3240 6316 7275 5215 0212 
5240 0240 6240 3240 5716 6661 5316 4252 5716 0655 4251 5215 4303 5215 5303 0240 
5240 0240 5240 0240 6704 2305 6305 6722 6311 2716 6240 4327 6305 4324 5305 0322 
6704 2301 6301 4640 6723 1240 6301 5716 4305 6704 4212 6703 5212 0240 5240 0240 
6240 3311 6650 1316 5255 4661 5240 6265 5640 0261 5654 2640 6215 1612 6215 1612 
5240 0240 5240 0240 6640 1240 6301 5716 6240 0704 5324 0301 5311 0316 6301 0640 
5316 0304 6702 3240 6705 2303 6717 1722 6240 7301 6304 0640 6323 4723 5307 0316 
6324 2711 6304 7640 6302 2723 6322 0726 6324 7711 4316 6723 5212 0303 5240 0240 
5240 0240 6640 3301 6305 0722 5307 0305 5317 0306 6324 2711 6704 1240 6301 5716 
4323 5215 4303 5215 5240 0240 5240 0265 6303 6301 6714 1240 6301 5716 6240 0650 
5254 6322 4316 6651 5212 0240 5240 0240 6240 0703 5314 0314 6322 7301 5313 4240 
6702 1254 5250 5716 5261 6251 4316 6651 5212 0240 5240 0240 6240 7707 6240 7724 
5640 0264 6215 1612 6215 1612 5240 0240 5240 0240 6240 6640 6317 2726 6240 0722 
6316 2713 6304 2240 6301 0724 6240 7724 5240 0322 6326 1705 6724 1317 6215 1612 
5215 0212 5640 0640 6260 2240 5717 1240 6260 4640 5275 6261 4316 5215 5240 0240 
5262 0260 6322 4650 6251 0675 5250 4711 5215 0212 5240 0240 6240 2240 5717 1640 
6260 4640 5275 6261 4316 5215 5240 0240 5240 0240 6312 4675 4253 6716 5212 0240 
5640 0263 5240 4322 5712 6651 6302 4650 4251 5215 4303 5215 5303 0240 5240 0240 
5240 0240 6723 1317 6724 1240 6301 5716 6240 2726 6303 7724 6722 1240 6240 7311 
6240 2723 6321 2725 6316 2703 6240 3317 6240 0726 6322 0711 6302 2714 4240 6701 
4212 6703 5212 0240 5640 0264 6640 1711 6717 2322 4275 6660 5212 0240 5240 0240 
6240 7704 5640 0265 5640 6711 6262 7254 5215 0212 5240 0240 6240 4640 6706 1250 
5250 4711 5255 4322 5711 0655 5251 0251 5264 6265 5265 6260 4265 6660 5212 0240 
5640 2664 6640 1711 6717 2322 6675 1711 6717 2322 4253 6661 5212 0240 5240 0240 
6640 1722 6301 2726 5275 4322 4311 6651 5212 0240 5240 0240 5240 4322 5711 6651 
6322 4650 5255 4661 5215 0212 5240 0240 6640 1240 5250 6711 5661 6651 6322 0723 
4326 6705 5212 0240 5240 0240 5640 1311 5275 5711 4316 5215 5240 0240 5240 0240 
6723 3301 5705 6722 6322 4650 4262 6651 5212 0240 5240 0240 5240 4322 5311 4662 
5275 4322 5311 6662 4261 6651 5212 0240 5240 0240 5240 4322 5311 6662 5661 6651 
6723 3301 4305 6722 5212 0240 5640 0265 6240 7703 6316 4724 6316 2725 5215 0212 
5240 0240 6240 4640 6306 4650 6723 1317 5324 0251 5264 6260 5265 6265 4264 6660 
4212 6703 5212 0303 5240 0240 5240 0240 6240 7703 6715 2720 5324 0305 6323 7640 
6716 3240 6301 4722 6301 6302 6305 1240 6656 1640 6724 1301 6324 7311 6707 3640 
6311 4324 6240 4324 6305 3240 6711 1722 6724 1240 6301 5716 6254 0640 5304 0304 
4261 5215 5303 0240 5240 0240 5240 0240 5324 0317 6323 3240 5317 0322 6305 1701 
6310 6240 6301 3722 5305 0322 6322 7301 6713 2240 6317 4640 5324 0323 6322 3711 
5310 0324 6301 2316 6640 2723 6702 1324 6701 2303 5240 0261 6706 1317 6240 0705 
4303 6710 5212 0303 5240 0240 5240 0240 6240 6723 6301 6314 5305 0322 6322 7301 
5313 0256 6240 2722 6320 0705 6324 3240 5317 0322 6301 6314 6240 0722 6716 1713 
4256 5215 4303 5215 5240 0240 5265 0265 5723 0275 4256 6660 5212 0240 5240 0240 
6240 6716 5275 6716 4261 5215 5240 0240 5240 0240 5304 0317 5266 0260 5711 0675 
6254 6716 5215 0212 5240 0240 6240 5240 5275 5716 4311 5215 5240 0240 5240 0240 
5304 0317 5266 0260 6314 4675 4254 6716 5212 0240 5240 0240 5640 6713 6316 6253 
5215 0212 5240 0240 6240 4640 6706 1250 5250 4713 5255 4322 5312 4651 5640 3265 
5654 0266 5654 3665 5215 0212 5640 2640 6666 1640 5275 6723 5661 0256 5215 0212 
5240 0240 6240 3640 6717 2240 5717 3240 4260 5215 5240 0240 5265 0267 6723 1675 
5253 7261 4260 5215 5240 0240 5266 0260 6303 7317 6324 7311 4325 6705 4212 6703 
5212 0303 5240 0240 5240 0240 6240 7703 6715 2720 5324 0305 6324 2711 6704 1640 
6703 1317 6305 4640 6316 2704 6330 3240 5317 0322 6702 2317 6710 3240 6301 4722 
6301 6302 4305 6723 4212 6703 5212 0240 5240 0240 6640 2313 4275 6662 5212 0240 
5240 0240 6240 0703 5314 0314 6324 2711 5250 6322 6316 5654 6724 2254 4301 6651 
5212 0240 5240 0240 6240 0703 5314 0314 6324 2711 5250 4322 5716 0653 6251 7254 
6654 2313 6254 1324 4251 5215 4303 5215 5303 0240 5240 0240 5240 0240 6303 6717 
6720 2325 6705 2240 4301 6725 4212 6703 5212 0240 5240 0240 6240 3311 6250 0724 
5651 3640 5660 3254 5665 3654 4260 5215 5240 0240 5266 0265 5311 4306 5324 4702 
5640 0267 5654 3666 5654 0267 5215 0212 5640 3240 6667 2240 5701 6725 5323 4257 
5660 2656 6252 7306 4261 6651 5212 0240 5240 0240 6240 7707 6240 7724 5640 0270 
5215 0212 5640 3640 6660 2240 5701 6725 5323 4257 6650 0723 5322 4324 5660 2656 
6252 7306 6661 2255 5301 4651 6652 1650 6721 2322 5250 7260 6265 3252 5316 6661 
5324 4702 4251 6651 4212 6703 5212 0303 5240 0240 6240 7703 6715 2720 5324 0305 
6323 0724 6316 0704 5322 0304 6704 3305 6711 2301 6311 7317 6240 7301 6704 5240 
6240 3311 5240 0316 5311 0323 5261 0260 5317 0322 6714 1301 6707 1305 6215 1612 
5215 0212 5640 4240 6260 4640 6306 7250 5655 0261 5651 4640 5660 4254 5665 4254 
4265 5215 5240 0240 5270 0265 5723 6704 6650 0723 5322 4324 5250 7262 5260 4252 
5306 5716 5306 5716 5665 0256 5251 7651 5250 7271 6260 3252 5316 4661 4251 6651 
5212 0240 5240 0240 5640 6732 6724 2701 6257 2323 5215 0212 5640 4640 6660 1240 
6705 2724 4322 6716 5212 0240 5240 0240 6240 7305 4304 5215 4232 0200 4200 0200 
4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 
4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 
4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 
4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 
4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 
4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 
4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 
4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 
4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 
4200 0200 4200 0200 4200 0200 4200 0200 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