P722 CEEFAX 722  Mon 27 Oct  21:11/27
|B2201203}b17T/AnzUs|j14BBBC|l43000|s—>5
     |p DISKNUMBER      DISKCATEGO
RZ : OUTPUT÷e          FJLENAMEPANYS
TR÷e   MACHINE    BBCM PER
IPHERALS   S TAPECOMPATIBILI
TY  Y   LINENUMBER    
720÷e NAME      PROC
start%,ystart%,scale%,angle%)÷e  AUTHO
R    SD REFERENCE 
   PFL  
CLASSIFICATION   SO DESCRJ
PTJON   T
irs in÷e       
 small blocks)÷e       
cali, starting at the÷e       
osition and at the given÷e       
e  PARAMETERSREQUIRED  
ing to be output÷e       
s value for graphics÷e          
      
cs÷e                
ale factor for size of÷e         
irs÷e       
                                        
                                        
   P722 CEEFAX 722  Mon 27 Oct  21:13/14
|B2202203|b17T/AnzUs|j14BBBC|l435A7|s—>5
     |pees, from the÷e         
e PARAMETERSRETURNED  N  GLOBAL
 VARIABLES REFERENCED   None÷e GLOBALVA
RJABLES AFFECTED N  MODEDEPENDEN
CE   A  OTHERMODULE
S CALLED  N OTHERMODULESRELATED 
   P.LRGECH1, P.LRGECH2, P.LRGECH3,÷e   
    PLGESTRPLGESTR  COMMENTS  
  T
j  TYPICALCALLANDLISTING  
 PROClargestring("TILT",12,100,3,45)÷e 
j DEFPROC
ystart%,scale%,angle%)÷e LOCALX
Y%,A%,I*,block%,xinc,zinc÷u DIM
ocr* 8÷i COSRAD
%)):zinc=scale%*SIN(RAD(angle%))÷e 
 FORE*=1TOLEN(text$)÷e AX
block* MOD256:Y%=block*÷e DIV
=ARC(MID$(text$,I%,1)):CALL&FFF1÷e 
   FOR Y%=0 TO 7÷e  AY
%)÷e  FORXTO  MOVE
e YXI
                                        
                                        
   P722 CEEFAX 722  Mon 27 Oct  21:11/37
|B2203203}b17T/AnzUs|j14BBBC|l439DE|s—>5
     |pystart%-X**xinc-Y%*zinc+I**8*xinc
÷e  IF^XANDAAND
 THEN÷e PLOTPLOT
,-xinc-zinc:PLOT81,zinc,xinc÷e  I
F (2^X* AND A%) AND scale%<6 THEN PLOT65
,0,0÷e  NEXTXYI END
PROC÷e 
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
   P722 CEEFAX 722  Mon 27 Oct  21:12/14
|B2201201|b17P/AnzUs|j24BBBC332k|m40000|
p÷e|—J4÷5÷Janystring(text$,xstart%,ystar
t%,scale%,angle%)÷e|—O"÷B X%,Y%,A%,I%,bl
ocr*,xinc,zinc÷e|—T÷f÷6 block% 8÷e|—Y5xi
nc=scale%*—C(—Z(angle%)):zinc=scale%*—](
—Z(angle%))÷e|—^÷j÷;I%=1—|——Q(text$)÷e|—
cFA%=10:X*=block* —+256:Y%=block* —)256:
block%=—(—itext$,I*,1)):÷.&FFF1÷e|—h÷f
÷; Y%=0 —|— 7÷e|—m÷mA%=?(block*+1+Y%)÷e|
—r÷f÷; (*=0 —|— 7÷e|—wI÷D xstart%+Y%*xin
c-X**zinc+I**8*zinc,ystart%-X**xinc-Y%*y
inc+I%*8*xinc÷e|—||R÷? (2^X% —( A%) —( s
cali%>5 —4 ÷H0,zinc,xinc:÷H81,xinc-zinc,
-xinc-zinc:÷H81,zinc,xinc÷e|——)&÷? (2^X%
 —( A%) —( scale%<6 —4 ÷H65,0,0÷e|——.÷f÷
E (*,Y%,I*÷e|——3÷]÷9÷e|——8÷] ÷e÷W|c