home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / CLNP_110.ZIP / CLNP.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-01-10  |  10KB  |  651 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.     Date     DATE001
  22.     Date     DATE002
  23.     Integer  INTEGER001
  24.     Integer  INTEGER002
  25.     Integer  INTEGER003
  26.     Integer  INTEGER004
  27.     Integer  INTEGER005
  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   TSTRING009(8)
  37.     String   TSTRING010(8)
  38.     String   TSTRING011(8)
  39.     String   STRING012
  40.     String   STRING013
  41.     String   STRING014
  42.     String   STRING015
  43.     String   STRING016
  44.     String   TSTRING017(2)
  45.     String   STRING018
  46.     String   STRING019
  47.     String   STRING020
  48.     String   STRING021
  49.     String   STRING022
  50.     String   STRING023
  51.     String   STRING024
  52.     String   STRING025
  53.     String   STRING026
  54.     String   STRING027
  55.     String   STRING028
  56.     String   TSTRING029(5)
  57.     String   STRING030
  58.     String   STRING031
  59.     String   STRING032
  60.     String   STRING033
  61.     String   STRING034
  62.     Double   DOUBLE001
  63.     Declare  Procedure PROC001()
  64.     Declare  Procedure PROC002()
  65.     Declare  Procedure PROC004()
  66.     Declare  Procedure PROC005()
  67.     Declare  Procedure PROC006()
  68.     Declare  Procedure PROC007()
  69.     Declare  Procedure PROC008()
  70.     Declare  Procedure PROC009(Boolean BOOLEAN003)
  71.     Declare  Procedure PROC010()
  72.     Declare  Procedure PROC011()
  73.     Declare  Procedure PROC012()
  74.  
  75. ;------------------------------------------------------------------------------
  76.  
  77.     STRING001 = Chr(67) + Chr(76) + Chr(78) + Chr(80)
  78.     STRING002 = Chr(118) + Chr(49) + Chr(46) + Chr(49) + Chr(48)
  79.     STRING013 = "If you have suggestions or requests for permanent or optional features,"
  80.     STRING014 = "please send mail to <mslasher@io.org>.  - Rob Hunter / CLNP (c)1994-95 "
  81.     STRING030 = PPEPath() + STRING001 + Chr(46) + "E" + "X" + "1"
  82.     STRING031 = PPEPath() + STRING001 + Chr(46) + "E" + "X" + "2"
  83.     STRING004 = PPEPath() + STRING001 + Chr(46) + "D" + "A" + "T"
  84.     STRING005 = PPEPath() + STRING001 + Chr(46) + "D" + "S" + "1"
  85.     STRING006 = PPEPath() + STRING001 + Chr(46) + "D" + "S" + "2"
  86.     STRING007 = PPEPath() + STRING001 + Chr(46) + "N" + "O" + "T"
  87.     STRING008 = PPEPath() + STRING001 + Chr(46) + "R" + "E" + "P"
  88.     STRING028 = "@X08" + "───────────────────────────────────────────────────────────────────────────────"
  89.     TSTRING029(0) = "@X07"
  90.     TSTRING029(1) = "@X0F"
  91.     TSTRING029(2) = "@X08"
  92.     TSTRING029(3) = "@X07"
  93.     BOOLEAN002 = 0
  94.     STRING027 = 1
  95.     STRING024 = 0
  96.     STRING019 = 15
  97.     STRING021 = "@X08[@X0FS@X08]@X07end or @X08[@X0FA@X08]@X07bort?"
  98.     STRING032 = "@X07Write a note to whom? @X08(@X0FEnter@X08)=@X07Abort?"
  99.     STRING020 = "@X07Hit @X08[@X0FAny Key@X08]@X07 to Continue ..."
  100.     STRING012 = "@X08■@X0F Scanning for Login Notes @X08..."
  101.     STRING003 = TokenStr()
  102.     PROC005()
  103.     If (Exist(STRING004)) PROC001()
  104.     If (InStr(Upper(STRING003), "/CHECK") <> 0) Then
  105.         PROC007()
  106.     Else
  107.         PROC008()
  108.     Endif
  109.     PROC012()
  110.     End
  111.  
  112. ;------------------------------------------------------------------------------
  113.  
  114.     Procedure PROC007()
  115.  
  116.     If (!Exist(STRING007)) PROC012()
  117.     Print STRING012
  118.     If (Exist(STRING008)) PROC002()
  119.     PROC006()
  120.     If (STRING027) Then
  121.         Backup 80
  122.         ClrEol
  123.     Else
  124.         Newline
  125.     Endif
  126.     If (STRING024) Newline
  127.  
  128.     EndProc
  129.  
  130.  
  131. ;------------------------------------------------------------------------------
  132.  
  133.     Procedure PROC008()
  134.  
  135.     If (Exist(STRING031)) PROC011()
  136.     Newline
  137.     If (Exist(STRING005)) DispFile STRING005, 1
  138.     If (STRING003 <> "") Then
  139.         STRING033 = STRING003
  140.     Else
  141.         STRING033 = ""
  142.         InputStr STRING032 + " _", STRING033, 7, 25, Mask_Ascii(), 4096 + 64 + 8
  143.     Endif
  144.     If (STRING033 == "") PROC012()
  145.     If (U_RecNum(STRING033) == -1) Then
  146.         DefColor
  147.         PrintLn "Invalid User Name! (User Not Found)"
  148.         PROC012()
  149.     ElseIf (Exist(STRING030)) Then
  150.         PROC010()
  151.     Endif
  152.     Cls
  153.     If (Exist(STRING006)) DispFile STRING006, 1
  154.     PrintLn STRING028
  155.     PrintLn TSTRING029(1) + Space(24 - Len(RTrim(U_Name(), " ")) / 2) + Chr(46) + Chr(46) + Chr(46) + " " + Mixed(RTrim(U_Name(), " ")) + " has left you this note " + Chr(46) + Chr(46) + Chr(46)
  156.     PrintLn STRING028
  157.     DefColor
  158.     PROC009(0)
  159.     TSTRING017(1) = STRING015
  160.     BOOLEAN001 = 1
  161.     If (!BOOLEAN002) Newline
  162.     PROC009(BOOLEAN002)
  163.     TSTRING017(2) = STRING015
  164.     Newline
  165.     DATE001 = Date()
  166.     INTEGER004 = DATE001
  167.     STRING023 = Left(Time(), 5)
  168.     PrintLn STRING028
  169.     PrintLn Space(45) + TSTRING029(2) + "└[" + TSTRING029(3) + STRING001 + " " + STRING002 + TSTRING029(2) + "]┘ " + "└[" + TSTRING029(3) + STRING023 + TSTRING029(2) + "][" + TSTRING029(3) + String(DATE001) + TSTRING029(2) + "]┘"
  170.     Newline
  171.     Print STRING021 + " "
  172.     While (Upper(STRING022) <> "A") Do
  173.         STRING022 = Inkey()
  174.         If (Abort()) ResetDisp
  175.         If (Upper(STRING022) == "S") Goto LABEL001
  176.     EndWhile
  177.     DefColor
  178.     PrintLn "A"
  179.     PROC012()
  180.     :LABEL001
  181.     DefColor
  182.     Print "*" + "S" + "END" + "ING" + " NOT" + "E" + "*"
  183.     If (Exist(STRING007)) Goto LABEL002
  184.     FCreate 1, STRING007, 1, 0
  185.     PROC004()
  186.     FClose 1
  187.     Goto LABEL003
  188.     :LABEL002
  189.     FOpen 1, STRING007, 2, 0
  190.     INTEGER001 = 0
  191.     While (INTEGER001 < FileInf(STRING007, 4) / 250) Do
  192.         Inc INTEGER001
  193.         FRead 1, TSTRING009(0), 25
  194.         If (TSTRING009(0) == "") Break
  195.         If (RTrim(TSTRING009(0), " ") == "<" + STRING001 + ">") Then
  196.             FSeek 1, -25, 1
  197.             PROC004()
  198.             FClose 1
  199.             Newlines 2
  200.             Log "" + STRING001 + " " + STRING002 + " " + "[" + Mixed(STRING033) + "]", 0
  201.             PROC012()
  202.         Endif
  203.         FSeek 1, 225, 1
  204.     EndWhile
  205.     FClose 1
  206.     FAppend 1, STRING007, 2, 0
  207.     PROC004()
  208.     FClose 1
  209.     Newlines 2
  210.     Log "" + STRING001 + " " + STRING002 + " " + "[" + Mixed(STRING033) + "]", 0
  211.     :LABEL003
  212.  
  213.     EndProc
  214.  
  215.  
  216. ;------------------------------------------------------------------------------
  217.  
  218.     Procedure PROC012()
  219.  
  220.     DefColor
  221.     StartDisp 2
  222.     End
  223.  
  224.     EndProc
  225.  
  226.  
  227. ;------------------------------------------------------------------------------
  228.  
  229.     Procedure PROC001()
  230.  
  231.     FOpen 5, STRING004, 0, 0
  232.     FGet 5, STRING025
  233.     If (Len(StripAtx(STRING025)) == 79) STRING028 = STRING025
  234.     FGet 5, STRING025
  235.     If ((STRING025 <> "") && (Len(StripAtx(STRING025)) < 70)) STRING012 = STRING025
  236.     FGet 5, STRING025
  237.     If ((STRING025 <> "") && (Len(StripAtx(STRING025)) < 60)) STRING032 = STRING025
  238.     FGet 5, STRING025
  239.     If ((STRING025 <> "") && (Len(StripAtx(STRING025)) < 70)) STRING021 = STRING025
  240.     FGet 5, STRING025
  241.     If ((STRING025 <> "") && (Len(StripAtx(STRING025)) < 44)) STRING020 = STRING025
  242.     FGet 5, STRING025
  243.     If (STRING025 <> "") TSTRING029(1) = Left(STRING025, 4)
  244.     FGet 5, STRING025
  245.     If (STRING025 <> "") TSTRING029(2) = Left(STRING025, 4)
  246.     FGet 5, STRING025
  247.     If (STRING025 <> "") TSTRING029(3) = Left(STRING025, 4)
  248.     FGet 5, STRING025
  249.     If (STRING025 <> "") STRING019 = STRING025
  250.     FClose 5
  251.  
  252.     EndProc
  253.  
  254.  
  255. ;------------------------------------------------------------------------------
  256.  
  257.     Procedure PROC002()
  258.  
  259.     :LABEL004
  260.     FOpen 3, STRING008, 2, 0
  261.     INTEGER001 = 0
  262.     While (INTEGER001 < FileInf(STRING008, 4) / 60) Do
  263.         Inc INTEGER001
  264.         FRead 3, TSTRING011(1), 25
  265.         If (TSTRING011(1) == "") Then
  266.             Break
  267.         Endif
  268.         If (Upper(Left(TSTRING011(1), Len(U_Name()))) == U_Name()) Then
  269.             FSeek 3, -25, 1
  270.             FWrite 3, Left("<" + STRING001 + ">", 25), 25
  271.             FRead 3, TSTRING011(2), 25
  272.             FRead 3, TSTRING011(3), 5
  273.             FRead 3, TSTRING011(4), 5
  274.             FClose 3
  275.             INTEGER005 = TSTRING011(3)
  276.             DATE002 = INTEGER005
  277.             If (STRING027) Newline
  278.             PrintLn TSTRING029(2) + "■" + " [" + TSTRING029(3) + String(DATE002) + TSTRING029(2) + "][" + TSTRING029(3) + String(TSTRING011(4)) + TSTRING029(2) + "] " + TSTRING029(1) + Mixed(RTrim(TSTRING011(2), " ")) + " received your note ..."
  279.             STRING027 = 0
  280.             Goto LABEL004
  281.         Endif
  282.         FSeek 3, 35, 1
  283.     EndWhile
  284.     FClose 3
  285.  
  286.     EndProc
  287.  
  288.  
  289. ;------------------------------------------------------------------------------
  290.  
  291.     Procedure PROC006()
  292.  
  293.     :LABEL005
  294.     STRING026 = Left(Time(), 5)
  295.     INTEGER005 = Date()
  296.     DOUBLE001 = 0
  297.     FOpen 1, STRING007, 2, 0
  298.     INTEGER001 = 0
  299.     While (INTEGER001 < FileInf(STRING007, 4) / 250) Do
  300.         Inc INTEGER001
  301.         FRead 1, TSTRING009(1), 25
  302.         If (TSTRING009(1) == "") Then
  303.             FClose 1
  304.             Goto LABEL010
  305.         Endif
  306.         If (Upper(Left(TSTRING009(1), Len(U_Name()))) == U_Name()) Then
  307.             FSeek 1, -25, 1
  308.             FWrite 1, Left("<" + STRING001 + ">", 25), 25
  309.             FRead 1, TSTRING009(2), 25
  310.             FRead 1, TSTRING009(3), 5
  311.             FRead 1, TSTRING009(4), 5
  312.             FRead 1, TSTRING009(5), 95
  313.             FRead 1, TSTRING009(6), 95
  314.             FClose 1
  315.             If (Exist(STRING008)) Goto LABEL006
  316.             FCreate 2, STRING008, 2, 0
  317.             FWrite 2, Left(Upper(TSTRING009(2)), 25), 25
  318.             FWrite 2, Left(Upper(U_Name()), 25), 25
  319.             FWrite 2, Left(INTEGER005, 5), 5
  320.             FWrite 2, Left(STRING026, 5), 5
  321.             FClose 2
  322.             Goto LABEL008
  323.             :LABEL006
  324.             FOpen 2, STRING008, 2, 0
  325.             INTEGER002 = 0
  326.             While (INTEGER002 < FileInf(STRING008, 4) / 60) Do
  327.                 Inc INTEGER002
  328.                 FRead 2, TSTRING010(1), 25
  329.                 If (TSTRING010(1) == "") Then
  330.                     FClose 2
  331.                     Goto LABEL007
  332.                 Endif
  333.                 If (RTrim(TSTRING010(1), " ") == "<" + STRING001 + ">") Then
  334.                     FSeek 2, -25, 1
  335.                     FWrite 2, Left(Upper(TSTRING009(2)), 25), 25
  336.                     FWrite 2, Left(Upper(U_Name()), 25), 25
  337.                     FWrite 2, Left(INTEGER005, 5), 5
  338.                     FWrite 2, Left(STRING026, 5), 5
  339.                     FClose 2
  340.                     Goto LABEL008
  341.                 Endif
  342.                 FSeek 2, 35, 1
  343.             EndWhile
  344.             FClose 2
  345.             :LABEL007
  346.             FAppend 2, STRING008, 2, 0
  347.             FWrite 2, Left(Upper(TSTRING009(2)), 25), 25
  348.             FWrite 2, Left(Upper(U_Name()), 25), 25
  349.             FWrite 2, Left(INTEGER005, 5), 5
  350.             FWrite 2, Left(STRING026, 5), 5
  351.             FClose 2
  352.             :LABEL008
  353.             INTEGER003 = TSTRING009(3)
  354.             DATE001 = INTEGER003
  355.             If ((STRING024 == 0) || !AnsiOn()) Then
  356.                 StartDisp 1
  357.                 If (STRING027) Newline
  358.                 Newline
  359.                 STRING024 = 1
  360.                 If (STRING024 && !AnsiOn()) Newline
  361.                 STRING027 = 0
  362.                 PrintLn STRING028
  363.                 PrintLn TSTRING029(1) + Space(24 - Len(RTrim(TSTRING009(2), " ")) / 2) + Chr(46) + Chr(46) + Chr(46) + " " + Mixed(RTrim(TSTRING009(2), " ")) + " has left you this note " + Chr(46) + Chr(46) + Chr(46)
  364.                 PrintLn STRING028
  365.                 DefColor
  366.                 PrintLn RTrim(TSTRING009(5), " ") + TSTRING029(0)
  367.                 DefColor
  368.                 PrintLn RTrim(TSTRING009(6), " ") + TSTRING029(0)
  369.                 PrintLn STRING028
  370.                 Print Space(45) + TSTRING029(2) + "└[" + TSTRING029(3) + STRING001 + " " + STRING002 + TSTRING029(2) + "]┘ " + "└[" + TSTRING029(3) + TSTRING009(4) + TSTRING029(2) + "][" + TSTRING029(3) + String(DATE001) + TSTRING029(2) + "]┘"
  371.                 Backup 80
  372.                 DefColor
  373.                 Print STRING020 + " "
  374.                 STRING034 = ""
  375.                 While (STRING034 == "") Do
  376.                     STRING034 = Inkey()
  377.                     Delay 3
  378.                     Inc DOUBLE001
  379.                     If (DOUBLE001 / 6 > STRING019) Goto LABEL005
  380.                 EndWhile
  381.                 Backup 80
  382.                 Print Space(45)
  383.                 Backup 80
  384.                 Goto LABEL009
  385.             Endif
  386.             Backup 80
  387.             Print "A"
  388.             DefColor
  389.             ClrEol
  390.             PrintLn TSTRING029(1) + Space(24 - Len(RTrim(TSTRING009(2), " ")) / 2) + Chr(46) + Chr(46) + Chr(46) + " " + Mixed(RTrim(TSTRING009(2), " ")) + " has left you this note " + Chr(46) + Chr(46) + Chr(46)
  391.             Newline
  392.             DefColor
  393.             ClrEol
  394.             PrintLn RTrim(TSTRING009(5), " ") + TSTRING029(0)
  395.             DefColor
  396.             ClrEol
  397.             PrintLn RTrim(TSTRING009(6), " ") + TSTRING029(0)
  398.             Newline
  399.             DefColor
  400.             Print Space(45) + TSTRING029(2) + "└[" + TSTRING029(3) + STRING001 + " " + STRING002 + TSTRING029(2) + "]┘ " + "└[" + TSTRING029(3) + TSTRING009(4) + TSTRING029(2) + "][" + TSTRING029(3) + String(DATE001) + TSTRING029(2) + "]┘" + TSTRING029(0)
  401.             Backup 80
  402.             Print STRING020 + " "
  403.             STRING034 = ""
  404.             While (STRING034 == "") Do
  405.                 STRING034 = Inkey()
  406.                 Delay 3
  407.                 Inc DOUBLE001
  408.                 If (DOUBLE001 / 6 > STRING019) Goto LABEL005
  409.             EndWhile
  410.             Backup 80
  411.             Print Space(45)
  412.             Backup 80
  413.             :LABEL009
  414.             Goto LABEL005
  415.         Endif
  416.         FSeek 1, 225, 1
  417.     EndWhile
  418.     FClose 1
  419.     :LABEL010
  420.  
  421.     EndProc
  422.  
  423.  
  424. ;------------------------------------------------------------------------------
  425.  
  426.     Procedure PROC011()
  427.  
  428.     FOpen 6, STRING031, 0, 0
  429.     :LABEL011
  430.     If (Ferr(6)) Goto LABEL012
  431.     FGet 6, STRING025
  432.     If (Left(Upper(STRING025), Len(U_Name())) == U_Name()) Then
  433.         FClose 6
  434.         DefColor
  435.         Newline
  436.         PrintLn "Invalid Access!"
  437.         PROC012()
  438.     Endif
  439.     Goto LABEL011
  440.     :LABEL012
  441.     FClose 6
  442.  
  443.     EndProc
  444.  
  445.  
  446. ;------------------------------------------------------------------------------
  447.  
  448.     Procedure PROC010()
  449.  
  450.     FOpen 6, STRING030, 0, 0
  451.     :LABEL013
  452.     If (Ferr(6)) Goto LABEL014
  453.     FGet 6, STRING025
  454.     If (Left(Upper(STRING025), Len(STRING033)) == Upper(STRING033)) Then
  455.         FClose 6
  456.         DefColor
  457.         PrintLn "Invalid User Name! (User does not accept notes)"
  458.         PROC012()
  459.     Endif
  460.     Goto LABEL013
  461.     :LABEL014
  462.     FClose 6
  463.  
  464.     EndProc
  465.  
  466.  
  467. ;------------------------------------------------------------------------------
  468.  
  469.     Procedure PROC005()
  470.  
  471.     If (STRING001 <> PPEName()) PROC012()
  472.  
  473.     EndProc
  474.  
  475.     If (FileInf(PPEPath() + PPEName() + ".PPE", 4) <> 9634) PROC012()
  476.  
  477.     EndProc
  478.  
  479.  
  480. ;------------------------------------------------------------------------------
  481.  
  482.     Procedure PROC009(Boolean BOOLEAN003)
  483.  
  484.     If (BOOLEAN003) Goto LABEL015
  485.     DefColor
  486.     STRING018 = ""
  487.     STRING015 = ""
  488.     Goto LABEL016
  489.     :LABEL015
  490.     STRING015 = STRING016
  491.     :LABEL016
  492.     While (STRING018 <> Chr(13)) Do
  493.         STRING018 = Inkey()
  494.         If (Abort()) ResetDisp
  495.         If (((InStr(Mask_Ascii(), STRING018) <> 0) && (Len(StripAtx(STRING015)) < 79)) && (Len(STRING015) < 95)) Then
  496.             Print STRING018
  497.             STRING015 = STRING015 + STRING018
  498.             If (Left(Right(STRING015, 4), 2) == "@X") Then
  499.                 Backup 80
  500.                 DefColor
  501.                 Print STRING015
  502.                 ClrEol
  503.             Endif
  504.             Continue
  505.         Endif
  506.         If ((STRING018 == Chr(8)) || (STRING018 == Chr(127))) Then
  507.             If (Len(STRING015) > 0) Then
  508.                 STRING015 = Left(STRING015, Len(STRING015) - 1)
  509.                 If (Left(Right(STRING015, 3), 2) == "@X") Then
  510.                     Backup 80
  511.                     DefColor
  512.                     Print STRING015
  513.                     ClrEol
  514.                     Goto LABEL017
  515.                 Endif
  516.                 Backup 1
  517.                 Print " "
  518.                 Backup 1
  519.             Endif
  520.             :LABEL017
  521.             Continue
  522.         Endif
  523.         If ((((InStr(Mask_Ascii(), STRING018) <> 0) && (Len(StripAtx(STRING015)) > 78)) && (Len(STRING015) < 95)) && !BOOLEAN001) Then
  524.             For DOUBLE001 = -Len(STRING015) To 0
  525.                 If (Right(Left(STRING015, -DOUBLE001), 1) == " ") Then
  526.                     Backup Len(StripAtx(Right(STRING015, Len(STRING015) + DOUBLE001)))
  527.                     ClrEol
  528.                     Newline
  529.                     Print Right(STRING015, Len(STRING015) + DOUBLE001) + STRING018
  530.                     STRING016 = Right(STRING015, Len(STRING015) + DOUBLE001) + STRING018
  531.                     STRING015 = Left(STRING015, -DOUBLE001)
  532.                     BOOLEAN002 = 1
  533.  
  534.                     EndProc
  535.  
  536.                 Endif
  537.             Next
  538.         Endif
  539.     EndWhile
  540.  
  541.     EndProc
  542.  
  543.  
  544. ;------------------------------------------------------------------------------
  545.  
  546.     Procedure PROC004()
  547.  
  548.     FWrite 1, Left(Upper(STRING033), 25), 25
  549.     FWrite 1, Left(Upper(U_Name()), 25), 25
  550.     FWrite 1, Left(Upper(INTEGER004), 5), 5
  551.     FWrite 1, Left(Upper(STRING023), 5), 5
  552.     FWrite 1, Left(TSTRING017(1), 95), 95
  553.     FWrite 1, Left(TSTRING017(2), 95), 95
  554.  
  555.     EndProc
  556.  
  557.  
  558. ;------------------------------------------------------------------------------
  559. ;
  560. ; Usage report (before postprocessing)
  561. ;
  562. ; ■ Statements used :
  563. ;
  564. ;    2       End
  565. ;    1       Cls
  566. ;    7       ClrEol
  567. ;    69      Goto 
  568. ;    72      Let 
  569. ;    15      Print 
  570. ;    19      PrintLn 
  571. ;    65      If 
  572. ;    2       DispFile 
  573. ;    2       FCreate 
  574. ;    7       FOpen 
  575. ;    2       FAppend 
  576. ;    19      FClose 
  577. ;    11      FGet 
  578. ;    2       ResetDisp
  579. ;    2       StartDisp 
  580. ;    17      DefColor
  581. ;    2       Log 
  582. ;    1       InputStr 
  583. ;    2       Delay 
  584. ;    6       Inc 
  585. ;    14      Newline
  586. ;    2       Newlines 
  587. ;    13      Backup 
  588. ;    8       FSeek 
  589. ;    12      FRead 
  590. ;    20      FWrite 
  591. ;    13      EndProc
  592. ;
  593. ;
  594. ; ■ Functions used :
  595. ;
  596. ;    8       -
  597. ;    9       /
  598. ;    185     +
  599. ;    4       -
  600. ;    22      ==
  601. ;    16      <>
  602. ;    12      <
  603. ;    1       <=
  604. ;    4       >
  605. ;    2       >=
  606. ;    41      !
  607. ;    12      &&
  608. ;    3       ||
  609. ;    23      Len(
  610. ;    18      Upper()
  611. ;    34      Left()
  612. ;    6       Right()
  613. ;    8       Space()
  614. ;    2       Ferr()
  615. ;    37      Chr()
  616. ;    3       InStr()
  617. ;    2       Abort()
  618. ;    13      RTrim()
  619. ;    2       Date()
  620. ;    2       Time()
  621. ;    12      U_Name()
  622. ;    8       StripAtx()
  623. ;    4       Inkey()
  624. ;    5       String()
  625. ;    3       Mask_Ascii()
  626. ;    8       PPEPath()
  627. ;    9       Exist()
  628. ;    1       TokenStr()
  629. ;    2       AnsiOn()
  630. ;    5       FileInf()
  631. ;    2       PPEName()
  632. ;    1       U_RecNum()
  633. ;    6       Mixed()
  634. ;
  635. ;------------------------------------------------------------------------------
  636. ;
  637. ; Analysis flags : No flag
  638. ;
  639. ;------------------------------------------------------------------------------
  640. ;
  641. ; Postprocessing report
  642. ;
  643. ;    1       For/Next
  644. ;    8       While/EndWhile
  645. ;    22      If/Then or If/Then/Else
  646. ;    0       Select Case
  647. ;
  648. ;------------------------------------------------------------------------------
  649. ;                 AEGiS Corp - Break the routines, code against the machines!
  650. ;------------------------------------------------------------------------------
  651.