'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                              BOTONES EN RELIEVE CON SOMBRA DE COLORES
'
'
DECLARE SUB BOTONSOMBRA (LIN%, COL%, COLR%, G%, TEXT$)
SCREEN 12: PAINT (1, 1), 15

BOTONSOMBRA 10, 40, 12, 3, "  HECHO EN RONDA  "
BOTONSOMBRA 15, 30, 9, 5, "  PROGRAMA BASIC  "
BOTONSOMBRA 20, 20, 2, 3, "  ESTO ES UNA PRUEBA  "

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                  
SUB BOTONSOMBRA (LIN%, COL%, COLR%, G%, TEXT$) STATIC
PSET ((COL% - 1) * 8 + 1, LIN% * 16), COLR%
FOR A% = 1 TO G%
   LINE STEP(0, 0)-STEP(0 + (LEN(TEXT$) * 8) - 1, 0), COLR%
   LINE STEP(0, 0)-STEP(0, -16), COLR%
   LINE STEP(1, 1)-STEP(0, 16), COLR%
   LINE STEP(0, 0)-STEP(0 - (LEN(TEXT$) * 8) + 1, 0), COLR%
NEXT
LOCATE LIN%, COL%: PRINT TEXT$
END SUB