File KUR1.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 2713 6722 3723 6301 6310 5240 0255 6705 1722 
6324 6305 6314 7305 6240 4705 6716 1305 6240 4714 6323 2724 6240 7726 6716 1640 
6703 2710 6305 2714 6722 2716 6315 2715 4322 6716 5212 0240 5240 0240 5240 0240 
6303 6717 6315 7317 6240 0716 5315 6305 4314 5215 5240 0240 5240 0240 6240 2240 
6311 2715 6316 4723 5317 0316 6316 6701 5705 0650 5661 1254 5271 4666 5254 4314 
5662 3271 4251 5215 5240 0240 5240 0240 6240 4640 6323 0720 5303 6675 5662 0660 
4266 5215 5240 0240 5240 0240 6640 3640 6722 2311 5705 0650 5654 0261 6260 4651 
6323 0720 4303 6654 5612 0261 5260 0240 5240 0240 6706 1317 6715 2301 5250 3657 
6313 0714 6323 2723 6716 2323 6325 2706 5272 6247 5301 4661 5215 0212 5240 0240 
5240 0240 6240 2722 5301 4304 5661 1254 5267 4665 6311 7706 4322 6715 5212 0240 
5240 0240 5240 0240 6327 4722 5324 4305 5661 0654 5262 4660 6711 0323 5301 6303 
5615 0612 5262 0260 5240 0240 6240 7706 6322 0715 5324 3650 6310 6301 6302 0712 
5710 5322 5240 0240 5240 6247 5301 4661 5215 0212 5240 0240 5240 0240 6240 2722 
5301 4304 5661 0654 5263 4660 6311 0710 4314 6702 5612 1661 5260 0240 5240 0240 
6706 1317 6715 2301 5650 0701 4251 5215 5240 0240 5240 0240 6240 3240 6311 2714 
5702 0275 5215 0212 5240 0240 5240 0240 6240 4706 6314 6305 4275 6660 5212 0240 
5240 0240 5240 0240 6306 6311 5705 6715 4260 5215 5240 0240 5240 0240 6240 3240 
6311 2714 5716 0275 6615 1612 5240 0240 5240 0240 6240 0724 6704 6240 6311 0710 
4314 6702 5212 0323 5240 0240 5240 0240 6301 2316 5640 3650 5667 0260 6615 1612 
5240 0240 5240 0240 5640 0667 4260 6662 5212 0323 5240 0240 5240 0240 6324 2301 
5640 1250 4260 6660 5212 0323 5240 0240 5240 0240 6304 0703 6240 3334 6311 2714 
4302 5215 5323 0240 5240 0240 6640 2240 5301 0304 6334 4706 6314 1305 6615 1612 
5240 0240 5240 0240 6240 0724 5304 4240 5661 0262 4260 5215 5323 0240 5240 0240 
6240 2240 5303 0301 6334 4706 6314 6305 6615 1612 5240 0240 5240 0240 6240 0724 
6704 6240 6306 6311 4305 6714 5212 0323 5240 0240 5240 0240 6324 2301 5640 0650 
4260 6660 5212 0323 5240 0240 5240 0240 6304 0703 6240 3334 6311 2714 4315 5215 
5323 0240 5240 0240 6640 2240 5301 0304 6334 4706 6314 6705 6615 1612 5240 0240 
5240 0240 6240 0724 5304 4240 5661 0260 6615 1612 5240 0240 5240 0240 6240 1704 
6701 6240 6306 6311 4305 6716 5212 0323 5240 0240 5240 0240 6324 2301 6240 4734 
6706 1317 4315 5215 5323 0240 5240 0240 6240 2240 5303 0301 6334 4706 6314 1305 
4243 5215 5323 0240 5240 0240 6640 2240 5301 0304 6334 3311 6317 6722 6615 1612 
5240 0240 5240 0240 6240 1704 6701 6240 6306 6311 5305 1714 6615 1612 5240 0240 
5240 0240 6240 0724 6704 6240 6311 7706 4322 6715 5212 0323 5240 0240 5240 0240 
6304 0703 6240 3334 6311 2714 4315 6643 5212 0323 5240 0240 5240 0240 6324 2301 
6240 4734 6706 1317 4315 5215 5323 0240 5240 0240 6240 2240 5303 0301 6334 4706 
6314 7305 4243 5215 5240 0240 5240 0240 6240 2240 5717 0640 5640 0713 5275 6261 
5662 3271 5215 0212 5240 0240 5240 0240 5240 4314 5313 4661 4275 6660 5212 0240 
5240 0240 5240 0240 5304 0317 6261 5640 5662 0675 5654 0661 5615 0612 5240 0240 
5240 0240 6240 0716 5315 4305 5313 6262 5313 4661 4275 6660 5212 0240 5240 0240 
5240 0240 6327 4722 5324 0305 5250 6261 5662 0260 6251 4640 6323 0720 4303 6654 
5612 0262 5260 0240 5240 0240 6706 1317 6715 2301 5240 7650 6647 4305 6711 2323 
6711 1305 6324 2640 6311 2716 6240 4714 6323 2724 6240 7726 6716 1640 6303 7310 
6322 0640 5325 0306 6302 7301 5304 3677 5654 0701 4251 5215 5240 0240 5240 0240 
6640 1240 6305 2301 5640 0650 5654 3662 6265 4651 6306 0722 4307 6705 5212 0240 
5240 0240 5240 0240 5311 0306 6250 3311 6322 3701 5705 3255 5267 4662 5662 0263 
5654 0662 5660 1254 4263 6660 5612 0662 5260 0240 5240 0240 6303 6301 6314 4640 
6317 2720 5316 4240 6647 2304 5301 3661 6254 4706 6314 6305 4251 5215 5240 0240 
5240 0240 6640 1240 6305 2301 5640 2250 5654 3662 5265 0251 4314 6662 5212 0240 
5240 0240 5240 0240 5304 0317 5662 0661 5640 0713 5275 6261 5662 3271 5615 1212 
5261 0261 5240 0240 6240 2722 5301 0304 5250 6264 5662 2667 5251 4314 5313 4661 
5215 0212 5240 0240 5240 0240 6240 3311 6240 6250 5662 0655 5264 4670 5663 0265 
5654 2663 5660 1654 4264 6660 5612 2663 5260 0240 5240 0240 6303 6301 6314 4640 
6317 2720 5316 4240 6647 2304 5301 3661 6254 4706 6314 7305 4251 5215 5240 0240 
5240 0240 6240 2240 5717 1640 5262 0260 5713 6661 5661 0654 4264 6670 5212 0240 
5240 0240 5240 0240 5304 0317 5663 0262 5640 1313 5275 6261 4261 6661 5612 1263 
5260 0240 5240 0240 6322 0705 5304 4240 5664 1254 5267 4665 6316 6701 6305 5650 
6262 5654 4261 6651 5612 2263 5260 0240 5240 0240 6303 6301 6314 4640 6317 2720 
5316 4240 6647 2304 5301 3661 6254 4706 6314 6705 4251 5215 5240 0240 5240 0240 
6240 2240 5717 1640 5263 0260 5713 6661 5661 4664 5654 4662 4266 5215 5240 0240 
5240 0240 6240 2240 5717 1640 5263 0260 5713 6662 5661 0654 4261 5215 5663 0263 
5240 0240 6640 1240 6305 2301 5640 2250 5654 3662 6265 7251 6301 2715 5650 1313 
5654 0713 4251 5215 5240 0240 5240 0240 6640 3640 6722 2311 5305 4240 5661 1254 
5261 4663 6640 1711 6320 1701 4254 5215 5662 1661 5240 0240 6240 3240 6317 6722 
5301 0324 5250 3657 6323 6317 6314 2640 6311 2716 6240 4714 6323 2724 6240 7726 
6716 1640 6303 7310 6322 0640 6325 3723 6705 1304 6325 5703 6724 3640 6305 2322 
5705 7716 6247 0654 4261 6651 5212 0240 5240 0240 5240 0240 6322 0705 5304 4240 
5661 1254 5267 4665 6711 1306 6301 2707 5215 0212 5240 0240 5240 0240 6240 3311 
6240 4650 6306 0722 5307 6705 5666 1267 5651 1262 5661 1254 5261 6265 5662 0662 
5615 1212 5261 0265 5240 0240 6240 7704 5640 0662 6267 5640 6261 6275 5662 1254 
5271 6266 4261 6660 5212 0240 5240 0240 5240 0240 5304 0317 5662 4261 5640 1313 
5275 6260 4271 5215 5240 0240 5240 0240 6240 4640 5306 4240 5313 5661 5313 6662 
5662 3271 5651 0662 5664 1254 5261 6264 5662 3661 5615 1212 5261 0264 5240 0240 
6640 1327 6311 2724 5640 0650 5654 0662 6271 6251 5650 0713 5653 1313 4251 6654 
5612 0662 5271 0240 5240 0240 6706 1317 6715 2301 5640 1250 6330 4654 4263 6651 
5612 0662 5270 0240 5240 0240 6303 7317 6324 7311 4325 6705 5212 0240 5240 0240 
5240 0240 6327 4722 5324 0305 5250 6261 5662 4661 4251 5215 5662 3661 5240 0240 
6240 1640 6717 2316 6711 2716 4305 5215 5662 0662 5240 0240 6640 3640 6722 2311 
5305 4240 5661 1254 5262 4660 5615 1212 5262 0260 5240 0240 6240 7706 6322 0715 
5324 4240 5257 3657 6327 6305 6303 2710 6240 1723 6710 1316 6240 7723 6314 2714 
6316 3640 6305 7714 6305 1723 5310 0324 6727 1305 6304 7305 5277 4647 5615 1212 
5262 0262 5240 0240 6240 2722 5301 0304 5250 6261 5662 2262 6651 2716 4315 6664 
5612 1262 5264 0240 5240 0240 6706 1317 6715 2301 5240 3650 5277 3640 5654 1711 
4251 5215 5240 0240 5240 0240 6240 4640 5306 4240 6316 6725 5664 1251 5263 6260 
5662 0263 5654 1262 4267 5215 5662 3662 5240 0240 6240 2240 5717 1240 5262 0266 
6316 6725 5663 0675 5654 4662 4266 5215 5240 0240 5240 0240 6240 4640 5306 4240 
6314 7250 5725 1715 6251 7255 5725 2315 5651 1262 5666 1254 5262 6270 5662 3262 
5615 1212 5262 0270 5240 0240 5240 4314 6316 6725 5663 6651 4260 5215 5662 3262 
5240 0240 6240 1640 6717 2316 6711 2716 4305 5215 5240 0240 5240 0240 6240 3640 
6317 7724 5640 1262 4262 5215 5662 0263 5240 0240 6640 3640 6722 2311 5705 0650 
5654 1662 4262 6651 5612 1662 5262 0240 5240 0240 6706 1317 6715 2301 5240 7650 
6247 2727 6314 4303 6705 1640 6703 2710 6305 2714 6722 2716 6315 2715 5322 0316 
6313 6717 6315 7305 6240 2716 6325 4240 6711 5316 5325 0277 4247 6651 5612 2262 
5262 0240 5240 0240 6322 0705 5304 4240 5661 1254 5262 4664 6316 6725 4264 5215 
5240 0240 5240 0240 6240 4640 5306 4240 6316 6725 5664 2651 5254 6265 5662 2663 
5615 1212 5263 0265 5240 0240 6240 3311 6240 7250 5725 2315 5255 4661 5662 1663 
5654 1662 5667 1254 4263 6663 5612 1662 5267 0240 5240 0240 6314 7250 5725 1715 
5651 0275 5215 0212 5240 0240 5240 0240 6240 7707 5324 0317 5662 1264 5615 1212 
5263 0263 5240 0240 6240 7704 5640 1662 6264 7240 5725 0715 5275 6261 5662 3271 
5215 0212 5240 0240 5240 0240 6240 3311 6240 6250 6650 2716 5315 4661 6655 2716 
5315 4664 5662 2263 5654 1662 5671 1254 4263 6664 5612 1662 5271 0240 5240 0240 
6327 4722 5324 0305 5250 6261 5662 0664 4251 5215 5662 0664 5240 0240 6240 3240 
6317 6722 5301 0324 6250 2647 6730 1711 6324 2711 5322 0324 6323 4303 5317 0716 
4247 6651 5212 0240 5240 0240 5240 0240 6707 2317 5717 1240 4264 6662 5612 1662 
5264 0240 5240 0240 6303 7317 6324 7311 4325 6705 5212 0240 5240 0240 5240 0240 
5304 0317 5662 3263 6640 2716 5715 6663 5661 1254 4271 6666 5212 0240 5240 0240 
5240 0240 5311 0306 5250 4314 6316 6725 5263 4651 5662 3263 5654 1662 5670 1254 
4263 6666 5612 1662 5270 0240 5240 0240 6314 7250 5725 1715 6251 7275 5725 2315 
5215 0212 5240 0240 5240 0240 6240 2722 5301 0304 5250 6261 5663 0271 6251 7250 
6301 2715 5250 6313 6316 6725 5263 6251 5713 1275 5654 0661 4251 5215 5663 0271 
5240 0240 6240 3240 6317 6722 5301 0324 5650 0261 5301 4662 5215 0212 5240 0240 
5240 0240 6240 0716 5315 4305 6261 7254 5725 1715 6251 7275 5725 2315 5215 0212 
5240 0240 5240 0240 6240 7707 5324 0317 5662 1264 5615 1212 5263 0266 5240 0240 
6240 7703 6316 4724 6316 2725 5215 0212 5240 0240 5240 0240 6640 1327 6311 2724 
5640 0650 5654 2262 4260 6651 5612 2262 5260 0240 5240 0240 6706 1317 6715 2301 
5240 7650 6247 4714 6323 2724 6240 7726 5314 0714 5247 7657 4251 5215 5265 0240 
5240 0240 6240 6240 5662 0675 5215 0212 5240 0240 5240 0240 6240 7704 5640 0261 
5640 0714 5275 6261 5662 3271 5215 0212 5240 0240 5240 0240 6240 3311 6240 6250 
5650 0714 5651 1251 5660 1254 5660 0654 4260 5215 5262 0260 5240 0240 6240 6240 
5650 0714 6251 6275 5650 1314 4251 5215 5240 0240 5240 0240 6240 6240 5650 1314 
5651 0275 5215 0212 5240 0240 5240 0240 6240 7704 5640 4663 6266 5640 5661 0675 
5654 0661 5215 0212 5240 0240 5240 0240 6240 0716 5315 4305 5313 6261 5314 4661 
6275 0716 5315 4305 5313 6261 5314 4662 5215 0212 5240 0240 5240 0240 6240 0716 
5315 4305 5313 6261 5314 4662 5675 1255 5660 3261 5615 1612 5271 0266 5240 0240 
6240 7703 6316 4724 6316 2725 5215 0212 5240 0240 5240 0240 6240 0716 5315 4305 
6261 6254 5662 6651 4260 5215 5240 0240 5240 0240 6240 6240 6262 6275 5662 0653 
5615 0612 5260 0240 5240 0240 6240 7703 6316 4724 6316 2725 5215 0212 5240 0240 
5240 0240 6240 7704 5640 0263 5640 0714 5675 1314 5654 4662 4265 5215 5240 0240 
5240 0240 6240 6240 6263 6275 4261 5215 5240 0240 5240 0240 6240 2240 5717 2240 
6260 6240 6264 6275 5661 1254 4271 6666 5212 0240 5240 0240 5240 0240 5311 0306 
5250 4314 5314 4664 5255 4314 5314 4663 5651 0265 5654 0264 5654 0264 5615 2612 
5260 0240 5240 0240 5640 1714 5675 2314 5615 2212 5260 0240 5240 0240 6240 7703 
6316 4724 6316 2725 5215 0212 5240 0240 5240 0240 6640 2311 5705 6715 6314 6250 
4261 6651 5212 0240 5240 0240 5240 0240 6314 6250 5661 6651 6314 6250 4263 6651 
5212 0240 5240 0240 5240 0240 6314 6250 5663 6651 6311 2724 4315 5215 5240 0240 
5240 0240 6240 2240 5717 1640 5271 0265 5713 6661 5661 0654 4261 5215 5240 0240 
5240 0240 6240 4640 6324 6705 6275 0716 5315 4305 5313 6261 5314 4661 5215 0212 
5240 0240 5240 0240 6240 0716 5315 4305 5313 6261 5314 4661 6275 0716 5315 4305 
5313 6261 5314 4663 5615 1612 5271 0265 5240 0240 6240 0716 5315 4305 5313 6261 
5314 4663 6675 2311 4305 6715 5612 0263 5240 0240 5240 0240 6303 7317 6324 7311 
4325 6705 5212 0240 5240 0240 5240 0240 6303 6301 6314 7640 6317 2720 5316 4240 
6647 2304 5301 3661 6254 4706 6314 6305 4251 5215 5240 0240 5240 0240 6640 3640 
6722 2311 5305 4240 5664 1254 5267 4665 4314 6662 5212 0240 5240 0240 5240 0240 
5304 0317 5662 0267 5640 0713 5275 6261 5662 3271 5615 1212 5267 0260 5240 0240 
6640 1327 6311 2724 5640 2250 5654 3662 6265 6251 5650 0713 4251 5215 5662 2667 
5240 0240 6240 3240 6317 6722 5301 0324 5650 1301 4251 5215 5240 0240 5240 0240 
6240 1640 6301 6314 6240 1717 6714 1717 4305 5215 5240 0240 5240 0240 6240 4640 
5306 4240 5314 6662 5661 4264 5651 3263 5660 1654 5266 6260 5663 0267 5615 1612 
5266 0260 5240 0240 6240 0703 5314 0314 6717 0317 5305 0316 6250 2247 5724 0701 
6247 3254 6311 2714 4316 6651 5212 0240 5240 0240 5240 0240 5304 0317 5663 0260 
5640 0713 5275 6261 5661 4264 5215 0212 5240 0240 5240 0240 6240 7704 5640 0263 
6260 5640 5662 0675 5654 0661 5615 1612 5260 0260 5240 0240 6640 1327 6311 2724 
5640 2250 5654 3662 6265 7251 6301 2715 5650 1313 5654 0713 4251 5215 5240 0240 
5240 0240 6240 1640 6301 6314 6240 1717 6714 1717 4305 5215 5663 0267 5240 0240 
6240 1640 6301 6314 6240 7717 6320 7305 5240 3650 6304 0724 5261 6247 6306 6311 
5305 4715 5215 0212 5240 0240 5240 0240 6240 7704 5640 0663 6260 5640 5661 0675 
5264 6271 5662 3271 5215 0212 5240 0240 5240 0240 6240 7704 5640 0663 6260 5640 
5662 0675 5654 0661 5615 1612 5261 0260 5240 0240 6640 1327 6311 2724 5640 2250 
5654 3662 6265 7251 6301 2715 5650 1313 5654 0713 4251 5215 5240 0240 5240 0240 
6240 1640 6301 6314 6240 1717 6714 1717 4305 5215 5240 0240 5240 0240 6240 2640 
4316 6704 4212 5215 0243 0232 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