File SOB1.FC (FOCAL source file)

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

H
()E0C U/W-FOCAL:SOB1NO/DA/TE?MB	BOF I=1,X;A !,P(I),Q(I),R(I),S(I)?MB3BPS E=1;F I=,N-2;D 2?MG$BRT !!"DL"!;F I=1,N;A DL(I)?MFCBUF I=1,Y;A !,T(I),U(I),V(I),W(I)?MC8CRI (KL)1.84;T %4.02,L,%2,X;F I=1,X;T %5.02,P(I),Q(I),R(I),S(I)?MDDCTS E=1;F I=,N-2;D 3?MDRCVF
I=1,N;T %3.02,DL(I)?MFWCXI (KR)1.9;T %4.02,M,%2,Y;F I=1,Y;T %5.02,T(I),U(I),V(I),W(I)?MGEDTT !"LF";F K=1,Z;A !,A(E),B(E),C(E),D(E);S E=E+1?MFTT " ";F K=1,Z;T %5.02,A(E),B(E)," ",C(E)," ",D(E)," ";S E=E+1?MG3BEZ?MBTBLI (KL)1.16;A !!
L 
"Z"X?MG?BVA !"WEITERE TRAEGER
"LM;O O D(LN)?MHSCZT " ";O C;I (-LM)1.1?MD3DJA !!"STW + KZ"!O(I+1);Z Z;F K=1,3;A J(I*3+K);S Z=Z+J(I*3+K)?MENFJT %4.02,O(I+1);Z Z;F K=1,3;T %2,J(I*3+K);S Z=Z+J(3*I+K)?MCCBTI (KR)1.22;A !!"L"M,"Z"Y?ME4BJA !!
LN N KL KR 
?MCVCPT %2,LN," ",LM,N," ",KL," ",KR," "?MF$C
T !;Z LN;L R SOB2?M?ML S SOB1?M?M R SOB2?," "?M?ME 1.81?M?MA !!
LN N KL KR 
?M(KCPT %2,LN," ",LM,N," ",KL," ",KR," "?M?M?M!"L"M,"Z"Y?M=1BJA !!
LN N KL KR 
?M,"Z"Y?M=1,3;T %2,J(I*3+K);S Z=Z+J(3*I+K)?(I*3+K)?SE,%4,

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