'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                                                           WINDOWS 3.1
DECLARE SUB grupo (h!, V!)
DECLARE SUB BOTON (h!, V!, l!, A!, sol!, sombra!, cara!, BORDE!)
DECLARE SUB texto (LV!, LH!, TEXT$, C!, CF!)
SCREEN 12
PALETTE 8, 0



PEN ON                                             '
ON PEN GOSUB mouse                                 ' INSTALACIàN DEL RATàN
                                                   '
    DIM Cuadro%(1 TO 400)                          '
    x1% = 20: x2% = 30: y1% = 0: y2% = 10          '   SITUAR ESTA PARTE
                                                   '
    PSET (x2% - 1, y2% - 1), 15                    '
    DRAW "c15 h8 nr5 nd5"                          '
    PSET (x2%, y2% - 1), 15                        '    AL PRINCIPIO DEL
    DRAW "c15 h8 nr5 nd5"                          '
    PSET (x2% - 1, y2%), 15                        '
    DRAW "c15 h8 nr5 nd5"                          '
                                                   '
                                                   '     PROGRAMA BASIC
    GET (x1%, y1%)-(x2%, y2%), Cuadro%             '
                                                   '------------------------
                                                   'ESCRIBIR AQUÖ LA ORDEN
                     PAINT (1, 1), 15               'PARA COLOREAR EL COLOR
texto 2, 3, "Archivo  Opciones  Ventana  Ayuda", 8, 15
LINE (0, 15)-(640, 15), 0
PAINT (1, 1), 1, 0

                                                   'DE LA PANTALLA (PAINT)
                                                   '------------------------
                     CLR = 14  '<<-----------------'COMBIAR EL VALOR DE
                                                   'LA VARIABLE CLR POR
    PSET (x2% - 1, y2% - 1), CLR                   'EL COLOR CON QUE SE
    DRAW "c" + STR$(CLR) + " h8 nr5 nd5"           'PRESENTA EL PUNTERO
    PSET (x2%, y2% - 1), CLR                       '
    DRAW " h8 nr5 nd5"                             '
    PSET (x2% - 1, y2%), CLR                       '
    DRAW " h8 nr5 nd5"                             '



LINE (0, 33)-(640, 33), 0
texto 1, 25, "Administrador de programas", 15, 1

LINE (0, 0)-(16, 15), 0, B
LINE (0, 0)-(16, 15), 7, BF
LINE (0, 15)-(640, 15), 0

LINE (4, 7)-(13, 9), 8, BF
LINE (3, 6)-(12, 8), 15, BF
LINE (3, 6)-(12, 8), 0, B

BOTON 607, -1, 16, 16, 15, 8, 7, 0
BOTON 623, -1, 16, 16, 15, 8, 7, 0

DRAW "bm611,6 c0 r7ldl5rdr3ld"
DRAW "bm628,7 c0 r7ldl5rdr3ld bu7bl udlr3drl5dlr7"


FOR h = 40 TO 600 STEP 100
   FOR V = 80 TO 450 STEP 80
      grupo h, V
   NEXT
NEXT
texto 8, 2, "Aplicaciones    Juegos      Utiles     Principal    Accesorios   AutoCad", 8, 15
texto 13, 2, "WordPerfect    Banners   Lotus 1-2-3     Amaris    WordPro'96  Corel Draw", 8, 15
texto 18, 2, " Curso IBM     MCAFFE     Programas   Quattro Pro    MS Word   QuarkXpress", 8, 15
texto 23, 2, " After Dark  Visual Basic   Borland    Visual Map   MS Works Capitan Norton", 8, 15
texto 28, 2, "  Netscape      Aldus       Agenda     Visual C++    Inicio   Corel Ventura", 8, 15


DO: LOOP WHILE INKEY$ = ""
END

