home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / NICE.ZIP / CTLS.ZIP / DOORBACK.CTL < prev    next >
Encoding:
Text File  |  1992-10-09  |  326 b   |  13 lines
  1. inpline(pbdoor.%Node%,6)
  2.   DoorBack(%ARESP%,Back from Door program)  ;get their name from PBDOOR.node
  3.  
  4. selarea(/:lastmsg/)
  5. ListFile (areas\farea/:LASTMSG/)
  6. selfarea(/:lastdown/)
  7. inpline (pbdoor.%NODE%,13)
  8. setequal(a=%ARESP%)
  9. Kill (pbdoor.%NODE%)
  10. find (%Var%a,DOOR)
  11. iftrue (Display (display\back))
  12. LoadMem (%Var%A)
  13.