home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / drfont / drsample.bas < prev    next >
Encoding:
BASIC Source File  |  1993-04-24  |  3.1 KB  |  86 lines
  1. '  **************************************************************************
  2.  
  3. '  You can register this directly thru Compuserve, type GO SWREG,
  4. '  the Registration Shareware Database, the fee is 10.00. you can
  5. '  search by title, keywords or my ID#.
  6.  
  7. '  Title: DRFONT 1.0
  8. '  Keywords: QB QBX FONTS ROEPENACK
  9. '  ID# 888
  10.         
  11. '  As soon as I have been notified by compuserve of your
  12. '  registration you will recieve the full version of DRFONT 1.0
  13. '  that includes: Quick Library, Object Module, Library Module.
  14.  
  15. '  Registered users can contact me with any Questions and are
  16. '  are also notified of any new versions, add-ons, upgrades of
  17. '  DRFONT.
  18.  
  19. '  **************************************************************************
  20.  
  21. '  These fixed fonts are for CGA, EGA, VGA in text Screen Mode.
  22.  
  23. '  Make sure DRFONT.BI is included into your program, it contains all
  24. '  the font(s) information.
  25.  
  26. '  You can insert the .BI file contents directly into your program
  27. '  instead of using the '$include, doing so will allow you to see
  28. '  the names of the fonts.
  29.  
  30. '  Make sure DRFONT.FNT, DRFONT.BI, QB, QBX.BI is in the current directory.
  31. '  If not, give a path of location.
  32.  
  33.  
  34.  
  35.    '$INCLUDE: 'DRFONT.BI'
  36.    '$INCLUDE: 'e:\qb45\QB.BI'
  37.    '*--> Change to QBX.BI for QBX, PDS 7.x
  38.   
  39.    CLS : SCREEN 0
  40.             
  41.    PRINT "=============================== FONT DEMO ================================="
  42.    PRINT " "
  43.    PRINT "     For a small registration fee of $10.00 I will send you the .LIB"
  44.    PRINT "     and .OBJ file for use with your programs, just tell me what size"
  45.    PRINT "     disk to send ( 5 1/4 - 3 1/2 ), module type ( QB45, QBX-PDS 7.1)"
  46.    PRINT "     and I'll get it to you right away!, First class!"
  47.    PRINT " "
  48.    PRINT "     BONUS: You'll get a lot more fonts than this!"
  49.    PRINT " "
  50.    PRINT "     Make check or money order payable to Dawn Roepenack"
  51.    PRINT " "
  52.    PRINT "     Send to:"
  53.    PRINT "                       Dawn Roepenack (DRFONT)"
  54.    PRINT "                       3760 Secor Road"
  55.    PRINT "                       Venice, FL. 34293"
  56.    PRINT " "
  57.    PRINT "==========================================================================="
  58.    PRINT "                       ------- Font Availible ------"
  59.    PRINT " "
  60.    PRINT "        Computer Font       Courior Font       Helvetica Font"
  61.    PRINT "        Letter Font         OldEnglish Font    OutLine Font"
  62.    PRINT "        Times Roman Font    Script Font        Super Script Font"
  63.    PRINT "        Standerd Font"
  64.  
  65.  
  66.    '*-> Where loading font numbers 1 thru 10 as declared in CONST w/names
  67.  
  68.    FOR Font% = 1 TO 10
  69.        DRLoadFont Font%
  70.        SLEEP (2)
  71.    NEXT Font%
  72.  
  73.    END
  74.  
  75.    'DRLoadFont ComputerFont%     ------> 1
  76.    'DRLoadFont CouriorFont%      ------> 2
  77.    'DRLoadFont HelveticaFont%    ------> 3
  78.    'DRLoadFont LetterFont%       ------> 4
  79.    'DRLoadFont OldEnglishFont%   ------> 5
  80.    'DRLoadFont OutLineFont%      ------> 6
  81.    'DRLoadFont TimesRomanFont%   ------> 7
  82.    'DRLoadFont ScriptFont%       ------> 8
  83.    'DRLoadFont SuperScriptFont%  ------> 9
  84.    'DRLoadFont StanderdFont%     ------> 10
  85.  
  86.