home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST335.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  3.8 KB  |  192 lines
  1. *******************
  2.  
  3. FUNCTION O_read
  4.  
  5.    PARAMETERS _t, _read
  6.  
  7.    IF EMPTY(PCOUNT())
  8.       RETURN (.F.)
  9.    ELSE
  10.       IF !(TYPE("_t") $ "AC")
  11.          RETURN(.F.)
  12.       ENDIF
  13.    ENDIF
  14.  
  15.    IF TYPE("_t") = "C"
  16.       _temp = _t
  17.       DECLARE _t[Occurence(";", _temp)]
  18.       FOR _qaz = 1 TO LEN(_t)
  19.          _t[_qaz] = Parsing(_temp, ";")
  20.       NEXT
  21.    ENDIF
  22.    _read = IF((TYPE("_read") != "N"), 1, _read)
  23.    IF LEN(_t) >= 30
  24.       FOR _qaz = 1 TO LEN(_t)
  25.          _in_the(_t[_qaz])
  26.       NEXT
  27.    ELSE
  28.       _in_the(_t[1])
  29.       IF LEN(_t) > 1
  30.          _in_the(_t[2])
  31.       ENDIF
  32.       IF LEN(_t) > 2
  33.          _in_the(_t[3])
  34.       ENDIF
  35.       IF LEN(_t) > 3
  36.          _in_the(_t[4])
  37.       ENDIF
  38.       IF LEN(_t) > 4
  39.          _in_the(_t[5])
  40.       ENDIF
  41.       IF LEN(_t) > 5
  42.          _in_the(_t[6])
  43.       ENDIF
  44.       IF LEN(_t) > 6
  45.          _in_the(_t[7])
  46.       ENDIF
  47.       IF LEN(_t) > 7
  48.          _in_the(_t[8])
  49.       ENDIF
  50.       IF LEN(_t) > 8 
  51.          _in_the(_t[9])
  52.       ENDIF
  53.       IF LEN(_t) > 9
  54.          _in_the(_t[10])
  55.       ENDIF
  56.       IF LEN(_t) > 10
  57.          _in_the(_t[11])
  58.       ENDIF
  59.       IF LEN(_t) > 11
  60.          _in_the(_t[12])
  61.       ENDIF
  62.       IF LEN(_t) > 12
  63.          _in_the(_t[13])
  64.       ENDIF
  65.       IF LEN(_t) > 13
  66.          _in_the(_t[14])
  67.       ENDIF
  68.       IF LEN(_t) > 14
  69.          _in_the(_t[15])
  70.       ENDIF
  71.       IF LEN(_t) > 15
  72.          _in_the(_t[16])
  73.       ENDIF
  74.       IF LEN(_t) > 16
  75.          _in_the(_t[17])
  76.       ENDIF
  77.       IF LEN(_t) > 17
  78.          _in_the(_t[18])
  79.       ENDIF
  80.       IF LEN(_t) > 18
  81.          _in_the(_t[19])
  82.       ENDIF
  83.       IF LEN(_t) > 19
  84.          _in_the(_t[20])
  85.       ENDIF
  86.       IF LEN(_t) > 20
  87.          _in_the(_t[21])
  88.       ENDIF
  89.       IF LEN(_t) > 21
  90.          _in_the(_t[22])
  91.       ENDIF
  92.       IF LEN(_t) > 22
  93.          _in_the(_t[23])
  94.       ENDIF
  95.       IF LEN(_t) > 23
  96.          _in_the(_t[24])
  97.       ENDIF
  98.       IF LEN(_t) > 24
  99.          _in_the(_t[25])
  100.       ENDIF
  101.       IF LEN(_t) > 25
  102.          _in_the(_t[26])
  103.       ENDIF
  104.       IF LEN(_t) > 26
  105.          _in_the(_t[27])
  106.       ENDIF
  107.       IF LEN(_t) > 27
  108.          _in_the(_t[28])
  109.       ENDIF
  110.       IF LEN(_t) > 28
  111.          _in_the(_t[29])
  112.       ENDIF
  113.       IF LEN(_t) > 29
  114.          _in_the(_t[30])
  115.       ENDIF
  116.    ENDIF
  117.    SET KEY 3 TO Nopage
  118.    SET KEY 18 TO Nopage
  119.    scrcursor = .T.
  120.    SET CURSOR ON
  121.    IF _read = 1
  122.       READ
  123.    ELSEIF _read = 2
  124.       CLEAR GETS
  125.    ENDIF
  126.    SET CURSOR OFF
  127.    SET KEY 3 TO 
  128.    SET KEY 18 TO 
  129.    scrcursor = .F.
  130.    IF LASTKEY() = 27
  131.       RETURN(.F.)
  132.    ELSE
  133.       RETURN(UPDATED())
  134.    ENDIF
  135.  
  136. ********************
  137.  
  138. PROCEDURE _in_the
  139.  
  140.    PARAMETERS _tt
  141.  
  142.    IF TYPE("allwindows") != "A"
  143.       _trow = 0
  144.       _tcol = 0
  145.    ELSEIF TYPE("scr_level") != "N"
  146.       _trow = 0
  147.       _tcol = 0
  148.    ELSEIF TYPE("allwindows[scr_level]") != "C"
  149.       _trow = 0
  150.       _tcol = 0
  151.    ELSE
  152.       _trow = VAL(LTRIM(SUBSTR(allwindows[scr_level-1], 1, 2)))
  153.       _tcol = VAL(LTRIM(SUBSTR(allwindows[scr_level-1], 4, 2)))
  154.    ENDIF
  155.  
  156.    _row = VAL(TRIM(LTRIM(Parsing(@_tt, ";")))) + _trow
  157.    _col = VAL(TRIM(LTRIM(Parsing(@_tt, ";")))) + _tcol
  158.    _say = Parsing(@_tt, ";")
  159.    _get = LTRIM(TRIM(Parsing(@_tt, ";")))
  160.    _pic = LTRIM(TRIM(Parsing(@_tt, ";")))
  161.    _val = LTRIM(TRIM(Parsing(@_tt, ";")))
  162.  
  163.    IF EMPTY(_val)
  164.       _val = ".T."
  165.    ENDIF
  166.  
  167.    IF TYPE(_val) == "U" .OR. TYPE(_val) == "UE"
  168.       _val = ".T."
  169.    ENDIF
  170.  
  171.    IF !EMPTY(_get)
  172.       IF EMPTY(_pic)
  173.          @ _row, _col SAY _say GET &_get. VALID &_val.
  174.       ELSE
  175.          @ _row, _col SAY _say GET &_get. PICT _pic VALID &_val.
  176.       ENDIF
  177.    ELSE
  178.       IF EMPTY(_pic)
  179.          @ _row, _col SAY _say 
  180.       ELSE
  181.          @ _row, _col SAY _say PICT _pic
  182.       ENDIF
  183.    ENDIF
  184.  
  185. *******************
  186.  
  187. PROCEDURE Nopage
  188.  
  189.    KEYBOARD ""
  190.  
  191. * End of file
  192.