File KUR3C.FT (FORTRAN source file)

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

6215 1612 5240 0240 5240 0240 6640 2701 6723 1304 6325 5703 6240 2704 6322 3240 
6301 4303 6302 6305 6705 2707 6716 1707 6714 1711 6324 7305 5215 0212 5240 0240 
5240 0240 6240 7703 6315 7715 6316 4640 6706 1317 6315 4654 6310 6301 6302 3254 
6311 2714 6302 3254 6311 2714 6304 3254 6311 2714 6305 3254 6311 2714 6306 3254 
6311 2714 6314 3254 6311 2714 6315 3254 6311 2714 4316 5215 5240 0240 5240 0240 
6240 1640 6317 6715 5317 0316 6314 7301 6306 4654 6301 3316 5254 6311 6311 3332 
6301 4654 6332 2706 4254 6716 5212 0240 5240 0240 5240 0240 6304 6711 6705 1716 
6311 7317 5240 4311 5261 6262 5662 3271 6251 3254 6301 4303 5250 6262 5264 4662 
5254 4316 5266 4667 5215 0212 5240 0240 5240 0240 6640 1327 6311 2724 5640 1650 
5654 3665 4260 6651 5612 0261 5260 0240 5240 0240 6706 1317 6715 2301 6240 0650 
4262 6651 5212 0303 5240 0240 5240 0240 6325 1305 6705 2322 6322 3701 5305 0316 
6704 1305 6240 0706 6303 7310 6301 2715 6716 3240 5317 0316 5711 0650 6262 5654 
5261 0251 5311 0316 6306 1701 4310 5215 5240 0240 5240 0240 6240 4640 6324 6705 
4275 6660 5212 0323 5240 0240 5240 0240 6712 0315 6240 7707 4317 6716 6212 5723 
6717 1716 5324 0254 6334 0706 4303 6710 6612 5323 6301 4305 5314 0254 4260 5215 
6323 7707 5317 6316 6640 2240 5301 0304 6313 7317 4323 6724 5212 0323 5240 0240 
5240 0240 6304 0703 6240 0732 6305 6310 5215 0212 5240 0240 5240 0240 6240 7704 
5240 0261 5713 6661 5661 1254 4265 6662 5212 0240 5240 0240 5240 0240 6311 2724 
6315 4675 5650 1261 5654 0713 4251 5215 5323 0240 5240 0240 6640 2240 5301 0304 
6734 2311 4305 6715 5212 0323 5240 0240 5240 0240 6304 0703 5240 0311 6332 2701 
4310 6714 5212 0323 5240 0240 5240 0240 6311 1716 6240 0732 6305 6310 5615 0612 
5240 0240 5240 0240 6240 7703 6316 4724 6316 2725 6215 1612 5240 0240 5240 0240 
6240 2714 6711 2323 6325 3716 6723 2713 6322 2723 5615 0612 5260 0240 5240 0240 
6640 3711 5705 0711 4275 6661 5212 0240 5240 0240 5240 0240 6311 0703 4275 6662 
5212 0240 5240 0240 5240 0240 6311 2703 4275 6663 5212 0240 5240 0240 5240 0240 
6707 2317 5717 4640 4271 5215 5264 0260 5240 0240 6240 4640 5306 4240 6311 7706 
5322 5715 5671 0661 5651 0265 5654 0266 5654 0265 6215 1612 5240 0240 5240 0240 
6640 1307 6325 2316 6713 1325 5323 0305 6313 0714 6323 2723 5640 0661 4257 6662 
5612 0266 5240 0240 5240 0240 6311 2727 5711 6661 4262 5215 5240 0240 5240 0240 
6240 4640 5703 6701 4264 5215 5240 0240 5240 0240 6240 4640 5703 6705 4261 6661 
5212 0240 5240 0240 5240 0240 6707 2317 5717 4640 4271 5215 5303 0240 5240 0240 
5640 1640 6256 0640 6702 2311 6325 3322 6301 4303 5615 2612 5260 0240 5240 0240 
6640 3711 5705 0711 4275 6664 5212 0240 5240 0240 5240 0240 6311 0703 4275 6664 
5212 0240 5240 0240 5240 0240 6311 2703 4275 6664 5212 0240 5240 0240 5240 0240 
6707 2317 5717 4640 4271 5215 5303 0240 5240 0240 5640 2240 6256 0640 6702 2311 
6325 3322 6301 4303 5615 3612 5260 0240 5240 0240 6640 3711 5705 0711 4275 6665 
5212 0240 5240 0240 5240 0240 6311 0703 4275 6665 5212 0240 5240 0240 5240 0240 
6311 2703 4275 6665 5212 0240 5240 0240 5240 0240 6707 2317 5717 4640 4271 5215 
5303 0240 5240 0240 6240 3640 6322 7325 6704 2713 6322 2723 6240 6313 6701 1723 
5705 0640 6662 2640 5316 0304 4261 6663 5612 0270 5240 0240 5240 0240 6311 2727 
5711 6661 4263 5215 5240 0240 5240 0240 6240 4640 5703 6701 4266 5215 5240 0240 
5240 0240 6240 4640 5703 6705 4261 6661 5212 0303 5240 0240 5240 0240 6302 3705 
6311 7316 6240 1723 6310 2714 6311 2706 6272 2240 6322 1725 6313 2240 5305 0322 
6714 1711 6324 7305 5615 4612 5271 0240 5240 0240 6240 7704 5640 0263 6260 4640 
5706 6701 5663 3254 4267 5215 5240 0240 5240 0240 6240 4640 5306 4240 6316 4650 
5306 4701 5653 0262 5261 4666 5661 0262 5654 0263 5660 0654 4262 6660 5612 1261 
5260 0240 5240 0240 6311 0706 5261 4275 6311 0706 5657 0261 5255 4661 5252 5667 
6250 3311 5701 0655 5260 4252 6311 0706 5657 0261 4251 6651 5212 0303 5240 0240 
5240 0240 6323 1725 6310 7305 6240 2704 6722 1640 6703 2710 6305 2714 6322 3240 
6725 1305 6240 4705 6316 3240 6301 4303 5215 0212 5240 0240 5240 0240 6240 7704 
5640 1661 6260 5640 5661 0675 5654 4662 4266 5215 5661 0263 5240 0240 6240 4640 
5650 1261 5654 0713 5651 0275 5215 0212 5240 0240 5240 0240 5640 0313 4275 6661 
5212 0240 5240 0240 5240 0240 5304 0317 5661 0270 5640 0713 6275 0711 5316 6306 
5662 3271 5215 0212 5240 0240 5240 0240 6240 7704 5640 4261 6260 5640 6262 4675 
5303 6301 6311 2703 5215 0212 5240 0240 5240 0240 6240 3311 6240 4650 5250 6261 
5313 4661 5651 4261 5660 0654 5270 6260 5661 0264 5615 0612 5264 0260 5240 0240 
6240 3311 6240 4650 5650 1313 5654 0713 6251 4655 5306 4701 5661 0270 5654 2661 
5660 0654 4270 6660 5612 2661 5260 0240 5240 0240 5711 0650 6262 5654 5660 6651 
5711 0650 5654 0713 4251 5215 5240 0240 5240 0240 6240 5640 6260 5675 5660 0653 
5615 0612 5270 0260 5240 0240 6240 7703 6316 4724 6316 2725 5215 0212 5240 0240 
5240 0240 6240 3311 6240 5650 5660 0655 5651 0263 5660 1654 5260 6260 5661 0271 
6215 1612 5240 0240 5240 0240 6240 4705 6316 2714 6323 7305 6240 1723 6310 2725 
6714 1305 6316 6701 4305 6716 5612 4661 5260 0240 5240 0240 5311 0306 6250 0714 
5316 6706 5661 4264 5651 0262 5665 1254 5260 6265 5662 2661 5615 1212 5260 0265 
5240 0240 6240 0703 5314 0314 6711 0317 5305 0316 6250 2247 5724 0701 6247 3254 
6311 2714 4316 6651 5212 0240 5240 0240 5240 0240 5304 0317 5662 0260 5640 0713 
5275 6261 5661 4264 5215 0212 5240 0240 5240 0240 6240 7704 5640 0262 6260 5640 
5662 0675 5654 0661 5615 1212 5260 0260 5240 0240 6240 2722 5301 0304 5250 6264 
5661 0260 5251 4311 5313 6262 5313 4661 5615 1212 5261 0265 5240 0240 6240 0703 
5314 0314 6711 0317 5305 0316 6250 2247 5724 0701 6247 3254 6311 2714 4315 6651 
5212 0240 5240 0240 5240 0240 5304 0317 5662 0261 5640 0713 5675 2261 5671 1254 
4271 6666 5212 0240 5240 0240 5240 0240 5304 0317 5662 0261 5640 1313 5275 6261 
4261 6661 5612 0662 5260 0240 5240 0240 6322 0705 5304 4240 5664 0654 5260 4660 
6311 5650 6262 5654 4261 6651 5212 0303 5240 0240 5240 0240 6701 1725 6704 2722 
5303 0313 6713 0317 6306 2724 4330 6724 5612 0264 5260 0240 5240 0240 6311 7301 
5706 6661 4261 5215 5664 0261 5240 0240 6240 4640 6305 2316 6261 4675 6301 3316 
5661 2253 4271 5215 5240 0240 5240 0240 6640 3640 6722 2311 5305 4240 5663 2254 
5265 4660 6311 7706 5322 6315 6311 0710 4314 6702 5612 2664 5260 0240 5240 0240 
6706 1317 6715 2301 6250 4261 5261 7654 5257 7657 6247 6313 6701 1723 6705 1716 
6324 3325 5305 0272 6247 0654 5262 3654 6240 4240 6301 1314 6312 4301 5322 0272 
6247 0654 4261 6651 5212 0240 5240 0240 5240 0240 6327 4722 5324 0305 5250 6263 
5664 0262 6251 3250 6301 4303 5650 0713 6254 3311 5301 4661 5654 0713 5275 6261 
5262 6251 5615 2212 5262 0260 5240 0240 6240 7706 6322 0715 5324 4240 5661 0310 
6254 3247 6301 4303 5272 0240 5647 1254 5301 4666 5215 0212 5240 0240 5240 0240 
6240 7707 5324 0317 5650 1264 5661 2254 5262 6262 5664 1262 5654 1264 5664 2254 
5262 4665 6654 3711 5705 0711 5615 2212 5262 0261 5240 0240 6640 1327 6311 2724 
5640 1650 5654 1664 6261 7251 5250 4661 4254 5215 5664 0663 5240 0240 6240 3240 
6317 6722 5301 0324 6650 4262 6247 2714 6711 2323 6325 3716 6723 2713 5322 3723 
5654 0701 4251 5215 5240 0240 5240 0240 6240 3640 6317 7724 5640 1264 4271 5215 
5664 1262 5240 0240 6640 3640 6722 2311 5305 4240 5663 2254 5263 4662 5716 0650 
4251 6654 5612 1664 5262 0240 5240 0240 6706 1317 6715 2301 5640 1250 5330 3654 
6707 2722 6316 5704 6725 1722 6247 0654 4261 6651 5212 0240 5240 0240 5240 0240 
6707 2317 5717 2240 4262 6671 5612 1264 5264 0240 5240 0240 6327 4722 5324 0305 
5250 6263 5664 2263 5251 4316 5261 6251 5615 2212 5263 0264 5240 0240 6240 7706 
6322 0715 5324 4240 5262 6330 5247 7263 6301 4702 6724 1325 6306 1701 5310 6247 
5301 4661 5215 0212 5240 0240 5240 0240 6240 7707 5324 0317 5664 4662 5615 2212 
5262 0265 5240 0240 6640 1327 6311 2724 5640 1650 5654 1664 6265 7251 5250 4661 
4254 5215 5664 2663 5240 0240 6240 3240 6317 6722 5301 0324 6650 4262 5654 2247 
6256 1301 6711 2724 6322 0706 5303 3710 5654 0701 4251 5215 5664 4662 5240 0240 
6240 4640 5306 4240 6311 7301 5306 6661 5661 2251 5264 6260 5664 0263 5654 2264 
4260 5215 5664 0264 5240 0240 6640 3640 6722 2311 5305 4240 5663 2254 5264 4661 
5716 0650 4251 5215 5664 0664 5240 0240 6240 3240 6317 6722 5301 0324 6650 4263 
5254 4247 6706 1317 6324 2723 6724 2732 5316 4707 6247 0654 5261 7654 5257 7657 
4257 6651 6212 3611 6317 7724 5640 0265 4261 5215 5664 0263 5611 0313 5675 0313 
4255 6661 5212 0240 5240 0240 5240 0240 6327 4722 5324 0305 5250 6263 5664 1663 
5651 0313 5615 2212 5263 0263 5240 0240 6240 7706 6322 0715 5324 4240 5263 6330 
5247 3650 5311 3664 6240 1723 6310 2725 6714 1305 5251 6247 5257 7657 5257 4657 
6215 1612 5240 0240 5240 0240 6640 1304 6325 5703 6240 2704 6322 7240 6301 2715 
4316 5215 5303 0240 5240 0240 5640 0640 6656 1640 6320 6301 4324 6705 5612 0265 
6261 4611 6327 4705 5662 0675 5215 0212 5240 0240 5240 0240 6240 7704 5640 0265 
6260 5640 6261 4675 6301 3316 6261 4654 6305 2316 4261 5215 5240 0240 5240 0240 
6240 4640 5306 4240 5711 0650 6262 5654 5261 4651 5665 2660 5654 0665 5660 2654 
4260 6665 5612 0265 5265 0240 5240 0240 5304 0317 5665 2661 5640 1313 6275 0714 
5316 6306 5662 3271 5215 0212 5240 0240 5240 0240 6240 3311 6240 4650 5250 6261 
5313 4662 5255 4311 5261 6262 5313 4661 5651 0665 5665 2654 5262 6260 5665 2661 
5615 2612 5261 0265 5240 0240 6240 7703 6316 4724 6316 2725 5615 2612 5262 0260 
5240 0240 6640 1327 6311 2724 5640 1650 5654 1265 5265 4251 6311 5650 6263 5654 
5262 6251 5713 6663 5661 0654 5261 6251 5615 2612 5262 0265 5240 0240 6240 7706 
6322 0715 5324 4240 5261 0310 5654 1711 6654 4262 5654 0261 5301 4662 6215 1612 
5240 0240 5240 0240 5240 7262 6640 0323 6701 2314 4305 5215 5240 0240 5240 0240 
6240 4640 5306 4240 6311 2727 5311 6662 5661 2651 5263 6260 5665 0263 5654 2665 
4260 5215 5665 0263 5240 0240 6240 4640 5306 4240 5711 0650 6262 5654 5661 2653 
5260 4651 5665 2663 5654 2265 5660 2654 4263 6665 5612 2265 5260 0240 5240 0240 
6311 2727 5711 6662 4262 5215 5240 0240 5240 0240 6240 3640 6317 7724 5640 2665 
4260 5215 5665 2663 5240 0240 6240 2240 5717 2640 5263 0267 5713 6662 6314 7301 
5706 1254 4271 6666 5212 0240 5240 0240 5240 0240 5311 0306 5250 4311 6261 5654 
5262 6651 5711 0650 6262 5654 5661 2653 5260 4651 5665 3663 5654 2265 5665 2654 
4263 6667 5612 1665 5267 0240 5240 0240 6303 7317 6324 7311 4325 6705 5612 2265 
5265 0240 5240 0240 6327 4722 5324 0305 5250 6263 5665 3664 6251 4650 5650 1713 
5654 1313 6251 5654 5663 0675 5654 0661 4251 6654 5612 2265 5267 0240 5240 0240 
6706 1317 6715 2301 5640 0650 5260 6330 5311 6263 5262 6330 6261 0660 4262 6651 
5612 2665 5260 0240 5240 0240 6327 4722 5324 0305 5250 6263 5665 1661 4251 5215 
5665 1661 6211 7706 6322 0715 5724 0250 4330 6651 5612 0265 5260 0240 5240 0240 
6303 7317 6324 7311 4325 6705 5212 0240 5240 0240 5240 0240 6327 4722 5324 0305 
5250 6263 5665 0267 4251 5215 5665 0267 5240 0240 6240 3240 6317 6722 5301 0324 
6250 4261 4261 6651 5212 0303 5240 0240 5240 0240 6325 1305 6705 0322 6322 2725 
6306 7305 6272 7240 6317 4303 6240 0716 6315 7305 6640 2732 6640 1304 6325 5703 
5705 7716 5215 0212 5240 0240 5240 0240 6240 3311 6240 4650 5650 1261 6254 0711 
5716 0706 5653 0261 5260 4651 5665 0266 5654 0270 5660 2654 4266 6660 5612 3265 
5260 0240 5240 0240 6311 7301 5706 6661 6311 7301 5306 5661 5661 0260 5215 0212 
5240 0240 5240 0240 6240 7707 5324 0317 5664 0261 5615 2612 4261 4660 6327 4722 
5324 0305 5250 6263 5665 0267 4251 5215 5303 0240 5240 0240 6640 1640 6703 2710 
6305 2714 6322 0704 6324 7305 6240 4705 6316 2714 6323 7305 5615 4212 5260 0260 
5240 0240 6240 3311 6240 4650 6301 3316 5655 2261 5670 4251 5262 6260 5670 0262 
5654 1670 4260 5215 5670 0262 5240 0240 6240 1640 6301 6314 6240 7711 6320 7305 
5240 3650 6304 0724 5261 6247 6306 6311 5305 4704 5215 0212 5240 0240 5240 0240 
6240 7704 5640 2270 6260 5640 5661 0675 5654 2261 4270 5215 5240 0240 5240 0240 
6240 2240 5717 4240 5264 0260 5713 6662 5661 0654 4261 5215 5670 0264 5240 0240 
6640 1240 6305 2301 5640 2250 5654 0261 6260 4651 5650 1313 5654 0713 4251 5215 
5670 0263 5240 0240 6240 1640 6301 6314 6240 7711 6320 7305 5240 3650 6304 0724 
5261 6247 6306 6311 5305 4705 5215 0212 5240 0240 5240 0240 6240 7704 5640 2670 
6260 5640 5661 0675 5264 6270 5662 3271 5215 0212 5240 0240 5240 0240 6240 7704 
5640 2670 6260 5640 5662 0675 5654 0661 5615 4212 5265 0260 5240 0240 6240 2722 
5301 0304 5250 6264 5661 0260 5251 4311 5313 6262 5313 4661 5615 1612 5260 0260 
5240 0240 6240 7703 6316 4724 6316 2725 5215 0212 5240 0240 5240 0240 6240 7707 
5324 0317 5650 0264 5654 3270 5660 4254 5266 6260 5267 6260 5270 4660 6654 3711 
5705 0711 6215 1612 5240 0240 5240 0240 6240 7305 5304 0305 6323 4303 6314 4705 
5706 5305 6640 1304 6325 5703 6240 2704 6322 6240 6711 2323 4305 6716 5212 0303 
5240 0240 5240 0240 6722 1705 6724 2701 6322 2711 6322 7305 6240 2704 5323 1240 
6303 6717 6315 7317 6242 1255 6305 2722 6311 4303 4323 5215 5670 0266 5240 0240 
6240 4640 6324 6705 6275 0711 5316 6706 4261 5215 5240 0240 5240 0240 6240 2240 
5717 4240 5267 0260 5713 6661 6261 4654 6324 6705 5215 0212 5240 0240 5240 0240 
6240 7704 5640 3670 6260 5640 5662 0675 5654 0661 5615 4212 5267 0260 5240 0240 
5240 4311 5313 6262 5313 4661 4275 6660 5212 0240 5240 0240 5240 0240 6306 6311 
5705 6703 6306 6311 4305 6702 5212 0323 5240 0240 5240 0240 6324 2301 6240 3334 
6311 2714 4303 5215 5323 0240 5240 0240 6640 2240 5301 0304 5650 0261 4260 5215 
5323 0240 5240 0240 6240 2240 5303 0301 6334 4706 6314 1705 5215 0212 5240 0240 
5240 0240 6240 0703 5314 0314 6711 0317 5305 0316 6250 2247 5724 0701 6247 3254 
6311 2714 4303 6651 5212 0240 5240 0240 5240 0240 5304 0317 5670 0270 5640 0713 
5275 6261 4267 5215 5670 0270 5240 0240 6640 1240 6305 2301 5640 2250 5654 4270 
6661 1251 6324 6705 5615 4212 5270 0261 5240 0240 6240 7706 6322 0715 5724 3650 
5301 4666 5215 0212 5240 0240 5240 0240 6240 7704 5640 4270 6265 5640 5661 0675 
4254 6664 5612 4270 5265 0240 5240 0240 6322 0705 5304 4240 5664 0654 5260 4660 
6311 2724 4315 5215 5240 0240 5240 0240 6240 2240 5717 4240 5271 0260 5713 6661 
5661 1254 4271 6666 5612 4670 5260 0240 5240 0240 6322 0705 5304 4240 5664 0654 
5260 4660 5711 0650 6262 5654 4261 6651 5212 0240 5240 0240 5240 0240 6303 6301 
6314 1640 6310 4701 5316 4240 6647 2713 6722 1663 4247 6651 5212 0240 5240 0240 
5240 0240 6305 2316 4215 6612 4612 5214 0000 0000 0000 0000 0000 0000 0000 0000 
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 



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