home *** CD-ROM | disk | FTP | other *** search
/ Sauce 'n' Code 3 / sauce-n-code-03.adf / Source_Code / Set_Font.asc < prev    next >
Text File  |  1996-01-21  |  811b  |  49 lines
  1. ' By Freak/NFA 
  2. ' Enables Yo To Make Sure You Are Using The
  3. ' Right Font In Your Proggy From A Large Selection (HD)! 
  4.  
  5. MAIN:
  6. Screen Open 0,640,256,2,Hires
  7. Curs Off : Flash Off : Cls 0
  8. Palette $448,$FFF
  9.  
  10. Dim FONT(5)
  11. _SETFONT["DMusic.font",16,1]
  12. _SETFONT["Coop.font",24,2]
  13. _SETFONT["Diamond.font",20,3]
  14. _SETFONT["Helvetica.font",24,4]
  15. _SETFONT["Polo-Semiscript.font",28,5]
  16.  
  17. For FONT=1 To 5
  18.    Set Font FONT(FONT)
  19.    Text 100,25*FONT,"ABCDEFGHIJKLM"
  20. Next FONT
  21.  
  22. End 
  23.  
  24. Procedure _SETFONT[NAME$,SIZE,INDEX]
  25.    Shared FONT()
  26.    
  27.    NAME$=Upper$(NAME$)
  28.    Get Fonts : FONT=1
  29.    
  30.    Do 
  31.       F$=Font$(FONT)
  32.       Exit If F$=""
  33.       N$=Upper$(Left$(F$,Len(NAME$)))
  34.       FS=Val(Mid$(F$,31,3))
  35.       Exit If N$=NAME$ and FS=SIZE
  36.       Inc FONT
  37.    Loop 
  38.    
  39.    If F$="" Then FONT=0
  40.    FONT(INDEX)=FONT
  41.    
  42. End Proc
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.