home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / T / TOPS!PIE.ZIP / DOWNLOAD.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-04-29  |  12KB  |  765 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.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     Integer  INTEGER010
  29.     Integer  INTEGER011
  30.     Integer  INTEGER012
  31.     Integer  INTEGER013
  32.     Integer  INTEGER014
  33.     String   STRING001
  34.  
  35. ;------------------------------------------------------------------------------
  36.  
  37.     Cls
  38.     PrintLn "@POFF@@X08■▓▀▓■ ▀ ▀▓ ▀ [uZ!]▓ ▀ █▀▀▀▓▀ ▀ ▀▀▀▀▓ @X0D▄@X05▄@X0D▄▄ @X08■▀▓▀ ▀▀ ▀  ▀  ▓▀ ▀ ▀░▀▀▀▀▀▀ ▀▓▀ ▀▄▓"
  39.     PrintLn "@X08▄▓▄   @X5D▓▀@X05▄ @X08░▄ ▓ @X0D▄@X05▓@X0D▄@X05▄@X0D▄ @X08░ @X0D▄@X05▓@X0D▄@X05▄@X0D▄ @X08▄▒@X0D▄@X05▓@X0D▄@X05▄@X0D▄@X08░ @X5D▀▓▄@X05▄@X0D▄@X05▄   @X0D▄@X05▓@X0D▄@X05▄@X0D▄@X08░ @X5D░@X0D▄@X05▄@X0D▄@X5D▓░@X05▄  @X0D▓▄▄@X05▄@X0D▄@X05▄@X08▓   ■▀ ▓"
  40.     Print "@X08▓▒▌ ░ @X5D▓@X5C▒@X5D·@X0F @X08▒ ▀■@X5C░@X05█@X5D·@X0F @X5D▓@X05█@X5C▓@X0F @X5D░■ @X0F @X5D▀▓ @X0F @X5C░@X05█@X5D·"
  41.     PrintLn "@X0F @X5D■@X05█@X5C▄@X0F @X5D■░▀@X0F @X05█@X5C░@X5D░@X0F @X5C░@X05█@X5D·@X0F @X5D■@X05█@X5C▄@X0F @X5D▀■▓@X0F @X5C■@X5D▀·@X0F @X5D▓▀@X5C░@X0F @X5D▀▓▄@X05▌ @X08░  ▓ ▒"
  42.     Print "@X08▒▒  ▒ @X05█@X5C▓@X50■@X08░@X0D▄▄▓ @X5D▒@X5C▄@X5D░@X05▄@X5D▀■@X5C▀@X08░@X5C■▄@X5D░@X05▄@X5C▀░@X05▓@X08░@X5D▒@X5C▄@X5D░@X0F @X05▄▄@X0D▄@X08░@X05█@X5C▄░@X08░@X5C■▀@X5D"
  43.     PrintLn "▄@X0F @X5D▒@X5C▄@X5D░@X50▀@X5D░@X5C▓@X05█@X08░@X5C░▄@X5D░@X08░@X5C░▀@X50░@X0F @X05▀@X5C■@X5D░@X05▓▄@X0C▄■  @X08▒ ▐▄ ░"
  44.     Print "@X08░░▌ ▓ @X75▓@X5C▀■@X08░@X5D▓@X5C▄@X05▓ @X5C▀ @X50░@X08░@X05▄▄▄@X08■@X50░@X5C▒ @X08░@X05▄▄▄@X08■@X5C▀ @X50░@X08░@X5D░@X5C▀■@X08■@X05█@X50▄@X05█@X08▒@X57▄@X05"
  45.     PrintLn "█▓ @X5C▀ @X50░@X08░@X05▄▄▄@X08■@X5C▀@X57░@X05█@X08▒@X05▓▀▀@X08░@X0C▄@X05▄▄@X08░@X5C▀░@X05█  @X08▓ ▄■ ▒"
  46.     Print "@X08.░  ▀ @X75░@X50■@X75▀@X0F @X05█@X57▄@X05█▌@X57░▄@X50■@X0F @X05█@X57░▄@X05▌@X57▄░▀@X0F @X50■@X57▄■@X05▌@X57■▄@X50■@X0F @X05█@X57▀░@X05▌@X57░■▒@X08"
  47.     PrintLn "░@X57░▀@X50■@X05▌@X57■▄@X50■@X0F @X05█@X57▀░@X05▌█@X57▓@X50■@X08░  ░ @X57░▄■@X08■@X50░@X57▄@X05█▌ @X08▀   ▓▒"
  48.     PrintLn "@X08∙▄▓▄■  @X07▀@X05▀@X75 ▀▓▄@X0F @X08■@X05▀▀@X57▓▀■@X05▀ @X08■@X05▀▀@X57▓▄░@X05▀ @X08■@X05▀▀@X57▄▀■@X05▀@X08░@X57▓▄▀@X0F @X57▄▓■@X08░■@X05▀▀@X57▄▀■@X05▀@X08░@X57▓▄■@X08▀░@X07▀■@X08▓▄@X05▀▀@X57▓▀■@X50■@X08▒▓■▄▀■▄▓"
  49.     PrintLn "@X08:▓▀■▄▓▄▄▄ ▄▓ ▄ ▄▄▄▄▓ ▄▄▄▓▄▄ ▄▓▄▄▄░▄▄ ▄ ▄▄▄ ▄▄▄▓▄▄▄▄▄▄▄▓▄ ▄▄▒▄ ▓▄■ ▄▓▄▄▄▓▄▄▓▀■"
  50.     PrintLn "|@X07[@X0F#@X07]@X08▀ @X07[@X0FHandle@X07]    @X08 ▀  ▀ @X07[@X0FLocation@X07]@X08▀    ▀  ▓   ▀@X07[@X0FBytes Leech@X07]@X08▀  ▓ ▀@X07[@X0FBytes UL@X07]@X08▓"
  51.     PrintLn "▓▄■. ▀▓▀■  ▀  ▀ |▓▀ ▀▓▀▀ ▀: ▀     ▀▀▀▀▓▀▀ ▀▀:▀ ▀▀▀▓▀▀▀▓  ▀ ▀▀▓▀▀▀▀▀▓▀▀■:▀  ░▀"
  52.     PrintLn "■@X07@X0FO1@X08..                                                                       @X08▓"
  53.     PrintLn "@X08|@X07O2@X08..                                                                       @X08▀"
  54.     PrintLn "@X08:@X07O3@X08..                                                                       @X08|"
  55.     PrintLn "@X08.@X07O4@X08..                                                                       @X08:"
  56.     PrintLn ".@X07O5@X08..                                                                       @X08."
  57.     PrintLn "@X08.@X07O6@X08..                                                                       @X08."
  58.     PrintLn "@X08:@X07O7@X08..                                                                       @X08:"
  59.     PrintLn "@X08|@X07O8@X08..                                                                       @X08|"
  60.     PrintLn "@X08│@X07O9@X08..                                                                       @X08│"
  61.     PrintLn "@X08|@X071O@X08..                                                                       @X08├"
  62.     PrintLn "▀■▄▄▓▄▄▄▓▄ ▄|▄ ▓▄▄▄▄ ▓▄▄ ▄▄   ▓▄  |▄■   ▄: ▄▄▄▄▓  ▄  ▄▓▄▄▄▄   ▄▓▄ ▄▄▄▄ ▄▓▀■:."
  63.     PrintLn "@X07[@X0FCode by ORBiT@X07..@X0FAnsi by UNiVERZ@X07]@X08......@X07Total :                               @PON@"
  64.     FOpen 1, PPEPath() + "DLNAME.DAT", 2, 0
  65.     INTEGER001 = 1
  66.     INTEGER002 = 7
  67.     While (INTEGER001 < 11) Do
  68.         AnsiPos INTEGER002, INTEGER001 + 10
  69.         FGet 1, STRING001
  70.         Delay 1
  71.         If (INTEGER001 == 1) Then
  72.             Print "@X0F" + STRING001
  73.         Else
  74.             Print "@X07" + STRING001
  75.         Endif
  76.         Inc INTEGER001
  77.     EndWhile
  78.     FClose 1
  79.     FOpen 1, PPEPath() + "DLCITY.DAT", 2, 0
  80.     INTEGER001 = 1
  81.     INTEGER002 = 25
  82.     While (INTEGER001 < 11) Do
  83.         AnsiPos INTEGER002, INTEGER001 + 10
  84.         FGet 1, STRING001
  85.         Delay 1
  86.         If (INTEGER001 == 1) Then
  87.             Print "@X0F" + STRING001
  88.         Else
  89.             Print "@X07" + STRING001
  90.         Endif
  91.         Inc INTEGER001
  92.     EndWhile
  93.     FClose 1
  94.     FOpen 1, PPEPath() + "DLBYTE.DAT", 2, 0
  95.     FGet 1, INTEGER005
  96.     FGet 1, INTEGER006
  97.     FGet 1, INTEGER007
  98.     FGet 1, INTEGER008
  99.     FGet 1, INTEGER009
  100.     FGet 1, INTEGER010
  101.     FGet 1, INTEGER011
  102.     FGet 1, INTEGER012
  103.     FGet 1, INTEGER013
  104.     FGet 1, INTEGER014
  105.     FGet 1, INTEGER003
  106.     FClose 1
  107.     Delay 1
  108.     Print "@X0F"
  109.     AnsiPos 47, 11
  110.     Print Right(INTEGER005, 11)
  111.     AnsiPos 49, GetY()
  112.     If (Len(INTEGER005) > 9) Then
  113.         Print "."
  114.     Else
  115.         Print " "
  116.     Endif
  117.     AnsiPos 50, GetY()
  118.     Print Right(INTEGER005, 9)
  119.     AnsiPos 53, GetY()
  120.     If (Len(INTEGER005) > 6) Then
  121.         Print "."
  122.     Else
  123.         Print " "
  124.     Endif
  125.     AnsiPos 54, GetY()
  126.     Print Right(INTEGER005, 6)
  127.     AnsiPos 57, GetY()
  128.     If (Len(INTEGER005) > 3) Then
  129.         Print "."
  130.     Else
  131.         Print " "
  132.     Endif
  133.     AnsiPos 58, GetY()
  134.     Print Right(INTEGER005, 3)
  135.     Delay 1
  136.     AnsiPos 47, 12
  137.     Print Right(INTEGER006, 11)
  138.     AnsiPos 49, GetY()
  139.     If (Len(INTEGER006) > 9) Then
  140.         Print "."
  141.     Else
  142.         Print " "
  143.     Endif
  144.     AnsiPos 50, GetY()
  145.     Print Right(INTEGER006, 9)
  146.     AnsiPos 53, GetY()
  147.     If (Len(INTEGER006) > 6) Then
  148.         Print "."
  149.     Else
  150.         Print " "
  151.     Endif
  152.     AnsiPos 54, GetY()
  153.     Print Right(INTEGER006, 6)
  154.     AnsiPos 57, GetY()
  155.     If (Len(INTEGER006) > 3) Then
  156.         Print "."
  157.     Else
  158.         Print " "
  159.     Endif
  160.     AnsiPos 58, GetY()
  161.     Print Right(INTEGER006, 3)
  162.     Delay 1
  163.     AnsiPos 47, 13
  164.     Print Right(INTEGER007, 11)
  165.     AnsiPos 49, GetY()
  166.     If (Len(INTEGER007) > 9) Then
  167.         Print "."
  168.     Else
  169.         Print " "
  170.     Endif
  171.     AnsiPos 50, GetY()
  172.     Print Right(INTEGER007, 9)
  173.     AnsiPos 53, GetY()
  174.     If (Len(INTEGER007) > 6) Then
  175.         Print "."
  176.     Else
  177.         Print " "
  178.     Endif
  179.     AnsiPos 54, GetY()
  180.     Print Right(INTEGER007, 6)
  181.     AnsiPos 57, GetY()
  182.     If (Len(INTEGER007) > 3) Then
  183.         Print "."
  184.     Else
  185.         Print " "
  186.     Endif
  187.     AnsiPos 58, GetY()
  188.     Print Right(INTEGER007, 3)
  189.     AnsiPos 47, 14
  190.     Print Right(INTEGER008, 11)
  191.     AnsiPos 49, GetY()
  192.     If (Len(INTEGER008) > 9) Then
  193.         Print "."
  194.     Else
  195.         Print " "
  196.     Endif
  197.     AnsiPos 50, GetY()
  198.     Print Right(INTEGER008, 9)
  199.     AnsiPos 53, GetY()
  200.     If (Len(INTEGER008) > 6) Then
  201.         Print "."
  202.     Else
  203.         Print " "
  204.     Endif
  205.     AnsiPos 54, GetY()
  206.     Print Right(INTEGER008, 6)
  207.     AnsiPos 57, GetY()
  208.     If (Len(INTEGER008) > 3) Then
  209.         Print "."
  210.     Else
  211.         Print " "
  212.     Endif
  213.     AnsiPos 58, GetY()
  214.     Print Right(INTEGER008, 3)
  215.     Delay 1
  216.     AnsiPos 47, 15
  217.     Print Right(INTEGER009, 11)
  218.     AnsiPos 49, GetY()
  219.     If (Len(INTEGER009) > 9) Then
  220.         Print "."
  221.     Else
  222.         Print " "
  223.     Endif
  224.     AnsiPos 50, GetY()
  225.     Print Right(INTEGER009, 9)
  226.     AnsiPos 53, GetY()
  227.     If (Len(INTEGER009) > 6) Then
  228.         Print "."
  229.     Else
  230.         Print " "
  231.     Endif
  232.     AnsiPos 54, GetY()
  233.     Print Right(INTEGER009, 6)
  234.     AnsiPos 57, GetY()
  235.     If (Len(INTEGER009) > 3) Then
  236.         Print "."
  237.     Else
  238.         Print " "
  239.     Endif
  240.     AnsiPos 58, GetY()
  241.     Print Right(INTEGER009, 3)
  242.     Delay 1
  243.     AnsiPos 47, 16
  244.     Print Right(INTEGER010, 11)
  245.     AnsiPos 49, GetY()
  246.     If (Len(INTEGER010) > 9) Then
  247.         Print "."
  248.     Else
  249.         Print " "
  250.     Endif
  251.     AnsiPos 50, GetY()
  252.     Print Right(INTEGER010, 9)
  253.     AnsiPos 53, GetY()
  254.     If (Len(INTEGER010) > 6) Then
  255.         Print "."
  256.     Else
  257.         Print " "
  258.     Endif
  259.     AnsiPos 54, GetY()
  260.     Print Right(INTEGER010, 6)
  261.     AnsiPos 57, GetY()
  262.     If (Len(INTEGER010) > 3) Then
  263.         Print "."
  264.     Else
  265.         Print " "
  266.     Endif
  267.     AnsiPos 58, GetY()
  268.     Print Right(INTEGER010, 3)
  269.     Delay 1
  270.     AnsiPos 47, 17
  271.     Print Right(INTEGER011, 11)
  272.     AnsiPos 49, GetY()
  273.     If (Len(INTEGER011) > 9) Then
  274.         Print "."
  275.     Else
  276.         Print " "
  277.     Endif
  278.     AnsiPos 50, GetY()
  279.     Print Right(INTEGER011, 9)
  280.     AnsiPos 53, GetY()
  281.     If (Len(INTEGER011) > 6) Then
  282.         Print "."
  283.     Else
  284.         Print " "
  285.     Endif
  286.     AnsiPos 54, GetY()
  287.     Print Right(INTEGER011, 6)
  288.     AnsiPos 57, GetY()
  289.     If (Len(INTEGER011) > 3) Then
  290.         Print "."
  291.     Else
  292.         Print " "
  293.     Endif
  294.     AnsiPos 58, GetY()
  295.     Print Right(INTEGER011, 3)
  296.     Delay 1
  297.     AnsiPos 47, 18
  298.     Print Right(INTEGER012, 11)
  299.     AnsiPos 49, GetY()
  300.     If (Len(INTEGER012) > 9) Then
  301.         Print "."
  302.     Else
  303.         Print " "
  304.     Endif
  305.     AnsiPos 50, GetY()
  306.     Print Right(INTEGER012, 9)
  307.     AnsiPos 53, GetY()
  308.     If (Len(INTEGER012) > 6) Then
  309.         Print "."
  310.     Else
  311.         Print " "
  312.     Endif
  313.     AnsiPos 54, GetY()
  314.     Print Right(INTEGER012, 6)
  315.     AnsiPos 57, GetY()
  316.     If (Len(INTEGER012) > 3) Then
  317.         Print "."
  318.     Else
  319.         Print " "
  320.     Endif
  321.     AnsiPos 58, GetY()
  322.     Print Right(INTEGER012, 3)
  323.     Delay 1
  324.     AnsiPos 47, 19
  325.     Print Right(INTEGER013, 11)
  326.     AnsiPos 49, GetY()
  327.     If (Len(INTEGER013) > 9) Then
  328.         Print "."
  329.     Else
  330.         Print " "
  331.     Endif
  332.     AnsiPos 50, GetY()
  333.     Print Right(INTEGER013, 9)
  334.     AnsiPos 53, GetY()
  335.     If (Len(INTEGER013) > 6) Then
  336.         Print "."
  337.     Else
  338.         Print " "
  339.     Endif
  340.     AnsiPos 54, GetY()
  341.     Print Right(INTEGER013, 6)
  342.     AnsiPos 57, GetY()
  343.     If (Len(INTEGER013) > 3) Then
  344.         Print "."
  345.     Else
  346.         Print " "
  347.     Endif
  348.     AnsiPos 58, GetY()
  349.     Print Right(INTEGER013, 3)
  350.     Delay 1
  351.     AnsiPos 47, 20
  352.     Print Right(INTEGER014, 11)
  353.     AnsiPos 47, GetY()
  354.     If (Len(INTEGER014) > 9) Then
  355.         Print "."
  356.     Else
  357.         Print " "
  358.     Endif
  359.     AnsiPos 50, GetY()
  360.     Print Right(INTEGER014, 9)
  361.     AnsiPos 53, GetY()
  362.     If (Len(INTEGER014) > 6) Then
  363.         Print "."
  364.     Else
  365.         Print " "
  366.     Endif
  367.     AnsiPos 54, GetY()
  368.     Print Right(INTEGER014, 6)
  369.     AnsiPos 57, GetY()
  370.     If (Len(INTEGER014) > 3) Then
  371.         Print "."
  372.     Else
  373.         Print " "
  374.     Endif
  375.     AnsiPos 58, GetY()
  376.     Print Right(INTEGER014, 3)
  377.     Delay 1
  378.     FOpen 1, PPEPath() + "DDBYTE.DAT", 2, 0
  379.     FGet 1, INTEGER005
  380.     FGet 1, INTEGER006
  381.     FGet 1, INTEGER007
  382.     FGet 1, INTEGER008
  383.     FGet 1, INTEGER009
  384.     FGet 1, INTEGER010
  385.     FGet 1, INTEGER011
  386.     FGet 1, INTEGER012
  387.     FGet 1, INTEGER013
  388.     FGet 1, INTEGER014
  389.     FGet 1, INTEGER004
  390.     FClose 1
  391.     AnsiPos 63, 11
  392.     Print Right(INTEGER005, 11)
  393.     AnsiPos 65, GetY()
  394.     If (Len(INTEGER005) > 9) Then
  395.         Print "."
  396.     Else
  397.         Print " "
  398.     Endif
  399.     AnsiPos 66, GetY()
  400.     Print Right(INTEGER005, 9)
  401.     AnsiPos 69, GetY()
  402.     If (Len(INTEGER005) > 6) Then
  403.         Print "."
  404.     Else
  405.         Print " "
  406.     Endif
  407.     AnsiPos 70, GetY()
  408.     Print Right(INTEGER005, 6)
  409.     AnsiPos 73, GetY()
  410.     If (Len(INTEGER005) > 3) Then
  411.         Print "."
  412.     Else
  413.         Print " "
  414.     Endif
  415.     AnsiPos 74, GetY()
  416.     Print Right(INTEGER005, 3)
  417.     Delay 1
  418.     AnsiPos 63, 12
  419.     Print Right(INTEGER006, 11)
  420.     AnsiPos 65, GetY()
  421.     If (Len(INTEGER006) > 9) Then
  422.         Print "."
  423.     Else
  424.         Print " "
  425.     Endif
  426.     AnsiPos 66, GetY()
  427.     Print Right(INTEGER006, 9)
  428.     AnsiPos 69, GetY()
  429.     If (Len(INTEGER006) > 6) Then
  430.         Print "."
  431.     Else
  432.         Print " "
  433.     Endif
  434.     AnsiPos 70, GetY()
  435.     Print Right(INTEGER006, 6)
  436.     AnsiPos 73, GetY()
  437.     If (Len(INTEGER006) > 3) Then
  438.         Print "."
  439.     Else
  440.         Print " "
  441.     Endif
  442.     AnsiPos 74, GetY()
  443.     Print Right(INTEGER006, 3)
  444.     Delay 1
  445.     AnsiPos 63, 13
  446.     Print Right(INTEGER007, 11)
  447.     AnsiPos 65, GetY()
  448.     If (Len(INTEGER007) > 9) Then
  449.         Print "."
  450.     Else
  451.         Print " "
  452.     Endif
  453.     AnsiPos 66, GetY()
  454.     Print Right(INTEGER007, 9)
  455.     AnsiPos 69, GetY()
  456.     If (Len(INTEGER007) > 6) Then
  457.         Print "."
  458.     Else
  459.         Print " "
  460.     Endif
  461.     AnsiPos 70, GetY()
  462.     Print Right(INTEGER007, 6)
  463.     AnsiPos 73, GetY()
  464.     If (Len(INTEGER007) > 3) Then
  465.         Print "."
  466.     Else
  467.         Print " "
  468.     Endif
  469.     AnsiPos 74, GetY()
  470.     Print Right(INTEGER007, 3)
  471.     AnsiPos 63, 14
  472.     Print Right(INTEGER008, 11)
  473.     AnsiPos 65, GetY()
  474.     If (Len(INTEGER008) > 9) Then
  475.         Print "."
  476.     Else
  477.         Print " "
  478.     Endif
  479.     AnsiPos 66, GetY()
  480.     Print Right(INTEGER008, 9)
  481.     AnsiPos 69, GetY()
  482.     If (Len(INTEGER008) > 6) Then
  483.         Print "."
  484.     Else
  485.         Print " "
  486.     Endif
  487.     AnsiPos 70, GetY()
  488.     Print Right(INTEGER008, 6)
  489.     AnsiPos 73, GetY()
  490.     If (Len(INTEGER008) > 3) Then
  491.         Print "."
  492.     Else
  493.         Print " "
  494.     Endif
  495.     AnsiPos 74, GetY()
  496.     Print Right(INTEGER008, 3)
  497.     Delay 1
  498.     AnsiPos 63, 15
  499.     Print Right(INTEGER009, 11)
  500.     AnsiPos 65, GetY()
  501.     If (Len(INTEGER009) > 9) Then
  502.         Print "."
  503.     Else
  504.         Print " "
  505.     Endif
  506.     AnsiPos 66, GetY()
  507.     Print Right(INTEGER009, 9)
  508.     AnsiPos 69, GetY()
  509.     If (Len(INTEGER009) > 6) Then
  510.         Print "."
  511.     Else
  512.         Print " "
  513.     Endif
  514.     AnsiPos 70, GetY()
  515.     Print Right(INTEGER009, 6)
  516.     AnsiPos 73, GetY()
  517.     If (Len(INTEGER009) > 3) Then
  518.         Print "."
  519.     Else
  520.         Print " "
  521.     Endif
  522.     AnsiPos 74, GetY()
  523.     Print Right(INTEGER009, 3)
  524.     Delay 1
  525.     AnsiPos 63, 16
  526.     Print Right(INTEGER010, 11)
  527.     AnsiPos 65, GetY()
  528.     If (Len(INTEGER010) > 9) Then
  529.         Print "."
  530.     Else
  531.         Print " "
  532.     Endif
  533.     AnsiPos 66, GetY()
  534.     Print Right(INTEGER010, 9)
  535.     AnsiPos 69, GetY()
  536.     If (Len(INTEGER010) > 6) Then
  537.         Print "."
  538.     Else
  539.         Print " "
  540.     Endif
  541.     AnsiPos 70, GetY()
  542.     Print Right(INTEGER010, 6)
  543.     AnsiPos 73, GetY()
  544.     If (Len(INTEGER010) > 3) Then
  545.         Print "."
  546.     Else
  547.         Print " "
  548.     Endif
  549.     AnsiPos 74, GetY()
  550.     Print Right(INTEGER010, 3)
  551.     Delay 1
  552.     AnsiPos 63, 17
  553.     Print Right(INTEGER011, 11)
  554.     AnsiPos 65, GetY()
  555.     If (Len(INTEGER011) > 9) Then
  556.         Print "."
  557.     Else
  558.         Print " "
  559.     Endif
  560.     AnsiPos 66, GetY()
  561.     Print Right(INTEGER011, 9)
  562.     AnsiPos 69, GetY()
  563.     If (Len(INTEGER011) > 6) Then
  564.         Print "."
  565.     Else
  566.         Print " "
  567.     Endif
  568.     AnsiPos 70, GetY()
  569.     Print Right(INTEGER011, 6)
  570.     AnsiPos 73, GetY()
  571.     If (Len(INTEGER011) > 3) Then
  572.         Print "."
  573.     Else
  574.         Print " "
  575.     Endif
  576.     AnsiPos 74, GetY()
  577.     Print Right(INTEGER011, 3)
  578.     Delay 1
  579.     AnsiPos 63, 18
  580.     Print Right(INTEGER012, 11)
  581.     AnsiPos 65, GetY()
  582.     If (Len(INTEGER012) > 9) Then
  583.         Print "."
  584.     Else
  585.         Print " "
  586.     Endif
  587.     AnsiPos 66, GetY()
  588.     Print Right(INTEGER012, 9)
  589.     AnsiPos 69, GetY()
  590.     If (Len(INTEGER012) > 6) Then
  591.         Print "."
  592.     Else
  593.         Print " "
  594.     Endif
  595.     AnsiPos 70, GetY()
  596.     Print Right(INTEGER012, 6)
  597.     AnsiPos 73, GetY()
  598.     If (Len(INTEGER012) > 3) Then
  599.         Print "."
  600.     Else
  601.         Print " "
  602.     Endif
  603.     AnsiPos 74, GetY()
  604.     Print Right(INTEGER012, 3)
  605.     Delay 1
  606.     AnsiPos 63, 19
  607.     Print Right(INTEGER013, 11)
  608.     AnsiPos 65, GetY()
  609.     If (Len(INTEGER013) > 9) Then
  610.         Print "."
  611.     Else
  612.         Print " "
  613.     Endif
  614.     AnsiPos 66, GetY()
  615.     Print Right(INTEGER013, 9)
  616.     AnsiPos 69, GetY()
  617.     If (Len(INTEGER013) > 6) Then
  618.         Print "."
  619.     Else
  620.         Print " "
  621.     Endif
  622.     AnsiPos 70, GetY()
  623.     Print Right(INTEGER013, 6)
  624.     AnsiPos 73, GetY()
  625.     If (Len(INTEGER013) > 3) Then
  626.         Print "."
  627.     Else
  628.         Print " "
  629.     Endif
  630.     AnsiPos 74, GetY()
  631.     Print Right(INTEGER013, 3)
  632.     Delay 1
  633.     AnsiPos 63, 20
  634.     Print Right(INTEGER014, 11)
  635.     AnsiPos 63, GetY()
  636.     If (Len(INTEGER014) > 9) Then
  637.         Print "."
  638.     Else
  639.         Print " "
  640.     Endif
  641.     AnsiPos 66, GetY()
  642.     Print Right(INTEGER014, 9)
  643.     AnsiPos 69, GetY()
  644.     If (Len(INTEGER014) > 6) Then
  645.         Print "."
  646.     Else
  647.         Print " "
  648.     Endif
  649.     AnsiPos 70, GetY()
  650.     Print Right(INTEGER014, 6)
  651.     AnsiPos 73, GetY()
  652.     If (Len(INTEGER014) > 3) Then
  653.         Print "."
  654.     Else
  655.         Print " "
  656.     Endif
  657.     AnsiPos 74, GetY()
  658.     Print Right(INTEGER014, 3)
  659.     AnsiPos 47, 22
  660.     Print Right(INTEGER003, 11)
  661.     AnsiPos 49, GetY()
  662.     If (Len(INTEGER003) > 9) Then
  663.         Print "."
  664.     Else
  665.         Print " "
  666.     Endif
  667.     AnsiPos 50, GetY()
  668.     Print Right(INTEGER003, 9)
  669.     AnsiPos 53, GetY()
  670.     If (Len(INTEGER003) > 6) Then
  671.         Print "."
  672.     Else
  673.         Print " "
  674.     Endif
  675.     AnsiPos 54, GetY()
  676.     Print Right(INTEGER003, 6)
  677.     AnsiPos 57, GetY()
  678.     If (Len(INTEGER003) > 3) Then
  679.         Print "."
  680.     Else
  681.         Print " "
  682.     Endif
  683.     AnsiPos 58, GetY()
  684.     Print Right(INTEGER003, 3)
  685.     Delay 1
  686.     AnsiPos 63, 22
  687.     Print Right(INTEGER004, 11)
  688.     AnsiPos 65, GetY()
  689.     If (Len(INTEGER004) > 9) Then
  690.         Print "."
  691.     Else
  692.         Print " "
  693.     Endif
  694.     AnsiPos 66, GetY()
  695.     Print Right(INTEGER004, 9)
  696.     AnsiPos 69, GetY()
  697.     If (Len(INTEGER004) > 6) Then
  698.         Print "."
  699.     Else
  700.         Print " "
  701.     Endif
  702.     AnsiPos 70, GetY()
  703.     Print Right(INTEGER004, 6)
  704.     AnsiPos 73, GetY()
  705.     If (Len(INTEGER004) > 3) Then
  706.         Print "."
  707.     Else
  708.         Print " "
  709.     Endif
  710.     AnsiPos 74, GetY()
  711.     Print Right(INTEGER004, 3)
  712.     AnsiPos 0, 23
  713.     Print "@WAIT@"
  714.     End
  715.  
  716. ;------------------------------------------------------------------------------
  717. ;
  718. ; Usage report (before postprocessing)
  719. ;
  720. ; ■ Statements used :
  721. ;
  722. ;    1       End
  723. ;    1       Cls
  724. ;    140     Goto 
  725. ;    4       Let 
  726. ;    230     Print 
  727. ;    22      PrintLn 
  728. ;    70      If 
  729. ;    4       FOpen 
  730. ;    4       FClose 
  731. ;    24      FGet 
  732. ;    21      Delay 
  733. ;    2       Inc 
  734. ;    157     AnsiPos 
  735. ;
  736. ;
  737. ; ■ Functions used :
  738. ;
  739. ;    10      +
  740. ;    2       ==
  741. ;    2       <
  742. ;    66      >
  743. ;    70      !
  744. ;    66      Len(
  745. ;    88      Right()
  746. ;    4       PPEPath()
  747. ;    132     GetY()
  748. ;
  749. ;------------------------------------------------------------------------------
  750. ;
  751. ; Analysis flags : No flag
  752. ;
  753. ;------------------------------------------------------------------------------
  754. ;
  755. ; Postprocessing report
  756. ;
  757. ;    0       For/Next
  758. ;    2       While/EndWhile
  759. ;    68      If/Then or If/Then/Else
  760. ;    0       Select Case
  761. ;
  762. ;------------------------------------------------------------------------------
  763. ;                 AEGiS Corp - Break the routines, code against the machines!
  764. ;------------------------------------------------------------------------------
  765.