File KUWA2F.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 
4262 6706 4212 6703 5212 0303 5240 0240 5240 0240 6713 1325 6323 0727 5310 0314 
6255 0640 6325 2323 6322 1725 6313 2240 5305 0322 6305 3722 6305 7302 6711 1723 
4305 5215 4303 5215 5240 0240 5240 0240 6240 1640 6317 6715 5317 0316 6311 7706 
5322 6315 6311 0710 5314 6302 6711 2323 6301 4654 6323 1324 6654 1711 5324 6304 
6711 2323 6305 4654 6323 3324 6654 1711 5324 6307 6711 2323 6314 4654 6323 6724 
5215 0212 5240 0240 5240 0240 6240 7703 6315 7715 6316 6240 6301 3316 6254 0711 
5316 6306 6311 4654 6262 4654 6332 2706 6654 5311 5306 6301 4316 5215 5240 0240 
5240 0240 6240 2240 6311 2715 6316 4723 5317 0316 5711 0650 5661 0654 5264 4670 
5654 1311 5650 2261 5270 6251 5716 3250 4267 6651 5212 0303 5240 0240 5240 0240 
6723 2305 6332 7305 6240 7301 6306 7301 6707 3723 6705 2322 4305 5215 5240 0240 
5240 0240 6240 5640 5661 6661 4260 5215 5240 0240 5240 0240 6240 5640 5713 2275 
5215 0212 5240 0240 5240 0240 6240 2313 6322 1725 5713 2675 5215 0212 5240 0240 
5240 0240 6640 3713 4275 6662 5212 0240 5240 0240 5240 0240 6711 5332 6301 4305 
4275 6660 5212 0240 5240 0240 5240 0240 6327 4722 5324 0305 5250 6261 5664 0660 
4251 5215 5664 0660 5240 0240 6240 3240 6317 6722 5301 0324 5250 7657 6257 6247 
6313 1255 6305 2714 6307 7325 6307 7305 5247 4657 5215 0212 5240 0240 5240 0240 
6240 7704 5640 0261 6260 5640 5663 0675 5661 3254 4267 5215 5240 0240 5240 0240 
6240 4640 5306 4240 6316 5650 5263 5651 5662 0660 5666 0651 5261 6261 5661 0260 
5654 0661 4261 5215 5661 0661 5240 0240 6240 6640 4275 6660 5212 0240 5240 0240 
5240 0240 5304 0317 5661 0261 5640 0713 6275 0711 5316 6306 5661 4264 5215 0212 
5240 0240 5240 0240 6240 7704 5640 0661 6260 5640 5662 1275 4254 6663 5212 0240 
5240 0240 5240 0240 5311 0306 5250 4311 5313 6262 5313 4661 5655 1713 5651 0661 
5660 0654 5262 6260 5661 0261 5615 0612 5262 0260 5240 0240 5640 6715 5715 0653 
5615 0612 5261 0260 5240 0240 6240 7703 6316 4724 6316 2725 5215 0212 5240 0240 
5240 0240 6240 3311 6240 6650 5651 0261 5660 0654 5260 6260 5661 0263 5615 0612 
5263 0260 5240 0240 6640 1327 6311 2724 5640 0650 5654 3264 6260 7251 5650 1713 
6251 6654 4254 5215 5323 0240 5240 0240 6240 5240 5315 0323 6704 2722 4303 6713 
5612 0261 5260 0240 5240 0240 6303 7317 6324 7311 4325 6705 5212 0240 5240 0240 
5240 0240 6711 5332 6301 4305 4275 6660 5612 3264 5260 0240 5240 0240 6706 1317 
6715 2301 5640 1250 6330 0654 5262 3654 6275 4647 4263 6651 5212 0240 5240 0240 
5240 0240 5311 0306 6250 3311 6317 6722 5653 0671 5661 0651 5660 1654 5660 0654 
4260 5215 5261 0260 5240 0240 6640 3640 6722 2311 5305 4240 5661 2254 5261 4660 
5615 2212 5261 0260 5240 0240 6240 7706 6322 0715 5324 4240 5257 7657 5247 7263 
6301 4702 6724 1325 6306 1701 5310 7647 4251 5215 5240 0240 5240 0240 6240 2240 
5717 1640 5260 0260 5713 6663 5261 6261 4266 6667 5212 0240 5240 0240 5240 0240 
5311 0306 5250 4316 5313 4663 5653 0262 5261 4666 5663 0661 5654 0263 5660 1654 
4261 6661 5612 0663 5261 0240 5240 0240 5715 0275 5215 0212 5240 0240 5240 0240 
6240 7704 5640 0663 6260 5640 6261 4675 6301 3316 5654 2261 4270 5215 5240 0240 
5240 0240 6240 4640 5306 4240 5711 2250 5654 0713 6251 5655 5663 1651 5261 6260 
5663 0262 5654 0663 4260 5215 5663 0262 5240 0240 6240 6640 5275 5715 4261 5215 
5663 0261 5240 0240 6240 1640 6717 2316 6711 2716 4305 5215 5240 0240 5240 0240 
6240 4640 5306 4240 5715 1651 5260 6260 5663 0260 5654 1663 4260 5215 5663 0263 
5240 0240 6640 3640 6722 2311 5305 4240 5661 2254 5266 4660 6316 5650 5263 6251 
4315 6654 5212 0323 5240 0240 5240 0240 6712 1715 6640 1304 6325 5703 5615 1612 
5260 0260 5240 0240 6240 7703 6316 4724 6316 2725 5215 0212 5240 0240 5240 0240 
6640 5311 6332 2701 5710 0275 5215 0212 5240 0240 5240 0240 6640 1327 6311 2724 
5640 0650 5654 1664 4260 6651 5612 1664 5260 0240 5240 0240 6706 1317 6715 2301 
5240 7650 5257 3657 6264 0656 6702 2311 6325 3322 6301 4303 5247 4657 5215 0212 
5240 0240 5240 0240 6240 7704 5640 0266 6260 5640 5663 0675 5661 3254 4267 5215 
5240 0240 5240 0240 6240 4640 5306 4240 6316 5650 5263 5651 5662 0660 5666 3251 
5261 6261 5666 0260 5654 0666 4261 5215 4303 5215 4303 4611 4211 4611 6211 2723 
6311 2724 4240 6662 4212 6703 5612 0666 5261 0240 5240 0240 5715 0275 5215 0212 
5240 0240 5240 0240 6240 7704 5640 0666 6260 5640 6261 4675 6301 3316 5654 2261 
4270 5215 5240 0240 5240 0240 6240 4640 5306 4240 5711 2650 5654 0713 6251 5655 
5663 3251 5261 6260 5666 0262 5654 0666 4260 5215 5666 0262 5240 0240 6240 6640 
5275 5715 4261 5215 5666 0261 5240 0240 6240 1640 6717 2316 6711 2716 4305 5215 
5240 0240 5240 0240 6240 4640 5306 4240 5715 3251 5260 6260 5666 0260 5654 1666 
4260 5215 5666 0263 5240 0240 6640 3640 6722 2311 5305 4240 5661 2254 5266 4660 
6316 5650 5263 6251 4315 6654 5212 0323 5240 0240 5240 0240 6712 1715 6640 1304 
6325 5703 5615 3212 5260 0260 5240 0240 6240 7703 6316 4724 6316 2725 5215 0212 
5240 0240 5240 0240 6640 5311 6332 2701 5710 0275 5615 1612 5260 0240 5240 0240 
6640 1327 6311 2724 5640 0650 5654 1264 4260 6651 5612 1264 5260 0240 5240 0240 
6706 1317 6715 2301 5240 7650 5257 3657 5307 6713 6302 6305 6705 2707 6316 2707 
5316 7647 4251 5215 5240 0240 5240 0240 6240 2240 5717 3640 5260 0260 5713 6663 
5261 6261 4266 6667 5212 0240 5240 0240 5240 0240 5311 0306 5250 4316 5313 4663 
5653 0262 5261 4666 5667 0661 5654 0267 5660 3654 4261 6661 5612 0667 5261 0240 
5240 0240 5715 0275 5215 0212 5240 0240 5240 0240 6240 7704 5640 0667 6260 5640 
6261 4675 6301 3316 5654 2261 4270 5215 5240 0240 5240 0240 6240 2240 5717 3640 
5261 0260 5713 6662 5313 6313 4261 6661 5212 0240 5240 0240 5240 0240 5311 0306 
5250 4311 5313 6262 5313 4661 5655 1713 5651 0667 5660 3654 5262 6260 5667 0261 
5615 3612 5262 0260 5240 0240 5640 6715 5715 0653 5615 3612 5261 0260 5240 0240 
6240 7703 6316 4724 6316 2725 5215 0212 5240 0240 5240 0240 6240 3311 6240 6650 
5651 0267 5660 3654 5260 6260 5667 0263 5615 3612 5263 0260 5240 0240 6640 1327 
6311 2724 5640 0650 5654 3264 6260 7251 5650 1713 6251 6654 4254 5215 5323 0240 
5240 0240 6240 5240 5315 0323 6704 2722 4303 6713 5612 0267 5260 0240 5240 0240 
6303 7317 6324 7311 4325 6705 5212 0240 5240 0240 5240 0240 6711 5332 6301 4305 
4275 6660 5212 0240 5240 0240 5240 0240 6327 4722 5324 0305 5250 6261 5664 2663 
4251 5215 5664 2663 5240 0240 6240 3240 6317 6722 5301 0324 5250 7657 6257 6247 
6313 5655 6317 1315 6311 0716 6324 7711 6316 7305 5247 4657 5215 0212 5240 0240 
5240 0240 6240 2313 6322 1725 5713 2275 4215 4612 6313 2727 4275 6663 5612 1661 
5265 0240 5240 0240 5304 0317 5662 0261 5640 1713 5675 0661 5654 3666 5215 0212 
5240 0240 5240 0240 6240 3311 6240 7250 5650 1713 5651 1253 5660 3261 5651 1261 
5665 1254 5261 6260 5661 2662 5615 0612 5262 0265 5240 0240 6240 7704 5640 0662 
6260 5640 5664 0675 6261 5654 4263 5215 5240 0240 5240 0240 6240 4640 5306 4240 
6316 5650 5264 5651 5662 0660 5666 0651 5262 6266 5662 0261 5654 1261 4266 5215 
5661 3262 5240 0240 6240 4640 5306 4240 5313 6663 5313 4664 5661 3263 5654 0662 
5660 0654 4263 6666 5612 1661 5266 0240 5240 0240 5714 6713 4260 5215 5240 0240 
5240 0240 6240 2240 5717 1240 5262 0260 5713 6661 6311 7301 5706 0654 4264 6670 
6212 5611 5727 0705 6675 3713 5705 0655 4215 4612 5304 0317 5662 0262 6640 3313 
6261 5675 6327 5654 5727 0705 4215 4612 5713 0727 6675 3313 5661 0653 4215 4612 
5304 0317 5662 0262 6640 3313 6262 5675 5327 6261 6313 2727 5215 0212 5240 0240 
5240 0240 5640 2713 5275 4311 5713 0726 5654 0713 4251 5215 5240 0240 5240 0240 
6240 5640 6266 4675 6650 3313 6262 5654 4261 6651 5212 0240 5240 0240 5240 0240 
5311 0306 5650 2713 5655 3313 5651 2661 5660 0654 5266 6260 5661 0266 5615 0612 
5265 0260 5240 0240 5640 1313 5675 2713 5215 0212 5240 0240 5240 0240 5640 2713 
5675 3313 5215 0212 5240 0240 5240 0240 5640 3313 5675 1313 6215 1612 6215 1612 
4211 4611 4211 4611 6323 4705 5324 0305 4263 5215 4303 5215 5661 0266 5240 0240 
6240 4640 5306 4240 5313 6665 5313 4663 5662 0262 5654 3661 5660 1254 4262 6660 
5612 3661 5260 0240 5240 0240 5311 0306 5650 3313 5655 2313 5651 1262 5660 0654 
5271 6260 5662 0262 5615 0612 5271 0260 5240 0240 6240 5714 6275 5714 4253 6661 
5612 1262 5260 0240 5240 0240 6303 7317 6324 7311 4325 6705 5212 0240 5240 0240 
5240 0240 5311 0306 6250 5714 5651 0662 5660 1254 5261 6260 5662 2660 5615 1212 
5260 0265 5240 0240 6640 1327 6311 2724 5640 0650 5654 2264 6260 7251 5650 1713 
6251 7254 5650 2313 6251 6254 4313 6654 5612 2264 5260 0240 5240 0240 6706 1317 
6715 2301 5640 1250 6330 0654 5262 3654 5255 6247 5301 6262 5247 3675 5654 1711 
4251 5215 5323 0240 5240 0240 6240 5240 5315 0323 6704 2722 4303 6713 5612 0662 
5260 0240 5240 0240 6303 7317 6324 7311 4325 6705 5212 0240 5240 0240 5240 0240 
5311 0306 5650 0713 5661 0655 5651 2262 5660 2654 5260 6260 5665 0260 5615 1212 
5264 0260 5240 0240 6240 3311 6240 4650 6706 1317 5715 4653 5261 4661 5662 0265 
5654 0265 5660 1254 4265 6660 5612 2662 5260 0240 5240 0240 5713 6727 4264 5215 
6611 3713 5705 0675 4261 5215 5240 0240 5240 0240 6240 5640 5661 6661 4261 5215 
5240 0240 5240 0240 6240 4640 6332 0732 5705 6710 4260 5215 5240 0240 5240 0240 
6640 3640 6722 2311 5305 4240 5661 2254 5265 4660 5615 2212 5265 0260 5240 0240 
6240 7706 6322 0715 5324 4240 5257 7657 6247 5707 6255 7713 6315 4702 6716 2301 
6311 7317 5305 3716 4257 6651 5212 0240 5240 0240 5240 0240 6707 2317 5717 0640 
4263 6665 6212 2323 6322 1725 5313 0254 4260 5215 5240 0240 5240 0240 6240 4640 
5306 4240 6711 5332 6301 4305 6255 2313 6322 1725 5713 4251 5261 6260 5670 0261 
5654 1270 4260 5215 5670 0262 5240 0240 6640 3640 6722 2311 5305 4240 5661 2254 
5267 4660 5615 2212 5267 0260 5240 0240 6240 7706 6322 0715 5324 4240 4257 6651 
5212 0240 5240 0240 5240 0240 6711 5332 6301 4305 5675 0655 5615 4212 5261 0260 
5240 0240 6640 5311 6332 2701 6310 4675 6332 0732 5305 5710 4261 5215 5323 0240 
5240 0240 6240 5240 5315 0320 6311 2240 6322 1725 4313 5215 5665 0260 5240 0240 
6240 1640 6301 6314 6240 4303 6301 7311 5240 3650 6713 3725 6701 1663 4247 6651 
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 



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