home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 63 / CDACTUAL63.iso / Aplicaciones / DarkBasic / DemoDarkBasic.exe / help / examples / text / exam04.dba < prev    next >
Encoding:
Text File  |  2000-04-09  |  906 b   |  38 lines
  1. Rem * Title  : Setting Text Size
  2. Rem * Author : DBS-MB
  3. Rem * Date   : 1st August 99
  4. rem ========================================
  5. rem DARK BASIC EXAMPLE PROGRAM 4
  6. rem ========================================
  7. rem This program will use the set text size  
  8. rem ----------------------------------------
  9.  
  10. rem Set the ink to white and paper color to black 
  11. ink rgb(244,214,210),1
  12.  
  13. rem Set a new font
  14. rem the new font will work with all text command but not the print command
  15. set text font "times new roman"
  16.  
  17. for t =8 to 100 step 2
  18.  
  19.     rem Clear the screen
  20.     cls
  21.         
  22.     rem Set the current font size
  23.     set text size t
  24.  
  25.     text 0,10,"MY NEW TEXT SIZE"
  26.     text 0,(10+text size())+2,"FONT SIZE "+str$(text size())
  27.  
  28.     rem This will delay the loop so that you can see the fonts
  29.     for a= 0 to 32000:next a 
  30.  
  31. next t
  32.  
  33. rem Will wait for you to press any key
  34. suspend for key
  35.  
  36. rem End the program
  37. end
  38.