File AB4.FT (FORTRAN source file)

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

6303 0611 6325 3723 6301 2702 6324 4705 6714 2640 6305 2702 6722 5240 6325 0714 
6723 2723 5316 0307 6255 3640 6313 1255 6305 2722 6311 4303 4215 4612 6304 6711 
6705 1716 6311 7317 6240 0713 6322 2724 5650 2662 6251 4654 5306 4305 5662 3662 
6251 7254 5650 3666 6251 6254 5713 3250 5654 2261 5270 6251 6306 0716 5715 2250 
4251 5215 6211 4704 6315 7305 6323 7711 6316 4640 5727 0650 5264 4670 5654 2711 
5720 0650 5264 4670 6254 6313 6701 1723 5705 0650 5260 6251 6714 1717 5250 4664 
4215 4612 5304 0317 6261 5640 5275 6261 4264 5215 6611 1711 5724 6703 5661 4264 
6253 5650 5253 4661 5652 0262 4260 5215 6211 0703 5314 0314 6322 0724 5320 4305 
5261 6654 6711 2323 5703 1254 5262 6267 6311 2706 4251 5215 6261 6211 5317 4323 
5713 6651 6311 2706 5650 0261 4251 5215 6211 7704 5240 0265 5713 0675 5654 3666 
5615 2612 5211 4316 5713 6651 6311 2706 5250 5713 5661 0266 4251 5215 6211 2722 
5301 4304 5661 0654 6260 3251 6316 6701 5250 4661 4215 4612 6322 0705 5704 0650 
5654 0262 6251 7306 5301 4315 4262 6651 6612 1211 6305 2301 5250 6261 5263 4660 
6306 0716 5715 1650 4251 5215 6211 2722 5301 4304 5661 2254 6260 3251 6316 6701 
5250 4664 5615 0612 6260 3211 6317 6722 5301 4324 6247 0704 6324 4705 5640 1261 
5656 5261 5647 3301 4251 5215 4262 4660 6706 1317 6715 2301 6250 2247 6301 2724 
5711 0640 5662 1256 6272 0647 4266 6651 5612 0263 6211 7706 6322 0715 5324 3650 
6704 2301 5305 0311 5261 7263 5261 3672 5301 4666 5615 2212 6260 3211 6317 6722 
5301 4324 6247 0704 6324 4705 5640 1661 5656 5262 5647 3301 4251 5215 6211 7704 
5640 0266 5640 0713 5275 6261 5661 4264 4215 4612 5304 0317 5265 0260 5713 6662 
5661 3254 5615 2612 6260 6211 6313 5650 6262 5654 5661 6651 4260 5215 5611 2711 
6320 5650 5661 6651 4260 5215 4266 4660 5311 4327 5313 4661 4275 6660 6212 1611 
6301 6314 6240 7711 6320 7305 6650 1247 5713 0702 6247 3254 6316 6701 5250 4664 
4251 5215 6211 0711 5716 6706 6714 1717 5250 4664 4215 4612 6311 7714 6323 4675 
6301 3316 4215 4612 5304 0317 5661 0262 5640 0713 6275 0711 5316 6306 5661 4264 
4215 4612 6322 0705 5704 2250 5654 0267 6251 5650 6701 2322 6305 5650 6251 5654 
5275 6261 5262 4665 5615 3612 6260 3211 6317 6722 5301 4324 6261 4663 5663 0654 
5662 1311 4251 5215 6211 5714 5250 6261 5313 4661 6275 0713 6322 2724 5250 4661 
4215 4612 5314 4313 6262 5654 5661 6651 6713 1301 5324 4305 5264 7651 4261 6660 
6212 6211 5713 1650 5654 0713 6251 5675 6701 2322 5705 2650 5651 0657 4260 5215 
6211 5714 5250 6264 5313 4661 6275 0713 6322 2724 5650 3261 4251 5215 6211 5714 
5250 6265 5313 4661 6275 0713 6322 2724 5650 3661 4251 5215 6211 7704 5640 1261 
6260 5640 5662 3275 5654 1661 4215 4612 5311 4306 6316 5650 6701 2322 6305 5650 
5262 7651 5261 4660 5653 0262 5261 4666 5640 0270 5654 1261 5660 4254 4260 5215 
4270 4660 5311 4327 5313 4661 6675 3711 5650 0713 5651 0653 4215 4612 5314 4313 
6266 5654 5661 6651 5314 4313 6266 5654 5261 5651 6713 1301 5324 4305 5313 5662 
5261 4662 4215 4612 5311 4306 6713 1301 5324 4305 5313 5662 5261 4662 5255 4665 
5640 0271 5654 1261 5660 0654 4262 6660 5612 0271 5611 2711 6320 5650 5661 6651 
6711 0265 5650 0713 5651 0653 5615 0612 4262 4660 6303 7317 6324 7311 4325 6705 
6212 2211 5717 1240 5261 0260 6311 0723 5275 6261 4263 5215 6211 0703 5314 0314 
6711 0317 5305 4316 6247 5722 5302 3661 6254 7306 5301 4315 6311 0723 4251 6651 
6212 4611 6301 3316 6275 7714 6323 4650 5323 4701 4215 4612 5304 0317 5661 0266 
5640 1713 6275 0711 5316 6306 5661 4264 5615 0612 4262 4665 6322 0705 5704 2250 
5654 0267 6251 5650 6701 2322 6305 5650 6251 5654 5275 6261 5262 4665 5615 0612 
4263 4660 5304 0317 5661 0265 5640 0713 6275 6311 5317 6323 5661 4264 4215 4612 
5311 4306 6713 1301 5324 4305 5261 6651 5314 4313 6261 5654 5261 4651 5640 2661 
5660 0654 5264 6260 5661 0265 5615 0612 4264 4660 6311 2316 5705 6730 4313 6661 
6212 3611 6317 7724 5640 3661 4260 5215 5661 0265 6211 7703 6316 4724 6316 2725 
4215 4612 6707 2317 5717 0640 4266 6660 5612 3661 6260 2211 5717 1240 5260 0260 
5713 6662 5664 0654 4263 5215 6211 3311 5250 4316 6713 1301 5324 4305 5313 4662 
5657 0261 5651 1253 5660 3261 5651 0640 5270 6260 5662 0260 5654 4261 4260 5215 
5661 0270 6611 3711 6250 7311 6704 4305 6251 4675 6327 4650 6316 2704 5330 5651 
4261 5215 6211 5714 5250 6266 6311 2316 5305 4730 6275 5714 5250 6266 6311 2316 
5305 4730 6253 0713 6322 2724 5650 1313 5653 1261 4251 5215 6211 3311 6250 0713 
6322 2724 5650 1313 5653 1261 5651 2655 5651 0640 5271 6260 5662 0260 5654 0262 
4260 5215 5661 0271 5611 2711 6320 4650 6316 2704 5730 6651 6711 0265 6250 7311 
6704 4305 5651 0653 5615 1212 4260 4660 6303 7317 6324 7311 4325 6705 5612 3261 
6260 1611 6717 2316 6711 2716 4305 5215 5662 0261 6211 7703 6316 4724 6316 2725 
4215 4612 6303 6301 6314 7640 6317 2720 5316 3650 6322 1313 5261 6247 6247 1301 
6311 5707 5323 4647 4215 4612 5304 0317 5662 0262 5640 0713 6275 6311 5317 6323 
5661 4264 5615 1212 4262 4660 6327 4722 5324 4305 5664 1254 5263 4660 6250 5714 
5650 1313 5654 0713 6251 5654 5662 0675 5254 4666 5654 2711 6320 5650 4261 6651 
5612 1662 6260 3211 6317 6722 5301 4324 5667 1711 4251 5215 6211 0703 5314 0314 
6317 6303 6317 2723 4215 4612 5304 0317 5662 0264 5640 6713 5661 0654 4260 5215 
5662 0264 6211 6313 6701 1723 6305 5650 5651 0275 4215 4612 5304 0317 5661 2660 
5640 0713 6275 6311 5317 6323 5661 4264 4215 4612 6327 4722 5324 4305 5661 1254 
5265 4660 5314 4313 6261 5654 5261 6251 6316 6250 5713 1250 5654 0713 5251 6251 
5314 4313 6264 5654 5261 6251 6316 6250 5713 1650 5654 0713 5251 6251 5314 4313 
6265 5654 4261 6651 5612 2662 6260 3211 6317 6722 5301 4324 5266 7650 5251 3654 
6323 4303 6325 6305 5305 0322 6247 4654 5663 2657 5330 3654 5307 0313 5261 7263 
5262 3672 5657 1647 6256 0706 5303 3710 6654 4265 5654 1301 6654 4262 4254 5215 
6211 4661 5262 3654 6640 2720 6716 2313 5305 7647 5247 7264 6306 1701 5310 6247 
5265 6330 5301 6262 5262 6330 5311 6262 6647 0240 6325 5716 5324 3705 4251 5215 
6611 1327 6311 2724 5250 6261 5662 0266 6651 3711 5650 0713 6251 6254 5713 3250 
5654 0713 4251 5215 5662 0266 6211 7706 6322 0715 5324 7650 6647 2720 6716 2313 
6323 6725 5315 0305 6704 1305 5240 6247 5311 6262 6247 3640 5313 0272 6247 4654 
5263 3654 6640 2720 6716 2313 5305 4647 4215 4612 5311 4306 6711 0265 5650 0713 
5651 2655 5651 1640 5260 6265 5663 2660 5654 2263 4265 5215 5663 2664 6611 1327 
6311 2724 5250 6261 5265 4665 6711 0265 5650 0713 4251 5215 4265 4665 6706 1317 
6715 2301 6250 7247 6311 4303 6724 5240 6725 2732 6714 1701 6323 7305 6654 3640 
6305 6311 5240 6247 5311 6262 6247 5640 6725 1722 6305 6640 5311 0324 4247 6657 
5612 0611 6247 2727 6316 3711 5305 0322 6701 1714 6640 2706 6305 3316 6640 2720 
6716 2313 5305 0316 6305 7311 6306 1701 6710 1305 6240 2727 6722 2724 5316 0307 
4247 6657 5612 1211 6247 1301 6707 1705 6303 6310 6717 1723 5305 0316 6727 1325 
6304 7305 5256 4647 5615 1612 4260 4665 5311 4306 5314 4313 6266 5654 5261 6651 
5661 0260 5651 3240 5260 6260 5667 0260 5654 0267 4260 5215 5666 0260 6611 1327 
6311 2724 5250 6261 5670 0260 4251 5215 5670 0260 6211 7706 6322 0715 5324 3650 
6316 1711 5310 0324 6732 5325 6325 0714 6323 2723 5316 0254 6327 4705 6714 3640 
6305 4716 6707 1305 6240 6301 6323 4240 6325 2316 6705 2322 5240 7647 4215 4612 
6661 0247 6325 5716 5324 0305 5311 0315 5307 0313 6255 1240 6305 2722 6311 4303 
4247 6651 6212 3611 6317 7724 5640 0261 4265 5215 5667 0260 6211 3311 6250 5714 
5250 6266 5313 4661 5655 3662 5266 0251 5671 0260 5654 0261 5260 6260 5661 0260 
4260 5215 5661 0260 6260 5611 6714 1701 5323 4305 5661 6651 6313 0714 6323 2723 
5250 4661 4253 6661 6212 3611 6317 7724 5640 0261 4265 5215 5671 0260 6211 3711 
6322 7305 5732 1275 4267 6661 6212 2211 5717 0640 5662 0260 5640 6713 5662 4254 
4215 4612 6711 1307 6705 5316 6275 3711 6322 7305 5732 1255 4260 5215 6211 3311 
6250 5714 5250 6266 5313 4661 6255 3711 6322 7305 5332 0251 5661 0262 5660 0654 
5663 0260 5654 1661 4260 6660 5612 1661 4260 4660 6313 0714 6323 2723 5250 4713 
6275 6313 6701 1723 6305 5650 5651 0653 4215 4612 6707 2317 5717 0640 4260 6665 
5612 1261 4260 4660 6303 7317 6324 7311 4325 6705 6212 4611 6306 6250 5713 3250 
5654 0713 5651 0655 5261 4666 5640 2662 5665 1254 5266 6265 5662 2666 5615 1212 
4266 4665 6313 0714 6323 2723 5250 4671 6275 6313 6701 1723 5705 4650 5651 0653 
4215 4612 6707 2317 5717 0640 4260 6665 5612 2662 6265 5611 6714 1701 5323 4305 
5261 4660 6275 6313 6701 1723 5705 0650 5260 5651 4261 5215 5661 2660 6211 7703 
6316 4724 6316 2725 4215 4612 6327 4722 5324 4305 5661 1254 5267 4660 5615 1212 
4267 4660 6706 1317 6715 2301 5250 7657 5247 0325 6305 1240 5240 0305 6722 1640 
5240 0311 6303 4240 5240 0324 5247 3657 6325 1305 5305 0322 6304 2711 6640 1307 
6725 0320 6711 1305 6325 3716 6240 2704 5322 3640 4254 5215 5211 3661 6332 3725 
6305 0714 6323 2723 6316 7305 6240 1723 6310 2725 6714 1305 4247 6651 6612 3611 
6722 2311 5705 0650 5654 4262 4260 6651 5612 4262 6260 3211 6317 6722 5301 4324 
6247 6711 6240 5707 5240 0255 6702 1305 6305 1711 6310 3240 6725 1305 6240 4704 
6305 6640 6305 2314 6325 3716 6240 0716 5303 0310 6720 1301 5656 0640 6270 0640 
6302 7720 5247 7657 4215 4612 5661 2661 5330 3654 6320 7325 5313 6724 6332 4301 
5314 6247 5265 6330 6247 7301 6332 4301 6714 1640 6703 2710 6305 2714 5322 7647 
4251 5215 6611 1327 6311 2724 5250 6261 5662 0271 6251 6313 6701 1723 5705 0650 
4251 5215 5662 0271 6211 7706 6322 0715 5724 0650 5267 6330 5647 0263 5660 1255 
5267 3666 5654 1261 6330 4654 4263 6651 6612 3611 6722 2311 5705 0650 5654 0263 
6260 5651 6714 1701 5323 4305 4262 6651 5612 0263 6260 3211 6317 6722 5301 4324 
6661 4267 5654 1247 5267 6665 5662 0665 5647 0654 5262 6330 5311 4663 4215 4612 
6327 4722 5324 4305 5661 1654 5261 4660 6313 0714 6323 2723 5250 4663 5615 1612 
4261 4660 6706 1317 6715 2301 5650 3661 5330 3654 5662 0265 5655 1662 5261 6247 
6661 4262 5654 1711 4251 5215 6611 1327 6311 2724 5250 6261 5663 0262 6251 6313 
6701 1723 5705 2250 4251 5215 5663 0262 6211 7706 6322 0715 5724 0650 5267 6330 
5647 1662 5660 1255 5261 3661 5654 1261 6330 4654 4263 6651 6612 3611 6722 2311 
5705 0650 5654 1663 6260 5651 6714 1701 5323 4305 4265 6651 5612 1663 6260 3211 
6317 6722 5301 4324 6661 4267 5654 1247 5261 6660 5661 0671 5647 0654 5262 6330 
5311 4663 4215 4612 6327 4722 5324 4305 5661 1654 5264 4660 6313 0714 6323 2723 
5250 4666 5615 1612 4264 4660 6706 1317 6715 2301 5650 3661 5330 3654 5661 0271 
5655 3661 5261 6247 6661 4262 5654 1711 4251 5215 6611 1327 6311 2724 5250 6261 
5663 0265 6251 6313 6701 1723 5705 3650 4251 5215 5663 0265 6211 7706 6322 0715 
5724 0650 5267 6330 5647 3661 5660 0655 5265 3661 5654 1261 6330 4654 4263 6651 
6612 3611 6722 2311 5705 0650 5654 3263 6260 5651 6714 1701 5323 4305 4270 6651 
5612 3263 6260 3211 6317 6722 5301 4324 6661 4267 5654 0647 5265 6660 5661 0663 
5647 0654 5262 6330 5311 4663 4215 4612 6327 4722 5324 4305 5661 1654 5267 4660 
6313 0714 6323 2723 5250 4671 5615 1612 4267 4660 6706 1317 6715 2301 5650 3661 
5330 3654 5661 0263 5655 0661 5266 6247 6661 4262 5654 1711 4251 5215 6611 1327 
6311 2724 5250 6261 5663 0270 6251 6313 6701 1723 5705 0650 4260 6651 5612 4263 
6260 3211 6317 6722 5301 4324 6661 4267 5654 0647 5261 6665 5661 0260 5647 0654 
5262 6330 5311 7663 5257 4657 4215 4612 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 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