File P0TEST.FT (FORTRAN source file)

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

+CB 7POA3C3A*-CS7PKA7SKE6 Z 7EOR3I;O2 ?V/MJ .0F..2"."0*M2I?C3M?M3N: 7EKR2,WI7ROR2,OL2,OI3CR,+I3N3F;I2,OI3H2,3L2,3IWN"M&J3C7O3M;O6 OI+Y3M3L;E6,
I3OSR6,CI3O;I3T&,3D&,A7L2JNI3O7M+OCN3N7A3E&,3RWZ+I3G3LWZ+I3G7MA2,3I6,OI3TKA"M&J3C7O3M;O2 GM+X3E3M;I3E.,7MA2,7N+A3X7IS2,3L3E
N6,OI3L;E3G&,3SGMX*M2I	D3M;E3S?I3N2 3IWN.(B82)2,3Z	E/GJ(*0&06,KI3Z	E/GJ(*0&02,GN+ME.2B0.,B1")*M2I	D3M;E3S?I3N& 7WKO/DJ(.9F,*02)3I?P7ISN.(Z2*,&22,SI.(B12)2,+EN*2&9"M&J3D7I7EON3I;O2 WI7ROR.(F6*,&36,OI3TKA.(B6*02)3IWZ+IL*4&0"M&J7ISN3EWG7RF .(B22)R,+IN*22)3F;
*(&4*,3I3J.,6,CC+O3S3P?PS*M6IOI/YB="M&J7I+R3E
I*(&1.=F-"M&J3LWZ+IG.16)"-612J6I/A7X"0*M2IWN/R7R"0*M2I3L3E
N.=J7"M&J3I7S/A7X.6B0"M&J7MA/E&="9*M2I	M/N7E.-&9"M&J3KGM/XR="M&J3NGM/XJ=.0Z42MNJ2 V 3I3N3EWS3NR +ECR3SC3LWU3SWS3L?W7ESRE7R2J&I/A7L"1602JRI+IN*1B)*=^ +S
Y"M&J3D;I*(&2* B=2	CS"	*M2I	F/NF(.)6 6 ^	O6	2JZI+IN*2B)*=^ +R
D"M&J3F;I*(&3* B="0*M2I	F/NR(.)6 2 R	A6	2JNI3A3L2 ?I3P;E6(N	3YCS*	^,7WKO3DC+D
A")*M2I?D* B5/IF=.,&2"M&J3RGE/DR(*,&66(
I3OSR*(3I+J2)/JF=.,B1")*M26ZI3O7R+AT21F0"16)*JCC2 GL3E
N3ER +ECR3SC3LWU3SWS3L?W7ESR+ECR7BOE3T7I3M;E"M&J/I7L3I3A.MRJ25&I3F&(7WKO3D&(2,3I.)J+.0Z1.)^4.,Z4.,^4.MRJ26&I3L&=/LF-"M&J7GSO/OR "5*M"4&73L;E*(	I2=3I.MVJ2I?C3N	T3NWU"M&J3RGE/DR(.,F12)&(3P	O+NT/IF,2)&,*=21*2&6"M&J3RGE/DR(.,F12)&(3P	O+NT/IJ,2)&,*=21*2&6.MFJ2
ZI3O7R+AT22&6"26)2JRI/OJ 20& *=21"3616JJI3ESA*(24*2&12(SI*(	J.,7J.1F,"06).JF22I?F3RGM/TF(.0GA")*M2IGC+LCL3N7AL7I.JB22I?C3N	T3NWU.MFJ60JI3ESA*(21.1B16)F(*(	I.,7I.1J,"06).JF120ZI3O7R+AT*	^*.,B2+A&1"M&J+DCO.1F1. 7I.1J,"M&J2 R +IN/I6)"0*M.1F1*IB 3F;I*(	I"=602
ZI+IN.36)"0*M2I?D. J222& *=21"260*JBI* Q/I6)3Q&(.)Z/"4*M*IB 7KF=*(	I"M&J2 & +F" /KB<")*M*IB 6 F *(	I*=Q+I.)"663*JBI* B 7KF=*(	I"M&J2 V 3N	DF*M*IB +ICF*(;K+E;Q*3&2* Q/I6)"0&I33B3A/N* B=*4B07OSC. :=2 B"""*M*IB +ICF*(;K+E;Q*5&86 CC+OCS2=& 2IBI*"J:* B .=^ 22>
C7T*JBI2 [I2 .(6.GE..Z46)B 7POO* B=I&I+:"*"B * B=*5B67OSC.MJJ"2&23C;O3T;IU7E2J&I+F" 3C?P/SV>2 >.+RB.3P?P/SF>"86)*JBI6 KW3IWT*(21*3&0.MNJ20ZI3O7R+ACT2(&	3LWL3G3A7EN 7YSN+A
X")*M*IB 7GSO/OF "0*M2I;E3D[I"M&J+ICF6(CC+OCS6.GE..B ")*M*IB 3D;I*(&1* B=6		S"	*M*IB 3D;I*(&2* B=2	CS"	*M2I3ES7E*JBI* Q3C?P+SB).=B 2IBI*	
"M&J2 & "=61*JBI. 7J"1*M*IB 3W	H+LCE.(3I3C?PS6)*JBI* B 3D;I*(	J. 6 * Q+I*)*6B46+F *(/I"16)*JBI* B 3J*="+61*JBI* B 3I&="+62*JBI2 ;E3DW3IWL"M&J3ESNI7F2J&I+F" 3P?P3SV./QB.")*M*IB 3P?P/S6 . B2"M&J2 Z +IN*4B)*=^ +P
S"M&J7EOLE*M*IB 7QB(7POO.)6 " &0*IK6"*JBI2 	F/NR(.)6 * Q3P?P/SF+.)Z**4. * Q3P?P/SJ+")*M2I;E3D[I"M&J3IN=7POO"+612J*I"=616J^I3H3I+E" /JR<2 F.+N;D. 3I3P?PS6)*JBI2 	F3N*(6)F=*(	I.*R6* B+3Q&(*+&1"M&J2 * *=/J"1*M*IB 3I&="+622JVI7N
D3H3IE*M6IKW3IWT*(21*3&9I6,.J&32I?F3RGM+T>(2	GP3SGC+L6 * CS2 J 3E
R7NWE3SGT+DCT6 [T.0B4.2F8* B * 2	+I&0"M&J3W	R+TE.1R,*0")3D;I*(	I.,7I.1J,*)",3F;I*(	I.,7I.1R,2)&,",*M"4&07FKO7MSA2(F2*2^,*:2	.3KA*,:	2	F,.2F,*03X+I&0"M&J3C3A3LR 7AWTM*M2IGC+LCL7ICO+EN3D;I2,	FN6)6JFI*(&1* B=6	OP"	*M*IQ*2B)*=^ +F
T"M&J/QN(.)6 " 606JFI*(&4* B=2 R	A6	2JNI3A3L2 ?O3P;E2(	D7NF,")*M2IOL"=602J2I3IWN.(B8*)6=.2F0"6*M2IOI/C"="0*M2I3L.=B8"M&J3IC.=J-.0Z1.MFJ"2&07IOV/Y7M7I	SM*M6IOI/XF="M&J3C3A3L^ 7EOTY7M2J&I3F&(3S7Y*-&1.1N2.,J1.2F,"263.JJ162^I7RSI/ER(.,F221&)3S7Y"M&J3C3A3L: 3A
MI*M.1N22I[I6(OI/XJ)*122.2B0.,F2"2*M.2J16IKW3IWT*(24.2F16)OIY7M.JB220NI7OSN7IWNE*M.2F12I?F3RGM3T&(*4^,* &	"M&J+IF7I	S/MJ-.1F)*220.1B3.,J1"0*M.1B32I[I6([I3S7Y.-B6.)J1.0F,*325.1B2.MFJ"3&53C3A3L> 3C?LS7E2J&I+F" 7NKE+RB). B1*020.1B0.0F,.2B0.MFJ.0B06IKW3IWT*(2
"16)"J&17FKO7MSA6(B	7HOA/EB 2 O+NCE3FE7LKE"	6)2JNI3A3L2 C3A;I6(B	7HOA7EN1+V&	.MFJ.2B02IGC+LCL3CGH+IN6	KE7RKO7M[S"	6)2JVIN7D&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