home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / NICE.ZIP / CTLS.ZIP / UEDIT.2 < prev    next >
Encoding:
Text File  |  1992-10-07  |  7.8 KB  |  340 lines
  1. *StUEdit
  2. *edit
  3.  SetEqual (f=1)
  4.  SetEqual (e=0)
  5.  SetEqual (w=0)
  6.  SetEqual (z=1)
  7.  SetEqual (m=0)
  8. *moreedit
  9.  ClearScr
  10.  LoadUser(%var%z)
  11.  SetEqual (x=0)
  12. *EvenMoreEdit 
  13.  AnsiGoto (1,1) ;Puts the cursor in the top left hand corner of the screen. 
  14.  If (&w)=(1) then goto (putinfo) ;if %var%w is 1 then skip rewrite
  15.  Say ($0$&15&Name    :                              Birthdate: )
  16.  Say (Street  :                               Times On: )
  17.  Say (From    :                         Computer Using: )
  18.  Say (Phone   :                          Carrier Drops: )
  19.  Say (Sec     :                             Work Phone: )
  20.  Say (Passwd  :                             Subscriber: )
  21.  Say (TimeLeft:                           Sub Date Exp: )
  22.  Say (Memo    : )
  23.  Say (Downlds :                         Avail For Chat: )
  24.  Say (Uploads : )
  25.  Say (KDled   : )
  26.  Say (KUled   : )
  27. *PutInfo
  28.  say (&14&*)
  29.  LocPrint (1,11,\:NAME\)
  30.  LocPrint (2,11,\:STREET\)
  31.  LocPrint (3,11,\:FROM\)
  32.  LocPrint (4,11,\:PHONE\)
  33.  LocPrint (5,11,\:SEC\)
  34.  LocPrint (6,11,\:PASS\)
  35.  LocPrint (7,11,\:LEFT\)
  36.  LocPrint (8,11,\:MEMO\)
  37.  LocPrint (9,11,\:DOWNLOADS\)
  38.  LocPrint (10,11,\:UPLOADS\)
  39.  LocPrint (11,11,\:KDOWN\)
  40.  LocPrint (12,11,\:KUP\)
  41.  LocPrint (1,51,\:BIRTH\)
  42.  LocPrint (2,51,\:TIMESON\)
  43.  LocPrint (3,51,\:COMP\)
  44.  LocPrint (4,51,\:DROPPED\)
  45.  LocPrint (5,51,\:WORK\)
  46.  LocPrint (6,51,\:SUB\)
  47.  LocPrint (7,51,\:SUBDATE\)
  48.  LocPrint (9,51,\:DEFAVAIL)
  49.  AnsiGoto (1,14)
  50.  If (&x)=(1) then goto (Check)
  51.  If (&e)=(1) then goto (Secondary)
  52.  If (&m)=(1) then goto (Secondary)
  53.  
  54. *AndMore
  55. Say (&4&╔═══════════════════════════════════════════════════════════════════════════╗)
  56. Say (║&7& KEYS:                      *)
  57. say (Edit this User                                *)
  58. say (&4& ║)
  59. Say (║&7& 2 = Move Down              *)
  60. say (Next User                                     *)
  61. say (&4& ║)
  62. Say (║&7& 8 = Move Up                *)
  63. say (Previous User                                 *)
  64. say (&4& ║)
  65. Say (║&7& (ENTER) Selects            *)
  66. say (Last User                                     *)
  67. say (&4& ║)
  68. Say (║&7&                            Search for User                               &4& ║)
  69. Say (║&7&                            Quit to Sysop Menu                            &4& ║)
  70. Say (╚═══════════════════════════════════════════════════════════════════════════╝)
  71. Goto (Check) ;90 chars is cutoff for ctl file lines...
  72.  
  73. *Secondary
  74.  Say (&4&╔═══════════════════════════════════════════════════════════════════════════╗)
  75.  Say (║                                                                           ║)
  76.  Say (║                                                                           ║)
  77.  Say (║                                                                           ║)
  78.  Say (║                                                                           ║)
  79.  Say (║                                                                           ║)
  80.  Say (║                                                                           ║)
  81.  Say (╚═══════════════════════════════════════════════════════════════════════════╝)
  82.  If (&m)=(1) then loadmem(control\uedit3.ctl,goto(Another))
  83.  If (&e)=(1) then loadmem(control\uedit2.ctl,goto(Edit))
  84.  
  85. *Check
  86.  If (&f)=(1) then goto (place1)
  87.  If (&f)=(2) then goto (place2)
  88.  If (&f)=(3) then goto (place3)
  89.  If (&f)=(4) then goto (place4)
  90.  If (&f)=(5) then goto (place5)
  91.  If (&f)=(6) then goto (place6)
  92. *more
  93.  MenuKey%CRON%
  94.  if (%resp%)=(<CR>) then goto (chkifs)
  95.  bigif (2:movehighlightfd,8:movehighlightbk,f:first,q:exedit)
  96.  Goto(BadSel)
  97.  
  98. *Chkifs
  99.  NotIf (&f)=(2) then goto (moreifs)
  100.  goto (cont)
  101. *moreifs
  102.  If (&f)=(6) then goto (exedit)
  103.  NotIf (&f)=(3) then goto (lastifs)
  104.  Goto (cont)
  105.  
  106. *lastifs
  107.  NotIf (&f)=(4) then Loadmem(control\uedit2.ctl,goto(selection))
  108. *Cont 
  109.  If (&f)=(4) then goto (Last)
  110.  If (&f)=(3) then goto (prev)
  111.  SaveUser (%var%z) ;Saves the record number of %var%z.
  112.  inc(z)
  113.  Numbusers();
  114.  SetEqual (d=%ARESP%)
  115.  inc(d)
  116.  CmpVal(%var%d,%var%z);
  117.  iftrue (setequal(Z=%var%d))
  118.  SetEqual (x=1)
  119.  Goto (Clearinfo)
  120.  
  121. *Prev
  122.  SaveUser (%var%z)
  123.  SetEqual (z=%var%z)
  124.  NotIf (&z)=(0) then AddVar (&z+-1=z)
  125.  If (&z)=(0) then SetEqual (z=1)
  126.  SetEqual (x=1)
  127.  Goto (Clearinfo)
  128.  
  129. *Last
  130.  SaveUser (%var%z)
  131.  Numbusers
  132.  SetEqual (z=%ARESP%)
  133.  SetEqual (x=0)
  134.  Goto (ClearInfo)
  135.  
  136. *First
  137.  SetEqual (z=1)
  138.  Goto (ClearInfo)
  139.  
  140. *Temp
  141.  ClearScr
  142.  return
  143.  
  144. *EditUser
  145.  Say (&7&Enter letter of item to change (Q to Quit Changing): *)
  146.  MenuKey
  147.  Say (&15& %RESP%)
  148. BigIf(N:ChgName,S:ChgSt,F:ChgFrom,H:ChgPhone,C:ChgSec,P:ChgPass,T:ChgTL)
  149. BigIf(M:ChgMemo,D:ChgDls,U:ChgUls,K:ChgDlK,L:ChgUlK,Q:Quit)
  150.  Goto(BadSel)
  151.  
  152. *BadSel
  153.   AnsiGoto (30,15)
  154.   Say (              *)
  155.   AnsiGoto (30,16)
  156.   Say (         *)
  157.   AnsiGoto (30,17)
  158.   Say (             *)
  159.   AnsiGoto (30,18)
  160.   Say (         *)
  161.   AnsiGoto (30,19)
  162.   Say (               *)
  163.   AnsiGoto (30,20)
  164.   Say (                  *)
  165.   AnsiGoto (30,17)
  166.   Say (&12&Invalid Selection!*)
  167.   SecPause(2)
  168.   AnsiGoto (1,14)
  169.   Goto (AndMore)
  170.  
  171. *Quit
  172.  SetEqual (f=1)
  173.  SetEqual (e=0)
  174.  SetEqual (z=1)
  175.  SetEqual (m=0)
  176.  SetEqual (e=0)
  177.  Goto (EvenMoreEdit)
  178.  
  179.  
  180. *Place1
  181.  AnsiGoto (30,15)
  182.  Say ($7$&0&Edit this User$0$*)
  183.  Goto (more)
  184.  
  185. *Place2
  186.  AnsiGoto (30,16)
  187.  Say ($7$&0&Next User$0$*)
  188.  Goto (more)
  189.  
  190. *Place3
  191.  AnsiGoto (30,17)
  192.  Say ($7$&0&Previous User$0$*)
  193.  Goto (more)
  194.  
  195. *Place4
  196.  AnsiGoto (30,18)
  197.  Say ($7$&0&Last User$0$*)
  198.  Goto (more)
  199.  
  200. *Place5
  201.  AnsiGoto (30,19);
  202.  Say ($7$&0&Search for User$0$*)
  203.  Goto (more)
  204.  
  205. *Place6
  206.  AnsiGoto (30,20)
  207.  Say ($7$&0&Quit to Sysop Menu$0$*)
  208.  Goto (more)
  209.  
  210. *NormPlace1
  211.  AnsiGoto (30,15)
  212.  Say ($0$&7&Edit this User)
  213.  SetEqual (f=2)
  214.  Goto (check)
  215.  
  216. *NormPlace2
  217.  AnsiGoto (30,16)
  218.  Say ($0$&7&Next User)
  219.  SetEqual (f=3)
  220.  Goto (check)
  221.  
  222. *NormPlace3
  223.  AnsiGoto (30,17)
  224.  Say ($0$&7&Previous User)
  225.  SetEqual (f=4)
  226.  Goto (check)
  227.  
  228. *NormPlace4
  229.  AnsiGoto (30,18)
  230.  Say ($0$&7&Last User) 
  231.  SetEqual (f=5)
  232.  Goto (check)
  233.  
  234. *NormPlace5
  235.  AnsiGoto (30,19)
  236.  Say ($0$&7&Search for User) 
  237.  SetEqual (f=6)
  238.  Goto (check)
  239.  
  240. *NormPlace6
  241.  AnsiGoto (30,20)
  242.  Say ($0$&7&Quit to Sysop Menu)
  243.  SetEqual (f=1)
  244.  Goto (Check)
  245.  
  246. *BkPlace1
  247.  AnsiGoto (30,15)
  248.  Say ($0$&7&Edit this User)
  249.  SetEqual (f=6)
  250.  Goto (check)
  251.  
  252. *BkPlace2
  253.  AnsiGoto (30,16)
  254.  Say ($0$&7&Next User)
  255.  SetEqual (f=1)
  256.  Goto (check)
  257.  
  258. *BkPlace3
  259.  AnsiGoto (30,17)
  260.  Say ($0$&7&Previous User)
  261.  SetEqual (f=2)
  262.  Goto (check)
  263.  
  264. *BkPlace4
  265.  AnsiGoto (30,18)
  266.  Say ($0$&7&Last User) 
  267.  SetEqual (f=3)
  268.  Goto (check)
  269.  
  270. *BkPlace5
  271.  AnsiGoto (30,19)
  272.  Say ($0$&7&Search for User) 
  273.  SetEqual (f=4)
  274.  Goto (check)
  275.  
  276. *BkPlace6
  277.  AnsiGoto (30,20)
  278.  Say ($0$&7&Quit to Sysop Menu)
  279.  SetEqual (f=5)
  280.  Goto (Check)
  281.  
  282. *MoveHighlightFd
  283.  setequal(/resp=%var%f)
  284.  bigif(1:normplace1,2:normplace2,3:normplace3,4:normplace4,5:normplace5,6:normplace6)
  285.  Goto (Edit)
  286.  
  287. *MoveHighlightBk
  288.  setequal(/resp=%var%f)
  289.  bigif(1:Bkplace1,2:Bkplace2,3:Bkplace3,4:Bkplace4,5:Bkplace5,6:Bkplace6)
  290.  Goto (Edit) ;bknormplace -> bkplace because other is > 90 chars...
  291.  
  292. *ClearInfo
  293.  AnsiGoto (11,1)
  294.  Say (                             *)
  295.  AnsiGoto (11,2)
  296.  Say (                             *)
  297.  AnsiGoto (11,3)
  298.  Say (                        *)
  299.  AnsiGoto (11,4)
  300.  Say (               *)
  301.  AnsiGoto (11,5)
  302.  Say (    *)
  303.  AnsiGoto (11,6)
  304.  Say (                    *)
  305.  AnsiGoto (11,7)
  306.  Say (     *)
  307.  AnsiGoto (11,8)
  308.  Say (                              *)
  309.  AnsiGoto (11,9)
  310.  Say (     *)
  311.  AnsiGoto (11,10)
  312.  Say (     *)
  313.  AnsiGoto (11,11)
  314.  Say (     *)
  315.  AnsiGoto (11,12)
  316.  Say (     *)
  317.  AnsiGoto (51,1)
  318.  Say (        *)
  319.  AnsiGoto (51,2)
  320.  Say (     *)
  321.  AnsiGoto (51,3)
  322.  Say (                    *)
  323.  AnsiGoto (51,4)
  324.  Say (     *)
  325.  AnsiGoto (51,5)
  326.  Say (               *)
  327.  AnsiGoto (51,6)
  328.  Say (  *)
  329.  AnsiGoto (51,7)
  330.  Say (        *)
  331.  AnsiGoto (51,9)
  332.  Say (  *)
  333.  LoadUser (%var%z)
  334.  SetEqual (x=0)
  335.  Goto (PutInfo)
  336.  
  337. *exedit
  338. clearscr
  339. return
  340.