File TS.FT (FORTRAN source file)

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

7CB 3R
O3R7A7MR 7IOP+CCH3V;O2 7RP*M7CR +I7P3R3E7AOI2 J(7ISS3A	B+LB)6:* 3AE3L;U7GZ +OCN3SC3AWU3R;E3TGL3D;U3G;E2MNJ2 WB3FE+LCE7PCD*/686-J>+MCP":*M+CB 2 WR7GOI7TKE2/	B/TF ./F1* B:.5J326J 6 N 7TKA7TN/7TCO* B . B(6 SS7ASR*,B13S?TP6)"J	C.IF ./B1* B:* B 6"NI7LCO3EF * B
* B . F(* 2+*06 ")*MC&I* >1*9B *:BI* J 6IWM3L	T3P	L+ECR*1B *(&02MNJ*IBI.1"/. * *IB " &"7ROE+ECT* B * B * " "06)"J	C.IF */B7* B:* B *"B 6 J 3E?M+TCE3MSO+EB . B(")*MC&I* >4*1B16:R +I7P3R3E7AOI* BI* B * " 21F 7NWZ/GB,2 KA7WKUF6)"J	C.IR ./B1* B:3LSE" &I* B * 
 *(B13E;I*,B07AOU")*M3CR 3AWT7NJ +M7P6-B>+D?P.8* 2MNJ* B 7BSY3EJ/+ICT* B * >0*1:1..B.*/B8.:V .3Z2* CB2 ?CL61"J	C.IB */:7*.:..0R/" &:*"B * B 3C3O"2*MC&I* >1*1:1..F.*/B8*:B * B"* B 2 ?CL63"J	C.IF */:7*.:..1R/* B:* J * B 2 N /OSL2MNJ*IBI.4F/*1B * B . * 2 OS3
3A7TKE2 	E3NF-U7S"J	C.IR ./B1* B * B * B:7TOA+TCE3R3E7AOI2-WW7COHE7L*JCC3A[N3A
N7SSS3E3L3U
N* B 6 WDA	L2IWD3Z7IA7L"J	C3R
E7ISS+ECR.1* . B0.0B *1B1.1B0. F0*1B . J "267"J	C.IJ * B:.0B0. F0.1F *1B1.1F1* B . V2"5*MC&I* B3.:B *0B0.0F1. F1.1F *1B1* B .2V52MNJ*IBI.4* . B0.0B *0B0.0B0. B0*0B . B "060"J	C.IV * B:.0B0. B0.0B *0B0.0B0* B . B0"0*MC&I* B6.:B *0B0.0B0. B0.0F *0B0* B .0R0
MNJ2 ?F7RKT+ACN+ICI2/> 3P	T+OCN2(O")*M7CN /R* 6 WA3SZ.+T> 2 ;I+I;T+FCT2/V +I;N+FCT6/R /CSD6.SF* B/3I	B7TN.B*M+CB * B 2 7R3P	B3TZ.+T> 2 WB+L;LF7T*JCC+CCH6:J +M;PS7V6J^I7RSI/EF(.,B1"06).JB120ZI3O7R+AT2		T3P.-7OSN7ASK* B:3SC3AWU3R;E3TGL3D;U3G;E2 GZ3E3H+E
N")*M61^I7RSI/EF(.,B1"16).JB121ZI3O7R+AT*4"0*	^-")6)"J&23RGE/DF(.,B122&)3R&,W*M.1J02I?F3RGM+T^(* B 3WWI3VWI7LJ 3EGL+ICS.?* 2 &	*3^/3WWI3VWIL*M*IB17MOE3S;U3G;E* B?*:^ +I&4"M&J3RGE/DF(.,B123F)3GF,F6,.JB123ZI3O7R+AT*	B * B * B 6 WA3SGG+B7E7GKE7ASE2 ;U3DR 3AW
/I* 2 F	*2>	.	[A")*M6IKW3IWT*(21.1R02)WLE7R.JB124ZI3O7R+AT+I&0"M&J3RGE/DF(.,B1252)7ISS.MFJ"0&57FKO7MSA2(6	7EOS7WKE+TCE7DWR3CWK/N> 2 *(/AF=2,WN/I7N*0B)*:^ +I&12MNJ2 WR7GOI7TKE2 ;I2 ;A3F;A7GOS3T3E3L;U7GN 7E+TE7N"J&3/IGA.=J2"7*M2IGI.2J="5652J&I/A63.2V5"M&J/I
A.=B0"0*M2IGI.5B="0602J&I/A66.0R0"M&J/I61/IGA"M&J/I62/IKA"M&J/I63/IOA"M&J/I64/ISA"M&J/I65/IWA"M&J/I66/I[A"M&J3C3A3L& 7NSI2(GI21&,+A22/IOA2,GI24&,+A25/I[A")*M3CV +I7N7AOU2-OS3H3A7TKE2 	E/N> .MRJ2ISI2=7R3P	B/TR(.,F1.,[I")*M2I[I2(SI*)24.4V,2MNJ2 GN+CCH+CCA*1
S7TOE7T^ 3ISE3ER3OWLN*M25RI/OZ . 7I.1V,"0*M3S*I+MCS/MGS"6*M26NI7OSN7IWNE*M2IGC+LCL3I	N3T&(+A21/IKA2,GI23&,+A243IG25&,+A&6"M&J/I7D7RCM7BSI*(24*121+I&6"M&J+IF+I	D.5V,",67*JCC7A+N3E
I/E* 2 WB3R	E3TZ 7UKE2 WM7SWSN7G2JNI3A3L2 WS+TB+I24*1&0"M&J3C3A3LF +US.1R,.,SI")*M7CR 7ASS7EJ 3EGL+I7S3WOE3HWS3LV +ICN"?*M2I;ED*MBLBZ

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