File KUWA1.FT (FORTRAN source file)

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

6215 1612 4211 4611 4211 4611 6323 4705 5324 0305 4261 5215 6303 5611 6325 0727 
4261 5215 4303 5215 5303 0240 5240 0240 6240 5640 6725 1722 6327 4301 5314 6640 
6640 1305 6323 2724 6314 2714 6316 2640 6311 2716 6322 6240 6711 2323 6705 3240 
5317 0316 6323 4303 6325 6305 6305 7322 6325 6715 6305 7322 6215 1612 5215 0212 
5240 0240 5240 0240 6240 7703 6315 7715 6316 7240 6301 2715 4254 6714 5212 0240 
5240 0240 5240 0240 6304 6711 6705 1716 6311 7317 6240 0716 5315 4305 5261 6261 
5661 4264 6251 6254 5650 2261 4271 6651 5212 0240 5240 0240 5240 0240 6711 0323 
5701 6703 5655 0262 4261 6666 5212 0240 5240 0240 5240 0240 6327 4722 5324 4305 
5661 0654 5260 4660 6711 0323 5301 6303 5615 0612 5260 0260 5240 0240 6240 7706 
6322 0715 5324 7650 6247 6313 6701 1723 6705 1716 6324 3325 5305 3672 5654 0701 
4251 5215 5240 0240 5240 0240 6640 1240 6305 2301 5250 6261 5662 2667 6251 3311 
6317 6722 5615 0612 4270 4660 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 6211 3311 6240 4650 6706 1317 
5315 5640 5640 0671 5660 0651 5266 6260 5661 0265 5654 2261 4260 5215 5661 0264 
6611 1711 5724 6701 4264 5215 6211 7707 5324 0317 5661 0267 5615 0612 4265 4660 
6711 2323 5701 1275 4215 4612 6707 2317 5717 0640 4267 6660 5612 3261 6260 4611 
6323 0724 4275 6660 5612 3661 6260 4611 6306 4650 6310 6301 5702 4653 5262 4670 
5640 4261 5660 0654 5270 6265 5661 0271 5615 0612 4271 4660 6711 2323 6301 4675 
6323 0724 4253 6661 5612 4261 6265 4611 6323 0724 5675 0262 6260 4652 6323 0724 
4215 4612 6711 2323 5714 1275 6266 4653 6323 0724 4215 4612 6711 2323 5715 1675 
6270 4653 6323 0724 5215 0212 5240 0240 5240 0240 6240 7704 5240 0261 5713 6661 
5661 0654 4264 6670 5212 0240 5240 0240 5240 0240 6314 5650 5661 6651 4260 5215 
5240 0240 5240 0240 6240 2240 5717 0640 5640 1313 5275 6261 4261 6661 5212 0261 
5240 0240 5240 0240 6316 6701 6305 5650 6262 5654 5661 6651 4260 5215 5211 4314 
5661 4664 5651 0275 5215 0212 5240 0240 5240 0240 6640 1327 6311 2724 5640 0650 
5654 0262 5260 0251 6711 0323 5301 6303 5615 1212 5260 0260 5240 0240 6240 7706 
6322 0715 5324 4240 6257 2647 6730 1711 6324 2711 5322 0324 6305 7311 6305 6240 
6711 2323 6705 3240 5317 0316 6323 4303 5316 0322 6301 3325 6240 0702 5716 7704 
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 1662 5660 1254 5261 6260 5662 0263 5615 1212 
5261 0260 5240 0240 6240 0703 5314 0314 6322 0724 5320 4305 5261 6654 6711 2323 
5714 0654 5264 6271 4314 6651 6212 1611 6301 6314 6640 2322 6301 2720 5250 6261 
6655 1711 5324 6315 5661 1266 6270 7254 6301 2715 4251 5215 5611 1314 5275 4314 
5661 4664 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 0654 
5264 6270 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 
5661 4264 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 4212 6703 4212 4703 
4211 4611 6611 1611 6705 2311 5705 1240 6215 1612 4215 4612 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 2261 
4270 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 5661 4264 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 0654 4264 6670 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 6250 7247 6301 2715 5272 3640 6261 0660 4262 6651 5212 0240 5240 0240 
5240 0240 6316 6701 5705 0650 6654 2716 5315 4663 6675 2716 4315 6664 5212 0240 
5240 0240 5240 0240 6707 2317 5717 1240 4264 6662 5612 1662 5266 0240 5240 0240 
6303 7317 6324 7311 4325 6705 5212 0240 5240 0240 5240 0240 6327 4722 5324 0305 
5250 6261 5662 0264 4251 5215 5662 0264 5240 0240 6240 3240 6317 6722 5301 0324 
5250 3657 6714 1711 5324 0305 6326 6317 5314 3641 5257 4657 5615 2612 5240 0240 
5240 0240 5640 1314 4275 6661 5212 0240 5240 0240 5240 0240 5304 0317 5261 0260 
5714 6661 5661 0654 4264 6670 5212 0240 5240 0240 5240 0240 5311 0306 5250 4314 
5314 4661 5651 0262 5654 0262 5654 0261 5615 1212 5260 0240 5240 0240 5240 4314 
5314 4661 5275 4314 5314 4662 5215 0212 5240 0240 5240 0240 5240 4314 5314 4662 
4275 6660 5212 0240 5240 0240 5240 0240 5304 0317 5663 3271 5640 0713 5275 6261 
4261 6661 5212 0240 5240 0240 5240 0240 6316 6701 6305 5650 6261 6254 5661 6651 
6316 6701 6305 5650 6261 6254 4262 6651 5212 0240 5240 0240 5240 0240 6316 6701 
6305 5650 6261 6254 5662 6651 5655 0262 4261 6666 5612 4663 5266 0240 5240 0240 
6303 7317 6324 7311 4325 6705 5212 0240 5240 0240 5240 0240 6316 6701 5705 0650 
5654 1314 5651 0275 5215 0212 5240 0240 5240 0240 5640 1314 5675 1314 4253 6661 
5612 0261 5240 0240 5240 0240 6303 7317 6324 7311 4325 6705 4212 6703 4212 4703 
4211 4611 6611 1611 6705 2311 5705 1640 6215 1612 5215 0212 5240 0240 5240 0240 
6240 7704 5640 0263 5640 0714 5675 1314 5654 2261 4267 5215 5240 0240 5240 0240 
6240 6240 6263 6275 4261 5215 5240 0240 5240 0240 6240 2240 5717 2240 6260 6240 
6264 6275 5661 0654 4264 6670 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 
6212 6211 5650 2261 5671 6651 4314 6662 5212 0240 5240 0240 5240 0240 6303 6301 
6714 3640 6724 0301 5705 0650 6654 1711 5324 6314 5661 4664 5254 4714 5615 1212 
5267 0265 5240 0240 6240 7706 6322 0715 5324 4240 5301 4662 5215 0212 5240 0240 
5240 0240 6240 0703 5314 0314 6327 0724 5320 4305 5261 6654 6711 2323 5715 0654 
5666 4262 6254 0716 5315 4705 4215 4612 6327 4722 5324 4305 5661 1654 5265 4660 
6711 0323 5301 6303 5615 1612 4265 4660 6706 1317 6715 2301 5250 7657 6247 7723 
5314 0314 6305 7311 6705 1640 6703 2710 6305 2714 6322 4714 6323 2724 6240 2707 
6704 2722 6703 2313 6240 2727 6322 2704 5716 7640 6247 0654 4261 6651 6612 1211 
6305 2301 5250 6261 5662 2667 6251 3311 6322 3701 4305 5215 6211 3311 6250 3311 
6322 3701 5705 3255 5267 4662 5663 0261 5654 1263 5660 1654 4261 6660 5612 1263 
6660 3611 6722 2311 5705 0650 5654 2662 6260 4651 6323 0720 4303 6654 5612 2662 
6260 3211 6317 6722 5301 4324 6247 2707 6327 2725 6316 1723 6310 2724 6722 5240 
6305 6311 6305 0716 6702 2323 6301 2316 5640 0650 5254 0262 6317 2704 5722 1640 
5251 3677 5654 0701 4251 5215 6211 2722 5301 4304 5661 1254 5265 4661 6311 2732 
4311 6714 5612 2662 6261 3211 6317 6722 5301 4324 5311 4661 4215 4612 5311 4306 
6311 2732 5311 4714 5663 0262 5654 1263 5660 1254 4265 6663 5612 2662 6263 4611 
6306 4650 6332 4705 5714 1655 5651 2662 5662 1254 5265 6262 5663 0262 5615 1212 
4265 4662 6327 4722 5324 4305 5661 1254 5265 4666 6711 0323 5301 6303 5615 1212 
4265 4666 6706 1317 6715 2301 6650 3647 6711 3305 6311 6305 6705 1640 6703 2710 
6305 2714 6722 0240 5322 0317 6323 4705 5324 0305 4247 5215 5211 3661 6250 6301 
5714 5305 5240 6260 6323 7317 5323 0324 6701 5316 6301 6310 6240 7301 6307 1305 
5305 4716 5240 3677 5654 0701 4251 5215 6211 2722 5301 4304 5661 1254 5265 4667 
6311 7301 4332 5215 5662 3665 6211 7706 6322 0715 6324 4650 4263 6651 6212 4611 
6306 4650 6701 5316 5651 1240 5265 6262 5662 4265 5654 2662 4271 5215 5662 4265 
6211 0711 5716 6732 4265 6660 5612 2662 6271 2211 5717 1640 5260 0260 5713 6661 
5314 6262 5661 4264 6254 0711 4316 6732 6612 3611 6722 2311 5705 0650 5654 1263 
4265 6651 5612 1263 6265 3211 6317 6722 5301 4324 5257 7657 5657 3262 5250 6647 
5247 6251 5247 3653 4251 5215 6211 2311 5711 6706 6311 7301 5732 0655 4215 4612 
5304 0317 5662 2265 5640 1713 5275 6260 6311 4704 4306 5215 5611 2313 5675 0713 
5653 1713 4215 4612 6327 4722 5324 4305 5661 1654 5263 4660 6250 0716 5315 4305 
5313 6262 5313 4664 5654 1313 5275 6261 5261 4661 5615 1612 4263 4660 6706 1317 
6715 2301 5650 1711 6654 4263 5654 0261 5301 4662 4215 4612 6707 2317 5717 1250 
5265 6264 5662 2665 5654 3262 5260 6251 6311 2732 4311 6714 5612 3262 6660 3611 
6722 2311 5705 0650 5654 3262 4265 6651 5612 2662 6665 3611 6722 2311 5705 0650 
5654 3262 4265 6651 5612 3262 6265 3211 6317 6722 5301 4324 5247 3640 4251 5215 
5662 2265 6211 7703 6316 4724 6316 2725 4215 4612 6327 4722 5324 4305 5661 1254 
5266 4661 5615 1212 4266 4661 6706 1317 6715 2301 5650 3262 5250 6647 5247 6251 
5247 3653 4251 5215 5663 0260 6211 7703 6316 4724 6316 2725 5615 1612 4261 4660 
6303 7317 6324 7311 4325 6705 5212 0240 5240 0240 5240 0240 6305 2316 4215 6212 
0232 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