home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / TIMEV110.ZIP / TIME.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1994-03-19  |  5KB  |  169 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.     String   STRING001
  23.     String   STRING002
  24.     String   STRING003
  25.     String   STRING004
  26.  
  27. ;------------------------------------------------------------------------------
  28.  
  29.     GetToken STRING002
  30.     STRING003 = "@X0B@BOARDNAME@@X07"
  31.     STRING003 = RTrim(STRING003, " ")
  32.     STRING003 = LTrim(STRING003, " ")
  33.     INTEGER003 = Len(STRING003)
  34.     STRING004 = 40 - INTEGER003 / 2
  35.     If (Upper(STRING002) == "H") Then
  36.         DispFile PPEPath() + "time.hlp", ""
  37.         More
  38.         Goto LABEL001
  39.     ElseIf (STRING002 == "") Then
  40.         Goto LABEL001
  41.     ElseIf ((STRING002 > 0) && (STRING002 < 11)) Then
  42.         INTEGER002 = STRING002
  43.         Goto LABEL002
  44.     Endif
  45.     PrintLn "       @X0FYou can get @X0Ehelp @X0Fby typing @X0BTime H @X0Fat the main prompt"
  46.     :LABEL001
  47.     PrintLn 
  48.     PrintLn "@X07                             ░▒▓█ by DM Soft █▓▒░"
  49.     PrintLn 
  50.     PrintLn "@POS:13@@X0B┌──────────────────────────────────────────────────────┐@X07"
  51.     PrintLn "@POS:13@@X0B│  @X0FThe @X0Acurrent time @X0Ffor this time zone is@X0E " + String(TimeAp(Time())) + "@POS:68@@X0B│@X07"
  52.     PrintLn "@POS:13@@X0B│@POS:68@│@X07"
  53.     PrintLn "@POS:13@@X0B│ @X0F                 You have been on @POS:68@@X0B│@X07"
  54.     PrintLn "@POS:13@@X0B│@POS:68@│@X07"
  55.     PrintLn "@POS:13@@X0B│@POS:" + STRING004 + "@" + STRING003 + "@X0B@POS:68@│@X07"
  56.     PrintLn "@POS:13@@X0B│                                                      │@X07"
  57.     PrintLn "@POS:13@@X0B│                    @X0Ffor@X0D ", MinOn(), "@X0F minutes @POS:68@@X0B│@X07"
  58.     PrintLn "@POS:13@@X0B│@POS:68@│@X07"
  59.     PrintLn "@POS:13@@X0B│@X0F             Your time left is@X0E " + String(MinLeft()) + " @X0Fminutes@X0B @POS:68@│@X07"
  60.     PrintLn "@POS:13@@X0B└──────────────────────────────────────────────────────┘@X07"
  61.     PrintLn 
  62.     STRING001 = "N"
  63.     InputStr "@X0F Would you like to @X0Bwager @X0F10 @X0Eminutes @X0Fof your time for 20 @X0F@X0Eminutes @X0Fin return", STRING001, 15, 1, "YyNnQq", 2 + 4 + 8
  64.     Select Case (STRING001)
  65.         Case "N"
  66.             End
  67.         Case "Q"
  68.             End
  69.         Case "Y"
  70.             PrintLn 
  71.             InputStr "@X0F                  Pick a @X0Enumber @X0Fbetween @X0A1 @X0F@X0Aand 10@X07 ", INTEGER002, 14, 2, Mask_Num(), 2 + 4
  72.             :LABEL002
  73.             PrintLn "@X07"
  74.             INTEGER001 = 1 + Random(9)
  75.             If (INTEGER002 == INTEGER001) Then
  76.                 AdjTime 20
  77.                 PrintLn 
  78.                 PrintLn "            @X0B▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@X07"
  79.                 PrintLn "           @X0B ▒▒                                                      ▒▒@X07"
  80.                 PrintLn "           @X0B ▒▒           @X0FThe number that I have picked is@X0C ", INTEGER001, "@X0B@POS:69@▒▒@X07"
  81.                 PrintLn "           @X0B ▒▒                                                      ▒▒@X07"
  82.                 PrintLn "           @X0B ▒▒         @X0FYou have picked number @X0A", INTEGER002, " @X0Eits a match@X0B@POS:69@▒▒@X07"
  83.                 PrintLn "           @X0B@X0B ▒▒                                                      ▒▒@X07"
  84.                 PrintLn "           @X0B ▒▒  @X0BCongratulations - @X0Fyou won @X0D20 @X0Fminutes online time.  @X0B ▒▒@X07"
  85.                 PrintLn "            @X0B▒▒                                                      ▒▒@X07"
  86.                 PrintLn "           @X0B ▒▒           @X0FYour time left is@X0E " + String(MinLeft()) + "@X0F minutes@X07 @POS:69@@X0B@X0B▒▒@X07"
  87.                 PrintLn "           @X0B ▒▒                                                      ▒▒@X07"
  88.                 PrintLn "           @X0B ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@X07"
  89.                 Log "@USER@ ran Time.ppe and won 20 minutes", ""
  90.                 Goto LABEL003
  91.             Endif
  92.             AdjTime -10
  93.             PrintLn 
  94.             PrintLn "          @X0F            The number that I have picked is@X0C ", INTEGER001, "@X07"
  95.             PrintLn 
  96.             PrintLn "                        @X0FYou picked number@X0E ", INTEGER002, "@X0F - NO MATCH"
  97.             PrintLn 
  98.             PrintLn "        @X0F@X0D          Sorry - @X0Fyou lost @X0A10 @X0Fminutes of online time"
  99.             PrintLn 
  100.             PrintLn "                        @X0F Your time left is@X0E " + String(MinLeft()) + "@X0F minutes@X07"
  101.             Log "@USER@ ran Time.ppe and lost 10 minutes", ""
  102.     End Select
  103.     :LABEL003
  104.  
  105. ;------------------------------------------------------------------------------
  106. ;
  107. ; Usage report (before postprocessing)
  108. ;
  109. ; ■ Statements used :
  110. ;
  111. ;    2       End
  112. ;    1       More
  113. ;    15      Goto 
  114. ;    8       Let 
  115. ;    38      PrintLn 
  116. ;    7       If 
  117. ;    1       DispFile 
  118. ;    2       AdjTime 
  119. ;    2       Log 
  120. ;    2       InputStr 
  121. ;    1       GetToken 
  122. ;
  123. ;
  124. ; ■ Functions used :
  125. ;
  126. ;    1       -
  127. ;    1       /
  128. ;    17      +
  129. ;    1       -
  130. ;    6       ==
  131. ;    1       <
  132. ;    1       >
  133. ;    7       !
  134. ;    1       &&
  135. ;    1       Len(
  136. ;    1       Upper()
  137. ;    1       LTrim()
  138. ;    1       RTrim()
  139. ;    1       Random()
  140. ;    1       Time()
  141. ;    1       TimeAp()
  142. ;    4       String()
  143. ;    1       Mask_Num()
  144. ;    1       PPEPath()
  145. ;    3       MinLeft()
  146. ;    1       MinOn()
  147. ;
  148. ;------------------------------------------------------------------------------
  149. ;
  150. ; Analysis flags : A
  151. ;
  152. ; A - Adjust online time remaining ■ 5
  153. ;     Program modify the amount of online time remaining, this may
  154. ;     be a way to bypass time limits
  155. ;     ■ Search for : ADJTIME
  156. ;
  157. ;------------------------------------------------------------------------------
  158. ;
  159. ; Postprocessing report
  160. ;
  161. ;    0       For/Next
  162. ;    0       While/EndWhile
  163. ;    4       If/Then or If/Then/Else
  164. ;    1       Select Case
  165. ;
  166. ;------------------------------------------------------------------------------
  167. ;                 AEGiS Corp - Break the routines, code against the machines!
  168. ;------------------------------------------------------------------------------
  169.