home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / NICE.ZIP / CTLS.ZIP / UEDIT3.CTL < prev    next >
Encoding:
Text File  |  1992-06-09  |  1.7 KB  |  66 lines
  1. *StUEdit3
  2.  
  3. *ClearInfoBox
  4.  AnsiGoto (2,15);
  5.  Say (      *)
  6.  AnsiGoto (30,15);
  7.  Say (              *)
  8.  AnsiGoto (2,16);
  9.  Say (              *)
  10.  AnsiGoto (30,16);
  11.  Say (         *)
  12.  AnsiGoto (2,17);
  13.  Say (            *)
  14.  AnsiGoto (30,17);
  15.  Say (             *)
  16.  AnsiGoto (2,18);
  17.  Say (                *)
  18.  AnsiGoto (30,18);
  19.  Say (         *)
  20.  AnsiGoto (30,19);
  21.  Say (               *)
  22.  AnsiGoto (30,20);
  23.  Say (                  *)
  24.  
  25. AnsiGoto (20,17)
  26. MenuAsk (&15&Enter Name to Search For: &2&*)
  27. SetEqual (v=%RESP%)
  28. AnsiGoto (20,17)
  29. Say (&12&      Searching....                         *)
  30. AnsiGoto (39,17)
  31. SetEqual (y=%var%z)
  32. ;Stores the number of the user record you are currently viewing in
  33. ;%var%y so that the editor can go back to that user when you are done
  34. ;searching.
  35.  
  36. *FindIt
  37. SeekUser (%var%v)
  38. ifnottrue(goto (notfound))
  39. SetEqual (z=%NDNUMB%)
  40. Loadmem(control\uedit.ctl,goto(clearinfo))
  41.  
  42. *NotFound
  43.  AnsiGoto (20,17)
  44.  Say (&12&%var%v could not be found in the userfile.*)
  45.  SecPause (2) ;Pauses for 2 seconds
  46.  AnsiGoto (20,17)
  47.  Say (&12&                                                   *)
  48.  SetEqual (z=%var%y)
  49. ;Sets the current user record number to %var%y, what it was before the user
  50. ;started searching.
  51.  SetEqual (m=0)
  52.  Loadmem (control\uedit.ctl,goto(clearinfo))
  53. ;Loads into memory the control file CONTROL\UEDIT.CTL and goes to the label *clearinfo.
  54.  
  55. *Found
  56.  SetEqual (m=1) ;DO ask if you want to continue searching.
  57.  SetEqual (z=%var%z)
  58.  Loadmem (control\uedit.ctl,goto(clearinfo))
  59.  
  60. *Another
  61.  AnsiGoto (20,17)
  62.  YesNoAsk(&15&Continue Search? *)
  63.  If (%RESP%)=(Yes) then goto (FindIt)
  64.  SetEqual (m=0)
  65. Loadmem (control\uedit.ctl,goto(clearinfo));Do NOT ask if you want to continue searching.
  66.