File PCHI.FT (FORTRAN source file)

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

6IWF7NSC3I;O2 OP+HI7M",")*M7C^ 7AKH3SC3E;I3LOI3HWK+ICT3FWU3RN +HI/M6)X*M3C6 * B:3FWR3IWH7IOT3GGR+DCE2-: 3AC2 WD7COU2 ?N2.Z 3OGC/L" .-B3"8*M3CZ 7OSR3R;A2 	I"M&J/D7F3F?L+ATM6)2JJI7X"="M&J/AB=*.*5X*M.I7E3F?L+AT*2"*/MJ/2)6-")*M2I[I*(	E.1J2.0F,.2^2.,J1"260.JJ1
2&0+IF+D7F*2&..1N2.0F,.2B3.,J1"267.JJ1"2&7+IF+B7X*4:0.)J1*229.1N2.0F,.2B3.MFJ.2&26I	Y6=E+P6(A6).JJ1"3&0+IF/EF).2B4.,J1*329.1N2"9*M.1N269NI6=	Y"M&J7GSO/OF .2B6.MFJ.2B4.I7X6-GS+RTX6)"J	S7JOM6 CU"0*M2I[I*(	X.1R2.5F,.2V4.,J1"464.JJ1"4&4+P"=/ZF+*.*).0V."M&J7GS
/OF .2B5.MFJ.2V4.I7P*(:1*-	Z**:0"5*M.1V260NI*=:2"*7P.JJ1"6&0+IF+D7F*2&..1^2.0F,.2B7.,N1"160.JJ1"7&03PC7IN="M&J7RSE3U;R.MFJ.3B1.I7X.0V.2*R(/FF-".6)2J&I3FV(.)N1*220.1F3.9F,.3&1.MFJ.3&1.I7Z"16.2J^I3O?T. N1"360.JN1"2&0/ZB=".65.JN1"3&0+IF+B7X*4:0.)N1*820.1N3.1
,.3F3.MFJ.3F32I[I*(	E.1R3.0F,.3J3.,N1"362.JN1"3&2/EB=".*M2I?G+TCO.1V3"0*M.1R320VI*=:0.5J7.3V6.MFJ.3B5.I7C3A?L3GF(")*M.1Z320&I7F"(*-	Z.1^3.0F,.3&6.,N1"669.JN1"6&93EV=2+3A+OGZ6)*JCC7TOE3T> 3BF +BS3A
R3UWM+N	T. 6>. B2"M&J3A
R*=+C3ZF-"-7E2J&I3FF(+BS3A
R.)J-*0&..1^3.2F,.3J7.,N1"761.JN1"7&13A
R.=B2*."*3A
R2/KA3SF(+R	G")*M.1^362NI*=/S7ECX6(KAG6)6J*I*=/Z"16.2J^I3O?T. N1"660.JN1"7&07GSO/OF .2B7.MFJ.3B82I[I*(	E.1"3.5F,.3R8.,N1"864.JN1"8&4/EF=".*M2I?G+TCO.1"3"7*M.1"325VI*=:0.5R6*1>97SKQ3TF(")*M.1"327NI*=:0.MFJ.3B92I[I*(7X/ZF).3V9.,N1*924.1&3"4*M.1&324VI*=+E7A*
"M&J3CN="+7E6J*I*=/Z"16."J&L7GSO/OF .3B9.MFJ.3V9.I7S3SN+6*	Y"M&J7GSO/OF .2B76MNJ/UCP.,BI"M&J+IF/XF).0F1.,B1*220.1F0"1*M.1F021NI7OSN7IWNE*M3S*I+MCS/UGP6MNJ2I7J3P& 6 CU"0*M.1J060*I*=:06MNJ2I7J3P& 6 CU"0*M7SCU"1&,"0*M.I7Y7AOB*(	X**:0"5*M2I[I*(7Y*3&..1N1.0F,.
&1.,F1"169.JF1"1&9/ZF=".*M3S*I+MCP7IV P61.JF1"3&0+IF/YF-..F).1B4.,F1*329.1N1"9*M.1N129NI7OSN7IWNE*M3S*I+MCS/UKP6MNJ2I7J3P& 6 CU"1*M.1R160^I*=+YY*M.I7Z*(:(.1R2.8&1/EN-**7W..B1.7J5/EJ-6)^*.+V..1"927V7*-&2"*7W6J*I*="(*(7Z..&1.1"9*37E*1*)+W:+.5B9.5B4/EF-6)^*.
F..5&1*6&9"*7W6J*I*="(*(/Z..F3.9F1*5&3**7W..N5.1J9*3*)+W:+.7^9.8V86)&***:26MNJ2I7J3P& 6 CU"1*M7SCU"2&,"0*M.I7Y/YJ-".*M.I7Z*(6(..V422V6*-*4+Y:+.1J5.5&2/EN-6)&*.-F..9N528V1*-&4"*7Y6J*I*="(*(:-.6Z7.9V0/EN-6)&*.+F..3B920V6*-&2**7Y..&7.4J6/EN-6)&*"M&J+Z"=6(*(.
J..0R322V5*-&2**/Y..V6.4^9*97E*2*)+Y:-.1V0.5Z7/EF-6)&*"M&J+Z"=6(*(.+F..1N620V8*-&1**7Y..J9.7R9*57E*2*)+Y:+.5V3.3"5/EJ-6)&*"M&J+Z"=*(7Z..F2.4J1*77E*2*)+Y:+.5V323V1*-&3**/Y..&9.9N9"7*M3S*I+MCP7IV P622JVIN7D&J*L

Note: Lines longer than 256 characters were wrapped



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