home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST117.PRG < prev    next >
Encoding:
Text File  |  1989-08-11  |  1.6 KB  |  50 lines
  1. ********************
  2.  
  3. PROCEDURE Reset_env
  4.  
  5.    PARAMETERS _tbatch, _tv, _tr, _te, _tx, _tf, _ts, _runfile
  6.  
  7.    IF PCOUNT() = 2
  8.       STORE "000" TO _tr, _te, _tx
  9.       STORE "20" TO _tf
  10.       STORE "1" TO _ts
  11.       STORE "" TO _runfile
  12.    ELSEIF PCOUNT() = 3
  13.       STORE "000" TO _te, _tx
  14.       STORE "20" TO _tf
  15.       STORE "1" TO _ts
  16.       STORE "" TO _runfile
  17.    ELSEIF PCOUNT() = 4
  18.       STORE "000" TO _tx
  19.       STORE "20" TO _tf
  20.       STORE "1" TO _ts
  21.       STORE "" TO _runfile
  22.    ELSEIF PCOUNT() = 5
  23.       STORE "20" TO _tf
  24.       STORE "1" TO _ts
  25.       STORE "" TO _runfile
  26.    ELSEIF PCOUNT() = 6
  27.       STORE "1" TO _ts
  28.       STORE "" TO _runfile
  29.    ELSEIF PCOUNT() = 7
  30.       STORE "" TO _runfile
  31.    ENDIF
  32.  
  33.    PRIVATE _r1, _r2, _r3, _r4, _r5, _r6, _r7, _r8
  34.  
  35.    _r1 = "Echo Off" + CHR(13) + CHR(10) + "CLS" + CHR(13) + CHR(10) + "SET CLIPPER= "
  36.    _r2 = IF(!EMPTY(VAL(_tv)), "v" + FILL_ZEROS(_tv, 3) + ";", "")
  37.    _r3 = IF(!EMPTY(VAL(_tr)), "r" + FILL_ZEROS(_tr, 3) + ";", "")
  38.    _r4 = IF(!EMPTY(VAL(_te)), "e" + FILL_ZEROS(_te, 3) + ";", "e000;")
  39.    _r5 = IF(!EMPTY(VAL(_tx)), "x" + FILL_ZEROS(_tx, 3) + ";", "")
  40.    _r6 = IF(!EMPTY(VAL(_tf)), "f" + FILL_ZEROS(_tf, 3) + ";", "")
  41.    _r7 = IF(!EMPTY(VAL(_ts)), "s" + FILL_ZEROS(_ts, 1) + ";", "s0") + CHR(13) + CHR(10)
  42.    IF EMPTY(_runfile)
  43.       _r8 = "CLS" + CHR(13) + CHR(10) + "echo DOS has now been set.  Please Start your Program Over again!" + CHR(13) + CHR(10) + CHR(13) + CHR(10)
  44.    ELSE
  45.       _r8 = "CLS" + CHR(13) + CHR(10) + _runfile + CHR(13) + CHR(10) 
  46.    ENDIF
  47.    MEMOWRIT(_tbatch, _r1+_r2+_r3+_r4+_r5+_r6+_r7+_r8)
  48.  
  49. * End of File
  50.