home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 15 / CD_ASCQ_15_070894.iso / vrac / rh_logn1.zip / 53.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-06-05  |  1KB  |  88 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.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.  
  25. ;------------------------------------------------------------------------------
  26.  
  27.     FOpen 1, PPEPath() + "rh_login.CFG", 0, 0
  28.     FGet 1, STRING001
  29.     FGet 1, STRING001
  30.     FGet 1, STRING001
  31.     FGet 1, STRING001
  32.     FGet 1, STRING001
  33.     FGet 1, STRING001
  34.     FGet 1, STRING001
  35.     FGet 1, STRING001
  36.     FGet 1, STRING001
  37.     FGet 1, STRING001
  38.     FGet 1, STRING001
  39.     FGet 1, STRING001
  40.     FGet 1, STRING001
  41.     FGet 1, STRING001
  42.     FGet 1, STRING001
  43.     FGet 1, STRING002
  44.     FGet 1, STRING003
  45.     FGet 1, STRING004
  46.     FClose 1
  47.     AnsiPos STRING002, STRING003
  48.     InputStr STRING004, STRING005, 128, 1, "CR", 8 + 16 + 4096
  49.     KbdStuff STRING005 + Chr(13)
  50.     AnsiPos 1, 21
  51.  
  52. ;------------------------------------------------------------------------------
  53. ;
  54. ; Usage report (before postprocessing)
  55. ;
  56. ; ■ Statements used :
  57. ;
  58. ;    1       FOpen 
  59. ;    1       FClose 
  60. ;    18      FGet 
  61. ;    1       InputStr 
  62. ;    1       KbdStuff 
  63. ;    2       AnsiPos 
  64. ;
  65. ;
  66. ; ■ Functions used :
  67. ;
  68. ;    4       +
  69. ;    1       Chr()
  70. ;    1       PPEPath()
  71. ;
  72. ;------------------------------------------------------------------------------
  73. ;
  74. ; Analysis flags : No flag
  75. ;
  76. ;------------------------------------------------------------------------------
  77. ;
  78. ; Postprocessing report
  79. ;
  80. ;    0       For/Next
  81. ;    0       While/EndWhile
  82. ;    0       If/Then or If/Then/Else
  83. ;    0       Select Case
  84. ;
  85. ;------------------------------------------------------------------------------
  86. ;                 AEGiS Corp - Break the routines, code against the machines!
  87. ;------------------------------------------------------------------------------
  88.