File STLKSP.FC (FOCAL source file)

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

	%()BTC U/W-FOCAL:STLKSPNO/DA/TE?MLCBAZ?MLXBCA !"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^>BNS T=T-2;G 1.11?MMQBTN I;T !%3,I;S N=I-1?M[[B\S I=I-1;G 1.26?M"(
PS 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?M%MZR?MS
V2O I,E?MD=EGT "LPE GRIESBACH?MEKENT "LBG NEUMARKTERSTR.?MJLEOT "FA. HIRSCH, VERSCH. PROJ.?M$EUT "HPT-SCHULE MURNAU?ME8FAT "MALTESER HILFSDIENST?MFTFBT "BAYER. BAUKREDIT: REIH.-HAEUSER BAYREUTH, 2. BA?MFZFCG 2.1?MF7FET "STADT MUENCHEN: KOMPRESSOREN-STATIO
 GROSSLAPPEN?MF=FFG 2.1?MGCFGG 2.1?MGSFIT "ARGE STOLLENBAU SIMSSEE?MG(FKT "DON BOSCO KIGA, SCHLEISSH.STR. 36?MG8FMT "ALTENWOHNSTIFT OTTO II?MHOFNT "STADT MUENCHEN: UMBAUTEN  GROSSLAPPEN?MH,FOT "BAYER. BAUKREDIT: BV GEORG-STROBEL STR., NUERNBG.?M^HFPT "BAY
R. 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?M%XBVS I=I-1;G 1.2?
DRLJZ 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?ML=BED 11;I (I)8.1;G 1.3?MP1PJD 1.15;T "  I/X?M%EXTF I=1,V;T %8.01,DV(I),LV(I)?M
8X2O C?MBXBBA !!"PROJ.-NR.: ",PR;S P=PR/100;D P?MKUBDI (-I)1.09;A !"VORH. LISTE AUSDR. =1 / VORH. LISTE AENDERN =-1: ",I?M	WBIA !"ERSTE ENR. 
 ",I1?MT4BXG 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?MO>B2S D=25?MU^RJS J1=J1+1;T !;I (Y-J1)9.2;R?MUPBPT "  I/X";S I=I1-1;G 1.2?MC-BRT "    25    28"!?M
$TJS TA=19+(D-6)*3,R(D)=R(D)+LV(I)?MO$B0S 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?M!-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 
.9?MU(PTA !,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?MQ1P2D 1.25?MQXP(A !!"AENDERN D. VE 
",I;I (I)8.7?MSEP<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&9V^F I=I1,N;A S(I),L(I)?MNQPA !"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$7XGO O L(L)?MSXXES L=100*(PR-300)+NL?M$-VED 12.05;O I L(L)?MN,R2Q?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?MTIBYZ I;T !!"VERTEILER:"!!"  I DURCHM.  LAENGE  I/X"!
MN BQF II=6,2,22;T :17%5,II?M[!RTF T1=J1,73;T !?MQ^P^D 1.23;I (I-N)8.2;S N=I;G 8.2?MS7R(T "*"!!;A "LISTE SPEICHERN +/-1: ",U;I (U)9.5;D 12?M\3FVT "BAUHERRNGEM. DOM-PEDRO STRASSE"!:10"WOHNANLAGE DOM-PEDRO STRASSE?MZZB&T !!"S T A H L L I S T E  BST 420/500?
N?B/I (60-J1)1.48,1.48;S Y=60?MW,B*D 1.15,1.17,1.18?M
MB+S Y=69;F I=I1,N;D 9,7?MXYNTS TA=79;I (27-D)7.3;S TA=73;I (24-D)7.3;S TA=19+(D-6)*3?MX(N^T %3,I,%4,S,%2,D,%4.02,L?MX2NT %5.01:TA,Z;R?MK"N(S PE=.61655,G=Z*D*D*PE/100,GG=GG+G;D 1.8,7.3;T %9.01,G?MZIB"T "*"!!!"I N G E N I E U R - BUERO  B R A S S  ";O (KU)
;T "ALFONSSTR. 9  8000 MUENCHEN 19  RUF *089-181081?MV;B$T !!"PROJEKT: ";O (KU)9;D P?M^YB	T "  NR."%3,PR," /",NL"     ?MYPB S Y=100;A !!"  WELCHE ZEILE 
 ",Z,,"   VOLLST. AUSDRUCK +1/KURZFORM -1
 ",KU;F I=Z,72;T !?MZ+B^G 8.8?M\^R^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?MU:RD 14.1;S J1=20;R?M!E\TF I=I1,N;D 7,9?M]FFWT "FA. HANFSTAENGL: BV GARCHING?M]WFXT "WOHNHAUS WIDHOPF,
ECHING?M].FYT "STADT MUENCHEN: WZ-SCHAECHTE GROSSL.?M"1FZT "BAYER. BAUKREDIT: BV WOHNANLAGE TAUFKIRCHEN?MILFQT "BV STINHAUSER, MENZELSTR.?M&LB(O (KU)9;T "   ZU BEW.-PL.- NR. "%3,PR," / ";F II=1,T;S Y=FOUT(A(II))?MNQBOT !!" ENR.  ST. D   LG.?MWQB-I (V-.5)1
47;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!N\(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 N\^I (V-.5)14.5?M\2D 9,9;T "GESA
TGEWICHT:":15%9.01,GG,"  KG";S U=-1;G 9.2?MPGB6D 9,9;T "GEWICHT/ D :":14%10.01;F D=6,4,22;T R(D);D 1.9?MDDB<D 9,9;T "GESAMTGEWICHT:":29,GG,"  KG";S U=-1;G 9.2?MI$CZS GG=GG+R(D)?M"?F[T "KOMM. FA. SCHLEGEL?MQF\T "UMBAU VILLA TRUTZ, TUTZING?MWF]D 2.1?M)F^T "
ARITAS-ALTENHEIM KRAILLING?M:F
T "NEUNKIRCHEN: MEHRFAM.HS.?M$OF D 2.1?ME)EZT "KLAERWERK MUENCHEN I:?M$ F!D 2.9;T " KUGELGASBEHAELTER?M& F"D 2.9;T " KFZ.-HALLE?MS;VJA N,V,T,I1,GG?MK-XJT %3,N,V,T,I1,%9.01,GG?M	GX^F I=I1,N;T %9.05,S(I),%4.02,L(I)?MMKBWS S(I)=D+S/10000?MW:NJS =S(I),S=(-FIT
(S(I)))*10000,D=FITR(),L=L(I),Z=S*L,R(D)=R(D)+Z;I (KU)7.4?MW!B)S U=1,Z=,GG=,J1=12,Y=69;I (KU)14.1?MJ5FT "WV OBERPFRAMMERN: MASCH.-HS. U. SAUGBEH.?MD,V(F I=1,T;S A(I)=FIN( )?MK>X(F I=1,T;S Y(I)=FOUT(A(I))?MB<BJT !"PL.-NR.: "%3,PR,"/?M?ML S STLKSP?M?M%3,PR,
/?M?M	9;JS R=60?M	?;KS R=70?M(E. J .2B..0B2. & ..B0* B *2:2.0F0*0B .5N.*0B . J1..B0*2B0* :3*4B0. J .2B..0B3. & ..V4* B *2:2.0J0*0B .7F.*0B . J2..B0*2B0*1:1*6B0. J .2B..0B1. B1..V3* B *2:5.0J0*0B .2F.*0B . J2..B0*2B0* :8*0B5. J .2B..0B3. ^ ..B0* B *1:0.0B9
0B .1^.*0B . J2..B0*2B0* :0*4B0

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