File DIALPS.FT (FORTRAN source file)

Directory of image this file is from
This file as a plain text file
6303 2211 6311 6301 5320 7323 5306 6324 6240 0720 5307 0305 6261 7640 5706 1640 
5256 4211 5261 7660 5261 7671 5267 0261 6255 1640 5256 7315 6315 7717 5322 6305 
6240 4722 5303 0305 5325 6256 6240 7710 6725 2323 5317 4716 6215 1612 6215 1612 
6211 7703 6320 2711 6323 3240 6311 2714 6323 3240 6322 6717 6240 4704 5301 0314 
6314 7311 6303 0724 5320 0305 6661 2240 6717 0240 5723 4257 6240 2704 6326 1711 
6705 1640 5731 5323 6215 1612 6215 1612 6211 4704 5301 0314 6306 6311 5305 0323 
6301 2722 6640 0323 6305 4703 6306 2711 6304 1240 6331 0640 6640 2323 6701 2322 
6311 3716 6240 6302 6317 5703 6640 2716 6315 2702 6322 0640 5316 0304 6314 7305 
6307 4324 6215 1612 6211 7311 6240 6302 6317 5703 5323 0254 6301 0726 6311 0714 
6302 2714 6640 1306 5317 0315 6324 2710 6240 4704 5301 0314 6311 2316 5305 7330 
6215 1612 6611 1720 5257 0270 6306 6311 5305 0323 6301 2722 6640 0323 6305 4703 
6306 2711 6304 1240 6331 0640 6240 4706 5314 0305 6316 6701 6305 0640 5316 0304 
6705 2330 6705 1716 6311 7317 4256 5215 4303 5215 6303 4211 6305 2301 5305 0322 
6302 7714 6703 1713 6240 3317 6240 7703 5322 0305 6311 0715 5307 0305 6306 6311 
5305 0323 5250 7311 5305 6256 6240 4704 5301 0314 6302 7311 6701 4722 6240 7724 
6640 1720 4257 6670 4212 4703 6656 3323 6240 4706 6714 1705 6251 0640 5322 0305 
6701 2325 6317 0715 6324 1711 6301 6314 6331 1640 6717 3316 6705 2322 5305 0304 
6306 7722 6315 2240 6311 6301 6240 7724 6640 1720 4257 6670 4212 4703 6706 1317 
6715 2301 5256 0240 6324 2710 5323 0305 6304 0711 6314 1240 6311 0716 5322 0331 
6306 6311 5305 0323 6715 1725 6324 1240 6705 1640 6305 3314 6655 2323 6701 2322 
6311 3716 6240 7311 6215 1612 5211 6670 6315 2317 5305 0254 5311 0316 6317 2322 
5305 0322 5324 0317 6323 0724 5322 0324 6703 1317 6322 1705 6724 4714 6240 7325 
6704 1305 6240 4324 6705 0240 5723 4257 6640 4723 6323 2724 4315 6656 4212 6703 
4212 4703 6301 6314 6640 2317 6710 1305 6640 4724 5320 0305 6306 6311 5305 0323 
5250 7305 5307 6256 6240 0704 5324 0301 5317 0322 6723 2717 6322 2703 6240 4706 
6714 1705 6251 0640 4322 6705 4212 4703 6703 0317 6311 2305 6240 4727 6324 7710 
5325 0324 6701 2314 6305 0722 6324 7711 4316 6656 4212 6703 6212 1611 6317 6715 
5317 0316 6316 2723 5307 6323 6311 2303 5311 6306 6311 2301 5304 6322 6312 1317 
6327 5654 6716 1324 4314 6654 5612 0611 6640 3711 6261 4654 5327 6262 5711 1727 
6654 3711 6264 5654 6304 6725 6331 7254 6727 1704 6654 3711 5304 6260 6311 2327 
6261 4654 6302 3325 4306 5215 6211 4704 6315 7305 6323 7711 6316 5640 6716 1324 
5714 1250 5654 1261 5266 6251 6713 2704 5315 4331 5662 4661 6251 4654 5727 0304 
5650 3261 6251 4654 5727 0704 5650 3261 4251 5215 6211 4704 6315 7305 6323 7711 
6316 4640 6302 3325 5706 1250 5265 4666 6254 0716 5315 4305 5264 6251 6311 2704 
5726 1250 4251 5215 4303 5215 5661 0260 6211 0703 5314 0314 6303 6322 4306 5215 
6703 1211 6305 2301 6240 0716 5315 0305 5317 0306 6716 3705 6240 4706 5314 0305 
5324 0317 5302 0305 6303 2722 6301 2724 6304 7640 6716 1640 5731 5323 5615 0612 
4261 4660 6327 4722 5324 4305 5661 0654 5262 4660 5615 0612 4262 4660 6706 1317 
6715 2301 6650 3647 6310 7305 5240 0252 6701 0320 6705 1301 5323 0254 6724 0331 
6305 7240 6301 2715 6240 3317 6240 2716 6727 0240 5723 4257 6240 4706 5314 3705 
4251 5215 6211 0703 5314 0314 6316 6701 5305 4323 6311 2704 6326 7254 6301 2715 
6254 2311 5305 6326 6316 6701 4305 6651 6212 4611 6306 7250 6301 2715 5651 1661 
5660 0654 5261 6260 5661 0263 6215 1612 6211 2722 5301 0304 6717 2303 5301 0314 
6323 0724 6322 4724 5316 0307 6302 7714 5303 0313 6316 6725 6702 1305 6240 3317 
6240 4706 5314 0305 5324 0317 6703 0317 6331 3240 6322 6717 6240 4714 6716 2303 
6301 2720 4240 6661 5612 1661 6660 3611 6722 2311 5705 0650 5654 2261 4260 6651 
5612 2261 6260 3211 6317 6722 5301 4324 6247 7716 6727 1640 6305 2714 5303 0324 
6304 0711 6314 3240 6311 2714 5272 4647 4215 4612 6303 6301 6314 0640 6314 4320 
5301 3650 6323 0724 5322 3724 4251 5215 6211 0703 5314 0314 6701 0314 5310 4301 
6247 7311 6307 1240 4247 6651 6212 1611 6301 6314 6240 6301 6320 0710 6250 6247 
6317 5703 5240 4647 4215 4612 6303 6301 6314 0640 6314 4320 5301 3650 5275 4647 
4215 4612 6311 6302 5713 6661 6711 2316 5311 4316 4270 6651 4212 4703 6322 0705 
6304 7640 6303 0724 6314 6240 6305 3716 5324 0310 5317 0306 6306 6311 6305 7640 
6316 6240 6311 1716 6724 0301 5705 0640 4256 5215 6211 0703 5314 0314 6701 0314 
5310 4301 6247 2714 6716 2307 4247 6651 6212 1611 6301 6314 6240 6301 6320 0710 
6250 4247 6240 7311 5240 4647 4215 4612 6303 6301 6314 0640 6314 4320 5301 3650 
6302 7714 5303 3713 4251 5215 6211 0703 5314 0314 6701 0314 5310 4301 5247 0323 
5275 4647 4215 4612 6316 6302 5713 6723 6711 2316 5311 4316 4270 6651 4212 4703 
6315 5701 6305 0640 6240 2716 6727 2240 6705 2316 6301 4724 5326 0305 6306 6311 
6305 7640 6716 1640 5331 0323 6301 2316 6240 4303 6305 5703 6640 3301 6301 6311 
6301 6302 6705 1640 6320 1701 4305 5215 6211 1316 6261 6675 6723 1731 6250 0716 
5315 6305 6314 0715 4330 6651 6212 4611 6306 6250 6715 4301 6255 1316 6714 1713 
5651 2661 5660 0654 5271 6260 5661 0271 6215 1612 6211 4706 5314 0305 6327 7317 
5247 0324 6706 2311 6240 7317 6640 4723 4323 5215 5661 0265 6611 1327 6311 2724 
5250 6261 5661 0266 4251 5215 5661 0266 6211 7706 6322 0715 5324 3650 6306 6311 
6705 3640 6311 6314 6240 7716 6324 3240 5311 0324 5317 0316 6723 1731 5272 4647 
4215 4612 5307 0317 5324 0317 5661 0260 6215 1612 6211 4303 6305 5703 6240 7706 
5322 7240 5323 0326 6306 6311 4305 5215 5661 0271 6211 3311 6250 0716 5315 4305 
5264 6651 5661 1662 5670 0651 5271 6265 5663 0260 5654 4661 4265 5215 6303 1611 
6717 4720 6240 4706 5314 0305 6302 7714 6703 1713 5615 0612 4271 4665 5304 0317 
5662 0260 5640 6711 6261 7254 6302 5714 4323 5215 6211 0703 5314 0314 6322 4714 
5316 4303 6261 4654 6302 5714 5661 0654 6254 1311 6325 3306 5654 2662 4266 6651 
6212 1611 6301 6314 6640 1727 5331 4323 6262 7254 5302 6261 6711 2702 5306 4706 
4215 4612 5716 0702 6275 1316 5661 0653 5615 1212 4260 4660 6311 6302 5713 6661 
6311 6302 5313 5661 4261 5215 6303 1611 6714 1717 5305 4240 6315 5701 6705 0240 
6305 6722 6301 2716 5316 4724 6240 2716 6327 3240 6311 2714 6240 7317 6640 4723 
4323 5215 5662 0262 6211 0703 5314 0314 6703 4723 6323 7250 6302 5714 4323 6651 
6212 3611 6717 2240 5717 0640 4260 6660 4212 6703 6212 1614 6211 4704 6701 0314 
6323 3256 5324 0254 6320 3701 5705 1240 6240 3317 5240 7263 6215 1612 6215 1612 
6211 7703 6316 2726 5322 0324 6656 3323 6240 4706 5314 0305 6310 0705 6704 1305 
6240 6302 6317 5703 6640 1306 5317 0315 6304 0711 6714 2240 6717 0240 5723 4257 
6240 7706 6322 0715 4324 5215 5663 0260 6211 0703 5314 0314 6322 4714 5316 4303 
6261 4654 6302 5714 5661 0654 6654 3711 5661 1254 5265 4666 6215 1612 6211 4303 
6305 5703 6240 7706 6722 1640 6724 1301 6324 7311 6307 0640 6704 1304 6705 1723 
4215 4612 5311 4306 5711 0727 5651 0263 5664 1654 5260 6262 5663 2260 5615 1612 
4260 4662 6327 4722 5324 4305 5661 1654 5260 4663 5615 1612 4260 4663 6706 1317 
6715 2301 6250 7247 6717 1640 6724 1301 6324 7311 6307 0640 6704 1304 6705 1723 
6240 7706 5322 7240 5323 0326 6306 6311 5305 4647 4215 4612 5307 0317 5324 0317 
5663 4260 6215 1612 6211 4303 6305 5703 6240 4324 5301 0324 6304 0711 5314 7240 
5323 0326 6306 6311 6705 1640 6724 1301 5324 0323 5311 0316 6270 6655 6317 2704 
4256 5215 5663 2260 6211 3311 6650 3711 5661 1255 5651 0263 5666 1654 5261 6260 
5663 3260 5615 1612 4260 4666 6327 4722 5324 4305 5661 1654 5260 4667 5615 1612 
4260 4667 6706 1317 6715 2301 5250 7247 5323 0326 6306 6311 6305 6640 6725 2323 
6640 2323 6701 2322 6240 7311 5240 6670 6315 2317 5305 4647 5615 1612 4260 4670 
6311 2303 5711 6706 4260 5215 6211 0711 6704 1304 4275 6660 6212 3611 6717 2240 
5717 1640 4261 6662 4212 4703 6303 7317 6726 1305 6324 4240 6305 2301 5305 0322 
6320 4717 6316 2724 4322 6723 5612 0663 6260 4611 6303 4704 6306 4675 5327 5662 
4261 5215 6211 0711 6704 1304 6675 3711 4264 5215 5663 1261 6211 7712 5702 6727 
5665 1261 4215 4612 6316 2723 5707 6723 6655 3716 4304 6723 6212 2211 5717 1640 
5262 0260 5711 0675 5654 1261 4266 5215 6211 7704 5640 1263 6260 5240 5275 6261 
4262 5215 5663 0262 6211 7313 6324 6322 5250 6312 5711 6651 4260 5215 6303 1611 
6717 3316 6705 2322 6240 4706 6305 2314 5240 0261 6703 1317 6305 4640 6315 3701 
6705 0240 6317 7311 6724 1305 4323 5215 6611 0311 5723 6670 4261 5215 6211 7704 
5640 0264 6260 4640 5275 6261 4261 6665 6212 4611 6306 4650 5727 0704 5250 4711 
5651 2263 5660 2254 5260 6260 5663 0264 5615 1612 4264 4660 6713 2316 5322 4314 
6261 4654 5720 4323 5251 4275 5711 0655 5651 1252 4265 6666 6212 5611 6716 1324 
5714 1250 6654 0311 5323 4670 5675 1661 4266 5215 6611 0311 5723 6670 6711 1720 
5670 0653 5615 2212 4260 4660 6303 7317 6324 7311 4325 6705 6212 4611 6306 4650 
5727 0704 5650 3261 5651 2251 5262 6260 5664 0264 5654 1264 4260 5215 5664 0262 
6211 7313 6324 6322 5250 6261 6711 1720 5670 6651 5261 5265 5662 3265 4215 4612 
6713 2316 5322 4314 6262 4654 5720 4323 5651 3675 4262 5215 6611 0311 5723 6670 
6711 1720 5670 0653 5615 2212 4264 4660 6311 6306 5704 6661 6711 1720 5670 0655 
6215 1612 6211 7703 6316 2726 5322 0324 6306 2711 5314 0304 6260 1640 6317 2722 
6240 6711 6301 2707 6240 7720 6711 2316 6705 1722 4215 4612 5304 0317 5665 0260 
5640 6711 5661 0654 4265 5215 6211 3311 6650 3711 5304 4260 5311 4651 5664 0266 
5654 0265 5660 2254 4266 6660 5612 3264 6260 5611 6716 1324 5714 0650 6654 0311 
5323 4670 6275 4650 5255 4661 5652 2662 4266 5215 6211 7313 6324 6322 5250 6262 
6711 1720 5670 6651 5661 4262 4215 4612 6711 1720 6270 4675 5720 4323 4253 6661 
5612 0265 6260 1611 6717 2316 6711 2716 4305 5215 6211 3311 6650 3711 5304 4260 
5261 4666 5651 1265 5660 3254 5260 6260 5665 0262 5615 2612 4262 4660 6713 2316 
5322 4314 6261 4654 5720 4323 5651 0675 5665 1252 4265 6666 6212 5611 6716 1324 
5714 1250 6654 0311 5323 4670 5675 2266 4215 4612 6711 1720 6270 4675 5720 4323 
4253 6661 5612 0266 6260 4611 6306 2314 6260 4675 5720 4323 5255 6661 6311 6306 
4304 6661 6212 4611 6306 4650 5720 4323 5255 6661 6316 2327 5723 3251 5262 6260 
5667 0260 5654 1266 4260 5215 5666 0262 6611 1327 6311 2724 5250 6261 5666 0263 
4251 5215 5666 0263 6211 7706 6322 0715 5324 3650 6302 2301 6640 1656 6326 3240 
6311 2714 6240 2710 6301 2704 6322 1240 6314 1717 5313 4647 4215 4612 5307 0317 
5324 0317 5661 0260 6215 1612 6611 1327 6311 2724 6240 7703 6316 2726 6322 2724 
6304 4240 6305 2301 5305 0322 6302 7714 4303 6713 5612 0267 6260 1611 6301 6314 
6640 1727 5331 4323 6262 7254 5302 6261 6316 2723 5307 4723 6215 1612 4215 6212 
6303 2211 6311 6301 5320 7323 5306 6324 6240 0720 5307 0305 6263 7640 5706 1640 
4256 5215 4303 5215 6303 1611 6717 4720 6240 4706 6305 2314 5240 0261 6703 1317 
6305 4640 6315 3701 6305 1240 6314 1717 4313 6723 6212 4611 6306 4650 6306 2314 
5661 0651 5660 0260 5654 0261 5260 6260 5670 0260 5615 4212 4260 4660 5304 0317 
5671 0260 5640 6711 6261 4654 6306 2314 4261 5215 6211 1312 5714 0713 6275 1311 
5714 0713 6253 3311 5714 0304 4253 6711 6212 5211 5702 6661 5716 0702 4253 6711 
6212 1611 6301 6314 6240 6322 6311 1716 5250 6261 6312 6302 5313 6261 6261 4654 
6302 3325 5706 1254 5265 4666 5615 4612 4260 4660 6303 6301 6714 3640 6723 1731 
5250 6262 5712 0702 6254 1311 6325 3306 4251 5215 6303 1611 6717 4720 6240 4706 
6305 2314 5240 0260 6703 1317 6305 4640 6315 3701 6305 1240 6314 1717 4313 6723 
5612 0261 4260 4660 5311 4306 6311 6306 5304 4660 5662 0262 5654 1262 5660 0654 
5661 0260 5615 0612 5661 0260 6211 7704 5640 1261 5260 0260 5711 0675 6254 3311 
5714 0304 4215 4612 6312 6302 5713 6661 6311 6302 5313 5661 4311 5215 6211 1312 
6261 7275 5302 5661 6311 6306 5304 5661 4311 5215 6211 0703 5314 0314 6322 4714 
5316 4303 6261 5254 6302 5714 5661 0654 6254 1311 6325 3306 5654 2662 4266 6651 
5612 1261 4260 4660 6303 6301 6714 3640 6723 1731 5250 6262 5712 0702 6254 1311 
6325 3306 4251 5215 6211 7707 6240 7724 5640 1262 4260 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 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 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