18 lines
		
	
	
		
			367 B
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
			
		
		
	
	
			18 lines
		
	
	
		
			367 B
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
_runtimePath_ "../runtime"
 | 
						|
_codeRomType_ ROMv1
 | 
						|
 | 
						|
'Draw filled circle with
 | 
						|
'LINE statements
 | 
						|
10 x=80:y=60:u=45:'Radius
 | 
						|
20 cls:v=0:w=v
 | 
						|
'30 line x-u, y-v, x+u, y-v
 | 
						|
'40 line x-u, y+v, x+u, y+v
 | 
						|
30 hline x-u, y-v, x+u
 | 
						|
40 hline x-u, y+v, x+u
 | 
						|
'30 vline x-v, y-u, y+u
 | 
						|
'40 vline x+v, y-u, y+u
 | 
						|
50 w=w+v+v+1:v=v+1
 | 
						|
60 if w&<0 then goto 30
 | 
						|
70 w=w-u-u+1:u=u-1
 | 
						|
80 if u&>0 then goto 60
 |