File DLT1.FC (FOCAL source file)

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

I>()D)C U/W-FOCAL:DLT1NO/DA/TE?MD-BKT !!"AB"!;F I=1,N;A AB(I)?MB7BOF I=1,X;A !,P(I),Q(I),R(I),S(I)?MCCBPS E=1;F I=,N-2;D 2?MFIBRT !!"DL"!;F I=1,N;A DL(I)?MF3BUF I=1,Y;A !,T(I),U(I),V(I),W(I)?MHOCQF I=1,N;T %3.02,AB(I)?MDCTS E=1;F I=,N-2;D 3?MISCVF I=1,N;T
%3.02,DL(I)?ME*DTT !"LF";F K=1,Z;A !,A(E),B(E),C(E),D(E);S E=E+1?MFXBEZ?MB$BLI (KL)1.16;A !!
L 
"Z"X?MI4CZT " ";O C;I (-LM)1.1?MDNDJA !!"STW + KZ"!O(I+1);Z Z;F K=1,3;A J(I*3+K);S Z=Z+J(I*3+K)?MH1FJT %4.02,O(I+1);Z Z;F K=1,3;T %2,J(I*3+K);S Z=Z+J(3*I+K)?MCSBTI (KR)1.22;A !!"L"M,"Z"Y?MBTBJA !!
PR LN N KL KR 
!!
H H1 B0 B1 D1 BS CALB 
!?MGSBVA !"WEITERE TRAEGER
"LM;I (-LM)1.23;A "WELCHE ZEILE 
",ZE?MG[BWO O D(LN)?MC&CPT %4,PR," ",LN," ",LM,N," ",KL," ",KR,%4.01,H,H1,B0,B1,D1,%4,BS,%5.01,CALB," "?MEIC
Z LN;L R DLT2?MC4CRI (KL)1.84;T %4.02,L,%2,X;F I=1,X;T %6.02,P(I),Q(I),R(I),S(I)?MFTT " ";F K=1,Z;T %6.02,A(E),B(E)," ",C(E)," ",D(E)," ";S E=E+1?MD<CXI (KR)1.9;T %4.02,M,%2,Y;F I=1,Y;T %6.02,T(I),U(I),V(I),W(I)?MHEC[F I=ZE,71;T !?M.0L 

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