File FORIF.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 6240 7706 6322 3311 6215 1612 6215 1612 5240 0240 5240 0240 6640 0240 
6725 0322 6317 2723 6215 1612 5240 0240 5240 0240 5240 0240 6240 3240 6717 1325 
6711 1305 6240 7301 6701 4714 6723 1711 6240 3317 5240 0301 6707 3311 5305 0316 
6720 1305 6311 2317 5311 0303 6306 7325 6303 4724 5317 0316 5311 0316 6324 2710 
6215 1612 5240 0240 5240 0240 5240 0240 6640 1240 6301 3716 5705 0240 6655 0262 
4311 5215 5303 0240 5240 0240 5240 0240 5240 0240 6303 6717 6720 2325 5305 0323 
6324 2710 6240 7703 6305 3306 6311 4703 6705 2316 6323 7640 6706 2240 5310 0305 
6704 1705 6311 2722 6304 7240 6325 1315 5305 0322 5317 0306 6724 1305 4315 6723 
5212 0303 5240 0240 5240 0240 5240 0240 6240 7311 6240 4324 6305 3240 6717 1325 
6711 1305 6240 2723 6322 2711 6323 3240 5250 4730 5275 4301 5260 5651 6323 6725 
5250 4301 6313 1651 5317 0323 5313 5730 6302 5650 6251 4723 6316 5640 4330 6651 
5212 0303 5240 0240 5240 0240 5240 0240 6240 4327 6305 2722 5640 6713 5661 1254 
5254 7256 6256 6654 6240 7724 6640 0301 6320 7722 6330 6711 6301 2724 6240 4324 
6305 1640 6717 0315 6325 2724 6704 3240 6701 2714 5305 0323 5317 0306 4301 5215 
5303 0240 5240 0240 5240 0240 5240 0240 6707 3311 5305 0316 6306 7325 6303 4724 
5317 0316 6323 1325 6320 7722 6307 0722 4315 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 6706 1317 5311 4306 6306 7325 5254 6316 6315 0654 5254 6302 6711 1305 
4251 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 6306 7325 6255 0716 5315 0305 5317 0306 6306 7325 6303 4724 
5317 0316 6323 1325 6320 7722 6307 0722 6715 2240 6317 1240 6705 2640 6323 2305 
6240 7706 6322 1640 6717 0315 6325 4724 4316 6707 5212 0303 5240 0240 5240 0240 
5240 0240 5240 0240 6240 2240 6301 0724 6240 7720 6711 2316 4323 5215 5303 0240 
5240 0240 5240 0240 5240 0240 5316 0240 6255 2704 6306 7311 5305 0323 6324 2710 
6240 7311 6724 1305 6326 6301 6640 2723 5303 0310 6324 0710 5724 1240 5716 0653 
6240 7720 6711 2316 6323 0640 5322 0305 6324 5701 4305 6716 5212 0303 5240 0240 
5240 0240 5240 0240 5240 0240 6240 7640 6726 1305 6240 4324 6305 4640 6316 2724 
6322 0726 5314 4240 5660 1254 5320 4711 6656 2240 5310 0305 6323 0720 6303 7311 
6307 4640 6723 2240 6710 1725 6640 0262 5711 1257 5716 0653 6215 1612 5240 0240 
5240 0240 5240 0240 6240 6640 5240 6640 6324 2710 6240 0715 6330 6711 5325 0315 
6317 2322 5305 0322 5317 0306 6324 2710 6240 0710 6322 7715 6316 1711 6723 2240 
6317 1240 6305 3240 6711 2324 4305 6704 5212 0303 5240 0240 5240 0240 5240 0240 
5240 0301 6640 1255 6705 2723 6314 0724 5316 0324 6326 1705 6724 1317 6240 3317 
6240 7706 6325 4722 5305 0322 6703 1717 6311 2716 6240 7703 6305 3306 6311 4703 
6705 2316 6323 7640 4306 5215 5303 0240 5240 0240 5240 0240 5240 0240 5240 0240 
6240 2714 6716 2307 6310 6640 4253 6661 5212 0303 5240 0240 5240 0240 5240 0240 
5240 0240 6240 0640 6640 2723 5702 0240 6254 0640 6640 2723 5702 0640 5254 7256 
5256 0254 6701 1640 5325 0302 4315 5215 5303 0240 5240 0240 5240 0240 5240 0240 
5302 0240 6255 2722 6323 6325 6324 7301 6724 3240 6705 2303 5317 0322 5317 0306 
6706 2717 6322 2711 6722 1640 6311 2716 6240 7703 6305 3306 6311 4703 6705 2316 
6323 7640 4306 5215 5303 0240 5240 0240 5240 0240 5240 0240 5240 0240 6240 2714 
6716 2307 6310 6640 4253 6661 5212 0303 5240 0240 5240 0240 5240 0240 5240 0240 
6240 1240 6640 2723 5702 0240 6254 1240 6640 2723 5702 0640 5254 7256 5256 0254 
6702 1640 5325 0302 4315 5215 5303 0240 5240 0240 5240 0240 5240 0240 6711 1305 
6255 2722 6323 6325 6324 7301 6324 2640 6322 7722 6322 1640 6317 2704 6240 4327 
6305 2722 6215 1612 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 6711 1305 
5275 0260 6240 7716 6640 1305 6722 1317 6215 1612 5240 0240 5240 0240 5240 0240 
5240 0240 5240 0240 6711 1305 5275 0261 5240 0316 6716 2317 6640 1307 6705 2301 
5305 0322 5317 0322 6705 2721 5301 0314 5324 0317 4315 5215 5303 0240 5240 0240 
5240 0240 5240 0240 5240 0240 6240 2711 5722 1275 6240 6640 6240 2714 5323 0323 
6324 0710 5716 0240 6215 1612 6215 1612 5240 0240 5240 0240 6640 1240 6305 0715 
6722 1713 6215 1612 5240 0240 5240 0240 5240 0240 6240 6640 6640 2715 5323 0324 
5302 0305 6307 2722 6301 2724 6722 2240 6310 7301 6640 1317 6640 0705 6325 6301 
6240 7724 6240 2732 4322 6717 5212 0303 5240 0240 5240 0240 5240 0240 5240 0316 
6715 1725 6324 1240 6305 3640 6322 0705 6724 1305 6240 4324 5301 0316 5317 0322 
6705 2721 5301 0314 5324 0317 4315 5215 5303 0240 5240 0240 5240 0240 5240 0240 
6324 2710 6240 4706 6722 2323 6240 6305 6305 2715 5316 0324 5311 0316 6326 1705 
6724 1317 5240 0302 5311 0323 6732 1305 6317 4640 6316 0640 5314 0314 6703 1701 
4305 6723 4212 6703 5212 0303 5240 0240 5240 0240 6640 2723 6302 7722 6325 4724 
6716 1705 6240 7301 6304 3240 6325 1716 6324 7711 6716 1640 6725 0302 6322 3717 
6322 6701 6723 1240 6705 2721 6311 2722 4304 5215 5303 0240 5240 0240 5240 0240 
5240 0240 6306 7325 6255 0716 5315 0305 5317 0306 6325 2723 6322 3240 6325 1716 
6324 7711 6716 1640 6725 0302 6322 3717 6322 6701 6640 1725 5305 0304 6706 1317 
6240 7703 6715 2720 6324 7311 4307 5215 5303 0240 5240 0240 5240 0240 5240 0240 
5240 0240 6240 0704 5324 0301 6320 4717 6716 1724 6215 1612 5240 0240 5240 0240 
5240 0240 6240 1640 6301 6314 6311 3716 6640 1320 6717 1307 5301 0315 6715 1725 
6324 4240 6301 2726 6240 7706 6722 1324 5301 0316 6705 2330 6305 7322 5301 0314 
6323 0724 6324 6705 6705 2316 6215 1612 5240 0240 5240 0240 5240 0240 6240 1640 
6717 2316 6301 7311 6311 3716 6240 0716 6715 1705 6240 3317 6640 2706 6716 2303 
6311 7317 6640 2723 6702 1320 6717 1307 6701 1715 6240 4714 6323 2724 6304 4640 
6316 1640 6301 6314 6240 7724 6215 1612 5240 0240 5240 0240 5240 0240 6240 3240 
6317 4722 4306 5215 4303 5215 5303 0240 5240 0240 5240 0240 6715 2305 6310 2317 
6215 1612 5240 0240 5240 0240 5240 0240 6640 2640 6723 1705 6240 2722 6703 1325 
6723 3311 6705 2240 6305 4303 6716 0711 5325 0305 6704 1705 6303 4722 6302 2305 
6240 7311 5240 7301 6240 0722 6714 2323 5317 6316 5240 7310 6240 4727 5314 6306 
6215 1612 5240 0240 5240 0240 5240 0240 5240 3640 6715 2301 6310 6705 6301 4724 
6303 6301 6240 2715 6324 7710 5304 0323 6706 1317 6240 4704 6707 2311 5301 0314 
6303 6717 6720 2325 6705 1722 5247 0254 6312 4317 6716 3640 6311 2714 4331 5215 
5303 0240 5240 0240 5240 0240 5240 0240 6301 2316 6240 7723 5316 6323 6240 2716 
6727 4640 6317 5722 5654 0640 5671 0266 6254 1640 6710 0301 6724 1305 5640 2262 
6656 2240 5310 0305 6715 2305 6310 2317 6240 3317 6215 1612 5240 0240 5240 0240 
5240 0240 6240 4640 6316 2704 6330 7311 6707 2240 6310 7722 6325 4307 6240 4324 
6705 0240 6322 1717 6705 2704 5322 0305 6710 1701 6240 2702 5305 0316 6315 2317 
6311 4706 5305 0304 4324 6717 5212 0303 5240 0240 5240 0240 5240 0240 6240 4723 
6315 6320 6711 4706 6240 4324 6305 1640 6717 0315 6325 0724 6324 7711 4316 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 3240 6317 4722 6306 3250 5325 6316 6316 6654 5254 6301 6302 4654 5305 4722 
5215 0212 5240 0240 6240 2240 6311 2715 6316 4723 5317 0316 5701 0650 6251 1254 
5250 4661 6215 1612 6215 1612 5240 0240 5240 0240 6240 1640 6310 1705 6313 3240 
5317 0322 6720 1301 6301 2715 6724 1305 6640 1305 6722 1317 4323 5215 4303 5215 
5240 0240 5240 0240 6711 1305 4275 6660 5212 0240 5640 0262 6240 3311 5250 4715 
5640 0263 5654 0264 5654 0264 5215 0212 5640 1640 6260 4640 5705 6722 4262 5215 
5240 0240 5240 0240 6722 2305 6325 7322 5215 0212 5640 2240 6260 4640 6306 6650 
5255 4716 5640 0266 5654 0266 5654 0265 5215 0212 5640 2640 6260 4640 5705 6722 
4261 5215 5240 0240 5240 0240 6722 2305 6325 7322 6215 1612 6215 1612 5240 0240 
5240 0240 6240 1640 6717 0315 6325 2724 6240 7301 6704 0240 6722 1705 5305 0324 
6303 7317 6323 0724 6716 1724 6215 1612 5215 0212 5640 3240 6260 0640 6316 7275 
5215 0212 5240 0240 6240 1640 6317 3305 5275 7262 5260 4257 5662 0256 6252 7301 
5253 7261 4260 6651 5212 0240 5240 0240 6240 7703 6716 2323 5275 7263 5661 0664 
5665 1671 6252 7703 4305 6706 5212 0240 5240 0240 5640 0723 6275 4723 6316 1650 
6717 1716 4324 6651 5212 0240 5240 0240 5640 0703 6275 7703 6323 1650 6717 1716 
4324 6651 5212 0240 5240 0240 5640 6703 5661 0256 5215 0212 5240 0240 6640 1640 
5275 7260 4260 5215 5240 0240 5240 0240 5712 0675 5215 0212 5240 0240 6240 3240 
6725 5316 6675 2706 5716 0250 5256 4660 5215 0212 5640 3640 6660 2640 5662 0275 
4256 6660 5212 0240 5240 0240 5640 0725 5275 7260 4260 5215 5240 0240 5240 0240 
5701 6711 6262 7252 6215 1612 6215 1612 5240 0240 5240 0240 6240 3240 6317 6722 
6240 7706 6325 4722 5305 0322 6303 2717 6306 4706 6303 2711 6716 1724 6240 2722 
6703 1325 6723 3311 6705 4714 6215 1612 5215 0212 5640 3640 6665 4240 6275 4701 
6252 7703 6716 2323 5215 0212 5240 0240 6640 2640 6260 3275 5325 4316 5330 5651 
5662 0256 5252 5303 5325 6661 4325 6662 5212 0240 5240 0240 5640 1325 5675 0725 
5215 0212 5240 0240 6640 2640 6661 2675 4260 5215 5240 0240 5240 0240 5701 6711 
5301 6711 5661 0256 5215 0212 5240 0240 6240 4640 6306 0650 5311 0251 5270 6260 
5270 6260 4267 6665 5212 0240 5640 0270 5240 4301 5712 6651 6303 2717 5306 4252 
6306 7325 6332 1653 5652 0725 5655 1325 4251 5215 5240 0240 5240 0240 6302 5250 
6251 1675 6317 3305 5252 5323 4325 6661 5212 0240 5240 0240 6240 3311 5250 6712 
5250 5715 5261 4651 5640 0271 5654 0261 5660 0654 4260 6660 5212 0240 5640 0271 
5640 6721 5303 5261 6703 1655 6661 1652 5215 0212 5240 0240 6640 1640 5675 0703 
5252 5723 5323 5261 4303 5215 5240 0240 5240 0240 6703 0675 5215 0212 5240 0240 
6240 5240 5275 5712 4261 5215 5240 0240 5240 0240 5307 0317 5324 0317 4267 6660 
5212 0240 5661 0260 5240 4301 5661 6651 5701 0650 5651 0252 4256 6665 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 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