home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / PASTECLC.PRG < prev    next >
Encoding:
Text File  |  1993-10-22  |  1.3 KB  |  45 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤ 
  2. *⌐ª      Program: PASTECLC.PRG                                         ⌐ª
  3. *⌐ª     Function: ╓▒╜╙╢┴╚í╝╞╦π╞≈╡─╓╡╡─╫╙│╠╨≥                           ⌐ª
  4. *⌐ª        Calls: EXP13_4.PRG                                          ⌐ª
  5. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  6. PARAMETERS thisvar
  7. PUSH KEY CLEAR
  8. PRIVATE toolong, calcno
  9.  
  10. * ░╤╝╞╦π╞≈╓╨╩²╓╡╫¬╗╗│╔╫╓╖√╨═, ╢╘╙┌╙╨╨í╩²╒▀╚í 4 ╬╗╨í╩²
  11. calcno = IIF(_CALCVALUE = INT(_CALCVALUE),;
  12.              ALLTRIM(STR(_CALCVALUE,25,0)),;
  13.              ALLTRIM(STR(_CALCVALUE,25,4)))
  14. toolong = .F.
  15. DO CASE
  16. CASE EMPTY(thisvar)
  17.    WAIT WINDOW " ╝╞╦π╞≈╓╨╡─╓╡▓╗─▄╖┼╘┌╒Γ└∩. "
  18. CASE TYPE(thisvar) = "N"
  19.    * ╩²╓╡╨═╫╓╢╬
  20.    IF LEN(calcno)  <= FSIZE(thisvar)
  21.       REPLACE (thisvar) WITH _CALCVALUE
  22.    ELSE
  23.       toolong = .T.
  24.    ENDIF
  25. CASE TYPE(thisvar) = "C"
  26.    * ╫╓╖√╨═╫╓╢╬
  27.    IF LEN(calcno)  <= FSIZE(thisvar)
  28.       REPLACE (thisvar) WITH calcno
  29.    ELSE
  30.       toolong = .T.
  31.    ENDIF
  32. CASE TYPE(thisvar) = "M"
  33.    * ▒╕╫ó╨═╫╓╢╬
  34.    REPLACE (thisvar) with calcno  ADDITIVE
  35. OTHERWISE
  36.    * ╚╒╞┌╨═╗≥┬▀╝¡╨═╫╓╢╬
  37.    WAIT WINDOW "╝╞╦π╞≈╡─╓╡▓╗─▄╖┼╘┌╒Γ└∩ "
  38. ENDCASE
  39. IF toolong
  40.    WAIT WINDOW NOWAIT ;
  41.    " ╝╞╦π╞≈╓╨╡─╓╡│¼╣²╒Γ╕÷╫╓╢╬╡─│ñ╢╚, ╞Σ╓╡╬¬: "+calcno
  42. ENDIF
  43. POP KEY
  44. RETURN
  45.