File DSG13.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 1704 5707 1661 6215 1612 6215 1612 5240 0240 5240 0240 6640 0240 
6725 0322 6317 2723 6215 1612 5240 0240 5240 0240 5240 0240 6640 2240 6317 1640 
6717 0315 6325 2724 5240 0301 6326 1705 6724 1317 6240 3317 6240 6723 6717 2317 
6310 2305 6640 2706 6716 2303 6311 7317 6240 0726 6314 2725 6323 3640 6311 2726 
4316 5215 5303 0240 5240 0240 5240 0240 5240 0240 6326 1705 6724 1317 6323 7640 
6306 0640 6722 2707 6315 7305 6724 3240 6701 2714 5305 0323 6301 2316 6240 7703 
6322 2722 6323 7720 6316 4704 5316 0307 6306 7325 6303 4724 4317 6716 5212 0303 
5240 0240 5240 0240 5240 0240 6240 0726 6314 2725 4323 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 1704 5707 1661 5250 6330 6731 5254 6254 2316 5311 6315 
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 5330 0240 5240 0240 5255 0240 6707 3311 5305 0316 
6326 1705 6724 1317 6240 3317 6240 7704 6325 6302 6705 0240 6322 1705 6311 4723 
5317 0316 6301 3722 6325 2715 5316 0324 6326 6301 6725 1705 6215 1612 5240 0240 
5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 4240 6304 6711 6705 1716 
6311 7317 6240 2316 5311 4715 6215 1612 5240 0240 5240 0240 5240 0240 6640 4640 
5240 0240 5240 6640 6240 3640 6311 2726 6716 3240 6705 2303 5317 0322 5317 0306 
6704 2717 6302 2714 6640 1320 6305 4703 6323 7711 6316 3240 6325 1716 6324 7711 
6716 3240 6701 2714 4305 6723 5212 0303 5240 0240 5240 0240 5240 0240 5240 0240 
5240 0240 5240 0240 6240 7703 6322 2722 6323 7720 6316 4704 5316 0307 5324 0317 
5330 4240 6304 6711 6705 1716 6311 7317 6240 2316 5311 4715 6215 1612 5240 0240 
5240 0240 5240 0240 6640 5240 5240 0240 5240 6640 6640 1240 6705 2723 6314 4724 
5316 0307 6326 1705 6724 1317 6240 3317 6240 7704 6325 6302 6705 0240 6322 1705 
6311 4723 5317 0316 6323 7715 6317 4324 4305 6704 5212 0303 5240 0240 5240 0240 
5240 0240 5240 0240 5240 0240 5240 0240 6640 2706 6716 2303 6311 7317 6240 0726 
6314 2725 5323 4240 6304 6711 6705 1716 6311 7317 6240 2316 5311 4715 6215 1612 
5240 0240 5240 0240 5240 0240 6240 7240 6304 6711 5240 6640 6240 2240 6311 2715 
6316 4723 5317 0316 5317 0306 6326 1705 6724 1317 6723 4240 5254 6331 6301 2316 
4240 6732 5212 0303 5240 0240 5240 0240 5240 0240 6240 2711 5322 0240 5240 0255 
6240 2722 6323 6325 6324 7311 6307 2640 6322 7722 6722 0240 6301 0722 6715 2305 
4305 6722 5212 0303 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 5240 0240 
6240 2711 5722 6640 5640 0655 5240 6640 6240 2316 5311 0315 5311 0323 6714 1705 
6723 2240 6310 7301 4240 6663 5212 0303 5240 0240 5240 0240 5240 0240 5240 0240 
5240 0240 5240 0240 6240 2711 5722 6640 5640 0240 5240 6640 6240 7716 6640 1305 
6722 1317 6215 1612 6215 1612 5240 0240 5240 0240 6640 1240 6305 0715 6722 1713 
6215 1612 5240 0240 5240 0240 5240 0240 5240 4240 5261 0251 6240 3311 6240 2711 
5322 6675 6661 2240 6710 1305 6305 4240 5301 0323 6302 2705 6316 7240 6317 1640 
6717 0315 6325 0724 6324 7711 4316 6656 5212 0303 5240 0240 5240 0240 5240 0240 
5640 1250 5251 0240 5240 0332 6303 7301 6240 0710 5326 0305 6324 2710 6240 0723 
5315 0305 6323 7724 6322 3701 6305 0640 6314 7714 6703 2301 6311 7317 6640 1701 
5240 0330 5317 0322 5331 0256 6240 3311 6215 1612 5240 0240 5240 0240 5240 0240 
5240 0240 5240 0240 6640 4240 6640 1317 5240 0331 5311 0323 6704 1711 6324 7311 
5303 0324 6306 7722 6715 5240 6654 2240 6310 7305 6640 2311 6640 1711 6240 7716 
6324 2240 6705 2323 6722 4717 5305 7304 6215 1612 6215 1612 5240 0240 5240 0240 
6640 1640 6725 1302 6717 2325 6311 2716 6323 0640 5316 0304 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 6305 1730 6705 2320 
6640 2301 6240 4324 6305 2640 6716 0304 6317 7311 5324 0323 5730 0650 6251 0640 
5316 0304 6330 7250 6304 6711 5251 0254 6305 1701 6710 1640 6315 7717 6324 2710 
4304 5215 5303 0240 5240 0240 5240 0240 5240 0240 6326 6301 5325 0305 6332 4650 
6251 4640 6323 7640 6302 0724 6311 2716 6304 1240 6331 2640 6326 6301 6725 2301 
6311 3716 6640 2301 5240 4330 5311 0251 6324 2710 6240 2714 6701 2323 4255 5215 
5303 0240 5240 0240 5240 0240 5240 0240 6723 2721 6301 2722 6723 0240 6717 4714 
6316 6717 6311 6301 6240 3317 6240 2704 6307 2722 5705 0640 6240 2722 6714 3305 
6701 2316 6240 7724 6240 4324 5705 1640 6640 2723 6303 2703 6323 4723 4326 6705 
5212 0303 5240 0240 5240 0240 5240 0240 6240 7720 6711 2316 5323 4240 6330 4650 
5253 4713 5254 4331 6311 5653 5251 0251 5713 6640 5640 0655 5254 6260 5261 4256 
6323 2705 6240 4710 6314 2704 6302 0722 5316 6304 5240 7306 5302 6256 6215 1612 
5240 0240 5240 0240 5240 0240 6240 4640 6716 1324 6717 2704 6303 4724 5317 0316 
6240 7724 6640 2716 6715 1305 6311 0703 6314 0640 6316 6301 6331 4723 5323 0254 
5315 0303 6307 0722 6327 4255 6311 6314 6254 7240 5305 0327 6731 1317 4313 6657 
5212 0303 5240 0240 5240 0240 5240 0240 6240 7724 6322 7317 5324 7717 6314 7317 
6304 7317 5654 0640 5671 3265 6654 0240 5720 1256 5265 6670 5663 0661 4256 6651 
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 2240 5723 0707 6663 4250 5254 6331 6332 7254 6304 6711 6254 2711 4322 6651 
4212 6703 4212 6703 5212 0240 5240 0240 6240 4704 6315 7305 6323 7711 6716 4240 
5250 4661 5254 4331 5261 6251 5732 0650 4251 5215 5240 0240 5240 0240 6704 2717 
6302 2714 6640 1320 6305 4703 6323 7711 6716 4240 5254 6331 6732 4254 6715 4654 
6715 2254 6661 2254 6662 2254 6263 4254 6215 1612 6215 1612 5240 0240 5240 0240 
6640 2240 6705 2323 6240 3317 6240 4704 6315 7305 6323 7711 4316 5215 5240 0240 
5240 0240 5311 4306 6316 4704 5715 1655 5251 6267 5661 0654 6215 1612 6215 1612 
5240 0240 5240 0240 6640 1640 6724 1301 6324 6240 6717 0317 5215 0212 5240 0240 
6261 2240 5717 3240 5640 6711 6263 7254 6304 6711 5215 0212 5240 0240 6640 4240 
5315 7275 5663 1663 5663 1663 5663 1663 5663 1663 5663 1663 6263 2263 5260 4252 
6330 4650 5255 4662 5253 4330 5711 0655 6651 4253 5250 4711 4251 5215 5240 0240 
5240 0240 5731 6715 5656 1663 5663 1663 5663 1663 5663 1663 5663 1663 5663 1663 
5304 5260 5250 4331 5711 1255 6651 4653 5250 6711 5261 5651 6331 4650 4251 6651 
5212 0240 5240 0240 5640 0724 5275 4330 5711 1255 6651 4255 4315 5215 5240 0240 
5240 0240 5724 6662 6330 4650 5255 4661 6255 6730 5215 0212 5240 0240 6640 2240 
6663 4275 5250 4711 6255 6730 5215 0212 5240 0240 6640 4240 6715 2275 6661 2252 
6661 2253 6662 2252 6662 2253 6663 2252 4263 5215 5240 0240 5240 0240 5311 4306 
5330 4715 5663 1654 4254 6662 5212 0240 5640 1240 6240 6730 6675 2250 5261 4252 
6331 4650 5255 4662 6255 6731 6651 2253 5262 4252 6331 4650 5255 4661 6255 6731 
6651 2253 5263 4252 6331 4650 6651 4655 5315 4651 6257 6730 6215 1612 6215 1612 
5240 0240 5240 0240 6240 1640 6310 1705 6313 3240 6711 1722 6724 0240 6317 7311 
4324 5215 5240 0240 5240 0263 5311 4306 5711 1655 5251 6264 5664 2654 5215 0212 
5240 0240 6264 4240 6275 6730 5652 0724 6253 6731 5215 0212 5240 0240 6665 5240 
5250 6711 5662 6651 4310 5215 5240 0240 5240 0266 6710 4275 6715 2252 6662 4653 
4315 5215 5303 0240 5240 0240 5240 0240 6305 2316 6240 3317 6240 7714 4317 6720 
4212 6703 5212 0303 5240 0240 5240 0240 6640 0325 6704 2301 6305 6240 6701 2323 
6640 3724 6317 1640 6717 0315 6317 2716 6716 1724 5215 0212 5240 0240 6640 5240 
6250 2316 5311 6715 5661 6651 4310 5215 5240 0240 5240 0240 6332 7250 6304 6711 
6651 4275 6715 2252 6663 4653 4315 5215 5240 0240 5240 0240 6711 1305 4275 6660 
5212 0240 5240 0240 6240 2722 6724 1325 4316 5215 4303 5215 5303 0240 5240 0240 
5240 0240 6705 1322 5317 0322 6305 4730 6324 4640 6316 1640 6301 2723 6240 2316 
5311 0315 5311 0323 6714 1705 6723 2240 6310 7301 4240 6663 5212 0240 5640 3640 
6240 2711 5322 6675 4261 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