File GETN1.FT (FORTRAN source file)

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

6611 2723 6302 7722 6325 4724 5316 0305 6707 2305 6323 6731 4215 4612 6303 6717 
6315 7317 6240 2716 5322 6322 6314 7311 6305 6254 6314 4654 5303 6303 6311 4303 
6254 1714 6654 1711 5331 6315 6314 7305 6654 3711 6317 2322 6654 0311 6317 7311 
6324 4654 6304 4654 4301 6714 6212 1611 6317 6715 5317 0316 6316 6701 6305 4654 
6322 2732 5311 6307 6314 2732 5311 6307 6715 4301 6254 6311 6654 1711 6324 1301 
4215 4612 6303 6717 6315 7317 6240 0715 5330 6305 6315 7311 6305 5654 6715 4301 
6254 6716 5301 6330 6711 4323 6254 6314 6305 3716 6654 1711 6314 7305 6307 4654 
6323 0715 4330 5215 6211 4704 6315 7305 6323 7711 6316 4640 6727 1317 5704 1250 
5671 0654 5260 6251 6311 7720 6711 2316 5650 3262 5254 4662 6254 2311 5650 0261 
6251 6254 5305 4316 5262 4671 4215 4612 6304 6711 6705 1716 6311 7317 6240 4714 
5316 4305 5270 4660 6254 0716 5315 4305 5662 0260 5654 0261 6251 4654 6322 2732 
5311 4307 5662 0260 6251 6254 6332 4705 5707 1250 5260 4660 4215 4612 6304 6711 
6705 1716 6311 7317 6640 1711 6324 1301 5650 0266 4260 6651 6212 4611 5702 0275 
5615 2612 6211 3311 6250 1711 5710 1253 5660 3261 5651 2661 5654 0261 5654 2661 
5615 0612 6260 1611 6717 2316 6711 2716 4305 5215 6323 5211 5315 0323 6707 2305 
4303 6710 6212 3611 6317 7724 4240 6665 5612 2661 6211 3311 6250 1711 5710 0653 
5665 2260 5651 0264 5654 0262 5654 0264 5615 1212 6260 1611 6717 2316 6711 2716 
4305 5215 6323 5211 5315 0323 6707 2305 4303 6710 6212 4611 6306 4650 5303 5710 
5661 3663 5666 1251 5665 1654 5660 1254 4265 5215 4262 4665 5711 6702 4261 5215 
6211 1711 6303 4675 5303 6703 4261 5215 6211 7707 5324 0317 4265 5215 4263 4660 
6311 4303 6726 1317 6275 1711 4310 5215 6323 5211 5315 0323 6707 2305 4303 6710 
6212 4611 6306 4650 6703 3310 5317 5722 5661 3663 5666 1651 5660 1654 5665 1654 
4260 5215 4263 4665 5311 4306 6311 4303 5653 2261 5264 4660 5263 6260 5263 6267 
4263 6660 5612 3663 6211 7703 6316 4724 6316 2725 6615 1612 6211 6712 6323 3640 
6305 1724 4310 5215 6211 7707 5324 0317 4265 5215 4264 4660 6327 4722 5324 4305 
5664 3254 5265 4660 6311 1703 5615 3212 4265 4660 6706 1317 6715 2301 5650 2311 
5254 0247 4247 6651 6212 4611 6306 4650 5702 0655 5651 1664 5654 1264 5654 1664 
5615 2212 6262 4611 5703 6710 5655 2661 4260 6664 5612 1664 6211 3311 6250 1711 
5710 4655 5666 0651 5260 6260 5264 6265 4264 6665 5612 2664 6211 3311 6250 1711 
5710 0655 5666 3271 5651 0265 5654 0265 5654 0261 4260 5215 4265 4660 5711 6714 
4260 5215 4265 4662 5311 4306 6311 6301 6255 6311 5651 2265 5654 2265 5654 1665 
5615 2612 6263 4611 6314 4675 5714 0653 4215 4612 5311 4304 5311 4714 6275 1711 
4310 5215 4265 4664 6303 7317 6324 7311 4325 6705 4212 4723 6712 1715 6240 2707 
6324 4303 4215 4612 5311 4306 5271 6666 6311 4303 5651 2665 5654 2665 5654 4265 
5615 2612 6265 4611 6306 4650 5303 6710 5661 4666 5666 2651 5662 2654 5662 2654 
4270 5215 4265 4670 5311 4306 6311 4303 5653 4671 5662 2251 5667 2654 5671 2654 
4271 5215 4265 4671 5311 4306 6311 4303 5653 0664 5666 2651 5662 2654 5662 2254 
4267 5215 4264 4667 5711 6661 5311 5714 4261 5215 6211 7704 5640 0663 5640 6711 
5311 6261 4261 6660 5612 0663 6211 2311 5250 4711 5675 1255 5660 3261 4215 4612 
5312 4275 5311 4304 5261 6651 5263 4662 5657 2266 4215 4612 6315 4675 6320 4717 
5316 4324 5712 0654 4251 5215 5611 6716 6311 7720 6711 2316 5250 6312 4262 6651 
6212 2211 5717 3240 6260 4640 5275 6315 4316 5215 6211 3311 6250 6311 6255 2714 
6316 4650 5651 3251 5660 4654 5670 3254 4260 5215 4271 4670 5304 0317 5267 0260 
5711 6661 5662 0654 4260 5215 6211 3311 6250 2311 5650 0711 6251 4655 6727 1317 
6304 4650 5654 0711 5651 3251 5660 3654 5660 3254 4260 5215 4267 4660 6303 7317 
6324 7311 4325 6705 6212 4611 6323 6731 5675 0265 4253 6711 6612 1211 6705 2724 
4322 6716 5612 0266 6211 7703 6316 4724 6316 2725 4215 4612 6711 4723 5715 0675 
4215 4612 6722 2305 6325 7322 5615 0612 4260 4660 5311 4306 6311 4303 5653 4671 
5662 0651 5270 6260 5661 2660 5654 0261 4265 5215 5661 2660 6211 3311 6250 1711 
5710 2253 5261 4666 5661 3260 5654 0261 5666 0654 4270 6660 5612 0261 6266 5611 
6301 4675 4303 6703 6212 5611 4275 6660 6212 4611 6323 6731 4275 6662 5612 0261 
6270 5611 5275 5713 4261 5215 6323 5211 5315 0323 6707 2305 4303 6710 6212 4611 
6306 4650 5303 5710 5671 1271 5651 0661 5665 0654 5261 6260 5661 0261 5615 0612 
4261 4660 5311 4306 6311 4303 5653 0664 5666 0651 5260 6270 5661 4260 5654 0661 
4265 5215 5661 2661 6211 3311 5250 6713 6313 0715 5730 0651 5261 6266 5661 3261 
5654 1261 4260 5215 5661 0262 6211 0703 5314 0314 6306 4305 5714 1250 4261 6651 
5612 0661 6266 4611 6306 4650 5303 5710 5661 1261 5660 0651 5264 6260 5661 0662 
5654 2261 4260 5215 5661 0662 6211 7703 6316 4724 6316 2725 6615 1612 6211 6712 
6323 3640 6305 1724 4310 5215 6211 3311 6250 1711 5710 0653 5661 0262 5651 1261 
5664 0654 5262 6263 5661 2262 5615 0612 4262 4663 6311 1703 6275 1711 5703 0655 
4215 4612 6707 2317 5717 0640 4267 6660 5612 1261 6264 4611 6323 6731 4275 6663 
5612 1261 6267 4611 6306 4650 5303 5710 5671 1271 5651 2261 5660 0654 5262 6270 
5661 4262 5615 0612 4262 4670 5311 4306 6311 4303 5653 0664 5666 0651 5263 6260 
5661 0263 5654 2261 4260 5215 5661 0263 6211 7703 6316 4724 6316 2725 6615 1612 
6211 6712 6323 3640 6305 1724 4310 5215 6211 7707 5324 0317 5661 3662 5615 0612 
4264 4660 5311 4306 6311 4303 5655 2663 5662 0651 5267 6260 5661 0664 5654 3661 
4260 5215 5661 0664 6611 1711 5731 6715 4263 5215 6323 5211 5315 0323 6707 2305 
4303 6710 6212 4611 6306 4650 5303 5710 5661 0663 5662 0651 5265 6260 5661 1264 
5654 2661 4260 5215 5661 1264 6211 7703 6316 4724 6316 2725 6615 1612 6211 6712 
6323 3640 6305 1724 4310 5215 6211 7707 5324 0317 5661 2665 5615 0612 4265 4660 
5311 4306 6311 4303 5653 0661 5270 4664 5661 2665 5654 2661 5661 0654 4265 6665 
5612 2661 6261 1611 6717 2316 6711 2716 4305 5215 6323 5211 5315 0323 6707 2305 
4303 6710 5612 2661 6265 4611 6306 4650 5303 5710 5671 1271 5651 3661 5660 0654 
5265 6266 5661 3265 5615 0612 4265 4666 5311 4306 6311 4303 5653 0664 5666 0651 
5265 6267 5661 3665 5654 3661 4260 5215 5661 3665 6211 7703 6316 4724 6316 2725 
6615 1612 6211 6712 6323 3640 6305 1724 4310 5215 6211 7707 5324 0317 5661 2665 
5615 0612 4267 4660 5713 6705 6311 1703 4255 6661 6612 3611 6722 2311 5705 2250 
5654 2666 6265 4651 6323 6731 5615 3212 4265 4665 6706 1317 6715 2301 5650 3311 
5254 0247 4247 6651 6212 4611 5723 6730 4260 5215 6611 1327 6311 2724 5250 6264 
5661 1660 5261 4251 6314 7311 6305 4650 6251 4654 6275 0713 6254 2713 4251 5215 
6211 2722 6724 1325 4316 5215 5661 0270 6211 7311 6704 4305 5275 4255 6311 4303 
5653 1263 5651 3257 4264 5215 6211 3311 6250 7311 6704 4305 5653 4262 5651 4261 
5662 0654 5270 6264 5661 3270 5615 0612 4270 4662 5311 4306 6311 2316 5305 5730 
5263 4660 5661 0271 5654 4261 5670 0654 4271 6660 5612 4261 6270 4611 6323 6731 
5675 4661 4215 4612 6707 2317 5717 2640 4260 6660 5612 4261 6264 4611 6323 6731 
5675 4261 4215 4612 6707 2317 5717 2640 4260 6660 5612 4661 6260 1611 6301 6314 
6240 0706 6324 6301 5250 4660 4215 4612 6707 2317 5717 2640 4260 6660 5612 4261 
6266 4611 6306 4650 6316 2704 5730 0655 5666 0651 5271 6265 5662 0270 5654 0263 
4260 5215 5661 2671 6211 3311 6250 7311 6704 4305 5651 4661 5660 0654 5271 6260 
5662 0262 5615 1212 4262 4660 6707 2317 5317 4240 5662 0263 5654 2262 5660 1254 
5265 6260 5662 0266 5654 3662 5260 6251 6311 2316 4305 6730 5612 1662 6260 1611 
6717 2316 6711 2716 4305 5215 6323 5211 5315 0323 6707 2305 4303 6710 6212 4611 
6306 4650 5303 5710 5661 0266 5651 1662 5662 1254 5263 6261 5662 1263 5615 1212 
4263 4661 6711 4723 5715 0675 4265 5215 6211 7707 5324 0317 5665 0260 5615 1212 
4263 4662 6711 4723 5715 0675 4264 5215 6211 2722 6724 1325 4316 5215 5662 0264 
6611 1711 5731 6715 4261 6666 6212 3611 6317 7724 5640 0265 4260 5215 5662 0265 
6211 7703 6316 4724 6316 2725 6615 1612 6211 6712 6323 3640 6305 1724 4310 5215 
6211 3311 6250 1711 5710 0653 5266 4660 5662 1265 5654 2662 5661 1254 4265 6662 
5612 2662 6261 4611 6323 6731 5675 1661 4215 4612 6707 2317 5717 2640 4260 6660 
5612 2662 6262 4611 6306 4650 5303 5710 5271 4666 5662 2665 5654 2662 5663 1254 
4265 6665 5612 2662 6263 4611 6323 6731 5675 3661 4215 4612 6707 2317 5717 2640 
4260 6660 5612 2662 6265 4611 6323 6731 5675 1261 4215 4612 6722 2305 6325 7322 
5615 1212 4266 4660 6711 4723 5715 1275 4263 5215 6211 7707 5324 0317 5665 0260 
5615 1212 4267 4660 6303 7317 6324 7311 4325 6705 4212 4723 6712 1715 6240 2707 
6324 4303 4215 4612 5311 4306 6311 4303 5653 3261 5660 1251 5267 6263 5662 0667 
5654 3662 4263 5215 5662 0667 6611 1711 5731 6715 4262 6660 6212 3611 6317 7724 
5640 0265 4260 5215 5662 1667 6611 1711 5731 6715 4262 6664 6612 1211 6705 2724 
4322 6716 5612 4262 6260 4611 6323 6731 5675 1262 4215 4612 6707 2317 5717 2640 
4260 6660 5612 0263 6260 4611 6306 4650 6316 2704 5730 1255 5671 1651 5260 6265 
5664 0260 5654 4661 4260 5215 5663 2660 6211 3311 6250 7311 6704 4305 5655 3661 
5651 4661 5660 1654 5261 6260 5663 0262 5615 1612 4261 4660 6303 7317 6324 7311 
4325 6705 4212 4723 6712 1715 6240 2707 6324 4303 4215 4612 5311 4306 6311 4303 
5653 0661 5262 4660 5663 1261 5654 0663 5661 1654 4261 6662 5612 0663 6261 4611 
6323 6731 5675 2662 4215 4612 6707 2317 5717 2640 4260 6660 5612 0663 6262 4611 
6323 6731 5675 0662 4215 4612 6722 2305 6325 7322 5615 1612 4262 4660 6711 4723 
6315 4675 6316 2704 5730 0655 4262 5215 6211 7707 5324 0317 5665 0260 5615 2212 
4260 4660 5713 0275 4215 4612 5711 6702 4261 5215 6611 1711 5731 6715 4265 5215 
6323 5211 5315 0323 6707 2305 4303 6710 5612 0264 6265 5611 5275 5713 4261 5215 
6211 3311 5250 6713 6314 2714 5316 4707 5664 3660 5654 0264 5667 2254 4260 6666 
5612 0264 6266 1611 6301 6314 6240 0706 6324 6301 5640 4250 4251 5215 5664 3660 
6211 3311 5250 6713 6311 6723 5301 4730 5664 2661 5654 0664 5665 2254 4261 6660 
5612 0664 6260 1611 6301 6314 6240 0706 6324 6301 5640 3650 4251 5215 5664 2661 
6211 3311 6250 1711 5710 0653 5670 4270 5651 0664 5670 2254 5261 6266 5664 4261 
5615 2212 4261 4666 6303 7317 6324 7311 4325 6705 4212 4723 6712 1715 6240 2707 
6324 4303 4215 4612 5311 4306 6311 4303 5653 4261 5270 4670 5664 4661 5654 0664 
5670 2254 4261 6671 5612 0664 6270 4611 6323 0724 6302 5650 6251 4675 4303 6710 
4212 4723 6712 1715 6240 2707 6324 4303 4215 4612 6707 2317 5717 2240 4262 6660 
5612 0664 6271 4611 5702 0275 5615 2212 4262 4660 5311 4306 5311 4702 5664 2660 
5654 1264 5665 2254 4260 6665 5612 1264 6265 4611 6323 2714 5716 6707 5713 0655 
4215 4612 5311 4306 6311 6323 6305 3716 5651 2264 5660 2254 5263 6260 5664 0264 
5615 2212 4263 4660 6303 6301 6314 3240 6305 6310 5640 1650 5266 4665 4215 4612 
6711 4723 5715 3275 4265 5215 6211 2722 6724 1325 4316 5215 5664 0264 6211 3311 
6650 1711 6314 7305 5707 0655 5651 2664 5660 2254 5264 6261 5664 0265 5615 2212 
4264 4661 6711 4723 5715 2275 5615 2212 4265 4660 6327 4722 5324 4305 5664 3254 
5265 4665 6711 4723 4315 5215 6611 1711 5730 0275 4215 4612 5311 4306 6711 4723 
5715 2655 5651 2264 5665 2254 5264 6262 5664 2664 5615 2212 4264 4662 6327 4722 
5324 4305 5664 3254 5265 4665 6311 6323 6305 3716 5615 2212 4264 4665 6327 4722 
5324 4305 5664 0654 5660 0663 6251 4650 6323 0724 6302 4650 6251 4654 5275 6261 
6311 6323 6305 3716 4251 5215 6211 2722 6724 1325 4316 5215 5665 0260 6211 7703 
6316 4724 6316 2725 6615 1612 6211 6712 6323 3640 6305 1724 4310 5215 6211 2722 
6724 1325 4316 5215 6323 2707 6324 4303 5654 0211 4215 4612 5311 4306 6311 1703 
6255 6314 5651 0661 5260 6260 5661 1260 5660 0654 5660 0262 5615 0612 5660 0262 
6211 3311 6250 4714 5316 4305 5314 4714 5653 0661 5262 4660 5661 1660 5660 0654 
5660 2662 5654 0261 4263 6660 5612 0261 4262 4665 6711 4723 5715 1275 4261 5215 
6211 2722 6724 1325 4316 5215 5661 1660 6260 4611 5703 6703 4260 5215 6211 6314 
5675 0270 4215 4612 5714 6703 5314 5703 4261 5215 6611 1327 6311 2724 5250 6264 
5661 2661 6260 6251 4303 5215 5661 2661 6260 3211 6317 6722 5301 4324 5647 0655 
5240 7647 5311 6264 5247 3640 4251 5215 6211 2722 5301 4304 5664 0654 5660 0663 
6251 6250 6311 2716 5250 4711 5654 6711 5661 4254 4260 6651 5612 0261 4263 4661 
6706 1317 6715 2301 5650 0270 5301 4661 5615 0612 5660 4664 6211 3311 6250 4714 
5316 4305 5314 4714 5653 0262 5261 4666 5661 0262 5660 0654 5660 0265 5654 1261 
4260 6660 5612 0261 4265 4660 5714 6714 5314 6714 4261 5215 6211 7707 5324 0317 
5661 2260 4271 5215 5661 0262 6260 6211 6314 6275 5714 0653 4215 4612 6314 7311 
6305 6250 5714 6651 5655 0262 4261 6666 5612 0661 4260 4660 6311 1703 6275 1711 
5703 0653 4215 4612 6311 4303 6275 4714 5316 4305 6311 1703 4251 5215 6323 5211 
5315 0320 6311 3640 6305 1724 4310 5215 6211 7305 4304 5215 0214 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 



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