File DQH64.FT (FORTRAN source file)

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

4303 5215 5303 0240 5240 0240 5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 
5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 
5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 
5256 7256 6215 1612 6215 1612 5240 0240 5240 0240 6640 1640 6725 1302 6717 2325 
6311 2716 6640 0704 5710 2266 6215 1612 6215 1612 5240 0240 5240 0240 6640 0240 
6725 0322 6317 2723 6215 1612 5240 0240 5240 0240 5240 0240 6640 2240 6317 1640 
6717 0315 6325 2724 6240 7311 6324 3705 6322 6301 6650 4305 5320 6650 6730 4252 
6251 3252 5303 4324 5330 6251 6640 2723 6315 2715 6304 7640 6726 1305 5240 0330 
6306 7722 4315 5215 5303 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 
5240 0240 5240 0240 5240 0240 5240 0240 5240 6640 6311 3316 6311 4716 5324 0331 
5324 0317 6253 7311 6306 7311 6711 4724 4251 6656 4212 6703 5212 0303 5240 0240 
5240 0240 6640 1725 6301 2707 6215 1612 5240 0240 5240 0240 5240 0240 6240 1640 
6301 6314 6640 0704 5710 2266 6240 3250 5303 6324 4331 6651 5212 0303 5240 0240 
5240 0240 5240 0240 6240 0720 6322 6701 6305 2724 6322 3240 5303 0324 6722 0705 
6725 1311 5305 0323 5301 0316 6705 2330 6305 7322 5301 0314 6323 0724 6324 6705 
6705 2316 6215 1612 6215 1612 5240 0240 5240 0240 6240 2240 6305 1723 6722 0311 
6324 7711 6316 7640 6706 0240 6301 0722 6715 2305 6705 1722 6215 1612 5240 0240 
5240 0240 5240 0240 6240 3240 5303 0324 5240 0240 6655 2240 5310 0305 6316 6701 
6305 7640 6306 0640 6316 2640 6330 2724 6322 0716 6314 2240 6317 1325 5314 0305 
6320 2722 6703 1711 6311 7317 6640 2706 6716 2303 6311 7317 6215 1612 5240 0240 
5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 6640 1640 6725 0302 6322 3717 
6322 6701 6640 1725 5305 7304 6215 1612 5240 0240 5240 0240 5240 0240 6640 4640 
5240 0240 5240 0240 6655 2240 5310 0305 6722 1705 6725 2314 6311 3716 6240 7704 
6325 6302 6705 0240 6322 1705 6311 4723 5317 0316 6711 2316 6705 1307 5301 0314 
6326 6301 5325 7305 6215 1612 6215 1612 5240 0240 5240 0240 6640 1240 6305 0715 
6722 1713 6215 1612 5240 0240 5240 0240 5240 0240 6240 7240 6317 2716 6215 1612 
6215 1612 5240 0240 5240 0240 6640 1640 6725 1302 6717 2325 6311 2716 6323 0640 
5316 0304 6306 7325 6303 4724 5317 0316 6323 1325 6320 7722 6307 0722 5315 0323 
6722 0705 6725 1311 4305 6704 5212 0303 5240 0240 5240 0240 5240 0240 6240 4324 
6305 2640 6330 2724 6322 0716 6314 2240 6317 1325 5314 0305 6320 2722 6703 1711 
6311 7317 6640 2706 6716 2303 6311 7317 6640 2723 6702 1320 6717 1307 5301 0315 
6706 2303 5250 4730 6215 1612 5240 0240 5240 0240 5240 0240 6240 6640 6725 2323 
6240 2702 6640 2706 6322 4716 6323 2710 6304 1240 6731 2240 5310 0305 6325 2723 
4322 6656 4212 6703 5212 0303 5240 0240 5240 0240 6240 2715 6324 7710 4304 5215 
5303 0240 5240 0240 5240 0240 5240 0240 6305 0726 6314 0725 6324 7711 6316 4640 
6323 2240 6317 2716 6640 4702 6240 2715 6701 1716 6240 3317 5640 2266 6255 7720 
6711 2316 6240 0707 6725 1723 6311 7301 6255 2710 6322 4715 4324 6705 5212 0303 
5240 0240 5240 0240 5240 0240 6640 2721 6701 1304 6701 2724 5322 0305 6706 1317 
6315 6325 5301 0254 6327 4710 5303 0310 6711 2316 6705 1307 6301 2724 6323 2640 
6330 1701 6724 4714 6240 4327 6305 2716 6726 1305 6215 1612 5240 0240 5240 0240 
5240 0240 6240 3240 5303 4324 5330 0251 5311 0323 6701 0240 6717 4714 6316 6717 
6311 6301 6640 0325 6240 7724 6240 2704 6307 2722 5705 0640 5262 7267 6215 1612 
5240 0240 5240 0240 5240 0240 6240 3240 5317 0322 6322 3305 6305 2722 6316 2703 
6654 1640 4305 6705 5212 0303 5240 0240 5240 0240 5240 0240 6240 4323 5301 7717 
6303 2710 6316 3257 6322 7301 5313 0254 6324 1301 6714 1705 6240 3317 6240 2732 
6722 1717 6240 7301 6304 3640 6701 1725 6323 0711 6716 3640 6305 3711 6710 1724 
6240 3317 6215 1612 5240 0240 5240 0240 5240 0240 6240 1640 6705 2322 6301 7311 
6640 1701 6323 1717 6711 2301 5305 0304 6314 3701 6725 1305 5322 0305 6320 6317 
6331 7716 6315 0711 5314 0323 6301 2316 6240 4324 6705 1240 6305 0714 6324 2305 
6215 1612 5240 0240 5240 0240 5240 0240 6240 3640 6305 2716 6322 6301 6311 2732 
6304 4240 6305 6722 6311 2724 6240 7720 6314 7331 6317 4715 6701 1714 6254 4640 
5302 0315 6324 1705 6310 4716 6303 6301 6240 2722 6720 1317 4324 5215 5303 0240 
5240 0240 5240 0240 5240 0240 5724 0322 5660 0656 5661 0260 6240 6650 6301 1722 
5710 0640 5671 2266 5251 0254 5320 7320 5662 1661 5655 0662 4264 6656 4212 6703 
5212 0303 5240 0240 5240 7256 5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 
5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 
5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 5256 7256 
4256 5215 4303 5215 5240 0240 5240 0240 6323 1325 6722 2717 6324 7311 6305 2240 
5721 3310 6264 3250 5303 6324 4331 6651 4212 6703 4212 6703 5212 0240 5240 0240 
6240 7704 6325 6302 6705 0240 6322 1705 6311 4723 5317 0316 6730 4654 5254 6332 
6706 2303 6215 1612 5215 0212 5240 0240 6640 4240 5675 0656 5660 1265 5666 1261 
5663 3261 5667 3271 5660 2265 5666 1304 5215 0212 5240 0240 6640 5240 6675 4255 
5215 0212 5240 0240 6640 4640 5675 2656 5665 2663 5667 3260 5665 2663 5670 3265 
5671 1264 5270 6704 5262 5270 6250 1706 6724 4250 6251 3253 5303 4324 5332 4651 
5215 0212 5240 0240 6640 4240 5675 4656 5670 2671 5662 3670 5665 3270 5670 4662 
5665 4663 4304 6661 5212 0240 5240 0240 5640 6732 4255 6730 5212 0240 5240 0240 
5640 6731 5331 7253 5661 3666 5671 2267 5667 4671 5660 0261 5670 2661 6271 2262 
5655 1262 6252 3250 5303 4324 5330 5651 6706 2303 5250 4732 4251 5215 5240 0240 
5240 0240 5330 7275 5671 3663 5663 2661 5671 2265 5671 2266 5666 1267 5661 1304 
4261 5215 5240 0240 5240 0240 5332 6675 4330 5215 5240 0240 5240 0240 6731 4675 
5653 1656 5664 0662 5661 4263 5660 0661 5662 2665 5667 0264 5265 6704 5261 5270 
6250 1706 6724 4250 6251 3253 5303 4324 5332 4651 5215 0212 5240 0240 6640 4240 
5675 4256 5671 3660 5662 4664 5660 4671 5671 2266 5667 0267 4304 6661 5212 0240 
5240 0240 5640 6732 4255 6730 5212 0240 5240 0240 5640 6731 5331 7253 5661 2665 
5667 4663 5660 1266 5664 1266 5671 3267 6263 2270 5655 2261 6252 3250 5303 4324 
5330 5651 6706 2303 5250 4732 4251 5215 5240 0240 5240 0240 5330 7275 5670 3664 
5667 1265 5671 4260 5663 3663 5671 3270 5663 0704 5215 0212 5240 0240 6640 5240 
6675 4255 5215 0212 5240 0240 6640 4640 5275 5731 5656 2662 5664 3271 5666 4260 
5671 0671 5661 4662 5671 1671 5704 0655 5261 4252 6706 2303 5250 4730 6253 1706 
6724 5250 4251 6651 5212 0240 5240 0240 5640 6730 5656 0270 5667 3263 5670 1267 
5670 0265 5661 1260 6262 2265 4261 5215 5240 0240 5240 0240 5332 6675 4330 5215 
5240 0240 5240 0240 6731 4675 5653 0656 5671 4662 5661 1660 5665 2671 5664 2266 
5671 3266 5271 6704 5270 4252 6706 2303 5250 4730 6253 1706 6724 5250 4251 6651 
5212 0240 5240 0240 5640 6730 5656 3267 5670 2671 5664 0660 5666 0264 5664 2260 
6271 2267 4261 5215 5240 0240 5240 0240 5332 6675 4330 5215 5240 0240 5240 0240 
6731 4675 5653 3656 5670 0666 5667 3671 5667 4270 5671 2662 5671 0261 5704 3255 
6252 3250 5303 4324 5330 5651 6706 2303 5250 4732 4251 5215 5240 0240 5240 0240 
5330 7275 5667 1263 5661 0660 5663 1660 5662 4267 5660 2271 5671 0704 5215 0212 
5240 0240 6640 5240 6675 4255 5215 0212 5240 0240 6640 4640 5275 5731 5656 4661 
5661 3661 5660 4266 5670 1663 5660 3260 5664 4262 5704 1655 6252 3250 5303 4324 
5330 5651 6706 2303 5250 4732 4251 5215 5240 0240 5240 0240 5330 7275 5666 3271 
5665 2262 5661 1261 5660 2665 5661 0261 6267 2265 4261 5215 5240 0240 5240 0240 
5332 6675 4330 5215 5240 0240 5240 0240 6731 4675 5653 1256 5671 1270 5670 1266 
5667 2270 5662 4667 5670 0665 5262 6704 5261 4252 6706 2303 5250 4730 6253 1706 
6724 5250 4251 6651 5212 0240 5240 0240 5640 6730 5656 3266 5662 0660 5661 1262 
5666 3262 5663 0266 5662 2267 4304 6661 5212 0240 5240 0240 5640 6732 4255 6730 
5212 0240 5240 0240 5640 6731 5331 7253 5663 2661 5662 2662 5664 3265 5666 0265 
5663 4267 6261 2264 5261 4252 6706 2303 5250 4730 6253 1706 6724 5250 4251 6651 
5212 0240 5240 0240 5640 6730 5656 1266 5670 0264 5661 1261 5662 3670 5667 4264 
5662 1270 4304 6661 5212 0240 5240 0240 5640 6732 4255 6730 5212 0240 5240 0240 
5640 6731 5331 7253 5662 2663 5661 4270 5664 0667 5660 3666 5665 0670 6271 2261 
5263 4252 6706 2303 5250 4730 6253 1706 6724 5250 4251 6651 5212 0240 5240 0240 
5640 6730 5656 4665 5665 3265 5666 1666 5662 3666 5671 2271 5670 0266 4304 6661 
5212 0240 5240 0240 5640 6732 4255 6730 5212 0240 5240 0240 5640 6731 5331 7253 
5661 4262 5660 4660 5663 4663 5661 1263 5662 1664 6270 2260 5265 4252 6706 2303 
5250 4730 6253 1706 6724 5250 4251 6651 5212 0240 5240 0240 5640 6730 5656 3265 
5663 0264 5665 0662 5666 1664 5664 4671 5667 0662 4304 6661 5212 0240 5240 0240 
5640 6732 4255 6730 5212 0240 5240 0240 5640 6731 5331 7253 5665 0662 5670 1266 
5663 1267 5666 4665 5660 2270 6267 2265 5266 4252 6706 2303 5250 4730 6253 1706 
6724 5250 4251 6651 5212 0240 5240 0240 5640 6730 5656 1665 5661 1670 5662 1265 
5662 3264 5663 1263 5667 4660 4304 6661 5212 0240 5240 0240 5640 6732 4255 6730 
5212 0240 5240 0240 5640 6731 5331 7253 5661 1266 5670 2263 5660 1667 5660 0267 
5671 1267 6260 2264 5270 4252 6706 2303 5250 4730 6253 1706 6724 5250 4251 6651 
5212 0240 5240 0240 5640 6730 5656 0265 5660 3667 5667 3271 5660 0662 5671 3670 
5666 1270 4304 6661 5212 0240 5240 0240 5640 6732 4255 6730 5212 0240 5240 0240 
5640 6731 5331 7253 5663 2671 5671 3661 5667 3267 5666 2271 5667 1267 6263 2271 
5271 4252 6706 2303 5250 4730 6253 1706 6724 5250 4251 6651 5212 0240 5240 0240 
5640 6730 5656 3664 5660 4261 5661 3265 5664 2267 5660 2267 5671 4271 4304 6661 
5212 0240 5240 0240 5640 6732 4255 6730 5212 0240 5240 0240 5640 6731 5331 7253 
5667 0666 5665 0662 5667 2662 5660 2261 5665 2664 5661 0704 5260 4252 6706 2303 
5250 4730 6253 1706 6724 5250 4251 6651 5212 0240 5240 0240 5640 6730 5656 1664 
5671 4671 5661 0667 5666 1270 5662 0670 5663 3267 4304 6661 5212 0240 5240 0240 
5640 6732 4255 6730 5212 0240 5240 0240 5640 6731 5331 7253 5661 3661 5663 0666 
5666 2267 5662 1263 5661 2265 6271 2263 5261 5262 6250 1706 6724 4250 6251 3253 
5303 4324 5332 4651 5215 0212 5240 0240 6640 4240 5675 2256 5661 0660 5666 2263 
5664 2267 5665 3266 5666 3265 5667 0704 5215 0212 5240 0240 6640 5240 6675 4255 
5215 0212 5240 0240 6640 4640 5275 5731 5656 2261 5666 0665 5662 1665 5661 2266 
5667 0666 5660 2271 5704 1661 6252 3250 5303 4324 5330 5651 6706 2303 5250 4732 
4251 5215 5240 0240 5240 0240 5330 7275 5663 0270 5666 3665 5661 0665 5663 2271 
5665 3263 6260 2265 4261 5215 5240 0240 5240 0240 5332 6675 4330 5215 5240 0240 
5240 0240 6731 4675 5653 0656 5664 2671 5665 1263 5671 3263 5667 3662 5662 3664 
5661 0704 5264 4252 6706 2303 5250 4730 6253 1706 6724 5250 4251 6651 5212 0240 
5240 0240 5640 6730 5656 2663 5661 1664 5667 4665 5663 3665 5664 4660 5660 1266 
4304 6661 5212 0240 5240 0240 5640 6732 4255 6730 5212 0240 5240 0240 5640 6731 
5331 7253 5661 2662 5670 2263 5660 2662 5661 1660 5661 4261 6264 2266 5261 5265 
6250 1706 6724 4250 6251 3253 5303 4324 5332 4651 5215 0212 5240 0240 6640 4240 
5675 1656 5662 2262 5667 0663 5662 0671 5671 1271 5660 2663 5667 0704 5215 0212 
5240 0240 6640 5240 6675 4255 5215 0212 5240 0240 6640 4640 5275 5731 5656 3670 
5670 2270 5671 1271 5663 4260 5665 1660 6265 2271 5261 5265 6250 1706 6724 4250 
6251 3253 5303 4324 5332 4651 5215 0212 5240 0240 6640 4240 5675 1256 5671 3663 
5663 0265 5670 1662 5660 2260 5666 0662 5670 0704 5215 0212 5240 0240 6640 5240 
6675 4255 5215 0212 5240 0240 6640 4640 5275 5731 5656 0665 5662 4665 5662 0671 
5663 3665 5670 1266 5667 3664 5704 3261 6252 3250 5303 4324 5330 5651 6706 2303 
5250 4732 4251 5215 5240 0240 5240 0240 5330 7275 5662 2666 5661 3671 5662 1664 
5665 1664 5660 1666 6265 2260 4261 5215 5240 0240 5240 0240 5332 6675 4330 5215 
5240 0240 5240 0240 6731 4675 5653 1256 5665 4660 5670 3263 5671 2670 5661 0263 
5666 2262 5671 0704 5267 4252 6706 2303 5250 4730 6253 1706 6724 5250 4251 6651 
5212 0240 5240 0240 5640 6730 5656 1662 5666 1670 5665 2664 5670 3270 5663 2262 
5660 2261 4304 6661 5212 0240 5240 0240 5640 6732 4255 6730 5212 0240 5240 0240 
5640 6731 5331 7253 5661 1660 5666 1263 5671 4660 5671 0265 5667 3665 6267 2267 
5261 5270 6250 1706 6724 4250 6251 3253 5303 4324 5332 4651 5215 0212 5240 0240 
6640 4240 5675 1256 5660 3270 5662 1267 5670 4667 5670 0670 5667 1266 5660 0704 
5215 0212 5240 0240 6640 5240 6675 4255 5215 0212 5240 0240 6640 4640 5275 5731 
5656 3263 5662 2662 5670 4666 5667 2670 5663 2264 5665 4270 5704 4261 6252 3250 
5303 4324 5330 5651 6706 2303 5250 4732 4251 5215 5240 0240 5240 0240 5330 7275 
5661 0270 5665 0665 5667 3661 5661 3264 5665 2265 6264 2271 4261 5215 5240 0240 
5240 0240 5332 6675 4330 5215 5240 0240 5240 0240 6731 4675 5653 0656 5660 2667 
5666 2260 5660 0265 5671 3670 5671 1661 5667 0704 5271 4252 6706 2303 5250 4730 
6253 1706 6724 5250 4251 6651 5212 0240 5240 0240 5640 6730 5656 2661 5662 4265 
5670 0671 5664 1260 5660 4271 5666 3663 4304 6661 5212 0240 5240 0240 5640 6732 
4255 6730 5212 0240 5240 0240 5640 6731 5331 7253 5662 1267 5660 0663 5662 4670 
5665 3263 5670 4670 6261 2270 5261 5271 6250 1706 6724 4250 6251 3253 5303 4324 
5332 4651 5215 0212 5240 0240 6640 4240 5675 0656 5662 3664 5662 0260 5661 3265 
5671 1664 5661 3661 5671 0704 5215 0212 5240 0240 6640 5240 6675 4255 5215 0212 
5240 0240 6640 4640 5275 5731 5656 4265 5667 4663 5671 0670 5671 2266 5660 4671 
5664 2663 5704 4661 6252 3250 5303 4324 5330 5651 6706 2303 5250 4732 4251 5215 
5240 0240 5240 0240 5330 7275 5671 4666 5662 4666 5664 1662 5660 0667 5661 4267 
5660 0304 5215 0212 5240 0240 6640 5240 6675 4255 5215 0212 5240 0240 6640 4640 
5275 5731 5656 0261 5670 4664 5670 2263 5671 0263 5666 4261 5666 2270 5704 0262 
6252 3250 5303 4324 5330 5651 6706 2303 5250 4732 4251 5215 5240 0240 5240 0240 
5330 7275 5666 0671 5671 1262 5663 2660 5670 0261 5660 2264 6265 2270 4260 5215 
5240 0240 5240 0240 5332 6675 4330 5215 5240 0240 5240 0240 6731 4675 5653 0656 
5667 3261 5670 4265 5664 1662 5664 0271 5670 3663 5660 1304 5260 4252 6706 2303 
5250 4730 6253 1706 6724 5250 4251 6651 5212 0240 5240 0240 5640 6730 5656 0664 
5664 4271 5670 1270 5664 1261 5661 3660 5670 4266 4304 6660 5212 0240 5240 0240 
5640 6732 4255 6730 5212 0240 5240 0240 5640 6731 5331 7253 5662 1263 5671 2271 
5667 3270 5660 1266 5666 4267 6260 2265 5262 5260 6250 1706 6724 4250 6251 3253 
5303 4324 5332 4651 5215 0212 5240 0240 6640 4240 5675 0656 5663 1670 5660 1262 
5664 4664 5670 0267 5660 3671 5662 0304 5215 0212 5240 0240 6640 5240 6675 4255 
5215 0212 5240 0240 6640 4640 5275 5731 5656 3662 5661 3663 5667 1264 5664 2271 
5661 0263 5663 4271 5704 0262 6252 3250 5303 4324 5330 5651 6706 2303 5250 4732 
4251 5215 5611 6731 5731 0652 5256 6704 4262 6660 5212 0240 5240 0240 6240 2722 
6724 1325 4316 5215 5240 0240 5240 0240 6305 2316 4615 5212 4200 0200 4200 0200 
4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 
4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 
4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 
4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 
4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 
4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 
4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 
4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 
4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 



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