home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / WAITV30.ZIP / WAIT.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-01-06  |  7KB  |  335 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.     Boolean  BOOLEAN001
  20.     Integer  INTEGER001
  21.     Integer  INTEGER002
  22.     Integer  INTEGER003
  23.     Integer  INTEGER004
  24.     Integer  INTEGER005
  25.     Integer  INTEGER006
  26.     Integer  INTEGER007
  27.     Integer  INTEGER008
  28.     String   STRING001
  29.     String   STRING002
  30.     String   TSTRING003(3)
  31.     String   TSTRING004(3)
  32.     String   TSTRING005(3)
  33.     String   STRING006
  34.     String   TSTRING007(3)
  35.     String   TSTRING008(7)
  36.     String   STRING009
  37.     String   STRING010
  38.     String   STRING011
  39.     String   STRING012
  40.     String   STRING013
  41.  
  42. ;------------------------------------------------------------------------------
  43.  
  44.     INTEGER008 = 1
  45.     INTEGER006 = 1
  46.     FOpen 1, PPEPath() + "WAIT.CFG", 0, 0
  47.     FDefIn 1
  48.     FDGet TSTRING008(INTEGER006)
  49.     :LABEL001
  50.     If (Ferr(1)) Goto LABEL002
  51.     Inc INTEGER006
  52.     FDGet TSTRING008(INTEGER006)
  53.     Goto LABEL001
  54.     :LABEL002
  55.     FClose 1
  56.     STRING009 = Mid(TSTRING008(1), 1, 2)
  57.     STRING010 = Mid(TSTRING008(1), 3, 2)
  58.     STRING011 = Mid(TSTRING008(1), 5, 2)
  59.     STRING012 = Mid(TSTRING008(1), 7, 2)
  60.     STRING013 = Mid(TSTRING008(1), 9, 2)
  61.     If (Len(TSTRING008(1)) < 10) INTEGER008 = 2
  62.     If (Len(TSTRING008(1)) > 10) TSTRING008(1) = Left(TSTRING008(1), 10)
  63.     For INTEGER004 = 2 To 7
  64.         TSTRING008(INTEGER004) = Left(TSTRING008(INTEGER004), 4)
  65.     Next
  66.     If (TSTRING008(1) == "1111111111") INTEGER008 = 2
  67.     If (TSTRING008(1) == "1212121212") INTEGER008 = 2
  68.     If (TSTRING008(1) == "1010101010") INTEGER008 = 2
  69.     If (TSTRING008(1) == "0101010101") INTEGER008 = 2
  70.     If (STRING009 > "66") INTEGER008 = 2
  71.     If (STRING009 == "00") INTEGER008 = 2
  72.     If (STRING010 > "26") INTEGER008 = 2
  73.     If (STRING010 == "00") INTEGER008 = 2
  74.     If (STRING011 > "26") INTEGER008 = 2
  75.     If (STRING011 == "00") INTEGER008 = 2
  76.     If (STRING012 > "12") INTEGER008 = 2
  77.     If (STRING012 == "00") INTEGER008 = 2
  78.     If (TSTRING008(2) == "    ") TSTRING008(2) = "@X09"
  79.     If (TSTRING008(3) == "    ") TSTRING008(3) = "@X09"
  80.     If (TSTRING008(4) == "    ") TSTRING008(4) = "@X0E"
  81.     If (TSTRING008(5) == "    ") TSTRING008(5) = "@X0E"
  82.     If (TSTRING008(6) == "    ") TSTRING008(6) = "@X0F"
  83.     If (TSTRING008(7) == "    ") TSTRING008(7) = "@X0C"
  84.     Delete PPEPath() + "WAIT.CFG"
  85.     FOpen 2, PPEPath() + "WAIT.CFG", 1, 1
  86.     If (INTEGER008 == 2) Then
  87.         FPutLn 2, "0000000001    ∞ Your Personalized Registration Code (0000000001 Default)"
  88.         FPutLn 2, TSTRING008(2) + "          ∞ Color Choice For First Whirl"
  89.         FPutLn 2, TSTRING008(3) + "          ∞ Color Choice For Second Whirl"
  90.         FPutLn 2, TSTRING008(4) + "          ∞ Color Choice For 'Enter'"
  91.         FPutLn 2, TSTRING008(5) + "          ∞ Color Choice For Main Prompt"
  92.         FPutLn 2, TSTRING008(6) + "          ∞ Color Choice For Brackets ( [] )"
  93.         FPutLn 2, TSTRING008(7) + "          ∞ Color Choice For «-"
  94.         FPutLn 2, "    ╔══════════════════════════════════════════════════════════════════════╗"
  95.         FPutLn 2, "    ║     WAIT v3.0  Unregistered Evaluation Copy!   For Support call:     ║"
  96.         FPutLn 2, "    ║             The Realm of Delirium BBS at (806) 935-4760              ║"
  97.         FPut 2, "    ╚══════════════════════════════════════════════════════════════════════╝"
  98.     Endif
  99.     If (INTEGER008 == 1) Then
  100.         FPutLn 2, TSTRING008(1) + "    ∞ Your Personalized Registration Code (0000000001 Default)"
  101.         FPutLn 2, TSTRING008(2) + "          ∞ Color Choice For First Whirl"
  102.         FPutLn 2, TSTRING008(3) + "          ∞ Color Choice For Second Whirl"
  103.         FPutLn 2, TSTRING008(4) + "          ∞ Color Choice For 'Enter'"
  104.         FPutLn 2, TSTRING008(5) + "          ∞ Color Choice For Main Prompt"
  105.         FPutLn 2, TSTRING008(6) + "          ∞ Color Choice For Brackets ( [] )"
  106.         FPutLn 2, TSTRING008(7) + "          ∞ Color Choice For «-"
  107.         FPutLn 2, "    ╔══════════════════════════════════════════════════════════════════════╗"
  108.         FPutLn 2, "    ║        WAIT v3.0  Thanks for Registering!  For Support call:         ║"
  109.         FPutLn 2, "    ║             The Realm of Delirium BBS at (806) 935-4760              ║"
  110.         FPutLn 2, "    ╚══════════════════════════════════════════════════════════════════════╝"
  111.     Endif
  112.     FClose 2
  113.     STRING006 = LangExt()
  114.     If (Exist(PPEPath() + "WAITTXT" + LangExt()) == 0) Goto LABEL010
  115.     FOpen 3, PPEPath() + "WAITTXT" + LangExt(), 0, 0
  116.     INTEGER006 = 1
  117.     FGet 3, TSTRING007(INTEGER006)
  118.     :LABEL003
  119.     If (Ferr(3)) Goto LABEL004
  120.     Inc INTEGER006
  121.     FGet 3, TSTRING007(INTEGER006)
  122.     Goto LABEL003
  123.     :LABEL004
  124.     FClose 3
  125.     :LABEL005
  126.     BOOLEAN001 = 0
  127.     TSTRING003(0) = "-"
  128.     TSTRING003(1) = "\"
  129.     TSTRING003(2) = "|"
  130.     TSTRING003(3) = "φ"
  131.     TSTRING004(0) = "φ"
  132.     TSTRING004(1) = "|"
  133.     TSTRING004(2) = "\"
  134.     TSTRING004(3) = "-"
  135.     TSTRING005(1) = TSTRING008(2) + " " + TSTRING008(5) + TSTRING007(1) + TSTRING008(6) + " ["
  136.     TSTRING005(2) = TSTRING008(4) + TSTRING007(2) + TSTRING008(5) + TSTRING008(6) + "]" + TSTRING008(5) + " " + TSTRING007(3) + " " + TSTRING008(3) + ""
  137.     TSTRING005(3) = TSTRING005(1) + TSTRING005(2)
  138.     STRING002 = Chr(13)
  139.     If (INTEGER008 == 2) TSTRING005(3) = "@X0E " + TSTRING007(1) + " [@X0C" + TSTRING007(2) + "@X0E] " + TSTRING007(3) + " @X09"
  140.     INTEGER005 = GetY()
  141.     If (INTEGER008 == 1) Goto LABEL008
  142.     :LABEL006
  143.     If (BOOLEAN001) Goto LABEL007
  144.     AnsiPos 1, INTEGER005
  145.     Delay 1
  146.     Print "" + TSTRING003(INTEGER001 % 4) + TSTRING005(3) + TSTRING004(INTEGER001 % 4)
  147.     Inc INTEGER001
  148.     INTEGER004 = GetX()
  149.     INTEGER007 = INTEGER004 + 2
  150.     Inc INTEGER001
  151.     STRING001 = Upper(Inkey())
  152.     If (STRING001 == Chr(13)) Then
  153.         BOOLEAN001 = 1
  154.         For INTEGER003 = INTEGER007 To 0 Step -1
  155.             Print "@X0C"
  156.             AnsiPos INTEGER003, INTEGER005
  157.             Print Chr(174) + "-@X07 "
  158.             If (INTEGER003 == 13) Then
  159.                 AnsiPos INTEGER003 + 2, INTEGER005
  160.                 Print "@X01D"
  161.                 AnsiPos INTEGER003, INTEGER005
  162.                 Continue
  163.             Endif
  164.             If (INTEGER003 == 12) Then
  165.                 AnsiPos INTEGER003 + 2, INTEGER005
  166.                 Print "@X02E"
  167.                 AnsiPos INTEGER003, INTEGER005
  168.                 Continue
  169.             Endif
  170.             If (INTEGER003 == 11) Then
  171.                 AnsiPos INTEGER003 + 2, INTEGER005
  172.                 Print "@X03R"
  173.                 AnsiPos INTEGER003, INTEGER005
  174.                 Continue
  175.             Endif
  176.             If (INTEGER003 == 10) Then
  177.                 AnsiPos INTEGER003 + 2, INTEGER005
  178.                 Print "@X04E"
  179.                 AnsiPos INTEGER003, INTEGER005
  180.                 Continue
  181.             Endif
  182.             If (INTEGER003 == 9) Then
  183.                 AnsiPos INTEGER003 + 2, INTEGER005
  184.                 Print "@X05T"
  185.                 AnsiPos INTEGER003, INTEGER005
  186.                 Continue
  187.             Endif
  188.             If (INTEGER003 == 8) Then
  189.                 AnsiPos INTEGER003 + 2, INTEGER005
  190.                 Print "@X06S"
  191.                 AnsiPos INTEGER003, INTEGER005
  192.                 Continue
  193.             Endif
  194.             If (INTEGER003 == 7) Then
  195.                 AnsiPos INTEGER003 + 2, INTEGER005
  196.                 Print "@X07I"
  197.                 AnsiPos INTEGER003, INTEGER005
  198.                 Continue
  199.             Endif
  200.             If (INTEGER003 == 6) Then
  201.                 AnsiPos INTEGER003 + 2, INTEGER005
  202.                 Print "@X09G"
  203.                 AnsiPos INTEGER003, INTEGER005
  204.                 Continue
  205.             Endif
  206.             If (INTEGER003 == 5) Then
  207.                 AnsiPos INTEGER003 + 2, INTEGER005
  208.                 Print "@X0AE"
  209.                 AnsiPos INTEGER003, INTEGER005
  210.                 Continue
  211.             Endif
  212.             If (INTEGER003 == 4) Then
  213.                 AnsiPos INTEGER003 + 2, INTEGER005
  214.                 Print "@X0BR"
  215.                 AnsiPos INTEGER003, INTEGER005
  216.                 Continue
  217.             Endif
  218.             If (INTEGER003 == 3) Then
  219.                 AnsiPos INTEGER003 + 2, INTEGER005
  220.                 Print "@X0CN"
  221.                 AnsiPos INTEGER003, INTEGER005
  222.                 Continue
  223.             Endif
  224.             If (INTEGER003 == 2) Then
  225.                 AnsiPos INTEGER003 + 2, INTEGER005
  226.                 Print "@X0DU"
  227.                 AnsiPos INTEGER003, INTEGER005
  228.             Endif
  229.         Next
  230.         AnsiPos 1, INTEGER005
  231.         Print "  "
  232.         KbdStuff STRING002
  233.     Endif
  234.     Goto LABEL006
  235.     :LABEL007
  236.     Goto LABEL011
  237.     :LABEL008
  238.     If (BOOLEAN001) Goto LABEL009
  239.     AnsiPos 1, INTEGER005
  240.     Delay 1
  241.     Print TSTRING008(2) + TSTRING003(INTEGER001 % 4) + TSTRING005(3) + TSTRING004(INTEGER001 % 4)
  242.     INTEGER004 = GetX()
  243.     INTEGER007 = INTEGER004 + 2
  244.     Inc INTEGER001
  245.     STRING001 = Upper(Inkey())
  246.     If (STRING001 == Chr(13)) Then
  247.         BOOLEAN001 = 1
  248.         For INTEGER002 = INTEGER007 To 0 Step -1
  249.             Print TSTRING008(7)
  250.             AnsiPos INTEGER002, INTEGER005
  251.             Print Chr(174) + "-@X07 "
  252.         Next
  253.         AnsiPos 1, INTEGER005
  254.         Print "  "
  255.         KbdStuff STRING002
  256.     Else
  257.         Goto LABEL008
  258.         :LABEL009
  259.         Goto LABEL011
  260.         :LABEL010
  261.         TSTRING007(1) = "Press"
  262.         TSTRING007(2) = "Enter"
  263.         TSTRING007(3) = "to Continue"
  264.         Goto LABEL005
  265.     Endif
  266.     :LABEL011
  267.     AnsiPos 1, INTEGER005
  268.  
  269. ;------------------------------------------------------------------------------
  270. ;
  271. ; Usage report (before postprocessing)
  272. ;
  273. ; ■ Statements used :
  274. ;
  275. ;    47      Goto 
  276. ;    62      Let 
  277. ;    20      Print 
  278. ;    46      If 
  279. ;    3       FOpen 
  280. ;    3       FClose 
  281. ;    2       FGet 
  282. ;    1       FPut 
  283. ;    21      FPutLn 
  284. ;    1       Delete 
  285. ;    2       Delay 
  286. ;    5       Inc 
  287. ;    2       KbdStuff 
  288. ;    31      AnsiPos 
  289. ;    1       FDefIn 
  290. ;    2       FDGet 
  291. ;
  292. ;
  293. ; ■ Functions used :
  294. ;
  295. ;    6       -
  296. ;    4       %
  297. ;    67      +
  298. ;    33      ==
  299. ;    4       <
  300. ;    3       <=
  301. ;    5       >
  302. ;    6       >=
  303. ;    23      !
  304. ;    6       &&
  305. ;    3       ||
  306. ;    2       Len(
  307. ;    2       Upper()
  308. ;    5       Mid()
  309. ;    2       Left()
  310. ;    2       Ferr()
  311. ;    5       Chr()
  312. ;    2       Inkey()
  313. ;    5       PPEPath()
  314. ;    1       Exist()
  315. ;    3       LangExt()
  316. ;    2       GetX()
  317. ;    1       GetY()
  318. ;
  319. ;------------------------------------------------------------------------------
  320. ;
  321. ; Analysis flags : No flag
  322. ;
  323. ;------------------------------------------------------------------------------
  324. ;
  325. ; Postprocessing report
  326. ;
  327. ;    3       For/Next
  328. ;    0       While/EndWhile
  329. ;    16      If/Then or If/Then/Else
  330. ;    0       Select Case
  331. ;
  332. ;------------------------------------------------------------------------------
  333. ;                 AEGiS Corp - Break the routines, code against the machines!
  334. ;------------------------------------------------------------------------------
  335.