home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / MEMOPRT.PRG < prev    next >
Encoding:
Text File  |  1994-01-12  |  1.4 KB  |  47 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤ 
  2. *⌐ª      Program: MEMOPRT.PRG                                          ⌐ª
  3. *⌐ª     Function: ┤≥╙í╩²╛▌┐Γ╡─▒╕╫ó╫╓╢╬║»╩²╡─╖╢└²                       ⌐ª
  4. *⌐ª        Usage: MEMOPRT(<memofld>,<col>,<width>)                     ⌐ª
  5. *⌐ª               <memofld> ▒╕╫ó╫╓╢╬├√│╞                               ⌐ª
  6. *⌐ª               <col>     ┤≥╙í╞≡╩╝┴╨                                 ⌐ª
  7. *⌐ª               <width>   ┤≥╙í╨╨┐φ                                   ⌐ª
  8. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  9. FUNCTION memoprt
  10. PARAMETERS memofld,col,width
  11. PRIVATE check,memofld,col,width
  12.  
  13. * ┤ó┤µ╘¡└┤╡─ MEMOWIDTH, PRINTER ╡─╫┤╠¼
  14. cur_width = SET("MEMOWIDTH")
  15. cur_print = SET("PRINTER") = "OFF"
  16. Newwidth  = MIN(_rmargin-_lmargin,width)
  17. SET MEMOWIDTH TO Newwidth
  18.  
  19. DEFINE BOX FROM col-1 TO (col+Newwidth+1) ;
  20.        HEIGHT MEMLINES((memofld))+2 "."
  21.  
  22. DO WHILE !PRINTSTATUS()
  23.    WAIT  " ┤≥╙í╗·▓╗╩╟ ON-LINE ╫┤╠¼, ╟δ╝∞▓Θ▓ó░┤╚╬╥╗╝ⁿ╝╠╨°╗≥░┤ [ESC] ╝ⁿ═╦│÷";
  24.          WINDOW  NOWAIT
  25.    IF LASTKEY()=27
  26.       SET MEMOWIDTH TO cur_width
  27.       IF cur_print
  28.          SET PRINTER OFF
  29.       ENDIF
  30.       RETURN
  31.    ENDIF
  32. ENDDO
  33. SET PRINTER ON
  34.  
  35. STORE .T. TO _BOX
  36. * ┤≥╙í DEFINE BOX ╔Φ╢¿╡─▒▀┐≥, ╧╡═│─┌┤µ▒Σ┴┐ _BOX ╨Φ╔Φ╬¬ .T.
  37. ?
  38. ?? (memofld) AT col
  39. ?
  40. ?
  41. STORE .F. TO _BOX
  42. SET MEMOWIDTH TO cur_width
  43. IF cur_print
  44.    SET PRINTER OFF
  45. ENDIF
  46. RETURN
  47.