P728 CEEFA( 728  Mon  3 Nov  21:12/24
|B2201202|a17T/Cntr1|j13BBC|l43000|s—:8 
       |pDISK NUMBER :   DISKCAT
EGORZ : OUTPUT÷e     FILENAMEPCE
NTRE1÷e     ÷e     ÷eMACHINE  BBC
Micro÷ePERJPHERALS  STAPECOMPA
TJBILITZ YLINENUMBE
R  NAME   PROC
ength%,a$,row%)÷e     ÷eAUTHOR  S
cratchjrd & Downs÷eREFERENCE  P
rue and Function Library÷e     ÷eCLASSIF
JCATJON TODESCRIPTION 
 TPARA
METERS REQUIRED 
screen line÷e   AT
e centred÷e   
on which to bj÷e    PARA
METERS RETURNED NGLOBALVA
RJABLES REFERENCED  None÷eGLOBAL VARIABL
ES AFFECTED    None÷e     ÷eMODE DEPENDE
NCE NOTHERMODULESCAL
LED NOTHERMODULESRELATED PCENTS
E2÷e     ÷eCOMMENTS  T
ft on line below the÷e   
                                        
                                        
   P728 CEEFA( 728  Mon  3 Nov  21:16/27
|B2202202|a17T/Cntr1|j13BBC|l4347D|s—:8 
       |pd text÷e     ÷e     TYPICAL CAL
L AND LISTING÷e     ÷e   10 MODE 7÷e   2
0 PROCcentre1(40,"Title Page",2)÷e     ÷
e  999 STOP÷e24000 DEFPROCcentre1(length
*,A$,row%)÷e24005 PRINT TAB((length%-LEN
(A$)) DIV 2,row%);A$÷e24010 ENDPROC÷e240
15 ÷e÷e|c                               
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
   P728 CEEFAX 728  Mon  3 Nov  21:15/20
|B2201201|a17P/Cntr1|j24BBBC332k|m40000|
p÷e]—h÷v÷5÷Jcentre1(length%,A$,row%)÷e]—
m"÷I—2(length%-—Q(A$)) —) 2,row%);A$÷e]—
r÷]÷9÷e]—w÷] ÷e÷W|c