home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 63 / CDACTUAL63.iso / Aplicaciones / DarkBasic / DemoDarkBasic.exe / help / examples / maths / exam03.dba < prev   
Encoding:
Text File  |  2000-01-24  |  826 b   |  51 lines
  1. Rem * Title  : INC and DEC Commands
  2. Rem * Author : DBS-LB
  3. Rem * Date   : 1st January 2000
  4. rem =========================================
  5. rem DARK BASIC EXAMPLE PROGRAM 3
  6. rem =========================================
  7. rem This program will use INC and DEC commands
  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 variables
  14. a=40
  15. a#=40.5
  16.  
  17. rem Increment variables
  18. inc a
  19. inc a#
  20.  
  21. rem Show variable values
  22. print a
  23. print a#
  24.  
  25. rem Increment variables
  26. inc a,5
  27. inc a#,5.0
  28.  
  29. rem Show variable values
  30. print a
  31. print a#
  32.  
  33. rem Decrement variables
  34. dec a,5
  35. dec a#,5.0
  36.  
  37. rem Show variable values
  38. print a
  39. print a#
  40.  
  41. rem Increment variables
  42. dec a
  43. dec a#
  44.  
  45. rem Show variable values
  46. print a
  47. print a#
  48.  
  49. rem End the program
  50. end
  51.