File P1TEST.FT (FORTRAN source file)

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

7CBI3AOS+ACL6-N 6 [T. F8. J0. Z0"M&J3C7O3M;O2 WN+R3R7IKE+R3S+L3C3IOC2,	D3NZ,+I3N3IC2,3L2,	LN7E2JNI3O7M+OCN7I	S3M2,+E3N3I?W+R3D3I?P7ISN2,SI2,GIL*M2I?C3M?M3N: 3AWM6,KI3Z	E3G2,3Z	E3G6,+A3X+I3L7ISSA7B2JNI3O7M+OCN7MA3E6,3IWN2,7K+A3X3NGM3X&,+S3X3LWL+N3G3I3S3E
N6,OI7MA"M&J3D7I7EON3I;O2 	L+NE*8&06,+L3E
I.(B2*02)7I+R3E
I.(B2*02)3N7A/EJ(*020*1&0"M&J3D7I7EON3I;O6 
I3OSR.(&2.,B12)&,3P	O+NT*226*22)+ID*1&02,WL/NJ("96)2JRI3IWM3N	S+OCN7IKE+RS*621*32)7ISS+AB.6B02)&,3Z	E/LR("06)2J&I3NWT7GKE* Q*2&02,	D/NJ(2)Z,+IN*42)3I*,*,3K3C?P7SB,7POO"M&J3L
O3IGC3LJ "M&J7I	S"=602J&I3RWZ+IG.16)"-612J2I3Z	E/GF(*)6="1*M2IGM/XB="M&J7NKE/RB="M&J3LWL/N7G"7622J&I3SGM/XZ="0602J6I3AWX.=&9"M&J3M;I+E6="9692J.I7MA"=642J:I7MA.=B2"466*JCC2 	E3NWL3S;E2 WD7RN 3C3H7UOE3S3E3WWO3RWTR*M2IGI/LF="0*M2IGC+LCL7ICO+EN6		S+S
6,^	3OSR3S+A&	"M&J+DCO25& *=21"2696JJI3ESA*(24*6")3I?W+RD3I*,2)*,*=21*1&0.MZJ2I?F3RGM/TF(.0GA")*M+CB 3LWA3NWG2 WD7RN 3C3H7UOE3S3E3WWO3RWT3RJ 7ESS3I7ME7N2J&I3L&=A7L.JV42I[I6(
I3OSR*(3I+I	L.+B2*1&6*427*426"467.JZ42I3I2=3I"-612J^I3O?T. V4.MRJ272I+EN/I6)I7L"J&53C;O3T;IU7E6JJI3ESA*(24*1&16(CI3O;I3T&(*,&1.,7I.1J,"66)6JJI3ESA*(24*1&16(CI3O;I3T&(*,&2.,7I.1J,"66).JF12I?F3RGM/TJ(.6KI")*M2I?D. B2. 7I.1N,"1*M2IWR+AD.4J,*1")+ID+J2)/JF=.,B
")*M"2&17FKO7MSA.(B1+A&1"M&J3C3A3L: 3A3MI*M"2&03C;O3T;IU7E.JB12IWR+AD.1F,*1&0*(Q+I2)/IF=.,B2")*M.1B12I?F3RGM+T^(**2	22F0"16)2JNI7POO* B="0*M6ICP+OCS.=B "M&J+DCO.1F1. 7I.1J,"M&J2 R +IN/I6)"0*M.1F1*IB 3F;I*(	I"=602JZI+IN.36)"0*M2I?D. J222& *=21"260*JBI* Q/I
)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>*8: +O;R6 CC/O;S3P?PS6).JF1*5BI6 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	OD"	*M*IB 3D;I*(&2* B=2	CK"	*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.8B1.2Z0* 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)2JNI3A3L2 ?O3P;E6(N	3YCS*	^,3P[S3TC+D
A")*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: 3A3MI*M.1N22I[I6(OI/XJ)*122.2B0.,F2"2*M.2J16IKW3IWT*(24.2F16)
IY7M.JB220NI7OSN7IWNE*M.2F12I?F3RGM3TF("16)2J&I3F&(3S7Y.-F2.)J1.0F,*320.1B2.MFJ"3&0+IF7IOV+Y7M*6&0.1B2.,N1.5F,"260.JN125NI3A3L2 OO7LOOE*M2I[I2 :(7EKR*)B .1B0.0F,.0B0.,J1"060.JB1"0&03W	R+TE.1F,")*M21ZI3O7R+AT2	P3AWS* B03O;H3EZ 3E3H+E
R")*M2IGC+LCL3CGH+IN2	P3AWS61[S"	6).JJ1"0&03C3A3LN 3H	A+N^(7EKR3O7R+S
V")*M2I;ED*M"LBZ"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"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