File DQHSG.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 GD3H
S2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 6 R 3ON 7OCM3UWT2 T7EZ 7ESC+OCR+OCF7ISN7EKG+ACL3V3A7UOE2 ?F3RF 2 	G3V;E2MNJ* B * B * B 2 ^ 3EWN3R3A2 GT3BWL2 [O6 KA3G7U7ESN2,Z 3UON3T?I+NB,7FKI+SCT7DKE3IGV7T[IE6,*JCC* B * B * B 2 ;A7DN 3E?C+NCD7DKE3IGV7T[I7EZ 
AWL+E;S2MNJ2MNJ* B * B 6 V 3S
AE*M+CB * B * B * B 3C3A3LR 7QOH+G" 7X&,2,SF7YN,+D3Y3Z:,3D7I")*MC*M+CB * B * B 7DOE3C	R3P	T+OCN+OCF7PKA3AWM7TKES*M+CB * B * B * B +XB * B * B-7DWO3BWL6 KP3E	C3S?I3N& 7NWP7TZ 7ESC+OCR+OCF3A
R3UWM+NCT3V3A7UOE".*M+CB * B * B * B +YB * B * B-7DWO3BWL6 KP3E	C3S?I3N& 7NWP7TZ 7ESC+OCR+OCF3F;U3C	T+OCN3V3A7UOE".*M+CB * B * B * B 7F	D* B * B-7DWO3BWL6 KP3E	C3S?I3N& 7NWP7TZ 7ESC+OCR+OCF7FKI+SCT7DKE3IGV7T[IE6.*JCC* B * B * B 2 SS+YB * 6 2 ?D3U3B7EB 3RO
3I	S+OCN7ICN+UCT3VOE7TKO2 [O2 WS3C;O3DR 3E	R7VSA3IWV".*M+CB * B * B * B +ZB * B * B-7ROE7USL3I
N2 ?D3U3B7EB 3ROE3I	S+OCN3VOE7TKO2 [O2 ;I3T
E3R3A2MNJ* B * B * B * B * B * B 6 Z 7AWL+E;S* CZ7M	A2 WB2 SI7ESN3IGC7L^ 3IT* 3X* 3Y2 SF3Y> 7RN +D;Y2MNJ* B * B * B 2 : 3D7I* B 6-R +HCE3D7I7EON3I;O2 [O2 WV3C?T+RCS7X&,2,SF7YN,+D3YZ6."J7C*JCC* B * B 2 WR7MKAK7S*JCC* B * B * B 2 ?N2 OA3T?I3N& 3NN 3AWS2 SN+
CM7LOE7SR 3H;A* :12MNJ2MNJ* B * B 6 N 7UKB7OSU3IWN3SF +NCD3F;U3C	T+OCN3SKU3P?R3GGR+MCS7RGE7UKIE7D*JCC* B * B * B 2 ?NN7E"J7C*JCC* B * B 2 WM3T?HD*M+CB * B * B * B 3B
E3I;N3I
N2 	W+TCH/ZF(.)B=2,V 3V3A7USA3I;O2 [O2 WV3C?T7R* 6 OI2 ?D+NCEB7Y*JCC* B * B * B 2 WM7AON2 [O2 WH3R	M3TGE7NN 7ISX3H> 3RWD3R& 3NWT3GGR3T?I3NZ 3O7R3UGL".*M+CB * B * B * B 7FKO2 WR7FKE3EON+EB,3SWE2MNJ* B * B * B 6 J 6.WZ7RWM3E3H6,B 3R/A7TOI3CWH2 GM3TWH7MSA+IC
3FWU3R& 3NWG3NWI3UWR2 ;UD*M+CB * B * B * B 7P	H3S/I+E3R6 CS3R;I7GKE2,J 3E3R+I?N3GWO3T	T3NWG3N"/3ESI3EKL3E
R.,F .9N6",*M+CB * B * B * B +P;P.2^2.-N2"06."J7C*JCC* B * :.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".*MC*M* B * B 3SKU7RWO3T;I3ER 7QOH7G"(*,3Y7F	D2,SS7Y*,2,SN+I	M2MNJ2MNJ*MBJ* B 2 R 3IWM3N	S+OCN/XF(6)&,*(&12,S
/YF(6)N,+DY*12)/ZF(")*M* B * B 7DWO3BWL6 KP3E	C3S?I7N" *,3Y7F	D2,SS7Y*,6,WS+M213S7U"2*MC*M* B * B 3S7U.2B=..CD*MBJ* B 2 & 3F:(3D7I*-&1.4N,",61"J7C*JCC* B 2 ;I3T
E7RSA3I;O2 ?LO7P*JB . F 2 ?D* B2/IJ=2,SNI7M*JB * B 6 WS/M613S7U"2*M* B * B 3S7U*2:=.5CD6*"(*(	I*-X/IF-")6)6JNI/UKM6=WS+M.13S7U*2"**(Y/IF-6)&+*(	I*):+.4CD6*WS+M*22(Z(+DY/IF-2)Z-+DY+I&)"+*M* B . F * B * : .1Z6.6Z6.6Z6.6Z6.6Z626R760N*/UKM6*N(+DY/IF-6)N++DY+I
)")6)*JB . J * Z/IF-6)N=/UGM*MBJ* B 63* 2(SN+I	M6=WSM62*JB . R 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"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