home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 15 / CD_ASCQ_15_070894.iso / vrac / autsgpwa.zip / AUTO.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-05-17  |  6KB  |  451 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Boolean  BOOLEAN003
  22.     Boolean  BOOLEAN004
  23.     Integer  INTEGER001
  24.     Integer  INTEGER002
  25.     Integer  INTEGER003
  26.     Integer  INTEGER004
  27.     Integer  INTEGER005
  28.     Integer  INTEGER006
  29.     Integer  INTEGER007
  30.     Integer  INTEGER008
  31.     Integer  INTEGER009
  32.     String   TSTRING001(100)
  33.     String   STRING002
  34.     String   STRING003
  35.     String   STRING004
  36.     String   STRING005
  37.     String   STRING006
  38.     String   STRING007
  39.     String   STRING008
  40.     String   STRING009
  41.     String   STRING010
  42.     String   STRING011
  43.     String   STRING012
  44.     String   STRING013
  45.     String   STRING014
  46.     String   STRING015
  47.     String   STRING016
  48.     String   STRING017
  49.     String   STRING018
  50.     String   STRING019
  51.     String   STRING020
  52.     String   STRING021
  53.     String   TSTRING022(3)
  54.  
  55. ;------------------------------------------------------------------------------
  56.  
  57.     If (TokenStr() == "EDIT") Then
  58.         Goto LABEL005
  59.     Endif
  60.     Newline
  61.     FOpen 6, PPEPath() + "AUTO.LIN", 0, 0
  62.     :LABEL001
  63.     If (BOOLEAN001) Goto LABEL002
  64.     FGet 6, STRING009
  65.     If (STRING009 == "") Then
  66.         BOOLEAN001 = 1
  67.     Else
  68.         Newline
  69.         Print STRING009
  70.     Endif
  71.     Goto LABEL001
  72.     :LABEL002
  73.     FClose 6
  74.     BOOLEAN001 = 0
  75.     Input "_", STRING006
  76.     If (STRING006 == "") Then
  77.         KbdStuff Chr(13)
  78.     Endif
  79.     If (ConfAlias()) Then
  80.         STRING012 = ".ALI"
  81.     Else
  82.         STRING012 = ".NAM"
  83.     Endif
  84.     STRING003 = "SIG\" + Left(U_Name(), 4) + Right(U_Name(), 4) + STRING012
  85.     FOpen 5, PPEPath() + "AUTO.BAD", 0, 0
  86.     STRING004 = String(CurConf())
  87.     While (STRING005 <> "NOMORE") Do
  88.         FGet 5, STRING005
  89.         If (STRING005 == STRING004) Then
  90.             BOOLEAN002 = 1
  91.         Endif
  92.     EndWhile
  93.     STRING005 = ""
  94.     While (STRING005 <> "NOMORE") Do
  95.         FGet 5, STRING005
  96.         If (STRING005 == STRING004) Then
  97.             STRING003 = "SIG\" + Left(U_Name(), 4) + Right(U_Name(), 4) + ".ALI"
  98.         Endif
  99.     EndWhile
  100.     STRING005 = ""
  101.     While (STRING005 <> "NOMORE") Do
  102.         FGet 5, STRING005
  103.         If (STRING005 == STRING004) Then
  104.             STRING003 = "SIG\" + Left(U_Name(), 4) + Right(U_Name(), 4) + ".NAM"
  105.         Endif
  106.     EndWhile
  107.     FClose 5
  108.     If ((Lower(Left(STRING006, 1)) == "s") && Exist(PPEPath() + STRING003)) Then
  109.         FOpen 1, PPEPath() + STRING003, 0, 0
  110.         :LABEL003
  111.         If (BOOLEAN001) Goto LABEL004
  112.         INTEGER005 = INTEGER005 + 1
  113.         FGet 1, TSTRING001(INTEGER005)
  114.         If (TSTRING001(INTEGER005) == "ENDSIG") Then
  115.             BOOLEAN001 = 1
  116.             TSTRING001(INTEGER005) = ""
  117.         Endif
  118.         STRING002 = STRING002 + Chr(13) + TSTRING001(INTEGER005)
  119.         Goto LABEL003
  120.         :LABEL004
  121.         If (BOOLEAN002 == 1) Then
  122.             STRING002 = StripAtx(STRING002)
  123.         Endif
  124.         STRING002 = "F" + Chr(13) + STRING002 + Chr(27) + Chr(13) + Lower(Left(STRING006, 2))
  125.         If (Lower(STRING006) == "so") Then
  126.             STRING002 = "F" + Chr(13) + Chr(27) + Chr(13) + Lower(Left(STRING006, 1))
  127.         Endif
  128.         KbdStuff STRING002
  129.         End
  130.     Else
  131.         KbdStuff STRING006
  132.     Endif
  133.     End
  134.     :LABEL005
  135.     FOpen 2, PPEPath() + "AUTO.CFG", 0, 0
  136.     FGet 2, INTEGER009
  137.     FGet 2, STRING008
  138.     FGet 2, STRING018
  139.     FGet 2, STRING010
  140.     FGet 2, INTEGER001
  141.     FGet 2, INTEGER002
  142.     FGet 2, STRING019
  143.     FGet 2, STRING020
  144.     FGet 2, INTEGER003
  145.     FGet 2, INTEGER004
  146.     Cls
  147.     TSTRING022(1) = "AutoSig PPE v1.O                      "
  148.     TSTRING022(2) = "Copyright (C) 1994 Dark Creation [PWA]"
  149.     Color 3
  150.     For INTEGER005 = 1 To 38
  151.         AnsiPos 1, 1
  152.         Print Right(TSTRING022(1), INTEGER005)
  153.         AnsiPos 1, 2
  154.         Print Right(TSTRING022(2), INTEGER005)
  155.     Next
  156.     AnsiPos 1, 1
  157.     Print "@X0BA"
  158.     AnsiPos 1, 2
  159.     Print "@X0BC"
  160.     AnsiPos 1, 11
  161.     InputStr STRING010 + "_", STRING011, 7, 1, "RrAa", 2 + 8
  162.     If (STRING011 == "R") Then
  163.         STRING012 = ".NAM"
  164.     Else
  165.         STRING012 = ".ALI"
  166.     Endif
  167.     Newline
  168.     InputYN STRING018 + "_", STRING017, 7
  169.     If (Upper(STRING017) == "Y") Then
  170.         BOOLEAN004 = 1
  171.     Else
  172.         BOOLEAN004 = 0
  173.     Endif
  174.     STRING003 = "SIG\" + Left(U_Name(), 4) + Right(U_Name(), 4) + STRING012
  175.     For INTEGER005 = 32 To 255
  176.         STRING014 = STRING014 + Chr(INTEGER005)
  177.     Next
  178.     STRING014 = ReplaceStr(STRING014, "+", "")
  179.     STRING014 = ReplaceStr(STRING014, "-", "")
  180.     DispFile PPEPath() + "AUTO.EDT", 1
  181.     INTEGER007 = GetY()
  182.     INTEGER006 = INTEGER007
  183.     INTEGER008 = 1
  184.     STRING015 = ""
  185.     STRING013 = 7
  186.     Color STRING013
  187.     AnsiPos INTEGER001, INTEGER002
  188.     Print "Color"
  189.     AnsiPos INTEGER003, INTEGER004
  190.     If (STRING011 == "R") Then
  191.         Print STRING019
  192.     Else
  193.         Print STRING020
  194.     Endif
  195.     AnsiPos 1, INTEGER007
  196.     If (BOOLEAN004 == 1) Then
  197.         If (Exist(PPEPath() + STRING003)) Then
  198.             FOpen 9, PPEPath() + STRING003, 0, 0
  199.             BOOLEAN001 = 0
  200.             :LABEL006
  201.             If (BOOLEAN001) Goto LABEL008
  202.             FGet 9, STRING021
  203.             If (STRING021 == "ENDSIG") Then
  204.                 BOOLEAN001 = 1
  205.                 Goto LABEL007
  206.             Endif
  207.             PrintLn STRING021
  208.             :LABEL007
  209.             Goto LABEL006
  210.             :LABEL008
  211.             FClose 9
  212.         Endif
  213.     Endif
  214.     BOOLEAN001 = 0
  215.     AnsiPos 1, INTEGER007
  216.     :LABEL009
  217.     If (BOOLEAN001) Goto LABEL011
  218.     STRING015 = Inkey()
  219.     Select Case (STRING015)
  220.         Case Chr(27)
  221.             Goto LABEL011
  222.         Case Chr(8)
  223.             Backup 1
  224.             Print " "
  225.             Backup 1
  226.             INTEGER008 = INTEGER008 - 1
  227.             If (INTEGER008 == 0) Then
  228.                 INTEGER008 = 1
  229.             Endif
  230.         Case "+", "-"
  231.             Gosub LABEL013
  232.         Case "UP"
  233.             Gosub LABEL014
  234.         Case "DOWN"
  235.             Gosub LABEL015
  236.         Case "LEFT", Chr(8)
  237.             Gosub LABEL016
  238.         Case "RIGHT"
  239.             Gosub LABEL017
  240.         Case Chr(13)
  241.             BOOLEAN003 = 1
  242.             Gosub LABEL015
  243.         Case 0
  244.             Color STRING013
  245.             Print STRING015
  246.             If (INTEGER008 < 79) Then
  247.                 INTEGER008 = INTEGER008 + 1
  248.                 AnsiPos INTEGER008, INTEGER006
  249.                 Goto LABEL010
  250.             Endif
  251.             AnsiPos INTEGER008, INTEGER006
  252.     End Select
  253.     :LABEL010
  254.     Goto LABEL009
  255.     :LABEL011
  256.     For INTEGER005 = 1 To INTEGER009
  257.         TSTRING001(INTEGER005) = ScrText(1, INTEGER007 + INTEGER005 - 1, 79, 1)
  258.         BOOLEAN001 = 0
  259.         :LABEL012
  260.         If (BOOLEAN001) Continue
  261.         If (Right(TSTRING001(INTEGER005), 1) == " ") Then
  262.             TSTRING001(INTEGER005) = Left(TSTRING001(INTEGER005), Len(TSTRING001(INTEGER005)) - 1)
  263.         Else
  264.             BOOLEAN001 = 1
  265.         Endif
  266.         Goto LABEL012
  267.     Next
  268.     Cls
  269.     For INTEGER005 = 1 To INTEGER009
  270.         PrintLn TSTRING001(INTEGER005)
  271.     Next
  272.     InputYN STRING008 + "_", STRING007, 7
  273.     If ((Upper(STRING007) == "Y") || (STRING007 == "")) Then
  274.         Cls
  275.         PrintLn "@X0FSaving..."
  276.         Delay 9
  277.         Delete PPEPath() + STRING003
  278.         FCreate 6, PPEPath() + STRING003, 2, 0
  279.         For INTEGER005 = 1 To INTEGER009
  280.             STRING016 = StripAtx(TSTRING001(INTEGER005))
  281.             STRING016 = ReplaceStr(STRING016, " ", "")
  282.             If (STRING016 == "") Then
  283.                 TSTRING001(INTEGER005) = " "
  284.             Endif
  285.             FPutLn 6, TSTRING001(INTEGER005)
  286.         Next
  287.         FPutLn 6, "ENDSIG"
  288.         FClose 6
  289.         End
  290.     ElseIf (Upper(STRING007) == "N") Then
  291.         Cls
  292.         PrintLn "@X0FAborted..."
  293.         Delay 9
  294.         End
  295.     Endif
  296.     :LABEL013
  297.     Select Case (STRING015)
  298.         Case "-"
  299.             STRING013 = STRING013 - 1
  300.         Case "+"
  301.             STRING013 = STRING013 + 1
  302.     End Select
  303.     If (STRING013 < 1) Then
  304.         STRING013 = 1
  305.     Endif
  306.     If (STRING013 > 15) Then
  307.         STRING013 = 15
  308.     Endif
  309.     Color STRING013
  310.     AnsiPos INTEGER001, INTEGER002
  311.     Print "Color"
  312.     AnsiPos INTEGER008, INTEGER006
  313.     Return
  314.     :LABEL014
  315.     INTEGER008 = GetX()
  316.     INTEGER006 = GetY()
  317.     If (INTEGER006 == INTEGER007) Then
  318.         INTEGER006 = INTEGER006 + 1
  319.         Return
  320.     Else
  321.         INTEGER006 = INTEGER006 - 1
  322.         AnsiPos INTEGER008, INTEGER006
  323.         Return
  324.     Endif
  325.     :LABEL015
  326.     INTEGER008 = GetX()
  327.     INTEGER006 = GetY()
  328.     If (INTEGER006 == INTEGER009 + INTEGER007 - 1) Then
  329.         INTEGER006 = INTEGER007
  330.         If (BOOLEAN003 == 1) Then
  331.             INTEGER008 = 1
  332.             BOOLEAN003 = 0
  333.         Endif
  334.         AnsiPos INTEGER008, INTEGER006
  335.         Return
  336.     Else
  337.         INTEGER006 = INTEGER006 + 1
  338.         If (BOOLEAN003 == 1) Then
  339.             INTEGER008 = 1
  340.             BOOLEAN003 = 0
  341.         Endif
  342.         AnsiPos INTEGER008, INTEGER006
  343.         Return
  344.     Endif
  345.     :LABEL016
  346.     INTEGER008 = GetX()
  347.     INTEGER006 = GetY()
  348.     If (INTEGER008 == 1) Then
  349.         AnsiPos INTEGER008, INTEGER006
  350.         Return
  351.     Else
  352.         INTEGER008 = INTEGER008 - 1
  353.         AnsiPos INTEGER008, INTEGER006
  354.         Return
  355.     Endif
  356.     :LABEL017
  357.     INTEGER008 = GetX()
  358.     INTEGER006 = GetY()
  359.     If (INTEGER008 == 79) Then
  360.         AnsiPos INTEGER008, INTEGER006
  361.         Return
  362.     Else
  363.         INTEGER008 = INTEGER008 + 1
  364.         AnsiPos INTEGER008, INTEGER006
  365.         Return
  366.     Endif
  367.  
  368. ;------------------------------------------------------------------------------
  369. ;
  370. ; Usage report (before postprocessing)
  371. ;
  372. ; ■ Statements used :
  373. ;
  374. ;    4       End
  375. ;    4       Cls
  376. ;    4       Color 
  377. ;    93      Goto 
  378. ;    80      Let 
  379. ;    11      Print 
  380. ;    4       PrintLn 
  381. ;    55      If 
  382. ;    1       DispFile 
  383. ;    1       Input 
  384. ;    1       FCreate 
  385. ;    5       FOpen 
  386. ;    4       FClose 
  387. ;    16      FGet 
  388. ;    2       FPutLn 
  389. ;    1       Delete 
  390. ;    1       InputStr 
  391. ;    2       InputYN 
  392. ;    6       Gosub 
  393. ;    9       Return
  394. ;    2       Delay 
  395. ;    3       Newline
  396. ;    3       KbdStuff 
  397. ;    20      AnsiPos 
  398. ;    2       Backup 
  399. ;
  400. ;
  401. ; ■ Functions used :
  402. ;
  403. ;    51      +
  404. ;    7       -
  405. ;    39      ==
  406. ;    3       <>
  407. ;    7       <
  408. ;    5       <=
  409. ;    2       >
  410. ;    10      >=
  411. ;    55      !
  412. ;    11      &&
  413. ;    8       ||
  414. ;    1       Len(
  415. ;    4       Lower()
  416. ;    3       Upper()
  417. ;    8       Left()
  418. ;    7       Right()
  419. ;    13      Chr()
  420. ;    1       InStr()
  421. ;    8       U_Name()
  422. ;    2       StripAtx()
  423. ;    1       Inkey()
  424. ;    1       String()
  425. ;    1       CurConf()
  426. ;    10      PPEPath()
  427. ;    2       Exist()
  428. ;    1       TokenStr()
  429. ;    4       GetX()
  430. ;    5       GetY()
  431. ;    1       ScrText()
  432. ;    3       ReplaceStr()
  433. ;    1       ConfAlias()
  434. ;
  435. ;------------------------------------------------------------------------------
  436. ;
  437. ; Analysis flags : No flag
  438. ;
  439. ;------------------------------------------------------------------------------
  440. ;
  441. ; Postprocessing report
  442. ;
  443. ;    5       For/Next
  444. ;    3       While/EndWhile
  445. ;    31      If/Then or If/Then/Else
  446. ;    2       Select Case
  447. ;
  448. ;------------------------------------------------------------------------------
  449. ;                 AEGiS Corp - Break the routines, code against the machines!
  450. ;------------------------------------------------------------------------------
  451.