home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / QMASTER2.ZIP / QMASTER.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1993-07-03  |  3.4 KB  |  191 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 1.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     String   STRING001
  28.     String   STRING002
  29.     String   STRING003
  30.     String   STRING004
  31.     String   STRING005
  32.     String   STRING006
  33.     String   STRING007
  34.     String   STRING008
  35.     String   STRING009
  36.  
  37. ;------------------------------------------------------------------------------
  38.  
  39.     FOpen 1, PPEPath() + "quotes", 0, 0
  40.     FGet 1, STRING001
  41.     INTEGER002 = STRING001
  42.     :LABEL001
  43.     INTEGER003 = Random(INTEGER002)
  44.     If (INTEGER003 == 1) Then
  45.         Goto LABEL001
  46.     Endif
  47.     Frewind 1
  48.     For INTEGER004 = 1 To INTEGER003
  49.         FGet 1, STRING001
  50.     Next
  51.     PrintLn "@CLS@@X08Quote Master - Written By Tommy Porter [THP]"
  52.     PrintLn " "
  53.     PrintLn "@X07@X04Y@X08our @X04Q@X08uote @X04F@X08or @X04T@X08he @X04D@X08ay @X04i@X08s......"
  54.     STRING006 = "@X04┌"
  55.     STRING007 = "@X04└@X08"
  56.     INTEGER005 = Len(STRING001) + 2
  57.     For INTEGER006 = 1 To INTEGER005
  58.         STRING006 = STRING006 + "─"
  59.         STRING007 = STRING007 + "─"
  60.     Next
  61.     STRING006 = STRING006 + "@X08┐"
  62.     STRING007 = STRING007 + "┘"
  63.     INTEGER001 = Random(15)
  64.     If (INTEGER001 < 10) Then
  65.         STRING003 = INTEGER001
  66.         STRING004 = STRING003
  67.         STRING003 = "@X0" + STRING004
  68.     Else
  69.         Select Case (INTEGER001)
  70.             Case 10
  71.                 STRING003 = "@X0A"
  72.             Case 11
  73.                 STRING003 = "@X0B"
  74.             Case 12
  75.                 STRING003 = "@X0C"
  76.             Case 13
  77.                 STRING003 = "@X0D"
  78.             Case 14
  79.                 STRING003 = "@X0E"
  80.             Case 15
  81.                 STRING003 = "@X0F"
  82.             Endif
  83.     End Select
  84.     STRING003 = STRING003 + STRING001
  85.     STRING001 = STRING003
  86.     PrintLn " "
  87.     PrintLn STRING006
  88.     PrintLn "@X04│ " + STRING001 + " @X08│"
  89.     PrintLn STRING007
  90.     PrintLn " "
  91.     FClose 1
  92.     InputStr "@X07@X08W@X04ould @X08Y@X04ou @X08L@X04ike @X08T@X04o @X08A@X04dd @X08A Q@X04uote @X08T@X04o @X08T@X04he @X08Q@X04uote @X08O@X04f @X08T@X04he @X08D@X04ay @X08F@X04ile", STRING002, 8, 1, "yYnN ", 16384 + 2 + 4 + 16 + 64
  93.     Select Case (STRING002)
  94.         Case "y"
  95.             Goto LABEL002
  96.         Case "Y"
  97.             Goto LABEL002
  98.         Case Else
  99.             Goto LABEL003
  100.     End Select
  101.     :LABEL002
  102.     PrintLn " "
  103.     PrintLn " "
  104.     PrintLn "@X08E@X04nter @X08Y@X04our @X08Q@X04uote @X08- 7@X045 @X08C@X04haracters @X08M@X04ax"
  105.     InputStr "", STRING009, 4, 75, Mask_Ascii(), 2
  106.     PrintLn " "
  107.     If (STRING009 == "") Then
  108.         Goto LABEL003
  109.     Endif
  110.     PrintLn " "
  111.     PrintLn "@X08C@X04ramming @X08Y@X04our @X08Q@X04uote @X08S@X04omewhere @X08··@X04·····"
  112.     FOpen 1, PPEPath() + "quotes", 0, 2
  113.     FCreate 2, PPEPath() + "tempq", 1, 3
  114.     FGet 1, STRING005
  115.     INTEGER007 = STRING005
  116.     Inc INTEGER007
  117.     FPutLn 2, INTEGER007
  118.     INTEGER007 = INTEGER007 - 1
  119.     For INTEGER008 = 1 To INTEGER007
  120.         FGet 1, STRING008
  121.         FPutLn 2, STRING008
  122.     Next
  123.     FPutLn 2, STRING009
  124.     FClose 1
  125.     FClose 2
  126.     Delete PPEPath() + "quotes"
  127.     Rename PPEPath() + "tempq", PPEPath() + "quotes"
  128.     PrintLn " "
  129.     Log "Quote Added - " + STRING009, 0
  130.     PrintLn " "
  131.     PrintLn "@X08Y@X04our @X08Q@X04uote @X08H@X04as @X08B@X04een @X08A@X04dded!"
  132.     :LABEL003
  133.     End
  134.  
  135. ;------------------------------------------------------------------------------
  136. ;
  137. ; Usage report (before postprocessing)
  138. ;
  139. ; ■ Statements used :
  140. ;
  141. ;    1       End
  142. ;    30      Goto 
  143. ;    29      Let 
  144. ;    17      PrintLn 
  145. ;    14      If 
  146. ;    1       FCreate 
  147. ;    2       FOpen 
  148. ;    3       FClose 
  149. ;    4       FGet 
  150. ;    3       FPutLn 
  151. ;    1       Delete 
  152. ;    1       Log 
  153. ;    2       InputStr 
  154. ;    1       Inc 
  155. ;    1       Rename 
  156. ;    1       Frewind 
  157. ;
  158. ;
  159. ; ■ Functions used :
  160. ;
  161. ;    23      +
  162. ;    1       -
  163. ;    10      ==
  164. ;    4       <
  165. ;    3       <=
  166. ;    6       >=
  167. ;    14      !
  168. ;    6       &&
  169. ;    3       ||
  170. ;    1       Len(
  171. ;    2       Random()
  172. ;    1       Mask_Ascii()
  173. ;    6       PPEPath()
  174. ;
  175. ;------------------------------------------------------------------------------
  176. ;
  177. ; Analysis flags : No flag
  178. ;
  179. ;------------------------------------------------------------------------------
  180. ;
  181. ; Postprocessing report
  182. ;
  183. ;    3       For/Next
  184. ;    0       While/EndWhile
  185. ;    3       If/Then or If/Then/Else
  186. ;    2       Select Case
  187. ;
  188. ;------------------------------------------------------------------------------
  189. ;                 AEGiS Corp - Break the routines, code against the machines!
  190. ;------------------------------------------------------------------------------
  191.