home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / F / FOOD_NUA.ZIP / NEW_USR.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1997-06-20  |  3KB  |  162 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.3O (Encryption type II) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING001
  20.     String   TSTRING002(99)
  21.     String   STRING003
  22.     String   TSTRING004(99)
  23.     String   TSTRING005(99)
  24.     String   TSTRING006(99)
  25.     String   STRING007
  26.     Int      INT001
  27.     Int      INT002
  28.  
  29. ;------------------------------------------------------------------------------
  30.  
  31.     Cls
  32.     DispFile PPEPath() + "new_usr.pcb", 1
  33.     FOpen 0, PPEPath() + "new_usr.cfg", 2, 1
  34.     FGet 0, STRING001
  35.     FGet 0, INT001
  36.     For INT002 = 1 To INT001
  37.         FGet 0, TSTRING002(INT002)
  38.     Next
  39.     FGet 0, STRING003
  40.     FGet 0, STRING007
  41.     FClose 0
  42.     AnsiPos 76, 10
  43.     Print "@X03(@X05", INT001, "@X03)"
  44.     For INT002 = 1 To INT001
  45.         AnsiPos 42, 5
  46.         Print "                                     "
  47.         AnsiPos 44, 6
  48.         Print "                                   "
  49.         AnsiPos 43, 7
  50.         Print "                                    "
  51.         AnsiPos 43, 8
  52.         Print "                                    "
  53.         Print STRING001
  54.         AnsiPos 42, 5
  55.         Print Left(TSTRING002(INT002), Len(TSTRING002(INT002)) - 3)
  56.         AnsiPos 44, 6
  57.         InputStr "_", TSTRING004(INT002), 7, 35, Mask_Ascii() + "¢æå¥ÆÅ", 8
  58.         AnsiPos 43, 7
  59.         If (Right(TSTRING002(INT002), 1) == "2") Then
  60.             InputStr "_", TSTRING005(INT002), 7, 36, Mask_Ascii() + "¢æå¥ÆÅ", 8
  61.         Endif
  62.         If (Right(TSTRING002(INT002), 1) == "3") Then
  63.             AnsiPos 43, 7
  64.             InputStr "_", TSTRING005(INT002), 7, 36, Mask_Ascii() + "¢æå¥ÆÅ", 8
  65.             AnsiPos 43, 8
  66.             InputStr "_", TSTRING006(INT002), 7, 36, Mask_Ascii() + "¢æå¥ÆÅ", 8
  67.         Endif
  68.         AnsiPos 76, 10
  69.         Print "@X03(@X05", INT001 - INT002, "@X03)"
  70.     Next
  71.     Cls
  72.     Print "@X07Saving your application..."
  73.     FCreate 0, PPEPath() + "APPIE.TXT", 1, 1
  74.     FPutLn 0, "New Application:"
  75.     FPutLn 0, "-%--------------------------------------------------------------------%-"
  76.     For INT002 = 1 To INT001
  77.         FPutLn 0, Left(TSTRING002(INT002), Len(TSTRING002(INT002)) - 3)
  78.         FPutLn 0, ">", TSTRING004(INT002)
  79.         If (TSTRING005(INT002) <> "") Then
  80.             FPutLn 0, ">", TSTRING005(INT002)
  81.         Endif
  82.         If (TSTRING006(INT002) <> "") Then
  83.             FPutLn 0, ">", TSTRING006(INT002)
  84.         Endif
  85.         FPutLn 0, "-%--------%-"
  86.     Next
  87.     FPutLn 0, "New User Apply by Codeblaster of Food'97!"
  88.     FClose 0
  89.     PrintLn "DONE!"
  90.     Print "Sending application to sysop..."
  91.     Message 0, STRING007, "CODEBLASTER", "@X0FNEW USER?", "R", 0, 0, 0, PPEPath() + "APPIE.TXT"
  92.     PrintLn "DONE!"
  93.     PrintLn 
  94.     PrintLn STRING003
  95.     DtrOff
  96.     Hangup
  97.  
  98. ;------------------------------------------------------------------------------
  99. ;
  100. ; Usage report (before postprocessing)
  101. ;
  102. ; ■ Statements used :
  103. ;
  104. ;    2       Cls
  105. ;    10      Goto 
  106. ;    6       Let 
  107. ;    10      Print 
  108. ;    4       PrintLn 
  109. ;    7       If 
  110. ;    1       DispFile 
  111. ;    1       FCreate 
  112. ;    1       FOpen 
  113. ;    2       FClose 
  114. ;    5       FGet 
  115. ;    8       FPutLn 
  116. ;    1       Hangup
  117. ;    4       InputStr 
  118. ;    1       DtrOff
  119. ;    11      AnsiPos 
  120. ;    1       Message 
  121. ;
  122. ;
  123. ; ■ Functions used :
  124. ;
  125. ;    11      +
  126. ;    3       -
  127. ;    2       ==
  128. ;    2       <>
  129. ;    3       <
  130. ;    3       <=
  131. ;    6       >=
  132. ;    7       !
  133. ;    6       &&
  134. ;    3       ||
  135. ;    2       Len(
  136. ;    2       Left()
  137. ;    2       Right()
  138. ;    4       Mask_Ascii()
  139. ;    4       PPEPath()
  140. ;
  141. ;------------------------------------------------------------------------------
  142. ;
  143. ; Analysis flags : B
  144. ;
  145. ; B - Brute hangup ■ 1
  146. ;     Program hangup without notification. This may be a good way to
  147. ;     disconnect a user, but if used randomly, may be very nasty
  148. ;     ■ Search for : HANGUP, DTROFF
  149. ;
  150. ;------------------------------------------------------------------------------
  151. ;
  152. ; Postprocessing report
  153. ;
  154. ;    3       For/Next
  155. ;    0       While/EndWhile
  156. ;    4       If/Then or If/Then/Else
  157. ;    0       Select Case
  158. ;
  159. ;------------------------------------------------------------------------------
  160. ;                 AEGiS Corp - Break the routines, code against the machines!
  161. ;------------------------------------------------------------------------------
  162.