File DQH48.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 4264 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 4264 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 4264 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 4640 4265 6656 5212 0303 
5240 0240 5240 0240 5240 0240 6240 7706 6722 1240 6305 2706 6322 7305 5303 6305 
6240 2723 4305 5215 5303 0240 5240 0240 5240 0240 5240 0240 6323 0710 6317 1657 
6310 7305 6657 1306 6301 5716 6654 2240 6301 6302 5305 0323 5317 0306 6732 1305 
5317 0323 6301 2316 6240 0707 6725 1723 6311 7301 6240 2727 6311 4307 5324 0323 
4317 6706 5212 0303 5240 0240 5240 0240 5240 0240 6240 2703 6322 0724 5311 0316 
6701 1723 6317 4703 6301 2724 6304 6240 6701 2707 6705 1322 6705 0240 6717 4714 
6316 6717 6311 6301 6323 0640 5316 0304 6324 2710 6240 2722 6714 2301 4305 6704 
5212 0303 5240 0240 5240 0240 5240 0240 6240 2707 6716 1305 6301 4714 6332 2305 
6240 2710 6322 4715 5324 0305 6320 6317 6331 7716 6315 0711 5314 6323 6240 1311 
6715 2240 6305 4303 6316 1711 5301 0314 6722 0305 6717 2322 6215 1612 5240 0240 
5240 0240 5240 0240 6640 2240 5722 0260 5656 0661 5260 0260 6250 0715 6322 4303 
5640 4661 5266 4664 6654 0240 5720 1256 5261 6663 5662 2261 4256 5215 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 5215 0212 5240 0240 6640 1640 6725 1302 6717 2325 6311 2716 6640 0704 
5710 4264 6250 1706 6724 4654 4251 5215 4303 5215 4303 5215 5240 0240 5240 0240 
6704 2717 6302 2714 6640 1320 6305 4703 6323 7711 6716 4240 5254 6331 6332 3254 
4303 6724 4212 6703 5212 0240 5240 0240 5640 6730 5656 4670 5667 1665 5661 0265 
5670 4661 5663 3261 6270 2267 4261 5215 5240 0240 5240 0240 5332 6675 4330 5215 
5240 0240 5240 0240 5331 7275 5667 1671 5665 2665 5661 3264 5660 3667 5663 4671 
5267 6704 5263 5265 6250 1706 6724 4250 6251 3253 5303 4324 5332 4651 5215 0212 
5240 0240 6640 4240 5675 4256 5663 0261 5667 1265 5661 0271 5667 2260 5667 2270 
4304 6661 5212 0240 5240 0240 5640 6732 4255 6730 5212 0240 5240 0240 5640 6731 
5331 7253 5665 4271 5664 0666 5662 4666 5663 0663 5663 3670 6270 2264 5655 0263 
6252 3250 5303 4324 5330 5651 6706 2303 5250 4732 4251 5215 5240 0240 5240 0240 
5330 7275 5667 2667 5671 4662 5665 0665 5671 3267 5665 3667 5665 0704 5215 0212 
5240 0240 6640 5240 6675 4255 5215 0212 5240 0240 6640 4640 5275 5731 5656 3263 
5670 0265 5663 0266 5670 0660 5665 3260 5666 4671 5704 1255 5266 4252 6706 2303 
5250 4730 6253 1706 6724 5250 4251 6651 5212 0240 5240 0240 5640 6730 5656 1267 
5666 0266 5664 2666 5665 0664 5666 1664 6265 2260 4261 5215 5240 0240 5240 0240 
5332 6675 4330 5215 5240 0240 5240 0240 6731 4675 5653 2656 5665 2266 5665 3667 
5664 4266 5671 1260 5662 2270 5270 6704 5262 5263 6250 1706 6724 4250 6251 3253 
5303 4324 5332 4651 5215 0212 5240 0240 6640 4240 5675 3256 5670 0261 5660 2266 
5665 4267 5660 2267 5661 0664 5664 0704 5215 0212 5240 0240 6640 5240 6675 4255 
5215 0212 5240 0240 6640 4640 5275 5731 5656 0663 5670 1670 5670 1667 5662 2663 
5660 0665 5663 2270 5704 1255 5260 4252 6706 2303 5250 4730 6253 1706 6724 5250 
4251 6651 5212 0240 5240 0240 5640 6730 5656 1666 5670 2660 5666 0264 5671 0666 
5670 2266 5661 3260 4304 6661 5212 0240 5240 0240 5640 6732 4255 6730 5212 0240 
5240 0240 5640 6731 5331 7253 5670 1667 5660 2661 5671 0266 5661 4261 5666 3666 
5267 6704 5261 5270 6250 1706 6724 4250 6251 3253 5303 4324 5332 4651 5215 0212 
5240 0240 6640 4240 5675 2656 5671 0667 5660 1267 5662 2662 5660 1661 5665 2664 
5664 0704 5215 0212 5240 0240 6640 5240 6675 4255 5215 0212 5240 0240 6640 4640 
5275 5731 5656 1661 5661 0665 5665 3271 5662 3262 5665 2270 5660 2670 5704 0655 
5265 4252 6706 2303 5250 4730 6253 1706 6724 5250 4251 6651 5212 0240 5240 0240 
5640 6730 5656 2665 5667 1667 5661 4666 5670 1261 5662 3663 5662 3270 4304 6661 
5212 0240 5240 0240 5640 6732 4255 6730 5212 0240 5240 0240 5640 6731 5331 7253 
5661 4661 5667 4265 5671 3270 5665 3664 5671 3661 6271 2264 5655 1661 6252 3250 
5303 4324 5330 5651 6706 2303 5250 4732 4251 5215 5240 0240 5240 0240 5330 7275 
5665 4661 5666 4262 5667 0667 5670 4667 5662 3263 6264 2265 4261 5215 5240 0240 
5240 0240 5332 6675 4330 5215 5240 0240 5240 0240 6731 4675 5653 3656 5660 3264 
5671 1263 5665 0670 5665 2664 5670 4670 5261 6704 5261 5262 6250 1706 6724 4250 
6251 3253 5303 4324 5332 4651 5215 0212 5240 0240 6640 4240 5675 2256 5670 2662 
5667 3665 5662 4262 5661 1663 5662 4660 5665 0704 5215 0212 5240 0240 6640 5240 
6675 4255 5215 0212 5240 0240 6640 4640 5275 5731 5656 4262 5661 1265 5671 2666 
5663 4267 5663 0670 5666 0671 5704 0655 5260 4252 6706 2303 5250 4730 6253 1706 
6724 5250 4251 6651 5212 0240 5240 0240 5640 6730 5656 2264 5666 0264 5661 2664 
5664 4666 5663 2264 5665 4670 4304 6661 5212 0240 5240 0240 5640 6732 4255 6730 
5212 0240 5240 0240 5640 6731 5331 7253 5667 1671 5660 3264 5667 4664 5665 3261 
5665 4263 5262 6704 5271 4252 6706 2303 5250 4730 6253 1706 6724 5250 4251 6651 
5212 0240 5240 0240 5640 6730 5656 0664 5660 3671 5660 3264 5660 2663 5666 2660 
5671 1260 4304 6661 5212 0240 5240 0240 5640 6732 4255 6730 5212 0240 5240 0240 
5640 6731 5331 7253 5661 1266 5662 0665 5664 1661 5665 4670 5665 3267 6271 2270 
5255 5267 6250 1706 6724 4250 6251 3253 5303 4324 5332 4651 5215 0212 5240 0240 
6640 4240 5675 1656 5667 0666 5667 3262 5664 0271 5662 4262 5663 3665 5670 0704 
5215 0212 5240 0240 6640 5240 6675 4255 5215 0212 5240 0240 6640 4640 5275 5731 
5656 2262 5666 3270 5665 4670 5671 3263 5666 3671 5665 2660 5704 3255 6252 3250 
5303 4324 5330 5651 6706 2303 5250 4732 4251 5215 5240 0240 5240 0240 5330 7275 
5663 0664 5671 3261 5665 3271 5671 3263 5663 4270 6264 2266 4261 5215 5240 0240 
5240 0240 5332 6675 4330 5215 5240 0240 5240 0240 6731 4675 5653 1256 5670 3664 
5662 4265 5666 0671 5667 2263 5670 4264 5261 6704 5265 4252 6706 2303 5250 4730 
6253 1706 6724 5250 4251 6651 5212 0240 5240 0240 5640 6730 5656 0263 5670 1261 
5664 4670 5670 3270 5664 0665 5660 4265 4304 6661 5212 0240 5240 0240 5640 6732 
4255 6730 5212 0240 5240 0240 5640 6731 5331 7253 5662 1265 5670 4665 5671 1260 
5667 2267 5670 4264 6270 2271 5255 5264 6250 1706 6724 4250 6251 3253 5303 4324 
5332 4651 5215 0212 5240 0240 6640 4240 5675 1256 5667 3664 5663 4260 5666 2262 
5670 1262 5663 1670 5662 0704 5215 0212 5240 0240 6640 5240 6675 4255 5215 0212 
5240 0240 6640 4640 5275 5731 5656 3661 5665 2661 5660 1664 5661 0270 5661 3661 
5662 1670 5704 1655 6252 3250 5303 4324 5330 5651 6706 2303 5250 4732 4251 5215 
5240 0240 5240 0240 5330 7275 5662 0664 5666 3267 5660 0271 5664 3670 5663 0662 
6266 2265 4261 5215 5240 0240 5240 0240 5332 6675 4330 5215 5240 0240 5240 0240 
6731 4675 5653 4656 5665 1666 5671 1662 5661 4271 5661 2271 5661 1665 5704 1655 
6252 3250 5303 4324 5330 5651 6706 2303 5250 4732 4251 5215 5240 0240 5240 0240 
5330 7275 5662 4260 5671 4260 5666 3266 5660 2271 5664 3662 6266 2264 4261 5215 
5240 0240 5240 0240 5332 6675 4330 5215 5240 0240 5240 0240 6731 4675 5653 2256 
5661 1665 5660 2260 5671 0661 5671 3667 5665 1265 5265 6704 5262 4252 6706 2303 
5250 4730 6253 1706 6724 5250 4251 6651 5212 0240 5240 0240 5640 6730 5656 3661 
5666 4263 5661 2667 5667 4271 5671 1665 5660 0260 4304 6661 5212 0240 5240 0240 
5640 6732 4255 6730 5212 0240 5240 0240 5640 6731 5331 7253 5661 2264 5664 4664 
5666 2661 5667 4664 5670 0261 6271 2271 5255 5261 6250 1706 6724 4250 6251 3253 
5303 4324 5332 4651 5215 0212 5240 0240 6640 4240 5675 0656 5664 0264 5665 2662 
5662 0262 5661 3663 5665 2666 5662 0704 5215 0212 5240 0240 6640 5240 6675 4255 
5215 0212 5240 0240 6640 4640 5275 5731 5656 0264 5664 4667 5666 3267 5671 2270 
5666 1660 5670 4664 5704 0655 6252 3250 5303 4324 5330 5651 6706 2303 5250 4732 
4251 5215 5240 0240 5240 0240 5330 7275 5661 0661 5670 0670 5662 2661 5662 0264 
5662 2661 6266 2266 4261 5215 5240 0240 5240 0240 5332 6675 4330 5215 5240 0240 
5240 0240 6731 4675 5653 4656 5661 1270 5662 4662 5667 3660 5671 4262 5665 4261 
5704 0655 6252 3250 5303 4324 5330 5651 6706 2303 5250 4732 4251 5215 5240 0240 
5240 0240 5330 7275 5667 4271 5663 2260 5666 3662 5667 4267 5665 1266 5662 0304 
5215 0212 5240 0240 6640 5240 6675 4255 5215 0212 5240 0240 6640 4640 5275 5731 
5656 3261 5671 0262 5664 3664 5661 2271 5665 2266 5661 0661 5304 5260 6250 1706 
6724 4250 6251 3253 5303 4324 5332 4651 5215 0212 5240 0240 6640 4240 5675 2256 
5667 3270 5664 1666 5663 2667 5671 2264 5671 0666 5660 0304 5215 0212 5240 0240 
6640 5240 6675 4255 5215 0212 5240 0240 6640 4640 5275 5731 5656 2662 5663 3271 
5661 2265 5662 3266 5664 2667 5671 0261 5304 5260 6250 1706 6724 4250 6251 3253 
5303 4324 5332 4651 5215 0212 5240 0240 6640 4240 5675 0656 5665 2271 5671 4662 
5663 4265 5664 4270 5666 2262 5667 0304 5215 0212 5240 0240 6640 5240 6675 4255 
5215 0212 5240 0240 6640 4640 5275 5731 5656 0663 5661 0260 5661 1660 5660 3663 
5667 3271 5663 4260 5304 5260 6250 1706 6724 4250 6251 3253 5303 4324 5332 4651 
5215 0212 5240 0240 6640 1240 6705 2724 4322 6716 5212 0240 5240 0240 6240 7305 
4304 5215 4232 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