home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / SCUM_FPS.ZIP / UPLOADS.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1994-01-28  |  1KB  |  102 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.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     String   STRING002
  24.     String   STRING003
  25.     String   STRING004
  26.     String   STRING005
  27.     String   STRING006
  28.     String   STRING007
  29.  
  30. ;------------------------------------------------------------------------------
  31.  
  32.     STRING006 = TokenStr()
  33.     INTEGER003 = STRING006
  34.     INTEGER002 = ReadLine(PPEPath() + "PCBFPS.CFG", 4)
  35.     INTEGER001 = INTEGER003 / INTEGER002
  36.     GetUser
  37.     STRING005 = U_Notes(3)
  38.     Tokenize STRING005
  39.     If (TokCount() == 3) Then
  40.         STRING003 = GetToken()
  41.         STRING002 = GetToken()
  42.         STRING004 = GetToken()
  43.     Endif
  44.     INTEGER004 = STRING002
  45.     INTEGER004 = INTEGER004 + INTEGER001
  46.     STRING002 = INTEGER004
  47.     U_Notes(3) = STRING003 + " " + STRING002 + " " + STRING004
  48.     STRING007 = INTEGER001
  49.     PutUser
  50.     DispStr "@X03You have been awarded @X0E" + STRING007 + " @X03upload file point credits!"
  51.     Newline
  52.  
  53. ;------------------------------------------------------------------------------
  54. ;
  55. ; Usage report (before postprocessing)
  56. ;
  57. ; ■ Statements used :
  58. ;
  59. ;    1       Goto 
  60. ;    13      Let 
  61. ;    1       If 
  62. ;    1       GetUser
  63. ;    1       PutUser
  64. ;    1       Newline
  65. ;    1       Tokenize 
  66. ;    1       DispStr 
  67. ;
  68. ;
  69. ; ■ Functions used :
  70. ;
  71. ;    1       /
  72. ;    8       +
  73. ;    1       ==
  74. ;    1       !
  75. ;    1       PPEPath()
  76. ;    1       ReadLine()
  77. ;    3       GetToken()
  78. ;    1       TokenStr()
  79. ;    1       TokCount()
  80. ;
  81. ;------------------------------------------------------------------------------
  82. ;
  83. ; Analysis flags : W
  84. ;
  85. ; W - Write user ■ 5
  86. ;     Program writes a user record. Although this may be normal for a
  87. ;     User Editor, it may also be a way to modify an account level.
  88. ;     ■ Search for : PUTUSER
  89. ;
  90. ;------------------------------------------------------------------------------
  91. ;
  92. ; Postprocessing report
  93. ;
  94. ;    0       For/Next
  95. ;    0       While/EndWhile
  96. ;    1       If/Then or If/Then/Else
  97. ;    0       Select Case
  98. ;
  99. ;------------------------------------------------------------------------------
  100. ;                 AEGiS Corp - Break the routines, code against the machines!
  101. ;------------------------------------------------------------------------------
  102.