Quality arrows using PROCLR(x,y,w) and PROCUD(x,y,w) tools

This solution came to me early in the morning. ( a true highly stable cross platform solution)

Each arrow can now be easily colored and recolored without using FILL or POINT

These images use the following NEW tools:

PROCLR(x,y,w):REM makes a horizontal line that extends evenly from a center point

PROCUD(x,y,w):REM makes a vertical line that extends evenly from a center point

     MODE 8
     REM (x,y,color)
     PROCarrowup(500,500,14)
     PROCarrowdown(500,450,13)
     PROCarrowleft(450,475,12)
     PROCarrowright(550,475,11)
     END
     DEFPROCarrowleft(x,y,c)
     LOCAL ax,aw
     GCOL c
     FOR ax=1 TO 20
       PROCUD(x-ax,y,10)
     NEXT ax
     ax=0:aw=20
     FOR ax=1 TO 20
       PROCUD(x-20-ax,y,aw)
       aw=aw-1
     NEXT ax
     ENDPROC
     DEFPROCarrowright(x,y,c)
     LOCAL ax,aw
     GCOL c
     FOR ax=1 TO 20
       PROCUD(x+ax,y,10)
     NEXT ax
     ax=0:aw=20
     FOR ax=1 TO 20
       PROCUD(x+20+ax,y,aw)
       aw=aw-1
     NEXT ax
     ENDPROC
     DEFPROCarrowup(x,y,c)
     LOCAL ax,aw
     GCOL c
     FOR ax=1 TO 20
       PROCLR(x,y+ax,10)
     NEXT ax
     ax=0:aw=20
     FOR ax=1 TO 20
       PROCLR(x,y+20+ax,aw)
       aw=aw-1
     NEXT ax
     ENDPROC
     DEFPROCarrowdown(x,y,c)
     LOCAL ax,aw
     GCOL c
     FOR ax=1 TO 20
       PROCLR(x,y-ax,10)
     NEXT ax
     ax=0:aw=20
     FOR ax=1 TO 20
       PROCLR(x,y-20-ax,aw)
       aw=aw-1
     NEXT ax
     ENDPROC
     REM Left and Right from center x,y, and width w
     DEFPROCLR(x,y,w)
     LINE x-w,y,x+w,y
     ENDPROC
     DEFPROCUD(x,y,w)
     LINE x,y+w,x,y-w
     ENDPROC