P720 CEEFAX 720  Mon 10 Nov  21:12/13
|B2201202|b17Bounce2|j24BBBC332k|m40000|
p÷e÷X÷X÷u ÷L (C)Colin Tempest 1985 ÷e÷X÷
b÷d H%=0:÷C7÷e÷X÷l÷o S=0:Z=105:K=2:F=13÷
e÷X÷v÷n ÷ Z=105 —4 ÷Jscreen÷e÷X(÷r ÷I—2
7,1);S;—232,1);K;" "÷e÷X2÷j U=U+1:I=A:H=
B÷e÷X<÷t ÷ A=22 —, A=3 —4 ÷Jbounce2÷e÷X
F÷t ÷? B=37 —, B=2 —4 ÷Jbounce1÷e÷XP÷h A
=A+C:B=B+E÷e÷XZ3 ÷? Z<100 —( A=13 —( B>5
 —( B<35 —( —[(5)=1 B=B+(2*D)÷e÷Xd? ÷? ?
(—;+B+A*40)=255 —( B<38 —( B>2 —4 S=S+7-
A+2:Z=Z+1:G=1 —3 G=0÷e÷Xn÷s ÷? G=1 —( A>
3 —4 ÷Jbounce2÷e÷XxK ÷? H=37 —4 ÷G31,H,I
,32,151 —3 ÷? H=2 —( I<9 ÷G31,H,I,I+142,
32 —3 ÷G31,H,I,32,32÷e÷X—*÷k ÷G31,B,A,15
1,79÷e÷X—4÷u V=F:÷? —N-98 —( F>3 —4 F=F-
2÷e÷X—>÷r ÷ —N-67 —( F<35 —4 F=F+2÷e÷X—
H3 ÷G31,V,23,32,32,32,32,31,F,23,96,96,9
6,96:÷=—5T^@÷e÷X—R÷f ÷5÷Jbounce1÷e÷X—\÷m
 ÷,1,-10,70,3:D=-E÷e÷X—f÷^ ÷9÷e÷X—p÷f ÷5
÷Jbounce2÷e÷X÷*÷m ÷,1,-10,80,3:C=-C÷e÷X÷
42 ÷? (B<F-1 —, B>F+2) —( A=22 —4 K=K-1:
÷? K=0 —4 ÷Jjnd÷e÷X÷>÷^ ÷9÷e÷X÷H÷f ÷5 ÷J
screen÷e÷X÷R÷q ÷G22,7:!&FE00=&10200A|c  
                                        
                                        
   P720 CEEFAX 720  Mon 10 Nov  21:13/58
|B2202202|b17Bounce2|j24BBBC332k|m402CA|
p÷e÷Y÷\÷p Z=0:A=11:B=11:K=K+1÷e÷Y÷f÷d C=
1:D=1÷e÷Y÷p÷g ÷; N=2 —|— 22÷e÷Y"% ÷G31,0
,N,151,106,31,38,N,151,53:÷E÷e÷Y,÷l ÷I—2
2,2);—l37,"|—")÷e÷Y6÷f ÷; N=3 —|— 8÷e÷Y@
÷v ÷I—22,N)—e(142+N)—l35,—e255):÷E÷e÷YJ'
 ÷I—25,0)—e146"SCORE"—229,0)—e146"LIVES"
÷e÷YT÷i ÷G31,2,23,145÷e÷Y^÷^ ÷9÷e÷Yh÷c ÷
5 ÷Jjnd÷e÷Yr÷j ÷3:÷? S>H% H%=S÷e÷Y||V ÷I
—25-14)"YOU SCORED ";S;" POINTS"—28,16)"
HIGH SCORE: ";H%;—210,18)"ANOTHER GO(Y/N
)?"÷e÷Y—.* A$=—f:÷? A$="Y"÷= —5TT@ —3 ÷?
 A$<>"N"÷= —5tFA÷e÷W|c                  
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
   P720 CEEFAX 720  Mon 10 Nov  21:11/42
|F2201202|b17T/Cntr2|j13BBC|l43000|s—;8 
       |pDISK NUMBER :   DISKCAT
EGORZ : OUTPUT÷e     FILENAMEPCE
NTRE2÷e     ÷e     ÷eMACHINE  BBC
Micro÷ePERIPHERALS  STAPECOMPA
TJBILITY YLINENUMBE
R  NAME   PROCA
$,row%)÷e     ÷eAUTHOR  S
d & Downs÷eREFERENCE  P
Function Library÷e     ÷eCLASSIFICATJON 
       Text Output÷eDESCRJPTJON  T
ntre a given string on a single÷e   
 line, in any mode÷e     ÷ePARAMETERS RE
QUIRED AT   
    row% : screen row on which to bj psi
nted÷ePARAMETERS RETURNED N
eGLOBAL VARIABLES REFERENCED  None÷eGLOB
AL VARIABLES AFFECTED    None÷e     ÷iMO
DE DEPENDENCE NOTHERM
ODULES CALLED FRDMODEOTHERMODULESR
ELATED PCENTRECOMMENTS  
Text cursor left on line below the÷e   
    centred text÷e     ÷eTYPICAL CAL|c  
                                        
                                        
   P720 CEEFAX 720  Mon 10 Nov  21:11/07
|F2202202|aQ7T/Cntr2|j13BBC|l43460|s—;8 
       |pL AND LISTING÷e     ÷e   10 MOD
E 4÷e   20 LET title$="Main Heading"÷e  
 30 PROCcentre2(title$,2)÷e     ÷e  999 
STOP÷e÷e18100 DEF FNreadmodj÷e18105 LOCA
L A%:A%=135÷e18110 =(USS(&FFF4) DIV &FFF
FFF) AND &10000÷e18115  ÷e÷e24050 DEFPRO
Ccentre2(A$,row%)÷e24055 LOCAL mode%,len
gth%:length%=1÷e24060 mode%=FNreadmodj÷e
24065 IF mode%=0 OR mode%=3 THEN length%
=80÷e24070 IF mode%=2 OR mode%=5 THEN le
ngth%=20÷e24075 IF length%=1 THEN length
%=40÷e24080 PRJNTTAB((length%-LEN(A$)) D
IV 2,row%);A$÷e44085 ENDPROC÷e24090     
 ÷e÷e÷e÷e|c                             
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
   P720 CEEFAX 720  Mon 10 Nov  21:12/30
|B2201201|a17P/Cntr2|j24BBBC332k|m40000|
p÷eF—\÷g÷5 —Lreadmode÷eF—a÷g÷B A%:A%=135
÷eF—f"=(—b(&FFF4) —( &FFFFFF) —) &10000÷
jF—k÷^  ÷e]÷J÷n÷5÷Jcentre2(A$,row%)÷e]÷O
÷u÷B mode%,length%:length%=1÷e]÷T÷kmode%
=—Lreadmode÷e^÷Y$÷? mode%=0 —, mode%=3 —
4 length%=80÷e^÷^$÷? mode%=2 —, mode%=5 
—4 length%=20÷e^÷c÷t÷? length%=1 —4 ling
th%=40÷e^÷h"÷I—2(length%-—Q(A$)) —) 2,ro
w%);A$÷e^÷m÷]÷9÷e÷W|c