File FRAT.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 1306 4301 6724 4212 6703 5212 0303 5240 0240 5240 0240 6640 2720 
6322 7720 4323 6705 5212 0303 5240 0240 5240 0240 5240 0240 6640 1306 5301 0324 
5311 0323 6325 2723 6304 3240 5317 0322 6310 7301 6304 4714 5316 0307 5317 0306 
6704 2301 6301 0640 5316 0304 6306 7325 6304 6701 6705 2316 5301 0314 6306 7325 
6303 4724 6717 1716 6215 1612 5240 0240 5240 0240 5240 0240 6640 3640 6311 4324 
6240 0722 6324 7711 6316 6301 6640 0301 6320 7722 6330 6711 6301 4724 5317 7316 
6640 2311 6640 1711 5240 0301 6323 1325 6323 0724 6316 4724 5301 0314 6720 1301 
6324 7640 4306 5215 5303 0240 5240 0240 5240 0240 5240 0240 6722 2301 6311 7317 
5301 0314 6701 0320 6722 4317 6311 0715 6324 7711 6316 0640 5316 0304 6710 1701 
6240 7716 6240 2715 6301 4716 5316 0307 6311 2316 6305 2720 6316 2704 6316 6324 
4331 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 6306 0722 6324 4650 5254 6316 
6715 0254 6254 0704 5324 6311 6727 2307 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 5240 0311 
5240 0240 5240 0255 6323 1325 6723 1303 6711 2320 6240 3317 6640 2703 6322 2722 
5316 0324 6704 2301 6701 0240 6317 7311 4324 5215 5303 0240 5240 0240 5240 0240 
5240 0240 5316 0240 5240 0240 6255 7240 6325 1315 5305 0322 5317 0306 6301 6314 
6240 0704 5324 0301 6320 4717 6716 1724 6215 1612 5240 0240 5240 0240 5240 0240 
6240 6640 5240 0240 5240 6640 6640 2716 6315 2702 6322 7640 6306 3240 6325 2316 
6301 2715 6316 0724 6314 3240 6325 1716 6324 7711 5316 0323 6325 2723 4304 5215 
5303 0240 5240 0240 5240 0240 5240 0240 5320 0240 5240 0240 6255 0640 6322 0722 
6331 7640 6306 2240 6311 2715 6316 4723 5317 0316 5715 0653 6640 2301 6240 2714 
6701 2323 6654 3640 6310 1711 6310 1640 6717 2316 6301 7311 4323 5215 5303 0240 
5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 6240 7640 6716 1240 6705 2724 
5322 0316 6324 2710 6240 0726 6314 2725 6323 7640 6706 2240 5310 0305 6315 3240 
6325 2316 6301 2715 6316 0724 4314 5215 5303 0240 5240 0240 5240 0240 5240 0240 
5240 0240 5240 0240 6240 3240 6325 1716 6324 7711 5316 6323 6240 7706 6314 7714 
6327 2305 6640 4702 6640 2703 6322 2722 5316 0324 6306 7325 6303 4724 5317 0316 
6326 6301 4325 6705 5212 0303 5240 0240 5240 0240 5240 0240 6240 0704 5324 0311 
5240 0255 6701 1322 5301 0331 6303 7317 6324 4701 6316 7311 6307 3640 6311 2726 
6316 7240 6640 1301 6307 6725 6705 2316 5323 0254 6306 6317 6714 3717 4305 6704 
5212 0303 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 5302 0331 
6316 3240 6325 1716 6324 7711 6716 3240 6701 2714 5305 0323 6301 2316 6240 4706 
6316 6301 5314 0331 5302 0331 6661 1240 6705 0323 6705 2303 6311 2726 4314 6731 
5212 0303 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 6716 3640 
6305 3711 5310 0324 6326 6301 6725 1705 6215 1612 5240 0240 5240 0240 5240 0240 
6640 3640 5307 0324 5240 6640 6240 2722 6323 6325 6324 7301 6724 3640 6305 3711 
5310 0324 6306 1701 6724 1317 6640 1725 5305 0304 6706 1317 5240 6711 5324 0310 
6724 1305 4315 5215 5303 0240 5240 0240 5240 0240 5240 0240 6711 1305 5240 0240 
6655 1240 6705 2723 6314 0724 5316 0324 6705 1322 5317 0322 6720 1301 6301 2715 
6724 1305 6254 1640 6317 1315 6311 2716 6704 3640 6311 4324 6240 7311 6720 2325 
6215 1612 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 6240 0726 
6314 2725 6323 3240 5317 0322 6303 7317 6324 7722 4314 5215 5303 0240 5240 0240 
5240 0240 5240 0240 5240 0240 5240 0240 6240 4640 5305 4322 5262 0251 6315 0705 
5316 0323 6304 6711 6705 1716 6311 7317 6240 3317 6640 2716 6715 1305 6301 7724 
4322 5215 5303 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 6240 4640 
5305 4322 5263 0251 6315 0705 5316 0323 6304 6711 6705 1716 6311 7317 6240 3317 
6240 2704 6316 6717 6311 0716 6724 1317 6215 1612 5240 0240 5240 0240 5240 0240 
5240 0240 5240 0240 5240 0240 6240 2711 5722 0650 6251 4640 6723 2640 6323 2305 
6640 1701 6240 2722 6323 6325 6324 7301 6324 2640 6322 7722 6722 0240 6301 0722 
6715 2305 5305 6322 6215 1612 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 
5240 0240 6240 2711 5722 0650 5651 6640 5240 0260 5311 0316 6703 1701 6305 7640 
6306 7240 6317 2640 6322 7722 4322 6723 5212 0303 5240 0240 5240 0240 5240 0240 
5240 0240 5240 0240 5240 0240 6711 1305 5250 4661 5240 0275 6261 7640 6324 2710 
6322 4727 5323 0305 6250 2732 5322 0317 6304 7305 6317 4715 6716 2301 5317 4722 
6215 1612 6215 1612 5240 0240 5240 0240 6640 1240 6305 0715 6722 1713 6215 1612 
5240 0240 5240 0240 5240 0240 6640 3240 6705 2303 5317 0322 6711 1305 6640 1711 
6640 1725 5305 0304 6706 1317 6240 7703 6715 2715 6316 1711 6301 4724 5317 0316 
6702 2305 6327 2705 6316 0640 6722 2301 6240 7301 6304 3240 6722 2301 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 7303 
4320 5215 4303 5215 5303 0240 5240 0240 5240 0240 6715 2305 6310 2317 6215 1612 
5240 0240 5240 0240 5240 0240 6240 1640 5306 0256 6715 2301 6310 6705 6301 4724 
6303 6301 6240 2704 6723 1303 6711 2320 6311 7317 6240 3317 6640 2723 6302 7722 
6325 4724 5316 0305 6301 0722 4324 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 1306 5301 4324 6311 7254 5254 6315 
6320 2254 6301 4724 6254 3727 6324 4654 5305 4722 6215 1612 6215 1612 6215 1612 
5240 0240 5240 0240 6240 2240 6311 2715 6316 4723 6317 2716 6304 2240 6325 6715 
6731 3240 6301 4722 6301 6302 4305 6723 5212 0240 5240 0240 6240 4704 6315 7305 
6323 7711 6716 0240 5250 4661 6254 0704 5324 4311 5261 6251 6711 1305 5250 4661 
6215 1612 6215 1612 5240 0240 5240 0240 6240 4640 6716 2311 6311 6301 6311 0732 
6324 7711 4316 5215 5240 0240 5240 0240 5711 6720 6711 1305 5250 4662 5215 0212 
5240 0240 6240 4640 6321 4675 5305 4322 4263 6651 5212 0240 5240 0240 6640 0711 
5715 6661 5311 6721 4261 5215 5240 0240 5240 0240 6711 0720 6675 0311 6653 0711 
6215 1612 6215 1612 5240 0240 5240 0240 6240 6240 6317 5717 6640 0325 6640 1301 
6307 6725 6705 2316 6254 3240 6325 1716 6324 7711 6716 3240 6701 2714 6305 0640 
5316 0304 6327 4705 6707 2310 6215 1612 5240 0240 5240 0240 6240 6240 6317 5717 
6640 0325 6640 2716 6715 1305 6301 7724 6322 0640 5316 0304 6304 7305 6317 4715 
6716 2301 4317 6722 5212 0240 5240 0240 5640 6724 6704 2301 6311 4650 4251 5215 
5240 0240 5240 0240 6312 4675 4253 6716 5212 0240 5240 0240 5640 6706 6704 2301 
6311 5250 4251 5215 5240 0240 5240 0240 6706 2716 6715 0275 5250 4712 5215 0212 
5240 0240 6240 5240 5275 5712 4316 5215 5240 0240 5240 0240 6727 2307 5275 7261 
5215 0212 5240 0240 6240 4640 6306 2250 6301 4724 5250 5262 5716 0653 5651 1251 
5254 6262 4261 5215 5240 0240 5240 0261 6727 2307 6275 0704 5324 4311 4312 6651 
5212 0240 5640 1240 6240 2306 5705 6716 6320 5250 4251 5215 4303 5215 5303 0240 
5240 0240 5240 0240 6303 6301 6303 6325 6301 2724 6640 2706 6716 2303 6311 7317 
6240 0726 6314 2725 6640 1725 4305 6704 5212 0240 5240 0240 5640 6706 6306 3252 
6304 7305 6255 7306 4325 6715 4212 6703 5212 0303 5240 0240 5240 0240 6240 4303 
6305 5703 6240 7706 6722 5240 6305 7722 6240 2704 6316 6717 6311 0716 6724 1317 
5215 0212 5240 0240 6240 4640 6306 3250 6304 7305 5251 6264 5663 2254 6215 1612 
6215 1612 5240 0240 5240 0240 6240 2640 6322 7722 6722 1240 6705 2724 5322 0316 
5311 0316 6703 1701 6305 7640 6706 5240 6305 7722 6240 2704 6316 6717 6311 0716 
6724 1317 5215 0212 5240 0240 6263 4640 5305 4322 5661 6651 4261 5215 5240 0240 
5240 0240 6722 2305 6325 7322 6215 1612 6215 1612 5240 0240 5240 0240 6240 1640 
6301 1714 6325 0714 5324 0305 6327 4705 6707 2310 6240 0706 6303 7724 5322 0323 
6325 2723 4304 5215 5240 0240 5240 0264 6727 2307 6275 3727 5324 4257 6306 2704 
6316 3252 6304 7305 4251 5215 5240 0240 5240 0240 6706 2716 5315 6675 6706 2716 
6315 3257 6304 7305 6215 1612 6215 1612 5240 0240 5240 0240 6240 1640 6301 1714 
6325 0714 5324 0305 6306 7325 6304 6701 6705 2316 5301 0314 6306 7325 6303 4724 
6717 1716 5215 0212 5240 0240 6240 5240 6675 0711 4315 6661 5212 0240 5240 0240 
6240 3311 6650 0311 6655 0711 5251 6266 5666 2654 5215 0212 5240 0240 6265 5240 
6675 0311 4255 6661 5212 0240 5640 3240 6240 0703 5314 0314 6703 0316 5250 4320 
5311 4721 5254 6324 4312 6651 4212 6703 5212 0303 5240 0240 5240 0240 6640 2323 
6317 2722 6240 0726 6314 2725 6323 7640 6306 2240 6305 7716 6315 7311 6301 7724 
6322 3240 6325 2316 6301 2715 6316 0724 6314 3240 6325 1716 6324 7711 4316 6723 
5212 0240 5640 3640 6240 3311 6650 0711 5315 4661 5261 6260 5261 6260 4270 5215 
5240 0240 5240 0270 5304 0317 6271 4640 5711 0675 6654 0711 4315 6661 5212 0240 
5240 0240 5640 6712 5311 5711 4311 6721 5212 0240 5640 4640 5240 4320 5311 4711 
5275 4320 5312 5251 6706 2716 4315 5215 4303 5215 5303 0240 5240 0240 5240 0240 
6323 7724 5322 0305 6306 7325 6303 4724 5317 0316 6326 6301 4325 6705 5212 0240 
5640 0261 5240 4320 6711 0720 6251 3275 6215 1612 6215 1612 5240 0240 5240 0240 
6240 7240 6317 6722 5301 0314 6722 2305 6325 7322 5215 0212 5240 0240 6240 4640 
5305 4322 5661 6651 4260 5215 5240 0240 5240 0240 6722 2305 6325 7322 5215 0212 
5240 0240 6240 2640 4316 6704 4212 0232 4200 0200 4200 0200 4200 0200 4200 0200 
4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 
4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 
4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 
4200 0200 4200 0200 4200 0200 4200 0200 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