home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / NICE.ZIP / MACS.ZIP / EDIT.CTL < prev    next >
Encoding:
Text File  |  1992-06-03  |  378 b   |  18 lines
  1. setequal(a=%NAME%)
  2. upcase(a)
  3. setequal(i=%MSGFROM%)
  4. upcase(i)
  5. notif (&i)=(&a) then goto (inv2)
  6. setequal(p=%MAXLINE%)
  7. setequal(q=%var%y)
  8. msgkill(/:LASTMSG/,%var%y)
  9. setequal(a=%MSGTO%)
  10. setequal(k=20)
  11. seekuser(%var%a)
  12. setequal(c=%NDNUMB%)
  13. setequal(y=0)
  14. IfNotTrue (setequal(c=0))
  15. setequal(b=%MSGDESC%)
  16. setequal(z=15)
  17. loadmem(control\macros\ENTER.CTL,goto (stenter))
  18.