home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 11 / CDACTUAL11.iso / cdactual / demobin / share / DOS / FUENTES / LEEFONT.BAS < prev    next >
Encoding:
BASIC Source File  |  1995-10-14  |  2.7 KB  |  52 lines
  1. '*****************************************************************************
  2. '*                                                                           *
  3. '*                           L E E F O N T   1.0                             *
  4. '*                                                                           *
  5. '*           Programa realizado por Luis Aguilar - 1995  B A S S             *
  6. '*                                                                           *
  7. '*   Con este programa se pretende ilustrar cómo usar fuentes creadas por    *
  8. '*   el programa FUENTES en vuestros propios programas. Esta rutina puede    *
  9. '*   usarse libremente, si bien se agradecería una mención al autor en los   *
  10. '*   créditos del programa que la utilice.                                   *
  11. '*                                                                           *
  12. '*   NOTA: Esta rutina ha sido escrita con Microsoft QuickBASIC 4.5          *
  13. '*         Se debe cargar QuickBASIC con la orden QB /L                      *                                                                                                                  
  14. '*                                                                           *                                                                                                                 
  15. '*****************************************************************************
  16.  
  17. '$INCLUDE: 'qb.bi'
  18.  
  19. DEFINT A-Z
  20.  
  21. DIM reg1 AS RegTypeX, reg2 AS RegTypeX   ' Variables para contener registros
  22. DIM buffer(1 TO 4096) AS STRING * 1      ' Buffer donde guardaremos la fuente
  23.        
  24. NombreArchivo$ = "c:\fuentes\tipos\broadway.fnt"   ' Nombre de la fuente
  25.  
  26. ' Abrimos el fichero .FNT de la fuente
  27.  
  28. NumFichero% = FREEFILE
  29. OPEN NombreArchivo$ FOR BINARY AS NumFichero%
  30.  
  31. ' Leemos los 4096 bytes de la fuente
  32.  
  33. PRINT "CARGANDO LA FUENTE...ESPERA UN MOMENTO"
  34. FOR i = 1 TO 4096
  35.         GET #NumFichero%, i, buffer(i)          ' Leemos el siguiente byte
  36. NEXT i
  37.  
  38. CLOSE #NumFichero%                  ' Cerramos el fichero .FNT
  39.  
  40. reg1.ax = &H1100                    ' Utilizamos la subfunción 11h de la interrupción 10h
  41. reg1.bx = 16 * 256                  ' Bytes por caracter = 16                                                                        */
  42. reg1.cx = 255                       ' Número de caracteres a definir = 255                                          */
  43. reg1.dx = 0                         ' Desplazamiento dentro del bloque = 0
  44. reg1.es = VARSEG(buffer(1))         ' ES = Segmento del array buffer
  45. reg1.bp = VARPTR(buffer(1))         ' BP = Offset del array buffer
  46. CALL INTERRUPTX(&H10, reg1, reg2)   ' Llamada a la interrupción 10h
  47.  
  48. PRINT
  49. PRINT "¡¡ FUENTE ACTIVADA !!"       ' Apaga y vámonos ;-)  
  50. END
  51.  
  52.