1 DATA 16,01,22,C0,D7,32,BD,D7,FE,02,DA,E6,D6,1F,32,BF,D7,97,32,BE,D7,7A,32,C2,D7,3A,C1,D7,21,BD,D7,86,DC,A7,D7,57,3A,C0,D7,21,BE 2 DATA D7,86,DC,A7,D7,5F,D5,CD,AA,D7,D1,3A,C1,D7,21,BD,D7,96,DC,A7,D7,57,D5,CD,AA,D7,D1,3A,C0,D7,21,BE,D7,96,DC,A7,D7,5F,D5,CD,AA 3 DATA D7,D1,3A,C1,D7,21,BD,D7,86,DC,A7,D7,57,CD,AA,D7,3A,C1,D7,21,BE,D7,86,DC,A7,D7,57,3A,C0,D7,21,BD,D7,86,DC,A7,D7,5F,D5,CD,AA 4 DATA D7,D1,3A,C1,D7,21,BE,D7,96,DC,A7,D7,57,D5,CD,AA,D7,D1,3A,C0,D7,21,BD,D7,96,DC,A7,D7,5F,D5,CD,AA,D7,D1,3A,C1,D7,21,BE,D7,86 5 DATA DC,A7,D7,57,CD,AA,D7,3A,BD,D7,3D,21,BE,D7,BE,D8,34,AF,3A,BF,D7,96,32,BF,D7,D2,F1,D6,3A,BD,D7,3D,32,BD,D7,21,BF,D7,86,77,C3 6 DATA F1,D6,3E,FF,C9,7A,FE,F0,D0,7B,FE,40,D0,3A,C2,D7,A7,C2,D0,74,C3,D1,74,C9 7 CLEAR256,55000 8 FOR X=55000 TO 55228 9 READH$:GOSUB 11 :POKE X,H:NEXT X 10 BSAVE "CIRCLE.CO",55000,229,0 :STOP 11 H=0:H1$=LEFT$(H$,1):GOSUB 13 12 H=H*16:H1$=RIGHT$(H$,1) 13 H1=ASC(H1$):H=H+H1+32*(H1>95)+7*(H1>63)-48:RETURN 14 END 15 ' Usage information: 16 ' [HL] = X & y coordinates of center 17 ' [A] = Radius 18 ' Set byte at 55001 at 0 for erase mode, 1 for draw mode 19 ' (default is always DRAW if not specified) 20 ' Example program, showing usage: 21 ' 10 SCREEN,0:CLS:CLEAR 256,55000: BLOAD "CIRCLE.CO" 22 ' 20 POKE 63912, 120 23 ' 30 POKE 63913, 32 24 ' 40 POKE 63911, 10 25 ' 50 EXEC 55000 26 ' (This draws a circle at 120x32, radius of 10 pixels)