home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / URT_PROX.ZIP / PROX.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-03-13  |  8KB  |  365 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.     Integer  INTEGER005
  24.     String   STRING001
  25.     String   STRING002
  26.     String   STRING003
  27.     String   STRING004
  28.     String   STRING005
  29.     String   STRING006
  30.     String   STRING007
  31.     String   STRING008
  32.     String   STRING009
  33.     String   STRING010
  34.     String   STRING011
  35.     String   STRING012
  36.     String   STRING013
  37.     String   STRING014
  38.     String   STRING015
  39.     String   STRING016
  40.     String   TSTRING017(16)
  41.     String   STRING018
  42.     String   STRING019
  43.     String   STRING020
  44.     String   STRING021
  45.     String   STRING022
  46.     String   STRING023
  47.     String   STRING024
  48.     String   STRING025
  49.     String   STRING026
  50.     String   STRING027
  51.     String   STRING028
  52.     String   STRING029
  53.     String   STRING030
  54.     String   STRING031
  55.  
  56. ;------------------------------------------------------------------------------
  57.  
  58.     PrintLn "@CLS@"
  59.     FOpen 1, PPEPath() + "PROX.CNF", 0, 2
  60.     FGet 1, STRING001
  61.     FClose 1
  62.     Color 9
  63.     PrintLn 
  64.     PrintLn "                      @X0FPro@X08/@X0FX v2@X08.@X0F0 @X01[@X09PPE@X01] @X0FBy .\\eNTaL CLoWN"
  65.     PrintLn 
  66.     PrintLn 
  67.     PrintLn 
  68.     PrintLn 
  69.     PrintLn "                             @X07Press @X0F[@X07TAB@X0F]  @X07to continue "
  70.     While (Inkey() <> Chr(9)) Do
  71.         StartDisp 1
  72.         Color Random(15)
  73.         AnsiPos 1, 5
  74.         PrintLn Space((80 - Len(Trim(STRING001, " "))) / 2) + STRING001
  75.     EndWhile
  76.     AnsiPos 1, 5
  77.     Color 15
  78.     PrintLn Space((80 - Len(Trim(STRING001, " "))) / 2) + STRING001
  79.     AnsiPos 1, 10
  80.     InputStr "@X09Do you want do a Turbo Logon(y/n): _", STRING004, 8, 1, Mask_Ascii(), 32 + 8
  81.     If (STRING004 <> "Y") Then
  82.         PrintLn "@CLS@"
  83.         StartDisp 1
  84.         DispFile PPEPath() + "STATS.dsp", 1
  85.         PrintLn "   @X07Press @X08[@X07TAB@X08]."
  86.         While (Inkey() <> Chr(9)) Do
  87.         EndWhile
  88.         Print "@CLS@"
  89.         PrintLn "               @X07LAST 10 Callers v2@X08.@X070 @X08[@X0FPPE@X08] @X07By  .\\ental Clown"
  90.         PrintLn "@X08▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07"
  91.         PrintLn "@X70Speed@X71│@X70     Alias             @X71│    @X70Group···Location     @X71│@X70   On    @X71│@X70No. of Calls @X07"
  92.         PrintLn "@X0F▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X07"
  93.         DispFile PPEPath() + "BLT99.", 1
  94.         AnsiPos 1, 15
  95.         PrintLn "@X08───────────────────────────────────────────────────────────────────────────────@X08"
  96.         PrintLn "                        @X08[ @X08] @X07Press @X0F[@X08TAB@X0F]  @X07to continue @X08[ @X08]"
  97.         While (Inkey() <> Chr(9)) Do
  98.         EndWhile
  99.         Cls
  100.         FOpen 1, PPEPath() + "AUTOMSG.LST", 2, 3
  101.         FGet 1, STRING019
  102.         FGet 1, STRING020
  103.         FGet 1, STRING021
  104.         FGet 1, STRING022
  105.         FGet 1, STRING023
  106.         FGet 1, STRING024
  107.         FGet 1, STRING025
  108.         FGet 1, STRING026
  109.         FGet 1, STRING027
  110.         FGet 1, STRING028
  111.         FGet 1, STRING029
  112.         FGet 1, STRING030
  113.         FClose 1
  114.         PrintLn "@X08▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07"
  115.         PrintLn "@X70                                                                               @X07"
  116.         AnsiPos 1, 2
  117.         PrintLn "@X70" + Space((69 - Len(Trim(STRING001, " "))) / 2) + "@X70" + STRING001 + " Automessage"
  118.         PrintLn "@X0F▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X07"
  119.         AnsiPos 1, 14
  120.         PrintLn "@X08▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07"
  121.         PrintLn "@X70                                                                               @X07"
  122.         PrintLn "@X0F▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X07"
  123.         AnsiPos 1, 15
  124.         PrintLn "@X70       " + STRING029 + "@X07"
  125.         If (STRING030 == "Y") Then
  126.             AnsiPos 1, 4
  127.             PrintLn Space((80 - Len(Trim(STRING019, " "))) / 2) + STRING019
  128.             PrintLn Space((80 - Len(Trim(STRING020, " "))) / 2) + STRING020
  129.             PrintLn Space((80 - Len(Trim(STRING021, " "))) / 2) + STRING021
  130.             PrintLn Space((80 - Len(Trim(STRING022, " "))) / 2) + STRING022
  131.             PrintLn Space((80 - Len(Trim(STRING023, " "))) / 2) + STRING023
  132.             PrintLn Space((80 - Len(Trim(STRING024, " "))) / 2) + STRING024
  133.             PrintLn Space((80 - Len(Trim(STRING025, " "))) / 2) + STRING025
  134.             PrintLn Space((80 - Len(Trim(STRING026, " "))) / 2) + STRING026
  135.             PrintLn Space((80 - Len(Trim(STRING027, " "))) / 2) + STRING027
  136.             PrintLn Space((80 - Len(Trim(STRING028, " "))) / 2) + STRING028
  137.             Goto LABEL001
  138.         Endif
  139.         AnsiPos 1, 4
  140.         PrintLn STRING019
  141.         PrintLn STRING020
  142.         PrintLn STRING021
  143.         PrintLn STRING022
  144.         PrintLn STRING023
  145.         PrintLn STRING024
  146.         PrintLn STRING025
  147.         PrintLn STRING026
  148.         PrintLn STRING027
  149.         PrintLn STRING028
  150.         :LABEL001
  151.         AnsiPos 1, 18
  152.         PrintLn 
  153.         PrintLn "@X07Press @X0F[@X07TAB@X0F]."
  154.         While (Inkey() <> Chr(9)) Do
  155.         EndWhile
  156.         INTEGER002 = 0
  157.         INTEGER001 = 0
  158.         FOpen 1, PPEPath() + "PROX.CNF", 2, 3
  159.         FGet 1, INTEGER002
  160.         FClose 1
  161.         GetUser
  162.         INTEGER001 = U_Sec
  163.         If (INTEGER001 >= INTEGER002) Then
  164.             AnsiPos 1, 19
  165.             InputStr "@X07Do you want to add your own automessage(Y/n): _", STRING005, 8, 1, Mask_Ascii(), 1024 + 8
  166.             If (STRING005 <> "N") Then
  167.                 Cls
  168.                 PrintLn "@X09Enter your Automessage Below."
  169.                 PrintLn "@X08┌─────────────────────────────────────────────────┐"
  170.                 PrintLn "@X08│                                                 │"
  171.                 PrintLn "@X08│                                                 │"
  172.                 PrintLn "@X08│                                                 │     @X09Pro@X08/@X09X v2.0"
  173.                 PrintLn "@X08│                                                 │     @X09Auto Message Editor"
  174.                 PrintLn "@X08│                                                 │     @X08───────────────────"
  175.                 PrintLn "@X08│                                                 │"
  176.                 PrintLn "@X08│                                                 │"
  177.                 PrintLn "@X08│                                                 │"
  178.                 PrintLn "@X08│                                                 │"
  179.                 PrintLn "@X08│                                                 │"
  180.                 PrintLn "@X08└─────────────────────────────────────────────────┘"
  181.                 AnsiPos 2, 3
  182.                 InputText "> _", STRING006, 7, 45
  183.                 AnsiPos 2, 3
  184.                 Print " "
  185.                 AnsiPos 2, 4
  186.                 InputText "> _", STRING007, 7, 45
  187.                 AnsiPos 2, 4
  188.                 Print " "
  189.                 AnsiPos 2, 5
  190.                 InputText "> _", STRING008, 7, 45
  191.                 AnsiPos 2, 5
  192.                 Print " "
  193.                 AnsiPos 2, 6
  194.                 InputText "> _", STRING009, 7, 45
  195.                 AnsiPos 2, 6
  196.                 Print " "
  197.                 AnsiPos 2, 7
  198.                 InputText "> _", STRING010, 7, 45
  199.                 AnsiPos 2, 7
  200.                 Print " "
  201.                 AnsiPos 2, 8
  202.                 InputText "> _", STRING011, 7, 45
  203.                 AnsiPos 2, 8
  204.                 Print " "
  205.                 AnsiPos 2, 9
  206.                 InputText "> _", STRING012, 7, 45
  207.                 AnsiPos 2, 9
  208.                 Print " "
  209.                 AnsiPos 2, 10
  210.                 InputText "> _", STRING013, 7, 45
  211.                 AnsiPos 2, 10
  212.                 Print " "
  213.                 AnsiPos 2, 11
  214.                 InputText "> _", STRING014, 7, 45
  215.                 AnsiPos 2, 11
  216.                 Print " "
  217.                 AnsiPos 2, 12
  218.                 InputText "> _", STRING015, 7, 45
  219.                 AnsiPos 2, 12
  220.                 Print " "
  221.                 AnsiPos 2, 14
  222.                 InputStr "@X07Do you wish to centre the passage:_", STRING031, 7, 1, Mask_Ascii(), 8
  223.                 FCreate 1, PPEPath() + "AUTOMSG.LST", 1, 0
  224.                 STRING016 = U_Name()
  225.                 FPutLn 1, STRING006
  226.                 FPutLn 1, STRING007
  227.                 FPutLn 1, STRING008
  228.                 FPutLn 1, STRING009
  229.                 FPutLn 1, STRING010
  230.                 FPutLn 1, STRING011
  231.                 FPutLn 1, STRING012
  232.                 FPutLn 1, STRING013
  233.                 FPutLn 1, STRING014
  234.                 FPutLn 1, STRING015
  235.                 FPutLn 1, "           @X70Written By " + STRING016 + "@X70 DATE : @SYSDATE@"
  236.                 FPutLn 1, STRING031
  237.                 FClose 1
  238.                 PrintLn "@X09Auto Message Saved."
  239.             Endif
  240.         Endif
  241.         INTEGER003 = NoChar()
  242.         INTEGER003 = 16
  243.         Print "@CLS@"
  244.         PrintLn "@X0F" + Space((71 - Len(Trim(STRING001, " "))) / 2) + STRING001 + " Oneliners"
  245.         PrintLn "@X07──────────────────────────────────────────────────────────────────────────────@X07"
  246.         DispFile PPEPath() + "ONELINER.LST", 1
  247.         PrintLn "@X07──────────────────────────────────────────────────────────────────────────────@X07"
  248.         PrintLn 
  249.         InputStr "@X0FDo you want to add your own ONELINER(Y/n) _", STRING003, 7, 1, Mask_Ascii(), 8
  250.         If (STRING003 <> "N") Then
  251.             Color 3
  252.             Cls
  253.             PrintLn "@X08──────────────────────────────────────────────────────────────────────────────@X07"
  254.             PrintLn "@X08▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ @X08│@X0FOne@X08-@X0FLiner Limit @X0775 @X0FChars.@X08                │"
  255.             PrintLn "@X70         One-Liner Editor         @X08 │@X0FUse The @X09@X @X08+ @X0FNumerical Value of Colors@X08   │"
  256.             PrintLn "@X70       Add One-Liner Below        @X08 │@X0Ffor Color@X08.                               @X08│"
  257.             PrintLn "@X0F▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X08│                                         │"
  258.             PrintLn "@X08──────────────────────────────────────────────────────────────────────────────@X07"
  259.             PrintLn 
  260.             InputStr "> _", STRING002, 7, 75, Mask_Ascii(), 1024
  261.             If (Len(STRING002) == 0) Goto LABEL003
  262.         Endif
  263.         FAppend 1, PPEPath() + "ONELINER.LST", 2, 0
  264.         FClose 1
  265.         INTEGER005 = 16
  266.         FOpen 1, PPEPath() + "ONELINER.LST", 2, 3
  267.         INTEGER004 = 1
  268.         While (!Ferr(1) && (INTEGER004 <= INTEGER005)) Do
  269.             FGet 1, STRING018
  270.             TSTRING017(INTEGER004) = STRING018
  271.             Inc INTEGER004
  272.         EndWhile
  273.         FClose 1
  274.         FCreate 1, PPEPath() + "ONELINER.LST", 2, 0
  275.         If (INTEGER004 >= INTEGER005) Then
  276.             INTEGER004 = 1
  277.             While ((Len(TSTRING017(INTEGER004 + 1)) > 0) && (INTEGER004 <= INTEGER005)) Do
  278.                 FPutLn 1, TSTRING017(INTEGER004 + 1)
  279.                 INTEGER004 = INTEGER004 + 1
  280.             EndWhile
  281.             Goto LABEL002
  282.         Endif
  283.         INTEGER004 = 1
  284.         While (Len(TSTRING017(INTEGER004)) > 0) Do
  285.             FPutLn 1, TSTRING017(INTEGER004)
  286.             Inc INTEGER004
  287.         EndWhile
  288.         :LABEL002
  289.         FPutLn 1, STRING002
  290.         FClose 1
  291.         PrintLn 
  292.     Endif
  293.     :LABEL003
  294.     Cls
  295.     PrintLn "       @X08─═ @X0FPro/X v2.0  By Mental Clown @X08═─"
  296.  
  297. ;------------------------------------------------------------------------------
  298. ;
  299. ; Usage report (before postprocessing)
  300. ;
  301. ; ■ Statements used :
  302. ;
  303. ;    4       Cls
  304. ;    4       Color 
  305. ;    23      Goto 
  306. ;    12      Let 
  307. ;    12      Print 
  308. ;    75      PrintLn 
  309. ;    14      If 
  310. ;    3       DispFile 
  311. ;    2       FCreate 
  312. ;    4       FOpen 
  313. ;    1       FAppend 
  314. ;    7       FClose 
  315. ;    15      FGet 
  316. ;    15      FPutLn 
  317. ;    2       StartDisp 
  318. ;    1       GetUser
  319. ;    5       InputStr 
  320. ;    2       Inc 
  321. ;    10      InputText 
  322. ;    32      AnsiPos 
  323. ;
  324. ;
  325. ; ■ Functions used :
  326. ;
  327. ;    14      /
  328. ;    38      +
  329. ;    14      -
  330. ;    2       ==
  331. ;    7       <>
  332. ;    2       <=
  333. ;    2       >
  334. ;    2       >=
  335. ;    14      !
  336. ;    2       &&
  337. ;    17      Len(
  338. ;    14      Space()
  339. ;    1       Ferr()
  340. ;    4       Chr()
  341. ;    14      Trim()
  342. ;    1       Random()
  343. ;    1       U_Name()
  344. ;    1       NoChar()
  345. ;    4       Inkey()
  346. ;    5       Mask_Ascii()
  347. ;    10      PPEPath()
  348. ;
  349. ;------------------------------------------------------------------------------
  350. ;
  351. ; Analysis flags : No flag
  352. ;
  353. ;------------------------------------------------------------------------------
  354. ;
  355. ; Postprocessing report
  356. ;
  357. ;    0       For/Next
  358. ;    7       While/EndWhile
  359. ;    6       If/Then or If/Then/Else
  360. ;    0       Select Case
  361. ;
  362. ;------------------------------------------------------------------------------
  363. ;                 AEGiS Corp - Break the routines, code against the machines!
  364. ;------------------------------------------------------------------------------
  365.