home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / NICE.ZIP / MACS.ZIP / CHANGE.CTL < prev    next >
Encoding:
Text File  |  1992-10-14  |  835 b   |  33 lines
  1. NotIf (/SEC)=(100) then display(%FAREA%)
  2. If (/SEC)=(100) then goto (sysv)
  3. *bkh
  4. MenuAsk%CRON%(&CR&&3&Which file area would you like&11&(ENTER=Quit)&3&?&12&: &15&*)
  5. If (%RESP%)=(<CR>) then Return
  6.  CmpValo(%MAXFAREA%,%RESP%)
  7.  IfTrue(goto (bds))
  8.  SelFarea(%RESP%)
  9.  CmpVal(%sec%,%FILSEC%)
  10.  IfTrue(goto (nofs))
  11.  SetEqual(/LASTDOWN=%RESP%)
  12.  Display(%FILPATH%welc)
  13.  Say(&CR&&11&Area #%RESP%: &15&%FILNAME% &11&is now selected!&CR&)
  14.  log(--,Changed to %FILNAME% file area)
  15.  Say(&3&Would you like to list this area? &9&[   ]&14&*)
  16.  Back(4)
  17.  YesNoAsk()
  18.  If (%RESP%)=(Yes) Then loadsub(control\macros\flist.ctl)
  19. Return
  20. *bds
  21. loadsub(control\macros\badsel.ctl)
  22. Return
  23. *nofs
  24. display(display\NOFSEC)
  25. selfarea(/:lastdown/)
  26. return
  27.  
  28. *sysv
  29. seek(%FAREA%.100)
  30. iftrue(view(%FAREA%.100))
  31. ifnottrue(display(%FAREA%))
  32. goto (bkh)
  33.