home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / S / SEXSCHAT.ZIP / CSSC.PPS < prev    next >
Text File  |  1995-01-11  |  37KB  |  1,484 lines
  1. ;------------------------------------------------------------------------------
  2. ;PCBoard Programming Language Decompiler 1.01            (c)1994 by Chicken/ECR
  3. ;------------------------------------------------------------------------------
  4. ;
  5. ;PCBoard Programming Language Executable 2.00 detected.
  6. ;
  7. ;Source Code:
  8. ;------------------------------------------------------------------------------
  9.  
  10.     STRING     VAR001
  11.     STRING     VAR002(4)
  12.     STRING     VAR003
  13.     STRING     VAR004(5)
  14.     STRING     VAR005
  15.     STRING     VAR006
  16.     STRING     VAR007
  17.     STRING     VAR008
  18.     STRING     VAR009
  19.     STRING     VAR010
  20.     STRING     VAR011
  21.     STRING     VAR012
  22.     STRING     VAR013
  23.     STRING     VAR014
  24.     STRING     VAR015
  25.     STRING     VAR016
  26.     INTEGER    VAR017
  27.     INTEGER    VAR018
  28.     STRING     VAR019
  29.     STRING     VAR020
  30.     STRING     VAR021
  31.     STRING     VAR022
  32.     STRING     VAR023
  33.     STRING     VAR024
  34.     INTEGER    VAR025
  35.     INTEGER    VAR026
  36.     INTEGER    VAR027
  37.     INTEGER    VAR028
  38.     STRING     VAR029
  39.     STRING     VAR030
  40.     STRING     VAR031
  41.     STRING     VAR032
  42.     STRING     VAR033
  43.     STRING     VAR034
  44.     STRING     VAR035
  45.     STRING     VAR036
  46.     STRING     VAR037
  47.     STRING     VAR038
  48.     STRING     VAR039
  49.     STRING     VAR040
  50.     STRING     VAR041
  51.     STRING     VAR042(25)
  52.     STRING     VAR043(25)
  53.     STRING     VAR044
  54.     STRING     VAR045
  55.     STRING     VAR046
  56.     STRING     VAR047
  57.     STRING     VAR048(25)
  58.     INTEGER    VAR049
  59.     INTEGER    VAR050
  60.     INTEGER    VAR051
  61.     STRING     VAR052
  62.     INTEGER    VAR053
  63.     INTEGER    VAR054
  64.     INTEGER    VAR055
  65.     STRING     VAR056
  66.     STRING     VAR057
  67.  
  68. ;------------------------------------------------------------------------------
  69.  
  70.     LET VAR002(1)=CHR(67)
  71.     LET VAR002(2)=CHR(83)
  72.     LET VAR002(3)=VAR002(2)
  73.     LET VAR002(4)=VAR002(1)
  74.     LET VAR004(1)=CHR(118)
  75.     LET VAR004(2)=CHR(50)
  76.     LET VAR004(3)=CHR(46)
  77.     LET VAR004(4)=VAR004(2)
  78.     LET VAR004(5)=CHR(48)
  79.     LET VAR001=VAR002(1)+VAR002(2)+VAR002(3)+VAR002(4)
  80.     LET VAR003=VAR004(1)+VAR004(2)+VAR004(3)+VAR004(4)+VAR004(5)
  81.     LET VAR025=MINLEFT()
  82.     LET VAR026=VAR025
  83.     LET VAR019=MIXED(U_NAME())
  84.     LET VAR029=PPEPATH()+VAR001+"."+"D"+"A"+"T"
  85.     LET VAR030="System Operator"
  86.     LET VAR052=CHR(77)+CHR(105)+CHR(100)+CHR(110)+CHR(105)+CHR(103)+CHR(104)+CHR(116)+SPACE(1)+CHR(83)+CHR(108)+CHR(97)+CHR(115)+CHR(104)+CHR(101)+CHR(114)
  87.     LET VAR032="@"+"X"+"0"+"8"
  88.     LET VAR034="@"+"X"+"0"+"F"
  89.     LET VAR038="@"+"X"+"0"+"7"
  90.     IF (!EXIST(VAR029)) GOTO LABEL020
  91.     FOPEN 1,VAR029,O_RD,S_DW
  92.     FGET 1,VAR030
  93.     FGET 1,VAR053
  94.     FGET 1,VAR054
  95.     FGET 1,VAR055
  96.     FCLOSE 1
  97.     IF (!((VAR053>=1)&(VAR053<=9))) GOTO LABEL000
  98.     LET VAR034="@"+"X"+"0"+STRING(VAR053)
  99.     GOTO LABEL006
  100.  
  101. :LABEL000
  102.     IF (!(VAR053=10)) GOTO LABEL001
  103.     LET VAR034="@"+"X"+"0"+"A"
  104.     GOTO LABEL006
  105.  
  106. :LABEL001
  107.     IF (!(VAR053=11)) GOTO LABEL002
  108.     LET VAR034="@"+"X"+"0"+"B"
  109.     GOTO LABEL006
  110.  
  111. :LABEL002
  112.     IF (!(VAR053=12)) GOTO LABEL003
  113.     LET VAR034="@"+"X"+"0"+"C"
  114.     GOTO LABEL006
  115.  
  116. :LABEL003
  117.     IF (!(VAR053=13)) GOTO LABEL004
  118.     LET VAR034="@"+"X"+"0"+"D"
  119.     GOTO LABEL006
  120.  
  121. :LABEL004
  122.     IF (!(VAR053=14)) GOTO LABEL005
  123.     LET VAR034="@"+"X"+"0"+"E"
  124.     GOTO LABEL006
  125.  
  126. :LABEL005
  127.     IF (!(VAR053=15)) GOTO LABEL006
  128.     LET VAR034="@"+"X"+"0"+"F"
  129.  
  130. :LABEL006
  131.     IF (!((VAR054>=1)&(VAR054<=9))) GOTO LABEL007
  132.     LET VAR038="@"+"X"+"0"+STRING(VAR054)
  133.     GOTO LABEL013
  134.  
  135. :LABEL007
  136.     IF (!(VAR054=10)) GOTO LABEL008
  137.     LET VAR038="@"+"X"+"0"+"A"
  138.     GOTO LABEL013
  139.  
  140. :LABEL008
  141.     IF (!(VAR054=11)) GOTO LABEL009
  142.     LET VAR038="@"+"X"+"0"+"B"
  143.     GOTO LABEL013
  144.  
  145. :LABEL009
  146.     IF (!(VAR054=12)) GOTO LABEL010
  147.     LET VAR038="@"+"X"+"0"+"C"
  148.     GOTO LABEL013
  149.  
  150. :LABEL010
  151.     IF (!(VAR054=13)) GOTO LABEL011
  152.     LET VAR038="@"+"X"+"0"+"D"
  153.     GOTO LABEL013
  154.  
  155. :LABEL011
  156.     IF (!(VAR054=14)) GOTO LABEL012
  157.     LET VAR038="@"+"X"+"0"+"E"
  158.     GOTO LABEL013
  159.  
  160. :LABEL012
  161.     IF (!(VAR054=15)) GOTO LABEL013
  162.     LET VAR038="@"+"X"+"0"+"F"
  163.  
  164. :LABEL013
  165.     IF (!((VAR055>=1)&(VAR055<=9))) GOTO LABEL014
  166.     LET VAR032="@"+"X"+"0"+STRING(VAR055)
  167.     GOTO LABEL020
  168.  
  169. :LABEL014
  170.     IF (!(VAR055=10)) GOTO LABEL015
  171.     LET VAR032="@"+"X"+"0"+"A"
  172.     GOTO LABEL020
  173.  
  174. :LABEL015
  175.     IF (!(VAR055=11)) GOTO LABEL016
  176.     LET VAR032="@"+"X"+"0"+"B"
  177.     GOTO LABEL020
  178.  
  179. :LABEL016
  180.     IF (!(VAR055=12)) GOTO LABEL017
  181.     LET VAR032="@"+"X"+"0"+"C"
  182.     GOTO LABEL020
  183.  
  184. :LABEL017
  185.     IF (!(VAR055=13)) GOTO LABEL018
  186.     LET VAR032="@"+"X"+"0"+"D"
  187.     GOTO LABEL020
  188.  
  189. :LABEL018
  190.     IF (!(VAR055=14)) GOTO LABEL019
  191.     LET VAR032="@"+"X"+"0"+"E"
  192.     GOTO LABEL020
  193.  
  194. :LABEL019
  195.     IF (!(VAR055=15)) GOTO LABEL020
  196.     LET VAR032="@"+"X"+"0"+"F"
  197.  
  198. :LABEL020
  199.     LET VAR031=LEN(VAR030)
  200.     LOG ""+VAR001+" "+VAR003+" "+""+"["+"O"+"p"+"e"+"n"+"e"+"d: "+LEFT(TIME(),5)+"]",0
  201.     CLS
  202.     STARTDISP FNS
  203.     GOSUB LABEL191
  204.     LET VAR036=0
  205.     LET VAR037=6
  206.     LET VAR040=0
  207.     LET VAR041=15
  208.  
  209. :LABEL021
  210.     IF (!(VAR035<>CHR(27))) GOTO LABEL022
  211.     LET VAR035=""
  212.     LET VAR039=""
  213.     LET VAR035=KINKEY()
  214.     LET VAR039=MINKEY()
  215.     IF (VAR035<>"") GOSUB LABEL023
  216.     IF (VAR039<>"") GOSUB LABEL048
  217.     IF (ABORT()) RESETDISP
  218.     GOTO LABEL021
  219.  
  220. :LABEL022
  221.     GOTO LABEL192
  222.  
  223. :LABEL023
  224.     IF (!((VAR037=13)&(VAR036=79))) GOTO LABEL029
  225.     IF (VAR035=CHR(13)) GOTO LABEL035
  226.     LET VAR044=SCRTEXT(79,13,1,0)
  227.     IF (!(LEFT(VAR044,1)=" ")) GOTO LABEL024
  228.     GOSUB LABEL087
  229.     GOTO LABEL029
  230.  
  231. :LABEL024
  232.     LET VAR049=1
  233.  
  234. :LABEL025
  235.     IF (!(((1<0)&(VAR049>=79))|((1>=0)&(VAR049<=79)))) GOTO LABEL026
  236.     LET VAR050=80-VAR049
  237.     LET VAR044=SCRTEXT(VAR050,13,VAR049,0)
  238.     IF (LEFT(VAR044,1)=" ") GOTO LABEL027
  239.     LET VAR049=VAR049+1
  240.     GOTO LABEL025
  241.  
  242. :LABEL026
  243.     GOTO LABEL028
  244.  
  245. :LABEL027
  246.     ANSIPOS VAR050,13
  247.     PRINT SPACE(VAR049)
  248.     GOSUB LABEL087
  249.     LET VAR045=VAR044
  250.     PRINT VAR034+LTRIM(VAR045," ")
  251.     LET VAR036=VAR049-1
  252.     CLREOL
  253.     GOTO LABEL029
  254.  
  255. :LABEL028
  256.     GOSUB LABEL087
  257.  
  258. :LABEL029
  259.     IF (!(VAR036=79)) GOTO LABEL035
  260.     IF (VAR035=CHR(13)) GOTO LABEL035
  261.     LET VAR044=SCRTEXT(79,GETY(),1,0)
  262.     IF (!(LEFT(VAR044,1)=" ")) GOTO LABEL030
  263.     LET VAR036=0
  264.     LET VAR037=VAR037+1
  265.     GOTO LABEL035
  266.  
  267. :LABEL030
  268.     LET VAR049=1
  269.  
  270. :LABEL031
  271.     IF (!(((1<0)&(VAR049>=79))|((1>=0)&(VAR049<=79)))) GOTO LABEL032
  272.     LET VAR050=80-VAR049
  273.     LET VAR044=SCRTEXT(VAR050,GETY(),VAR049,0)
  274.     IF (LEFT(VAR044,1)=" ") GOTO LABEL033
  275.     LET VAR049=VAR049+1
  276.     GOTO LABEL031
  277.  
  278. :LABEL032
  279.     GOTO LABEL034
  280.  
  281. :LABEL033
  282.     ANSIPOS VAR050,GETY()
  283.     PRINT SPACE(VAR050)
  284.     LET VAR036=0
  285.     LET VAR037=VAR037+1
  286.     LET VAR045=VAR044
  287.     ANSIPOS 1,VAR037
  288.     PRINT LTRIM(VAR045," ")
  289.     LET VAR036=VAR049-1
  290.     GOTO LABEL035
  291.  
  292. :LABEL034
  293.     LET VAR036=0
  294.     LET VAR037=VAR037+1
  295.  
  296. :LABEL035
  297.     IF (!(VAR035=CHR(13))) GOTO LABEL039
  298.     IF (!(VAR037>=13)) GOTO LABEL036
  299.     GOSUB LABEL087
  300.     GOTO LABEL038
  301.  
  302. :LABEL036
  303.     IF (!(VAR036=80)) GOTO LABEL037
  304.     LET VAR037=VAR037+1
  305.     LET VAR036=0
  306.     ANSIPOS VAR036,VAR037
  307.     GOTO LABEL038
  308.  
  309. :LABEL037
  310.     LET VAR037=VAR037+1
  311.     LET VAR036=0
  312.     ANSIPOS VAR036,VAR037
  313.  
  314. :LABEL038
  315.     GOTO LABEL047
  316.  
  317. :LABEL039
  318.     IF (!((VAR035=CHR(8))|(VAR035=CHR(127)))) GOTO LABEL041
  319.     IF (!(VAR036<>0)) GOTO LABEL040
  320.     LET VAR036=VAR036+1
  321.     ANSIPOS VAR036,VAR037
  322.     PRINT CHR(8)+" "+CHR(8)
  323.     LET VAR036=VAR036-2
  324.  
  325. :LABEL040
  326.     GOTO LABEL047
  327.  
  328. :LABEL041
  329.     IF (!(VAR035=("AL"+"T Q"))) GOTO LABEL042
  330.     GOSUB LABEL191
  331.     GOTO LABEL047
  332.  
  333. :LABEL042
  334.     IF (!(VAR035=("AL"+"T E"))) GOTO LABEL043
  335.     GOTO LABEL099
  336.     GOTO LABEL047
  337.  
  338. :LABEL043
  339.     IF (!(VAR035=("AL"+"T W"))) GOTO LABEL046
  340.     LET VAR049=6
  341.  
  342. :LABEL044
  343.     IF (!(((1<0)&(VAR049>=13))|((1>=0)&(VAR049<=13)))) GOTO LABEL045
  344.     ANSIPOS 1,VAR049
  345.     CLREOL
  346.     LET VAR049=VAR049+1
  347.     GOTO LABEL044
  348.  
  349. :LABEL045
  350.     LET VAR036=0
  351.     LET VAR037=6
  352.     ANSIPOS 1,6
  353.     GOTO LABEL047
  354.  
  355. :LABEL046
  356.     IF (!(INSTR(MASK_ASCII(),VAR035)<>0)) GOTO LABEL047
  357.     LET VAR036=VAR036+1
  358.     ANSIPOS VAR036,VAR037
  359.     PRINT VAR034+VAR035
  360.  
  361. :LABEL047
  362.     RETURN
  363.  
  364. :LABEL048
  365.     IF (!((VAR041=22)&(VAR040=79))) GOTO LABEL054
  366.     IF (VAR039=CHR(13)) GOTO LABEL060
  367.     LET VAR046=SCRTEXT(79,22,1,0)
  368.     IF (!(LEFT(VAR046,1)=" ")) GOTO LABEL049
  369.     GOSUB LABEL075
  370.     GOTO LABEL054
  371.  
  372. :LABEL049
  373.     LET VAR049=1
  374.  
  375. :LABEL050
  376.     IF (!(((1<0)&(VAR049>=79))|((1>=0)&(VAR049<=79)))) GOTO LABEL051
  377.     LET VAR050=80-VAR049
  378.     LET VAR046=SCRTEXT(VAR050,22,VAR049,0)
  379.     IF (LEFT(VAR046,1)=" ") GOTO LABEL052
  380.     LET VAR049=VAR049+1
  381.     GOTO LABEL050
  382.  
  383. :LABEL051
  384.     GOTO LABEL053
  385.  
  386. :LABEL052
  387.     ANSIPOS VAR050,22
  388.     PRINT SPACE(VAR049)
  389.     GOSUB LABEL075
  390.     LET VAR047=VAR046
  391.     PRINT VAR038+LTRIM(VAR047," ")
  392.     LET VAR040=VAR049-1
  393.     CLREOL
  394.     GOTO LABEL054
  395.  
  396. :LABEL053
  397.     GOSUB LABEL075
  398.  
  399. :LABEL054
  400.     IF (!(VAR040=79)) GOTO LABEL060
  401.     IF (VAR039=CHR(13)) GOTO LABEL060
  402.     LET VAR046=SCRTEXT(79,GETY(),1,0)
  403.     IF (!(LEFT(VAR046,1)=" ")) GOTO LABEL055
  404.     LET VAR040=0
  405.     LET VAR041=VAR041+1
  406.     GOTO LABEL060
  407.  
  408. :LABEL055
  409.     LET VAR049=1
  410.  
  411. :LABEL056
  412.     IF (!(((1<0)&(VAR049>=79))|((1>=0)&(VAR049<=79)))) GOTO LABEL057
  413.     LET VAR050=80-VAR049
  414.     LET VAR046=SCRTEXT(VAR050,GETY(),VAR049,0)
  415.     IF (LEFT(VAR046,1)=" ") GOTO LABEL058
  416.     LET VAR049=VAR049+1
  417.     GOTO LABEL056
  418.  
  419. :LABEL057
  420.     GOTO LABEL059
  421.  
  422. :LABEL058
  423.     ANSIPOS VAR050,GETY()
  424.     PRINT SPACE(VAR050)
  425.     LET VAR040=0
  426.     LET VAR041=VAR041+1
  427.     LET VAR047=VAR046
  428.     ANSIPOS 1,VAR041
  429.     PRINT LTRIM(VAR047," ")
  430.     LET VAR040=VAR049-1
  431.     GOTO LABEL060
  432.  
  433. :LABEL059
  434.     LET VAR040=0
  435.     LET VAR041=VAR041+1
  436.  
  437. :LABEL060
  438.     IF (!(VAR039=CHR(13))) GOTO LABEL064
  439.     IF (!(VAR041>=22)) GOTO LABEL061
  440.     GOSUB LABEL075
  441.     GOTO LABEL063
  442.  
  443. :LABEL061
  444.     IF (!(VAR040=80)) GOTO LABEL062
  445.     LET VAR041=VAR041+1
  446.     LET VAR040=0
  447.     ANSIPOS VAR040,VAR041
  448.     GOTO LABEL063
  449.  
  450. :LABEL062
  451.     LET VAR041=VAR041+1
  452.     LET VAR040=0
  453.     ANSIPOS VAR040,VAR041
  454.  
  455. :LABEL063
  456.     GOTO LABEL074
  457.  
  458. :LABEL064
  459.     IF (!((VAR039=CHR(8))|(VAR039=CHR(127)))) GOTO LABEL066
  460.     IF (!(VAR040<>0)) GOTO LABEL065
  461.     LET VAR040=VAR040+1
  462.     ANSIPOS VAR040,VAR041
  463.     PRINT CHR(8)+" "+CHR(8)
  464.     LET VAR040=VAR040-2
  465.  
  466. :LABEL065
  467.     GOTO LABEL074
  468.  
  469. :LABEL066
  470.     IF (!(VAR039=("AL"+"T E"))) GOTO LABEL067
  471.     ANSIPOS 1,4
  472.     PRINT VAR032+"----------------Only fer SysOp------------------- "+VAR032+" ------Editin'----------- "+VAR032+" --D"
  473.     DELAY 25
  474.     ANSIPOS 1,4
  475.     PRINT VAR032+"----------------------------------------------------------------- Chattin'  "+VAR032+" --D"
  476.     GOTO LABEL074
  477.  
  478. :LABEL067
  479.     IF (!(VAR039=("AL"+"T Q"))) GOTO LABEL068
  480.     GOSUB LABEL191
  481.     GOTO LABEL074
  482.  
  483. :LABEL068
  484.     IF (!(VAR039=("AL"+"T W"))) GOTO LABEL071
  485.     LET VAR049=15
  486.  
  487. :LABEL069
  488.     IF (!(((1<0)&(VAR049>=22))|((1>=0)&(VAR049<=22)))) GOTO LABEL070
  489.     ANSIPOS 1,VAR049
  490.     CLREOL
  491.     LET VAR049=VAR049+1
  492.     GOTO LABEL069
  493.  
  494. :LABEL070
  495.     LET VAR040=0
  496.     LET VAR041=15
  497.     ANSIPOS 1,15
  498.     GOTO LABEL074
  499.  
  500. :LABEL071
  501.     IF (!(VAR039=CHR(27))) GOTO LABEL072
  502.     GOTO LABEL192
  503.     GOTO LABEL074
  504.  
  505. :LABEL072
  506.     IF (!(LEFT(VAR039,1)="")) GOTO LABEL073
  507.     GOTO LABEL074
  508.  
  509. :LABEL073
  510.     IF (!(INSTR(MASK_ASCII(),VAR039)<>0)) GOTO LABEL074
  511.     LET VAR040=VAR040+1
  512.     ANSIPOS VAR040,VAR041
  513.     PRINT VAR038+VAR039
  514.  
  515. :LABEL074
  516.     RETURN
  517.  
  518. :LABEL075
  519.     LET VAR043(15)=SCRTEXT(1,20,80,0)
  520.     LET VAR043(16)=SCRTEXT(1,21,80,0)
  521.     LET VAR043(17)=SCRTEXT(1,22,80,0)
  522.     LET VAR018=17
  523.     IF (!(VAR043(17)=SPACE(80))) GOTO LABEL079
  524.     IF (!(VAR043(16)=SPACE(80))) GOTO LABEL077
  525.     IF (!(VAR043(15)=SPACE(80))) GOTO LABEL076
  526.     LET VAR018=14
  527.     GOTO LABEL082
  528.  
  529. :LABEL076
  530.     LET VAR043(15)=SCRTEXT(1,20,80,1)
  531.     LET VAR018=15
  532.     GOTO LABEL082
  533.  
  534. :LABEL077
  535.     IF (!(VAR043(15)=SPACE(80))) GOTO LABEL078
  536.     LET VAR043(15)=SCRTEXT(1,21,80,1)
  537.     LET VAR043(16)=SCRTEXT(1,22,80,1)
  538.     LET VAR018=16
  539.     GOTO LABEL082
  540.  
  541. :LABEL078
  542.     LET VAR043(15)=SCRTEXT(1,20,80,1)
  543.     LET VAR043(16)=SCRTEXT(1,21,80,1)
  544.     LET VAR043(17)=SCRTEXT(1,22,80,1)
  545.     LET VAR018=17
  546.     GOTO LABEL082
  547.  
  548. :LABEL079
  549.     IF (!(VAR043(15)=SPACE(80))) GOTO LABEL081
  550.     IF (!(VAR043(16)=SPACE(80))) GOTO LABEL080
  551.     LET VAR043(15)=SCRTEXT(1,22,80,1)
  552.     LET VAR018=15
  553.     GOTO LABEL082
  554.  
  555. :LABEL080
  556.     LET VAR043(15)=SCRTEXT(1,21,80,1)
  557.     LET VAR043(16)=SCRTEXT(1,22,80,1)
  558.     LET VAR018=16
  559.     GOTO LABEL082
  560.  
  561. :LABEL081
  562.     LET VAR043(15)=SCRTEXT(1,20,80,1)
  563.     LET VAR043(16)=SCRTEXT(1,21,80,1)
  564.     LET VAR043(17)=SCRTEXT(1,22,80,1)
  565.  
  566. :LABEL082
  567.     LET VAR051=15
  568.  
  569. :LABEL083
  570.     IF (!(((1<0)&(VAR051>=VAR018))|((1>=0)&(VAR051<=VAR018)))) GOTO LABEL084
  571.     ANSIPOS 1,VAR051
  572.     PRINTLN VAR043(VAR051)
  573.     LET VAR051=VAR051+1
  574.     GOTO LABEL083
  575.  
  576. :LABEL084
  577.     LET VAR051=VAR018+1
  578.  
  579. :LABEL085
  580.     IF (!(((1<0)&(VAR051>=22))|((1>=0)&(VAR051<=22)))) GOTO LABEL086
  581.     ANSIPOS 1,VAR051
  582.     CLREOL
  583.     LET VAR051=VAR051+1
  584.     GOTO LABEL085
  585.  
  586. :LABEL086
  587.     LET VAR040=0
  588.     LET VAR041=VAR018+1
  589.     ANSIPOS 1,VAR018+1
  590.     RETURN
  591.  
  592. :LABEL087
  593.     LET VAR042(6)=SCRTEXT(1,11,80,0)
  594.     LET VAR042(7)=SCRTEXT(1,12,80,0)
  595.     LET VAR042(8)=SCRTEXT(1,13,80,0)
  596.     LET VAR017=8
  597.     IF (!(VAR042(8)=SPACE(80))) GOTO LABEL091
  598.     IF (!(VAR042(7)=SPACE(80))) GOTO LABEL089
  599.     IF (!(VAR042(6)=SPACE(80))) GOTO LABEL088
  600.     LET VAR017=5
  601.     GOTO LABEL094
  602.  
  603. :LABEL088
  604.     LET VAR042(6)=SCRTEXT(1,11,80,1)
  605.     LET VAR017=6
  606.     GOTO LABEL094
  607.  
  608. :LABEL089
  609.     IF (!(VAR042(6)=SPACE(80))) GOTO LABEL090
  610.     LET VAR042(6)=SCRTEXT(1,12,80,1)
  611.     LET VAR042(7)=SCRTEXT(1,13,80,1)
  612.     LET VAR017=7
  613.     GOTO LABEL094
  614.  
  615. :LABEL090
  616.     LET VAR042(6)=SCRTEXT(1,11,80,1)
  617.     LET VAR042(7)=SCRTEXT(1,12,80,1)
  618.     LET VAR042(8)=SCRTEXT(1,13,80,1)
  619.     LET VAR017=8
  620.     GOTO LABEL094
  621.  
  622. :LABEL091
  623.     IF (!(VAR042(6)=SPACE(80))) GOTO LABEL093
  624.     IF (!(VAR042(7)=SPACE(80))) GOTO LABEL092
  625.     LET VAR042(6)=SCRTEXT(1,13,80,1)
  626.     LET VAR017=6
  627.     GOTO LABEL094
  628.  
  629. :LABEL092
  630.     LET VAR042(6)=SCRTEXT(1,12,80,1)
  631.     LET VAR042(7)=SCRTEXT(1,13,80,1)
  632.     LET VAR017=7
  633.     GOTO LABEL094
  634.  
  635. :LABEL093
  636.     LET VAR042(6)=SCRTEXT(1,11,80,1)
  637.     LET VAR042(7)=SCRTEXT(1,12,80,1)
  638.     LET VAR042(8)=SCRTEXT(1,13,80,1)
  639.  
  640. :LABEL094
  641.     LET VAR051=6
  642.  
  643. :LABEL095
  644.     IF (!(((1<0)&(VAR051>=VAR017))|((1>=0)&(VAR051<=VAR017)))) GOTO LABEL096
  645.     ANSIPOS 1,VAR051
  646.     PRINTLN VAR042(VAR051)
  647.     LET VAR051=VAR051+1
  648.     GOTO LABEL095
  649.  
  650. :LABEL096
  651.     LET VAR051=VAR017+1
  652.  
  653. :LABEL097
  654.     IF (!(((1<0)&(VAR051>=13))|((1>=0)&(VAR051<=13)))) GOTO LABEL098
  655.     ANSIPOS 1,VAR051
  656.     CLREOL
  657.     LET VAR051=VAR051+1
  658.     GOTO LABEL097
  659.  
  660. :LABEL098
  661.     LET VAR036=0
  662.     LET VAR037=VAR017+1
  663.     ANSIPOS 1,VAR017+1
  664.     RETURN
  665.  
  666. :LABEL099
  667.     LOG ""+VAR001+" "+VAR003+" "+""+"["+">U"+"s"+"er"+" "+"E"+"di"+"to"+"r<"+"]",0
  668.     GETUSER
  669.     LET VAR056=U_NAME()
  670.     ANSIPOS 1,4
  671.     PRINT "@X02+@X07-----------------@X02+ @X03Hold a sec. SysOp iz editin' yer shit. @X02+@X07------------------@X02+"
  672.     LET VAR048(6)=SCRTEXT(1,6,80,1)
  673.     LET VAR048(7)=SCRTEXT(1,7,80,1)
  674.     LET VAR048(8)=SCRTEXT(1,8,80,1)
  675.     LET VAR048(9)=SCRTEXT(1,9,80,1)
  676.     LET VAR048(10)=SCRTEXT(1,10,80,1)
  677.     LET VAR048(11)=SCRTEXT(1,11,80,1)
  678.     LET VAR048(12)=SCRTEXT(1,12,80,1)
  679.     LET VAR048(13)=SCRTEXT(1,13,80,1)
  680.     LET VAR048(14)=SCRTEXT(1,14,80,1)
  681.     LET VAR048(15)=SCRTEXT(1,15,80,1)
  682.     LET VAR048(16)=SCRTEXT(1,16,80,1)
  683.     LET VAR048(17)=SCRTEXT(1,17,80,1)
  684.     LET VAR048(18)=SCRTEXT(1,18,80,1)
  685.     LET VAR048(19)=SCRTEXT(1,19,80,1)
  686.     LET VAR048(20)=SCRTEXT(1,20,80,1)
  687.     LET VAR048(21)=SCRTEXT(1,21,80,1)
  688.     LET VAR048(22)=SCRTEXT(1,22,80,1)
  689.     SPRINT "H"
  690.     SPRINTLN "▐╔═══════════════════════════════════════════════════════════════════════════╗▌"
  691.     SPRINTLN "▐║                                                  [ESC]=Exit User Editor   ║▌"
  692.     SPRINTLN "▐╟───────────────────┬──────────────────────────┬────────────────────────────╢▌"
  693.     SPRINTLN "▐║ [A] Security:     │ [H] Exp. Date :          │ [O] UL (Files):            ║▌"
  694.     SPRINTLN "▐║ [B] Exp. Sec:     │ [I] Last Date :          │ [P] UL (Bytes):            ║▌"
  695.     SPRINTLN "▐║ [C] Page Len:     │ [J] Last DIR  :          │ [Q] DL (Files):            ║▌"
  696.     SPRINTLN "▐║ [D] Protocol:     │ [K] Total Call:          │ [R] DL (Bytes):            ║▌"
  697.     SPRINTLN "▐║ [E] Msg Clr.:     │ [L] FSE Editor:          │ [S] DL (Today):            ║▌"
  698.     SPRINTLN "▐║ [F] Msg Scrl:     │ [M] FSE Prompt:          │ [T] MSGs Left :            ║▌"
  699.     SPRINTLN "▐║ [G] Expert  :     │ [N] Msg Header:          │ [U] MSGs Read :            ║▌"
  700.     SPRINTLN "▐╟───────────────────┴────────────┬─────────────┴────────────────────────────╢▌"
  701.     SPRINTLN "▐║ [V] H/V Phone:                 │ [Y] City:                                ║▌"
  702.     SPRINTLN "▐║ [W] B/D Phone:                 │ [Z] C #1:                                ║▌"
  703.     SPRINTLN "▐║ [X] Password :                 │ [!] C #2:                                ║▌"
  704.     SPRINTLN "▐╟────────────────────────────────┤ [@] Alias-PSA:                           ║▌"
  705.     SPRINTLN "▐║▌ D─ D = Jump 1│PGUP/DN = Jump 10▐│ [#] VerifyPSA:                           ║▌"
  706.     SPRINTLN "▐╚════════════════════════════════╧══════════════════════════════════════════╝▌"
  707.     GOSUB LABEL194
  708.     LET VAR033=""
  709.  
  710. :LABEL100
  711.     IF (!(VAR033<>CHR(27))) GOTO LABEL101
  712.     LET VAR033=""
  713.     LET VAR033=KINKEY()
  714.     IF (VAR033<>"") GOSUB LABEL102
  715.     IF (ABORT()) RESETDISP
  716.     GOTO LABEL100
  717.  
  718. :LABEL101
  719.     GOTO LABEL183
  720.  
  721. :LABEL102
  722.     LET VAR020=""
  723.     LET VAR021=""
  724.     IF (!(UPPER(VAR033)="PGUP")) GOTO LABEL104
  725.     GETALTUSER U_RECNUM(U_NAME())+10
  726.     IF (!(CURUSER()=(-1))) GOTO LABEL103
  727.     GETALTUSER 1
  728.  
  729. :LABEL103
  730.     GOSUB LABEL194
  731.     GOTO LABEL182
  732.  
  733. :LABEL104
  734.     IF (!(UPPER(VAR033)="PGDN")) GOTO LABEL108
  735.     IF (!(U_RECNUM(U_NAME())=1)) GOTO LABEL105
  736.     GOTO LABEL107
  737.  
  738. :LABEL105
  739.     IF (!(U_RECNUM(U_NAME())<=10)) GOTO LABEL106
  740.     GETALTUSER 1
  741.     GOSUB LABEL194
  742.     GOTO LABEL107
  743.  
  744. :LABEL106
  745.     GETALTUSER U_RECNUM(U_NAME())-10
  746.     GOSUB LABEL194
  747.  
  748. :LABEL107
  749.     GOTO LABEL182
  750.  
  751. :LABEL108
  752.     IF (!(UPPER(VAR033)="LEFT")) GOTO LABEL111
  753.     IF (!(U_RECNUM(U_NAME())=1)) GOTO LABEL109
  754.     GOTO LABEL110
  755.  
  756. :LABEL109
  757.     GETALTUSER U_RECNUM(U_NAME())-1
  758.     GOSUB LABEL194
  759.  
  760. :LABEL110
  761.     GOTO LABEL182
  762.  
  763. :LABEL111
  764.     IF (!(UPPER(VAR033)="RIGHT")) GOTO LABEL113
  765.     GETALTUSER U_RECNUM(U_NAME())+1
  766.     IF (!(CURUSER()=(-1))) GOTO LABEL112
  767.     GETALTUSER 1
  768.  
  769. :LABEL112
  770.     GOSUB LABEL194
  771.     GOTO LABEL182
  772.  
  773. :LABEL113
  774.     IF (!(UPPER(VAR033)="A")) GOTO LABEL115
  775.     SPRINT "8H"+SPACE(3)+"D"
  776.     LET VAR028=3
  777.     LET VAR005=MASK_NUM()
  778.     GOSUB LABEL186
  779.     IF (!(VAR021<>"")) GOTO LABEL114
  780.     LET U_SEC=UPPER(VAR021)
  781.     PUTUSER
  782.  
  783. :LABEL114
  784.     SPRINT "8H"+LEFT(STRING(U_SEC),3)
  785.     SPRINT "H"
  786.     GOTO LABEL182
  787.  
  788. :LABEL115
  789.     IF (!(UPPER(VAR033)="B")) GOTO LABEL117
  790.     SPRINT "18H"+SPACE(3)+"D"
  791.     LET VAR028=3
  792.     LET VAR005=MASK_NUM()
  793.     GOSUB LABEL186
  794.     IF (!(VAR021<>"")) GOTO LABEL116
  795.     LET U_EXPSEC=UPPER(VAR021)
  796.     PUTUSER
  797.  
  798. :LABEL116
  799.     SPRINT "18H"+LEFT(STRING(U_EXPSEC),3)
  800.     SPRINT "H"
  801.     GOTO LABEL182
  802.  
  803. :LABEL117
  804.     IF (!(UPPER(VAR033)="C")) GOTO LABEL119
  805.     SPRINT "18H"+SPACE(2)+"D"
  806.     LET VAR028=2
  807.     LET VAR005=MASK_NUM()
  808.     GOSUB LABEL186
  809.     IF (!(VAR021<>"")) GOTO LABEL118
  810.     LET U_PAGELEN=UPPER(VAR021)
  811.     PUTUSER
  812.  
  813. :LABEL118
  814.     SPRINT "18H"+LEFT(STRING(U_PAGELEN),2)
  815.     SPRINT "H"
  816.     GOTO LABEL182
  817.  
  818. :LABEL119
  819.     IF (!(UPPER(VAR033)="D")) GOTO LABEL121
  820.     SPRINT "18H"+SPACE(1)+"D"
  821.     LET VAR028=1
  822.     LET VAR005=MASK_ALNUM()
  823.     GOSUB LABEL186
  824.     IF (!(VAR021<>"")) GOTO LABEL120
  825.     LET U_TRANS=UPPER(VAR021)
  826.     PUTUSER
  827.  
  828. :LABEL120
  829.     SPRINT "18H"+LEFT(STRING(U_TRANS),1)
  830.     SPRINT "H"
  831.     GOTO LABEL182
  832.  
  833. :LABEL121
  834.     IF (!(UPPER(VAR033)="E")) GOTO LABEL127
  835.     SPRINT "18H"+SPACE(1)+"D"
  836.     LET VAR028=1
  837.     LET VAR005="YyNn"
  838.     GOSUB LABEL186
  839.     IF (!(VAR021<>"")) GOTO LABEL124
  840.     IF (!(UPPER(VAR021)="N")) GOTO LABEL122
  841.     LET U_CLS=0
  842.     GOTO LABEL123
  843.  
  844. :LABEL122
  845.     LET U_CLS=1
  846.  
  847. :LABEL123
  848.     PUTUSER
  849.  
  850. :LABEL124
  851.     IF (!(U_CLS=0)) GOTO LABEL125
  852.     LET VAR008="N"
  853.     GOTO LABEL126
  854.  
  855. :LABEL125
  856.     LET VAR008="Y"
  857.  
  858. :LABEL126
  859.     SPRINT "18H"+LEFT(VAR008,1)
  860.     SPRINT "H"
  861.     GOTO LABEL182
  862.  
  863. :LABEL127
  864.     IF (!(UPPER(VAR033)="F")) GOTO LABEL133
  865.     SPRINT "18H"+SPACE(1)+"D"
  866.     LET VAR028=1
  867.     LET VAR005="YyNn"
  868.     GOSUB LABEL186
  869.     IF (!(VAR021<>"")) GOTO LABEL130
  870.     IF (!(UPPER(VAR021)="N")) GOTO LABEL128
  871.     LET U_SCROLL=0
  872.     GOTO LABEL129
  873.  
  874. :LABEL128
  875.     LET U_SCROLL=1
  876.  
  877. :LABEL129
  878.     PUTUSER
  879.  
  880. :LABEL130
  881.     IF (!(U_SCROLL=0)) GOTO LABEL131
  882.     LET VAR009="N"
  883.     GOTO LABEL132
  884.  
  885. :LABEL131
  886.     LET VAR009="Y"
  887.  
  888. :LABEL132
  889.     SPRINT "18H"+LEFT(VAR009,1)
  890.     SPRINT "H"
  891.     GOTO LABEL182
  892.  
  893. :LABEL133
  894.     IF (!(UPPER(VAR033)="G")) GOTO LABEL139
  895.     SPRINT "18H"+SPACE(1)+"D"
  896.     LET VAR028=1
  897.     LET VAR005="YyNn"
  898.     GOSUB LABEL186
  899.     IF (!(VAR021<>"")) GOTO LABEL136
  900.     IF (!(UPPER(VAR021)="N")) GOTO LABEL134
  901.     LET U_EXPERT=0
  902.     GOTO LABEL135
  903.  
  904. :LABEL134
  905.     LET U_EXPERT=1
  906.  
  907. :LABEL135
  908.     PUTUSER
  909.  
  910. :LABEL136
  911.     IF (!(U_EXPERT=0)) GOTO LABEL137
  912.     LET VAR010="N"
  913.     GOTO LABEL138
  914.  
  915. :LABEL137
  916.     LET VAR010="Y"
  917.  
  918. :LABEL138
  919.     SPRINT "18H"+LEFT(VAR010,1)
  920.     SPRINT "H"
  921.     GOTO LABEL182
  922.  
  923. :LABEL139
  924.     IF (!(UPPER(VAR033)="H")) GOTO LABEL141
  925.     SPRINT "0H"+SPACE(8)+"D"
  926.     LET VAR028=8
  927.     LET VAR005=MASK_NUM()+"-"
  928.     GOSUB LABEL186
  929.     IF (!(VAR021<>"")) GOTO LABEL140
  930.     LET U_EXPDATE=UPPER(VAR021)
  931.     PUTUSER
  932.  
  933. :LABEL140
  934.     SPRINT "0H"+LEFT(STRING(U_EXPDATE),8)
  935.     SPRINT "H"
  936.     GOTO LABEL182
  937.  
  938. :LABEL141
  939.     IF (!(UPPER(VAR033)="L")) GOTO LABEL147
  940.     SPRINT "40H"+SPACE(1)+"D"
  941.     LET VAR028=1
  942.     LET VAR005="YyNn"
  943.     GOSUB LABEL186
  944.     IF (!(VAR021<>"")) GOTO LABEL144
  945.     IF (!(UPPER(VAR021)="N")) GOTO LABEL142
  946.     LET U_FSE=0
  947.     GOTO LABEL143
  948.  
  949. :LABEL142
  950.     LET U_FSE=1
  951.  
  952. :LABEL143
  953.     PUTUSER
  954.  
  955. :LABEL144
  956.     IF (!(U_FSE=0)) GOTO LABEL145
  957.     LET VAR012="N"
  958.     GOTO LABEL146
  959.  
  960. :LABEL145
  961.     LET VAR012="Y"
  962.  
  963. :LABEL146
  964.     SPRINT "40H"+LEFT(VAR012,1)
  965.     SPRINT "H"
  966.     GOTO LABEL182
  967.  
  968. :LABEL147
  969.     IF (!(UPPER(VAR033)="M")) GOTO LABEL153
  970.     SPRINT "40H"+SPACE(1)+"D"
  971.     LET VAR028=1
  972.     LET VAR005="YyNn"
  973.     GOSUB LABEL186
  974.     IF (!(VAR021<>"")) GOTO LABEL150
  975.     IF (!(UPPER(VAR021)="N")) GOTO LABEL148
  976.     LET U_FSEP=0
  977.     GOTO LABEL149
  978.  
  979. :LABEL148
  980.     LET U_FSEP=1
  981.  
  982. :LABEL149
  983.     PUTUSER
  984.  
  985. :LABEL150
  986.     IF (!(U_FSEP=0)) GOTO LABEL151
  987.     LET VAR013="N"
  988.     GOTO LABEL152
  989.  
  990. :LABEL151
  991.     LET VAR013="Y"
  992.  
  993. :LABEL152
  994.     SPRINT "40H"+LEFT(VAR013,1)
  995.     SPRINT "H"
  996.     GOTO LABEL182
  997.  
  998. :LABEL153
  999.     IF (!(UPPER(VAR033)="N")) GOTO LABEL159
  1000.     SPRINT "40H"+SPACE(1)+"D"
  1001.     LET VAR028=1
  1002.     LET VAR005="SsLl"
  1003.     GOSUB LABEL186
  1004.     IF (!(VAR021<>"")) GOTO LABEL156
  1005.     IF (!(UPPER(VAR021)="S")) GOTO LABEL154
  1006.     LET U_LONGHDR=0
  1007.     GOTO LABEL155
  1008.  
  1009. :LABEL154
  1010.     LET U_LONGHDR=1
  1011.  
  1012. :LABEL155
  1013.     PUTUSER
  1014.  
  1015. :LABEL156
  1016.     IF (!(U_LONGHDR=0)) GOTO LABEL157
  1017.     LET VAR014="S"
  1018.     GOTO LABEL158
  1019.  
  1020. :LABEL157
  1021.     LET VAR014="L"
  1022.  
  1023. :LABEL158
  1024.     SPRINT "40H"+LEFT(VAR014,1)
  1025.     SPRINT "H"
  1026.     GOTO LABEL182
  1027.  
  1028. :LABEL159
  1029.     IF (!(UPPER(VAR033)="Q")) GOTO LABEL161
  1030.     SPRINT "67H"+SPACE(5)+"D"
  1031.     LET VAR028=5
  1032.     LET VAR005=MASK_NUM()+"-"
  1033.     LET VAR023=U_FDL()
  1034.     GOSUB LABEL186
  1035.     IF (!(VAR021<>"")) GOTO LABEL160
  1036.     ADJTFILES UPPER(VAR021)-VAR023
  1037.     PUTUSER
  1038.  
  1039. :LABEL160
  1040.     SPRINT "67H"+LEFT(STRING(U_FDL()),5)
  1041.     SPRINT "H"
  1042.     GOTO LABEL182
  1043.  
  1044. :LABEL161
  1045.     IF (!(UPPER(VAR033)="R")) GOTO LABEL163
  1046.     SPRINT "67H"+SPACE(10)+"D"
  1047.     LET VAR028=10
  1048.     LET VAR005=MASK_NUM()+"-"
  1049.     LET VAR022=U_BDL()
  1050.     GOSUB LABEL186
  1051.     IF (!(VAR021<>"")) GOTO LABEL162
  1052.     ADJTBYTES UPPER(VAR021)-VAR022
  1053.     PUTUSER
  1054.  
  1055. :LABEL162
  1056.     SPRINT "67H"+LEFT(STRING(U_BDL()),10)
  1057.     SPRINT "H"
  1058.     GOTO LABEL182
  1059.  
  1060. :LABEL163
  1061.     IF (!(UPPER(VAR033)="S")) GOTO LABEL165
  1062.     SPRINT "67H"+SPACE(10)+"D"
  1063.     LET VAR028=10
  1064.     LET VAR005=MASK_NUM()+"-"
  1065.     LET VAR024=U_BDLDAY()
  1066.     GOSUB LABEL186
  1067.     IF (!(VAR021<>"")) GOTO LABEL164
  1068.     ADJDBYTES UPPER(VAR021)-VAR024
  1069.     PUTUSER
  1070.  
  1071. :LABEL164
  1072.     SPRINT "67H"+LEFT(STRING(U_BDLDAY()),10)
  1073.     SPRINT "H"
  1074.     GOTO LABEL182
  1075.  
  1076. :LABEL165
  1077.     IF (!(UPPER(VAR033)="V")) GOTO LABEL167
  1078.     SPRINT "19H"+SPACE(13)+"D"
  1079.     LET VAR028=13
  1080.     LET VAR005=MASK_ASCII()
  1081.     GOSUB LABEL186
  1082.     IF (!(VAR021<>"")) GOTO LABEL166
  1083.     LET U_HVPHONE=UPPER(VAR021)
  1084.     PUTUSER
  1085.  
  1086. :LABEL166
  1087.     SPRINT "19H"+LEFT(STRING(U_HVPHONE),13)
  1088.     SPRINT "H"
  1089.     GOTO LABEL182
  1090.  
  1091. :LABEL167
  1092.     IF (!(UPPER(VAR033)="W")) GOTO LABEL169
  1093.     SPRINT "19H"+SPACE(13)+"D"
  1094.     LET VAR028=13
  1095.     LET VAR005=MASK_ASCII()
  1096.     GOSUB LABEL186
  1097.     IF (!(VAR021<>"")) GOTO LABEL168
  1098.     LET U_BDPHONE=UPPER(VAR021)
  1099.     PUTUSER
  1100.  
  1101. :LABEL168
  1102.     SPRINT "19H"+LEFT(STRING(U_BDPHONE),13)
  1103.     SPRINT "H"
  1104.     GOTO LABEL182
  1105.  
  1106. :LABEL169
  1107.     IF (!(UPPER(VAR033)="X")) GOTO LABEL171
  1108.     SPRINT "19H"+SPACE(12)+"D"
  1109.     LET VAR028=12
  1110.     LET VAR005=MASK_PWD()
  1111.     GOSUB LABEL186
  1112.     IF (!(VAR021<>"")) GOTO LABEL170
  1113.     LET U_PWD=UPPER(VAR021)
  1114.     PUTUSER
  1115.  
  1116. :LABEL170
  1117.     SPRINT "19H"+LEFT(STRING(U_PWD),12)
  1118.     SPRINT "H"
  1119.     GOTO LABEL182
  1120.  
  1121. :LABEL171
  1122.     IF (!(UPPER(VAR033)="Y")) GOTO LABEL173
  1123.     SPRINT "47H"+SPACE(24)+"D"
  1124.     LET VAR028=24
  1125.     LET VAR005=MASK_ASCII()
  1126.     GOSUB LABEL186
  1127.     IF (!(VAR021<>"")) GOTO LABEL172
  1128.     LET U_CITY=UPPER(VAR021)
  1129.     PUTUSER
  1130.  
  1131. :LABEL172
  1132.     SPRINT "47H"+LEFT(STRING(U_CITY),24)
  1133.     SPRINT "H"
  1134.     GOTO LABEL182
  1135.  
  1136. :LABEL173
  1137.     IF (!(UPPER(VAR033)="Z")) GOTO LABEL175
  1138.     SPRINT "47H"+SPACE(30)+"D"
  1139.     LET VAR028=30
  1140.     LET VAR005=MASK_ASCII()
  1141.     GOSUB LABEL186
  1142.     IF (!(VAR021<>"")) GOTO LABEL174
  1143.     LET U_CMNT1=UPPER(VAR021)
  1144.     PUTUSER
  1145.  
  1146. :LABEL174
  1147.     SPRINT "47H"+LEFT(STRING(U_CMNT1),30)
  1148.     SPRINT "H"
  1149.     GOTO LABEL182
  1150.  
  1151. :LABEL175
  1152.     IF (!(UPPER(VAR033)="!")) GOTO LABEL177
  1153.     SPRINT "47H"+SPACE(30)+"D"
  1154.     LET VAR028=30
  1155.     LET VAR005=MASK_ASCII()
  1156.     GOSUB LABEL186
  1157.     IF (!(VAR021<>"")) GOTO LABEL176
  1158.     LET U_CMNT2=UPPER(VAR021)
  1159.     PUTUSER
  1160.  
  1161. :LABEL176
  1162.     SPRINT "47H"+LEFT(STRING(U_CMNT2),30)
  1163.     SPRINT "H"
  1164.     GOTO LABEL182
  1165.  
  1166. :LABEL177
  1167.     IF (!(UPPER(VAR033)="@")) GOTO LABEL180
  1168.     IF (!PSA(1)) GOTO LABEL179
  1169.     SPRINT "52H"+SPACE(25)+"D"
  1170.     LET VAR028=25
  1171.     LET VAR005=MASK_ASCII()
  1172.     GOSUB LABEL186
  1173.     IF (!(VAR021<>"")) GOTO LABEL178
  1174.     LET U_ALIAS=UPPER(VAR021)
  1175.     PUTUSER
  1176.  
  1177. :LABEL178
  1178.     LET VAR015=U_ALIAS
  1179.     SPRINT "52H"+LEFT(VAR015,25)
  1180.     SPRINT "H"
  1181.  
  1182. :LABEL179
  1183.     GOTO LABEL182
  1184.  
  1185. :LABEL180
  1186.     IF (!(UPPER(VAR033)="#")) GOTO LABEL182
  1187.     IF (!PSA(2)) GOTO LABEL182
  1188.     SPRINT "52H"+SPACE(25)+"D"
  1189.     LET VAR028=25
  1190.     LET VAR005=MASK_ASCII()
  1191.     GOSUB LABEL186
  1192.     IF (!(VAR021<>"")) GOTO LABEL181
  1193.     LET U_VER=UPPER(VAR021)
  1194.     PUTUSER
  1195.  
  1196. :LABEL181
  1197.     LET VAR016=U_VER
  1198.     SPRINT "52H"+LEFT(VAR016,25)
  1199.     SPRINT "H"
  1200.  
  1201. :LABEL182
  1202.     RETURN
  1203.  
  1204. :LABEL183
  1205.     LET VAR051=6
  1206.  
  1207. :LABEL184
  1208.     IF (!(((1<0)&(VAR051>=22))|((1>=0)&(VAR051<=22)))) GOTO LABEL185
  1209.     ANSIPOS 1,VAR051
  1210.     PRINT VAR048(VAR051)
  1211.     LET VAR051=VAR051+1
  1212.     GOTO LABEL184
  1213.  
  1214. :LABEL185
  1215.     ANSIPOS 1,4
  1216.     PRINT   "@X07|                         @X05  @BOARDNAME:20C@                             @X07 |"
  1217.     GOTO LABEL021
  1218.  
  1219. :LABEL186
  1220.     IF (!(VAR020<>CHR(13))) GOTO LABEL190
  1221.     LET VAR020=KINKEY()
  1222.     IF (!((UPPER(VAR020)=CHR(8))|(UPPER(VAR020)=CHR(127)))) GOTO LABEL188
  1223.     IF (!(LEN(VAR021)<>0)) GOTO LABEL187
  1224.     SPRINT CHR(8)+" "+CHR(8)
  1225.     LET VAR021=LEFT(VAR021,(LEN(VAR021)-1))
  1226.  
  1227. :LABEL187
  1228.     GOTO LABEL189
  1229.  
  1230. :LABEL188
  1231.     IF (!(INSTR(VAR005,VAR020)<>0)) GOTO LABEL189
  1232.     IF (!(LEN(VAR021)<VAR028)) GOTO LABEL189
  1233.     SPRINT VAR020
  1234.     LET VAR021=VAR021+VAR020
  1235.  
  1236. :LABEL189
  1237.     IF (ABORT()) RESETDISP
  1238.     GOTO LABEL186
  1239.  
  1240. :LABEL190
  1241.     RETURN
  1242.  
  1243. :LABEL191
  1244.     ANSIPOS 1,23
  1245.     PRINT "@X02+@X07-----------------------------------------------------------------------------"+STRING(LEN(U_NAME())+9)+"D"
  1246.     PRINT "@X07-@X02+@X05 "+VAR038+VAR019+VAR032+" @X02+@X07----@X02+"
  1247.     ANSIPOS 1,14
  1248.     PRINT "@X02+@X07-----------------------------------------------------------------------------"+STRING(VAR031+8)+"D"
  1249.     PRINT "@X07-@X02+@X05 "+VAR034+VAR030+VAR032+" @X02+@X07----@X02+"
  1250.     ANSIPOS 1,1
  1251.     PRINTLN "@X02+@X07----------------@X02+ @X13 AMi-X SYSChat SeX '95 · Code by HellRazoR @X07 @X02+@X07--------------@X02+"
  1252.     PRINTLN "@X07|         @X04     Time : @SYSTIME:5@  ·  Date : @SYSDATE:8@  ·  Yer Time : @TIMELEFT:4@           @X07|"
  1253.     PRINTLN "@X02+@X07-----------------------------------------------------------------------------@X02+"
  1254.     PRINTLN "@X07|  @X05                         @BOARDNAME:20C@                              @X07|"
  1255.     PRINTLN "@X02+@X07-----------------------------------------------------------------------------@X02+"
  1256.     ANSIPOS 79,4
  1257.     RETURN
  1258.  
  1259. :LABEL192
  1260.     LOG ""+VAR001+" "+VAR003+" Closed: "+LEFT(TIME(),5)+"]",0
  1261.     LET VAR027=MINLEFT()
  1262.     IF (!(VAR026>VAR027)) GOTO LABEL193
  1263.     ADJTIME VAR026-VAR027
  1264.  
  1265. :LABEL193
  1266.     DEFCOLOR
  1267.     CLS
  1268.     CLS
  1269.     DEFCOLOR
  1270.     STARTDISP FCL
  1271.     KBDSTUFF CHR(27)
  1272.     END
  1273.  
  1274. :LABEL194
  1275.     IF (!(U_NAME()=VAR056)) GOTO LABEL195
  1276.     LET VAR006=U_MSGRD()
  1277.     GOTO LABEL196
  1278.  
  1279. :LABEL195
  1280.     LET VAR006="UNKNOWN"
  1281.  
  1282. :LABEL196
  1283.     IF (!(U_NAME()=VAR056)) GOTO LABEL197
  1284.     LET VAR007=U_MSGWR()
  1285.     GOTO LABEL198
  1286.  
  1287. :LABEL197
  1288.     LET VAR007="UNKNOWN"
  1289.  
  1290. :LABEL198
  1291.     IF (!PSA(1)) GOTO LABEL199
  1292.     LET VAR015=U_ALIAS
  1293.     GOTO LABEL200
  1294.  
  1295. :LABEL199
  1296.     LET VAR015="[NOT INSTALLED]"
  1297.  
  1298. :LABEL200
  1299.     IF (!PSA(2)) GOTO LABEL201
  1300.     LET VAR016=U_VER
  1301.     GOTO LABEL202
  1302.  
  1303. :LABEL201
  1304.     LET VAR016="[NOT INSTALLED]"
  1305.  
  1306. :LABEL202
  1307.     IF (!(U_LONGHDR=0)) GOTO LABEL203
  1308.     LET VAR014="S"
  1309.     GOTO LABEL204
  1310.  
  1311. :LABEL203
  1312.     LET VAR014="L"
  1313.  
  1314. :LABEL204
  1315.     IF (!(U_FSE=0)) GOTO LABEL205
  1316.     LET VAR012="N"
  1317.     GOTO LABEL206
  1318.  
  1319. :LABEL205
  1320.     LET VAR012="Y"
  1321.  
  1322. :LABEL206
  1323.     IF (!(U_FSEP=0)) GOTO LABEL207
  1324.     LET VAR013="N"
  1325.     GOTO LABEL208
  1326.  
  1327. :LABEL207
  1328.     LET VAR013="Y"
  1329.  
  1330. :LABEL208
  1331.     IF (!(U_CLS=0)) GOTO LABEL209
  1332.     LET VAR008="N"
  1333.     GOTO LABEL210
  1334.  
  1335. :LABEL209
  1336.     LET VAR008="Y"
  1337.  
  1338. :LABEL210
  1339.     IF (!(U_SCROLL=0)) GOTO LABEL211
  1340.     LET VAR009="N"
  1341.     GOTO LABEL212
  1342.  
  1343. :LABEL211
  1344.     LET VAR009="Y"
  1345.  
  1346. :LABEL212
  1347.     IF (!(U_EXPERT=0)) GOTO LABEL213
  1348.     LET VAR010="N"
  1349.     GOTO LABEL214
  1350.  
  1351. :LABEL213
  1352.     LET VAR010="Y"
  1353.  
  1354. :LABEL214
  1355.     IF (!(U_SEC=0)) GOTO LABEL215
  1356.     LET VAR011="Y"
  1357.     GOTO LABEL216
  1358.  
  1359. :LABEL215
  1360.     LET VAR011="N"
  1361.  
  1362. :LABEL216
  1363.     SPRINT "H["+STRING(U_RECNUM(U_NAME()))+"] "+LEFT(STRING(U_NAME()),25)
  1364.     SPRINT "8H"+LEFT(STRING(U_SEC),3)
  1365.     SPRINT "18H"+LEFT(STRING(U_EXPSEC),3)
  1366.     SPRINT "18H"+LEFT(STRING(U_PAGELEN),2)
  1367.     SPRINT "18H"+LEFT(STRING(U_TRANS),1)
  1368.     SPRINT "18H"+LEFT(VAR008,1)
  1369.     SPRINT "18H"+LEFT(VAR009,1)
  1370.     SPRINT "18H"+LEFT(VAR010,1)
  1371.     SPRINT "0H"+LEFT(STRING(U_EXPDATE),8)
  1372.     SPRINT "40H"+LEFT(STRING(U_LDATE()),8)
  1373.     SPRINT "40H"+LEFT(STRING(U_LDIR()),8)
  1374.     SPRINT "40H"+LEFT(STRING(U_LOGONS()),5)
  1375.     SPRINT "40H"+LEFT(VAR012,1)
  1376.     SPRINT "40H"+LEFT(VAR013,1)
  1377.     SPRINT "40H"+LEFT(VAR014,1)
  1378.     SPRINT "7H"+LEFT(STRING(U_FUL()),5)
  1379.     SPRINT "67H"+LEFT(STRING(U_BUL()),10)
  1380.     SPRINT "67H"+LEFT(STRING(U_FDL()),5)
  1381.     SPRINT "67H"+LEFT(STRING(U_BDL()),10)
  1382.     SPRINT "67H"+LEFT(STRING(U_BDLDAY()),10)
  1383.     SPRINT "67H"+LEFT(STRING(VAR006),10)
  1384.     SPRINT "67H"+LEFT(STRING(VAR007),10)
  1385.     SPRINT "19H"+LEFT(STRING(U_HVPHONE),13)
  1386.     SPRINT "19H"+LEFT(STRING(U_BDPHONE),13)
  1387.     SPRINT "19H"+LEFT(STRING(U_PWD),12)
  1388.     SPRINT "47H"+LEFT(STRING(U_CITY),24)
  1389.     SPRINT "47H"+LEFT(STRING(U_CMNT1),30)
  1390.     SPRINT "47H"+LEFT(STRING(U_CMNT2),30)
  1391.     SPRINT "52H"+LEFT(VAR015,25)
  1392.     SPRINT "52H"+LEFT(VAR016,25)
  1393.     SPRINT "H"
  1394.     RETURN
  1395.     LET VAR057="@POS:50@@X08ßµ @X07[@X08HellRazoR@X07] @X05'95@X07 "
  1396.  
  1397. ;------------------------------------------------------------------------------
  1398. ;Statements used:
  1399. ;
  1400. ;     1 END
  1401. ;     3 CLS
  1402. ;     6 CLREOL
  1403. ;   296 GOTO
  1404. ;   306 LET
  1405. ;    21 PRINT
  1406. ;     7 PRINTLN
  1407. ;   173 IF
  1408. ;     1 FOPEN
  1409. ;     1 FCLOSE
  1410. ;     4 FGET
  1411. ;     3 RESETDISP
  1412. ;     2 STARTDISP
  1413. ;     1 GETUSER
  1414. ;    22 PUTUSER
  1415. ;     2 DEFCOLOR
  1416. ;     1 ADJTIME
  1417. ;     3 LOG
  1418. ;    42 GOSUB
  1419. ;     8 RETURN
  1420. ;     1 DELAY
  1421. ;     1 KBDSTUFF
  1422. ;    33 ANSIPOS
  1423. ;   100 SPRINT
  1424. ;    17 SPRINTLN
  1425. ;     7 GETALTUSER
  1426. ;     1 ADJDBYTES
  1427. ;     1 ADJTBYTES
  1428. ;     1 ADJTFILES
  1429. ;
  1430. ;Functions used:
  1431. ;
  1432. ;     2 -
  1433. ;   441 +
  1434. ;    17 -
  1435. ;   117 =
  1436. ;    34 <>
  1437. ;    12 <
  1438. ;    15 <=
  1439. ;     1 >
  1440. ;    27 >=
  1441. ;   159 !
  1442. ;    27 &
  1443. ;    14 |
  1444. ;     5 LEN
  1445. ;    50 UPPER
  1446. ;    64 LEFT
  1447. ;    39 SPACE
  1448. ;    44 CHR
  1449. ;     3 INSTR
  1450. ;     3 ABORT
  1451. ;     4 LTRIM
  1452. ;     2 TIME
  1453. ;    14 U_NAME
  1454. ;     1 U_LDATE
  1455. ;     1 U_LDIR
  1456. ;     1 U_LOGONS
  1457. ;     1 U_FUL
  1458. ;     3 U_FDL
  1459. ;     3 U_BDLDAY
  1460. ;     3 U_BDL
  1461. ;     1 U_BUL
  1462. ;    42 STRING
  1463. ;     1 MASK_PWD
  1464. ;     7 MASK_NUM
  1465. ;     1 MASK_ALNUM
  1466. ;     9 MASK_ASCII
  1467. ;     1 PPEPATH
  1468. ;     1 U_MSGRD
  1469. ;     1 U_MSGWR
  1470. ;     2 MINLEFT
  1471. ;     1 EXIST
  1472. ;     6 GETY
  1473. ;     4 PSA
  1474. ;     3 KINKEY
  1475. ;     1 MINKEY
  1476. ;     8 U_RECNUM
  1477. ;    55 SCRTEXT
  1478. ;     1 MIXED
  1479. ;     2 CURUSER
  1480. ;
  1481. ;------------------------------------------------------------------------------
  1482. ;happy patching, ripping, registering  ...  and remember: ECR makes it possible
  1483. ;------------------------------------------------------------------------------
  1484.