home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / PEGAND2Z.ZIP / PEGANODC.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-03-25  |  11KB  |  400 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     Integer  INTEGER010
  29.     Integer  INTEGER011
  30.     Integer  INTEGER012
  31.     String   TSTRING001(100)
  32.     String   TSTRING002(100)
  33.     String   TSTRING003(100)
  34.     String   TSTRING004(100)
  35.     String   STRING005
  36.     String   STRING006
  37.     String   TSTRING007(100)
  38.     String   TSTRING008(100)
  39.     String   TSTRING009(100)
  40.     String   TSTRING010(100)
  41.     String   TSTRING011(100)
  42.     String   STRING012
  43.     String   TSTRING013(100)
  44.     String   STRING014
  45.     String   STRING015
  46.     String   STRING016
  47.     String   STRING017
  48.     String   STRING018
  49.     String   STRING019
  50.     String   TSTRING020(100)
  51.     String   STRING021
  52.     String   STRING022
  53.  
  54. ;------------------------------------------------------------------------------
  55.  
  56.     STRING022 = ReadLine(PCBDat(), 28)
  57.     StartDisp 1
  58.     For INTEGER001 = 1 To 2
  59.         RdUNet INTEGER001
  60.         TSTRING001(INTEGER001) = RTrim(UN_Name(), " ")
  61.         TSTRING002(INTEGER001) = RTrim(UN_City(), " ")
  62.         TSTRING003(INTEGER001) = UN_Stat()
  63.         TSTRING004(INTEGER001) = RTrim(UN_Oper(), " ")
  64.     Next
  65.     TSTRING003(PcbNode()) = "WHO"
  66.     Cls
  67.     PrintLn 
  68.     PrintLn 
  69.     PrintLn 
  70.     PrintLn "@X70 ┌@X7F───────────────────────────────────────────────────────────────────────────@X70┐ @X0F"
  71.     :LABEL001
  72.     AnsiPos 1, 5
  73.     PrintLn "@X70 @X78│        @X71@SYSTIME:4R@    @XF0* @X74WHO'S ON * PEGANODE ACTIVITY REPORT @XF0*     @X71@SYSDATE:8R@      @X7F│ @X0F"
  74.     PrintLn "@X70 @X78│@X74N@X78ode                   @XFEUNREGISTERED EVALUATION COPY                 @X74T@X78ime  @X7F │ @X0F"
  75.     PrintLn "@X70 @X78│ @X74N@X78o        @X74C@X78ALLER            @X74F@X78ROM                @X74A@X78CTIVITY           @X74L@X78eft   @X7F│ @X0F"
  76.     PrintLn "@X70 @X78│──── ────────────────── ─────────────── ───────────────────────── ──────── @X7F│ @X0F"
  77.     Gosub LABEL005
  78.     For INTEGER002 = 1 To 2
  79.         TSTRING007(INTEGER002) = ""
  80.         STRING018 = I2S(INTEGER002, 10)
  81.         STRING015 = STRING022 + "PEGTIME." + STRING018
  82.         If (Exist(STRING015)) Goto LABEL002
  83.         TSTRING007(INTEGER002) = ""
  84.         Goto LABEL003
  85.         :LABEL002
  86.         FOpen 1, STRING015, 0, 0
  87.         FGet 1, INTEGER010
  88.         FGet 1, STRING016
  89.         FClose 1
  90.         For INTEGER007 = 1 To 7
  91.             STRING019 = Mid(STRING016, INTEGER007, 1)
  92.             Select Case (STRING019)
  93.                 Case "m"
  94.                     Break
  95.                 Case "("
  96.                     STRING019 = ""
  97.             End Select
  98.             STRING017 = STRING017 + STRING019
  99.         Next
  100.         INTEGER012 = S2I(STRING017, 10)
  101.         INTEGER011 = INTEGER012 - (Time() - INTEGER010) / 60
  102.         TSTRING007(INTEGER002) = ""
  103.         TSTRING007(INTEGER002) = I2S(INTEGER011, 10)
  104.         TSTRING007(INTEGER002) = LTrim(RTrim(TSTRING007(INTEGER002), " "), " ")
  105.         STRING017 = ""
  106.         Gosub LABEL009
  107.         If (TSTRING003(INTEGER002) == "WHO") TSTRING007(INTEGER002) = "@TIMELEFT@"
  108.         :LABEL003
  109.         TSTRING004(INTEGER002) = RTrim(TSTRING004(INTEGER002), " ")
  110.         TSTRING004(INTEGER002) = LTrim(TSTRING004(INTEGER002), " ")
  111.         STRING006 = INTEGER002
  112.         If (INTEGER002 < 10) Then
  113.             STRING006 = " " + STRING006
  114.         ElseIf (INTEGER002 >= 10) Then
  115.             STRING006 = STRING006
  116.         Endif
  117.         If (TSTRING003(INTEGER002) == "WHO") Then
  118.             AnsiPos 1, INTEGER002 + 8
  119.             PrintLn "@X70 @X78│@POS:4@@X74", STRING006, "@POS:8@@X70", Left(TSTRING001(INTEGER002), 19), " @X7E@POS:28@", TSTRING002(INTEGER002), " @POS:44@@X78Viewing @X74PEGANODE @POS:69@@X71@TIMELEFT:3R@@X70 @POS:73@Min @POS:77@@X7F │ @X0F"
  120.             Continue
  121.         Endif
  122.         If (TSTRING003(INTEGER002) == "") Then
  123.             AnsiPos 1, INTEGER002 + 8
  124.             PrintLn "@X70 @X78│@X74@POS:4@", STRING006, "@X78@POS:8@Unavailable Node @POS:77@ @X7F│ @X0F"
  125.             Continue
  126.         Endif
  127.         If (TSTRING003(INTEGER002) == " ") Then
  128.             AnsiPos 1, INTEGER002 + 8
  129.             PrintLn "@X70 @X78│@X74@POS:4@", STRING006, "@POS:8@@X78Available Node @POS:77@ @X7F│ @X0F"
  130.             Continue
  131.         Endif
  132.         If (TSTRING003(INTEGER002) == "O") Then
  133.             AnsiPos 1, INTEGER002 + 8
  134.             PrintLn "@X70 @X78│@X74@POS:4@", STRING006, "@POS:8@@X7FLogging On             @POS:77@ │ @X0F"
  135.             Continue
  136.         Endif
  137.         If (TSTRING003(INTEGER002) == "D") Then
  138.             AnsiPos 1, INTEGER002 + 8
  139.             TSTRING001(INTEGER002) = RTrim(TSTRING001(INTEGER002), " ")
  140.             INTEGER004 = Len(TSTRING001(INTEGER002))
  141.             TSTRING004(INTEGER002) = RTrim(TSTRING004(INTEGER002), " ")
  142.             INTEGER003 = Len(TSTRING004(INTEGER002))
  143.             Gosub LABEL006
  144.             TSTRING013(INTEGER002) = "@X7CDr: @X7B" + TSTRING004(INTEGER002)
  145.             PrintLn "@X70 @X78│@POS:4@@X74", STRING006, "@POS:8@@X70", Left(TSTRING001(INTEGER002), 19), " @X7E@POS:28@", TSTRING002(INTEGER002), "@POS:44@", TSTRING013(INTEGER002), "@X71@POS:69@", TSTRING007(INTEGER002), "@X70 @POS:73@Min @POS:77@ @X7F│ @X0F"
  146.             Continue
  147.         Endif
  148.         If (TSTRING003(INTEGER002) == "A") Then
  149.             AnsiPos 1, INTEGER002 + 8
  150.             TSTRING004(INTEGER002) = "Available For Chat"
  151.             PrintLn "@X70 @X78│@POS:4@@X74", STRING006, "@POS:8@@X70", Left(TSTRING001(INTEGER002), 19), " @POS:28@@X7E", TSTRING002(INTEGER002), " @X7F@POS:44@", TSTRING004(INTEGER002), "@X71@POS:69@", TSTRING007(INTEGER002), "@X70 @POS:73@Min@POS:77@ @X7F│ @X0F"
  152.             Continue
  153.         Endif
  154.         If (TSTRING003(INTEGER002) == "T") Then
  155.             AnsiPos 1, INTEGER002 + 8
  156.             Gosub LABEL007
  157.             Gosub LABEL008
  158.             Continue
  159.         Endif
  160.         If (TSTRING003(INTEGER002) == "S") Then
  161.             AnsiPos 1, INTEGER002 + 8
  162.             TSTRING004(INTEGER002) = "Answering Script"
  163.             PrintLn "@X70 @X78│@X74@POS:4@", STRING006, "@POS:8@@X70", Left(TSTRING001(INTEGER002), 19), " @X7E@POS:28@", TSTRING002(INTEGER002), " @X76@POS:44@", TSTRING004(INTEGER002), "@POS:69@@X71", TSTRING007(INTEGER002), "@X70 @POS:73@Min@POS:77@ @X7F│ @X0F"
  164.             Continue
  165.         Endif
  166.         If (TSTRING003(INTEGER002) == "N") Then
  167.             AnsiPos 1, INTEGER002 + 8
  168.             PrintLn "@X70 @X78│@POS:4@@X74", STRING006, "@POS:8@@X70", Left(TSTRING001(INTEGER002), 19), " @X7E@POS:28@", TSTRING002(INTEGER002), " @X74@POS:44@Running Event      @POS:77@ @X7F│ @X0F"
  169.             Continue
  170.         Endif
  171.         If (TSTRING003(INTEGER002) == "L") Then
  172.             AnsiPos 1, INTEGER002 + 8
  173.             PrintLn "@X70 @X78│@POS:4@@X74", STRING006, "@POS:8@@X70", Left(TSTRING001(INTEGER002), 19), " @X7E@POS:28@", TSTRING002(INTEGER002), " @X74@POS:44@Logoff Pending     @POS:77@ @X7F│ @X0F"
  174.             Continue
  175.         Endif
  176.         If (TSTRING003(INTEGER002) == "R") Then
  177.             AnsiPos 1, INTEGER002 + 8
  178.             PrintLn "@X70 @X78│@POS:4@@X74", STRING006, "@POS:8@@X70", Left(TSTRING001(INTEGER002), 19), " @X7E@POS:28@", TSTRING002(INTEGER002), " @X74@POS:44@DOS Recycle Pending@POS:77@ @X7F│ @X0F"
  179.             Continue
  180.         Endif
  181.         If (TSTRING003(INTEGER002) == "V") Then
  182.             AnsiPos 1, INTEGER002 + 8
  183.             PrintLn "@X70 @X78│@POS:4@@X74", STRING006, "@POS:8@@X70", Left(TSTRING001(INTEGER002), 19), " @X7E@POS:28@", TSTRING002(INTEGER002), " @X74@POS:44@No Caller On Line  @POS:77@ @X7F│ @X0F"
  184.             Continue
  185.         Endif
  186.         If (TSTRING003(INTEGER002) == "W") Then
  187.             AnsiPos 1, INTEGER002 + 8
  188.             PrintLn "@X70 @X78│@POS:4@@X74", STRING006, "@POS:8@@X70", Left(TSTRING001(INTEGER002), 19), " @X7E@POS:28@", TSTRING002(INTEGER002), " @X74@POS:44@Drop To DOS Pending@POS:77@ @X7F│ @X0F"
  189.             Continue
  190.         Endif
  191.         If (TSTRING003(INTEGER002) == "C") Then
  192.             AnsiPos 1, INTEGER002 + 8
  193.             PrintLn "@X70 @X78│@POS:4@@X74", STRING006, "@POS:8@@X70", Left(TSTRING001(INTEGER002), 19), " @X7E@POS:28@", TSTRING002(INTEGER002), " @X74@POS:44@Chatting With Sysop@POS:69@@X71", TSTRING007(INTEGER002), "@X70@POS:73@Min@POS:77@ @X7F│ @X0F"
  194.             Continue
  195.         Endif
  196.         If (TSTRING003(INTEGER002) == "F") Then
  197.             AnsiPos 1, INTEGER002 + 8
  198.             PrintLn "@X70 @X78│@POS:4@@X74", STRING006, "@POS:8@@X70", Left(TSTRING001(INTEGER002), 19), " @X7E@POS:28@", TSTRING002(INTEGER002), " @X75@POS:44@", TSTRING004(INTEGER002), "@X71@POS:69@", TSTRING007(INTEGER002), "@X70 @POS:73@Min@POS:77@ @X7F│ @X0F"
  199.             Continue
  200.         Endif
  201.         If (TSTRING003(INTEGER002) == "G") Then
  202.             AnsiPos 1, INTEGER002 + 8
  203.             PrintLn "@X70 @X78│@POS:4@@X74", STRING006, "@POS:8@@X70", Left(TSTRING001(INTEGER002), 19), " @X7E@POS:28@", TSTRING002(INTEGER002), " @X7A@POS:44@Chatting With Group@POS:69@@X71", TSTRING007(INTEGER002), "@X70 @POS:73@Min@POS:77@ @X7F│ @X0F"
  204.             Continue
  205.         Endif
  206.         If (TSTRING003(INTEGER002) == "E") Then
  207.             AnsiPos 1, INTEGER002 + 8
  208.             PrintLn "@X70 @X78│@POS:4@@X74", STRING006, "@POS:8@@X70", Left(TSTRING001(INTEGER002), 19), " @X7E@POS:28@", TSTRING002(INTEGER002), " @X71@POS:44@Entering A Message@X71@POS:69@", TSTRING007(INTEGER002), "@X70 @POS:73@Min@POS:77@ @X7F│ @X0F"
  209.             Continue
  210.         Endif
  211.         If (TSTRING003(INTEGER002) == "M") Then
  212.             AnsiPos 1, INTEGER002 + 8
  213.             PrintLn "@X70 @X78│@POS:4@@X74", STRING006, "@POS:8@@X70", Left(TSTRING001(INTEGER002), 19), " @X7E@POS:28@", TSTRING002(INTEGER002), " @X71@POS:44@Reading A Message@POS:69@", TSTRING007(INTEGER002), "@X70 @POS:73@Min@POS:77@ @X7F│ @X0F"
  214.             Continue
  215.         Endif
  216.         If (TSTRING003(INTEGER002) == "B") Then
  217.             AnsiPos 1, INTEGER002 + 8
  218.             PrintLn "@X70 @X78│@X74@POS:4@", STRING006, "@POS:8@@X70", Left(TSTRING001(INTEGER002), 19), " @X7E@POS:28@", TSTRING002(INTEGER002), " @X70@POS:44@Out in DOS@POS:77@ @X7F│ @X0F"
  219.             Continue
  220.         Endif
  221.         If (TSTRING003(INTEGER002) == "P") Then
  222.             AnsiPos 1, INTEGER002 + 8
  223.             PrintLn "@X70 @X78│@X74@POS:4@", STRING006, "@POS:8@@X70", Left(TSTRING001(INTEGER002), 19), " @X7E@POS:28@", TSTRING002(INTEGER002), " @X74@POS:44@Paging SysOp@X71@POS:69@", TSTRING007(INTEGER002), "@X70 @POS:73@Min@POS:77@ @X7F│ @X0F"
  224.             Continue
  225.         Endif
  226.         If (TSTRING003(INTEGER002) == "U") Then
  227.             AnsiPos 1, INTEGER002 + 8
  228.             TSTRING004(INTEGER002) = "Can't Chat Right Now"
  229.             PrintLn "@X70 @X78│@X74@POS:4@", STRING006, "@POS:8@@X70", Left(TSTRING001(INTEGER002), 19), " @X7E@POS:28@", TSTRING002(INTEGER002), " @X79@POS:44@", TSTRING004(INTEGER002), "@X71@POS:69@", TSTRING007(INTEGER002), "@X70 @POS:73@Min@POS:77@ @X7F│ @X0F"
  230.             Continue
  231.         Endif
  232.         AnsiPos 1, INTEGER002 + 8
  233.         PrintLn "@X70 @X78│@X74@POS:4@", STRING006, "@POS:8@@X70", Left(TSTRING001(INTEGER002), 19), " @X7E@POS:28@", TSTRING002(INTEGER002), " @X76@POS:44@", TSTRING004(INTEGER002), "@X71@POS:69@", TSTRING007(INTEGER002), "@X70 @POS:73@Min@POS:77@ @X7F│ @X0F"
  234.     Next
  235.     PrintLn "@X70 └@X78───────────────────────────────────────────────────────────────────────────@X70┘ @X0F"
  236.     PrintLn "@X08  v2.1a                                      COPYRIGHT (C) 1994 CHRIS MICHAELS"
  237.     PrintLn 
  238.     PrintLn "@X0E(@X0C", MinLeft(), "@X0E min. left) @X0APress (@X0EQ@X0A) to continue...Screen will update every second"
  239.     STRING014 = MinLeft()
  240.     If (MinLeft() < 5) Goto LABEL004
  241.     STRING005 = Inkey()
  242.     STRING005 = Upper(STRING005)
  243.     If (STRING005 == "Q") Goto LABEL004
  244.     For INTEGER001 = 1 To 10
  245.         RdUNet INTEGER001
  246.         TSTRING001(INTEGER001) = RTrim(UN_Name(), " ")
  247.         TSTRING002(INTEGER001) = RTrim(UN_City(), " ")
  248.         TSTRING003(INTEGER001) = UN_Stat()
  249.         TSTRING004(INTEGER001) = RTrim(UN_Oper(), " ")
  250.     Next
  251.     TSTRING003(PcbNode()) = "WHO"
  252.     Goto LABEL001
  253.     :LABEL004
  254.     StartDisp 2
  255.     End
  256.     :LABEL005
  257.     For INTEGER002 = 1 To 2
  258.         Tokenize TSTRING002(INTEGER002)
  259.         INTEGER008 = TokCount()
  260.         For INTEGER009 = 1 To INTEGER008
  261.             GetToken TSTRING020(INTEGER009)
  262.             If (Right(TSTRING020(INTEGER009), 1) == ",") Then
  263.                 TSTRING020(INTEGER009) = Left(TSTRING020(INTEGER009), Len(TSTRING020(INTEGER009)) - 1)
  264.                 Continue
  265.             Endif
  266.             If (Right(TSTRING020(INTEGER009), 1) == ".") Then
  267.                 TSTRING020(INTEGER009) = Left(TSTRING020(INTEGER009), Len(TSTRING020(INTEGER009)) - 1)
  268.             Endif
  269.         Next
  270.         For INTEGER009 = 1 To INTEGER008
  271.             STRING021 = STRING021 + TSTRING020(INTEGER009) + " "
  272.             TSTRING020(INTEGER009) = ""
  273.         Next
  274.         TSTRING002(INTEGER002) = Left(STRING021, 13)
  275.         STRING021 = ""
  276.     Next
  277.     :LABEL006
  278.     If (Left(TSTRING001(INTEGER002), INTEGER004) == Left(TSTRING004(INTEGER002), INTEGER004)) Then
  279.         TSTRING004(INTEGER002) = "@X7B" + Right(TSTRING004(INTEGER002), INTEGER003 - INTEGER004 - 3)
  280.         TSTRING004(INTEGER002) = LTrim(Left(TSTRING004(INTEGER002), 24), " ")
  281.     Endif
  282.     Return
  283.     :LABEL007
  284.     Tokenize TSTRING004(INTEGER002)
  285.     GetToken TSTRING008(INTEGER002)
  286.     GetToken TSTRING009(INTEGER002)
  287.     GetToken STRING012
  288.     GetToken TSTRING010(INTEGER002)
  289.     GetToken STRING012
  290.     GetToken TSTRING011(INTEGER002)
  291.     INTEGER005 = Len(TSTRING010(INTEGER002)) - 4
  292.     TSTRING010(INTEGER002) = Left(TSTRING010(INTEGER002), INTEGER005) + "K"
  293.     TSTRING004(INTEGER002) = TSTRING008(INTEGER002) + " " + TSTRING009(INTEGER002) + " " + TSTRING010(INTEGER002)
  294.     Return
  295.     :LABEL008
  296.     Select Case (TSTRING008(INTEGER002))
  297.         Case "(D)"
  298.             PrintLn "@X70 @X78│@POS:4@@X74", STRING006, "@POS:8@@X70", Left(TSTRING001(INTEGER002), 19), " @X7E@POS:28@", TSTRING002(INTEGER002), " @X75@POS:44@", TSTRING004(INTEGER002), "@X71@POS:69@", TSTRING007(INTEGER002), "@X70 @POS:73@Min@POS:77@ @X7F│ @X0F"
  299.         Case "(U)"
  300.             PrintLn "@X70 @X78│@POS:4@@X74", STRING006, "@POS:8@@X70", Left(TSTRING001(INTEGER002), 19), " @X7E@POS:28@", TSTRING002(INTEGER002), " @X75@POS:44@(U)ploading A File @XFC@X71@POS:69@", TSTRING007(INTEGER002), "@X70 @POS:73@Min@POS:77@ @X7F│ @X0F"
  301.         Case Else
  302.             PrintLn "@X70 @X78│@POS:4@@X74", STRING006, "@POS:8@@X70", Left(TSTRING001(INTEGER002), 19), " @X7E@POS:28@", TSTRING002(INTEGER002), " @X74@POS:44@Preparing File Transfer@POS:69@@X71", TSTRING007(INTEGER002), "@X70 @POS:73@Min@X7F@POS:77@ │ @X0F"
  303.     End Select
  304.     :LABEL009
  305.     TSTRING007(INTEGER002) = LTrim(RTrim(TSTRING007(INTEGER002), " "), " ")
  306.     INTEGER006 = Len(TSTRING007(INTEGER002))
  307.     Select Case (INTEGER006)
  308.         Case 1
  309.             TSTRING007(INTEGER002) = "  " + TSTRING007(INTEGER002)
  310.         Case 2
  311.             TSTRING007(INTEGER002) = " " + TSTRING007(INTEGER002)
  312.         Case 3
  313.             TSTRING007(INTEGER002) = TSTRING007(INTEGER002)
  314.         Case 4
  315.             TSTRING007(INTEGER002) = " ??"
  316.     End Select
  317.     Return
  318.  
  319. ;------------------------------------------------------------------------------
  320. ;
  321. ; Usage report (before postprocessing)
  322. ;
  323. ; ■ Statements used :
  324. ;
  325. ;    1       End
  326. ;    1       Cls
  327. ;    83      Goto 
  328. ;    73      Let 
  329. ;    36      PrintLn 
  330. ;    45      If 
  331. ;    1       FOpen 
  332. ;    1       FClose 
  333. ;    2       FGet 
  334. ;    2       StartDisp 
  335. ;    5       Gosub 
  336. ;    3       Return
  337. ;    2       Tokenize 
  338. ;    7       GetToken 
  339. ;    2       RdUNet 
  340. ;    23      AnsiPos 
  341. ;
  342. ;
  343. ; ■ Functions used :
  344. ;
  345. ;    1       /
  346. ;    44      +
  347. ;    7       -
  348. ;    33      ==
  349. ;    9       <
  350. ;    7       <=
  351. ;    16      >=
  352. ;    41      !
  353. ;    14      &&
  354. ;    7       ||
  355. ;    6       Len(
  356. ;    1       Upper()
  357. ;    1       Mid()
  358. ;    28      Left()
  359. ;    3       Right()
  360. ;    4       LTrim()
  361. ;    11      RTrim()
  362. ;    1       Time()
  363. ;    1       Inkey()
  364. ;    1       PCBDat()
  365. ;    2       PcbNode()
  366. ;    1       ReadLine()
  367. ;    2       UN_Stat()
  368. ;    2       UN_Name()
  369. ;    2       UN_City()
  370. ;    2       UN_Oper()
  371. ;    3       MinLeft()
  372. ;    1       Exist()
  373. ;    2       I2S()
  374. ;    1       S2I()
  375. ;    1       TokCount()
  376. ;
  377. ;------------------------------------------------------------------------------
  378. ;
  379. ; Analysis flags : d
  380. ;
  381. ; d - Access PCBOARD.DAT ■ 2
  382. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  383. ;     for many PPE so they can find various informations on the system
  384. ;     (system paths, max number of lines in messages, ...) but it may also
  385. ;     be a way to gather vital informations.
  386. ;     ■ Search for : PCBDAT()
  387. ;
  388. ;------------------------------------------------------------------------------
  389. ;
  390. ; Postprocessing report
  391. ;
  392. ;    7       For/Next
  393. ;    0       While/EndWhile
  394. ;    26      If/Then or If/Then/Else
  395. ;    3       Select Case
  396. ;
  397. ;------------------------------------------------------------------------------
  398. ;                 AEGiS Corp - Break the routines, code against the machines!
  399. ;------------------------------------------------------------------------------
  400.