home *** CD-ROM | disk | FTP | other *** search
/ Groovy Bytes: Behind the Moon / groovybytes.iso / GROOVY / DISKMAGS / IMPHOB10.ZIP / IMPVDOOR.ZIP / IMP-VOTE.PPE (.txt) < prev   
Encoding:
PCBoard Programming Language Executable  |  1995-01-12  |  12.9 KB  |  534 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.     Boolean  BOOLEAN002
  21.     Integer  INTEGER001
  22.     Integer  INTEGER002
  23.     Integer  INTEGER003
  24.     Integer  INTEGER008
  25.     Integer  INTEGER012
  26.     Integer  INTEGER014
  27.     Integer  INTEGER015
  28.     Integer  INTEGER016
  29.     Integer  INTEGER022
  30.     Integer  INTEGER023
  31.     String   TSTRING001(10,10)
  32.     String   STRING002
  33.     String   STRING003
  34.     String   STRING006
  35.     String   STRING008
  36.     String   STRING010
  37.     String   STRING011
  38.     BigStr   BIGSTR001
  39.     BigStr   BIGSTR002
  40.     BigStr   BIGSTR003
  41.     BigStr   BIGSTR004
  42.     Declare  Function FUNCTION001(String STRING005, Integer INTEGER009) String
  43.     Declare  Function FUNCTION002(String STRING009, Integer INTEGER013) String
  44.     Declare  Function FUNCTION003() Boolean
  45.     Declare  Procedure PROC001(Integer INTEGER004)
  46.     Declare  Procedure PROC002(Integer INTEGER006, Integer INTEGER007, String STRING004)
  47.     Declare  Procedure PROC003()
  48.     Declare  Procedure PROC004(String STRING007, Integer INTEGER010, Integer INTEGER011)
  49.     Declare  Procedure PROC005(Integer INTEGER017, Integer INTEGER018, Integer INTEGER019, Integer INTEGER020, Integer INTEGER021)
  50.     Declare  Procedure PROC006()
  51.  
  52. ;------------------------------------------------------------------------------
  53.  
  54.     If (AnsiOn()) Goto LABEL001
  55.     PrintLn 
  56.     PrintLn "Sorry, The IMPHOBIA VOTER requires you to use ANSi mode"
  57.     PrintLn "You can switch to ANSi color mode by typing 'M' from the main menu"
  58.     PrintLn 
  59.     End
  60.     :LABEL001
  61.     For INTEGER002 = 0 To 8
  62.         For INTEGER003 = 0 To 10
  63.             TSTRING001(INTEGER002, INTEGER003) = Left("", 35)
  64.         Next
  65.     Next
  66.     For INTEGER002 = 9 To 10
  67.         For INTEGER003 = 0 To 5
  68.             TSTRING001(INTEGER002, INTEGER003) = Left("", 75)
  69.         Next
  70.     Next
  71.     TSTRING001(1, 1) = U_Alias
  72.     PROC003()
  73.     If (FUNCTION003()) Then
  74.         PROC004("Previous vote found.  You can now edit your vote.", 15, 18)
  75.         Delay 18
  76.         STRING002 = ""
  77.         While ((STRING002 <> "Q") && (STRING002 <> "A")) Do
  78.             PROC001(99)
  79.             STRING002 = ""
  80.             INTEGER003 = 0
  81.             While (INTEGER003 == 0) Do
  82.                 STRING002 = Upper(Inkey())
  83.                 INTEGER003 = InStr("0123456789AQ", STRING002)
  84.             EndWhile
  85.             If (INTEGER003 <= 10) Then
  86.                 PROC001(INTEGER003 - 1)
  87.             Endif
  88.         EndWhile
  89.         If (STRING002 == "Q") PROC006()
  90.     Else
  91.         STRING003 = Left(String(Date()), 10)
  92.         If (OnLocal()) Then
  93.             STRING003 = STRING003 + "L"
  94.         Else
  95.             STRING003 = STRING003 + " "
  96.         Endif
  97.         PROC004("You have not voted yet.  Creating voting slip.", 16, 18)
  98.         Delay 18
  99.         For INTEGER002 = 0 To 9
  100.             PROC001(INTEGER002)
  101.         Next
  102.         PROC006()
  103.     Endif
  104.     PROC001(98)
  105.     PROC004("Remember, You can return at any time to change your votes", 12, 15)
  106.     PROC004("Thank you for taking the time to vote.", 21, 17)
  107.     PrintLn 
  108.     PrintLn 
  109.     Wait
  110.     End
  111.  
  112. ;------------------------------------------------------------------------------
  113.  
  114.     Procedure PROC001(Integer INTEGER004)
  115.  
  116.     Integer  INTEGER005
  117.  
  118.     Cls
  119.     ResetDisp
  120.     PrintLn "@POFF@@X0F         @X05▄      @X08░               ░   ░"
  121.     PrintLn "@X08     ░  @X05▐@X5D▒@X05▌                                             @X08░ ░  ░   ░            @X03■"
  122.     PrintLn "@X03    @X08░ ░░ @X05▀   @X08░   ░             ░ ░ ░ ░                   @X05▄ @X08░░ ░   ░     @X01■   @X03■@X0B█@X03▌"
  123.     PrintLn "@X03   @X08░░░▒@X0D▄▄@X05▄@X08░░  ░      ░        ░ ░░░░░ ░                 @X05▐@X5D▒@X05▌@X08▓▒░ ░        @X01▌  @X0B█@X03▌"
  124.     PrintLn "@X03 @X02▐@X0A█▄@X08░▒▓@X0D███@X08▓▒░░  ░ @X09▄            @X08░@X09███@X08░░░ @X09▄█@X01▌               @X05▀@X08▓█▓▒░░░ ░     @X09▌ @X03■ @X0B▄@X03■"
  125.     PrintLn "@X03 @X2A▐@X0A███▄@X05▐@X0D███@X08█▓▓▒▒░ @X09▐██▄ @X0D▄▄▄▄▄▄▄▄▄ @X09███@X08▒░ @X09███▌@X04▀@X0C▀▀▀▀▀@X09▄██▄@X0C▀▀@X0D▐@X5D▄@X0D▄@X05▄@X0C■@X19▐@X09█████▀ @X04▀@X0C▀▀▀ @X01▌@X03■ @X0B▐█@X3B▌@X07"
  126.     PrintLn "@X0F    @X02▀@X0A▀@X0D▐██@X5D▌@X09████@X19▌@X0F  @X09█@X19▐@X09██  @X08░░▒@X05▀@X0D▀████@X09▐██@X08▓▒@X09▐█▀@X0D▄@X5D▄@X0D███▄ @X09▀ @X01▀@X19▀@X09█▌ @X5D▐@X0D███@X01▐@X09█████@X19▌@X08░░░ ░ @X09▄▌@X3B▄@X0B█@X3B▄@X0B▀@X03■"
  127.     PrintLn "@X03 @X0A▄▄@X2A▄@X0A██@X5D▐@X0D██▌@X09█████@X01▌@X09▐▌██@X19▌@X0F @X0D█@X5D▄@X05▄@X08░░ @X5D▐@X0D███▌@X09██▀▀██@X0D▐@X08▒░@X05▀@X5D▀@X0D██▌@X09▄ ▄█▀  @X0D████@X09▐██▌@X01▐@X09██@X08░▒░░@X09▄██▌@X0B███@X03▌"
  128.     PrintLn "@X02▐@X0A██@X2A▀@X0A▀@X02▀@X0D███@X05▌@X09████▐@X19▌@X09█ ███@X01▌@X0D██▀@X5D▀▄▄@X0D███▀@X09▐██ ▐█▌@X0D▐▄@X05▄▄@X5D▄@X0D██▌@X09█@X08░ @X09▀██▄@X0D▐██▌@X09███@X01▌ @X09▐█▌@X08▒@X01▄@X09█████▄@X0B▀@X03▀■"
  129.     PrintLn "@X0A▐▀ @X08▒▓█@X0D███ @X09█▀@X01▀  @X09█▌@X08░@X09▐███▄@X0D▀        @X09███ ██@X01▌ @X0D▀████▀@X09▄█@X08░  @X19▐@X09██▌@X0D██▌@X09██▌▄@X19▀▀@X09██@X19▄@X09███@X19▀@X09▀▀▀▀▀@X01▀@X09▀@X01▀"
  130.     PrintLn "@X01  @X0C▀▀@X04▀@X08▓@X05▀@X0D▀▀  @X0C▀▀▀@X04▀@X09▐ @X0C▀@X01▐@X09███@X19▀@X09▀ @X0C▀▀▀▀▀@X04▀ @X09███ @X01▀@X09▀ @X0C▀@X04▀@X08░▒▓█@X09▄██@X19▄@X01▄@X19▄@X09███▌@X0D▀@X5D▀@X0D▌@X09██▀    ▀██▀"
  131.     PrintLn "@X09  @X08░ ░▒░░░ ░    @X09'   ▀@X01▀                @X08░ ░ ░░▒▒▒░@X01▀@X09▀████▀     ▀         ■@X0DRA@X09Nx@X08<@X02i@X0ACE@X08>@X07"
  132.     Select Case (INTEGER004)
  133.         Case 0
  134.             PROC004("IMPHOBIA VOTER RULES", 30, 14)
  135.             PROC004("1) You may not vote for your own group and/or members", 14, 16)
  136.             PROC004("2) You may not vote for any members of Imphobia", 14, 17)
  137.             PROC004("3) You should enter at least 7 votes for Top 10", 14, 18)
  138.             PROC004("   You should enter at least 3 votes for Top 5", 14, 19)
  139.             PrintLn 
  140.             PrintLn 
  141.             Wait
  142.             For INTEGER005 = 14 To 19
  143.                 AnsiPos 1, INTEGER005
  144.                 ClrEol
  145.             Next
  146.             PROC004("You have to vote for : Top 10 DemoGroups, Top 10 Demos, Top 10 Intros,", 6, 14)
  147.             PROC004("Top 5 Coders, Top 5 Grafics Artists, Top 5 Musicians, Top 5 Musicdisks", 6, 15)
  148.             PROC004("All voters will be listed in the Imphobia voting list.", 14, 17)
  149.             PROC004("You can return to this voting at any time and change your votes.", 9, 19)
  150.             PrintLn 
  151.             PrintLn 
  152.             Wait
  153.         Case 1
  154.             AnsiPos 1, 14
  155.             PrintLn "                             @X0FUse@X0Br info@X03rmat@X08ion"
  156.             PrintLn 
  157.             PrintLn "  @X0FYour Handle@X07..... @X08[@X0B" + FUNCTION001(TSTRING001(1, 1), 35) + "@X08]"
  158.             PrintLn "  @X0FGroup name@X07...... @X08[@X0B" + FUNCTION001(TSTRING001(1, 2), 35) + "@X08]"
  159.             PrintLn "  @X0FYour country@X07.... @X08[@X0B" + FUNCTION001(TSTRING001(1, 3), 35) + "@X08]"
  160.             PROC005(1, 3, 21, 16, 35)
  161.         Case 2
  162.             PROC002(2, 10, "DemoGroups")
  163.         Case 3
  164.             PROC002(3, 10, "Demos")
  165.         Case 4
  166.             PROC002(4, 10, "Intros")
  167.         Case 5
  168.             PROC002(5, 5, "Coders")
  169.         Case 6
  170.             PROC002(6, 5, "Grafics Artists")
  171.         Case 7
  172.             PROC002(7, 5, "Musicians")
  173.         Case 8
  174.             PROC002(8, 5, "Music Disks")
  175.         Case 9
  176.             AnsiPos 1, 14
  177.             PrintLn "  @X0FWhat do y@X0Bou think @X08about Imp@X03hobia ?"
  178.             PrintLn " @X08[@X0B" + FUNCTION001(TSTRING001(9, 1), 75) + "@X08]"
  179.             PrintLn " @X08[@X0B" + FUNCTION001(TSTRING001(9, 2), 75) + "@X08]"
  180.             PrintLn 
  181.             PrintLn "  @X0FWhat coul@X0Bd be impr@X03oved to Im@X08phobia ?"
  182.             PrintLn " @X08[@X0B" + FUNCTION001(TSTRING001(10, 1), 75) + "@X08]"
  183.             PrintLn " @X08[@X0B" + FUNCTION001(TSTRING001(10, 2), 75) + "@X08]"
  184.             PrintLn " @X08[@X0B" + FUNCTION001(TSTRING001(10, 3), 75) + "@X08]"
  185.             PROC005(9, 2, 3, 15, 75)
  186.             PROC005(10, 3, 3, 19, 75)
  187.         Case 99
  188.             AnsiPos 1, 14
  189.             PrintLn "          @X0F0@X07. @X0FVot@X0Bing @X03Rul@X08es                    @X0F6@X07. @X0FTop 5 @X0BGrafic@X03s Art@X08ists"
  190.             PrintLn "          @X0F1@X07. @X0FUs@X0Ber @X03in@X08fo                       @X0F7@X07. @X0FTop @X0B5 Mu@X03sic@X08ians"
  191.             PrintLn "          @X0F2@X07. @X0FTop 1@X0B0 De@X03moGr@X08oups               @X0F8@X07. @X0FTop 5@X0B Musi@X03cDi@X08sks"
  192.             PrintLn "          @X0F3@X07. @X0FTop @X0B10 D@X03em@X08os                    @X0F9@X07. @X0FAbou@X0Bt Im@X03pho@X08bia"
  193.             PrintLn "          @X0F4@X07. @X0FTo@X0Bp 10 I@X03ntr@X08os                   @X0FQ@X07. @X0FQu@X0Bit a@X03nd S@X08ave"
  194.             PrintLn "          @X0F5@X07. @X0FTop @X0B5 C@X03od@X08ers                    @X0FA@X07. @X0FAbo@X0Brt c@X03han@X08ges"
  195.     End Select
  196.  
  197.     EndProc
  198.  
  199.  
  200. ;------------------------------------------------------------------------------
  201.  
  202.     Procedure PROC002(Integer INTEGER006, Integer INTEGER007, String STRING004)
  203.  
  204.     Integer  INTEGER008
  205.  
  206.     AnsiPos 1, 14
  207.     For INTEGER008 = 1 To INTEGER007
  208.         Print "  @X0F", Right(String(INTEGER008), 2), "@X07. @X08[@X0B" + FUNCTION001(TSTRING001(INTEGER006, INTEGER008), 35) + "@X08]"
  209.         If (INTEGER008 == 1) Then
  210.             PrintLn "      " + FUNCTION002("Top " + String(INTEGER007) + " " + STRING004, 0)
  211.             Continue
  212.         Endif
  213.         If (INTEGER008 == 2) Then
  214.             PrintLn "    " + Left("@X09-@X01=@X09-@X01=@X09-@X01=@X09-@X01=@X09-@X01=@X09-@X01=@X09-@X01=@X09-@X01=@X09-@X01=@X09-@X01=@X09-@X01=@X09-@X01=@X09-@X01=@X09-@X01=@X09-@X01=@X09-@X01=@X09-", (Len(STRING004) + 11) * 5)
  215.             Continue
  216.         Endif
  217.         If (INTEGER008 < INTEGER007) Then
  218.             PrintLn 
  219.         Endif
  220.     Next
  221.     PROC005(INTEGER006, INTEGER007, 8, 14, 35)
  222.  
  223.     EndProc
  224.  
  225.  
  226. ;------------------------------------------------------------------------------
  227.  
  228.     Function FUNCTION001(String STRING005, Integer INTEGER009) String
  229.  
  230.     STRING005 = RTrim(STRING005, " ")
  231.     FUNCTION001 = STRING005 + Left("...........................................................................", INTEGER009 - Len(STRING005))
  232.  
  233.     EndFunc
  234.  
  235.  
  236. ;------------------------------------------------------------------------------
  237.  
  238.     Procedure PROC003()
  239.  
  240.     Cls
  241.     Delay 2
  242.     PROC004("IMPHOBIA VOTER", 32, 9)
  243.     PROC004("Version 1.0", 34, 10)
  244.     PROC004("(c) 1995 Tasmaniac ∙ /┤CiD ∙ HypernovA", 20, 12)
  245.     PROC004("Standby, Searching votes...", 26, 16)
  246.  
  247.     EndProc
  248.  
  249.  
  250. ;------------------------------------------------------------------------------
  251.  
  252.     Procedure PROC004(String STRING007, Integer INTEGER010, Integer INTEGER011)
  253.  
  254.     String   STRING008
  255.     Integer  INTEGER012
  256.  
  257.     STRING008 = "    " + STRING007 + "    "
  258.     For INTEGER012 = 5 To Len(STRING008)
  259.         AnsiPos INTEGER012 + INTEGER010 - 9, INTEGER011
  260.         ResetDisp
  261.         Print "@X0F" + Mid(STRING008, INTEGER012 - 4, 1)
  262.         Print "@X0B" + Mid(STRING008, INTEGER012 - 3, 1)
  263.         Print "@X09" + Mid(STRING008, INTEGER012 - 2, 1)
  264.         Print "@X01" + Mid(STRING008, INTEGER012 - 1, 1)
  265.         Print "@X08" + Mid(STRING008, INTEGER012 - 0, 1)
  266.         If (And(INTEGER012, 1)) Delay 1
  267.     Next
  268.  
  269.     EndProc
  270.  
  271.  
  272. ;------------------------------------------------------------------------------
  273.  
  274.     Function FUNCTION002(String STRING009, Integer INTEGER013) String
  275.  
  276.     Integer  INTEGER014
  277.     Integer  INTEGER015
  278.     Integer  INTEGER016
  279.     Integer  INTEGER017
  280.  
  281.     INTEGER014 = Len(STRING009)
  282.     INTEGER015 = (2 * INTEGER014 + Random(INTEGER014) - INTEGER014 / 2) / 6
  283.     INTEGER016 = (4 * INTEGER014 + Random(INTEGER014) - INTEGER014 / 2) / 6
  284.     FUNCTION002 = "@X0B" + Mid(STRING009, 1, INTEGER015) + "@X03" + Mid(STRING009, INTEGER015 + 1, INTEGER016 - INTEGER015) + "@X08" + Mid(STRING009, INTEGER016 + 1, INTEGER014 - INTEGER016)
  285.     If (INTEGER013 > 0) FUNCTION002 = Left(FUNCTION002, INTEGER013 + 12)
  286.  
  287.     EndFunc
  288.  
  289.  
  290. ;------------------------------------------------------------------------------
  291.  
  292.     Procedure PROC005(Integer INTEGER017, Integer INTEGER018, Integer INTEGER019, Integer INTEGER020, Integer INTEGER021)
  293.  
  294.     String   STRING011
  295.     Integer  INTEGER022
  296.     Integer  INTEGER023
  297.  
  298.     INTEGER022 = 1
  299.     INTEGER023 = 1
  300.     KeyFlush
  301.     While (INTEGER023 <= INTEGER018) Do
  302.         AnsiPos INTEGER019 + INTEGER022 - 1, INTEGER020 + INTEGER023 - 1
  303.         ResetDisp
  304.         STRING011 = ""
  305.         While ((STRING011 == "")) STRING011 = Inkey()
  306.         If (Len(STRING011) == 1) Then
  307.             If (STRING011 == Chr(13)) Then
  308.                 Inc INTEGER023
  309.                 INTEGER022 = 1
  310.                 Goto LABEL003
  311.             Endif
  312.             If (STRING011 == Chr(8)) Then
  313.                 If (INTEGER022 > 1) Then
  314.                     TSTRING001(INTEGER017, INTEGER023) = Left(TSTRING001(INTEGER017, INTEGER023), INTEGER022 - 2) + Right(TSTRING001(INTEGER017, INTEGER023), INTEGER021 - INTEGER022 + 1) + " "
  315.                     AnsiPos INTEGER019, INTEGER020 + INTEGER023 - 1
  316.                     Print "@X0B" + FUNCTION001(TSTRING001(INTEGER017, INTEGER023), INTEGER021)
  317.                     Dec INTEGER022
  318.                     Goto LABEL002
  319.                 Endif
  320.                 Print "@BEEP@"
  321.                 :LABEL002
  322.                 Goto LABEL003
  323.             Endif
  324.             If (INTEGER022 <= INTEGER021) Then
  325.                 TSTRING001(INTEGER017, INTEGER023) = Left(TSTRING001(INTEGER017, INTEGER023), INTEGER022 - 1) + STRING011 + Right(TSTRING001(INTEGER017, INTEGER023), INTEGER021 - INTEGER022)
  326.                 Print "@X0B" + STRING011
  327.                 Inc INTEGER022
  328.                 Goto LABEL003
  329.             Endif
  330.             Print "@BEEP@"
  331.             :LABEL003
  332.             Continue
  333.         Endif
  334.         If ((STRING011 == "LEFT") && (INTEGER022 > 1)) Then
  335.             Dec INTEGER022
  336.             Continue
  337.         Endif
  338.         If ((STRING011 == "RIGHT") && (INTEGER022 <= INTEGER021)) Then
  339.             Inc INTEGER022
  340.             Continue
  341.         Endif
  342.         If ((STRING011 == "UP") && (INTEGER023 > 1)) Then
  343.             Dec INTEGER023
  344.             Continue
  345.         Endif
  346.         If ((STRING011 == "DOWN") && (INTEGER023 < INTEGER018)) Then
  347.             Inc INTEGER023
  348.             Continue
  349.         Endif
  350.         Print "@BEEP@"
  351.     EndWhile
  352.  
  353.     EndProc
  354.  
  355.  
  356. ;------------------------------------------------------------------------------
  357.  
  358.     Function FUNCTION003() Boolean
  359.  
  360.     BigStr   BIGSTR001
  361.     BigStr   BIGSTR002
  362.     Boolean  BOOLEAN002
  363.     BigStr   BIGSTR003
  364.  
  365.     INTEGER001 = 0
  366.     FOpen 1, PPEPath() + PPEName() + ".VOT", 0, 0
  367.     FDefIn 1
  368.     BOOLEAN002 = 0
  369.     While (!Ferr(1) && !BOOLEAN002) Do
  370.         FDRead BIGSTR001, 50 * 35 + 25 + 22
  371.         FDRead BIGSTR002, 50 * 35
  372.         If (Left(BIGSTR001, 25) == Left(U_Name(), 25)) Then
  373.             BOOLEAN002 = 1
  374.             Continue
  375.         Endif
  376.         Inc INTEGER001
  377.     EndWhile
  378.     FClose 1
  379.     If (BOOLEAN002) Then
  380.         STRING003 = Mid(BIGSTR001, 25 + 1, 11)
  381.         For INTEGER002 = 1 To 5
  382.             For INTEGER003 = 1 To 10
  383.                 TSTRING001(INTEGER002, INTEGER003) = Mid(BIGSTR001, 25 + 22 + 1 + (INTEGER003 - 1) * 35 + (INTEGER002 - 1) * 350, 35)
  384.             Next
  385.         Next
  386.         For INTEGER002 = 6 To 8
  387.             For INTEGER003 = 1 To 10
  388.                 TSTRING001(INTEGER002, INTEGER003) = Mid(BIGSTR002, 1 + (INTEGER003 - 1) * 35 + (INTEGER002 - 6) * 350, 35)
  389.             Next
  390.         Next
  391.         For INTEGER003 = 1 To 2
  392.             TSTRING001(9, INTEGER003) = Mid(BIGSTR002, 1 + (INTEGER003 - 1) * 75 + 3 * 350, 75)
  393.         Next
  394.         For INTEGER003 = 1 To 3
  395.             TSTRING001(10, INTEGER003) = Mid(BIGSTR002, 1 + (INTEGER003 - 1) * 75 + 3 * 350 + 2 * 75, 75)
  396.         Next
  397.     Else
  398.         INTEGER001 = -1
  399.     Endif
  400.     FUNCTION003 = BOOLEAN002
  401.  
  402.     EndFunc
  403.  
  404.  
  405. ;------------------------------------------------------------------------------
  406.  
  407.     Procedure PROC006()
  408.  
  409.     BigStr   BIGSTR003
  410.     BigStr   BIGSTR004
  411.  
  412.     BIGSTR003 = Left(U_Name(), 25) + STRING003 + Left(String(Date()), 10)
  413.     If (OnLocal()) Then
  414.         BIGSTR003 = BIGSTR003 + "L"
  415.     Else
  416.         BIGSTR003 = BIGSTR003 + " "
  417.     Endif
  418.     For INTEGER002 = 1 To 5
  419.         For INTEGER003 = 1 To 10
  420.             BIGSTR003 = BIGSTR003 + Left(TSTRING001(INTEGER002, INTEGER003), 35)
  421.         Next
  422.     Next
  423.     BIGSTR004 = ""
  424.     For INTEGER002 = 6 To 8
  425.         For INTEGER003 = 1 To 10
  426.             BIGSTR004 = BIGSTR004 + Left(TSTRING001(INTEGER002, INTEGER003), 35)
  427.         Next
  428.     Next
  429.     For INTEGER003 = 1 To 2
  430.         BIGSTR004 = BIGSTR004 + Left(TSTRING001(9, INTEGER003), 75)
  431.     Next
  432.     For INTEGER003 = 1 To 3
  433.         BIGSTR004 = BIGSTR004 + Left(TSTRING001(10, INTEGER003), 75)
  434.     Next
  435.     If (INTEGER001 >= 0) Then
  436.         FOpen 1, PPEPath() + PPEName() + ".VOT", 1, 3
  437.         FSeek 1, INTEGER001 * (25 + 22 + (10 * 10) * 35), 0
  438.     Else
  439.         FAppend 1, PPEPath() + PPEName() + ".VOT", 1, 3
  440.     Endif
  441.     FDefOut 1
  442.     FDWrite BIGSTR003, 50 * 35 + 25 + 22
  443.     FDWrite BIGSTR004, 50 * 35
  444.     FClose 1
  445.  
  446.     EndProc
  447.  
  448.  
  449. ;------------------------------------------------------------------------------
  450. ;
  451. ; Usage report (before postprocessing)
  452. ;
  453. ; ■ Statements used :
  454. ;
  455. ;    2       End
  456. ;    2       Cls
  457. ;    1       ClrEol
  458. ;    3       Wait
  459. ;    108     Goto 
  460. ;    84      Let 
  461. ;    11      Print 
  462. ;    44      PrintLn 
  463. ;    59      If 
  464. ;    2       FOpen 
  465. ;    1       FAppend 
  466. ;    2       FClose 
  467. ;    3       ResetDisp
  468. ;    4       Delay 
  469. ;    5       Inc 
  470. ;    3       Dec 
  471. ;    8       AnsiPos 
  472. ;    1       FSeek 
  473. ;    1       FDefIn 
  474. ;    1       FDefOut 
  475. ;    2       FDRead 
  476. ;    2       FDWrite 
  477. ;    1       KeyFlush
  478. ;    6       EndProc
  479. ;    3       EndFunc
  480. ;
  481. ;
  482. ; ■ Functions used :
  483. ;
  484. ;    1       -
  485. ;    19      *
  486. ;    4       /
  487. ;    107     +
  488. ;    25      -
  489. ;    24      ==
  490. ;    2       <>
  491. ;    22      <
  492. ;    24      <=
  493. ;    4       >
  494. ;    41      >=
  495. ;    57      !
  496. ;    46      &&
  497. ;    20      ||
  498. ;    6       Len(
  499. ;    1       Upper()
  500. ;    13      Mid()
  501. ;    16      Left()
  502. ;    3       Right()
  503. ;    1       Ferr()
  504. ;    2       Chr()
  505. ;    1       InStr()
  506. ;    1       RTrim()
  507. ;    2       Random()
  508. ;    2       Date()
  509. ;    2       U_Name()
  510. ;    2       Inkey()
  511. ;    4       String()
  512. ;    3       PPEPath()
  513. ;    2       OnLocal()
  514. ;    1       AnsiOn()
  515. ;    1       And()
  516. ;    3       PPEName()
  517. ;
  518. ;------------------------------------------------------------------------------
  519. ;
  520. ; Analysis flags : No flag
  521. ;
  522. ;------------------------------------------------------------------------------
  523. ;
  524. ; Postprocessing report
  525. ;
  526. ;    20      For/Next
  527. ;    4       While/EndWhile
  528. ;    19      If/Then or If/Then/Else
  529. ;    1       Select Case
  530. ;
  531. ;------------------------------------------------------------------------------
  532. ;                 AEGiS Corp - Break the routines, code against the machines!
  533. ;------------------------------------------------------------------------------
  534.