home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / NICE.ZIP / CTLS.ZIP / UEDIT2.CTL < prev    next >
Encoding:
Text File  |  1992-06-03  |  7.6 KB  |  334 lines
  1. *StUEdit2
  2.  
  3. *Selection
  4.  Numbusers
  5.  SetEqual (j=%ARESP%)
  6.  If (&f)=(1) then goto (Edit) ;%var%f is the user's selection from the main menu.
  7.  If (&f)=(5) then loadmem(control\uedit3.ctl,goto(stUedit3))
  8.  If (&f)=(6) then goto (quit)
  9.  LoadMem(control\uedit.ctl,goto(badsel))
  10.  
  11. *ClearInfo
  12.  AnsiGoto (11,1)
  13.  Say (                             *)
  14.  AnsiGoto (11,2)
  15.  Say (                             *)
  16.  AnsiGoto (11,3)
  17.  Say (                        )
  18.  AnsiGoto (11,4)
  19.  Say (               *)
  20.  AnsiGoto (11,5)
  21.  Say (    *)
  22.  AnsiGoto (11,6)
  23.  Say (                    *)
  24.  AnsiGoto (11,7)
  25.  Say (     *)
  26.  AnsiGoto (11,8)
  27.  Say (                              *)
  28.  AnsiGoto (11,9)
  29.  Say (     *)
  30.  AnsiGoto (11,10)
  31.  Say (     *)
  32.  AnsiGoto (11,11)
  33.  Say (     *)
  34.  AnsiGoto (11,12)
  35.  Say (     *)
  36.  AnsiGoto (51,1)
  37.  Say (        *)
  38.  AnsiGoto (51,2)
  39.  Say (     *)
  40.  AnsiGoto (51,3)
  41.  Say (                    *)
  42.  AnsiGoto (51,4)
  43.  Say (     *)
  44.  AnsiGoto (51,5)
  45.  Say (               *)
  46.  AnsiGoto (51,6)
  47.  Say (  *)
  48.  AnsiGoto (51,7)
  49.  Say (        *)
  50.  AnsiGoto (51,9)
  51.  Say (  *)
  52.  LoadUser (%var%z)
  53.  SetEqual (x=0)
  54.  LoadMem (Control\uedit.ctl,goto(putinfo))
  55.  
  56. *Edit
  57.  If (&w)=(1) then goto (GetInput)
  58.  AnsiGoto (2,15);
  59.  Say (      *)
  60.  AnsiGoto (30,15);
  61.  Say (              *)
  62.  AnsiGoto (2,16);
  63.  Say (              *)
  64.  AnsiGoto (30,16);
  65.  Say (         *)
  66.  AnsiGoto (2,17);
  67.  Say (            *)
  68.  AnsiGoto (30,17);
  69.  Say (             *)
  70.  AnsiGoto (2,18);
  71.  Say (                *)
  72.  AnsiGoto (30,18);
  73.  Say (         *)
  74.  AnsiGoto (30,19);
  75.  Say (               *)
  76.  AnsiGoto (30,20);
  77.  Say (                  *)
  78.  AnsiGoto (1,1);
  79.  Say (&15&N&7&ame)
  80.  Say (&15&S&7&treet)
  81.  Say (&15&F&7&rom)
  82.  Say (&7&P&15&h&7&one)
  83.  Say (&7&Se&15&c)
  84.  Say (&15&P&7&asswd)
  85.  Say (&15&T&7&imeLeft)
  86.  Say (&15&M&7&emo)
  87.  Say (&15&D&7&ownlds)
  88.  Say (&15&U&7&ploads)
  89.  Say (&15&K&7&Dled)
  90.  Say (&7&KU&15&l&7&ed*)
  91.  AnsiGoto (40,1);
  92.  Say (&15&B&7&irthdate*)
  93.  AnsiGoto (41,2);
  94.  Say (&7&Times &15&O&7&n*)
  95.  AnsiGoto (35,3);
  96.  Say (&7&Compute&15&r&7& Using*)
  97.  AnsiGoto (36,4);
  98.  Say (&7&C&15&a&7&rrier Drops*)
  99.  AnsiGoto (39,5);
  100.  Say (&15&W&7&ork Phone*)
  101.  AnsiGoto (39,6);
  102.  Say (&7&Subscr&15&i&7&ber*)
  103.  AnsiGoto (37,7);
  104.  Say (&7&Sub Date E&15&x&7&p*)
  105.  AnsiGoto (35,9);
  106.  Say (&7&A&15&v&7&ail For Chat*)
  107. *GetInput
  108.  AnsiGoto (20,17)
  109.  Say ($0$&12&Select Category to Modify (Q to Quit): &15&*)
  110.  Menukey
  111.  BigNiceSay (N:Name,S:Street,F:From,H:Phone,C:Sec,P:Passwd,T:TimeLeft)
  112.  BigNiceSay (M:Memo,D:Downlds,U:Uploads,K:KDled,L:KUled,B:Birthdate,O:Times On)
  113.  BigNiceSay (R:Comp Using,A:Carrier Drops,W:Work Phone,I:Subscriber,X:SubDate Exp,Q:Quit)
  114.  AnsiGoto (20,17)
  115.  Say (                                                  *)
  116.  BigIf (N:ChgName,S:ChgSt,F:ChgFrom,H:ChgPhone,C:ChgSec,P:ChgPass,T:ChgTL,M:ChgMemo,D:ChgDls,U:ChgUls,K:ChgDlk,L:ChgUlk,B:ChgBday)
  117.  BigIf (Q:NoMore)
  118.  BigLoad (O:control\uedit4.ctl,R:control\uedit4.ctl,A:control\uedit4.ctl,W:control\uedit4.ctl,I:control\uedit4.ctl,X:control\uedit4.ctl,Q:control\uedit4.ctl,v:control\uedit4.ctl)
  119.  LoadMem (Control\uedit.ctl,goto(badsel))
  120.  
  121. *NoMore
  122.  SaveUser (%var%z)
  123.  SetEqual (e=0) ;Set it so that the user is flagged as NOT editing a user record. 
  124.  SetEqual (w=0)
  125.  Loadmem (control\uedit.ctl,goto(moreedit))
  126.  
  127. *ChgName
  128.  AnsiGoto (24,17)
  129.  Say (&15&Enter New Name :                   &2&*)
  130.  AnsiGoto (41,17)
  131.  Ask (*)
  132.  SetEqual (>NAME=%RESP%)
  133.  SetEqual (e=1)
  134.  SetEqual (w=1)
  135.  SaveUser (%var%z)
  136.  Goto (ClearInfo)
  137.  
  138. *ChgSt
  139.  AnsiGoto (20,17)
  140.  Say (&15&Enter New Street:                  &2&*)
  141.  AnsiGoto (38,17)
  142.  Ask (*)
  143.  SetEqual (>STREET=%RESP%)
  144.  SetEqual (e=1) ;Set it so that the user IS flagged as editing a user.
  145.  SetEqual (w=1)
  146.  SaveUser (%var%z)
  147.  Goto (ClearInfo)
  148.  
  149. *ChgFrom
  150.  AnsiGoto (19,17)
  151.  Say (&15&Enter New User From :              &2&*)
  152.  AnsiGoto (41,17)
  153.  Ask (*)
  154.  SetEqual (>FROM=%RESP%)
  155.  SetEqual (e=1)
  156.  SetEqual (w=1)
  157.  SaveUser (%var%z)
  158.  Goto (ClearInfo)
  159.  
  160. *ChgPhone
  161.  AnsiGoto (25,16)
  162.  Say (&15&Enter New Phone Number :           &2&)
  163.  AnsiGoto (29,17);
  164.  Picture(###-###-####)
  165.  setequal(>PHONE=%RESP%)
  166.  SetEqual (e=1) 
  167.  SetEqual (w=1)
  168.  SaveUser (%var%z)
  169.  Goto (ClearInfo)
  170.  
  171. *ChgSec
  172.  AnsiGoto (24,17)
  173.  Ask (&15&Enter New Security: &2&*)
  174.  Number (%RESP%)
  175.  IfNotTrue(goto (badsec))
  176.  SetEqual (>SEC=%RESP%)
  177.  SetEqual (e=1)
  178.  SetEqual (w=1)
  179.  SaveUser (%var%z)
  180.  Goto (ClearInfo)
  181.  
  182. *badsec
  183.  AnsiGoto (20,17)
  184.  Say (                                                  *)
  185.  AnsiGoto (25,17)
  186.  Say (&4&Bad Security-- Not a Number.*)
  187.  SecPause (2)
  188.  AnsiGoto (20,17)
  189.  Say (                                                  *)
  190.  Goto (ChgSec)
  191.  
  192. *ChgComp
  193.  AnsiGoto (20,17)
  194.  Ask (&15&Enter New Computer Using: &2&*)
  195.  SetEqual (>COMP=%RESP%)
  196.  SetEqual (e=1)
  197.  SetEqual (w=1)
  198.  SaveUser (%var%z)
  199.  Goto (ClearInfo)
  200.  
  201. *ChgTL
  202.  AnsiGoto (24,17)
  203.  Ask (&15&Enter New Time Left: &2&*)
  204.  Number (%RESP%)
  205.  IfNotTrue (goto (badtl))
  206.  SetEqual (>LEFT=%RESP%)
  207.  SetEqual (e=1)
  208.  SetEqual (w=1)
  209.  SaveUser (%var%z)
  210.  Goto (ClearInfo)
  211.  
  212. *badtl
  213.  AnsiGoto (20,17)
  214.  Say (                                                  *)
  215.  AnsiGoto (20,17)
  216.  Say (&4&Bad Time Left Value-- Not a Number.*)
  217.  SecPause (2)
  218.  AnsiGoto (20,17)
  219.  Say (                                                  *)
  220.  Goto (ChgTL)
  221.  
  222. *ChgPass
  223.  AnsiGoto (24,17)
  224.  Ask (&15&Enter New Password: &2&*)
  225.  SetEqual (>PASS=%RESP%)
  226.  SetEqual (e=1)
  227.  SetEqual (w=1)
  228.  SaveUser (%var%z)
  229.  Goto (ClearInfo)
  230.  
  231. *ChgMemo
  232.  AnsiGoto (20,17);
  233.  Ask (&15&Enter New Memo: &2&*)
  234.  SetEqual (>MEMO=%RESP%)
  235.  SetEqual (e=1)
  236.  SetEqual (w=1)
  237.  SaveUser (%var%z)
  238.  Goto (ClearInfo)
  239.  
  240. *ChgDls
  241.  AnsiGoto (20,17)
  242.  Ask (&15&Enter New Number of Downloads: &2&*)
  243.  Number (%RESP%)
  244.  IfNotTrue (goto (baddls))
  245.  SetEqual (>DOWNLOADS=%RESP%)
  246.  SetEqual (e=1)
  247.  SetEqual (w=1)
  248.  SaveUser (%var%z)
  249.  Goto (ClearInfo)
  250.  
  251. *baddls
  252.  AnsiGoto (20,17)
  253.  Say (                                                  *)
  254.  AnsiGoto (20,17);
  255.  Say (&4&Bad Number of Downloads-- Not a Number.*)
  256.  SecPause (2)
  257.  AnsiGoto (20,17)
  258.  Say (                                                  *)
  259.  Goto (ChgDls)
  260.  
  261. *ChgUls
  262.  AnsiGoto (20,17)
  263.  Ask (&15&Enter New Number of Uploads: &2&*)
  264.  Number (%RESP%)
  265.  IfNotTrue (goto (baduls))
  266.  SetEqual (>UPLOADS=%RESP%)
  267.  SetEqual (e=1)
  268.  SetEqual (w=1)
  269.  SaveUser (%var%z)
  270.  Goto (ClearInfo)
  271.  
  272. *baduls
  273.  AnsiGoto (20,17)
  274.  Say (                                                  *)
  275.  AnsiGoto (20,17)
  276.  Say (&4&Bad Number of Uploads-- Not a Number.*)
  277.  SecPause (2)
  278.  AnsiGoto (20,17)
  279.  Say (                                                  *)
  280.  Goto (ChgUls)
  281.  
  282. *ChgDlK
  283.  AnsiGoto (21,17)
  284.  Ask (&15&Enter New Download K: &2&*)
  285.  Number (%RESP%)
  286.  IfNotTrue (goto (baddlk))
  287.  SetEqual (>KDOWN=%RESP%)
  288.  SetEqual (e=1)
  289.  SetEqual (w=1)
  290.  SaveUser (%var%z)
  291.  Goto (ClearInfo)
  292.  
  293. *baddlk
  294.  AnsiGoto (20,17)
  295.  Say (                                                  *)
  296.  AnsiGoto (20,17)
  297.  Say (&4&Bad Download K Value-- Not a Number.*)
  298.  SecPause (2)
  299.  AnsiGoto (20,17)
  300.  Say (                                                  *)
  301.  Goto (ChgDlk)
  302.  
  303. *ChgUlK
  304.  AnsiGoto (21,17)
  305.  Ask (&15&Enter New Upload K: &2&*)
  306.  Number (%RESP%)
  307.  IfNotTrue (goto (badulk))
  308.  SetEqual (>KUP=%RESP%)
  309.  SetEqual (e=1)
  310.  SetEqual (w=1)
  311.  SaveUser (%var%z)
  312.  Goto (ClearInfo)
  313.  
  314. *ChgBday
  315.  AnsiGoto (21,16)
  316.  Say (&15&Enter New Birthday: &2&*)
  317.  AnsiGoto (25,17)
  318.  Picture (##-##-##)
  319.  SetEqual (>BIRTH=%RESP%)
  320.  SetEqual (e=1)
  321.  SetEqual (w=1)
  322.  SaveUser (%var%z)
  323.  Goto (ClearInfo)
  324.  
  325. *badulk
  326.  AnsiGoto (20,17)
  327.  Say (                                                  *)
  328.  AnsiGoto (20,17)
  329.  Say (&4&Bad Upload K Value-- Not a Number.*)
  330.  SecPause (2)
  331.  AnsiGoto (20,17)
  332.  Say (                                                  *)
  333.  Goto (ChgUlk)
  334.