home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / NICE.ZIP / MACS.ZIP / OLD-SEL.CTL < prev    next >
Encoding:
Text File  |  1992-06-16  |  655 b   |  29 lines
  1. clearmem
  2. display(display\SELAREAS)
  3. setequal(a=/:LASTMSG/)
  4. findsel
  5. setequal(d=1)
  6. do
  7. selarea(%var%d)
  8. enufsec(%AREASEC%)
  9. if (%ARESP%)=(No) then goto (cnt)
  10. nicesay(&10&Area %var%d (&7&%AREANAME%&10&)  -  &14&^:d^)
  11. *cnt
  12. if (&d)=(%MAXAREA%) then goto (elist)
  13. inc(d)
  14. loop
  15.         *elist
  16. setequal(/lastmsg=%var%a)
  17. selarea(/:lastmsg/)
  18. say(&CR&&3&Would you like to change this? &9&[   ]&14&*)
  19. back(4)
  20. yesnoask(*)
  21. if (%RESP%)=(No) then Return
  22. menuask(&3&Which area would you like to change?&12&: &15&*)
  23. setequal(r=%RESP%)
  24. say(&CR&&3&Would you like this area to be selected? &9&[   ]&14&*)
  25. back(4)
  26. yesnoask(*)
  27. select(%var%r,%RESP%)
  28. Return
  29.