home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / ibm1 / do101j2.arj / VERSION.SCR < prev    next >
Encoding:
Text File  |  1991-12-31  |  1.7 KB  |  70 lines
  1. .pg wi full clr cy
  2.     COMMAND NAME»gray«: »%t« Version »ye«
  3.  
  4.     /VERSION
  5. /cw
  6.     »%t«Version»#« shows the »%t«DO»#« version, script name and script level
  7.     on line »ye«25»#« of the screen.
  8. /VERSION
  9. /SET B 15
  10. /LOOK 25 17 1
  11. /IF %Found EQ : CONT
  12. /SET B 19
  13. :CONT
  14. .pg clr
  15. /GOSUB Arrow %B
  16.     The »ye«version number»#« is composed of three parts:
  17.  
  18.     »gr«MAJOR VERSION»gy«:»#«  This number indicates a major revision to the
  19.                     »%t«DO»ye« script processor»#«'s capabilities
  20.  
  21. .pg
  22. /GOSUB Arrow @math(%B+2)
  23.     »gr«MINOR VERSION»gy«:»#«  These are incremental enhancements to the
  24.                     capabilities
  25.  
  26. .pg
  27. /GOSUB Arrow @math(%B+4)
  28.     »gr«REVISION»gy«:»#«       A letter here indicates an error correction or
  29.                     revision to the internal workings without
  30.                     changes to the »%t«DO»#« capabilities
  31.  
  32. .pg clr
  33. /GOSUB Arrow @math(%B+10)
  34.     The »wh«date»#« shows the date on which this version was produced.
  35.  
  36. .pg
  37. /GOSUB Arrow @math(%B+25)
  38.     The »cy«Script Name»#« shows the full path name of the current script.
  39.     The »wh«script level»#« follows the script in parentheses.
  40.  
  41. .pg clr
  42. /GOSUB Arrow 0
  43.     The »%t«Version»#« command can be helpful in debugging scripts or
  44.     telling the script user information about the script.
  45.  
  46.     »bl«NOTE»gy«:»#« the »cy«Script»#« Name can also be displayed by using the
  47.           special variable »ye«~123script~125»#« like this:
  48. »gr«
  49.     SCRIPT = {script}
  50. »#«
  51. /GOTO End
  52. :Arrow
  53. /SET Y {Y}
  54. .wi full
  55. /SET title " "
  56. .go 1 23
  57. %title(L79)
  58. %title(L79)
  59. /IF %Arrow01 NE 0 AEnd
  60. .go %Arrow01 23 ye
  61. │
  62. .go %Arrow01 24
  63. V
  64. :AEnd
  65. .# wi 1 5 80 22
  66. .go 1 %Y
  67. /RETURN
  68. :END
  69. /ENDEXEC CLEAR
  70.