home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / S / STORMLIN.ZIP / STORMLIN.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-06-17  |  8KB  |  342 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.     String   STRING001
  21.     String   STRING002
  22.     String   STRING003
  23.     String   STRING004
  24.     String   STRING005
  25.     String   STRING006
  26.     String   STRING007
  27.     String   STRING008
  28.     String   STRING009
  29.     String   STRING010
  30.     String   STRING011
  31.     String   STRING012
  32.     String   STRING013
  33.     String   STRING014
  34.     String   STRING015
  35.     String   STRING016
  36.     String   STRING017
  37.     String   STRING018
  38.     String   STRING019
  39.     String   STRING020
  40.     String   STRING021
  41.     String   STRING022
  42.     String   STRING023
  43.     String   STRING024
  44.     String   STRING025
  45.     String   STRING026
  46.     String   STRING027
  47.     String   STRING028
  48.     String   STRING029
  49.     String   STRING030
  50.     String   STRING031
  51.     String   STRING032
  52.     String   STRING033
  53.     String   STRING034
  54.     String   STRING035
  55.     String   STRING036
  56.     String   STRING037
  57.     String   STRING038
  58.     String   STRING039
  59.     String   STRING040
  60.     String   STRING041
  61.     String   STRING042
  62.     String   STRING043
  63.     String   STRING044
  64.     String   STRING045
  65.     String   STRING046
  66.     String   STRING047
  67.     String   STRING048
  68.     String   STRING049
  69.     String   STRING050
  70.     String   STRING051
  71.     String   STRING052
  72.  
  73. ;------------------------------------------------------------------------------
  74.  
  75.     STRING052 = "@X05τöΓMßΓïπçΣΓ ≤404≥ 801-9113 (HST) ≤404≥ 801-9569 (28.8VFC) IBM/Consoles"
  76.     If (Exist(PPEPath() + "stormlin.dat")) Then
  77.         STRING001 = ReadLine(PPEPath() + "stormlin.dat", 1)
  78.         STRING002 = ReadLine(PPEPath() + "stormlin.dat", 2)
  79.         STRING003 = ReadLine(PPEPath() + "stormlin.dat", 3)
  80.         STRING004 = ReadLine(PPEPath() + "stormlin.dat", 4)
  81.         STRING005 = ReadLine(PPEPath() + "stormlin.dat", 5)
  82.         STRING006 = ReadLine(PPEPath() + "stormlin.dat", 6)
  83.         STRING007 = ReadLine(PPEPath() + "stormlin.dat", 7)
  84.         STRING008 = ReadLine(PPEPath() + "stormlin.dat", 8)
  85.         STRING009 = ReadLine(PPEPath() + "stormlin.dat", 9)
  86.         STRING010 = ReadLine(PPEPath() + "stormlin.dat", 10)
  87.         STRING011 = ReadLine(PPEPath() + "stormlin.dat", 11)
  88.         STRING012 = ReadLine(PPEPath() + "stormlin.dat", 12)
  89.         STRING013 = ReadLine(PPEPath() + "stormlin.dat", 13)
  90.         STRING014 = ReadLine(PPEPath() + "stormlin.dat", 14)
  91.         STRING015 = ReadLine(PPEPath() + "stormlin.dat", 15)
  92.     Else
  93.         PrintLn "@X0CERROR! STORMLIN.DAT FILE NOT FOUND! SHUTTING DOWN!"
  94.         Stop
  95.     Endif
  96.     FClose -1
  97.     If (Exist(PPEPath() + "stormlin.who")) Then
  98.         STRING032 = ReadLine(PPEPath() + "stormlin.who", 1)
  99.         STRING017 = ReadLine(PPEPath() + "stormlin.who", 2)
  100.         STRING033 = ReadLine(PPEPath() + "stormlin.who", 3)
  101.         STRING018 = ReadLine(PPEPath() + "stormlin.who", 4)
  102.         STRING034 = ReadLine(PPEPath() + "stormlin.who", 5)
  103.         STRING019 = ReadLine(PPEPath() + "stormlin.who", 6)
  104.         STRING035 = ReadLine(PPEPath() + "stormlin.who", 7)
  105.         STRING020 = ReadLine(PPEPath() + "stormlin.who", 8)
  106.         STRING036 = ReadLine(PPEPath() + "stormlin.who", 9)
  107.         STRING021 = ReadLine(PPEPath() + "stormlin.who", 10)
  108.         STRING037 = ReadLine(PPEPath() + "stormlin.who", 11)
  109.         STRING022 = ReadLine(PPEPath() + "stormlin.who", 12)
  110.         STRING038 = ReadLine(PPEPath() + "stormlin.who", 13)
  111.         STRING023 = ReadLine(PPEPath() + "stormlin.who", 14)
  112.         STRING039 = ReadLine(PPEPath() + "stormlin.who", 15)
  113.         STRING024 = ReadLine(PPEPath() + "stormlin.who", 16)
  114.         STRING040 = ReadLine(PPEPath() + "stormlin.who", 17)
  115.         STRING025 = ReadLine(PPEPath() + "stormlin.who", 18)
  116.         STRING041 = ReadLine(PPEPath() + "stormlin.who", 19)
  117.         STRING026 = ReadLine(PPEPath() + "stormlin.who", 20)
  118.         STRING042 = ReadLine(PPEPath() + "stormlin.who", 21)
  119.         STRING027 = ReadLine(PPEPath() + "stormlin.who", 22)
  120.         STRING043 = ReadLine(PPEPath() + "stormlin.who", 23)
  121.         STRING028 = ReadLine(PPEPath() + "stormlin.who", 24)
  122.         STRING044 = ReadLine(PPEPath() + "stormlin.who", 25)
  123.         STRING029 = ReadLine(PPEPath() + "stormlin.who", 26)
  124.         STRING045 = ReadLine(PPEPath() + "stormlin.who", 27)
  125.         STRING030 = ReadLine(PPEPath() + "stormlin.who", 28)
  126.         STRING046 = ReadLine(PPEPath() + "stormlin.who", 29)
  127.         STRING031 = ReadLine(PPEPath() + "stormlin.who", 30)
  128.     Else
  129.         PrintLn "@X0CERROR!! STORMLIN.WHO FILE NOT FOUND! SHUTTING DOWN!"
  130.         Stop
  131.     Endif
  132.     FClose -1
  133.     If (Exist(PPEPath() + "stormlin.cfg")) Then
  134.         STRING047 = ReadLine(PPEPath() + "stormlin.cfg", 1)
  135.         STRING048 = ReadLine(PPEPath() + "stormlin.cfg", 2)
  136.         INTEGER001 = ReadLine(PPEPath() + "stormlin.cfg", 3)
  137.     Else
  138.         PrintLn "@X0CERROR! STORLIN.CFG FILE NOT FOUND! SHUTTING DOWN!"
  139.         Stop
  140.     Endif
  141.     FClose -1
  142.     :LABEL001
  143.     STRING049 = "N"
  144.     Cls
  145.     PrintLn "@X0F[@X03StormLINERS v1.1@X0F]                                          [@X03By The Ringthane@X0F]"
  146.     Newline
  147.     PrintLn STRING047
  148.     PrintLn STRING052
  149.     DispFile PPEPath() + "stormlin.dat", 2 + 1 + 4
  150.     PrintLn STRING048
  151.     Newline
  152.     Input "@X03Would You Like To Enter A @X0FStormLINER@X0F? (Y)@X03es/@X0F(N)@X03o: @X00_", STRING049
  153.     If (Len(STRING049) == 0) Goto LABEL004
  154.     If (STRING049 == "who") Goto LABEL005
  155.     If ((STRING049 <> "Y") && (STRING049 <> "y")) Goto LABEL004
  156.     :LABEL002
  157.     STRING016 = ""
  158.     Cls
  159.     PrintLn "@X0F[@X03StormLINERS v1.1@X0F]                                          [@X03By The Ringthane@X0F]"
  160.     Newline
  161.     DispFile PPEPath() + "stormlin.hlp", 2 + 1 + 4
  162.     Newline
  163.     PrintLn "@X03Enter @X0FStormLINER @X03Below: [RETURN]=@X04AborT                          @X03[75 CHAR MAX]"
  164.     Newline
  165.     PrintLn "@X09[*───│────1────│────2────│────3────│────4────│────5────│────6────│────7────*]"
  166.     InputText "@X09>@X00_", STRING016, 3, 75
  167.     If (Len(STRING016) == 0) Goto LABEL004
  168.     If ((STRING016 == "activate storm warning") && (U_Name() == "THE RINGTHANE")) Goto LABEL006
  169.     If ((STRING016 == "deactivate storm warning") && (U_Name() == "THE RINGTHANE")) Goto LABEL007
  170.     FCreate 1, PPEPath() + "viewline", 1, 3
  171.     FPutLn 1, STRING016
  172.     FClose 1
  173.     Newlines 2
  174.     PrintLn "@X03This is how your @X0FStormLINER @X03will look:"
  175.     PrintLn " "
  176.     DispFile PPEPath() + "viewline", 2 + 1 + 4
  177.     PrintLn " "
  178.     Input "@X03Do you want to add it? @X0F(Y)@X03es/@X0F(N)@X03o: @X00_", STRING050
  179.     If ((STRING050 <> "Y") && (STRING050 <> "y")) Goto LABEL002
  180.     Newlines 2
  181.     PrintLn "@X03Adding Your @X0FStormLINER@X03!"
  182.     FCreate 1, PPEPath() + "tempdata", 1, 3
  183.     FPutLn 1, STRING002
  184.     FPutLn 1, STRING003
  185.     FPutLn 1, STRING004
  186.     FPutLn 1, STRING005
  187.     FPutLn 1, STRING006
  188.     FPutLn 1, STRING007
  189.     FPutLn 1, STRING008
  190.     FPutLn 1, STRING009
  191.     FPutLn 1, STRING010
  192.     FPutLn 1, STRING011
  193.     FPutLn 1, STRING012
  194.     FPutLn 1, STRING013
  195.     FPutLn 1, STRING014
  196.     FPutLn 1, STRING015
  197.     FPutLn 1, STRING016
  198.     FClose 1
  199.     FCreate 1, PPEPath() + "tempwho", 1, 3
  200.     FPutLn 1, STRING033
  201.     FPutLn 1, STRING018
  202.     FPutLn 1, STRING034
  203.     FPutLn 1, STRING019
  204.     FPutLn 1, STRING035
  205.     FPutLn 1, STRING020
  206.     FPutLn 1, STRING036
  207.     FPutLn 1, STRING021
  208.     FPutLn 1, STRING037
  209.     FPutLn 1, STRING022
  210.     FPutLn 1, STRING038
  211.     FPutLn 1, STRING023
  212.     FPutLn 1, STRING039
  213.     FPutLn 1, STRING024
  214.     FPutLn 1, STRING040
  215.     FPutLn 1, STRING025
  216.     FPutLn 1, STRING041
  217.     FPutLn 1, STRING026
  218.     FPutLn 1, STRING042
  219.     FPutLn 1, STRING027
  220.     FPutLn 1, STRING043
  221.     FPutLn 1, STRING028
  222.     FPutLn 1, STRING044
  223.     FPutLn 1, STRING029
  224.     FPutLn 1, STRING045
  225.     FPutLn 1, STRING030
  226.     FPutLn 1, STRING046
  227.     FPutLn 1, STRING031
  228.     FPutLn 1, STRING016
  229.     FPutLn 1, U_Name()
  230.     FClose 1
  231.     Copy PPEPath() + "tempdata", PPEPath() + "stormlin.dat"
  232.     Copy PPEPath() + "tempwho", PPEPath() + "stormlin.who"
  233.     Delete PPEPath() + "tempdata"
  234.     Delete PPEPath() + "tempwho"
  235.     Delete PPEPath() + "viewline"
  236.     :LABEL003
  237.     Newlines 2
  238.     Input "@X03Do you wanna view the @X0FStormLINERS @X03with yours added? @X0F(Y)@X03es/@X0F(N)@X03o: @X00_", STRING051
  239.     If ((STRING051 <> "Y") && (STRING051 <> "y")) Goto LABEL004
  240.     Cls
  241.     PrintLn "@X0F[@X03StormLINERS v1.1@X0F]                                          [@X03By The Ringthane@X0F]"
  242.     Newline
  243.     PrintLn STRING047
  244.     PrintLn STRING052
  245.     DispFile PPEPath() + "stormlin.dat", 2 + 1 + 4
  246.     PrintLn STRING048
  247.     Wait
  248.     End
  249.     :LABEL004
  250.     End
  251.     :LABEL005
  252.     If ((CurSec() <= INTEGER001) && (U_Name() <> "THE RINGTHANE")) Goto LABEL004
  253.     Cls
  254.     DispFile PPEPath() + "stormlin.who", 2 + 1 + 4
  255.     Wait
  256.     Goto LABEL001
  257.     :LABEL006
  258.     Copy PPEPath() + "stormlin.dat", PPEPath() + "stormdat.bac"
  259.     FCreate 1, PPEPath() + "stormhel.dat", 1, 3
  260.     FPutLn 1, " "
  261.     FPutLn 1, " "
  262.     FPutLn 1, "@X04             _______ _________   _______   ________    __    __"
  263.     FPutLn 1, "            /   __  | _     _ | /@X0F/(~~~)\@X04\ |    _   \  /  \  /  \"
  264.     FPutLn 1, "           (   (__\/|/ |   | \|/@X0F(       )@X04\|   |_)   )/    \/    \"
  265.     FPutLn 1, "           |\___   \   |   |  | @X0F(_@X04°   °@X0F_)@X04 |       _//            \"
  266.     FPutLn 1, "           | \__)   )  |   |   \@X0F  ) ^ (  @X04/|   |\   \\   /\  /\   /"
  267.     FPutLn 1, "      _____|_______/___|__ |__  \_@X0FV°°°V@X04_/_|___|_\___\\ /__\/__\ /_____"
  268.     FPutLn 1, "     |   __   \|    _   \ |   ||  \  |  ||    ____  /|V  ___ | V  _   \"
  269.     FPutLn 1, "     |  |__)   )   |_)   )|   ||   \ |  ||   | ___\/ |  |__ \|   |_)   )"
  270.     FPutLn 1, "     |   __   (|       _/ |   ||    \|  ||   | \_ \  |   _<  |   _   _/"
  271.     FPutLn 1, "     |  |__)   )   |\   \ |   ||  |\    ||   |__/  \ |  |___/|   |\   \"
  272.     FPutLn 1, "     |________/|___| \___\|___||__||\___||_________/ |_______|___| \___\"
  273.     FPutLn 1, "         @X03(404) 801-9113 [16.8 HST]       (404) 801-9569 [28.8 VFC]"
  274.     FPutLn 1, "        @X050 Day IBM Warez/0 Day Console Warez/1 Gigabyte/PCBoard 15.1"
  275.     FClose 1
  276.     Copy PPEPath() + "stormhel.dat", PPEPath() + "stormlin.dat"
  277.     Delete PPEPath() + "stormhel.dat"
  278.     Goto LABEL003
  279.     :LABEL007
  280.     Copy PPEPath() + "stormdat.bac", PPEPath() + "stormlin.dat"
  281.     Delete PPEPath() + "stormdat.bac"
  282.     Goto LABEL003
  283.  
  284. ;------------------------------------------------------------------------------
  285. ;
  286. ; Usage report (before postprocessing)
  287. ;
  288. ; ■ Statements used :
  289. ;
  290. ;    2       End
  291. ;    4       Cls
  292. ;    2       Wait
  293. ;    18      Goto 
  294. ;    51      Let 
  295. ;    18      PrintLn 
  296. ;    12      If 
  297. ;    5       DispFile 
  298. ;    3       Input 
  299. ;    4       FCreate 
  300. ;    7       FClose 
  301. ;    61      FPutLn 
  302. ;    5       Delete 
  303. ;    6       Newline
  304. ;    3       Newlines 
  305. ;    3       Stop
  306. ;    1       InputText 
  307. ;    5       Copy 
  308. ;
  309. ;
  310. ; ■ Functions used :
  311. ;
  312. ;    3       -
  313. ;    85      +
  314. ;    7       ==
  315. ;    7       <>
  316. ;    1       <=
  317. ;    3       !
  318. ;    6       &&
  319. ;    2       Len(
  320. ;    4       U_Name()
  321. ;    75      PPEPath()
  322. ;    48      ReadLine()
  323. ;    1       CurSec()
  324. ;    3       Exist()
  325. ;
  326. ;------------------------------------------------------------------------------
  327. ;
  328. ; Analysis flags : No flag
  329. ;
  330. ;------------------------------------------------------------------------------
  331. ;
  332. ; Postprocessing report
  333. ;
  334. ;    0       For/Next
  335. ;    0       While/EndWhile
  336. ;    3       If/Then or If/Then/Else
  337. ;    0       Select Case
  338. ;
  339. ;------------------------------------------------------------------------------
  340. ;                 AEGiS Corp - Break the routines, code against the machines!
  341. ;------------------------------------------------------------------------------
  342.