home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 15 / CD_ASCQ_15_070894.iso / vrac / phun_rt1.zip / RUMOURSD.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1994-05-22  |  3KB  |  172 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   STRING001
  24.     String   STRING002
  25.     String   STRING003
  26.     String   STRING004
  27.     String   STRING005
  28.     String   STRING006
  29.     String   STRING007
  30.     String   STRING008
  31.     String   STRING009
  32.  
  33. ;------------------------------------------------------------------------------
  34.  
  35.     If (Exist(PPEPath() + "rumours.cfg")) Goto LABEL001
  36.     FCreate 1, PPEPath() + "rumours.cfg", 1, 3
  37.     FPutLn 1, "10"
  38.     FPutLn 1, "10"
  39.     FPutLn 1, "100"
  40.     FPutLn 1, "NO"
  41.     FPutLn 1, "["
  42.     FPutLn 1, "]"
  43.     FPutLn 1, "@X0B"
  44.     FPutLn 1, "@X0B"
  45.     FPutLn 1
  46.     FPutLn 1, "┌────────────────────────────────────────────────────────────────────────────┐"
  47.     FPutLn 1, "└───────────────────────────[  RUMour Thing 1.0  ]───────────────────────────┘"
  48.     FPutLn 1
  49.     FPutLn 1, "LINE 1: SECURITY NEEDED TO ADD A RUMOUR"
  50.     FPutLn 1, "LINE 2: SECURITY NEEDED TO VIEW ALL RUMOURS"
  51.     FPutLn 1, "LINE 3: SECURITY NEEDED TO DELETE A RUMOUR"
  52.     FPutLn 1, "LINE 4: KEEP LOG? YES/NO"
  53.     FPutLn 1, "LINE 5: SYMBOL TO PUT IN FRONT OF THE RUMOUR (1 CHAR.)"
  54.     FPutLn 1, "LINE 6: SYMBOL TO PUT AT THE END OF A RUMOUR (1 CHAR.)"
  55.     FPutLn 1, "LINE 7: COLOR OF SYMBOL ON LINE 5"
  56.     FPutLn 1, "LINE 8: COLOR OF SYMBOL ON LINE 6"
  57.     FPutLn 1
  58.     FPutLn 1, "┌────────────────────────────────────────────────────────────────────────────┐"
  59.     FPutLn 1, "└───────────────────────[   Phun PPE Division 1994   ]───────────────────────┘"
  60.     FClose 1
  61.     :LABEL001
  62.     FOpen 3, PPEPath() + "rumours.cfg", 0, 0
  63.     FGet 3, STRING002
  64.     FGet 3, STRING002
  65.     FGet 3, STRING002
  66.     FGet 3, STRING002
  67.     FGet 3, STRING006
  68.     FGet 3, STRING007
  69.     FGet 3, STRING008
  70.     FGet 3, STRING009
  71.     FClose 3
  72.     STRING009 = Upper(STRING009)
  73.     STRING008 = Upper(STRING008)
  74.     INTEGER001 = 1
  75.     If (Exist(PPEPath() + "rumours.dat")) Goto LABEL002
  76.     FCreate 1, PPEPath() + "rumours.dat", 1, 3
  77.     FPutLn 1, "@PON@@X0F ─@X07──@X08──∙@X0F─@X07─────@X08──∙∙∙··∙·@X07∙@X0F─@X07──────────────@X08──@X07·@X0F─@X07───────@X08──∙·@X07·@X0F─@X07────────@X08──∙·@X07∙@X0F─@X07────@X08──@X0F─@X07─@X08─@X0F─@X07"
  78.     FPutLn 1, "  @X03RUMour THiNG - You Make My Heart Sing!@X07"
  79.     FPutLn 1, "@X0F ─@X07──@X08──∙@X0F─@X07─────@X08──∙∙∙··∙·@X07∙@X0F─@X07──────────────@X08──@X07·@X0F─@X07───────@X08──∙·@X07·@X0F─@X07────────@X08──∙·@X07∙@X0F─@X07────@X08──@X0F─@X07─@X08─@X0F─@X07"
  80.     FPutLn 1, "@X00@X07"
  81.     FClose 1
  82.     :LABEL002
  83.     FOpen 3, PPEPath() + "rumours.dat", 0, 0
  84.     FCreate 1, PPEPath() + "prompt.dat", 1, 3
  85.     FGet 3, STRING002
  86.     FGet 3, STRING001
  87.     FGet 3, STRING003
  88.     FPutLn 1, STRING001
  89.     INTEGER001 = INTEGER001 + 1
  90.     FGet 3, STRING001
  91.     FGet 3, STRING002
  92.     While (STRING001 <> "@X00@X07") Do
  93.         FPutLn 1, STRING001
  94.         INTEGER001 = INTEGER001 + 1
  95.         FGet 3, STRING001
  96.         FGet 3, STRING002
  97.     EndWhile
  98.     FClose 3
  99.     FClose 1
  100.     INTEGER001 = INTEGER001 - 1
  101.     :LABEL003
  102.     INTEGER002 = Random(U_TimeOn())
  103.     INTEGER002 = Random(Time())
  104.     INTEGER002 = Random(INTEGER001)
  105.     If (INTEGER002 == 0) Then
  106.         Goto LABEL003
  107.     Endif
  108.     STRING005 = ReadLine(PPEPath() + "prompt.dat", INTEGER002)
  109.     INTEGER003 = Len(STRING005)
  110.     STRING005 = Mid(STRING005, 3, INTEGER003 - 2)
  111.     STRING004 = StripAtx(STRING005)
  112.     INTEGER003 = Len(STRING004)
  113.     INTEGER004 = (80 - INTEGER003) / 2
  114.     INTEGER004 = INTEGER004 - 1
  115.     PrintLn Space(INTEGER004), STRING008, STRING006, STRING005, STRING009, STRING007, "@X07"
  116.     Return
  117.  
  118. ;------------------------------------------------------------------------------
  119. ;
  120. ; Usage report (before postprocessing)
  121. ;
  122. ; ■ Statements used :
  123. ;
  124. ;    6       Goto 
  125. ;    16      Let 
  126. ;    1       PrintLn 
  127. ;    4       If 
  128. ;    3       FCreate 
  129. ;    2       FOpen 
  130. ;    5       FClose 
  131. ;    15      FGet 
  132. ;    29      FPutLn 
  133. ;    1       Return
  134. ;
  135. ;
  136. ; ■ Functions used :
  137. ;
  138. ;    1       /
  139. ;    10      +
  140. ;    4       -
  141. ;    1       ==
  142. ;    1       <>
  143. ;    4       !
  144. ;    2       Len(
  145. ;    2       Upper()
  146. ;    1       Mid()
  147. ;    1       Space()
  148. ;    3       Random()
  149. ;    1       Time()
  150. ;    1       U_TimeOn()
  151. ;    1       StripAtx()
  152. ;    8       PPEPath()
  153. ;    1       ReadLine()
  154. ;    2       Exist()
  155. ;
  156. ;------------------------------------------------------------------------------
  157. ;
  158. ; Analysis flags : No flag
  159. ;
  160. ;------------------------------------------------------------------------------
  161. ;
  162. ; Postprocessing report
  163. ;
  164. ;    0       For/Next
  165. ;    1       While/EndWhile
  166. ;    1       If/Then or If/Then/Else
  167. ;    0       Select Case
  168. ;
  169. ;------------------------------------------------------------------------------
  170. ;                 AEGiS Corp - Break the routines, code against the machines!
  171. ;------------------------------------------------------------------------------
  172.