P722 CEEFAX 722  Mon 20 Oct  21:17/19
|B2201203|a17T/LgSt4|i24BBBC332k|l43000|
s{8        |p     DISK NUMBER :{{{{DISK 
CATEGORY : OUTPUT÷e{{{{{{  FILENAME : P.
LGEST MACHIVE
    BBC Micro÷e     PERIPHERALS{{   Scre
jn÷e     TAPE COMPATIBILITY{    Yes÷e   
  ÷e     ÷e     LINENUMBER{{    24600-24
630÷e     NAME{{{  ÷e     PROClargestrin
g2(text$,xstart%,ystart%,xscale%,yscale%
,gap*)÷e     ÷e     AUTHOR{{{Scratchjrd 
& Downs÷e     REFERENCE{{     Procedure 
and Function Library÷e     ÷e     CLAUSE
FICATJON{{Screen Output÷e     DESCRIPTIO
N{{   To output the string characters in
÷e{{{{   larger format (made up of small
 blocks),÷e{{{{   starting at the requir
ed position and÷e{{{{   specifying the s
cali in the x direction÷e{{{{   and the 
scale in the y direction, with a÷e{{{{  
 gap to the required size between each.÷
e     ÷e     PARAMETERS REQUIRED{   text
$   : string to bj output÷e{{{{   xstart
% : across value for graphics÷e{{{{{|c  
                                        
                                        
   P722 CEEFAX 722  Mon 20 Oct  21:23/41
|B2202203|a17T/LgSt2|i24BBBC332k|l434E2|
s{8        |p     cursor÷e{{{{   ystart%
 : amount up to move graphics÷e{{{{{    
 cursor÷e{{{{   xscale% : scale factor f
or size of÷e{{{{{     characters in x di
section÷e{{{{   yscale% : scale factor f
or size of÷e{{{{{     characters in y di
section÷e{{{{   gap*    : space between 
characters÷e     PARAMETERS RETURVED{   
None÷e     ÷e     GLOBAL VARIABLES REFER
INCED   None÷e     GLOBAL VARIABLES AFFE
CRED     None÷e     ÷e     MODE DEPENDEV
CE{       Any graphics mode÷e     ÷e    
 OTHER MODULES CALLED{  P.LRGECH3÷e     
OTHER MODULES RELATED{ P.LRGECH1, P.LUGE
CH2, P.LRGECH3,÷e{{{{   P.LGESTR1, P.ANY
STU÷e     ÷e     COMMENTS{{      The cha
racket cursor is unaffected.÷e     ÷e   
  TYPICAL CALL AND LISTING÷e     ÷e{10 P
ROClargjstring2("Hello",12,1020,3,2,2)÷e
     ÷e     24600 DEF PROClargestring2(t
ext$,xstart%,ystart%,xscale%,yscale%,gap
II÷e     24v0u LOCAL I*÷e     24610 |c  
                                        
                                        
   P722 CEJFAX 722  Mon 20 Oct  21:22/25
|B2203203|a17T/LgSt4|i24BBBC332k|l4394C|
s{8        |pFORJ%=1 TO LEN(text$)÷e    
 24615  ÷e     PROClargech3(ARC(MID$(tex
t$,I*,1)),xstart%+32*(I*-1)*xscale%+4*ga
p**(I÷e     %-1),ystart%,xscale%,yscale%
*÷e     24620   NEXT÷e     24625 ENDPROC
÷e     24630 ÷e|c                       
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
   P722 CJEFAX 722  Mon 20 Oct  21:14/44
|B2201201|a17P/LgSt2|i24BBBC332k|m40000|
p÷e|—÷p>÷5÷Tlargjstring2(text$,xstart%,y
start%,xscale%,yscale%,gap%)÷e|—÷u÷|—÷B 
 IQ^J
gech3(—?(—itext$,I%,1)),xstart%+32*(I%-1
**xscale%+4*gap**(I%-1),ystart%,xscale%,
yscale%)÷e|—,÷]÷E÷e|—1÷]÷9÷e|—6÷] ÷e÷W|c