File EIPO83.FC (FOCAL source file)

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

JK()BTC U/W-FOCAL:EIPO83NO/DA/TE?MI,BBZ?MD?BJF T=U,V;D 5?MB%C
Q?MC$JJO I M(T)?MC-J(O I,E?ME+C[T !!"KOSTENGRUPPEN:"!!"     10"?MHKB-T !;S P=250,K=23?MB2CZD 1.8,1.8,1.8,1.8,1.8,1.8,1.8,1.8?MDKJTF I=1,22;A Z?MDFNJR?MBXBHA !"ZEILE 
 ",ZE?MCEB(F I=0,9;T %8,I?MGDNTD 8?MB,J^F I=24,272;A A(I);S S(I)=S(I)+A(I)?MI\CFT !!"AUSGABEN"!!"KONTEN":12;S P=1000,K=162;F I=1,10;T %8,I?MIBBTF I=ZE,77;T !?MD
CAD 1.6,1.6,1.6,1.6,1.6,1.6,1.6;T !!"SUMME EINNAHMEN:":22"DM",SE?MFBC\F I=262,271;T :14%7.02,S(I);S SA=SA+S(I)?MF;C]T !!"SUMME AUSGABEN:":22"DM",SA,!!"SUMME BUEROAUSGABEN:":22"DM",SA-S(262),!!"PRIV.-AUSGABEN:":22"DM",S(262)?MB!C^F I=1,32;T !?MG"PJT !%6,P,
14%7.02,0;Z S1;F I=K,K+8;T S(I);S S1=S1+S(I)?MG6P^S P=P+10,K=K+9,SE=SE+S1;T %9.02,S1?MRJF I=K,K+9;T %7.02,S(I);S S1=S1+S(I)?MHB2T !%6,P,:14;Z S1;D 9;T %9.02,S1;S SE=SE+S1?MEIB<S P=P+10,K=K+10;O (300-P)7.1,7.2;O (400-P)7.1,7.2;D 1.5?MC<B^T :20"JAHR 1982"!!
EINNAHMEN"!!"PROJ.-NR.":12?MCPCPS P=P+100,K=K+10;T !;D 1.5?MJBBDT !!"AUSDRUCK ALLER EINZELKONTEN 1983?MC1BFS U=61,V=72?MHML S EIPO831?M?K ALLER EINZELKONTEN 1983?HMEN"!!"PROJ.-NR.":12?0-P)7.1,7.2;D 1.5?.2;D 1.5?M?M"104.   ";D 5.8?MPKBHT !"*"!!!;F T=U,;D 5
MS1BKD 9,9,9,9;T "1O1.  ";D 5.42,5.44?MRIBDA !"ZEITRAUM: BEGINN - - MONAT, JAHR: ",U1,V3," ENDE.7^.*7B . F ..F0.0F .1J0..B0*0B * B . B9.0Z.*8B . F ..F0.0F .2"0..B0*0B * B . Z3.6&.*7B . F ..F1*0B .3Z2..N1*0B * B .4&7.5R.*6B . F ..F0.0F .1F0..B0*0B * B . B4
0B.*0B . F ..F0.0F .2R0..B0*0B * B . V4.4B.*0B . F ..F0.0F .8J0..N1*0B * B . V1.2".*2B . F ..F0

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