File EIPM80.FC (FOCAL source file)

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

M2()BTC U/W-FOCAL:EIPM80NO/DA/TE?MJ3BBZ?MCUB<S P=P+10,K=K+10;O (300-P)7.1,7.2;O (400-P)7.1,7.2;D 1.5?MCPNJR?ML%BHA !"ZEILE 
 ",ZE?MF1B(F I=0,9;T %8,I?MH>NTD 8?MI
CAD 1.6,1.6,1.6,1.6,1.6,1.6?ME JGT "EINN.-KONTEN":15;F I=0,9;T %8,I?MD:JOF I=1,20;A Z?MGQJTD 9;T %6,P,%7.02:17,0;F I=K,K+8;A A(I);T A(I);S S(I)=S(I)+A(I)?MB7J7O I,E?MMYRJT !;S J=J+1;I (68-J)9.2;R?MFJPA A(21),A(22);S S(21)=S(21)+A(21),S(22)=S(22)+A(22)?MK&
OF T=U,V;D 5?MC9JJD 9;O I M(T)?MJFJ-D 9,5.3,5.3,5.3,5.3,5.3,5.3,5.3,5.3,5.3?MDBJRS P=250,K=23?MH(CZD 1.8,1.8,1.8,1.8,1.8,1.8,1.8,1.8?MFICPS P=P+100,K=K+10;D 1.5?MEWBLD 9.3?MF<B-D 9;S P=250,K=23?MBXB2D 9;T %6,P,:17%7.02;F I=K,K+9;T S(I)?ML/JYS K=23,DP=10;D
5.3,5.3,5.3,5.3;S P=300,K=73;D 5.2,5.3,5.3,5.3,5.3?MHJF I=K+10,172;A Z?ME)J(D 9,9;T "AUSG.-KONTEN":15;S P=1000,DP=100,K=162;F I=1,10;T %8,I?MF]CKD 9?MJ[C[D 9,9;T "KOSTENGRUPPEN:";D 9,9;T :6"10?MITPJD 9;T %6,P,:17%7.02,0;F I=K,K+8;T S(I)?MD*P^S P=P+10,K=K+
0?MHCFD 9,9;T "AUSGABEN";D 9,9;T :3"KONTEN":15;S P=1000,K=162;F I=1,10;T %8,I?MD$J2F I=263,272;A A(I);S S(I)=S(I)+A(I)?MJ,C\F I=263,272;T :17%7.02,S(I)?MLPC^D 9.2;Q?MKIBDT !!"AUSDRUCK ALLER EINZELKONTEN 1980?MB;BFA !"1. MON. ",A," LETZT. MON.",B;S U=24+A,
=24+B,B=?MCFB^D 9,9,9;T "INSGESAMT ZEITRAUM 1980";D 9,9;T "EINNAHMEN";D 9,9;T "PROJ.-NR.":15?MC%JED 9,9;T %2,T-24,".MONAT 1980";D 9,9?MF+BJF I=ZE,74;T !?MG5J^S P=P+DP,K=K+10;D 9;T %6,P,:17;F I=K,K+9;A A(I);T %7.02,A(I);S S(I)=S(I)+A(I)?MM"RTF Z=J,72;T !?M
^S B=B+1,J=2;T "BLATT"%3,B?M,KL S EIPM80?M?MT "BLATT"%3,

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