P722 CEEFAX 722  Sun 26 Oct  05:31/22
|B2201203|b17T/AnzUs|j14BBBC|l43000|s—>5
     |p DISKNUMBER      DISKCATEGO
RZ : OUTPUT÷e          FILENAME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 DESCRI
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       
u value for graphics÷e          
      
cs÷e                
ale factor for size of÷e         
irs÷e       
                                        
                                        
   P722 CEEFAX 722  Sun 26 Oct  05:30/14
|B4202203|b17T/AnzUs|j14BBBC|l435A7|s—>5
     |pees, from the÷i         
e PARAMETERSRETURNED  N  GLOBAL
 VARIABLES REFERENCED   None÷e GLOBALVA
"JABLES 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 
e DEFPROC
ystart%,scale%,angle%)÷e LOCALX
Y%,A%,I*,block*,xinc,zinc÷e DIM
ocr* 8÷e COSRAD
%)):zinc=scale%*SIN(RAD(angle%I)÷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  Sun 26 Oct  05:30/16
|B2203203|a17T/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  Sun 26 Oct  05:30/38
|B2201201|a17P/AnySt|j24BBBC332k|m40000|
p÷e|—J4÷5÷Janzstring(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)):÷.&FFF)÷e|—h÷f
÷; Y%=0 —|— 7÷e|—m÷mA%=?(block%+1+Y%)÷e|
—r÷f÷; X%=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%>u —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