home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / MPS_CP25.ZIP / COOLPMPT.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-02-27  |  11KB  |  531 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.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Boolean  BOOLEAN003
  22.     Integer  INTEGER001
  23.     Integer  INTEGER002
  24.     Integer  INTEGER003
  25.     Integer  INTEGER004
  26.     Integer  INTEGER005
  27.     Integer  INTEGER006
  28.     String   STRING001
  29.     String   STRING002
  30.     String   STRING003
  31.     String   STRING004
  32.     String   STRING005
  33.     String   STRING006
  34.     String   STRING007
  35.     String   STRING008
  36.     String   STRING009
  37.     String   STRING010
  38.     String   STRING011
  39.     String   STRING012
  40.     String   STRING013
  41.  
  42. ;------------------------------------------------------------------------------
  43.  
  44.     INTEGER005 = 2
  45.     STRING008 = STRING005 + Chr(INTEGER005 + 65)
  46.     INTEGER005 = 14
  47.     STRING008 = STRING008 + Chr(INTEGER005 + 97)
  48.     INTEGER005 = 14
  49.     STRING008 = STRING008 + Chr(INTEGER005 + 97)
  50.     INTEGER005 = 11
  51.     STRING008 = STRING008 + Chr(INTEGER005 + 97)
  52.     INTEGER005 = 15
  53.     STRING008 = STRING008 + Chr(INTEGER005 + 65)
  54.     INTEGER005 = 17
  55.     STRING008 = STRING008 + Chr(INTEGER005 + 97)
  56.     INTEGER005 = 14
  57.     STRING008 = STRING008 + Chr(INTEGER005 + 97)
  58.     INTEGER005 = 12
  59.     STRING008 = STRING008 + Chr(INTEGER005 + 97)
  60.     INTEGER005 = 15
  61.     STRING008 = STRING008 + Chr(INTEGER005 + 97)
  62.     INTEGER005 = 19
  63.     STRING008 = STRING008 + Chr(INTEGER005 + 97)
  64.     INTEGER005 = 18
  65.     STRING008 = STRING008 + Chr(INTEGER005 + 97)
  66.     STRING008 = STRING008 + " "
  67.     INTEGER005 = 21
  68.     STRING008 = STRING008 + Chr(INTEGER005 + 97)
  69.     INTEGER005 = 2
  70.     STRING008 = STRING008 + String(INTEGER005) + "."
  71.     INTEGER005 = 5
  72.     STRING008 = STRING008 + String(INTEGER005)
  73.     STRING008 = STRING008 + " "
  74.     INTEGER005 = 1
  75.     STRING008 = STRING008 + Chr(INTEGER005 + 97)
  76.     INTEGER005 = 24
  77.     STRING008 = STRING008 + Chr(INTEGER005 + 97)
  78.     STRING008 = STRING008 + " "
  79.     INTEGER005 = 12
  80.     STRING008 = STRING008 + Chr(INTEGER005 + 65)
  81.     INTEGER005 = 15
  82.     STRING008 = STRING008 + Chr(INTEGER005 + 65)
  83.     INTEGER005 = 18
  84.     STRING008 = STRING008 + Chr(INTEGER005 + 65)
  85.     INTEGER005 = 64
  86.     STRING009 = Chr(INTEGER005)
  87.     INTEGER005 = 88
  88.     STRING009 = STRING009 + Chr(INTEGER005)
  89.     INTEGER005 = 48
  90.     STRING009 = STRING009 + Chr(INTEGER005)
  91.     STRING002 = ReadLine(PPEPath() + "COOLPMPT.CFG", 1)
  92.     STRING010 = ReadLine(PPEPath() + "COOLPMPT.CFG", 3)
  93.     INTEGER001 = ReadLine(PPEPath() + "COOLPMPT.CFG", 2)
  94.     STRING011 = ReadLine(PPEPath() + "COOLPMPT.CFG", 4)
  95.     INTEGER002 = ReadLine(PPEPath() + "COOLPMPT.CFG", 6)
  96.     INTEGER003 = ReadLine(PPEPath() + "COOLPMPT.CFG", 7) * 250
  97.     INTEGER005 = 0
  98.     If (STRING002 == "COOLPMPT.LST") Then
  99.         While ((STRING002 <> "") && (INTEGER005 < 4)) Do
  100.             INTEGER005 = INTEGER005 + 1
  101.             STRING002 = ReadLine(PPEPath() + "COOLPMPT.LST", INTEGER005)
  102.         EndWhile
  103.         INTEGER005 = INTEGER005 - 2
  104.         INTEGER004 = Random(INTEGER005)
  105.         INTEGER004 = Random(INTEGER005)
  106.         INTEGER004 = INTEGER004 + 1
  107.         STRING002 = ReadLine(PPEPath() + "COOLPMPT.LST", INTEGER004)
  108.     Endif
  109.     If (Left(STRING002, 4) == "LEFT") Then
  110.         STRING010 = "LEFT"
  111.         STRING002 = Mid(STRING002, 5, Len(STRING002) - 4)
  112.     Endif
  113.     If (Left(STRING002, 4) == "CENTER") Then
  114.         STRING010 = "CENTER"
  115.         STRING002 = Mid(STRING002, 7, Len(STRING002) - 6)
  116.     Endif
  117.     If (INTEGER001 == 0) INTEGER001 = GetY()
  118.     If (STRING010 == "LEFT") STRING010 = 1
  119.     If (STRING010 == "CENTER") STRING010 = 40 - ToInt(Len(STRING002) / 2)
  120.     If (STRING010 == "LEFT") BOOLEAN003 = 1
  121.     If (STRING011 == "RANDOM") Then
  122.         INTEGER004 = 0
  123.         INTEGER004 = Random(5)
  124.     Endif
  125.     If (INTEGER004 == 1) STRING011 = "19"
  126.     If (INTEGER004 == 2) STRING011 = "2A"
  127.     If (INTEGER004 == 3) STRING011 = "3B"
  128.     If (INTEGER004 == 4) STRING011 = "4C"
  129.     If (INTEGER004 == 5) STRING011 = "5D"
  130.     If (INTEGER004 == 0) STRING011 = "87"
  131.     STRING009 = "@X0"
  132.     STRING005 = STRING009 + Left(STRING011, 1)
  133.     STRING006 = STRING009 + Right(STRING011, 1)
  134.     STRING007 = STRING009 + "F"
  135.     ClrEol
  136.     If (ReadLine(PPEPath() + "COOLPMPT.CFG", 5) == "RANDOM") Then
  137.         INTEGER004 = 0
  138.         INTEGER004 = Random(5)
  139.         INTEGER004 = INTEGER004 + 1
  140.         If (INTEGER004 == 1) Goto LABEL003
  141.         If (INTEGER004 == 2) Gosub LABEL004
  142.         If (INTEGER004 == 3) Gosub LABEL008
  143.         If (INTEGER004 == 4) Gosub LABEL005
  144.         If (INTEGER004 == 5) Gosub LABEL006
  145.         If (INTEGER004 == 6) Gosub LABEL007
  146.     Else
  147.         If (ReadLine(PPEPath() + "COOLPMPT.CFG", 5) == "COOL") Gosub LABEL004
  148.         If (ReadLine(PPEPath() + "COOLPMPT.CFG", 5) == "ACID") Gosub LABEL005
  149.         If (ReadLine(PPEPath() + "COOLPMPT.CFG", 5) == "MIRROR") Gosub LABEL006
  150.         If (ReadLine(PPEPath() + "COOLPMPT.CFG", 5) == "TWIRL") Gosub LABEL008
  151.         If (ReadLine(PPEPath() + "COOLPMPT.CFG", 5) == "FLASH") Gosub LABEL007
  152.         Goto LABEL009
  153.         :LABEL001
  154.         For INTEGER006 = 1 To INTEGER002
  155.             STRING003 = Inkey()
  156.             If (STRING003 == Chr(13)) Goto LABEL009
  157.         Next
  158.         Return
  159.         :LABEL002
  160.         For INTEGER006 = 1 To INTEGER003
  161.             STRING003 = Inkey()
  162.             If (STRING003 == Chr(13)) Goto LABEL009
  163.         Next
  164.         Return
  165.         :LABEL003
  166.         If (STRING006 == "@X07") STRING006 = "@X0F"
  167.         AnsiPos STRING010, INTEGER001
  168.         Print STRING006 + STRING002 + " "
  169.         While (STRING003 <> Chr(13)) Do
  170.             STRING003 = Inkey()
  171.         EndWhile
  172.         Goto LABEL009
  173.         :LABEL004
  174.         If (INTEGER003 <> 0) Then
  175.             AnsiPos STRING010, INTEGER001
  176.             Print STRING005 + STRING002
  177.             Gosub LABEL002
  178.         Else
  179.             AnsiPos STRING010, INTEGER001
  180.             Print STRING005 + STRING002
  181.         Endif
  182.         While (STRING003 <> Chr(13)) Do
  183.             AnsiPos STRING010, INTEGER001
  184.             STRING004 = STRING007 + Mid(STRING002, 1, 1) + STRING006 + Mid(STRING002, 2, 1) + STRING005 + Mid(STRING002, 3, 1)
  185.             Print STRING004
  186.             Gosub LABEL001
  187.             INTEGER004 = 1
  188.             While (((1 < 0) && (INTEGER004 >= Len(STRING002) - 2)) || ((1 >= 0) && (INTEGER004 <= Len(STRING002) - 2))) Do
  189.                 STRING003 = Inkey()
  190.                 If (STRING003 == Chr(13)) Goto LABEL009
  191.                 STRING004 = STRING006 + Mid(STRING002, INTEGER004, 1) + STRING007 + Mid(STRING002, INTEGER004 + 1, 1) + STRING006 + Mid(STRING002, INTEGER004 + 2, 1)
  192.                 If (STRING003 == Chr(13)) Goto LABEL009
  193.                 AnsiPos STRING010 - 1 + INTEGER004 - 1, INTEGER001
  194.                 If (STRING003 == Chr(13)) Goto LABEL009
  195.                 Print STRING005 + Mid(STRING002, INTEGER004 - 1, 1)
  196.                 If (STRING003 == Chr(13)) Goto LABEL009
  197.                 AnsiPos STRING010 - 1 + INTEGER004, INTEGER001
  198.                 If (STRING003 == Chr(13)) Goto LABEL009
  199.                 Print STRING004
  200.                 If (STRING003 == Chr(13)) Goto LABEL009
  201.                 Gosub LABEL001
  202.                 INTEGER004 = INTEGER004 + 1
  203.             EndWhile
  204.             For INTEGER004 = Len(STRING002) To 1 Step -1
  205.                 STRING003 = Inkey()
  206.                 If (STRING003 == Chr(13)) Goto LABEL009
  207.                 STRING004 = STRING006 + Mid(STRING002, INTEGER004, 1) + STRING007 + Mid(STRING002, INTEGER004 + 1, 1) + STRING006 + Mid(STRING002, INTEGER004 + 2, 1)
  208.                 If (STRING003 == Chr(13)) Goto LABEL009
  209.                 AnsiPos STRING010 - 1 + INTEGER004, INTEGER001
  210.                 If (STRING003 == Chr(13)) Goto LABEL009
  211.                 Print STRING004
  212.                 If (STRING003 == Chr(13)) Goto LABEL009
  213.                 Print STRING005 + Mid(STRING002, INTEGER004 + 3, 1)
  214.                 If (STRING003 == Chr(13)) Goto LABEL009
  215.                 Gosub LABEL001
  216.             Next
  217.             STRING004 = STRING006 + Mid(STRING002, 1, 1) + STRING007 + Mid(STRING002, 2, 1) + STRING006 + Mid(STRING002, 3, 1)
  218.             AnsiPos STRING010, INTEGER001
  219.             Print STRING004
  220.         EndWhile
  221.         Return
  222.         :LABEL005
  223.         If (INTEGER003 <> 0) Then
  224.             AnsiPos STRING010, INTEGER001
  225.             Print STRING005 + STRING002
  226.             Gosub LABEL002
  227.         Else
  228.             AnsiPos STRING010, INTEGER001
  229.             Print STRING005 + STRING002
  230.         Endif
  231.         STRING011 = 0
  232.         While (STRING003 <> Chr(13)) Do
  233.             AnsiPos STRING010, INTEGER001
  234.             Print STRING007 + Mid(STRING002, 1, 1) + STRING006 + Mid(STRING002, 2, 1)
  235.             INTEGER004 = 1
  236.             While (((1 < 0) && (INTEGER004 >= Len(STRING002) - 1)) || ((1 >= 0) && (INTEGER004 <= Len(STRING002) - 1))) Do
  237.                 STRING003 = Inkey()
  238.                 If (STRING003 == Chr(13)) Goto LABEL009
  239.                 If ((STRING011 == 0) && (INTEGER004 == 1)) Then
  240.                     AnsiPos STRING010 - 1 + INTEGER004 + 2, INTEGER001
  241.                     Print STRING006 + Mid(STRING002, INTEGER004 + 2, 1)
  242.                 Endif
  243.                 AnsiPos STRING010 - 1 + INTEGER004 + 3, INTEGER001
  244.                 If (STRING003 == Chr(13)) Goto LABEL009
  245.                 Print STRING006 + Mid(STRING002, INTEGER004 + 3, 1)
  246.                 If (STRING003 == Chr(13)) Goto LABEL009
  247.                 AnsiPos STRING010 - 1 + INTEGER004 + 1, INTEGER001
  248.                 If (STRING003 == Chr(13)) Goto LABEL009
  249.                 Print STRING007 + Mid(STRING002, INTEGER004 + 1, 1)
  250.                 If (STRING003 == Chr(13)) Goto LABEL009
  251.                 AnsiPos STRING010 - 1 + INTEGER004, INTEGER001
  252.                 If (STRING003 == Chr(13)) Goto LABEL009
  253.                 Print STRING006 + Mid(STRING002, INTEGER004, 1)
  254.                 If (INTEGER004 > 2) Then
  255.                     AnsiPos STRING010 - 1 + INTEGER004 - 2, INTEGER001
  256.                     Print STRING005 + Mid(STRING002, INTEGER004 - 2, 1)
  257.                 Endif
  258.                 If (STRING003 == Chr(13)) Goto LABEL009
  259.                 Gosub LABEL001
  260.                 INTEGER004 = INTEGER004 + 1
  261.             EndWhile
  262.             For INTEGER004 = Len(STRING002) To 2 Step -1
  263.                 STRING003 = Inkey()
  264.                 If (STRING003 == Chr(13)) Goto LABEL009
  265.                 If (INTEGER004 > 3) Then
  266.                     AnsiPos STRING010 - 1 + INTEGER004 - 3, INTEGER001
  267.                     Print STRING006 + Mid(STRING002, INTEGER004 - 3, 1)
  268.                 Endif
  269.                 AnsiPos STRING010 - 1 + INTEGER004 - 1, INTEGER001
  270.                 If (STRING003 == Chr(13)) Goto LABEL009
  271.                 Print STRING007 + Mid(STRING002, INTEGER004 - 1, 1) + STRING006 + Mid(STRING002, INTEGER004, 1)
  272.                 If (STRING003 == Chr(13)) Goto LABEL009
  273.                 AnsiPos STRING010 - 1 + INTEGER004 + 2, INTEGER001
  274.                 If (STRING003 == Chr(13)) Goto LABEL009
  275.                 Print STRING005 + Mid(STRING002, INTEGER004 + 2, 1)
  276.                 If (STRING003 == Chr(13)) Goto LABEL009
  277.                 Gosub LABEL001
  278.             Next
  279.             STRING011 = 1
  280.         EndWhile
  281.         Return
  282.         :LABEL006
  283.         If (INTEGER003 <> 0) Then
  284.             AnsiPos STRING010, INTEGER001
  285.             Print STRING005 + STRING002
  286.             Gosub LABEL002
  287.         Else
  288.             AnsiPos STRING010, INTEGER001
  289.             Print STRING005 + STRING002
  290.         Endif
  291.         INTEGER004 = 0
  292.         INTEGER005 = Len(STRING002)
  293.         STRING011 = 0
  294.         While (STRING003 <> Chr(13)) Do
  295.             If (INTEGER004 == Len(STRING002)) Then
  296.                 INTEGER004 = 0
  297.                 INTEGER005 = Len(STRING002)
  298.             Endif
  299.             If (INTEGER004 == 0) Then
  300.                 AnsiPos STRING010, INTEGER001
  301.                 If (STRING003 == Chr(13)) Goto LABEL009
  302.                 STRING004 = STRING007 + Mid(STRING002, 1, 1) + STRING006 + Mid(STRING002, 2, 1) + STRING005 + Mid(STRING002, 3, 1)
  303.                 If (STRING003 == Chr(13)) Goto LABEL009
  304.                 Print STRING004
  305.                 If (STRING003 == Chr(13)) Goto LABEL009
  306.                 STRING003 = Inkey()
  307.                 If (STRING003 == Chr(13)) Goto LABEL009
  308.                 STRING004 = STRING006 + Mid(STRING002, INTEGER004, 1) + STRING007 + Mid(STRING002, INTEGER004 + 1, 1) + STRING006 + Mid(STRING002, INTEGER004 + 2, 1)
  309.                 AnsiPos STRING010 - 1 + INTEGER004 - 1, INTEGER001
  310.                 If (STRING003 == Chr(13)) Goto LABEL009
  311.                 If (STRING010 == 1) Then
  312.                     Print STRING005 + Left(STRING002, 0)
  313.                     If (STRING003 == Chr(13)) Goto LABEL009
  314.                 Else
  315.                     Print STRING005 + Mid(STRING002, INTEGER004 - 1, 1)
  316.                     If (STRING003 == Chr(13)) Goto LABEL009
  317.                 Endif
  318.             Else
  319.                 STRING003 = Inkey()
  320.                 If (STRING003 == Chr(13)) Goto LABEL009
  321.                 STRING004 = STRING006 + Mid(STRING002, INTEGER004, 1) + STRING007 + Mid(STRING002, INTEGER004 + 1, 1) + STRING006 + Mid(STRING002, INTEGER004 + 2, 1)
  322.                 If (STRING003 == Chr(13)) Goto LABEL009
  323.                 AnsiPos STRING010 - 1 + INTEGER004 - 1, INTEGER001
  324.                 If (STRING003 == Chr(13)) Goto LABEL009
  325.                 Print STRING005 + Mid(STRING002, INTEGER004 - 1, 1)
  326.                 If (STRING003 == Chr(13)) Goto LABEL009
  327.                 AnsiPos STRING010 - 1 + INTEGER004, INTEGER001
  328.                 If (STRING003 == Chr(13)) Goto LABEL009
  329.                 Print STRING004
  330.                 If (STRING003 == Chr(13)) Goto LABEL009
  331.             Endif
  332.             INTEGER004 = INTEGER004 + 1
  333.             INTEGER005 = INTEGER005 - 1
  334.             If (INTEGER004 <> ToInt(Len(STRING002) / 2)) Gosub LABEL001
  335.             If (INTEGER005 == 0) Then
  336.                 STRING004 = STRING006 + Mid(STRING002, 1, 1) + STRING007 + Mid(STRING002, 2, 1) + STRING006 + Mid(STRING002, 3, 1)
  337.                 If (STRING003 == Chr(13)) Goto LABEL009
  338.                 AnsiPos STRING010, INTEGER001
  339.                 If (STRING003 == Chr(13)) Goto LABEL009
  340.                 Print STRING004
  341.                 If (STRING003 == Chr(13)) Goto LABEL009
  342.                 Continue
  343.             Endif
  344.             STRING003 = Inkey()
  345.             If (STRING003 == Chr(13)) Goto LABEL009
  346.             STRING004 = STRING006 + Mid(STRING002, INTEGER005, 1) + STRING007 + Mid(STRING002, INTEGER005 + 1, 1) + STRING006 + Mid(STRING002, INTEGER005 + 2, 1)
  347.             If (STRING003 == Chr(13)) Goto LABEL009
  348.             AnsiPos STRING010 - 1 + INTEGER005, INTEGER001
  349.             If (STRING003 == Chr(13)) Goto LABEL009
  350.             Print STRING004
  351.             If (STRING003 == Chr(13)) Goto LABEL009
  352.             Print STRING005 + Mid(STRING002, INTEGER005 + 3, 1)
  353.             If (STRING003 == Chr(13)) Goto LABEL009
  354.         EndWhile
  355.         Return
  356.         :LABEL007
  357.         If (INTEGER003 <> 0) Then
  358.             AnsiPos STRING010, INTEGER001
  359.             Print STRING005 + STRING002
  360.             Gosub LABEL002
  361.         Else
  362.             AnsiPos STRING010, INTEGER001
  363.             Print STRING005 + STRING002
  364.         Endif
  365.         INTEGER002 = INTEGER002 * 5
  366.         For INTEGER004 = 1 To Len(STRING002)
  367.             STRING003 = Inkey()
  368.             If (STRING003 == Chr(13)) Goto LABEL009
  369.             If (Upper(Mid(STRING002, INTEGER004, 5)) == "ENTER") Break
  370.         Next
  371.         While (STRING003 == "") Do
  372.             STRING003 = Inkey()
  373.             AnsiPos STRING010 + INTEGER004 - 1, INTEGER001
  374.             Print STRING006 + Mid(STRING002, INTEGER004, 5)
  375.             Gosub LABEL001
  376.             AnsiPos STRING010 + INTEGER004 - 1, INTEGER001
  377.             Print STRING005 + Mid(STRING002, INTEGER004, 5)
  378.             Gosub LABEL001
  379.         EndWhile
  380.         Return
  381.         :LABEL008
  382.         BOOLEAN001 = 1
  383.         If (STRING010 < 5) Then
  384.             STRING010 = STRING010 + 4
  385.             BOOLEAN002 = 1
  386.         Endif
  387.         AnsiPos STRING010, INTEGER001
  388.         Print STRING006 + STRING002
  389.         If (INTEGER003 <> 0) Then
  390.             AnsiPos STRING010 - 4, INTEGER001
  391.             Print STRING005 + "[" + STRING006 + "-" + STRING005 + "] "
  392.             AnsiPos STRING010 + Len(STRING002), INTEGER001
  393.             Print STRING005 + " [" + STRING006 + "-" + STRING005 + "]"
  394.             Gosub LABEL002
  395.         Else
  396.             AnsiPos STRING010 - 4, INTEGER001
  397.             Print STRING005 + "[ ] "
  398.             AnsiPos STRING010 + Len(STRING002), INTEGER001
  399.             Print STRING005 + " [ ]"
  400.         Endif
  401.         Print STRING006
  402.         While (STRING003 <> Chr(13)) Do
  403.             For INTEGER004 = 1 To 4
  404.                 STRING003 = Inkey()
  405.                 If (INTEGER004 == 1) Then
  406.                     STRING012 = "-"
  407.                     STRING013 = "-"
  408.                 Endif
  409.                 If (INTEGER004 == 2) Then
  410.                     STRING012 = "/"
  411.                     STRING013 = "\"
  412.                 Endif
  413.                 If (INTEGER004 == 3) Then
  414.                     STRING012 = "|"
  415.                     STRING013 = "|"
  416.                 Endif
  417.                 If (INTEGER004 == 4) Then
  418.                     STRING012 = "\"
  419.                     STRING013 = "/"
  420.                 Endif
  421.                 If (STRING003 == Chr(13)) Goto LABEL009
  422.                 AnsiPos STRING010 - 3, INTEGER001
  423.                 If (STRING003 == Chr(13)) Goto LABEL009
  424.                 Print STRING012
  425.                 If (STRING003 == Chr(13)) Goto LABEL009
  426.                 AnsiPos STRING010 + Len(STRING002) + 2, INTEGER001
  427.                 If (STRING003 == Chr(13)) Goto LABEL009
  428.                 Print STRING013
  429.                 If (STRING003 == Chr(13)) Goto LABEL009
  430.                 Gosub LABEL001
  431.             Next
  432.         EndWhile
  433.         Return
  434.     Endif
  435.     :LABEL009
  436.     INTEGER005 = 0
  437.     If (BOOLEAN003 == 1) STRING010 = 1
  438.     If (Len(STRING002) > Len(STRING008)) Then
  439.         INTEGER005 = Len(STRING002) - Len(STRING008)
  440.         If (STRING010 > 1) Then
  441.             INTEGER005 = ToInt(INTEGER005 / 2)
  442.             For INTEGER004 = 1 To INTEGER005
  443.                 STRING008 = " " + STRING008
  444.             Next
  445.             For INTEGER004 = 1 To INTEGER005 + 1
  446.                 STRING008 = STRING008 + " "
  447.             Next
  448.             Goto LABEL010
  449.         Endif
  450.         If (BOOLEAN002 == 1) INTEGER005 = INTEGER005 + 8
  451.         For INTEGER004 = 1 To INTEGER005
  452.             STRING008 = STRING008 + " "
  453.         Next
  454.     Endif
  455.     :LABEL010
  456.     If (Len(STRING002) < Len(STRING008)) Then
  457.         INTEGER005 = Len(STRING008) - Len(STRING002)
  458.         AnsiPos STRING010 - ToInt(INTEGER005 / 2), INTEGER001
  459.     Else
  460.         AnsiPos STRING010, INTEGER001
  461.     Endif
  462.     PrintLn STRING008
  463.     If ((ReadLine(PPEPath() + "COOLPMPT.CFG", 8) == "YES") && ("" <> "NOLF")) PrintLn 
  464.     If ((ReadLine(PPEPath() + "COOLPMPT.CFG", 9) <> "YES") && ("" <> "SA")) KbdStuff Chr(13)
  465.     STRING001 = " ■ MPS Encryption v1.0 (C)1994 ■ "
  466.  
  467. ;------------------------------------------------------------------------------
  468. ;
  469. ; Usage report (before postprocessing)
  470. ;
  471. ; ■ Statements used :
  472. ;
  473. ;    1       ClrEol
  474. ;    128     Goto 
  475. ;    160     Let 
  476. ;    42      Print 
  477. ;    2       PrintLn 
  478. ;    123     If 
  479. ;    24      Gosub 
  480. ;    7       Return
  481. ;    1       KbdStuff 
  482. ;    40      AnsiPos 
  483. ;
  484. ;
  485. ; ■ Functions used :
  486. ;
  487. ;    6       -
  488. ;    2       *
  489. ;    4       /
  490. ;    213     +
  491. ;    45      -
  492. ;    94      ==
  493. ;    15      <>
  494. ;    14      <
  495. ;    11      <=
  496. ;    4       >
  497. ;    22      >=
  498. ;    43      !
  499. ;    26      &&
  500. ;    11      ||
  501. ;    26      Len(
  502. ;    1       Upper()
  503. ;    48      Mid()
  504. ;    4       Left()
  505. ;    1       Right()
  506. ;    78      Chr()
  507. ;    4       Random()
  508. ;    13      Inkey()
  509. ;    2       String()
  510. ;    16      PPEPath()
  511. ;    16      ReadLine()
  512. ;    1       GetY()
  513. ;    4       ToInt()
  514. ;
  515. ;------------------------------------------------------------------------------
  516. ;
  517. ; Analysis flags : No flag
  518. ;
  519. ;------------------------------------------------------------------------------
  520. ;
  521. ; Postprocessing report
  522. ;
  523. ;    9       For/Next
  524. ;    9       While/EndWhile
  525. ;    25      If/Then or If/Then/Else
  526. ;    0       Select Case
  527. ;
  528. ;------------------------------------------------------------------------------
  529. ;                 AEGiS Corp - Break the routines, code against the machines!
  530. ;------------------------------------------------------------------------------
  531.