File DTEUL.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 2304 6305 6325 6215 1612 6215 1612 5240 0240 5240 0240 6640 0240 
6725 0322 6317 2723 6215 1612 5240 0240 5240 0240 5240 0240 6240 1640 6717 0315 
6325 2724 6240 4324 6705 1640 5325 0315 5317 0306 6706 2303 5250 4713 6240 7706 
6322 5640 6640 1306 5317 0315 6317 2716 6640 0325 6240 7724 6240 7311 6306 7311 
6711 4724 4256 5215 4303 5215 5303 0240 5240 0240 5240 0240 6325 0723 4307 6705 
5212 0303 5240 0240 5240 0240 5240 0240 6240 0703 5314 0314 6304 2724 5325 4314 
6706 2303 6654 2723 6315 6654 5301 6330 6705 1720 6254 2711 4322 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 4256 5215 4303 5215 5303 0240 5240 0240 5240 0240 6704 1705 
6303 4722 6320 4724 5317 0316 5317 0306 6720 1301 6301 2715 6724 1305 4323 5215 
5303 0240 5240 0240 5240 0240 5240 0240 6706 2303 5240 0240 5240 0255 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 6640 2311 6240 7703 6715 2720 6724 1705 6240 4324 
6305 5640 6255 4324 6240 2724 5322 0315 5317 0306 6324 2710 6215 1612 5240 0240 
5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 6640 1640 6305 4722 5305 0323 
5324 0317 6701 4716 6240 4707 6326 7305 6240 7311 6704 4305 5240 7313 6215 1612 
5240 0240 5240 0240 5240 0240 6640 1640 5325 0315 5240 0240 6655 1240 6705 2723 
6314 0724 5316 0324 6326 6301 5325 0305 5311 0316 6704 2717 6302 2714 6640 1320 
6305 4703 6323 7711 6316 1640 6717 2316 6301 7311 6311 3716 6240 7317 6215 1612 
5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 6640 1240 6705 2724 
5322 0316 6324 2710 6640 2723 6315 7640 6706 2240 5310 0305 6707 3311 5305 0316 
6723 1305 6711 1705 4256 5215 5303 0240 5240 0240 5240 0240 5240 0240 6715 4301 
5240 0240 5240 0255 6711 0316 5325 0324 6326 6301 5325 6305 6240 4327 6311 4303 
6640 0323 6305 4703 6306 2711 6723 2240 5310 0305 6715 4301 6311 0715 6314 7240 
6325 1315 4305 6722 5212 0303 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 
5240 0240 6240 3317 6240 2724 6722 1715 6240 3317 6240 4324 6705 1640 6305 4722 
5305 0323 6324 0710 6324 0640 5322 0305 6722 1705 6320 1705 6324 2305 4256 5215 
5303 0240 5240 0240 5240 0240 5240 0240 6705 1720 5240 0240 5240 0255 6323 7311 
6307 2714 6640 1320 6305 4703 6323 7711 6316 4640 6716 2720 6724 3240 6701 2714 
5305 0254 6327 4710 5303 0310 6323 2720 6303 3311 6711 1705 6240 4324 4305 5215 
5303 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 6725 0320 
5305 0322 6702 2717 5316 0304 5317 0306 6324 2710 6240 2722 6714 2301 6311 2726 
6640 1305 6722 1317 4256 5215 5303 0240 5240 0240 5240 0240 5240 0240 5240 0240 
5240 0240 5240 0240 6323 6725 6715 2301 6311 7317 6640 1711 6640 2323 6717 0320 
5305 0304 5301 0323 6323 7717 6316 0640 6323 3240 6311 2726 6240 4724 6715 1705 
6240 7311 6215 1612 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 
6640 1640 6325 1703 6705 1723 6311 7317 6240 4324 6305 0640 6302 7723 6714 2325 
6705 3240 6701 2714 6305 7640 6706 2240 5310 0305 6724 1305 5315 0323 5317 0306 
6324 2710 6215 1612 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 
6640 2240 6322 7301 6323 7706 6322 2715 6704 1640 6305 4722 5305 0323 6301 2722 
6240 7706 6325 2316 6240 7724 6240 2702 6240 2714 5323 0323 6324 0710 4316 5215 
5303 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 6705 1720 
6252 0650 6302 7723 6714 2325 6705 3240 6701 2714 6305 7640 6306 1640 6725 1322 
6705 2316 6640 2723 5315 7251 6215 1612 5240 0240 5240 0240 5240 0240 6240 4640 
5305 0322 5240 0240 6655 1240 6705 2723 6314 0724 5316 0324 6705 1322 5317 0322 
6720 1301 6301 2715 6724 1305 6240 7703 6304 2305 6240 7311 6240 4324 6305 3240 
6317 6314 6317 4727 4316 6707 5212 0303 5240 0240 5240 0240 5240 0240 5240 0240 
5240 0240 5240 0240 6240 7706 4322 6715 5212 0303 5240 0240 5240 0240 5240 0240 
5240 0240 5240 0240 5240 0240 6240 4640 5705 6722 5260 0240 6255 7240 6317 2640 
6322 7722 4322 5215 5303 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 
5240 0240 6240 2711 5722 0675 5240 6640 6240 2722 6321 4725 6322 2305 6240 1701 
6703 1325 6701 4703 6240 7716 6724 1240 6305 1701 6310 2305 6240 4727 4324 6710 
5212 0303 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 
5240 0240 5240 0240 6240 6640 6301 4730 6315 6301 6640 2716 6315 2702 6322 7640 
6706 2240 6305 6722 4323 5215 5303 0240 5240 0240 5240 0240 5240 0240 5240 0240 
5240 0240 5240 0240 6240 2711 5322 6675 5261 6640 6240 4324 6305 4640 6316 2724 
6707 1305 6240 0715 6330 4640 6323 6240 6705 1723 6240 4324 5301 0316 6317 2716 
4256 5215 4303 5215 5303 0240 5240 0240 5240 0240 6322 6705 6301 5722 4323 5215 
5303 0240 5240 0240 5240 0240 5240 0240 5316 0317 6701 2303 6311 7317 6240 2702 
6323 2311 5305 0323 6705 1322 5317 0322 6715 1705 6323 3701 6305 4640 6316 1640 
6301 2723 6240 0715 6330 6240 6705 1723 6240 4324 5301 0316 6317 2716 4256 5215 
4303 5215 5303 0240 5240 0240 5240 0240 6323 1325 6722 2717 6324 7311 5305 0323 
6301 2316 6640 2706 6716 2303 6311 7317 6640 2723 6702 1320 6717 1307 6701 1715 
6240 2722 6321 4725 6322 2305 6215 1612 5240 0240 5240 0240 5240 0240 6640 2240 
5310 0305 6705 2330 6305 7322 5301 0314 6306 7325 6303 4724 5317 0316 6323 1325 
6320 7722 6307 0722 6315 3240 5303 4324 5313 0251 6715 1725 6324 1240 6305 3240 
6325 7322 6311 4323 4305 6704 5212 0303 5240 0240 5240 0240 5240 0240 6640 4702 
6240 4324 6705 2640 6723 1305 4256 5215 4303 5215 5303 0240 5240 0240 5240 0240 
6715 2305 6310 2317 6215 1612 5240 0240 5240 0240 5240 0240 6240 2640 6326 6301 
6725 2301 6311 7317 6640 1711 6240 7704 5316 0305 5302 0331 6315 0705 5316 0323 
5317 0306 6701 1640 6725 2311 6301 6302 6731 1240 6305 4706 6316 2305 6640 2705 
6714 1305 6215 1612 5240 0240 5240 0240 5240 0240 6640 2240 6322 7301 6323 7706 
6322 0715 6324 7711 5316 0256 6706 1317 6240 2722 6706 1305 6305 1716 5305 0254 
6323 2705 6215 1612 5240 0240 5240 0240 5240 0240 6240 3240 5256 7302 6310 6311 
6304 1305 6322 7301 5304 0254 6711 2316 6322 2317 6725 2303 6311 7317 6240 7724 
6640 2716 6715 1305 6311 0703 6314 0640 6316 6301 6331 4723 4323 6654 5212 0303 
5240 0240 5240 0240 5240 0240 6240 1715 6307 0722 6327 4257 6311 6314 6254 7240 
5305 0327 6731 1317 6713 2257 6317 7722 6316 7724 6257 7714 6316 7704 5316 0254 
5661 2671 5266 0254 5320 7320 5661 2665 5655 3261 5260 0254 6301 2316 6215 1612 
5240 0240 5240 0240 5240 0240 6640 0240 6256 7240 6701 1325 6654 1240 6305 7720 
5322 0324 5317 0316 6324 2710 6240 6301 6707 1317 6311 4324 6315 1711 6240 0714 
6716 2707 6301 2707 6240 6301 6307 6317 5640 0266 4254 5215 5303 0240 5240 0240 
5240 0240 5240 0240 6303 1701 5315 0254 6326 6317 5256 6263 6640 1711 5723 2656 
5640 0650 5671 0266 5251 0254 5320 7320 5663 0661 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 2304 6305 6325 
6240 3250 5303 6324 6323 6725 6254 0715 6330 2654 5320 6323 6711 1305 4251 5215 
4303 5215 5240 0240 5240 0240 6304 6711 6705 1716 6311 7317 5240 4331 5261 4665 
5215 0212 5240 0240 6240 2240 6317 1325 5314 0305 6320 2722 6703 1711 6311 7317 
6240 1706 6724 1654 5325 6315 6331 0654 5315 6316 6701 0315 6215 1612 6215 1612 
5240 0240 5240 0240 6640 2240 6705 2323 6240 7317 6640 1327 6317 3716 6240 7311 
6720 2325 6240 0720 6322 6701 6305 2724 6322 6640 4301 6730 4212 6703 5212 0240 
5240 0240 6240 3311 6250 0715 5730 0651 5254 6261 4262 5215 5240 0240 5240 0261 
6711 1305 5675 0655 5215 0212 5240 0240 6240 3640 6317 7724 5640 1261 6215 1612 
6215 1612 5240 0240 5240 0240 6240 4640 6716 2311 6311 6301 6311 2732 6640 2705 
6714 1305 6640 1324 6701 1716 6706 1317 6715 2301 6311 7317 6215 1612 5215 0212 
5240 0240 6262 4640 5705 6722 4261 5215 5240 0240 5240 0240 5711 0675 5215 0212 
5240 0240 6240 6640 4275 6661 5212 0240 5240 0240 5640 6716 4261 5215 5240 0240 
5240 0240 5731 0650 6251 3275 5303 4324 4316 6651 5212 0240 5240 0240 6640 2723 
6715 4675 5250 4661 5652 2656 4304 6660 4212 6703 5212 0303 5240 0240 5240 0240 
6640 2323 6701 2322 6640 2705 6714 1305 6255 7714 4317 6720 4212 6703 5212 0240 
5640 1640 5640 6712 4260 5215 5240 0240 5240 0264 6311 4675 4253 6661 5212 0240 
5240 0240 6240 3311 5250 6711 6715 4301 5251 6265 5665 0654 4262 5215 5240 0240 
5240 0265 6316 4675 5215 0212 5240 0240 6240 0640 5715 6716 6706 2303 5250 4716 
5215 0212 5240 0240 6240 2240 5717 3240 5640 6713 6261 6654 5215 0212 5240 0240 
6240 0640 5715 6720 6250 6701 6716 4653 5250 4713 5251 7252 5665 0304 5215 0212 
5240 0240 6640 4640 5250 4713 6275 6701 4316 5215 5240 0240 5240 0266 6301 7315 
6275 6701 4320 5215 4303 5215 5303 0240 5240 0240 5240 0240 6303 2710 5303 0313 
6305 6325 5305 0322 6324 0722 6316 3323 6317 6722 6301 4724 4317 6716 4212 6703 
5212 0240 5240 0240 6240 3311 6250 0704 5302 4323 6301 7315 6251 2255 6701 1702 
5250 4331 5315 4651 5251 6267 5671 4654 5215 0212 5240 0240 6267 4640 6306 6650 
5655 2661 5251 6270 5671 4654 5215 0212 5240 0240 6270 6640 5275 5715 4261 5215 
5240 0240 5240 0240 6331 6650 6251 0675 4315 6716 5212 0240 5240 0240 6240 6701 
5316 7275 5665 0304 6252 6701 4316 5215 4303 5215 5303 0240 5240 0240 5240 0240 
6325 2320 6301 2724 6640 2723 4315 5215 4303 5215 5240 0240 5240 0271 6323 6725 
6675 2723 6315 0653 4315 6716 5212 0240 5240 0240 6240 3311 6250 1301 6723 1650 
6316 6307 6250 6701 5316 4651 6655 0305 6323 0652 5302 4323 6323 3716 6714 1650 
5325 4715 5651 0651 5660 0654 5660 1654 6215 1612 6215 1612 5240 0240 5240 0240 
6640 2240 6705 2323 6240 7305 6304 7640 6706 0240 6322 1717 6705 2704 4322 6705 
4212 6703 5212 0240 5640 0261 5640 6712 5712 0653 5215 0212 5240 0240 6240 4640 
6306 5250 5255 4665 5664 0654 5661 0654 4261 5215 5240 0240 5261 0261 6711 1305 
4275 6660 5212 0240 5640 1261 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 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