home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / 1LINER.CTL < prev    next >
Encoding:
Text File  |  1993-07-13  |  982 b   |  28 lines
  1. ;Programmed By: The Sleepy [ISN'92] -\- In PowerBoard Control Language
  2. ;International Scientists Network HQ Insomnia BBS 914-242-5123
  3. ;PowerBoard 1.17αlpha Site -\- Running Prodoor, Prologon, PowerBoard, ßeta Renegade
  4.  
  5. *prompt
  6. deftimes(1)
  7. YesNoAsk(&9&Would You Like To Add A One-Liner? &5&[&13&YES&5&] &10&» &15&*)
  8. if (%RESP%)=(No) then loadsub(control\auto.ctl)
  9. if (%RESP%)=(Yes) then goto yes
  10. *yes
  11. say(&15&You Will Have One Line For Your One-Liner Do _Not_ Use Color Codes)
  12. Menuask(&10&» &15&*)
  13. appendto(display\1liner.ans,φ %RESP%) ;Write Response to File
  14. goto next
  15. *next
  16. display(display\1liner)
  17. deftimes(1)
  18. YesNoAsk(&9&Would you like to add another? &5&[&13&YES&5&] &10&» &15&*)
  19. if (%RESP%)=(No) then loadsub(control\auto.ctl)
  20. if (%resp%)=(Yes) then goto anuta
  21. *anuta
  22. Menuask(&10&» &15&*)
  23. appendto(display\1liner.ans,φ %RESP%)
  24. say(&15&Thanx For Your Opinion!)
  25. enter
  26. loadsub(control\main.mnu)  ;Load up your Main Menu
  27.  
  28.