home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / DT_SN131.ZIP / SCAN.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-03-03  |  13KB  |  629 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  TINTEGER001(1000)
  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.     Integer  INTEGER015
  34.     Integer  INTEGER016
  35.     Integer  INTEGER017
  36.     Integer  INTEGER018
  37.     Integer  INTEGER019
  38.     String   STRING001
  39.     String   STRING002
  40.     String   STRING003
  41.     String   STRING004
  42.     String   STRING005
  43.     String   STRING006
  44.     String   STRING007
  45.     String   STRING008
  46.     String   STRING009
  47.     String   STRING010
  48.     String   STRING011
  49.     String   STRING012
  50.     String   STRING013
  51.     String   STRING014
  52.     String   STRING015
  53.     String   STRING016
  54.     String   STRING017
  55.     String   STRING018
  56.     String   STRING019
  57.     String   STRING020
  58.     String   STRING021
  59.     String   STRING022
  60.     String   STRING023
  61.     String   STRING024
  62.     String   STRING025
  63.     String   TSTRING026(1000)
  64.     String   TSTRING027(1000)
  65.     String   TSTRING028(1000)
  66.     BigStr   BIGSTR001
  67.     BigStr   BIGSTR002
  68.  
  69. ;------------------------------------------------------------------------------
  70.  
  71.     STRING004 = "@X08───────────────────────@X07──────────@X0F───────────────@X07─────────@X08──────────────────────@X07"
  72.     BIGSTR001 = "                                                                                "
  73.     BIGSTR001 = BIGSTR001 + "WELL WELL - WHAT SHALL i SAY ? - THiS iS HANDMADE SOFTWARE WHiCH i (BlUE M) CODED FOR"
  74.     BIGSTR001 = BIGSTR001 + " YOU TO MAKE YOU ENJOY THiS BOARD ! NOT MUCH TO EXPLAiN iN THE (A)BOUT ARTiCLE ? HUUH ? - WELL iF YOU FiND THiS SOFTWARE USEFULL - USE IT !! - O.K. CYA iN ANY "
  75.     BIGSTR001 = BIGSTR001 + "OTHER PRODUCT ! (BY THE WAY - HAVE YOU EVER SEEN A 'ANSi-SCROLLiNG' ? NO ? WELL HEHE I WAS THE MAN WHO INVENTED iT EHHE - ANYTHiNG ELSE WOULD BE A FAKE SCROLLY :-) [L8R ..."
  76.     BIGSTR001 = BIGSTR001 + " THiS TiME REALLY) -         ... TEXT RESTARTS ...            ... ANY KEY ! ..."
  77.     BIGSTR002 = "                                                                                "
  78.     BIGSTR002 = BIGSTR002 + "OK - YOU ASKED FOR ASSiSTANCE - HERE WE GO ... FiRST OF ALL - THE SCAN COMMAND WAS CODED TO GiVE YOU AN EASiER USE OF THE POWER A BOARD HAS WiTH A LOT OF CONFERENCES"
  79.     BIGSTR002 = BIGSTR002 + " - NOW YOU'RE ABLE TO LOOK FOR NEW FiLES iN ALL CONFERENCES - SiMPLE EH ? WELL THiS 'SELECT 1.0' CAN BE CONTROLLED BY THE CURSOR KEYS (iF YOU TRiED USiNG THE CURSOR KEYS"
  80.     BIGSTR002 = BIGSTR002 + " AND iT DiDN'T WORK THAN USE '8' FOR UP AND '2' FOR DOWN) - ViA 'SPACE' YOU CAN SELECT A CONFERENCE TO BE SCANNED (THiS CONFERENCE WiLL BE SEARCHED FOR NEW FiLES) iF YOU"
  81.     BIGSTR002 = BIGSTR002 + " PRESS 'ENTER' YOU'LL SELECT THE CONFERENCE WHiCH iS LiGHTED AND SCROLL DOWN ONE LiNE - EASY iSN'T iT ??? - THAT'S ALL FOLKS -          ... TEXT RESTARTS ...      ... ANY KEY ...        "
  82.     STRING015 = Chr(27)
  83.     STRING017 = Chr(27) + "[A"
  84.     STRING018 = Chr(27) + "[B"
  85.     STRING019 = Chr(13)
  86.     STRING021 = Chr(32)
  87.     INTEGER008 = 0
  88.     STRING020 = 0
  89.     STRING022 = PPEPath() + "\USERS\"
  90.     STRING023 = ""
  91.     STRING024 = ""
  92.     STRING014 = ReadLine(PCBDat(), 31)
  93.     INTEGER002 = ReadLine(PCBDat(), 108)
  94.     STRING025 = Len(U_Name())
  95.     STRING024 = Strip(U_Name(), " ")
  96.     STRING024 = Strip(STRING024, "<")
  97.     STRING024 = Strip(STRING024, ">")
  98.     STRING024 = Strip(STRING024, "|")
  99.     STRING024 = Strip(STRING024, "?")
  100.     STRING024 = Strip(STRING024, "*")
  101.     STRING024 = Strip(STRING024, "/")
  102.     STRING024 = Strip(STRING024, "\")
  103.     STRING024 = Strip(STRING024, "~")
  104.     STRING024 = Strip(STRING024, "#")
  105.     STRING024 = Strip(STRING024, "!")
  106.     If (Len(U_Name()) < 14) Then
  107.         STRING023 = STRING024 + "." + Mid(STRING024, Len(U_Name()) / 2, 1) + STRING025
  108.     Else
  109.         STRING023 = Mid(STRING024, 1, 1)
  110.         STRING023 = STRING023 + Mid(STRING024, 3, 1)
  111.         STRING023 = STRING023 + Mid(STRING024, 5, 1)
  112.         STRING023 = STRING023 + Mid(STRING024, 7, 1)
  113.         STRING023 = STRING023 + Mid(STRING024, 9, 1)
  114.         STRING023 = STRING023 + Mid(STRING024, 11, 1)
  115.         STRING023 = STRING023 + Mid(STRING024, 13, 1)
  116.         STRING023 = STRING023 + Mid(STRING024, 15, 1)
  117.         STRING023 = STRING023 + "." + Mid(STRING024, Len(U_Name()) / 2, 1) + Len(U_Name())
  118.     Endif
  119.     For INTEGER007 = 0 To INTEGER002
  120.         TSTRING028(INTEGER007) = ReadLine(STRING014, INTEGER007 * 33 + 15)
  121.     Next
  122.     If (Exist(PPEPath() + "SCANDAT" + LangExt())) Goto LABEL002
  123.     If (Exist(PPEPath() + "SCANDAT")) Goto LABEL001
  124.     SPrintLn 
  125.     SPrintLn "NO 'SCANDAT' FiLE WAS FOUND ! CREATE ONE BEFORE STARTiNG AGAiN !"
  126.     Goto LABEL028
  127.     :LABEL001
  128.     FOpen 2, PPEPath() + "SCANDAT", 0, 0
  129.     :LABEL002
  130.     If (Exist(PPEPath() + "SCANDAT" + LangExt())) FOpen 2, PPEPath() + "SCANDAT" + LangExt() , 0, 0
  131.     FGet 2, STRING005
  132.     FGet 2, STRING006
  133.     FGet 2, STRING006
  134.     FGet 2, STRING007
  135.     FGet 2, STRING007
  136.     FGet 2, STRING008
  137.     FGet 2, STRING008
  138.     FGet 2, STRING009
  139.     FGet 2, STRING009
  140.     FGet 2, STRING010
  141.     FGet 2, STRING010
  142.     FGet 2, STRING013
  143.     FGet 2, STRING013
  144.     FGet 2, STRING011
  145.     FGet 2, STRING011
  146.     FGet 2, STRING012
  147.     FGet 2, STRING012
  148.     FGet 2, STRING003
  149.     FGet 2, STRING003
  150.     FClose 2
  151.     If (Upper(Mid(STRING003, 1, 1)) == "Y") INTEGER004 = 10000
  152.     If (Upper(Mid(STRING003, 1, 1)) == "M") INTEGER004 = 100
  153.     If (Upper(Mid(STRING003, 1, 1)) == "D") INTEGER004 = 1
  154.     If (Upper(Mid(STRING003, 4, 1)) == "Y") INTEGER005 = 10000
  155.     If (Upper(Mid(STRING003, 4, 1)) == "M") INTEGER005 = 100
  156.     If (Upper(Mid(STRING003, 4, 1)) == "D") INTEGER005 = 1
  157.     If (Upper(Mid(STRING003, 7, 1)) == "Y") INTEGER006 = 10000
  158.     If (Upper(Mid(STRING003, 7, 1)) == "M") INTEGER006 = 100
  159.     If (Upper(Mid(STRING003, 7, 1)) == "D") INTEGER006 = 1
  160.     If (Exist(STRING022 + STRING023)) Goto LABEL003
  161.     Newline
  162.     Goto LABEL012
  163.     :LABEL003
  164.     FOpen 2, STRING022 + STRING023, 0, 0
  165.     For INTEGER007 = 0 To INTEGER002
  166.         FGet 2, TSTRING027(INTEGER007)
  167.     Next
  168.     FClose 2
  169.     :LABEL004
  170.     GetUser
  171.     Newline
  172.     Print "@POFF@", STRING010
  173.     :LABEL005
  174.     STRING016 = Inkey()
  175.     If (Upper(STRING016) == YesChar()) Then
  176.         Backup 80
  177.         ClrEol
  178.     ElseIf (STRING016 == STRING019) Then
  179.         Backup 80
  180.         ClrEol
  181.     Else
  182.         If (STRING016 == STRING015) Then
  183.             Backup 80
  184.             ClrEol
  185.             Goto LABEL028
  186.         Endif
  187.         If (Upper(STRING016) == NoChar()) Then
  188.             Backup 80
  189.             ClrEol
  190.             Goto LABEL028
  191.         Endif
  192.         If (Upper(STRING016) == "S") Then
  193.             Backup 80
  194.             ClrEol
  195.             Goto LABEL012
  196.         Endif
  197.         Goto LABEL005
  198.     Endif
  199.     :LABEL006
  200.     STRING002 = U_LDate()
  201.     InputStr STRING013, STRING002, 14, 8, Mask_Num() + "-", 2 + 4
  202.     If (ValDate(STRING002) == 0) Then
  203.         Backup 80
  204.         ClrEol
  205.         Goto LABEL006
  206.     Endif
  207.     INTEGER003 = Mid(STRING002, 7, 2) * INTEGER006 + Mid(STRING002, 1, 2) * INTEGER004 + Mid(STRING002, 4, 2) * INTEGER005
  208.     Print "@PON@"
  209.     For INTEGER007 = 0 To INTEGER002
  210.         If (TSTRING027(INTEGER007) == 1) Then
  211.             If (GrafMode() == "N") PrintLn STRING011, INTEGER007
  212.             If (GrafMode() <> "N") Then
  213.                 Backup 80
  214.                 ClrEol
  215.                 Print STRING011, INTEGER007
  216.             Endif
  217.             If (Upper(TSTRING028(INTEGER007)) <> "") Then
  218.                 FOpen 2, TSTRING028(INTEGER007), 0, 0
  219.                 :LABEL007
  220.                 If (Ferr(2)) Goto LABEL008
  221.                 FGet 2, STRING001
  222.                 If (Mid(STRING001, 32, 1) <> "|") Then
  223.                     If (Mid(STRING001, 30, 2) * INTEGER006 + Mid(STRING001, 24, 2) * INTEGER004 + Mid(STRING001, 27, 2) * INTEGER005 >= INTEGER003) Gosub LABEL009
  224.                 Endif
  225.                 Goto LABEL007
  226.                 :LABEL008
  227.                 FClose 2
  228.             Endif
  229.         Endif
  230.     Next
  231.     Backup 80
  232.     ClrEol
  233.     :LABEL009
  234.     If (INTEGER007 > INTEGER002) Return
  235.     Backup 80
  236.     ClrEol
  237.     PrintLn STRING012, INTEGER007
  238.     Newline
  239.     DispFile PPEPath() + "HEADER", 4
  240.     Newline
  241.     If (Mid(STRING001, 32, 1) <> "|") PrintLn STRING005, Mid(STRING001, 1, 13) , STRING006, Mid(STRING001, 14, 9) , STRING007, Mid(STRING001, 23, 9) , STRING008, Mid(STRING001, 32, 47)
  242.     :LABEL010
  243.     If (Ferr(2)) Goto LABEL011
  244.     FGet 2, STRING001
  245.     If (STRING001 == "%") DispFile Strip("%", STRING001) , 1
  246.     If ((Mid(STRING001, 32, 1) <> "|") && (Mid(STRING001, 1, 1) <> "%")) PrintLn STRING005, Mid(STRING001, 1, 13) , STRING006, Mid(STRING001, 14, 9) , STRING007, Mid(STRING001, 23, 9) , STRING008, Mid(STRING001, 32, 47)
  247.     If (Mid(STRING001, 32, 1) == "|") PrintLn STRING009, "                                ", Mid(STRING001, 33, 46) , "@X07"
  248.     Goto LABEL010
  249.     :LABEL011
  250.     Return
  251.     :LABEL012
  252.     Print "@X08R@X07EA@X0FDiNG CONFERENCE D@X07AT@X08A "
  253.     INTEGER008 = 0
  254.     For INTEGER007 = 0 To INTEGER002
  255.         TSTRING026(INTEGER007) = ReadLine(STRING014, INTEGER007 * 33 + 1)
  256.         If (U_InConf(U_RecNum(U_Name()), INTEGER007) == 1) Then
  257.             If (((Upper(TSTRING026(INTEGER007)) <> "EMPTY") && (Upper(TSTRING026(INTEGER007)) <> "NONE")) && (TSTRING026(INTEGER007) <> "")) Then
  258.                 TINTEGER001(INTEGER007) = 1
  259.                 INTEGER010 = INTEGER007
  260.             Endif
  261.         Endif
  262.         If (INTEGER009 == 0) Then
  263.             If (INTEGER008 <= 10) Then
  264.                 Print "."
  265.                 Inc INTEGER008
  266.             Endif
  267.             If (INTEGER008 == 10) INTEGER009 = 1
  268.         Endif
  269.         If (INTEGER009 == 1) Then
  270.             Backup 1
  271.             Print " "
  272.             Backup 1
  273.             Dec INTEGER008
  274.             If (INTEGER008 == 0) INTEGER009 = 0
  275.         Endif
  276.     Next
  277.     INTEGER002 = INTEGER010
  278.     Cls
  279.     Print "@POFF@"
  280.     DispFile PPEPath() + "HEAD", 1 + 4
  281.     FreshLine
  282.     INTEGER013 = GetY()
  283.     For INTEGER007 = INTEGER013 To 20
  284.         Newline
  285.     Next
  286.     INTEGER014 = GetY()
  287.     DispFile PPEPath() + "FEET", 1 + 4
  288.     FreshLine
  289.     INTEGER015 = GetY()
  290.     For INTEGER007 = INTEGER013 To INTEGER015
  291.         If (GetY() == INTEGER013) Break
  292.         Print STRING017
  293.     Next
  294.     INTEGER012 = 0
  295.     STRING020 = 0
  296.     INTEGER011 = 0
  297.     :LABEL013
  298.     INTEGER015 = GetY()
  299.     Print "@X07"
  300.     For INTEGER007 = INTEGER013 To INTEGER014
  301.         Backup 80
  302.         ClrEol
  303.         If (GetY() == INTEGER013) Break
  304.         Print STRING017
  305.     Next
  306.     For INTEGER007 = INTEGER012 To INTEGER002
  307.         If (TINTEGER001(INTEGER007) == 1) Then
  308.             Gosub LABEL019
  309.             Newline
  310.         Endif
  311.         If (GetY() == INTEGER014) Break
  312.     Next
  313.     If (INTEGER011 == 0) Then
  314.         For INTEGER007 = INTEGER013 To INTEGER014
  315.             If (GetY() == INTEGER013) Break
  316.             Print STRING017
  317.         Next
  318.     Endif
  319.     If (INTEGER011 == 1) Print STRING017
  320.     INTEGER007 = STRING020
  321.     Gosub LABEL018
  322.     INTEGER011 = 0
  323.     :LABEL014
  324.     STRING016 = Inkey()
  325.     If (STRING016 <> "") Goto LABEL015
  326.     Goto LABEL014
  327.     :LABEL015
  328.     If (Upper(STRING016) == "A") Goto LABEL021
  329.     If (Upper(STRING016) == "H") Goto LABEL024
  330.     If (STRING016 == "UP") Goto LABEL016
  331.     If (STRING016 == "DOWN") Goto LABEL017
  332.     If (STRING016 == "LEFT") Goto LABEL016
  333.     If (STRING016 == "RIGHT") Goto LABEL017
  334.     If (STRING016 == "8") Goto LABEL016
  335.     If (STRING016 == "2") Goto LABEL017
  336.     If (STRING016 == "4") Goto LABEL016
  337.     If (STRING016 == "6") Goto LABEL017
  338.     If (STRING016 == STRING019) Goto LABEL020
  339.     If (STRING016 == " ") Goto LABEL020
  340.     If (STRING016 == STRING015) Goto LABEL027
  341.     Goto LABEL014
  342.     :LABEL016
  343.     STRING020 = INTEGER007
  344.     If (STRING020 == 0) Goto LABEL014
  345.     If (GetY() == INTEGER013) Then
  346.         For INTEGER007 = 0 To STRING020 - 1
  347.             If (TINTEGER001(INTEGER007) == 1) INTEGER008 = INTEGER007
  348.         Next
  349.         INTEGER012 = 0
  350.         STRING020 = INTEGER007
  351.         INTEGER011 = 1
  352.         Goto LABEL013
  353.     Endif
  354.     Print "@X07"
  355.     Backup 80
  356.     ClrEol
  357.     Gosub LABEL019
  358.     Print STRING017 + "@X7F"
  359.     Backup 80
  360.     ClrEol
  361.     For INTEGER007 = 0 To STRING020 - 1
  362.         If (TINTEGER001(INTEGER007) == 1) INTEGER008 = INTEGER007
  363.     Next
  364.     STRING020 = INTEGER008
  365.     For INTEGER007 = STRING020 To INTEGER002
  366.         If (TINTEGER001(INTEGER007) == 1) Then
  367.             Gosub LABEL018
  368.             STRING020 = INTEGER007
  369.             Break
  370.         Endif
  371.     Next
  372.     Goto LABEL014
  373.     :LABEL017
  374.     If (STRING020 == INTEGER002) Goto LABEL014
  375.     If (GetY() == INTEGER014 - 1) Then
  376.         INTEGER012 = STRING020
  377.         Goto LABEL013
  378.     Endif
  379.     Print "@X07"
  380.     Backup 80
  381.     ClrEol
  382.     Gosub LABEL019
  383.     Print STRING018
  384.     INTEGER007 = STRING020
  385.     For INTEGER007 = STRING020 + 1 To INTEGER002
  386.         If (TINTEGER001(INTEGER007) == 1) Then
  387.             INTEGER008 = INTEGER007
  388.             Break
  389.         Endif
  390.     Next
  391.     If (INTEGER008 == STRING020) Goto LABEL014
  392.     STRING020 = INTEGER008
  393.     INTEGER007 = STRING020
  394.     For INTEGER007 = STRING020 To INTEGER002
  395.         If (TINTEGER001(INTEGER007) == 1) Then
  396.             Gosub LABEL018
  397.             STRING020 = INTEGER007
  398.             Break
  399.         Endif
  400.     Next
  401.     Goto LABEL014
  402.     :LABEL018
  403.     Print "@X7F"
  404.     Backup 80
  405.     ClrEol
  406.     Print "@X08░▒▓█@X78▓▒░ @X7FCONFERENCE "
  407.     INTEGER008 = Len(INTEGER007)
  408.     While (((1 < 0) && (INTEGER008 >= Len(INTEGER002) - 1)) || ((1 >= 0) && (INTEGER008 <= Len(INTEGER002) - 1))) Do
  409.         Print "0"
  410.         INTEGER008 = INTEGER008 + 1
  411.     EndWhile
  412.     Print INTEGER007, " : ", TSTRING026(INTEGER007)
  413.     If (TSTRING027(INTEGER007) <> 1) Print "@POS:65@SCAN [ ]"
  414.     If (TSTRING027(INTEGER007) == 1) Print "@POS:65@SCAN [X]"
  415.     Return
  416.     :LABEL019
  417.     Print "@X07        CONFERENCE "
  418.     INTEGER008 = Len(INTEGER007)
  419.     While (((1 < 0) && (INTEGER008 >= Len(INTEGER002) - 1)) || ((1 >= 0) && (INTEGER008 <= Len(INTEGER002) - 1))) Do
  420.         Print "0"
  421.         INTEGER008 = INTEGER008 + 1
  422.     EndWhile
  423.     Print INTEGER007, " : ", TSTRING026(INTEGER007)
  424.     If (TSTRING027(INTEGER007) <> 1) Print "@POS:65@SCAN [ ]"
  425.     If (TSTRING027(INTEGER007) == 1) Print "@POS:65@SCAN [X]"
  426.     Return
  427.     :LABEL020
  428.     INTEGER009 = 0
  429.     If ((TSTRING027(STRING020) <> 0) && (TSTRING027(STRING020) <> 1)) TSTRING027(STRING020) = 0
  430.     If (TSTRING027(STRING020) == 0) Then
  431.         TSTRING027(STRING020) = 1
  432.         INTEGER009 = 1
  433.     Endif
  434.     If ((TSTRING027(STRING020) == 1) && (INTEGER009 == 0)) TSTRING027(STRING020) = 0
  435.     Gosub LABEL018
  436.     INTEGER009 = 0
  437.     If (STRING016 == STRING019) Goto LABEL017
  438.     Goto LABEL014
  439.     :LABEL021
  440.     INTEGER015 = GetY()
  441.     For INTEGER018 = INTEGER013 To INTEGER014
  442.         If (GetY() == INTEGER014) Break
  443.         Print STRING018
  444.     Next
  445.     Backup 80
  446.     PrintLn STRING004
  447.     Newline
  448.     Print STRING004
  449.     Print STRING017
  450.     Print STRING017
  451.     :LABEL022
  452.     INTEGER017 = Len(BIGSTR001)
  453.     For INTEGER016 = 1 To INTEGER017
  454.         If (Inkey() <> "") Goto LABEL023
  455.         Delay 2
  456.         Print "@X08", Mid(BIGSTR001, INTEGER016, 5)
  457.         Print "@X07", Mid(BIGSTR001, INTEGER016 + 5, 5)
  458.         Print "@X0F", Mid(BIGSTR001, INTEGER016 + 10, 60)
  459.         Print "@X07", Mid(BIGSTR001, INTEGER016 + 70, 5)
  460.         Print "@X08", Mid(BIGSTR001, INTEGER016 + 75, 4)
  461.         Backup 80
  462.     Next
  463.     Goto LABEL022
  464.     :LABEL023
  465.     Backup 80
  466.     ClrEol
  467.     Print STRING018
  468.     Backup 80
  469.     ClrEol
  470.     Print STRING017
  471.     Print STRING017
  472.     Backup 80
  473.     ClrEol
  474.     DispFile PPEPath() + "FEET", 1 + 4
  475.     INTEGER019 = GetY()
  476.     For INTEGER018 = INTEGER015 To INTEGER019 - 1
  477.         Print STRING017
  478.     Next
  479.     Goto LABEL014
  480.     :LABEL024
  481.     INTEGER015 = GetY()
  482.     For INTEGER018 = INTEGER013 To INTEGER014
  483.         If (GetY() == INTEGER014) Break
  484.         Print STRING018
  485.     Next
  486.     Backup 80
  487.     PrintLn STRING004
  488.     Newline
  489.     Print STRING004
  490.     Print STRING017
  491.     Print STRING017
  492.     :LABEL025
  493.     INTEGER017 = Len(BIGSTR002)
  494.     For INTEGER016 = 1 To INTEGER017
  495.         If (Inkey() <> "") Goto LABEL026
  496.         Delay 2
  497.         Print "@X08", Mid(BIGSTR002, INTEGER016, 5)
  498.         Print "@X07", Mid(BIGSTR002, INTEGER016 + 5, 5)
  499.         Print "@X0F", Mid(BIGSTR002, INTEGER016 + 10, 60)
  500.         Print "@X07", Mid(BIGSTR002, INTEGER016 + 70, 5)
  501.         Print "@X08", Mid(BIGSTR002, INTEGER016 + 75, 4)
  502.         Backup 80
  503.     Next
  504.     Goto LABEL025
  505.     :LABEL026
  506.     Backup 80
  507.     ClrEol
  508.     Print STRING018
  509.     Backup 80
  510.     ClrEol
  511.     Print STRING017
  512.     Print STRING017
  513.     Backup 80
  514.     ClrEol
  515.     DispFile PPEPath() + "FEET", 1 + 4
  516.     INTEGER019 = GetY()
  517.     For INTEGER018 = INTEGER015 To INTEGER019 - 1
  518.         Print STRING017
  519.     Next
  520.     Goto LABEL014
  521.     :LABEL027
  522.     Print "@X07 "
  523.     Cls
  524.     If (Exist(STRING022 + STRING023)) Delete STRING022 + STRING023
  525.     FCreate 1, STRING022 + STRING023, 2, 0
  526.     FDefOut 1
  527.     For INTEGER007 = 0 To INTEGER002
  528.         FDPut TSTRING027(INTEGER007), STRING019
  529.     Next
  530.     FClose 1
  531.     Goto LABEL004
  532.     :LABEL028
  533.  
  534. ;------------------------------------------------------------------------------
  535. ;
  536. ; Usage report (before postprocessing)
  537. ;
  538. ; ■ Statements used :
  539. ;
  540. ;    2       Cls
  541. ;    20      ClrEol
  542. ;    129     Goto 
  543. ;    147     Let 
  544. ;    54      Print 
  545. ;    7       PrintLn 
  546. ;    107     If 
  547. ;    6       DispFile 
  548. ;    1       FCreate 
  549. ;    4       FOpen 
  550. ;    4       FClose 
  551. ;    22      FGet 
  552. ;    1       GetUser
  553. ;    1       Delete 
  554. ;    1       InputStr 
  555. ;    8       Gosub 
  556. ;    4       Return
  557. ;    2       Delay 
  558. ;    1       Inc 
  559. ;    1       Dec 
  560. ;    8       Newline
  561. ;    26      Backup 
  562. ;    2       FreshLine
  563. ;    2       SPrintLn 
  564. ;    1       FDefOut 
  565. ;    1       FDPut 
  566. ;
  567. ;
  568. ; ■ Functions used :
  569. ;
  570. ;    8       *
  571. ;    2       /
  572. ;    87      +
  573. ;    13      -
  574. ;    62      ==
  575. ;    16      <>
  576. ;    24      <
  577. ;    24      <=
  578. ;    1       >
  579. ;    47      >=
  580. ;    52      !
  581. ;    51      &&
  582. ;    23      ||
  583. ;    13      Len(
  584. ;    17      Upper()
  585. ;    49      Mid()
  586. ;    2       Ferr()
  587. ;    5       Chr()
  588. ;    7       U_Name()
  589. ;    1       U_LDate()
  590. ;    1       NoChar()
  591. ;    1       YesChar()
  592. ;    12      Strip()
  593. ;    4       Inkey()
  594. ;    1       Mask_Num()
  595. ;    2       PCBDat()
  596. ;    11      PPEPath()
  597. ;    1       ValDate()
  598. ;    4       ReadLine()
  599. ;    5       Exist()
  600. ;    3       LangExt()
  601. ;    16      GetY()
  602. ;    2       GrafMode()
  603. ;    1       U_RecNum()
  604. ;    1       U_InConf()
  605. ;
  606. ;------------------------------------------------------------------------------
  607. ;
  608. ; Analysis flags : d
  609. ;
  610. ; d - Access PCBOARD.DAT ■ 2
  611. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  612. ;     for many PPE so they can find various informations on the system
  613. ;     (system paths, max number of lines in messages, ...) but it may also
  614. ;     be a way to gather vital informations.
  615. ;     ■ Search for : PCBDAT()
  616. ;
  617. ;------------------------------------------------------------------------------
  618. ;
  619. ; Postprocessing report
  620. ;
  621. ;    21      For/Next
  622. ;    2       While/EndWhile
  623. ;    24      If/Then or If/Then/Else
  624. ;    0       Select Case
  625. ;
  626. ;------------------------------------------------------------------------------
  627. ;                 AEGiS Corp - Break the routines, code against the machines!
  628. ;------------------------------------------------------------------------------
  629.