File 4JOF.FT (FORTRAN source file)

Directory of image this file is from
This file as a plain text file

5303 0240 5240 0240 6640 1320 6717 1307 5301 0315 6264 7712 5306 0240 5640 1240 
5657 1662 5657 1667 5215 0212 5240 0240 5240 0240 6303 6717 6315 7317 6240 0713 
6722 4722 6254 0711 6722 4722 6254 1716 6317 2316 6254 2312 5325 6322 6311 2714 
6324 7254 6324 4722 4254 6714 5212 0240 5240 0240 6240 2240 6311 2715 6316 4723 
5317 0316 6713 1301 5322 4331 5265 4667 6254 0711 6722 4722 5650 4661 5254 4663 
6254 1716 6317 2316 5650 0271 6251 5254 6704 1325 5650 4261 6251 4654 6714 2305 
5650 4261 5254 4663 5215 0212 5240 0240 5240 0240 6304 6711 6705 1716 6311 7317 
5640 0711 6722 0323 5650 0271 6251 4654 6662 1722 5720 4650 5260 6251 6711 2702 
5706 4650 5260 6251 5311 4321 5263 6251 6311 7703 5316 4304 5271 4660 5215 0212 
5240 0240 5240 0240 6304 6711 6705 1716 6311 7317 6240 6311 6720 1717 5650 4261 
4251 5215 5640 4671 5240 0240 6240 0720 6325 2723 4240 6661 5212 0240 5240 0240 
6240 1640 6301 6314 6640 0317 4305 6716 5212 0240 5240 0240 6240 1640 6301 6314 
6240 2723 6724 0325 5215 0212 5240 0240 5240 0240 6303 6301 6714 1640 6322 7301 
4304 5215 5240 0240 5240 0240 6240 2722 5301 4304 5661 0654 5260 4661 6316 0722 
4316 5215 5661 0660 5240 0240 6240 7706 6322 0715 6324 4650 4263 6651 5212 0240 
5240 0240 6240 2240 5717 0640 5640 6711 6261 7254 6322 7301 5615 0612 5240 0240 
5240 0240 6311 2724 5715 6720 6311 0722 5316 4304 6304 6725 4251 5215 5240 0240 
5240 0240 6240 7704 5240 0266 5711 0675 5654 0271 5215 0212 5240 0266 5240 0240 
6316 7703 5316 4304 5711 6651 4311 5215 5240 0240 5240 0240 6240 7704 5240 0262 
5711 0675 5654 0261 5215 0212 5240 0262 5240 0240 6303 6301 6714 1640 6310 3325 
6261 7250 6303 7317 5704 0654 5654 0271 5254 4661 5215 0212 5240 0240 5240 0240 
6322 0705 5704 1250 5654 0261 6270 4651 5730 0721 6654 4311 5321 6262 6711 0731 
6654 2311 6311 4654 6324 6711 6254 6311 6311 4654 6321 4654 6714 2305 6254 1711 
6317 2316 5615 0612 5260 0270 5240 0240 6706 1317 6715 2301 6250 4666 5663 1254 
5661 0701 6257 4650 5263 4651 5215 0212 5240 0240 5240 0240 6720 2701 5323 0305 
4262 5215 5240 0240 5240 0240 6240 0703 5314 0314 6317 2720 4316 5215 5240 0240 
5240 0240 6240 7704 5640 4263 5640 6714 5661 4654 4260 5215 5240 0240 5240 0240 
6240 7704 5240 0267 5711 0675 5654 4261 5215 0212 5240 0267 5240 0240 6711 0314 
5317 4323 5711 6651 4311 5215 5240 0240 5240 0240 6240 7704 5640 1262 6260 4640 
5275 6261 4261 6670 5212 0240 5240 0240 5240 0240 5304 0317 5662 4661 5640 6712 
5661 1654 5615 1212 5261 0271 5240 0240 6713 1301 5322 4331 5263 4252 5711 0655 
6251 5253 6251 4675 6714 2305 5250 6311 4312 6651 5612 1262 5260 0240 6240 1640 
6717 2316 6711 2716 4305 5215 5240 0240 5240 0240 6240 7704 5240 0264 5711 0675 
4254 6665 5212 0240 5240 0240 6240 1640 6301 6314 6240 4323 5725 0706 6250 0713 
6722 4722 5254 6263 5261 6270 4261 6651 5212 0240 5240 0240 6240 1640 6301 6314 
6240 4323 5725 0706 6250 6311 6720 1717 5254 6261 5261 6270 4261 6651 5212 0240 
5240 0240 6240 2240 5717 1240 5262 0265 5711 0675 5654 4261 5215 0212 5240 0240 
5240 0240 5304 0317 5662 2262 5640 6712 5661 1654 5615 1212 5262 0264 5240 0240 
6311 2714 6324 4650 5254 4712 6275 0713 6722 4722 5250 5263 5250 6711 5261 5651 
4312 6651 5612 1262 5265 0240 6240 1640 6717 2316 6711 2716 4305 5215 5240 0240 
5240 0240 6240 7704 5240 0265 5711 0675 5654 4661 5215 0212 5240 0240 5240 0240 
5304 0317 5662 0260 5640 6712 5661 1654 5615 1212 5260 0260 5240 0240 6711 1301 
5322 4331 6311 5254 5651 0275 5215 0212 5240 0265 5240 0240 6303 7317 6324 7311 
4325 6705 5212 0240 5240 0240 6240 1640 6301 6314 6640 2323 6322 7311 4307 5215 
5240 0240 5240 0240 6240 0703 5314 0314 6317 2720 4316 5215 5240 0240 5240 0240 
6240 0703 5314 0314 6302 3325 5311 4314 6260 4654 6302 3325 6654 0711 5250 4663 
5254 6261 5311 6330 5311 4731 5215 0212 5240 0240 5240 0240 6303 6301 6714 1240 
6723 1720 5724 0650 4251 5215 5240 0240 5240 0240 6240 0703 5314 0314 6323 4724 
5315 4305 5661 0254 4251 5215 5240 0240 5240 0240 6240 0703 5314 0314 6704 0323 
5714 0701 6250 1311 5325 4706 5215 0212 5240 0240 5240 0240 5304 0317 5661 3263 
5640 6711 5661 0654 5670 0654 5215 0212 5240 0240 5240 0240 6303 6301 6314 1240 
6325 4706 5714 0250 6254 1311 5325 6306 6713 1301 5322 4331 5311 6251 6263 4654 
6330 4654 4331 6651 5212 0240 5240 0240 6240 1640 6301 6314 6640 1722 6720 2323 
5250 4661 5215 0212 5240 0240 5240 0240 6711 1724 6275 2312 5325 4322 5311 7651 
5661 0260 4260 5215 5240 0240 5240 0240 6640 2311 6315 4675 6322 6705 5250 4660 
5215 0212 5240 0240 5240 0240 6240 0703 5314 0314 6323 4724 5315 4305 6711 1724 
6654 2311 4315 6651 5212 0240 5240 0240 6240 1640 6301 6314 6640 1704 6320 0714 
6261 4650 6302 3325 4251 5215 5661 3263 5240 0240 6240 0703 5314 0314 6327 4724 
5315 4305 6260 4654 5314 4711 5215 0212 5240 0240 5240 0240 6312 2723 5724 1675 
5215 0212 5240 0240 5240 0240 6303 6301 6314 1240 6325 4706 5714 0250 6254 1311 
5325 6306 6713 1301 5322 4331 5265 4665 5254 6263 5311 6330 5311 4731 5215 0212 
5240 0240 5240 0240 6303 6301 6314 1240 6325 4706 5714 0650 6254 1311 5325 6306 
5311 4321 5261 6251 6711 0730 6261 4654 5331 4721 5215 0212 5240 0240 5240 0240 
6303 6301 6314 1240 6325 4706 5714 0650 6254 1311 5325 6306 5311 4321 5262 6251 
6261 4654 5730 1321 6654 4711 4321 6651 5612 2261 5262 0240 6240 1640 6301 6314 
6640 1722 6720 2323 6650 1712 5305 4724 5215 0212 5240 0240 5240 0240 6303 6301 
6714 1640 6324 6711 5705 4650 5271 6271 4260 6651 5212 0240 5240 0240 6240 1640 
6301 6314 6640 1704 6320 0714 6261 4650 6302 3325 4251 5215 5240 0240 5240 0240 
6240 3311 5250 6665 6312 2723 5724 4651 5670 0654 5264 6260 5661 0664 5615 0612 
5264 0261 5240 0240 6303 6301 6714 1240 6323 7320 6323 4650 5322 6301 6311 1322 
4251 5215 5240 0240 5240 0240 6240 3311 6650 1311 5702 4651 5670 0654 5264 6267 
5661 2664 5615 0612 5264 0267 5240 0240 6711 1261 5323 4320 6716 1324 5711 6651 
6311 1322 5215 0212 5240 0240 5240 0240 6711 1262 5323 4320 6716 1324 5711 6651 
5661 4665 4264 5215 5240 0240 5240 0240 6240 7707 6240 7724 5640 2261 4270 5215 
5661 2664 5240 0240 6640 1712 5705 6724 4265 5215 5240 0240 5240 0240 6240 7707 
6240 7724 5640 2261 4262 5215 5661 0264 5240 0240 6240 0703 5314 0314 6722 0323 
5316 4323 6311 1722 6654 1311 4304 6651 5212 0240 5240 0240 6240 4640 6661 1722 
6320 7250 6324 4722 6251 4675 4322 6702 5212 0240 5240 0240 6240 4640 6306 4650 
5322 4704 5271 6270 5661 0665 5654 2661 4261 5215 5661 0665 5240 0240 6240 3311 
6650 1311 5704 2255 5651 2261 5664 0654 5264 6264 5661 3264 5615 0612 5264 0266 
5240 0240 6311 2322 5275 5262 6311 2322 4255 6664 5612 2261 5264 0240 6240 4640 
6662 1722 6320 7250 6324 4722 6251 4675 4322 6704 5612 2261 5270 0240 6240 1640 
6301 6314 6640 2327 6311 2715 6650 2311 6311 4654 6324 6711 4251 5215 5240 0240 
5240 0240 6240 0703 5314 0314 6317 2720 4316 5215 5640 4263 5240 0240 6240 7703 
6316 4724 6316 2725 5215 0212 5240 0240 5240 0240 6303 6301 6314 7640 6320 7305 
5215 0212 5240 0240 5240 0240 6716 1327 5711 0275 5215 0212 5262 0262 5240 0240 
5304 0317 5267 0260 6714 2717 5724 0675 4254 6662 5212 0240 5240 0240 6240 2240 
5717 0640 6260 6640 5275 6261 4266 5215 5640 0261 5240 0240 6640 1327 6311 2724 
6250 7714 5325 6324 5661 0260 6251 4650 6661 1722 6320 4650 6251 4654 5275 6315 
5263 6260 4266 6651 5612 0261 5260 0240 6240 3240 6317 6722 5301 4324 5665 1711 
4257 6651 5212 0240 5240 0240 6640 3640 6722 2311 5705 0650 5654 2661 4271 6651 
5212 0240 5240 0240 6240 2240 5717 3240 6271 6640 5701 1675 5661 3654 5661 1254 
4260 5215 5240 0240 5240 0240 6240 1315 6275 0715 5653 4661 5215 0212 5240 0240 
5240 0240 5304 0317 5266 0270 5715 6703 5661 2254 5215 0212 5240 0240 5240 0240 
5715 6704 5315 5701 5315 6703 4261 5215 5640 4266 5240 0240 6640 1327 6311 2724 
6250 7714 5325 6324 5661 0260 6251 4650 6661 1722 6320 4650 6251 4654 6275 2315 
6254 1315 5254 4664 5215 0212 5240 0240 5240 0240 6327 4722 5324 4305 5661 0654 
5265 4671 5615 0612 5265 0271 5240 0240 6706 1317 6715 2301 5250 7657 4257 6651 
5612 3240 5271 0240 6240 1640 6717 2316 6711 2716 4305 5215 5640 0267 5240 0240 
6240 7703 6316 4724 6316 2725 5215 0212 5240 0240 5240 0240 6327 4722 5324 4305 
5661 0654 5266 4660 5615 0612 5266 0260 5240 0240 6706 1317 6715 2301 5250 7657 
5257 7657 4251 5215 5240 0240 5240 0240 6240 3311 6650 3716 5322 4711 5271 6270 
5262 6263 4267 6664 5612 1240 5263 0240 6240 2240 5717 3640 6266 4640 5275 6261 
4271 6660 5612 3640 5266 0240 6240 4640 6661 1722 6320 4650 6251 4675 6662 1722 
6320 4650 4251 5215 5240 0240 5240 0240 6640 3716 5722 6711 4261 5215 5240 0240 
5240 0240 6240 7707 6240 7724 5640 1262 5215 0212 5267 0264 5240 0240 6327 4722 
5324 4305 5662 0654 5260 4661 6250 1716 6317 2316 5250 4711 5654 6711 5661 4654 
4260 6651 5212 0240 5240 0240 6240 3640 6717 2240 5717 4640 4271 5215 5640 4271 
5240 0240 6640 2323 4317 6720 5212 0240 5240 0240 6240 2640 4316 6704 4612 5214 
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 



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