File EXPON.FT (FORTRAN source file)

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

C*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ2MNJ* B * B 6 N 7ACM+LCE3M	A7NB 3R
O3R7A2 ?F7RR 7RCI+LCE7ECX3OWN3N	T+ACL3S?M3OT3I
N* B-7ECXO7N"J7C*JCC* B * B 6 WP3R?PS7E*JCC* B * B * B . F(6)J 3ESA2 T7EB 3RKO3L7E2 GP3R7A3EWT3RN 3ASR2 ;A3DF 2 	T+MCE7SKE7IOE",*M+CB * B * B * B *(&22 GC+LCL3TWH6 WS3B?R3U	T+NCE7EOX+MCO+TCO3S?M3OT2 T7ER 3IWM2 WS3RWIS6,*JCC* B * B * B 2 ;A+D" *3B)3P	R+NCT
TWH2 WR3S3UT6."J7C*JCC* B * B 2 WR7MKAK7S*JCC* B * B * B * CA3S?M3OT3I
N2 ?C7NSS7ASN6 CS3E	C3FWI3D& 7NR +HCE3P?R3BWL7MB 3AGR7MSEE7R*JCC* B * B * B 2 GC+RCD7MOU3TJ 3E^ 3RGE7TKE2 T+ACN7ZKE3OJ +UCT7LOE7SR 3H;A2 ;O3E& 3N> 3RWDR*M+CB * B * B * B +TCO7OSB3A;I2 WR3A?S3NKA+LCE7ROE7USLS6."J7C*JCC* B * B 6 WS3B?R3U	T7NOE2 ;A3DZ 3UON3T
I7NN 7UCB3R
O3R7A7SJ 7EWQ3IWRD*M+CB * B * B * B 7EOXM7O"J7C*JCC* B * B 2 WM3T?HD*M+CB * B * B * B 3R[E+ECR+TCO+RB.+GB.3B?R+W3N6 N	3M?O3T	H+N3G2 ?F3ROE7ASS3I
N2 ;A7DB 3RSE7ISC3I;O2MNJ* B * B * B 2 > 3FR 3IOS7RSE7ER 3IWM2 WS3RWI+S2	6 KP7ESN3IWC2-GH+L3L* ;N+J2.. &1*6232MNJ* B * B * B 6 B +PB..1B42 ?T. R1"46."J7C*JCC* B * :.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".*MC*
+CB * B 3TWH2 ?F3L?L3W;I3GR 3IWM3N	S+OCN7MOU3TJ 3E^ 3RGE7TKE2 T+ACN+OCR7EWQ+ACL+TCO3TWH2MNJ* B 2 : 3UKM+ECR+OCF7DSA7AB 3O;I+TCS+ICN3A^ 3IWV7NR 3IWM2 WS3RWI+S:.2MNJ*MBJ* B * B 2 R 3IWM3N	S+OCN/XF(.0B06)N,.(B1*0&02MNJ2MNJ* B * : *.:.*.:.*.:.*.:.*.:.*.:.*.:.
.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".6."J7C*JB . F 2 ?F3RGM3TF(24F,22&,24Z,.5B.2,Z3*1:0"06)*JB . J 2 ?F3RGM/TF(.2[F*.&0*MBJ* B 23Z 3O7R+AT23"461KT3I3P3EV 3X?P3N;E3TGI7LN 3M?O3T	H+N;G*.:.2.F,24F,*2>/22"26 WN3MWB3R> F6 *JB * B 21GD+TCA3P
O7NOT.,[I./&17HN 3M?O3T	H+NCG3C;O3SGT+N3T+F:9*3&/*MBJ* B 24Z 3O7R+AT21"320?C3E[F3I	C7ESN/S&,/XF,+H3A61"42,"1/BF,*43X21OH")*M* B * B57FKO7MSA2("960KO3I	G3N3A.,GF.9V.2,Z2*1:5"56)*JB . Z 2 ?F3RGM/T"(7HV03PGD3TSE.,KF.0V.2,Z2*1:5*5&/*MBJ* B 27Z 3O7R+AT.1CH.,^2
XF,63OH3M?O3TWH3DR 3AGT6/"7.,B13H;I7PSU2 GD+T3A61"2.,B13HZ(3OWR7COAT6)*JB * B "16)*JB . " 2 ?F3RGM3TZ(*1:7.5",3XZ,*1:5"56)"J	C3OWP+N" 3U	N/TV=2,R 3E	V/C7E2	SC+R2	2 OA7COE+S^=7SGE+I
N")*M3C>I3P;E6 V(7NSI*=262 WD3VOI+E^=7LSP*	B,3AOC7EOS6=N	3E?Q+U
T")*MC*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ2MNJ* B 6 J 3ESA6 KP3O3B+ECM7PKA3AWM7TKE2 GCR7D"J7C2J2I3O	G3C3A2 ?EF*M2IGC+LCL3C/H3E[O2 V(+O	F*MBJ. B160J 3ESA. V(*,&16 KP6,KP21:,3XF,3LF,*,3BC*M2I
I2 V(+O	F2 ?G+TCO.9&92MNJ* B * B 6 B +R:.*.:.6.KP3O3B+ECM3N7U7BKE2 6(+ACY+BCE7ACL3H7A3E	RC6)*JCC* B * B 6 KP*1:.*.:.3P?R3BWL3M: 3UKM+ECR2(?C3N	T3NWUD6)*JCC* B * B 6 N*.:.*.:.3N7U7BKE2 [O2 GD+TCA3P	O7NOT2 ;I2 	T+MCE7SKE7IOE2MNJ* B * B 2 F +L:.*.:.2.7S7OSO3
;I3GN 7OON3T;AT*M+CB * B * B 3AJ,*,;C2.N.3O[E3FOI3I;E+TCS+OCF3TWH6 KP3E	D3C	T+OCN7EWQ3A	TO7N"J7C*JB * B 6 KW3IWT. Z(*,&36 KP6,KP21:,3XF,L*MC*M+CB * B 3P	R+NCT3O	R3G;I+ACL3CWO3F	F3CWI7NOT2MNJ*MBJ* B 6 ^ 7RSI+E" .6R,")*M* B * B 3W	R+TCE*(26*5B)3AJ,",7C"J7C*
CC* B 2 WR+ACD3T7I7EN 3E	R+ECS7DSAA*MC*M* B * B 3RGE+D" .5J,*)" 3X&(2)&,*=21+N	X2MNJ*MBJ* B 2 N 3A3L6 E3S?M6 "(6,N2,3A*,3A3BN,*,	S2MNJ2MNJ* B 6 B 3R;I7TV 3PGD3TSE2 ?C3E[F3I	C7ESNS*MC*M* B * B 3W	R+TCE*(26*6B)3AJ,",7C"J7C*JCC* B 6 KP7ISN2 ;I7PSU2 ;A7DN 3M?
3TWH3DR 3AGT2MNJ*MBJ* B 6 ^ 7RSI+E" .6^,")*M* B * B +DCO.2B0. 7I21:,X*M. J *0B03W	R+TCE*(26*8B)3X&(6)N,*(	I*MBJ* B 2 ^ 7OR /OF "060.J&969NI7TCO*MBJ* B 2 V N7D"JBZ"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B

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