home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / TR-RUMOR.ZIP / RUMOUR.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1996-11-28  |  7KB  |  321 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.O1 (Encryption type I) - 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.     String   STRING010
  33.     Byte     BYTE001
  34.     Byte     BYTE002
  35.  
  36. ;------------------------------------------------------------------------------
  37.  
  38.     BYTE001 = "0"
  39.     If (Exist(PPEPath() + "RUMOUR.PCB")) Goto LABEL001
  40.     FCreate 1, PPEPath() + "RUMOUR.PCB", 2, 3
  41.     FPutLn 1, "@X08xps.production.@X07                                                                "
  42.     FPutLn 1, "@X08▓▀▀▀▀▀▀▀▀▀▓▀▀▀▀▀@X07 @X0F▄▄@X0E▄▄@X07 @X08▀▀▀▀▀▓▀▀▀@X07 @X0F▄▄@X0E▄@X0F▄@X07 @X08▀▀▀▀▀▀▓▀▀▀▀▀▀▀@X07 @X0F▄▄@X0E▄▄@X07 @X08▀▀▀▀▀▓▓▀▀▀▀▀▀▀▀▀▀▀▀▀▀▓@X07"
  43.     FPutLn 1, "@X06▄@X07 @X0F██@X7E██@X0E▄▄▄▄▄@X07 @X0E████@X07 @X0F█@X0E███@X07 @X0F██@X0E██▄▄▄@X0F▄@X0E▄@X0F▄█@X0E███@X07 @X0E████@X0F▄▄▓@X0E▄▄@X07 @X0E█▓██@X07 @X0F▐@X0E███▌@X0F██@X0E██▄▄▄▄▄@X07 @X7E▓▓@X0E██@X0F▀@X0E▀@X07 @X0F▀@X07 @X06▀▄▓@X07"
  44.     FPutLn 1, "@X06█@X07 @X7E▓▓▓▓@X07 @X7E▓▓▓▓@X07 ▐@X7E▓▓▓@X0E▌▐@X7E▓▓▓@X0E▌@X7E▓@X0E▄@X7E▓@X0E▄@X70█@X7E▓▓▓▓@X07 @X0E▄▄@X7E▓▓@X07 @X0E▐@X7E▓▓▓@X0E▌▐@X7E▓▓▓@X0E▌▐@X7E▓▓▓@X0E▌@X70█@X7E▓▓▓▓@X0E▐@X7E▓▓▓@X07 @X7E▓▓▓▓@X07 @X0E▀▀▀▀▀@X7E▓▓▓▓@X07 @X06█▓@X07"
  45.     FPutLn 1, "@X06▓▌@X07▐@X7E▒▓▒@X07▌▐@X7E▓▓▒@X0E▌@X07▐@X7E▒▒▒@X0E▌@X07▐@X7E▒▒▒@X0E▌@X7E▒▓▓▒@X07 @X0E▐@X7E▒▓▒@X07▓@X0E▐@X7E▒▒▒@X0E▌@X70█@X7E▒▓▒▒@X70█@X7E▓▒▒▒@X70█@X7E▓▓▒▒@X07▐@X7E▒▓▒@X0E▌@X07▓@X7E▒▒▒@X0E▌@X07▐@X7E▓▓▒@X0E▌@X7E▒▒▒▒@X07 ▐@X7E▒▓▓@X0E▌@X06▐▓@X07"
  46.     FPutLn 1, "@X06▀@X07 @X7E░░▒░@X07 @X7E░▒▒░@X07 @X7E░░░░@X07 @X7E░░░░@X07 ▐@X7E▒▒░@X07▌▐@X7E░▒░@X07▌▐@X7E░░░@X07▓▐@X7E░▒░@X07▌▐@X7E▒░░@X07▌▐@X7E▒▒░@X07▌▐@X7E░▒░@X07▌▐@X7E░░░@X07▌@X7E░▒▒░@X07 ▐@X7E░░░@X07▌@X70█@X7E░▒▒░@X07 @X06▓@X07"
  47.     FPutLn 1, "░░▓█@X7E░ @X07 ▀@X7E░░@X07▀ @X7E   @X07▓▀▀▀▀▀ @X7E ░░ @X07 @X06▄@X07    @X7E  @X7F░░@X07 @X7E  ░ @X07▄@X7E ░  @X07 @X7E ░░@X7F░@X07▀▀▀@X7E░@X07▀ @X7F░░@X7E  @X07 ▀▀▀▀ @X7E @X7F░░@X7E @X07▄@X7E  ░░@X07▌@X06▄█@X07"
  48.     FPutLn 1, "@X08▄@X07 ░ @X08▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▓▄▄▄▄▄▄▄▄▓▓▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▓▄▄▄▄▄▄▄▄@X07 ▀▀@X7F░@X07▀ @X08▄▄▓▄▄▄▄@X07"
  49.     FPutLn 1, "@X0F░----------------------░--------------------------------░----------------------@X07"
  50.     FPutLn 1, ""
  51.     FPutLn 1, "@X07-----░-------------------------------░-░--------------------------░------------"
  52.     FClose 1
  53.     If (Exist(PPEPath() + "RUMOUR.CFG")) Delete PPEPath() + "RUMOUR.CFG"
  54.     FCreate 1, PPEPath() + "RUMOUR.CFG", 2, 3
  55.     FPutLn 1, "1 10"
  56.     FPutLn 1, "5"
  57.     FClose 1
  58.     :LABEL001
  59.     If (Exist(PPEPath() + "RUMOUR.CFG")) Delete PPEPath() + "RUMOUR.CFG"
  60.     FCreate 1, PPEPath() + "RUMOUR.CFG", 2, 3
  61.     FPutLn 1, "1 10"
  62.     FPutLn 1, "5"
  63.     FClose 1
  64.     STRING001 = "@X0F           @X07   @X3A add rumour @X07    @X08   view rumour(s)@X07      @X08 quit rumours@X07            "
  65.     STRING002 = "@X08               add rumour       @X3A view rumour(s) @X08      quit rumours            "
  66.     STRING003 = "@X08               add rumour        view rumour(s)      @X3A quit rumours @X08           "
  67.     FOpen 1, PPEPath() + "RUMOUR.CFG", 2, 3
  68.     FGet 1, STRING004
  69.     FGet 1, INTEGER004
  70.     FClose 1
  71.     Tokenize STRING004
  72.     INTEGER001 = GetToken()
  73.     INTEGER002 = GetToken()
  74.     :LABEL002
  75.     Print "@POFF@@CLS@"
  76.     DispFile PPEPath() + "RUMOUR.PCB", 1
  77.     :LABEL003
  78.     AnsiPos INTEGER001, INTEGER002
  79.     Print Space(78)
  80.     AnsiPos INTEGER001, INTEGER002
  81.     Print STRING001
  82.     Color BYTE001
  83.     Print " "
  84.     Backup 1
  85.     :LABEL004
  86.     STRING005 = ""
  87.     While ((STRING005 == "")) STRING005 = Inkey()
  88.     If (STRING005 == "LEFT") Goto LABEL007
  89.     If (STRING005 == "RIGHT") Goto LABEL005
  90.     If (STRING005 == Chr(13)) Goto LABEL009
  91.     Goto LABEL004
  92.     :LABEL005
  93.     AnsiPos INTEGER001, INTEGER002
  94.     Print Space(78)
  95.     AnsiPos INTEGER001, INTEGER002
  96.     Print STRING002
  97.     Color BYTE001
  98.     Print " "
  99.     Backup 1
  100.     :LABEL006
  101.     STRING005 = ""
  102.     While ((STRING005 == "")) STRING005 = Inkey()
  103.     If (STRING005 == "LEFT") Goto LABEL003
  104.     If (STRING005 == "RIGHT") Goto LABEL007
  105.     If (STRING005 == Chr(13)) Goto LABEL017
  106.     Goto LABEL006
  107.     :LABEL007
  108.     AnsiPos INTEGER001, INTEGER002
  109.     Print STRING003
  110.     Color BYTE001
  111.     Print " "
  112.     Backup 1
  113.     :LABEL008
  114.     STRING005 = ""
  115.     While ((STRING005 == "")) STRING005 = Inkey()
  116.     If (STRING005 == "LEFT") Goto LABEL005
  117.     If (STRING005 == "RIGHT") Goto LABEL003
  118.     If (STRING005 == Chr(13)) Goto LABEL020
  119.     Goto LABEL008
  120.     :LABEL009
  121.     AnsiPos INTEGER001, INTEGER002
  122.     Print Space(77)
  123.     AnsiPos INTEGER001, INTEGER002
  124.     STRING006 = ""
  125.     Print "  @X0Be@X03ntah @X0By@X03our @X0Bg@X03ossip @X08-- "
  126.     InputText "_", STRING006, 0, 50
  127.     While ((STRING006 == "")) Print "@X0CA@X04borting..."
  128.     Delay 5
  129.     Goto LABEL003
  130.     While ((Len(STRING006) < INTEGER004)) Backup Len(STRING006)
  131.     Print "@X0CG@X04ossip @X0Ct@X04oo @X0Cs@X04hort! @X0Cm@X04in. @X0Cl@X04ength @X0Co@X04f @X0C" + String(INTEGER004)
  132.     Delay 8
  133.     Goto LABEL009
  134.     If (Exist(PPEPath() + "RUMOUR.DAT")) Goto LABEL010
  135.     FCreate 2, PPEPath() + "RUMOUR.DAT", 2, 3
  136.     FPutLn 2, "TripRumours version o.99"
  137.     FPutLn 2, "Call the new xps membah board, mur.systems on 61-3-9844-2185!"
  138.     FClose 2
  139.     :LABEL010
  140.     FAppend 1, PPEPath() + "RUMOUR.DAT", 2, 3
  141.     FPutLn 1, StripAtx(STRING006)
  142.     FClose 1
  143.     STRING007 = "@X19 yes @X08  no  "
  144.     STRING008 = "@X08 yes  @X19 no @X08 "
  145.     AnsiPos INTEGER001, INTEGER002
  146.     Print Space(77)
  147.     AnsiPos INTEGER001, INTEGER002
  148.     Print "  @X08add another gossip?  "
  149.     Delay 3
  150.     AnsiPos INTEGER001, INTEGER002
  151.     Print "@X03  add another gossip?  "
  152.     Delay 3
  153.     AnsiPos INTEGER001, INTEGER002
  154.     Print "@X0B  add another gossip?  "
  155.     Delay 3
  156.     AnsiPos INTEGER001, INTEGER002
  157.     Print "@X0F  add another gossip?  "
  158.     INTEGER003 = GetX()
  159.     Delay 3
  160.     :LABEL011
  161.     AnsiPos INTEGER003, INTEGER002
  162.     Print STRING007
  163.     Color BYTE001
  164.     Print " "
  165.     Backup 1
  166.     :LABEL012
  167.     STRING009 = ""
  168.     While ((STRING009 == "")) STRING009 = Inkey()
  169.     If ((STRING009 == "LEFT") || (STRING009 == "RIGHT")) Goto LABEL013
  170.     If (STRING009 == Chr(13)) Goto LABEL015
  171.     Goto LABEL012
  172.     :LABEL013
  173.     AnsiPos INTEGER003, INTEGER002
  174.     Print STRING008
  175.     Color BYTE001
  176.     Print " "
  177.     Backup 1
  178.     :LABEL014
  179.     STRING009 = ""
  180.     While ((STRING009 == "")) STRING009 = Inkey()
  181.     If ((STRING009 == "LEFT") || (STRING009 == "RIGHT")) Goto LABEL011
  182.     If (STRING009 == Chr(13)) Goto LABEL016
  183.     Goto LABEL014
  184.     :LABEL015
  185.     Goto LABEL009
  186.     :LABEL016
  187.     Goto LABEL002
  188.     :LABEL017
  189.     While (!Exist(PPEPath() + "RUMOUR.DAT")) Print "@CLS@"
  190.     PrintLn "@X0Cn@X04o @X0Cr@X04umours @X0Cf@X04ound!"
  191.     Wait
  192.     Print "@POFF@@CLS@"
  193.     DispFile PPEPath() + "RUMOUR.PCB", 1
  194.     AnsiPos INTEGER001, INTEGER002
  195.     Goto LABEL005
  196.     PrintLn "@PON@@CLS@"
  197.     PrintLn "@X0Bt@X03rip@X0Br@X03umours@X0Bv@X03o.99@X0Bl@X03ist!"
  198.     PrintLn "@X08----------------------------------------------------------------------------"
  199.     BYTE002 = "1"
  200.     :LABEL018
  201.     STRING010 = ""
  202.     STRING010 = ReadLine(PPEPath() + "RUMOUR.DAT", BYTE002)
  203.     If (STRING010 == "") Goto LABEL019
  204.     PrintLn "@X07" + Left(STRING010, 75)
  205.     BYTE002 = BYTE002 + 1
  206.     Goto LABEL018
  207.     :LABEL019
  208.     PrintLn "@X08----------------------------------------------------------------------------"
  209.     PrintLn ""
  210.     Wait
  211.     FCloseAll
  212.     Print "@POFF@@CLS@"
  213.     DispFile PPEPath() + "RUMOUR.PCB", 1
  214.     AnsiPos INTEGER001, INTEGER002
  215.     Goto LABEL005
  216.     :LABEL020
  217.     AnsiPos INTEGER001, INTEGER002 + 2
  218.     Print "@X08xPRESS mOddING"
  219.     Delay 1
  220.     AnsiPos INTEGER001, INTEGER002 + 2
  221.     Print "@X07xPRESS mOddING"
  222.     Delay 1
  223.     AnsiPos INTEGER001, INTEGER002 + 2
  224.     Print "@X0FxPRESS mOddING"
  225.     Delay 2
  226.     AnsiPos INTEGER001, INTEGER002 + 2
  227.     Print "@X07xPRESS mOddING"
  228.     Delay 1
  229.     AnsiPos INTEGER001, INTEGER002 + 2
  230.     Print "@X08xPRESS mOddING"
  231.     Delay 1
  232.     AnsiPos INTEGER001, INTEGER002 + 2
  233.     Print "              "
  234.     Delay 1
  235.     AnsiPos INTEGER001, INTEGER002 + 2
  236.     Print "@X08Coded by tRiP!"
  237.     Delay 1
  238.     AnsiPos INTEGER001, INTEGER002 + 2
  239.     Print "@X07Coded by tRiP!"
  240.     Delay 1
  241.     AnsiPos INTEGER001, INTEGER002 + 2
  242.     Print "@X0FCoded by tRiP!"
  243.     Delay 2
  244.     AnsiPos INTEGER001, INTEGER002 + 2
  245.     Print "@X07Coded by tRiP!"
  246.     Delay 1
  247.     AnsiPos INTEGER001, INTEGER002 + 2
  248.     Print "@X08Coded by tRiP!"
  249.     Delay 1
  250.     AnsiPos INTEGER001, INTEGER002 + 2
  251.     Print "              "
  252.     Delay 1
  253.     End
  254.  
  255. ;------------------------------------------------------------------------------
  256. ;
  257. ; Usage report (before postprocessing)
  258. ;
  259. ; ■ Statements used :
  260. ;
  261. ;    1       End
  262. ;    2       Wait
  263. ;    5       Color 
  264. ;    33      Goto 
  265. ;    24      Let 
  266. ;    37      Print 
  267. ;    7       PrintLn 
  268. ;    26      If 
  269. ;    3       DispFile 
  270. ;    4       FCreate 
  271. ;    1       FOpen 
  272. ;    1       FAppend 
  273. ;    6       FClose 
  274. ;    2       FGet 
  275. ;    18      FPutLn 
  276. ;    2       Delete 
  277. ;    18      Delay 
  278. ;    1       Tokenize 
  279. ;    1       InputText 
  280. ;    28      AnsiPos 
  281. ;    6       Backup 
  282. ;    1       FCloseAll
  283. ;
  284. ;
  285. ; ■ Functions used :
  286. ;
  287. ;    32      +
  288. ;    22      ==
  289. ;    1       <
  290. ;    1       !
  291. ;    2       ||
  292. ;    2       Len(
  293. ;    1       Left()
  294. ;    4       Space()
  295. ;    5       Chr()
  296. ;    1       StripAtx()
  297. ;    5       Inkey()
  298. ;    1       String()
  299. ;    17      PPEPath()
  300. ;    1       ReadLine()
  301. ;    2       GetToken()
  302. ;    5       Exist()
  303. ;    1       GetX()
  304. ;
  305. ;------------------------------------------------------------------------------
  306. ;
  307. ; Analysis flags : No flag
  308. ;
  309. ;------------------------------------------------------------------------------
  310. ;
  311. ; Postprocessing report
  312. ;
  313. ;    0       For/Next
  314. ;    0       While/EndWhile
  315. ;    0       If/Then or If/Then/Else
  316. ;    0       Select Case
  317. ;
  318. ;------------------------------------------------------------------------------
  319. ;                 AEGiS Corp - Break the routines, code against the machines!
  320. ;------------------------------------------------------------------------------
  321.