File FORIT.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 6722 2311 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 6720 1305 6311 2317 
6311 0703 6714 4714 6240 0724 6302 6325 6301 2724 6304 3240 6325 1716 6324 7711 
4316 6656 5212 0303 5240 0240 5240 0240 5240 0240 6240 7703 6715 2720 6724 1705 
6240 4324 6305 1640 6317 3305 6306 1711 6311 7305 5324 0323 5317 0306 6324 2710 
6240 2704 6723 1311 5305 0304 6316 6725 6702 1305 6240 3317 6240 2724 6722 1715 
6215 1612 5240 0240 5240 0240 5240 0240 6240 4640 6716 2240 5310 0305 6706 2717 
6322 2711 6722 1640 6305 4722 5305 0323 6706 4250 6251 0675 5250 4660 6653 2723 
6315 0650 5250 4713 6703 1717 6640 4313 5253 4302 6713 1651 5311 0316 5313 4730 
6215 1612 5240 0240 5240 0240 5240 0240 6640 3640 6710 1305 6305 5640 5275 6261 
5262 7254 5256 6256 6715 2240 6317 0640 6720 1320 6317 4730 6715 2301 6305 0640 
6240 4707 6326 7305 6240 2723 6324 7640 4306 5215 5303 0240 5240 0240 5240 0240 
5240 0240 6720 1305 6311 2317 6311 0703 6714 4714 6240 0724 6302 6325 6301 2724 
6704 3240 6701 2714 5305 0323 5317 0306 6301 3240 6325 1716 6324 7711 4316 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 6240 7706 6722 2311 6250 7306 6324 7254 
5254 6315 6301 1254 6254 2711 4322 6651 4212 6703 5212 0303 5240 0240 5240 0240 
6240 2704 6723 1303 6711 2320 6311 7317 6240 3317 6240 0720 6322 6701 6305 2724 
4322 6723 5212 0303 5240 0240 5240 0240 5240 0240 6240 7306 6724 3255 6705 2303 
5317 0322 5317 0306 6324 1301 6325 0714 6324 2305 6640 2706 6716 2303 6311 7317 
6240 0726 6314 2725 6323 7640 6306 6240 6305 3716 5324 0310 5262 5716 4261 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 6715 4301 6711 2715 6315 7640 
6322 2704 6322 7640 6306 4240 6301 6722 6317 4716 5303 0323 5324 0317 5302 0305 
6706 2311 6324 2305 6215 1612 5240 0240 5240 0240 5240 0240 6240 0640 5240 6640 
6722 1705 6725 2314 6701 2316 6240 2726 6303 7724 6322 7640 6306 3240 6717 1325 
6711 1305 6240 7703 6323 7311 6305 1640 6317 3305 6306 1711 6311 7305 5324 0323 
4317 6706 5212 0303 5240 0240 5240 0240 5240 0240 5240 0240 6240 6240 6305 3716 
5324 0310 5715 0653 6215 1612 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 
6701 1640 5325 0302 5260 0254 6701 1640 5325 0302 5261 7254 5256 6256 5240 0301 
6323 1325 4240 6715 5212 0303 5240 0240 5240 0240 5240 0240 5240 0302 6640 1255 
6705 2723 6314 0724 5316 0324 6326 1705 6724 1317 6240 3317 6240 7706 6325 4722 
5305 0322 6323 7311 6305 1640 6317 3305 6306 1711 6311 7305 5324 0323 4317 6706 
5212 0303 5240 0240 5240 0240 5240 0240 5240 0240 6240 6240 6305 3716 5324 0310 
5715 0653 6215 1612 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 6702 1640 
5325 0302 5260 0254 6702 1640 5325 0302 5261 7254 5256 6256 5240 0302 6323 1325 
4240 6715 5212 0303 5240 0240 5240 0240 5240 0240 6240 2711 6722 1255 6705 2723 
6314 0724 5316 0324 6705 1322 5317 0322 6303 2317 6705 3640 6710 1305 4305 5215 
5303 0240 5240 0240 5240 0240 5240 0240 5240 0240 6240 2711 5722 0275 6240 7240 
6317 2640 6322 7722 4322 5215 5303 0240 5240 0240 5240 0240 5240 0240 5240 0240 
6240 2711 5722 0675 6240 7240 6240 7716 6324 3640 6322 0705 6724 1305 6640 1317 
6640 0705 6325 6301 6240 7724 4240 6715 5212 0303 5240 0240 5240 0240 5240 0240 
5240 0240 6240 4640 5705 6722 5262 0240 6315 6240 6705 1723 6240 4324 5301 0316 
4260 5215 4303 5215 5303 0240 5240 0240 5240 0240 6322 6705 6301 5722 4323 5215 
5303 0240 5240 0240 5240 0240 5240 0240 6315 6640 6725 2323 6240 2702 6640 1307 
6705 2301 5305 0322 6324 0710 6316 7640 6322 2640 6321 0725 6714 2240 6717 5240 
6305 7722 6215 1612 5240 0240 5240 0240 5240 0240 6240 7240 6640 2715 5323 0324 
5302 0305 6307 2722 6301 2724 6722 2240 6310 7301 6640 1317 6640 0705 6325 6301 
6240 7724 4240 6715 5212 0303 5240 0240 5240 0240 5240 0240 6240 4324 6305 3240 
6711 1722 6324 2640 6314 6705 6705 2316 6240 3317 6240 2726 6303 7724 6322 1240 
6640 1711 6240 2732 5322 0317 5311 0316 6301 6314 6240 0703 6723 1705 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 7716 
4316 6705 4212 6703 5212 0303 5240 0240 5240 0240 6240 2715 6324 7710 4304 5215 
5303 0240 5240 0240 5240 0240 5240 0240 6325 2723 6723 1240 6705 2703 6322 4723 
5326 0305 6324 1705 6310 4716 6321 2725 6240 2704 6723 1303 6311 2702 6304 4640 
6316 0640 6656 1240 6701 1714 6324 7317 6254 4240 6656 3640 6311 3314 4254 5215 
5303 0240 5240 0240 5240 0240 5240 0240 6247 0715 6324 2710 6715 2301 6311 0703 
6314 6640 6305 4324 6717 1704 6240 7706 6322 2240 6311 4707 6324 6301 6240 7703 
6715 2720 6724 1305 5323 6247 6240 7712 5310 0316 6327 6311 4305 6731 5212 0303 
5240 0240 5240 0240 5240 0240 6240 7301 6704 1640 6717 1716 6254 7240 5305 0327 
6731 1317 5313 0254 5661 3271 5260 0254 6303 0710 6320 2724 5722 1240 5264 0256 
6324 2710 6240 2715 6324 7710 6304 7640 6306 4640 6316 2704 6330 7311 4307 5215 
5303 0240 5240 0240 5240 0240 5240 0240 6724 1310 6317 3725 6710 2240 5310 0305 
6320 7722 6303 2305 6325 2722 6240 0710 6323 1240 6305 7305 6240 7715 6304 3311 
6311 2305 6240 7724 6240 4723 6315 6320 6711 4706 6240 4324 4305 5215 5303 0240 
5240 0240 5240 0240 5240 0240 6303 6717 6720 2325 6301 4724 5317 7316 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 
6706 1317 5311 4324 6706 2316 5254 6316 6315 0654 5254 6302 6711 1305 4251 5215 
5240 0240 5240 0240 6304 6711 6705 1716 6311 7317 5240 4301 5261 6251 5702 0650 
6251 3254 5316 4324 4261 6651 4212 6703 5212 0303 5240 0240 5240 0240 6240 4303 
6305 5703 6240 7706 6722 0240 6301 0722 6715 2305 5305 0322 6705 1322 6717 1722 
6215 1612 5215 0212 5240 0240 6240 4640 5705 6722 4260 5215 5240 0240 5262 0260 
5311 4306 5315 0251 5263 6260 5264 6260 4264 6660 5212 0240 5640 0263 6240 2711 
5722 1275 5215 0212 5240 0240 6640 1240 6705 2724 4322 6716 5212 0240 5640 0264 
6240 3311 5250 6715 5316 0251 5266 6260 5266 6260 4265 6660 5212 0240 5640 0265 
6240 2711 5722 0675 5215 0212 5240 0240 6640 1240 6705 2724 4322 6716 4212 6703 
5212 0303 5240 0240 5240 0240 6240 7703 6715 2720 5324 0305 6301 2316 6640 1320 
6305 2723 6324 1640 6717 1716 6324 7301 4324 6723 4212 6703 5212 0240 5640 0266 
6240 7301 4275 6716 5212 0240 5240 0240 6240 7703 5705 6706 5662 0256 5657 1250 
5256 5260 5301 5716 5661 0256 4251 5215 5240 0240 5240 0240 6303 7317 5723 6724 
5663 0656 5664 2661 5271 5263 6303 2717 4306 5215 5240 0240 5240 0240 5723 6661 
6323 7311 6250 7703 6716 2323 4251 5215 5240 0240 5240 0240 5703 6661 6703 1717 
6250 7703 6716 2323 4251 5215 5240 0240 5240 0240 5703 0675 4256 6660 5212 0240 
5240 0240 5640 6723 5660 0256 5215 0212 5240 0240 6240 5240 4275 6661 5212 0240 
5240 0240 6240 7306 5724 6732 6706 2316 5250 4661 5215 0212 5640 3640 6660 2640 
5662 0275 4256 6660 5212 0240 5240 0240 5640 0725 5275 7260 4260 5215 5240 0240 
5240 0240 5711 1275 5252 5716 4261 5215 4303 5215 5303 0240 5240 0240 5240 0240 
6706 1317 6315 3240 6717 1325 6711 1305 6240 7703 6305 3306 6311 4703 6705 2316 
6723 1240 6705 2703 6322 4723 6326 6305 4331 5215 4303 5215 5240 0240 5267 0265 
5725 6660 6706 2316 5250 4711 5253 7262 6260 1652 5652 0725 5655 1325 5215 0212 
5240 0240 6640 2640 6662 2675 4261 5215 5240 0240 5240 0240 5725 6661 4325 6660 
5212 0240 5240 0240 5640 6711 5711 0655 5215 0212 5240 0240 6240 4640 6306 4650 
5255 4661 5640 0270 5654 0270 5654 2667 5215 0212 5640 4240 6260 0640 5250 4712 
6275 7703 5305 5306 6250 7306 5324 5732 6703 2652 6661 2655 4262 6651 5212 0240 
5240 0240 5240 4302 5712 6651 6303 2717 6706 1652 5652 0725 5215 0212 5240 0240 
6240 4640 6306 5250 6255 6650 5253 4661 5651 4640 5660 0654 5260 6260 5661 0260 
5215 0212 5640 4640 6660 0640 5675 0703 5252 6703 5323 5261 4323 5215 5240 0240 
5240 0240 6323 1675 6661 1652 5653 0723 4252 6703 5212 0240 5240 0240 5640 6703 
4321 5215 5240 0240 5240 0240 6312 5275 4253 6661 5212 0240 5240 0240 6240 7707 
6240 7724 5640 0267 5215 0212 5640 0261 6260 0640 5250 4661 5275 4301 5261 5251 
5660 2656 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 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 
4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 
4200 0200 4200 0200 4200 0200 4200 0200 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