File STLKSP.FC (FOCAL source file)

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

&Z()BTC U/W-FOCAL:STLKSPNO/DA/TE?MLCBAZ?M%ZBCA !"NR. D. STAHLLISTE: ",NL,"  NEUE LISTE =1/VORH. LISTE =-1: ",I?MCSBKN T;S A(T)=FIN( );I (A(T)-135)1.12,1.15?MCBLI (A(T)-255)1.11,1.14,1.11?M
4BNS T=T-2;G 1.11?ML7BTN I;T !%3,I;S N=I-1?M\QB\S I=I-1;G 1.26?M$CCPS R(D)=R(D)*D*D*PE/100?MD"LTS X=X+2;I (D-X)6.8,6.9,6.2?MD(MPS Z=-1?MX?MZR?M%MV2O I,E?MD=EGT "LPE GRIESBACH?MEKENT "LBG NEUMARKTERSTR.?MJLEOT "FA. HIRSCH, VERSCH. PROJ.?ME)EUT "HPT-SCHULE 
URNAU?ME8FAT "MALTESER HILFSDIENST?MFTFBT "BAYER. BAUKREDIT: REIH.-HAEUSER BAYREUTH, 2. BA?MFZFCG 2.1?MF7FET "STADT MUENCHEN: KOMPRESSOREN-STATION GROSSLAPPEN?MF=FFG 2.1?MGCFGG 2.1?MGSFIT "ARGE STOLLENBAU SIMSSEE?MG(FKT "DON BOSCO KIGA, SCHLEISSH.STR. 36?
G8FMT "ALTENWOHNSTIFT OTTO II?MHOFNT "STADT MUENCHEN: UMBAUTEN  GROSSLAPPEN?MH,FOT "BAYER. BAUKREDIT: BV GEORG-STROBEL STR., NUERNBG.?M^>FPT "BAYER. BAUKREDIT: BV WOHNANL. MUENCHEN, RUBINSTEINSTR.?MIRFRD 2.1?MIXFSD 2.1?MI^FTD 2.1?MVVFUD 2.1?MD2DJT !!"KEIN
TITEL VORH., BITTE TITEL IN ZEILE"%4.02,P," EINSCHREIBEN !"!!;Q?ME\EPT "LEIDER IST HIER KEIN AUFTRAG VERGEBEN WORDEN !!!"!!;Q?ML&BVS I=I-1;G 1.2?MDRLJZ Z;I (28-D)6.8,6.9;I (25-D)6.8,6.9;I (22-D)6.8,6.9;S X=4?MLXBED 11;I (I)8.1;G 1.3?MP8PJD 1.15;T "  I/X?M
?XTF I=1,V;T %8.01,DV(I),LV(I)?M .X2O C?MBXBBA !!"PROJ.-NR.: ",PR;S P=PR/100;D P?MV;BIA !"ERSTE ENR. 
 ",I1?ML1BWS S(I)=D+S/1000?MUPBXG 1.2?MJ+BUA :6,S;I (S-.5)1.25;A :11,D;D 6;I (Z)1.22;A :14,L(I),:20,Z;I (Z-9)1.23,1.23?MPEB2S D=25?MU:RJS J1=J1+1;T !;I (Y-J1)9.2;R?MU,BPT "  I/X";S I=I1-1;G 1.2?MC-BRT "    25    28"!?M ZTJS TA=19+(D-6)*3,R(D)=R(D)+LV(I)?M
JB0S PE=.61655;D 9,9;T "LAENGE / D :":14%10.01;F D=6,4,22;T R(D);D 1.8?MM B1S D=28;D 1.52,9;T :20;F D=8,4,20;T R(D);D 1.8?MPNB6D 9,9;T "GEWICHT/ D :":14%10.01;Z Z;F D=6,4,22;T R(D);D 1.9?MO$B4T R(D);D 1.8?MP+B8S D=28;T R(D);D 1.9,9;T :20;F D=8,4,20;T R(D)
D 1.9?M$LB:S D=25;T R(D);D 1.9?MVDPTA !,I;I (I-.5)8.4;A :6,S,:11,D;D 6;I (Z)8.2;A :14,L(I),:20,Z;I (9-Z)8.2?MQ8P2D 1.25?MQ
P(A !!"AENDERN D. VE 
",I;I (I)8.7?MSLP<A !,I;I (I-.5)8.7;A :6,DV(I),:15,LV(I),:22,Z;I (9-Z)8.6;I (I-V)8.6;S V=I;G 8.6?M%V^F I=I1,N;A S(I),L(I)?MM&QPA !"LISTE OK 
 =1 / NICHT =-1 : ",I;I (I)8.1;G 1.32?MR/QFA !!"VE OK 
",I;I (-I)8.8;G 8.5?M$2XGO O L(L)?M$(VED 12.05;O I L(L)?MK>X(F I=1,T;S Y=FOUT(A(I))?MS1X^F I=I1,N;T %8.04, S(I),%4.02,L(I)?MNRR2Q?MR"VTF I=1,V;A DV(I),LV(I)?MC:BZN I;T !%2,I;A :6,DV(I);I (DV(I)-1)1.3;A :15,LV(I),:22,Z;I (9-Z)1.28;S V=I;G 1.26?MT%BYZ I;T !
"VERTEILER:"!!"  I DURCHM.  LAENGE  I/X"!?MNFBQF II=6,2,22;T :17%5,II?M\WRTF T1=J1,73;T !?MQ%P^D 1.23;I (I-N)8.2;S N=I;G 8.2?M])FVT "BAUHERRNGEM. DOM-PEDRO STRASSE"!:10"WOHNANLAGE DOM-PEDRO STRASSE?MB<BJT !"PL.-NR.: "%3,PR?M[PB&T !!"S T A H L L I S T E  B
T 420/500?MN%B/I (60-J1)1.48,1.48;S Y=60?MW9B*D 1.15,1.17,1.18?M CB+S Y=69;F I=I1,N;D 9,7?MX&NTS TA=79;I (27-D)7.3;S TA=73;I (24-D)7.3;S TA=19+(D-6)*3?MX5N^T %3,I,%4,S,%2,D,%4.02,L?MY(NT %5.01:TA,Z;R?MXGNJS =S(I),S=(-FITR(S(I)))*1000,D=FITR(),L=L(I),Z=S*L
R(D)=R(D)+Z;I (KU)7.4?MK"N(S PE=.61655,G=Z*D*D*PE/100,GG=GG+G;D 1.8,7.3;T %9.01,G?MZ?B"T "*"!!!"I N G E N I E U R - BUERO  B R A S S  ";O (KU)9;T "ALFONSSTR. 9  8000 MUENCHEN 19  RUF *089-181081?MWHB$T !!"PROJEKT: ";O (KU)9;D P?M
OB	T "  NR."%3,PR," /",NL"     ?MZFB S Y=100;A !!"  WELCHE ZEILE 
 ",Z,,"   VOLLST. AUSDRUCK +1/KURZFORM -1
 ",KU;F I=Z,72;T !?M[!B^G 8.8?M]TR^I (U)9.4,9.4;S Y=69,J1=17;D 1.34,1.36,1.38,1.39,1.4;T !!"F O R T S E T Z U N G";S Y=69,J1=17;I (KU)9.35;D 1.42;T !;R?M&LRD 14.1;S J1=20;R?M!;\TF I=I1,N;D 7,9?M]<FWT "FA. HANFSTAENGL: BV GARCHING?M^MFXT "WOHNHAUS WIDHOPF,
ECHING?M^$FYT "STADT MUENCHEN: WZ-SCHAECHTE GROSSL.?M"FZT "BAYER. BAUKREDIT: BV WOHNANLAGE TAUFKIRCHEN?MILFQT "BV STINHAUSER, MENZELSTR.?M/B(O (KU)9;T "   ZU BEW.-PL.- NR. "%3,PR," / ";F II=1,T;S Y=FOUT(A(II))?MM7BOT !!" ENR.  ST. D   LG.?MW^B-I (V-.5)1.4
;D 9;F I=1,V;S D=DV(I);D 10?MS&TTT " VE"%4:8,D,:TA,%5.01,LV(I);D 9?M]
\JD 1.15;S J1=15;T "   G E W I C H T"!!?M"D\(F I=1,V;S D=DV(I),G=LV(I)*D*D*PE/100,R(D)=R(D)+LV(I),GG=GG+G;D 1.8,9;T "  VE"%4:8,D,%5,LV(I),:19%9.01,G?M!D\^I (V-.5)14.5?M\2D 9,9;T "GESAMTGEWICHT:":15%9.01,GG,"  KG";S U=-1;G 9.2?M".F[T "FA. SCHLEGEL?MFF^T "K
TH. CARITASVERBAND: ALTENH. KRAILLING?M]F$T "KG BAY. HAUSBAU: BV BUDAPESTER PLATZ?MJ5F	T "BBK: BV VACHER STR.,FUERTH?MW.B)S U=1,Z=,GG=,J1=12,Y=69;I (KU)14.1?MI$CZS GG=GG+R(D)?MDDB<D 9,9;T "GESAMTGEWICHT:":29,GG,"  KG";S U=-1;G 9.2?MTWVJA N,V,T,I1,GG?MK-XJ
 %3,N,V,T,I1,%9.01,GG?MD,V(F I=1,T;S FIN(A(I))?MS
XES L=1000*(PR-300)+NL?MKUBDA !"LISTE SPEICHERN 
 ",U1;I (-I)1.09;A "VORH. LISTE AUSDR. =1 / VORH. LISTE AENDERN =-1: ",I?MTSR(T "*"!!;I (U1)9.5;D 12?MTEL S STLKSP?M?M =-1: ",I?M",R(T "*"!!;I (U1)9.5;D 12?MTE AUSDR. =1 / VORH. LISTE AENDERN =-1: ",I??M*[B0D 2?M	MB/I (1-I)1.6;S AX=FITR(25*A)/10?M(1DED 11
M!%HDI (B-2.5)4.4;I (B-3)4.7;S B=3;G 4.7?M(&BH    AS1     AS2   TR    ZUL. TAU 1,2";D 9?M(6B"A !!"2) BELASTUNG:"!:4"STUETZENLAST POS ",Q,:33"Q [KN] ",Q?M\GB$D 10;A "BODENPL. U. NUTZLAST:":30"P [KN/M2] ",P1;S D2=D?MB$L S IFUGU?M??ML. U. NUTZLAST:":30"P [KN
M2] ",P1;S D2=D? ",Q?M";D 9?E W(I),%4,SZ(I),

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