'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                                                               FLECHAS
DECLARE SUB flecha (h!, v!, d$, l!, c!)
SCREEN 12

flecha 100, 100, "a", 18, 10
flecha 120, 100, "b", 18, 12
flecha 150, 100, "i", 18, 9
flecha 160, 100, "d", 18, 13

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
' POSICION HORIZONTAL
' POSICION VERTICAL
' DIRECCION ARRIBA ABAJO IZQUIERDA DERECHA
' LARGO
' COLOR
'
SUB flecha (h, v, d$, l, c)
SELECT CASE d$
CASE "a": PSET (h, v), c: DRAW "c" + STR$(c) + "u" + STR$(l) + "ddlr2dl2dlr4dl4dlr6dl6"
CASE "b": PSET (h, v), c: DRAW "c" + STR$(c) + "d" + STR$(l) + "uulr2ul2ulr4ul4ulr6ul6"
CASE "i": PSET (h, v), c: DRAW "c" + STR$(c) + "l" + STR$(l) + "rrnundrnundrnu2nd2rnu2nd2rnu3nd3rnu3nd3"
CASE "d": PSET (h, v), c: DRAW "c" + STR$(c) + "r" + STR$(l) + "llnundlnundlnu2nd2lnu2nd2lnu3nd3lnu3nd3"
END SELECT

END SUB