home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / NICE.ZIP / MACS.ZIP / MCOPY.CTL < prev    next >
Encoding:
Text File  |  1992-07-07  |  421 b   |  15 lines
  1. cMenuAsk(&CR&&3&Enter message number to copy&12&: &15&*)
  2. inittxt
  3. GetMail(%RESP%,/:LASTMSG/,1)
  4. cMenuAsk(&CR&&3&Copy to which area?&12&: &15&*)
  5. If (%MSGPVT%)=(PRIVATE) Then SetEqual(k=Yes)
  6. NotIf (%MSGPVT%)=(PRIVATE) Then SetEqual(k=No)
  7. setequal(a=%msgfrom%)
  8. fcomma(a)
  9. setequal(b=%msgto%)
  10. fcomma(b)
  11. setequal(c=%msgdesc%)
  12. fcomma(c)
  13. WriteMsg(%RESP%,%var%b,%var%a,%var%c,00,%var%k,0,%MSGNET%,%MSGATTNAME%)
  14. Return
  15.