File PSCAL.FT (FORTRAN source file)

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

* B * B 3SKU7RWO3T;I7EB 3SGCL*M* B * B 3C7O3M;O6 R/7KKT+N?X2 7T7I[N7XR,3M;I+V3Y3TGM7XV2,7T7A[X7YR,3RGE+L3X3TWR7A	L",*M* B . F 2 	T3M
A7XR,3IGM+G3Y3TOR3O[S6,KT3S;I7FR,3ROS+A3L3T[R7AC6,KT3FOAY6,*JB * B 62R 3RGP+R217TCR/AKR6,KT7PKA63R,3RGP+R247TCR/AWR6,KT7PKA26.,3M[O+LG*82)3KGP+D22*MBJ* B * B33KGB7UKD2,
K3N3F3G.,3GGR+F3L3K?H7M	E2,/K3MSO3E.,7HKO+S3Z3KWV7R+S6,SK7BOLZ6,*JB * B 24. 7S+I+E3F3K7L3R;G6,KK3M
R3N.,3FOA+T3R3KWT+R3M3K	L+N3E3KGZ7XOI2,KK3E7A3X.,3BGE+M3Y*MBJ* B * B53K?M3V[E6,CK3CGH/RV(2).,7DOA+H3T3K	M7NS2,7K7ION3Y.,7MA+S3X3KGM7X	S2,WK3Y?CN6,*JB * B 26. 3I3N+F3T7KSO7LSF6,WK7NSI*MBJ* B 2 2 3O	G3C3A2 ;AE7G*JB * B 2 ;A/E7G7TCR/AGR2 ^.+TB.7TCR/AKR*MBJ* 
 6 B 7I[D.2&=.0B."0*M+C* 2 WS7TV 7PV 7NKT7AON7LSA+ECD3T	R+ACL3P3O+ACR3W;I7D
O*MBJ* B 6 R 3RGP/R63"06.*JB * B 6 KT7PKA.4B=".*M* B * B 3T[R7A	C*=:1*MBJ* B 6 R 3RGP/R66"06.*JB * B . GR2=7T7I[NX*M* B * B /R623TGM7XV*MBJ* B 6 J 7MA2=7A/AGX2(KA7SJ(*12)7AOB.(KR")6)*JB * B 6 KT3FOA/XF=.0B06.J/7MA*MBJ* B 6 R 3H	M3NF=3M;I61R(3RGP+R217TCR/A
R")*M* B * B 3T7H/A7X3AGM+X"17TCR/AKR6,KT7PKA"16)*JCC2*Z 3ISN6 E3TWR7MOE2 [O2 T7ER 3RGI7LB 3OGL7R^ 3ISNO7W*JB * B 2 GC+LCL3W;I7CSO.(GR2,T3M;I6,I21&,+Y&1*MBJ* B 2 N 3A3L2 	W3N?C7TJ(61R,3HGM3X&,+X22/IKY")*M* B * B 3C3A7L^ 3ION+OT+R223T7H+I3N/IOX6,	I"36)*JB 
 B 2 GC+LCL3W;I7CSO.(KR2,T7MA6,I24&,+Y&4*MBJ* B 2 & 3X	M3N6=/ICN6(I21&,+X22/IOX6,I"46)*JB * B 6 I7MA2=GM+X"0/IGX6,I22&,+X23/ISX")*M* B * B 3I7Y/I7N3M;I20&(+Y21/IKY6,	I23&,+Y&4*MBJ* B 2 & 3YGM3X6=/ACX6(	I21&,+Y22/IOY6,	I"46)*JB * B . 7X3T7H+I?N3PSIV62*JB *
B 2 [I2(T3M;I6.SG*.:0.)7X+X:+.9&9*MBJ* B 6 F 3USA2=3F7OSA2([I+IX+X&)2*	P/DKV*MBJ* B 2 : 3QGU/DB=2MNJ* B*3CWH+CCK7ESX3R7E+ECS+OCF3T	R+ACL3W;I7D
O6 SA. B92 WD3GWR3E& 3NWT3RGVL7S.JB2*0B 2 [I6(WQ+A;D+G;E3T7H+A	X+GCO+TCO.3B0*MBJ* B 2 : 3QGU3D:=3QGU/DF+*MBJ* B 2 N 3A3L2 	W3N?C7TJ(61F,3USA6,I21&,+Y&1*MBJ* B 2 N 3A3L2 	W3N?C7TJ(62F,3USA6,I22&,+Y&2*MBJ* B 2 & 3X	M3N6=/ICN6(I21&,+X223I7X+I	N*MBJ* B 2 & 3X
M3X6=/ACX6(I21&,+X223I7X+A	X*MBJ* B 2 & 3Y	M3N6=/ICN6(	I21&,+Y223I7Y+I	N*MBJ* B 2 & 3YGM3X6=/ACX6(	I21&,+Y223I7Y+A	X*MBJ* B 6 F 3USA6=WQ+A/D3PSIV62*JB * B 2 [I6(GN3USA6.SL*.&4+GCO+TCO.2B02MNJ* B*3C7O7PSU7EN 3RWE3NF +NCD7VKI3TGU7LJ 3A
NE7S.JB3*0B 6 OT3R;A3X.=7MA+S7X3K	M7NS*MBJ* B 6 R 3SGR/N7Y3KGM7X	S2-7K7IONY*M* B * B 3XGR3NWG6=I7MA6-I3M;I"M2J* B * B 3YGR3NWG6=	I7MA6-	I3M;I2MNJ* B*3C7O7PSU7EJ 3EGL7T[I7EJ 3A	D+UCS3SGC+LCE3FOA7TKO*MBJ* B 2 Z 7ASC/O7R3A	M+N"17AOB6(OT3R;A+X>)3XGR3NWG2,KA7S
(3SGR+N	Y6/KY3A
NE6)*JCC2*N 7OCM3UWT2 OS3RWE3N> 7FOF7EOT*MBJ* B 6 R 3RGP/R633F?L+AT3K	M7NS2)Z-7ASC+O+R3F?L+AT3I7X+I	N*MBJ* B 6 R 3RGP/R643F?L+AT3K	M7N	S2)Z-7ASC+O+R3F?L+AT3I7Y+I	N2MNJ* B*3C7O7PSU3EZ 3IGN7LJ 3A	D+UCS3SGC+LCE3FOA7TKO*MBJ* B 6 R 3RGF/C7X3T[R7AC2*GF3C?TR*M+C
 2 ?C7MWP+TCE3A
N+LCE3SGC+LCE3FOA7TKO*MBJ* B 6 R 3RGF/C7Y6(KT7PKA62R-3RGP+R&16/R(7MA+V7Y3T	M7N	V")*M+C* 6 CA7P	L2 ?C3RWR+CCT3S
I7NR 3OF 3N3G7EN 3C3A3EZ 7ASCO7R*JB * B 6 KT3FOA7YN=3I;G*(:16,OT3R;A7XR*3SGR+N	Y6*KT3FOAY*M* B * B 3A;A/GB=".*M+C* 6 CA7P	L2 ?C3RWR3C	T+OCN7FKO6 J	3EWV3RWS+DB	3W;I7D
OS*M* B * B +IF3AWN3GF.+N;D7TKS7A	N6.SL*.:06.KO6.OT3R;A3X2./TB.2.F.+N;D2.?N3TF.3N
E2)GA/N7G.1B8".*M+C* 2 ?C7MWP+TCE3A
N+LCE3O[F7SSE*MBJ* B 6 R 3RGP/R663T	M7N	V6-R(3RGP+R.13A;A+G>)3T[R7A	C*MBJ* B 6 J 7EWTR7N*JB * B 2 ;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