home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST129.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  1.3 KB  |  62 lines
  1. ********************
  2.  
  3. FUNCTION Explodec
  4.  
  5.    PARAMETERS _a, _tchar
  6.  
  7.    PRIVATE _b, _c, _gfar, _astr, _disp, _awhat, _how, _tchar, _front
  8.  
  9.    _b = ROW()
  10.    _c = COL()
  11.    _gfar = LEN("&_a")
  12.    _astr = SPACE(_gfar)
  13.    @ _b,_c GET _astr PICT "&_a."
  14.    CLEAR GETS
  15.    _disp = ""
  16.    _awhat = _c + _gfar - 1
  17.    @ _b,_awhat + 1 SAY ""
  18.    _how = 1
  19.  
  20.    DO WHILE INKEY(0) <> 13
  21.       DO CASE
  22.       CASE LASTKEY() = 27
  23.          EXIT
  24.       CASE (LASTKEY() >= 32 .AND. LASTKEY() <= 126)
  25.  
  26.          _disp = _disp + CHR(LASTKEY())
  27.          _how = _how + 1
  28.  
  29.          @ _b,_awhat GET _disp PICT "&_a."
  30.  
  31.          IF _awhat > _c
  32.             _awhat = _awhat - 1
  33.          ENDIF
  34.       CASE LASTKEY() = 19 .OR. LASTKEY() = 8 .OR. LASTKEY() = 7
  35.          _disp = SPACE(_gfar - LEN(_disp) + 1) + SUBSTR(_disp, 1, LEN(_disp) - 1)
  36.          _how = _how - 1
  37.          @ _b,_c GET _disp PICT "&_a."
  38.          _disp = LTRIM(_disp)
  39.          IF _awhat >= _c + _gfar - 1
  40.             _awhat = _c + _gfar - 1
  41.          ELSE
  42.             _awhat = _awhat + 1
  43.          ENDIF
  44.       ENDCASE
  45.       CLEAR GETS
  46.  
  47.    ENDDO
  48.  
  49.    IF LASTKEY() = 27
  50.       KEYBOARD CHR(27)
  51.    ELSE
  52.       KEYBOARD CHR(13)
  53.    ENDIF
  54.  
  55.    _front = SPACE(_gfar - LEN(_disp))
  56.    _tchar = _front + _disp
  57.    @ _b,_c SAY ""
  58.    RETURN("&_a.")
  59.  
  60. * End of File
  61.  
  62.