pantalla.bas

PALETTE 0, 32

PALETTE 3, 11

PALETTE 4, 8

PALETTE 5, 17

PALETTE 7, 63

PALETTE 10, 4

PALETTE 11, 52

PALETTE 12, 36

PALETTE 13, 38

PALETTE 14, 54

COLOR 15, 3

CLS

COLOR 15, 4

LOCATE 2, 11: PRINT "É"; STRING$(57, "Í"); "»"

LOCATE 3, 11: PRINT "º"; SPACE$(57); "º"

LOCATE 4, 11: PRINT "È"; STRING$(57, "Í"); "¼"

COLOR 14, 4: LOCATE 3, 14

PRINT "A  G  E  N  D  A    S  U  P  E  R    B  A  R  A  T  A"

COLOR 1, 7

LOCATE 7, 20:  PRINT "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"

LOCATE 8, 20:  PRINT "³  A ... A¤adir nueva persona           ³"

LOCATE 9, 20:  PRINT "³  B ... Borrar persona                 ³"

LOCATE 10, 20: PRINT "³  M ... Modificar persona              ³"

LOCATE 11, 20: PRINT "ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´"

LOCATE 12, 20: PRINT "³  N ... Buscar persona por nombre      ³"

LOCATE 13, 20: PRINT "³  D ... Buscar persona por direcci¢n   ³"

LOCATE 14, 20: PRINT "³  T ... Buscar persona por tel‚fono    ³"

LOCATE 15, 20: PRINT "³  E ... Buscar persona por edad        ³"

LOCATE 16, 20: PRINT "ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´"

LOCATE 17, 20: PRINT "³  L ... Ver listado de personas        ³"

LOCATE 18, 20: PRINT "ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´"

LOCATE 19, 20: PRINT "³  C ... Compactar base de datos        ³"

LOCATE 20, 20: PRINT "ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´"

LOCATE 21, 20: PRINT "³  S ... Salir                          ³"

LOCATE 22, 20: PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"

COLOR 0, 7

LOCATE 8, 29:   PRINT "A¤adir nueva persona"

LOCATE 9, 29:   PRINT "Borrar persona"

LOCATE 10, 29: PRINT "Modificar persona"

COLOR 10

LOCATE 12, 29: PRINT "Buscar persona por nombre"

LOCATE 13, 29: PRINT "Buscar persona por direcci¢n"

LOCATE 14, 29: PRINT "Buscar persona por tel‚fono"

LOCATE 15, 29: PRINT "Buscar persona por edad"

COLOR 12: LOCATE 17, 29: PRINT "Ver listado de personas"

COLOR 11: LOCATE 19, 29: PRINT "Compactar base de datos"

COLOR 13: LOCATE 21, 29: PRINT "Salir"

COLOR 14, 5: LOCATE 25, 1: PRINT SPACE$(80);

LOCATE 25, 10: PRINT "Curso de Programaci¢n";

COLOR 13: LOCATE 25, 46: PRINT "J.M.G.B.   HECHO EN RONDA";

SLEEP