home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / TUTOR151.ZIP / FIDO.MOD (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1995-06-09  |  14.2 KB  |  446 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.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.     String   STRING006
  25.     String   STRING007
  26.     String   STRING008
  27.     String   STRING009
  28.     String   STRING010
  29.     String   STRING011
  30.     String   STRING012
  31.     String   STRING013
  32.     String   STRING014
  33.     String   STRING015
  34.     String   STRING016
  35.     String   STRING017
  36.     String   STRING018
  37.     Declare  Function FUNCTION001() String
  38.  
  39. ;------------------------------------------------------------------------------
  40.  
  41.     FOpen 1, PPEPath() + "TUTOR.CFG", 0, 0
  42.     FGet 1, STRING001
  43.     FGet 1, STRING002
  44.     FGet 1, STRING004
  45.     FGet 1, STRING003
  46.     FGet 1, STRING005
  47.     FGet 1, STRING007
  48.     FGet 1, STRING008
  49.     FGet 1, STRING009
  50.     FGet 1, STRING010
  51.     FGet 1, STRING011
  52.     FGet 1, STRING012
  53.     FGet 1, STRING013
  54.     FGet 1, STRING014
  55.     FGet 1, STRING015
  56.     FGet 1, STRING016
  57.     FGet 1, STRING017
  58.     FCloseAll
  59.     Select Case (STRING017)
  60.         Case "YES"
  61.             Goto LABEL002
  62.         Case "NO"
  63.     End Select
  64.     :LABEL001
  65.     AnsiPos 1, 4
  66.     PrintLn "@X70│                 @X70│@X01  @X17║@X3B@X01░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
  67.     AnsiPos 1, 5
  68.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07@X40┌──────────────────────────────────────────────────@X4C┐@X37@X01░░@X17║@X07"
  69.     AnsiPos 1, 6
  70.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07@X40│                                                  @X4C│@X01░░@X17║@X07"
  71.     AnsiPos 1, 7
  72.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07@X40│                                                  @X4C│@X01░░@X17║@X07"
  73.     AnsiPos 1, 8
  74.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07@X40│                                                  @X4C│@X01░░@X17║@X07"
  75.     AnsiPos 1, 9
  76.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07@X40│                                                  @X4C│@X01░░@X17║@X07"
  77.     AnsiPos 1, 10
  78.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07@X40│@X4FWe are sorry but, this area of the tutorial is @X4Enot@X4C│@X01░░@X17║@X07"
  79.     AnsiPos 1, 11
  80.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07@X40│ @X4Fcurrently available because there are @X4Eno @X4FFIDOnet @X4C│@X01░░@X17║@X07"
  81.     AnsiPos 1, 12
  82.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07@X40│        @X4Fconferences online at this time.          @X4C│@X01░░@X17║@X07"
  83.     AnsiPos 1, 13
  84.     PrintLn "@X70│                 │@X01  @X17║@X01░░@X07@X40│                                                  @X4C│@X01░░@X17║@X07"
  85.     AnsiPos 1, 14
  86.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07@X40│                                                  @X4C│@X01░░@X17║@X07"
  87.     AnsiPos 1, 15
  88.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07@X40│                                                  @X4C│@X01░░@X17║@X07"
  89.     AnsiPos 1, 16
  90.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07@X40│                                                  @X4C│@X01░░@X17║@X07"
  91.     AnsiPos 1, 17
  92.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07@X40│                                                  @X4C│@X01░░@X17║@X07"
  93.     AnsiPos 1, 18
  94.     PrintLn "@X70│                 @X70│@X0F  @X17║@X01░░@X07@X40│                                                  @X4C│@X01░░@X17║@X07"
  95.     AnsiPos 1, 19
  96.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X40└@X4C──────────────────────────────────────────────────┘@X01░░@X17║@X07"
  97.     AnsiPos 1, 20
  98.     PrintLn "@X70│                 │@X01  @X17║@X01░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
  99.     AnsiPos 1, 21
  100.     PrintLn "@X70└──── Options ────┘@X01  @X17╚════════════════════════════════════════════════════════╝@X07"
  101.     AnsiPos 1, 22
  102.     PrintLn "                                                            "
  103.     AnsiPos 1, 22
  104.     Wait
  105.     Goto LABEL007
  106.     :LABEL002
  107.     AnsiPos 1, 4
  108.     PrintLn "@X70│ @X6F @X60(@X6FM@X60)@X67ain Menu @X6F @X78▄ @X70│@X01  @X17║@X05░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
  109.     AnsiPos 1, 5
  110.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X09@X05░░@X0D┌──────────────────────────────────────────────────┐@X05░░@X17║@X07"
  111.     AnsiPos 1, 6
  112.     PrintLn "@X70│                 @X70│@X01  @X17║@X09@X05░░@X0D│@X4F                     FIDONET                      @X0D│@X05░░@X17║@X07"
  113.     AnsiPos 1, 7
  114.     PrintLn "@X70│                 @X70│@X01  @X17║@X09@X05░░@X0D│                                                  @X0D│@X05░░@X17║@X07"
  115.     AnsiPos 1, 8
  116.     PrintLn "@X70│                 @X70│@X01  @X17║@X05░░@X0D│   @X0C[@X0E1@X0C] @X0FWhat is the FIDOnet?                       @X0D│@X05░░@X17║@X07"
  117.     AnsiPos 1, 9
  118.     PrintLn "@X70│                 @X70│@X01  @X17║@X05░░@X0D│   @X0C[@X0E2@X0C] @X0F@X0BFIDOnet Etiquette @X0F- How to properly use    @X0D│@X05░░@X17║@X07"
  119.     AnsiPos 1, 10
  120.     PrintLn "@X70│                 @X70│@X01  @X17║@X05░░@X0D│       @X0FFIDOnet.                                   @X0D│@X05░░@X17║@X07"
  121.     AnsiPos 1, 11
  122.     PrintLn "@X70│                 @X70│@X01  @X17║@X05░░@X0D│   @X0C[@X0E3@X0C] @X0FFREQ's (File Requests)                     @X0D│@X05░░@X17║@X07"
  123.     AnsiPos 1, 12
  124.     PrintLn "@X70│                 @X70│@X01  @X17║@X05░░@X0D│                                                  @X0D│@X05░░@X17║@X07"
  125.     AnsiPos 1, 13
  126.     PrintLn "@X70│                 │@X01  @X17║@X05░░@X0D│                                                  @X0D│@X05░░@X17║@X07"
  127.     AnsiPos 1, 14
  128.     PrintLn "@X70│                 @X70│@X01  @X17║@X05░░@X0D│                                                  @X0D│@X05░░@X17║@X07"
  129.     AnsiPos 1, 15
  130.     PrintLn "@X70│                 @X70│@X01  @X17║@X05░░@X0D│                                                  @X0D│@X05░░@X17║@X07"
  131.     AnsiPos 1, 16
  132.     PrintLn "@X70│                 @X70│@X01  @X17║@X05░░@X0D│                                                  @X0D│@X05░░@X17║@X07"
  133.     AnsiPos 1, 17
  134.     PrintLn "@X70│                 @X70│@X01  @X17║@X05░░@X0D│                                                  @X0D│@X05░░@X17║@X07"
  135.     AnsiPos 1, 18
  136.     PrintLn "@X70│                 @X70│@X0F  @X17║@X05░░@X0D│                                                  @X0D│@X05░░@X17║@X07"
  137.     AnsiPos 1, 19
  138.     PrintLn "@X70│                 @X70│@X01  @X17║@X05░░@X0D└──────────────────────────────────────────────────┘@X05░░@X17║@X07"
  139.     AnsiPos 1, 20
  140.     PrintLn "@X70│                 │@X01  @X17║@X0B@X05░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
  141.     AnsiPos 1, 21
  142.     PrintLn "@X70└──── Options ────┘@X01  @X17╚════════════════════════════════════════════════════════╝@X07"
  143.     AnsiPos 1, 22
  144.     PrintLn "                                                            "
  145.     AnsiPos 1, 22
  146.     STRING006 = " "
  147.     While (Upper(STRING006) <> "E") Do
  148.         STRING006 = FUNCTION001()
  149.         If (STRING006 == "END") Goto LABEL007
  150.         If (STRING006 == Chr(13)) Goto LABEL006
  151.         If (Upper(STRING006) == "1") Then
  152.             Goto LABEL003
  153.             Continue
  154.         Endif
  155.         If (Upper(STRING006) == "2") Then
  156.             Goto LABEL004
  157.             Continue
  158.         Endif
  159.         If (Upper(STRING006) == "3") Then
  160.             Goto LABEL005
  161.             Continue
  162.         Endif
  163.         If (Upper(STRING006) == "M") Then
  164.             Goto LABEL007
  165.             Continue
  166.         Endif
  167.         If ((Upper(STRING006) == "E") || (Upper(STRING006) == "e")) Then
  168.             Goto LABEL007
  169.         Endif
  170.     EndWhile
  171.     End
  172.  
  173. ;------------------------------------------------------------------------------
  174.  
  175.     Function FUNCTION001() String
  176.  
  177.     While (FUNCTION001 == "") Do
  178.         FUNCTION001 = Inkey()
  179.     EndWhile
  180.  
  181.     EndFunc
  182.  
  183.     :LABEL003
  184.     AnsiPos 1, 4
  185.     PrintLn "@X0F@X70└─  @X7F100% Viewed  @X70─┘@X07  @X17║ @X0A @X0EWHAT IS FIDONET?                                     @X17 ║@X07"
  186.     AnsiPos 1, 5
  187.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  188.     AnsiPos 1, 6
  189.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  190.     AnsiPos 1, 7
  191.     PrintLn "@X17║ @X07│ @X0AFIDOnet @X0Fis a amateur network started by Tom Jennings, who wrote         @X07│@X17 ║@X07"
  192.     AnsiPos 1, 8
  193.     PrintLn "@X17║ @X07│ @X0Fsoftware called FIDO. Thus FIDOnet is a copyrighted term. It started as @X07@X07│@X17 ║@X07"
  194.     AnsiPos 1, 9
  195.     PrintLn "@X17║ @X07│ @X0Fa way for SysOps to communicate with each other.                        @X07│@X17 ║@X07"
  196.     AnsiPos 1, 10
  197.     PrintLn "@X17║ @X07│ @X0FNetmail was (and still is) its primary responsibility.                  @X07│@X17 ║@X07"
  198.     AnsiPos 1, 11
  199.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  200.     AnsiPos 1, 12
  201.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  202.     AnsiPos 1, 13
  203.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  204.     AnsiPos 1, 14
  205.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  206.     AnsiPos 1, 15
  207.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  208.     AnsiPos 1, 16
  209.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  210.     AnsiPos 1, 17
  211.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  212.     AnsiPos 1, 18
  213.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  214.     AnsiPos 1, 19
  215.     PrintLn "@X17║ @X07│                                     Text by: Donna Ransdell 1:202/1311  @X07│@X17 ║@X07"
  216.     AnsiPos 1, 20
  217.     PrintLn "@X17║ @X07└─────────────────────────────────────────────────────────────────────────┘@X17 ║@X07"
  218.     AnsiPos 1, 21
  219.     PrintLn "@X17╚═════════════════════════════════════════════════════════════════════════════╝@X07"
  220.     AnsiPos 1, 22
  221.     PrintLn "                                                            "
  222.     AnsiPos 1, 22
  223.     Wait
  224.     Goto LABEL002
  225.     :LABEL004
  226.     AnsiPos 1, 4
  227.     PrintLn "@X0F@X70└─  @X7F 33% Viewed  @X70─┘@X07  @X17║ @X0A @X0EHow To Use FIDOnet                                   @X17 ║@X07"
  228.     AnsiPos 1, 5
  229.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  230.     AnsiPos 1, 6
  231.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  232.     AnsiPos 1, 7
  233.     PrintLn "@X17║ @X07│ @X0FConferences on FIDOnet are known as @X0F'@X0Bechoes@X0F'.                           @X07│@X17 ║@X07"
  234.     AnsiPos 1, 8
  235.     PrintLn "@X17║ @X07│ @X0FThere are three @X0C(@X0E3@X0C) @X0Ftypes of echoes,  Local, Regional and National/     @X07@X07│@X17 ║@X07"
  236.     AnsiPos 1, 9
  237.     PrintLn "@X17║ @X07│ @X0FInternational.                                                          @X07│@X17 ║@X07"
  238.     AnsiPos 1, 10
  239.     PrintLn "@X17║ @X07│ @X0FLocal echoes are only carried on local bbs systems. A regional echo is  @X07│@X17 ║@X07"
  240.     AnsiPos 1, 11
  241.     PrintLn "@X17║ @X07│ @X0Fan echo that is carried in only one net or region. A national/inter-    @X07│@X17 ║@X07"
  242.     AnsiPos 1, 12
  243.     PrintLn "@X17║ @X07│ @X0Fnational echo goes out of the region and you can find yourself chatting @X07│@X17 ║@X07"
  244.     AnsiPos 1, 13
  245.     PrintLn "@X17║ @X07│ @X0Fwith someone across the country or in another country.                  @X07│@X17 ║@X07"
  246.     AnsiPos 1, 14
  247.     PrintLn "@X17║ @X07│ @X0F                                                                        @X07│@X17 ║@X07"
  248.     AnsiPos 1, 15
  249.     PrintLn "@X17║ @X07│ @X0F@X0AHow are echos run?                                                      @X07│@X17 ║@X07"
  250.     AnsiPos 1, 16
  251.     PrintLn "@X17║ @X07│ @X0FEach echo has a moderator or host/hostess, that sets the tone for the   @X07│@X17 ║@X07"
  252.     AnsiPos 1, 17
  253.     PrintLn "@X17║ @X07│ @X0Fparticipants.  Echo rules and guidelines are usually posted monthly.    @X07│@X17 ║@X07"
  254.     AnsiPos 1, 18
  255.     PrintLn "@X17║ @X07│ @X0FA list of moderators can be found in a file called @X0BELIST @X0Fwhich is also  @X07│@X17 ║@X07"
  256.     AnsiPos 1, 19
  257.     PrintLn "@X17║ @X07│ @X0Fpublished monthly.                                                      @X07│@X17 ║@X07"
  258.     AnsiPos 1, 20
  259.     PrintLn "@X17║ @X07└─────────────────────────────────────────────────────────────────────────┘@X17 ║@X07"
  260.     AnsiPos 1, 21
  261.     PrintLn "@X17╚═════════════════════════════════════════════════════════════════════════════╝@X07"
  262.     AnsiPos 1, 22
  263.     PrintLn "                                                            "
  264.     AnsiPos 1, 22
  265.     Wait
  266.     AnsiPos 1, 4
  267.     PrintLn "@X0F@X70└─  @X7F 67% Viewed  @X70─┘@X07  @X17║ @X0A @X0EHow To Use FIDOnet                                   @X17 ║@X07"
  268.     AnsiPos 1, 5
  269.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  270.     AnsiPos 1, 6
  271.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  272.     AnsiPos 1, 7
  273.     PrintLn "@X17║ @X07│ @X0AWhat kinds of rules are common?                                         @X07│@X17 ║@X07"
  274.     AnsiPos 1, 8
  275.     PrintLn "@X17║ @X07│ @X0FMost moderators seem to use the Golden rule as an example:              @X07@X07│@X17 ║@X07"
  276.     AnsiPos 1, 9
  277.     PrintLn "@X17║ @X07│ @X0DDo (write) unto others as you would have them do (write) unto you.      @X07│@X17 ║@X07"
  278.     AnsiPos 1, 10
  279.     PrintLn "@X17║ @X07│ @X0FBe nice, play fair, no foul language, stay on topic and dont over       @X07│@X17 ║@X07"
  280.     AnsiPos 1, 11
  281.     PrintLn "@X17║ @X07│ @X0Fquote.                                                                  @X07│@X17 ║@X07"
  282.     AnsiPos 1, 12
  283.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  284.     AnsiPos 1, 13
  285.     PrintLn "@X17║ @X07│@X0A MESSAGE TRAFFIC                                                         @X07│@X17 ║@X07"
  286.     AnsiPos 1, 14
  287.     PrintLn "@X17║ @X07│ @X0FAll bbs's in FIDOnet have an address. It is broken down into            @X07│@X17 ║@X07"
  288.     AnsiPos 1, 15
  289.     PrintLn "@X17║ @X07│ @X0F@X0BZONE@X0C: @X0BNET@X0C/@X0BNODE @X0Fnumber, @X0C/@X0BPOINT @X0Fnumber (optional).                        @X07│@X17 ║@X07"
  290.     AnsiPos 1, 16
  291.     PrintLn "@X17║ @X07│ @X0FFor example @X0B1@X0C:@X0B202@X0C/@X0B511                                                   @X07│@X17 ║@X07"
  292.     AnsiPos 1, 17
  293.     PrintLn "@X17║ @X07│ @X0FZone 1 signifies North America, 202 is NET202 (all of area code 619)    @X07│@X17 ║@X07"
  294.     AnsiPos 1, 18
  295.     PrintLn "@X17║ @X07│ @X0F511 is a specific 'box' number within NET 202.                          @X07│@X17 ║@X07"
  296.     AnsiPos 1, 19
  297.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  298.     AnsiPos 1, 20
  299.     PrintLn "@X17║ @X07└─────────────────────────────────────────────────────────────────────────┘@X17 ║@X07"
  300.     AnsiPos 1, 21
  301.     PrintLn "@X17╚═════════════════════════════════════════════════════════════════════════════╝@X07"
  302.     AnsiPos 1, 22
  303.     PrintLn "                                                            "
  304.     AnsiPos 1, 22
  305.     Wait
  306.     AnsiPos 1, 4
  307.     PrintLn "@X0F@X70└─  @X7F100% Viewed  @X70─┘@X07  @X17║ @X0A @X0EHow To Use The FIDOnet                               @X17 ║@X07"
  308.     AnsiPos 1, 5
  309.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  310.     AnsiPos 1, 6
  311.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  312.     AnsiPos 1, 7
  313.     PrintLn "@X17║ @X07│ @X0AWhat is NETMAIL and how does it differ from ECHOMAIL?                   @X07│@X17 ║@X07"
  314.     AnsiPos 1, 8
  315.     PrintLn "@X17║ @X07│@X0F Netmail is a personal message. If you want to send someone a message    @X07@X07│@X17 ║@X07"
  316.     AnsiPos 1, 9
  317.     PrintLn "@X17║ @X07│@X0F that you don't want everyone to read send it NETMAIL if you can.        @X07│@X17 ║@X07"
  318.     AnsiPos 1, 10
  319.     PrintLn "@X17║ @X07│@X0F Echomail is a public messages that can be read by everyone.             @X07│@X17 ║@X07"
  320.     AnsiPos 1, 11
  321.     PrintLn "@X17║ @X07│@X0F                                                                         @X07│@X17 ║@X07"
  322.     AnsiPos 1, 12
  323.     PrintLn "@X17║ @X07│@X0F                                                                         @X07│@X17 ║@X07"
  324.     AnsiPos 1, 13
  325.     PrintLn "@X17║ @X07│@X0F                                                                         @X07│@X17 ║@X07"
  326.     AnsiPos 1, 14
  327.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  328.     AnsiPos 1, 15
  329.     PrintLn "@X17║ @X07│ @X0A                                                                        @X07│@X17 ║@X07"
  330.     AnsiPos 1, 16
  331.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  332.     AnsiPos 1, 17
  333.     PrintLn "@X17║ @X07│ @X0F                                                                        @X07│@X17 ║@X07"
  334.     AnsiPos 1, 18
  335.     PrintLn "@X17║ @X07│ @X0F                                                                        @X07│@X17 ║@X07"
  336.     AnsiPos 1, 19
  337.     PrintLn "@X17║ @X07│ @X0F                                                                        @X07│@X17 ║@X07"
  338.     AnsiPos 1, 20
  339.     PrintLn "@X17║ @X07└─────────────────────────────────────────────────────────────────────────┘@X17 ║@X07"
  340.     AnsiPos 1, 21
  341.     PrintLn "@X17╚═════════════════════════════════════════════════════════════════════════════╝@X07"
  342.     AnsiPos 1, 22
  343.     PrintLn "                                                            "
  344.     AnsiPos 1, 22
  345.     Wait
  346.     Goto LABEL002
  347.     :LABEL005
  348.     AnsiPos 1, 4
  349.     PrintLn "@X0F@X70└─  @X7F100% Viewed  @X70─┘@X07  @X17║ @X0A @X0EFREQ's (File Requests)                               @X17 ║@X07"
  350.     AnsiPos 1, 5
  351.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  352.     AnsiPos 1, 6
  353.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  354.     AnsiPos 1, 7
  355.     PrintLn "@X17║ @X07│ @X0F@X0BFREQ @X0Fis an abbreviation for FILE REQUEST.                               @X07│@X17 ║@X07"
  356.     AnsiPos 1, 8
  357.     PrintLn "@X17║ @X07│ @X0FTo aid in exchanging files, a SysOp @X0F(@X0Dsystem operator@X0F) may access        @X07@X07│@X17 ║@X07"
  358.     AnsiPos 1, 9
  359.     PrintLn "@X17║ @X07│ @X0Fanother SysOps files without logging onto the bbs and going through     @X07│@X17 ║@X07"
  360.     AnsiPos 1, 10
  361.     PrintLn "@X17║ @X07│ @X0Fthe download motions.                                                   @X07│@X17 ║@X07"
  362.     AnsiPos 1, 11
  363.     PrintLn "@X17║ @X07│ @X0FThis saves time and ultimatley, phone bills.                            @X07│@X17 ║@X07"
  364.     AnsiPos 1, 12
  365.     PrintLn "@X17║ @X07│ @X0FIf you wish to ask your SysOp to @X0BFREQ @X0Fa file for you, be sure to have   @X07│@X17 ║@X07"
  366.     AnsiPos 1, 13
  367.     PrintLn "@X17║ @X07│ @X0Fthe full name of the file you want @X0C(@X0Aincluding proper extension@X0C) @X0Fand the @X07│@X17 ║@X07"
  368.     AnsiPos 1, 14
  369.     PrintLn "@X17║ @X07│ @X0Fsystems fido address that has the file.                                 @X07│@X17 ║@X07"
  370.     AnsiPos 1, 15
  371.     PrintLn "@X17║ @X07│ @X0F                                                                        @X07│@X17 ║@X07"
  372.     AnsiPos 1, 16
  373.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  374.     AnsiPos 1, 17
  375.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  376.     AnsiPos 1, 18
  377.     PrintLn "@X17║ @X07│ @X0F                                                                        @X07│@X17 ║@X07"
  378.     AnsiPos 1, 19
  379.     PrintLn "@X17║ @X07│ @X0F                                                                        @X07│@X17 ║@X07"
  380.     AnsiPos 1, 20
  381.     PrintLn "@X17║ @X07└─────────────────────────────────────────────────────────────────────────┘@X17 ║@X07"
  382.     AnsiPos 1, 21
  383.     PrintLn "@X17╚═════════════════════════════════════════════════════════════════════════════╝@X07"
  384.     AnsiPos 1, 22
  385.     PrintLn "                                                            "
  386.     AnsiPos 1, 22
  387.     Wait
  388.     Goto LABEL002
  389.     :LABEL006
  390.     AnsiPos 26, 17
  391.     PrintLn "@X0B@X4F   Please @XCEmake your selection @X4Ffrom the catagories @X07"
  392.     AnsiPos 26, 18
  393.     PrintLn "@X0B@X4F               ABOVE or on the LEFT.              @X07"
  394.     Delay 100
  395.     Goto LABEL002
  396.     :LABEL007
  397.  
  398. ;------------------------------------------------------------------------------
  399. ;
  400. ; Usage report (before postprocessing)
  401. ;
  402. ; ■ Statements used :
  403. ;
  404. ;    1       End
  405. ;    6       Wait
  406. ;    30      Goto 
  407. ;    3       Let 
  408. ;    135     PrintLn 
  409. ;    11      If 
  410. ;    1       FOpen 
  411. ;    16      FGet 
  412. ;    1       Delay 
  413. ;    142     AnsiPos 
  414. ;    1       FCloseAll
  415. ;    1       EndFunc
  416. ;
  417. ;
  418. ; ■ Functions used :
  419. ;
  420. ;    1       +
  421. ;    11      ==
  422. ;    1       <>
  423. ;    9       !
  424. ;    1       ||
  425. ;    7       Upper()
  426. ;    1       Chr()
  427. ;    1       Inkey()
  428. ;    1       PPEPath()
  429. ;
  430. ;------------------------------------------------------------------------------
  431. ;
  432. ; Analysis flags : No flag
  433. ;
  434. ;------------------------------------------------------------------------------
  435. ;
  436. ; Postprocessing report
  437. ;
  438. ;    0       For/Next
  439. ;    2       While/EndWhile
  440. ;    5       If/Then or If/Then/Else
  441. ;    1       Select Case
  442. ;
  443. ;------------------------------------------------------------------------------
  444. ;                 AEGiS Corp - Break the routines, code against the machines!
  445. ;------------------------------------------------------------------------------
  446.