File TEMP.FT (FORTRAN source file)

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

C&I3MGK7R	R> O)> O5+%C$+4C/;3G?.R ;(?2;5	* C!?	[)+%C.?$S!;!Z ;)W,: ;5;43): 4%*MC&I;4W(: 		;6;%: 	4+-C%+)C3?&W/+.C$?&K/: 47%B +O3T: 4+%C.+)C4;&3)+,C3;4W(2 3FU7X"J	C>IK!;2G2?9^ ;)4: 43%F */CD;63!?5O%: ?&?2R +(C%*3B7;3!;/	2?-S%?%O2: ;!?$R (7%"J	C:I4?%Z ?!W,+
C3;&?2?-R +(C%7PSO: ;!?$R +(C%7PKY3H3E3I7O3EWT;RN ;(;!;.3%+3B.;TW(.*MC&I;4W(+3C%;63!?5O%> K!;%N ?/[.?%S2+%C$+4C/;%
.;)W.;%	2+.C	;5	.+4C3?7S)?(R +(C%;;/"-*MC&I?6K%;3?)+.B 3E
N2=SA3V3A2*?C+EF+NB);7W(+2C%3CWO3F:(*)B +)C3;!N ?/[.?%O2;);/" *MC&I;&O!?4K/: ?&;2N ;(;!;.3%* ;N"M6J"J*M"M&J3SKU7RWO3T;I3E6 7KKA+RY7SSC3IWM2,;I3V3A3D&,7NWP3TZ,7MA2,7B+A	X"M6J2J&I3NWT7GKE2 OS3RWE3N>,7UCT+U3T7ICNU7T"J*M2IWR+ACL7FWL/XN(.9^,*32)7DSA/EF(*32)7PO
+IT*1&36,SS3IWM.(N12)",7OKU"M&J3RGE3L6 +I3N3SOE2,GD7YN,3C	T+M3E3BGM3XZ,7MA2,?C+EF*3&72,	L+NE*8&0"M&J3RGE7LB H7I"J*M2I?L3GOI+ACL7I[N3ASL.(J1"86)"J*M2I?C3M?M+N> 7FWL7COK2/3FU7X"J*M2IGD+TCA7SKC3E;E*/>4"M6J"J	C:IT?%Z ?!W,+%C3+/C&;4W(: ?;%	&;W)?.O4: ?&?2R +(C%
3!;/	2?-S%?%O2> K!%6 "J	C:I;%?4K%+%C$?(K%+%:.".*M"M&J7DSA3AN 3O[E./B..8N6.6^4.,B..8F0.3J9.,B..8&9.0"4.,F..0&3.4B3.,B..8F3.2&9.,B..8J5.6F6*MBJ* B * B$* B * B * B * : .0N8.1&2*9:,.0&7.1J6*6:,.0&7.1J6*6:,.0J8.0N9*0:,.0Z8.3R6*0:,.0B8.1&3"2*M* B * R * B * B * 
 * B .."0.7J5*424..^0.9Z1*226.."0.3J1*929..&0.2R3*622.."0.8"6*421.."0.3J1"969*JB * B *$B * B * B * B . B..8Z8.8F4.,B..8J5.6F6.,B..8V7.2R4.,B..8&9.0"4.,B..8F3.2&9.,B..8F1.1^5*MBJ* B * B$* B * B * B * : .0J8.0J9*3:,.0N8.1&2*9:,.0^8.5R2*4:,.0&7.1J6*6:,.0N8.1
2*9:,.0&8.9R0"8*M* B * R * B * B * B * B .."0.4Z1*725.."0.5Z2*621.."0.3J1*929.."0.8"6*421.."0.0"6*421.."0.2&0*2>3"M6J"J	C:I?N;7^ ;/^ +%C4;4W(: 3&+5C8?!K2+!C9;&3);,S%> K&+/C-;4W(: G$+4C!;&3)%6."J*M2IGC+LCL7GSE7FL2(3F+U3X7I[N3ASL2,OS3T7I3E&,7NWPT6)"J*MC&I;B
%+)C.;0?2?O%;3;)?	R +(C%?!K2!79"J	C:I	F?2S3: ?;.W6+2C4+4C/?7S!+4?3;;%;47);%W4?2N-?1K5+%C$;!S.: 	&+.C$;4W(: G-;87)+5C-?&W,8*MC&I;/W6?2R +(C%?%S.;)W2: 30;!W.2 7F+A3X: ;!?$R +(C%?-!?)W-;-Z ?,5> K!;/;5?$R +(C%?"K/?$K%2MNJ2IJI7MA".*M2I7F/A7X.0B."M&J3BGM/XB=".6
2JRI/OJ 206 *=21"763*JBI2 Z 7LU.(&3*,	M2=3F+UX*329+M*).0Z..5F3"M&J* B +ICF2(3F+UX*329+M:)+E;Q.0B.2)Z 7LU.(&3*,	M2=3F+UX*329/MF-")*M*IB 2 ?D. B3. 7N.1N,"7*M*IB * B 2 [I2 Z(7LU*(3N+M:)+G;T.2R0.8B.2)Z 7LU*(3N/M6).0B."M&J* B * B 3P	H2=3F+UX3N6,2)N*3O[E*(	N"M&
* B * B +ICF2(P3I^.3EZ.7MA2)Z 7MA2=PI*M*IB * B 2 [I* "(*(;M+E;Q*1:)+O;R*(;M+E;Q*7&36.KO2.:(6.GE*.&16.KO2.:(6.GE..^3")6)*JB * B *1B *IB 2 F.+N;D2(P3I^.3EJ.7MA*)B)2 7B/A7X3P	H"M&J* B * B 7FWL3X:(*,	M2=PI*M"3&0* B 3C;O3T;IU7E*JBI2 Z 7LU*(24/M6)2(3F+UX236,2)Z
7LU*(25+M&)"/62*JBI2 N 3A3L6 WC3R?P/SF(246,")*M*IB 2 GC+LCL7CKH7OSU.(J3")*M"2&03C;O3T;IU7E6JJI7EWTR7N2JVIN7D"J*Z*IB 2 ?D. B3. 7N.1N,"7*M*IB * B 2 [I2 Z(7LU*(3N+M:)+G;T.2R0.8B.2)Z 7LU*(3N/M6).0B."M&J* B * B 3P	H2=3F+UX3N6,2)N*3O[E*(	N"M&J* B * B +ICF2(P3I^
3EZ.7MA2)Z 7MA2=PI*M*IB * B 2 [I* "(*(;M+E;Q*1:)+O;R*(;M+E;Q*7&36.KO2.:(6.GE*.&16.KO2.:(6.GE..^3")6)*JB * B *1B *IB 2 F.+N;D2(P3I^.3EJ.7MA*)B)2 7B/A7X3P	H"M&J* B * B 7FWL3X:(*,	M2=PI*M"3&0* B 3C;O3T;IU7E*JBI2 Z 7LU*(24/M6)2(3F+UX236,2)Z+7LU*(25+M&)"/62.3B
* B .2V5* B .2J1* B .1J6* B .1"1* B . ^8* B . B7* B . R5* B . "3* B . Z2* B . Z1* B . Z1* B . J1* B . F1* B . R * B . F "M(* B . J3* B .6"2* B .5R9* B .5N2* B .3J7* B .2B8* B .2F3* B .1V7* B .1^2* B . R9* B . R7* B . Z5* B . "3* B . Z2* B . Z1* B . Z1* B 
 J1* B . & * B . R * B . F "M(* B . N3* B .6"2* B .6"1* B .5B5* B .3^9* B .3B0* B .2&4* B .1^8* B .1V3* B .1B0* B . "7* B . B6* B . "3* B . Z2* B . "1* B . "1* B . R1* B . V1* B . R * B . N "M(* B . R3* B .6^2* B .6J4* B .5Z7* B .4J2* B .3"1* B .2V6* B .1
9* B .1R4* B .1^0* B . J8* B . B6* B . B4* B . Z2* B . "1* B . "1* B . "1* B . ^ * B . R * B . B "M(* B . V3* B .6"2* B .6J6* B .5^9* B .4J4* B .3V3* B .2^7* B .2"0* B .1B5* B .1R1* B . Z8* B . J6* B . B4* B . Z2* B . Z1* B . "1* B . V1* B . ^1* B . R * B
. F "M(* B . Z3* B .6^2* B .6V7* B .6N1* B .4Z5* B .3^4* B .2^8* B .2F1* B .1^5* B .1&1* B . F9* B . J6* B . B4* B . Z2* B . Z1* B . "1* B . ^1* B . V1* B . Z * B . F "M(* B . ^3* B .6^2* B .6&7* B .6&1* B .4J6* B .3N5* B .2&8* B .2Z1* B .1F6* B .1^2* B .
Z9* B . Z6* B . B4* B . Z2* B . Z1* B . Z1* B . ^1* B . V1* B . Z * B . N "M(* B . "3* B .6"2* B .6N8* B .6R2* B .4^6* B .3"5* B .2F9* B .2Z1* B .1V6* B .1J3* B .1B0* B . "6* B . B4* B . Z2* B . R1* B . Z1* B . ^1* B . V1* B . Z * B . F "M(* B . &3* B .6&
* B .6V7* B .6R1* B .4R6* B .3"5* B .2&8* B .2Z1* B .1V6* B .1J3* B .1J0* B . B7* B . J4* B . N2* B . R1* B . Z1* B . ^1* B . V1* B . Z * B . F "M(* B . B4* B .6&2* B .6V5* B .5V9* B .4&4* B .3"4* B .2Z7* B .2&0* B .1&5* B .1^2* B .1J0* B . B7* B . B4* B 
 N2* B . J1* B . R1* B . R1* B . N1* B . R * B . F "M(* B . F4* B .6&2* B .6"2* B .5&6* B .4F3* B .3R3* B .2V6* B .1&9* B .1J5* B .1F2* B . ^9* B . "6* B . B4* B . F2* B . J1* B . J1* B . R1* B . B1* B . R * B . F "M(* B . J4* B .6F3* B .5Z9* B .5J4* B .4
1* B .3"1* B .2F5* B .1"8* B .1J4* B .1J1* B . B9* B . J6* B . "3* B . F2* B . F1* B . J1* B . J1* B . ^ * B . R * B . F "M(* B . N4* B .6J3* B .5Z6* B .5R1* B .3&8* B .2&9* B .2V3* B .1R7* B .1B3* B .1J0* B . F8* B . Z5* B . R3* B . &1* 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