home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 15 / CD_ASCQ_15_070894.iso / vrac / rh_logn1.zip / 148.PPE (.txt) next >
PCBoard Programming Language Executable  |  1994-06-05  |  1KB  |  101 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.     String   STRING006
  25.     String   STRING007
  26.     String   STRING008
  27.     String   STRING009
  28.  
  29. ;------------------------------------------------------------------------------
  30.  
  31.     FOpen 1, PPEPath() + "rh_login.CFG", 0, 0
  32.     FGet 1, STRING001
  33.     FGet 1, STRING001
  34.     FGet 1, STRING001
  35.     FGet 1, STRING003
  36.     FGet 1, STRING004
  37.     FGet 1, STRING005
  38.     FGet 1, STRING009
  39.     FGet 1, STRING006
  40.     FGet 1, STRING007
  41.     FClose 1
  42.     STRING002 = "ABCDEFGHIJKLMNOPQRSTUVWXYZazcdefghijklmnopqrstuvwxyz&é'(⌡è!çà)-µ1234567890°_£|@#^{<\>$[]∙*ù%=:;,?./+"
  43.     GetUser
  44.     If (STRING003 == "Y") Then
  45.         AnsiPos STRING004, STRING005
  46.         Print STRING009 + String(U_City)
  47.     Endif
  48.     AnsiPos STRING006, STRING007
  49.     Print "            "
  50.     AnsiPos STRING006, STRING007
  51.     InputStr "", STRING008, 128, 10, STRING002, 8 + 16 + 4096 + 1
  52.     AnsiPos 1, 21
  53.     KbdStuff STRING008 + Chr(13)
  54.     End
  55.  
  56. ;------------------------------------------------------------------------------
  57. ;
  58. ; Usage report (before postprocessing)
  59. ;
  60. ; ■ Statements used :
  61. ;
  62. ;    1       End
  63. ;    1       Goto 
  64. ;    1       Let 
  65. ;    2       Print 
  66. ;    1       If 
  67. ;    1       FOpen 
  68. ;    1       FClose 
  69. ;    9       FGet 
  70. ;    1       GetUser
  71. ;    1       InputStr 
  72. ;    1       KbdStuff 
  73. ;    4       AnsiPos 
  74. ;
  75. ;
  76. ; ■ Functions used :
  77. ;
  78. ;    6       +
  79. ;    1       ==
  80. ;    1       !
  81. ;    1       Chr()
  82. ;    1       String()
  83. ;    1       PPEPath()
  84. ;
  85. ;------------------------------------------------------------------------------
  86. ;
  87. ; Analysis flags : No flag
  88. ;
  89. ;------------------------------------------------------------------------------
  90. ;
  91. ; Postprocessing report
  92. ;
  93. ;    0       For/Next
  94. ;    0       While/EndWhile
  95. ;    1       If/Then or If/Then/Else
  96. ;    0       Select Case
  97. ;
  98. ;------------------------------------------------------------------------------
  99. ;                 AEGiS Corp - Break the routines, code against the machines!
  100. ;------------------------------------------------------------------------------
  101.