File EIPO80.FC (FOCAL source file)

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

HN()BTC U/W-FOCAL:EIPO80NO/DA/TE?MD8BBZ?MGBJF T=U,V;D 5?MB%C
Q?MD JJO I M(T)?MD)J(O I,E?MG=C[T !!"KOSTENGRUPPEN:"!!"     10"?MB!C^F I=1,34;T !?MCYB-T !;S P=250,K=23?MDAB2T !%6,P,:14%7.02;F I=K,K+9;T S(I)?MB2CZD 1.8,1.8,1.8,1.8,1.8,1.8,1.8,1.8?MGSB<S P=P+10,K=K+10;O (300-P)7.1,7.2;O (400-P)7.1,7.2;D 1.5?MFJTF I=1,22
A Z?ME;NJR?MBXBHA !"ZEILE 
 ",ZE?ME2BDT !!"AUSDRUCK ALLER EINZELKONTEN 1980?ME(B^T :20"JAHR 1980"!!"EINNAHMEN"!!"PROJ.-NR.":12?MCNB(F I=0,9;T %8,I?MD-BFS U=25,V=36?MF>NTD 8?MB,J^F I=24,272;A A(I);S S(I)=S(I)+A(I)?MG-CFT !!"AUSGABEN"!!"KONTEN":12;S P=1000,K=162;F I=1,10;T %8,I?MP^S 
=P+10,K=K+9?MF4PJT !%6,P,:14%7.02,0;F I=K,K+8;T S(I)?MFTCAD 1.6,1.6,1.6,1.6,1.6,1.6?MENBTF I=ZE,77;T !?MC-CPS P=P+100,K=K+10;T !;D 1.5?MCEC\F I=262,271;T :14%7.02,S(I)?M6,L S EIPO80?M?MT :14%7.02,S(I)?6,1.6,1.6,1.6,1.6?1.6,1.6,1.6,1.6,1.6,1.6?,10;T %8,I?M
M?M?M?M?M?M6,1.6,1.6?D 1.5?8,1.8,1.8?4;S P=1000,K=161?MF .4F0..Z0*5B * B .5R6.4V.*0B . J1..F0.0F .1F0..B0*0B * B . B9.0B.*0B . F1..F0.0F .2J0

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