home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / PWAPCP01.ZIP / TUTOR152 / TUTOR.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-09-03  |  11KB  |  357 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 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     String   STRING001
  21.     String   STRING002
  22.     String   STRING003
  23.     String   STRING004
  24.     String   STRING005
  25.     String   STRING006
  26.     String   STRING007
  27.     String   STRING008
  28.     String   STRING009
  29.     Declare  Function FUNCTION001() String
  30.  
  31. ;------------------------------------------------------------------------------
  32.  
  33.     STRING001 = ReadLine(PCBDat(), 94)
  34.     INTEGER001 = Len(STRING001) / 16
  35.     STRING002 = 4646464
  36.     FOpen 1, PPEPath() + "TUTOR.CFG", 0, 0
  37.     FGet 1, STRING003
  38.     FGet 1, STRING004
  39.     FGet 1, STRING006
  40.     FGet 1, STRING005
  41.     FGet 1, STRING007
  42.     FCloseAll
  43.     Log "      Opened DOOR (Tutorial) at @SYSTIME@", 1
  44.     If (AnsiOn()) Then
  45.         Goto LABEL001
  46.     Endif
  47.     PrintLn 
  48.     PrintLn 
  49.     PrintLn "PCBoard Tutorial - ERROR: 101"
  50.     PrintLn 
  51.     PrintLn "ANSI.SYS is REQUIRED! to view this program."
  52.     PrintLn "Please make sure that you have the ANSI.SYS command loaded in your"
  53.     PrintLn "config.sys file and that you choose Color graphics on this system."
  54.     PrintLn 
  55.     Goto LABEL018
  56.     :LABEL001
  57.     PrintLn "@CLS@@POFF@"
  58.     PrintLn 
  59.     PrintLn "@X1F█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X08█"
  60.     PrintLn "@X1F█                                                                             @X18█@X07"
  61.     PrintLn "@X1F█    @X19PCB Tutorial       PCB Tutorial       PCB Tutorial       PCB Tutorial    @X08█"
  62.     PrintLn "@X1F█    @X19PCB T@X7F ┌─────────────────────────────────────────────────────────@X70┐ @X19ial    @X08█"
  63.     PrintLn "@X1F█    @X19PCB@X08 T@X7F │    @X70╗══╗╔══╗╗══╗@X78tm  @X70╔═╦═╗╦  ╦╔═╦═╗╔══╗╔══╗ ╦ ╔══╗╦       │ @X19ial    @X08█"
  64.     PrintLn "@X1F█    @X19PCB@X08 T@X7F │    @X71╠══╝║   ╠══╣      ║  ║  ║  ║  ║  ║╠═╦╝ ║ ╠══╣║       @X70│ @X19ial    @X08█"
  65.     PrintLn "@X1F█    @X19PCB@X08 T@X7F │    @X70╩   ╚══╝╝══╝      ╩  ╚══╝  ╩  ╚══╝╩ ╚═ ╩ ╩  ╩╚══╝    │ @X19ial    @X08█"
  66.     PrintLn "@X1F█    @X19PCB@X08 T@X7F │@X74                     Version 1.52                        @X70│ @X19ial    @X08█"
  67.     PrintLn "@X1F█    @X19PCB@X08 T@X7F │ @X78   PCBoard Tutorial (C) (08-29-95) - A.600" + STRING003 + "711", "@POS:69@ @X70│ @X19ial    @X08█"
  68.     PrintLn "@X1F█    @X19PCB@X08 T@X7F │                                                         @X70│ @X19ial    @X08█"
  69.     PrintLn "@X1F█    @X19PCB@X08 T@X7F │ @X70                                                        │ @X19ial    @X08█"
  70.     PrintLn "@X1F█    @X19PCB@X08 T@X7F └@X70─────────────────────────────────────────────────────────┘ @X19ial    @X08█"
  71.     PrintLn "@X1F█    @X19PCB@X08 Tutorial        PCB Tutorial      PCB Tutorail       PCB Tuto@X19rial    @X08█"
  72.     PrintLn "@X1F█    @X19PCB Tutorial        PCB Tutorial      PCB Tutorial       PCB Tutorial    @X08█"
  73.     PrintLn "@X1F█                                                                             @X08█"
  74.     PrintLn "@X1F█@X18▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█@X07"
  75.     PrintLn "@X03                       Copyright (c)1995 Equinox Software"
  76.     If (STRING002 <> STRING003) Then
  77.         Goto LABEL002
  78.     ElseIf (STRING002 == STRING003) Then
  79.         Goto LABEL003
  80.     Endif
  81.     :LABEL002
  82.     AnsiPos 27, 12
  83.     PrintLn "@XFEUNREGISTERED EVALUATION COPY@X03"
  84.     AnsiPos 27, 13
  85.     PrintLn "@X7E      20 Second Delay       @X07"
  86.     Delay 18 * 15
  87.     Goto LABEL004
  88.     :LABEL003
  89.     AnsiPos 27, 12
  90.     PrintLn "@X70Registered and Licensed to:@X07"
  91.     AnsiPos 13, 13
  92.     PrintLn "@X70@BOARDNAME:54C@@X07"
  93.     AnsiPos 1, 22
  94.     PrintLn "@WAIT@"
  95.     :LABEL004
  96.     PrintLn "@CLS@  @X4E  PCB Tutorial @X07    @X17╔════════════════════════════════════════════════════════╗@X07"
  97.     PrintLn "@X70┌─@X4E  Version 1.52 @X70─┐@X01  @X17║                                                        ║@X07"
  98.     PrintLn "@X70│                 │@X01  @X17╟────────────────────────────────────────────────────────╢@X07"
  99.     PrintLn "@X70│ @X6F @X60(@X6FA@X60)@X67ll about @X6F @X78▄ @X70│@X01  @X17║@X03░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
  100.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B┌──────────────────────────────────────────────────┐@X03░░@X17║@X07"
  101.     PrintLn "@X70│ @X10  @X13(@X1FC@X13)@X17ommands  @X78▄ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  102.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  103.     PrintLn "@X70│ @X2F @X28(@X2FL@X28)ogging On @X78▄ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  104.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  105.     PrintLn "@X70│ @X1F  @X13(@X1FI@X13)@X17nternet  @X78▄ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  106.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B│    Please make your selection from any of the    │@X03░░@X17║@X07"
  107.     PrintLn "@X70│ @X50   (@X5FU@X50)@X57senet   @X78▄ @X70│@X01  @X17║@X03░░@X0B│              catagories on the left.             │@X03░░@X17║@X07"
  108.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  109.     PrintLn "@X70│ @X30   @X34(@X3FF@X34)@X38idonet  @X78▄ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  110.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  111.     PrintLn "@X70│ @X40    (@X4FH@X40)@X47elp    @X78▄ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  112.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  113.     PrintLn "@X70│ @X2F    @X28(@X2EE@X28)@X20XIT    @X78▄ @X70│@X0F  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  114.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B└──────────────────────────────────────────────────┘@X03░░@X17║@X07"
  115.     PrintLn "@X70│                 │@X01  @X17║@X03░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
  116.     PrintLn "@X70└──── Options ────┘@X01  @X17╚════════════════════════════════════════════════════════╝@X07"
  117.     If (STRING002 <> STRING003) Then
  118.         Goto LABEL006
  119.     ElseIf (STRING002 == STRING003) Then
  120.         Goto LABEL005
  121.     Endif
  122.     :LABEL005
  123.     AnsiPos 24, 2
  124.     PrintLn "@X1BRegistered to: @X1F@BOARDNAME:39@@X07"
  125.     Goto LABEL007
  126.     :LABEL006
  127.     AnsiPos 36, 2
  128.     PrintLn "@X9E UNREGISTERED EVALUATION COPY@X07"
  129.     :LABEL007
  130.     Goto LABEL009
  131.     :LABEL008
  132.     AnsiPos 1, 4
  133.     PrintLn "@X70│ @X6F @X60(@X6FA@X60)@X67ll about @X6F @X78▄ @X70│@X01  @X17║@X03░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
  134.     AnsiPos 1, 5
  135.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B┌──────────────────────────────────────────────────┐@X03░░@X17║@X07"
  136.     AnsiPos 1, 6
  137.     PrintLn "@X70│ @X10  @X13(@X1FC@X13)@X17ommands  @X78▄ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  138.     AnsiPos 1, 7
  139.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  140.     AnsiPos 1, 8
  141.     PrintLn "@X70│ @X2F @X28(@X2FL@X28)ogging On @X78▄ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  142.     AnsiPos 1, 9
  143.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  144.     AnsiPos 1, 10
  145.     PrintLn "@X70│ @X1F  @X13(@X1FI@X13)@X17nternet  @X78▄ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  146.     AnsiPos 1, 11
  147.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B│    Please make your selection from any of the    │@X03░░@X17║@X07"
  148.     AnsiPos 1, 12
  149.     PrintLn "@X70│ @X50   (@X5FU@X50)@X57senet   @X78▄ @X70│@X01  @X17║@X03░░@X0B│              catagories on the left.             │@X03░░@X17║@X07"
  150.     AnsiPos 1, 13
  151.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  152.     AnsiPos 1, 14
  153.     PrintLn "@X70│ @X30   @X34(@X3FF@X34)@X38idonet  @X78▄ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  154.     AnsiPos 1, 15
  155.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  156.     AnsiPos 1, 16
  157.     PrintLn "@X70│ @X40    (@X4FH@X40)@X47elp    @X78▄ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  158.     AnsiPos 1, 17
  159.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  160.     AnsiPos 1, 18
  161.     PrintLn "@X70│ @X2F    @X28(@X2EE@X28)@X20XIT    @X78▄ @X70│@X0F  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  162.     AnsiPos 1, 19
  163.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B└──────────────────────────────────────────────────┘@X03░░@X17║@X07"
  164.     AnsiPos 1, 20
  165.     PrintLn "@X70│                 │@X01  @X17║@X03░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
  166.     AnsiPos 1, 21
  167.     PrintLn "@X70└──── Options ────┘@X01  @X17╚════════════════════════════════════════════════════════╝@X07"
  168.     AnsiPos 1, 22
  169.     PrintLn "                                                            "
  170.     :LABEL009
  171.     AnsiPos 1, 22
  172.     STRING008 = " "
  173.     While (Upper(STRING008) <> "E") Do
  174.         STRING008 = FUNCTION001()
  175.         If (STRING008 == "END") Goto LABEL018
  176.         If (STRING008 == Chr(13)) Goto LABEL010
  177.         If (Upper(STRING008) == "A") Then
  178.             Goto LABEL011
  179.             Continue
  180.         Endif
  181.         If (Upper(STRING008) == "I") Then
  182.             Goto LABEL013
  183.             Continue
  184.         Endif
  185.         If (Upper(STRING008) == "U") Then
  186.             Goto LABEL015
  187.             Continue
  188.         Endif
  189.         If (Upper(STRING008) == "H") Then
  190.             Goto LABEL016
  191.             Continue
  192.         Endif
  193.         If (Upper(STRING008) == "F") Then
  194.             Goto LABEL017
  195.             Continue
  196.         Endif
  197.         If (Upper(STRING008) == "C") Then
  198.             Goto LABEL014
  199.             Continue
  200.         Endif
  201.         If (Upper(STRING008) == "L") Then
  202.             Goto LABEL012
  203.             Continue
  204.         Endif
  205.         If ((Upper(STRING008) == "E") || (Upper(STRING008) == "e")) Then
  206.             Goto LABEL018
  207.         Endif
  208.     EndWhile
  209.     End
  210.  
  211. ;------------------------------------------------------------------------------
  212.  
  213.     Function FUNCTION001() String
  214.  
  215.     While (FUNCTION001 == "") Do
  216.         FUNCTION001 = Inkey()
  217.     EndWhile
  218.  
  219.     EndFunc
  220.  
  221.     :LABEL010
  222.     AnsiPos 26, 17
  223.     PrintLn "@X4F  Please @XCEmake your selection @X4Ffrom the catagories  @X07"
  224.     AnsiPos 26, 18
  225.     PrintLn "@X4F                   on the LEFT.                   @X07"
  226.     Delay 100
  227.     Goto LABEL004
  228.     :LABEL011
  229.     Call PPEPath() + "ABOUT.MOD"
  230.     Goto LABEL008
  231.     :LABEL012
  232.     Call PPEPath() + "LOGIN.MOD"
  233.     Goto LABEL004
  234.     :LABEL013
  235.     Call PPEPath() + "INTERNT.MOD"
  236.     Goto LABEL008
  237.     :LABEL014
  238.     Call PPEPath() + "commands.mod"
  239.     Goto LABEL008
  240.     :LABEL015
  241.     Call PPEPath() + "USENET.MOD"
  242.     Goto LABEL008
  243.     :LABEL016
  244.     Call PPEPath() + "HELP.MOD"
  245.     Goto LABEL008
  246.     :LABEL017
  247.     Call PPEPath() + "FIDO.MOD"
  248.     Goto LABEL008
  249.     :LABEL018
  250.     PrintLn "@CLS@@X1F█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X08█@X0B"
  251.     PrintLn "@X1F█                                                                            @X18█@X0B"
  252.     PrintLn "@X1F█    @X19PCB Tutorial       PCB Tutorial       PCB Tutorial       PCB Tutorial   @X08█@X0B"
  253.     PrintLn "@X1F█    @X19PCB T@X47 ┌─────────────────────────────────────────────────────────┐ @X19ial   @X08█@X0B"
  254.     PrintLn "@X1F█    @X19PCB@X07 @X08T@X47 │         @X4B≡≡≡≡≡  @X4ECREDITS / ACKNOWLEDGEMENTS  @X4B≡≡≡≡≡        @X47│ @X19ial   @X08█@X0B"
  255.     PrintLn "@X1F█    @X19PCB@X07 @X08T@X47 │                                                         │ @X19ial   @X08█@X0B"
  256.     PrintLn "@X1F█    @X19PCB@X07 @X08T@X47 │         @X4FPCBoard is a registered Trademark (R) of        @X47│ @X19ial   @X08█@X0B"
  257.     PrintLn "@X1F█    @X19PCB@X07 @X08T@X47 │@X4F               Clark Developement Co, Inc.               @X47│ @X19ial   @X08█@X0B"
  258.     PrintLn "@X1F█    @X19PCB@X08 T@X47 │                                                         │ @X19ial   @X08█"
  259.     PrintLn "@X1F█    @X19PCB@X08 T@X47 │ @X4FA special thanks to The Wizard's BBS (508)481-4693,     @X47│ @X19ial   @X08█"
  260.     PrintLn "@X1F█    @X19PCB@X08 T@X47 │ @X4FBob Neal and Jay Parekh for there suggestions and beta  @X47│ @X19ial   @X08█"
  261.     PrintLn "@X1F█    @X19PCB@X08 T@X47 │ @X4Ftesting of this program.                                @X47│ @X19ial   @X08█"
  262.     PrintLn "@X1F█    @X19PCB@X08 T@X47 │                                                         │ @X19ial   @X08█"
  263.     PrintLn "@X1F█    @X19PCB@X07 @X08T@X47 │                                                         │ @X19ial   @X08█@X0B"
  264.     PrintLn "@X1F█    @X19PCB@X07 @X08T@X47 │          @X4APCB Tutorial (C)1995 Equinox Software          @X47│ @X19ial   @X08█@X0B"
  265.     PrintLn "@X1F█    @X19PCB@X07 @X08T@X47 └─────────────────────────────────────────────────────────┘ @X19ial   @X08█@X0B"
  266.     PrintLn "@X1F█    @X19PCB@X07 @X08Tutorial        PCB Tutorial      PCB Tutorail       PCB Tuto@X19rial   @X08█"
  267.     PrintLn "@X1F█    @X19PCB Tutorial        PCB Tutorial      PCB Tutorial       PCB Tutorial   @X08█@X0B"
  268.     PrintLn "@X1F█  @X17                                                                          @X08█"
  269.     PrintLn "@X1F█@X18▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█@X07"
  270.     PrintLn "@WAIT@", "@PON@"
  271.     If (STRING002 <> STRING003) Then
  272.         Goto LABEL019
  273.     ElseIf (STRING002 == STRING003) Then
  274.         Goto LABEL020
  275.     Endif
  276.     :LABEL019
  277.     AnsiPos 27, 5
  278.     PrintLn "@XCE UNREGISTERED EVALUATION COPY @X07"
  279.     AnsiPos 1, 21
  280.     PrintLn "        @X0ASupport Shareware - Ask your SysOp to register this program@X07"
  281.     Delay 18 * 15
  282.     :LABEL020
  283.     PrintLn 
  284.     PrintLn "Now returning to the @BOARDNAME@...."
  285.     Log "      Back from DOS at @SYSTIME@", 1
  286.     Delay 17
  287.     KbdStuff "MENU"
  288.  
  289. ;------------------------------------------------------------------------------
  290. ;
  291. ; Usage report (before postprocessing)
  292. ;
  293. ; ■ Statements used :
  294. ;
  295. ;    1       End
  296. ;    59      Goto 
  297. ;    6       Let 
  298. ;    101     PrintLn 
  299. ;    19      If 
  300. ;    1       FOpen 
  301. ;    5       FGet 
  302. ;    2       Log 
  303. ;    4       Delay 
  304. ;    1       KbdStuff 
  305. ;    7       Call 
  306. ;    31      AnsiPos 
  307. ;    1       FCloseAll
  308. ;    1       EndFunc
  309. ;
  310. ;
  311. ; ■ Functions used :
  312. ;
  313. ;    2       *
  314. ;    1       /
  315. ;    10      +
  316. ;    15      ==
  317. ;    4       <>
  318. ;    17      !
  319. ;    1       ||
  320. ;    1       Len(
  321. ;    10      Upper()
  322. ;    1       Chr()
  323. ;    1       Inkey()
  324. ;    1       PCBDat()
  325. ;    8       PPEPath()
  326. ;    1       ReadLine()
  327. ;    1       AnsiOn()
  328. ;
  329. ;------------------------------------------------------------------------------
  330. ;
  331. ; Analysis flags : Cd
  332. ;
  333. ; C - Call child PPE ■ 3
  334. ;     This is usually normal, but may be a tricky way to launch some
  335. ;     sysop-only commands.
  336. ;     ■ Search for : CALL
  337. ;
  338. ; d - Access PCBOARD.DAT ■ 2
  339. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  340. ;     for many PPE so they can find various informations on the system
  341. ;     (system paths, max number of lines in messages, ...) but it may also
  342. ;     be a way to gather vital informations.
  343. ;     ■ Search for : PCBDAT()
  344. ;
  345. ;------------------------------------------------------------------------------
  346. ;
  347. ; Postprocessing report
  348. ;
  349. ;    0       For/Next
  350. ;    2       While/EndWhile
  351. ;    15      If/Then or If/Then/Else
  352. ;    0       Select Case
  353. ;
  354. ;------------------------------------------------------------------------------
  355. ;                 AEGiS Corp - Break the routines, code against the machines!
  356. ;------------------------------------------------------------------------------
  357.