home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST904.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  993 b   |  42 lines
  1. *******************
  2.  
  3. PROCEDURE Location
  4.  
  5.    PARAMETERS _p1, _l1, _v1
  6.    
  7.    IF TYPE("scrleft_1") = "U"
  8.       scrleft_1 = "Steve Straley's ToolkiT"
  9.       scrleft_2 = "Version 2.0"
  10.    ENDIF
  11.  
  12.    PRIVATE _newl, _oldcolor
  13.  
  14.    _newl = LTRIM(TRIM(TRANSFORM(_l1, "99999999999999")))
  15.    
  16.    IF ISCOLOR() .AND. !(IF(TYPE("scrmono")="U", .T., scrmono))
  17.       WINDOWPUSH(15,10,24,70,"WHITE","BLUE")
  18.    ELSE
  19.       WINDOWPUSH(15,10,24,70)
  20.    ENDIF
  21.  
  22.    WSAYGET(1,1, scrleft_1)
  23.    WSAYGET(1,RIGHT_JUST(scrleft_2, 60), scrleft_2)
  24.    WSAYGET(3,5, "Master File name is " + PROCFILE())
  25.    WSAYGET(4,5, "The name of the Program Module you left was &_p1.")
  26.    IF EMPTY(_l1)
  27.       WSAYGET(5,5, "You compiled without line numbers")
  28.    ELSE
  29.       WSAYGET(5,5, "The line number was &_newl.")
  30.    ENDIF
  31.    IF EMPTY(_v1)
  32.       WSAYGET(6, 5, "No Variable is available")
  33.    ELSE
  34.       WSAYGET(6,5, "The variable name was &_v1.")
  35.    ENDIF
  36.    INKEY(0)
  37.    WINDOWPOP()
  38.  
  39. * End of File
  40.  
  41.  
  42.