File CS.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 7UKB7OSU3IWN6 OC2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 2 N 7OCM3UWT7SR +HCE3FWR3SWN3L& 3NWT3GGR+L;S2MNJ2MNJ* B * B 6 V 3S
AE*M+CB * B * B * B 3C3A3LN +S" 7CN,*,	X2MNJ2MNJ* B * B 2 R 3EOS7RCI3T?I3N> 7FB 3AGR7MSE7EOR2MNJ* B * B * B 2 N * B * 6 2 T7EJ 7EWS3LGT+NCT3V3A+UCE7C"(")6.*JCC* B * B * B * CS* B * B-3TWH2 WR3S3U3T;A7TZ 7AWL7EN *(	X".*M+CB * B * B * B +XB * B 6-R +HCE3A
R3UWM+NCT+OCF3FWR3SWN3L& 3NWT3GGRL7S*JCC* B * B * B * B * B * B +ICF3X& 3S: 3EGG7T[I+EB,3TWH2 KA3S3O3UWT2 GV3LWU6 OI6 OU+E;D2MNJ2MNJ* B * B 6 J 3EGM7ROK2MNJ* B * B * B 6 R +HCE3A
R3UWM+NCT3V3A+UCE7XJ 3EGM7ION2 ;U3CGH3NWGD6."J7C*JCC* B * B 6 WS3B?R3U	T7NOE2 ;A3DZ 3UON3T?I7NN 7UCB3R
O3R7A7SJ 7EWQ3IWRD*M+CB * B * B * B 3N;OE*MC*M+CB * B * B 7MSE3HSO2MNJ* B * B * B 2 R 3E	F7NSI3I;O2MNJ* B * B * B 2 N *(	X2=;I3T
E3R3A2(?C7SR(6)N/7QSR*(*2+L+I+TB)3S7U3MSE6 [O+ECR3TZ 3R7O* B0+TCOX6)*JCC* B * B * B * S/X6)7ISN7EKG+AL3S;I*(	T6/GS+RT3I2*7IR*6)N 3U7M+ECD3OWV7RR 6 KF+OCM60R 7O" ")*M+CB * B * B * B 3EGV3LGU3T?IN*M+CB * B * B * B 3U	S+NCG3D[I7FKE7ESN6 CA3P?R3X7I3A	T7OON2 ?
7R" 2 WL+SCS3TGH/NR 2 ;A7D" 2MNJ* B * B * B 2 ^ 3RGE7TKE2 T+ACN"46.*JCC* B * B * B 2 WR7FKE3EONE*M+CB * B * B * B 2	?C7MWP7TSA3I;O2 [O6 KF3E;S+ECL7ISN7EKG7AOL2	J 3YJ 7OKE3SGM",*M+CB * B * B * B 7MSA3H7E3A	T3C3A2 GT3BWL3SF +NCD3OT+ECR3ASI7SR 3ON 7OCM3UGT3T
I+NB,3V3O..F "46,*JCC* B * B * B . &1*6202 ?N..^ *2B,+PB..3B8".*MC*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ*MBJ* B 6 N 7UKB7OSU3IWN6 OC*(3C7S",")*M* B * B 3ZF=+BSX6)*JB * B 2 [I*(7Z*4&..1F,",62*
B . F . 7C7SKQ7T*(")*M* B * B 7S*="*7C*JB * B . 7Z*(:4*-	Z.*R(6.*+")*M* B * B 3CN=**"(*("(*(:5.1B0.7V8/EF-61***+:5.2R4.2^9/E&-6)***+:5.4F5.1J8/E^-6)***MBJ* B * .1.3J..7N320V8*-&5**/Z.1B..2R021V8*-&3**/Z.1F..0V224V4*-&2**/Z.1"..4&026V5*-&1*MBJ* B 6 N *=+S*
"(.(Z(..^6.7"6*17E*1*0/ZV+.."8.3V1*87E*8*)/ZV+..V0.1R1*17E*6*)Z*M* B . F *+:2.4F4.8Z1/ER-6)***+:6.1F2.3B2/EN-6)***+:8.0Z2.4B9/EJ-")*M* B * B 7RSE3U;R*MBJ* B 22R 2=?C7S*(")*M* B * B 7SN=+INZ6)*JB * B . 7Z*4>.Z*M* B * B +A"=*("(*("(.8^..6J825V8*-*4/ZR-..Z1.
"2*97E*3*)/Z^+..^9.0R9*37E*3*)/ZZ-..&7.2B8*17E"36)*JB * B 61***-:3.0V9.3F4/ER-6)***+:5.9J7.1F5/EN-6)***-:1.6Z0.4"2/EV-6)***-:2.4N9.3J2/EJ-6)***MBJ* B * 62.4R..4B429V1"-69*JB * B . 7B*("(*("(*-:6.6N3.9Z2/ER-**/Z.3R..0R120V9*-&3**7Z.7J..7Z129V0*-&3**/Z.7R..
J824V6*-&3*MBJ* B * *1/ZR-..J0.7R1*57E*4*)/Z&-..F3.4F9*07E*3*)/ZF-..B2.7&9*87E*6*)/ZF+..&9.4F7*17E"1*M* B * B 7ZN=7QSR*(	Z*MBJ* B 2 N *=:065*+2*R(**/A3SJ*")*M* B * B /SB=*..5+Z"*3SF**-+DB6)*JB * B 2 WR7TKUN*M* B * B 3ESN&M*J"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"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