mouse:                                             '
DO                                                 '
        PUT (x1%, y1%), Cuadro%, XOR               '
        x1% = PEN(4)                               ' SISTEMA DE VISUALIZACIàN
        y1% = PEN(5) * 2                           '
        IF PEN(4) > 630 THEN : x1% = 1: y1% = 1    '    SITUAR ESTA PARTE
        IF PEN(5) > 236 THEN :  y1% = 0            '       AL FINAL DEL
        PUT (x1%, y1%), Cuadro%, XOR               '      PROGRAMA BASIC
LOOP UNTIL PEN(3) = 0                              '
RETURN                                             '

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'           
SUB BOTON (h, V, l, A, sol, sombra, cara, BORDE)

IF l < 10 THEN : PRINT " ERROR EN DATOS DE LA SUB BOTON ": BEEP: EXIT SUB
IF A < 10 THEN : PRINT " ERROR EN DATOS DE LA SUB BOTON ": BEEP: EXIT SUB
PSET (h, V)

LINE STEP(l, A)-STEP(-l, -A), BORDE, B
LINE STEP(1, 1)-STEP(0, A - 2), sol
LINE STEP(0, 0)-STEP(l - 2, 0), sombra
LINE STEP(0, 0)-STEP(0, -A + 2), sombra
LINE STEP(-1, 0)-STEP(-l + 3, 0), sol
LINE STEP(1, 1)-STEP(0, A - 4), sol
LINE STEP(0, 0)-STEP(l - 4, 0), sombra
LINE STEP(0, 0)-STEP(0, -A + 4), sombra
LINE STEP(-1, 0)-STEP(-l + 5, 0), sol
LINE STEP(1, 1)-STEP(l - 6, A - 6), cara, BF
END SUB

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'           
SUB grupo (h, V) STATIC
LINE (h, V)-(h + 30, V + 3), 11, BF
LINE (h, V)-(h + 30, V + 3), 0, B
LINE (h, V)-(h + 30, V + 25), 0, B
FOR hh = h + 3 TO h + 30 STEP 10
   FOR vv = V + 12 TO V + 25 STEP 11
      LINE (hh, vv)-STEP(5, 0), 0
   NEXT
NEXT
CIRCLE (h + 5, V + 8), 2, 1
PAINT (h + 5, V + 8), 11, 1
LINE (h + 5, V + 8)-STEP(-1, -1), 9, BF

LINE (h + 12, V + 8)-STEP(7, 2), 1, B
LINE (h + 14, V + 6)-STEP(3, 3), 8, BF

LINE (h + 22, V + 10)-STEP(5, -4), 1, BF
PSET (h + 24, V + 9), 12
PSET (h + 25, V + 8), 14

PSET (h + 3, V + 20), 4
DRAW "c1 e5c0d3nl3d2"

LINE (h + 12, V + 20)-STEP(4, -5), 0
LINE (h + 13, V + 20)-STEP(4, -5), 14
LINE (h + 14, V + 20)-STEP(4, -5), 0
LINE (h + 16, V + 15)-STEP(2, 2), 4, BF

CIRCLE (h + 25, V + 19), 2, 1, , , 2
CIRCLE (h + 25, V + 19), 3, 4, , , .5
END SUB

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'           
SUB texto (LV, LH, TEXT$, C, CF)

LOCATE LV, LH: COLOR C: PRINT TEXT$

IF CF = 0 THEN : PLAY "a": EXIT SUB

LINE (((LH - 1) * 8) - 1, (LV - 1) * 16)-STEP(7 + (8 * (LEN(TEXT$) - 1)) + 1, 15), C, B
PAINT (((LH - 1) * 8) + 1, ((LV - 1) * 16) + 1), CF, C
LINE (((LH - 1) * 8) - 1, (LV - 1) * 16)-STEP(7 + (8 * (LEN(TEXT$) - 1)) + 1, 15), CF, B

LH = LH - 1
FOR LETRAS = 1 TO LEN(TEXT$)
   LH = LH + 1
   FOR h = ((LH - 1) * 8) TO ((LH - 1) * 8) + 7
      FOR V = ((LV - 1) * 16) + 3 TO ((LV - 1) * 16) + 10
         IF POINT(h, V) = 0 THEN : PSET (h, V), CF
      NEXT
   NEXT
NEXT

END SUB