File DRTWI.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 1304 6324 4727 6215 1612 6215 1612 5240 0240 5240 0240 6640 0240 
6725 0322 6317 2723 6215 1612 5240 0240 5240 0240 5240 0240 6640 2240 6717 1640 
6717 3314 6305 3640 6305 2716 6322 6301 6240 7716 6316 4714 6316 0705 6322 2640 
6321 0725 6324 7711 5316 0323 5317 0306 6324 2710 6240 7706 5322 0315 6330 3275 
5303 4324 4330 6651 5212 0303 5240 0240 5240 0240 5240 0240 6640 4702 6240 2715 
6701 1716 6240 3317 6240 2727 6707 2323 6305 7311 5255 0323 6311 2724 6722 2301 
6311 7317 6240 2715 6324 7710 4304 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 1304 6324 4727 6640 4250 6254 0726 6314 3254 5303 6324 6730 2323 6654 0305 
6323 4654 6305 2316 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 5330 0240 5240 0240 5240 0255 6704 2717 6302 2714 6640 1320 6305 4703 
6323 7711 6716 1240 6705 2723 6314 0724 5316 0324 6322 7717 6324 7640 6306 2640 
6321 0725 6324 7711 4316 5215 5303 0240 5240 0240 5240 0240 5240 0240 5240 0240 
5240 0240 5240 0240 6330 3275 5303 4324 5330 7251 6215 1612 5240 0240 5240 0240 
5240 0240 6640 3240 5301 0314 5240 0240 6255 2240 6317 1325 5314 0305 6320 2722 
6703 1711 6311 7317 6240 2722 6323 6325 6324 7301 6724 3240 6701 2714 6305 7640 
6706 4240 6255 1706 6724 4250 4251 5215 5303 0240 5240 0240 5240 0240 5240 0240 
5240 0240 5240 0240 5240 0240 5301 0324 6322 7717 6724 4240 4256 5215 5303 0240 
5240 0240 5240 0240 5240 0240 6706 2303 5240 0240 5240 0255 6316 6701 6305 7640 
6706 2240 5310 0305 6705 2330 6305 7322 5301 0314 6704 2717 6302 2714 6640 1320 
6305 4703 6323 7711 6316 3240 6325 1716 6324 7711 4316 5215 5303 0240 5240 0240 
5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 6323 1325 6320 7722 6307 0722 
6715 2640 6323 2305 4256 5215 5303 0240 5240 0240 5240 0240 5240 0240 6730 2323 
5240 0240 5240 0255 6704 2717 6302 2714 6640 1320 6305 4703 6323 7711 6316 4640 
6716 2720 6724 3240 6701 2714 6705 3640 6310 1711 6710 1640 6320 1705 6311 4706 
5305 0323 6324 2710 6215 1612 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 
5240 0240 6240 4640 6716 2311 6311 6301 6640 2707 6705 1723 6240 3317 6240 4324 
6705 1240 6717 2317 5240 7330 6215 1612 5240 0240 5240 0240 5240 0240 6240 2640 
5320 0323 5240 0240 6655 1640 6311 3716 5314 0305 6320 2722 6703 1711 6311 7317 
6240 7311 6720 2325 6240 0726 6314 2725 6240 4327 6311 4303 6640 0323 6305 4703 
6306 2711 6723 2240 4310 6705 5212 0303 5240 0240 5240 0240 5240 0240 5240 0240 
5240 0240 5240 0240 6640 0325 6720 1305 6240 7702 6325 2316 6240 3317 6240 4324 
6305 2640 6322 7722 6322 7640 6706 1240 6705 2723 5314 0324 4330 6656 5212 0303 
5240 0240 5240 0240 5240 0240 6240 2711 5316 0304 5240 6640 6240 0715 6330 6711 
5325 0315 6316 6725 6702 1305 6240 3317 6640 2311 6305 0722 6324 7711 6716 1640 
6724 0305 6723 1640 6320 1705 6311 4706 5305 7304 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 6640 1701 
6240 7706 6314 7714 4327 6723 5212 0303 5240 0240 5240 0240 5240 0240 5240 0240 
5240 0240 5240 0240 6240 4640 5705 6722 5260 6640 6240 7716 6640 1305 6722 1317 
4254 5215 5303 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 
6240 2711 5722 0675 5240 0255 5316 0317 6303 7317 6726 1305 6307 7305 5303 0305 
6701 2306 5305 0322 6311 7305 6304 4640 6724 1305 6301 4724 5317 0316 6323 2724 
5320 6323 6215 1612 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 
5240 0240 6711 1305 5275 0262 6255 0640 6324 0640 5316 0331 6311 2724 6722 2301 
6311 7317 6640 2323 5305 0320 6324 2710 6240 2704 6316 6717 6311 0716 6724 1317 
6240 3317 6215 1612 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 
5240 0240 5240 0240 5240 0240 6240 4640 6724 1305 6301 4724 5317 0316 6706 1317 
6315 6325 6701 3640 5301 0323 6705 2721 5301 0314 5324 0317 6732 1305 4317 6656 
4212 6703 5212 0303 5240 0240 5240 0240 6240 2722 6715 1301 4313 6723 5212 0303 
5240 0240 5240 0240 5240 0240 6240 4324 6705 0240 6322 1717 6705 2704 5322 0305 
5311 0323 6702 0331 6701 1723 5305 0304 6301 2316 6240 4707 6726 1705 6240 4324 
6305 2640 6322 7722 6322 6640 6705 1723 6301 2707 6240 2711 5722 1275 6215 1612 
5240 0240 5240 0240 5240 0240 6240 4640 6306 0640 6324 0640 5316 0331 6311 2724 
6722 2301 6311 7317 6640 2323 5305 0320 6324 2710 6240 2704 6316 6717 6311 0716 
6724 1317 6240 3317 6640 2311 6305 0722 6324 7711 4316 5215 5303 0240 5240 0240 
5240 0240 5240 0240 6706 1317 6315 6325 6701 3640 5301 0323 6705 2721 5301 0314 
5324 0317 6732 1305 5317 0256 6324 0710 6324 6640 6305 7301 6723 2240 6710 2301 
6240 4324 6305 2722 6640 1711 6640 2301 6215 1612 5240 0240 5240 0240 5240 0240 
6240 6240 6705 1701 6324 7640 5316 0305 6320 4717 5316 0324 5311 0316 6324 2710 
6240 0722 6316 2707 6240 7311 6240 4327 6311 4303 6640 2311 6305 0722 6324 7711 
6316 6640 6317 2726 6723 3640 6311 4324 6215 1612 5240 0240 5240 0240 5240 0240 
6240 2240 6305 4722 6726 2301 6311 2726 6240 3317 6240 1706 6724 4250 6251 2640 
6321 0725 6714 2240 5717 0640 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 
6704 2717 6302 2714 6640 1320 6305 4703 6323 7711 6316 3240 6325 1716 6324 7711 
6716 1640 6725 0302 6322 3717 6322 6701 6240 1706 6724 4250 4251 5215 5303 0240 
5240 0240 5240 0240 5240 0240 6715 1725 6324 1240 6305 3240 6325 7322 6311 4323 
5305 0304 5302 0331 6324 2710 6640 1725 5305 7322 6215 1612 6215 1612 5240 0240 
5240 0240 6240 6640 6305 4324 4317 6704 5212 0303 5240 0240 5240 0240 5240 0240 
6240 7723 6714 2325 6311 7317 6240 3317 6640 0705 6725 2301 6311 7317 5640 6730 
6706 2303 5250 4730 6640 1711 6240 7704 5316 0305 5302 0331 6315 0705 5316 0323 
4317 6706 5212 0303 5240 0240 5240 0240 5240 0240 6240 2727 6707 2323 6305 7311 
5255 0323 6311 2724 6722 2301 6311 7317 6240 2715 6324 7710 5304 0254 6327 4710 
5303 0310 6323 0724 6722 1724 6640 2301 6240 4324 6305 4640 6716 2311 6311 6301 
6215 1612 5240 0240 5240 0240 5240 0240 6240 3640 6725 1705 6723 4240 5323 0324 
5317 0306 6701 1240 6717 2317 5240 7330 6240 7317 6305 4640 6724 1305 6301 4724 
5317 0316 6323 2724 6720 1240 6705 2721 6311 2722 6323 7640 4316 6705 5212 0303 
5240 0240 5240 0240 5240 0240 6640 3305 6701 2714 6301 4724 5317 0316 5317 0306 
6706 2303 5250 4730 6256 3240 5317 0322 6724 1705 6324 7640 6716 1640 6301 4724 
6323 0706 6303 7724 5322 0331 6301 1703 6325 0722 5303 0331 6323 2705 6215 1612 
5240 0240 5240 0240 5240 0240 6240 3240 6317 6722 6325 0714 5305 4240 5262 0251 
5317 0306 6715 2301 6310 6705 6301 4724 6303 6301 6240 2704 6723 1303 6711 2320 
6311 7317 4256 5215 5303 0240 5240 0240 5240 0240 5240 0240 6706 1317 6240 2722 
6706 1305 6305 1716 5305 0254 6323 2705 6215 1612 5240 0240 5240 0240 5240 0240 
5240 4240 5261 0251 5307 0256 5316 0256 6314 7301 5303 6305 6640 2716 6715 1305 
6311 0703 6314 6640 6305 4324 6717 1704 6240 7706 6322 4240 6311 4307 6640 0323 
6305 2305 6240 7703 6715 2720 6724 1305 4323 6654 5212 0303 5240 0240 5240 0240 
5240 0240 5240 0240 6240 4640 6314 3311 5306 6305 6240 7714 6316 7704 5316 0254 
5661 3271 5260 0254 5320 7320 5661 2263 5655 1661 4270 6654 5212 0303 5240 0240 
5240 0240 5240 0240 5640 1250 6251 5240 6656 3640 6705 1707 6324 4705 5316 0254 
6301 3714 6317 4722 6324 6710 5240 6262 6240 0703 5303 6315 6240 7726 5714 1656 
6254 4640 5323 7323 5262 4240 5661 3271 5260 6251 6215 1612 5240 0240 5240 0240 
5240 0240 5240 0240 5240 0240 5320 7320 5267 6264 6215 1612 5240 0240 5240 0240 
5240 0240 5240 4240 5263 0251 6310 1656 6656 2240 6310 1701 6710 1305 6254 0640 
6314 7707 6722 2311 5310 0315 5261 6265 6240 0703 5303 6315 6240 7726 5714 1656 
6254 4640 5323 7323 5270 4240 5661 3271 5260 6251 6215 1612 5240 0240 5240 0240 
5240 0240 5240 0240 5240 0240 5320 7320 5664 2667 4254 5215 5303 0240 5240 0240 
5240 0240 5240 0240 5250 4664 5240 7312 5307 0256 6710 1305 6322 7711 5324 0254 
6301 3714 6317 4722 6324 6710 5640 3262 6254 1640 6301 6703 6654 3240 5317 7314 
5263 0254 6711 1723 5656 0661 5640 0650 5671 0266 4251 6654 5212 0303 5240 0240 
5240 0240 5240 0240 5240 0240 6640 0240 5720 3256 5260 7263 6215 1612 6215 1612 
5240 0240 5240 7240 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 6656 
4212 6703 5212 0240 5240 0240 6640 2723 6302 7722 6325 4724 5316 0305 6704 2322 
5327 4311 6730 3254 5301 6314 6706 2303 6654 1730 6324 2654 5320 6323 6311 7305 
6304 4654 5305 4722 6215 1612 6215 1612 5215 0212 5240 0240 6240 2240 6317 1325 
5314 0305 6320 2722 6703 1711 6311 7317 5240 6330 6326 6301 6254 1706 6724 4254 
5323 6324 6301 1254 5254 6304 6324 6317 6215 1612 6215 1612 5240 0240 6640 0240 
6722 0305 6301 2722 6640 2311 6305 0722 6324 7711 4316 5215 5240 0240 5240 0240 
6711 1305 4275 6660 5212 0240 5240 0240 6240 7724 6714 4275 4323 6724 5212 0240 
5240 0240 5640 6730 6706 2303 6250 7724 4314 6651 5212 0240 5240 0240 5640 6701 
6730 4255 4323 6724 5212 0240 5240 0240 5640 6702 4255 6701 5212 0240 5240 0240 
6240 7724 6714 4275 5215 0212 5240 0240 6640 3240 5701 6714 6330 3255 5303 4324 
6324 6317 4251 5215 4303 5215 4303 5215 5303 0240 5240 0240 6323 0724 5322 0324 
6311 2724 6722 2301 6311 7317 6240 7714 4317 6720 5212 0240 5240 0240 6240 7704 
5240 0266 5711 0675 6254 2711 4316 6704 5212 0240 5240 0240 6240 3311 6250 0726 
5714 0651 5254 6267 4261 5215 4303 5215 5303 0240 5240 0240 6705 2721 6301 4724 
5317 0316 5311 0323 6716 2317 6240 0723 6724 1711 6306 2711 6304 1240 6731 4240 
5215 0212 5240 0240 6261 1240 5275 7702 6326 6301 5255 7261 4304 6660 5212 0240 
5240 0240 6240 3311 5250 4702 5662 4254 4254 6662 4212 6703 5212 0303 5240 0240 
6640 2311 6305 0722 6324 7711 6316 4640 6723 0240 6717 1723 6311 6302 4305 5215 
5240 0240 5240 0262 6301 0675 4257 6702 5212 0240 5240 0240 5640 6730 6330 0653 
5215 0212 5240 0240 6240 1240 6275 0726 4314 5215 5240 0240 5240 0240 6324 6317 
4275 6730 5212 0240 5240 0240 6240 0726 6714 4275 6255 1706 6724 2250 5317 4714 
6215 1612 6215 1612 5240 0240 6640 2240 6705 2323 6240 7317 6240 0723 6724 1711 
6306 1701 6724 1317 6331 0640 6703 2703 6322 1701 4331 5215 5240 0240 5240 0240 
6324 6317 6675 0305 4323 5215 5240 0240 5240 0240 6304 2275 6701 1702 5250 4730 
5215 0212 5240 0240 6240 4640 6306 2250 5255 7261 5304 4660 5664 2254 4254 6663 
5212 0240 5640 1640 6240 7724 6714 2275 5317 5314 4304 5215 5240 0240 5240 0264 
5311 4306 6304 1301 6323 0650 6651 2255 5317 4714 5665 2654 4254 6666 5212 0240 
5640 2640 6240 3311 6250 0704 5302 4323 6326 6301 5651 0655 5656 0704 6252 7724 
5714 3651 5254 6267 4266 5215 5240 0240 5240 0266 6303 7317 6324 7311 4325 6705 
5212 0303 5240 0240 6240 7305 6304 7640 6306 4640 6724 1305 6301 4724 5317 0316 
6314 7717 4320 5215 4303 5215 4303 5215 5303 0240 5240 0240 5316 0317 6303 7317 
6726 1305 6307 7305 5303 0305 6701 2306 5305 0322 6311 7305 6304 4640 6724 1305 
6301 4724 5317 0316 6323 2724 5320 7323 6640 1305 6722 1317 6240 2722 6724 1325 
4316 6656 5212 0240 5240 0240 6240 2711 5722 0675 5215 0212 5240 0240 6667 1240 
6705 2724 4322 6716 4212 6703 5212 0303 5240 0240 6640 1305 6722 1317 6240 2722 
6724 1325 6316 4640 6316 1640 6301 2723 6240 3317 6240 2732 5322 0317 6704 3311 
6311 7723 4322 5215 5240 0240 5240 0270 6711 1305 4275 6662 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 



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