home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / BBSAD.CTL < prev    next >
Encoding:
Text File  |  1993-07-13  |  982 b   |  33 lines
  1. ;BBS Ad written by Brian LeMire
  2. ;SysOp of: The Round Table BBS
  3. ;North Adams, MA 01247
  4. ;BBS number (413)663-8343
  5.  
  6. display(display\bbsad)
  7. deftimes(1)
  8. default(N)
  9. Say(&9&Do you want to change the BBS Ad or leave it alone&10&? &12&[&14&Nah&12&]&14&*)
  10. Back(4)
  11. YesNoAsk(*)
  12. if (%resp%)=(No) then loadmem(control\main.mnu)
  13. kill(display\bbsad.asc)
  14. say(&13&Enter new BBS Ad, end with a blank line. Words will wrap.)
  15. appendto(display\bbsad.asc,PBANSI)
  16. appendto(display\bbsad.asc,$5$&13&▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄)
  17. appendto(display\bbsad.asc,$5$&0&BBS Ad:═════&9&By: &11&%NAME%&15&)
  18. appendto(display\bbsad.asc,$5$&13&▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀&0&$0$)
  19. resetwrap
  20. DO
  21.   wrapask %LEN75%(&5&»&15&*&0&)
  22.   if (%RESP%)=() then goto (Done)
  23.   appendto(display\bbsad.asc,&12&%RESP%&0&)
  24. LOOP
  25. resetwrap
  26. *Done
  27. appendto(display\bbsad.asc,)
  28. say(&15&Here's the NEW BBS Ad, if the BBS isn't long distance, make sure you call!!!)
  29. display(display\bbsad)
  30. Enter
  31. loadMem(control\main.mnu)
  32.  
  33.