home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / NICE.ZIP / CTLS.ZIP / UEDIT4.CTL < prev    next >
Encoding:
Text File  |  1992-06-03  |  2.5 KB  |  90 lines
  1. *StUedit4
  2.  
  3.  BigIf (O:ChgTOn,R:ChgComp,A:ChgDrops,W:ChgWrk,I:ChgSub,X:ChgSDate,V:ChgAvail)
  4. *ChgTOn
  5.  AnsiGoto (21,17)
  6.  ;Goes to the location 21,17 on the screen. (21 characters over, 17 down)
  7.  ask (&15&Enter New Times On: &2&*)
  8. ;Gets input from the user. The * tells it NOT to go to the next line. 
  9.  Number (%RESP%)
  10. ;Checks to see if %RESP%, the user's response, is a number. 
  11.  IfNotTrue (goto (BadTOn))
  12. ;If %RESP% isn't a number, then go to the label *BadTOn 
  13.  SetEqual (>TIMESON=%RESP%)
  14. ;Set the number of times in the currently loaded but unused record file to
  15. ;the value contained in %RESP% (a user-entered value). (For a complete list
  16. ;of all percent codes [like >TIMESON] refer to the Powerboard docs.
  17.  Goto (DoIt)
  18. ;Goes to the label *DoIt, which is just a place where some variable values
  19. ;are changed, and where it saves the currently loaded record file to disk.
  20.  
  21. *BadTOn
  22.  AnsiGoto (21,17)
  23.  Say (&4&Bad Times On Value, Not a Number.*)
  24.  SecPause (2) ;Pauses for 2 seconds.
  25.  AnsiGoto (21,17)
  26.  Say (                                 )
  27. ;Used to clear the space where it said "Bad Times On..."
  28.  Goto (ChgTOn)
  29.  
  30. *ChgComp
  31.  AnsiGoto (21,17)
  32.  ask (&15&Enter New Computer Using: &2&*)
  33.  SetEqual (>COMP=%RESP%)
  34.  Goto (DoIt)
  35.  
  36. *ChgDrops
  37.  AnsiGoto (21,17)
  38.  Say (&15&Enter New Carrier Dropped Times:                        &2&*)
  39.  AnsiGoto (54,17)
  40.  Ask (*)
  41.  Number (%RESP%)
  42.  IfNotTrue (goto (BadDrops))
  43.  SetEqual (>DROPPED=%RESP%)
  44.  Goto (DoIt)
  45.  
  46. *BadDrops
  47.  AnsiGoto (21,17)
  48.  Say (&4&Bad Carrier Dropped Amount, Not a Number.*)
  49.  SecPause (2)
  50.  AnsiGoto (21,17)
  51.  Say (                                         )
  52.  Goto (ChgDrops)
  53.  
  54. *ChgWrk
  55.  AnsiGoto (21,16)
  56.  Say (&12&Enter New Work Phone Number: &2&)
  57.  AnsiGoto (27,17)
  58.  Picture (###-###-####)
  59.  SetEqual (>WORK=%RESP%)
  60.  Goto (DoIt)
  61.  
  62. *ChgSub
  63.  AnsiGoto (25,17)
  64.  yesnoask (&12&Subscriber? &2&*)
  65.  SetEqual (>SUB=%RESP%)
  66.  Goto (DoIt)
  67.  
  68. *ChgSDate
  69.  AnsiGoto (21,16)
  70.  Say (&12&Enter New Subscription Expiration Date: &2&*)
  71.  AnsiGoto (25,17)
  72.  Picture (##-##-##)
  73.  SetEqual (>SUBDATE=%RESP%)
  74.  Goto (DoIt)
  75.  
  76. *ChgAvail
  77.  AnsiGoto (21,17)
  78.  YesNoAsk (&12&Default User Available For Chat: &2&*)
  79.  SetEqual (>DEFAVAIL=%RESP%)
  80.  Goto (DoIt)
  81.  
  82. *DoIt
  83.  SetEqual (e=1)
  84. ;Set it that the user is flagged as editing a user record.
  85.  SetEqual (w=1)
  86. ;Set it that the user is flagged as editing a user record. 
  87. ;Again, %var%e and %var%w are similar. I don't know the difference, really.
  88.  SaveUser (%var%z)
  89.  Loadmem (control\uedit2.ctl,goto(clearinfo))
  90.