File LAP.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 7UKB7OSU3IWN2 GLP*MC*M+CB * B * B 7PKU7POOE*M+CB * B * B * B 3C7O7PSU7ER +HCE3V3A7UOE2 [O2 T3E2 7AWG7EKR7EB 7O	L3N7O3I3A3S2 *(3NX6)*JCC*
B * B * B 2 ?F3RF 7RWG3M;E7TZ 7AWL7E" 2 ;A3D> 3RWD+RCS60V 7PR 3O: ".*MC*M+CB * B * B 3UGSG7E*JCC* B * B * B 2 GC+LCL7LCA*(3Y3X:,")*MC*M+CB * B * B 7DOE3C	R3P	T+OCN+OCF7PKA3AWM7TKES*M+CB * B * B * B +YB * B 6-J 7EWS+LCT3VOE7TKO2 [O2 	D3M;E3S?I3N: *+B13C;O3
	A3N;I7GR +HCE3V3A7UOE2MNJ* B * B * B * B * B * B 2 [O2 GL3GWU3RWR2 ?P3L;Y3O	M7AOL2 [O6 KO7DKE* B0+UCP+TCON*M+CB * B * B * B * B * B 2 Z +OCR7G[I+ECN3A
R3UWM+NCTX6.*JCC* B * B * B * B * B * B 3V3A7UOE6 KA3E> 3RWD3RSE6 KF+OCM7L
O2 ?T2 	H+GCH3OSRE7R*JCC* B * B * B * CX* B * B-3A
R3UWM+NCT+OCF3L
A7UKE+RCE3P3O3Y?N3MGIL*M+CB * B * B * B +NB * B 2-> 3RWD3R> 3F2 7AWG7EKR7EB 7O	L3N7O3I3A2MNJ2MNJ* B * B 6 J 3EGM7ROK2MNJ* B * B * B 2 : 2 WL+SCS3TGH/NB 6 OI6 KT7ESA+ECD+ACS+ICF7N^ 3EWR" 60"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 V 3V3A7USA3I;O6 OI2 GB3SSE2 ;O2 T7EJ 7EWC3RWR3NWC6 GE7USA3I;O2 ?FR*M+CB * B * B * B 3L
A7UKE+RCE3P3O3Y?N3MGI+LCS3L:(*,	X2MNJ* B * B * B 2 2 *(/N61",.)J=**L7N",2)2-*(7N61",*)"-*(.1+X*)3L:(*,	X*-L/NF-*,	X*)"//NF+")6,*JCC* B * B * B 2 W3EWR2 T3EZ 7IOR7TR 3E7R2 ;I6 KB3A/C7EOT6 OI2 T3E> 3RWDR6,*JCC* B * B * B 2 T7EN 3E?C+NCD+ICS3TWH6 KA3G7U7ESN"
*M+CB * B * B * B 3SGT3R	T+NCG3V3A7UOE6 KA3E2 *(20/X6)*1B,/LF(*,	X*=:1*-;X2MNJ2MNJ* B * : *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".6."J7C*JB * B 6 WS3B?R3U	T+NCE7LCA*(3Y3X:,")*MC*M* B * B 3D7I7EON3I;O* Y"16)"J7
*JCC* B * B 2 WT+SCT+OCF3OSRE7R*JB * B * Y.16)"16.*JB * B 2 [I*(	N.1F,",62*JB . F 2 WR7TKUN*MC*M* B * B2/YJ(.)F=6."-*MBJ* B 2 & 3F:(*-&1.1F,",63"J7C*JCC* B * B 2 ;I3I	T3A	L7ZSA3I;O*MBJ* B 63R *=:1"+7X"J7C*JB * B 2 ?D* B4/IJ=",7N*JB . R * Y/IF+6)&=*(	I*-Y/
F-6)&+*(	I6-R(**Y+I6)3Y&(*-&12)Z/3LGO3T&(")*M* B * B 7RSE3U;R*MBJ* B 2 V N7D"JBZ"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