home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 1 / Mecomp-CD.iso / amiga / tools / utillities / vinced / s / setfont < prev    next >
AmigaDOS Script File  |  1997-03-30  |  840b  |  55 lines
  1. .key FONT/A,SIZE/A,SCALE/S,PROP/S,ITALIC/S,BOLD/S,UNDERLINE/S,CLEAR/S
  2. .bra <
  3. .ket >
  4.  
  5. if "<FONT>" eq "topaz"
  6.     if "<SIZE>" eq "9" val
  7.         echo "*E]50;topaz.9"
  8.         skip setstyle
  9.     endif
  10.     if "<SIZE>" eq "8" val
  11.         echo "*E]50;topaz.8"
  12.         skip setstyle
  13.     endif
  14. endif
  15.  
  16. if exists "FONTS:<FONT>.font"
  17.     if "<SCALE>" eq "SCALE"
  18.         echo "*E]50;<FONT>.<SIZE>"
  19.         skip setstyle
  20.     else
  21.         if exists "FONTS:<FONT>/<SIZE>e"
  22.             echo "*E]50;<FONT>.<SIZE>"
  23.             skip setstyle
  24.         else
  25.             if exists "FONTS:<FONT>/<SIZE>"
  26.                 echo "*E]50;<FONT>.<SIZE>"
  27.                 skip setstyle
  28.             else
  29.                 fault 205
  30.                 quit 10
  31.             endif
  32.         endif
  33.     endif
  34. else
  35.     fault 205
  36.     quit 10
  37. endif
  38.  
  39.  
  40. lab setstyle
  41.  
  42. echo "*E[0m"
  43. if "<ITALIC>" eq "ITALIC"
  44.     echo "*E[3m"
  45. endif
  46. if "<BOLD>" eq "BOLD"
  47.     echo "*E[1m"
  48. endif
  49. if "<UNDERLINE>" eq "UNDERLINE"
  50.     echo "*E[4m"
  51. endif
  52. if "<CLEAR>" eq "CLEAR"
  53.     echo "*E[H*E[2J"
  54. endif
  55.