home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / T / TOPS.ZIP / SUB10DQ.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-03-27  |  10KB  |  373 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  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.     Integer  INTEGER015
  34.     Integer  INTEGER016
  35.     Integer  INTEGER017
  36.     Integer  INTEGER018
  37.     Integer  INTEGER019
  38.     Integer  INTEGER020
  39.     Integer  INTEGER021
  40.     Integer  INTEGER022
  41.     Integer  INTEGER023
  42.     Integer  INTEGER024
  43.     Integer  INTEGER025
  44.     Integer  INTEGER026
  45.     Integer  INTEGER027
  46.     Integer  INTEGER028
  47.     Integer  INTEGER029
  48.     Integer  INTEGER030
  49.     Integer  INTEGER031
  50.     Integer  INTEGER032
  51.     Integer  INTEGER033
  52.     Integer  INTEGER034
  53.     Integer  INTEGER035
  54.     Integer  INTEGER036
  55.     Integer  INTEGER037
  56.     Integer  INTEGER038
  57.     Integer  INTEGER039
  58.     Integer  INTEGER040
  59.     Integer  INTEGER041
  60.     Integer  INTEGER042
  61.     Integer  INTEGER043
  62.     Integer  INTEGER044
  63.     Integer  INTEGER045
  64.     Integer  INTEGER046
  65.     Integer  INTEGER047
  66.     Integer  INTEGER048
  67.     Integer  INTEGER049
  68.     Integer  INTEGER050
  69.     Integer  INTEGER051
  70.     Integer  INTEGER052
  71.     Integer  INTEGER053
  72.     Integer  INTEGER054
  73.     Integer  INTEGER055
  74.     Integer  INTEGER056
  75.     Integer  INTEGER057
  76.     Integer  INTEGER058
  77.     Integer  INTEGER059
  78.     Integer  INTEGER060
  79.     Integer  INTEGER061
  80.     Integer  INTEGER062
  81.     Integer  INTEGER063
  82.     Integer  INTEGER064
  83.     Integer  INTEGER065
  84.     Integer  INTEGER066
  85.     Integer  INTEGER067
  86.     Integer  INTEGER068
  87.     Integer  INTEGER069
  88.     Integer  INTEGER070
  89.     Integer  INTEGER071
  90.     String   STRING001
  91.     String   STRING002
  92.     String   STRING003
  93.     String   STRING004
  94.     String   STRING005
  95.     String   STRING006
  96.     String   STRING007
  97.     String   STRING008
  98.     String   STRING009
  99.     String   STRING010
  100.     String   STRING011
  101.     String   STRING012
  102.     String   STRING013
  103.     String   STRING014
  104.     String   STRING015
  105.     String   STRING016
  106.     String   STRING017
  107.     String   STRING018
  108.     String   STRING019
  109.     String   STRING020
  110.     String   STRING021
  111.     String   STRING022
  112.     String   STRING023
  113.     String   STRING024
  114.     String   STRING025
  115.     String   STRING026
  116.     String   STRING027
  117.     String   STRING028
  118.     String   STRING029
  119.     String   STRING030
  120.     String   STRING031
  121.     String   STRING032
  122.  
  123. ;------------------------------------------------------------------------------
  124.  
  125.     STRING002 = ReadLine(PPEPath() + "SUB10D.DAT", 1)
  126.     INTEGER002 = ReadLine(PPEPath() + "SUB10D.DAT", 2)
  127.     STRING003 = ReadLine(PPEPath() + "SUB10D.DAT", 3)
  128.     INTEGER003 = ReadLine(PPEPath() + "SUB10D.DAT", 4)
  129.     STRING004 = ReadLine(PPEPath() + "SUB10D.DAT", 5)
  130.     INTEGER004 = ReadLine(PPEPath() + "SUB10D.DAT", 6)
  131.     STRING005 = ReadLine(PPEPath() + "SUB10D.DAT", 7)
  132.     INTEGER005 = ReadLine(PPEPath() + "SUB10D.DAT", 8)
  133.     STRING006 = ReadLine(PPEPath() + "SUB10D.DAT", 9)
  134.     INTEGER006 = ReadLine(PPEPath() + "SUB10D.DAT", 10)
  135.     STRING007 = ReadLine(PPEPath() + "SUB10D.DAT", 11)
  136.     INTEGER007 = ReadLine(PPEPath() + "SUB10D.DAT", 12)
  137.     STRING008 = ReadLine(PPEPath() + "SUB10D.DAT", 13)
  138.     INTEGER008 = ReadLine(PPEPath() + "SUB10D.DAT", 14)
  139.     STRING009 = ReadLine(PPEPath() + "SUB10D.DAT", 15)
  140.     INTEGER009 = ReadLine(PPEPath() + "SUB10D.DAT", 16)
  141.     STRING010 = ReadLine(PPEPath() + "SUB10D.DAT", 17)
  142.     INTEGER010 = ReadLine(PPEPath() + "SUB10D.DAT", 18)
  143.     STRING011 = ReadLine(PPEPath() + "SUB10D.DAT", 19)
  144.     INTEGER011 = ReadLine(PPEPath() + "SUB10D.DAT", 20)
  145.     Cls
  146.     INTEGER001 = INTEGER002 / 40
  147.     Newline
  148.     DispFile PPEPath() + "SUB10D.PCB", 2
  149.     STRING032 = ReadLine(PPEPath() + "SUB10D.CFG", 7)
  150.     INTEGER032 = ReadLine(PPEPath() + "SUB10D.CFG", 12)
  151.     INTEGER042 = ReadLine(PPEPath() + "SUB10D.CFG", 13)
  152.     AnsiPos INTEGER032, INTEGER042
  153.     STRING012 = ReadLine(PPEPath() + "SUB10D.CFG", 35)
  154.     Print STRING012, STRING002
  155.     INTEGER052 = ReadLine(PPEPath() + "SUB10D.CFG", 49)
  156.     INTEGER062 = ReadLine(PPEPath() + "SUB10D.CFG", 50)
  157.     AnsiPos INTEGER052, INTEGER062
  158.     STRING022 = ReadLine(PPEPath() + "SUB10D.CFG", 72)
  159.     Print STRING022, INTEGER002
  160.     INTEGER012 = ReadLine(PPEPath() + "SUB10D.CFG", 86)
  161.     INTEGER022 = ReadLine(PPEPath() + "SUB10D.CFG", 87)
  162.     AnsiPos INTEGER012, INTEGER022
  163.     For STRING001 = 1 To 40
  164.         Print STRING032
  165.     Next
  166.     Newline
  167.     INTEGER033 = ReadLine(PPEPath() + "SUB10D.CFG", 14)
  168.     INTEGER043 = ReadLine(PPEPath() + "SUB10D.CFG", 15)
  169.     AnsiPos INTEGER033, INTEGER043
  170.     STRING013 = ReadLine(PPEPath() + "SUB10D.CFG", 36)
  171.     Print STRING013, STRING003
  172.     INTEGER053 = ReadLine(PPEPath() + "SUB10D.CFG", 51)
  173.     INTEGER063 = ReadLine(PPEPath() + "SUB10D.CFG", 52)
  174.     AnsiPos INTEGER053, INTEGER063
  175.     STRING023 = ReadLine(PPEPath() + "SUB10D.CFG", 73)
  176.     Print STRING023, INTEGER003
  177.     INTEGER013 = ReadLine(PPEPath() + "SUB10D.CFG", 88)
  178.     INTEGER023 = ReadLine(PPEPath() + "SUB10D.CFG", 89)
  179.     AnsiPos INTEGER013, INTEGER023
  180.     For STRING001 = 1 To INTEGER003 / INTEGER001
  181.         Print STRING032
  182.     Next
  183.     Newline
  184.     INTEGER034 = ReadLine(PPEPath() + "SUB10D.CFG", 16)
  185.     INTEGER044 = ReadLine(PPEPath() + "SUB10D.CFG", 17)
  186.     AnsiPos INTEGER034, INTEGER044
  187.     STRING014 = ReadLine(PPEPath() + "SUB10D.CFG", 37)
  188.     Print STRING014, STRING004
  189.     INTEGER054 = ReadLine(PPEPath() + "SUB10D.CFG", 53)
  190.     INTEGER064 = ReadLine(PPEPath() + "SUB10D.CFG", 54)
  191.     AnsiPos INTEGER054, INTEGER064
  192.     STRING024 = ReadLine(PPEPath() + "SUB10D.CFG", 74)
  193.     Print STRING024, INTEGER004
  194.     INTEGER014 = ReadLine(PPEPath() + "SUB10D.CFG", 90)
  195.     INTEGER024 = ReadLine(PPEPath() + "SUB10D.CFG", 91)
  196.     AnsiPos INTEGER014, INTEGER024
  197.     For STRING001 = 1 To INTEGER004 / INTEGER001
  198.         Print STRING032
  199.     Next
  200.     Newline
  201.     INTEGER035 = ReadLine(PPEPath() + "SUB10D.CFG", 18)
  202.     INTEGER045 = ReadLine(PPEPath() + "SUB10D.CFG", 19)
  203.     AnsiPos INTEGER035, INTEGER045
  204.     STRING015 = ReadLine(PPEPath() + "SUB10D.CFG", 38)
  205.     Print STRING015, STRING005
  206.     INTEGER055 = ReadLine(PPEPath() + "SUB10D.CFG", 55)
  207.     INTEGER065 = ReadLine(PPEPath() + "SUB10D.CFG", 56)
  208.     AnsiPos INTEGER055, INTEGER065
  209.     STRING025 = ReadLine(PPEPath() + "SUB10D.CFG", 75)
  210.     Print STRING025, INTEGER005
  211.     INTEGER015 = ReadLine(PPEPath() + "SUB10D.CFG", 92)
  212.     INTEGER025 = ReadLine(PPEPath() + "SUB10D.CFG", 93)
  213.     AnsiPos INTEGER015, INTEGER025
  214.     For STRING001 = 1 To INTEGER005 / INTEGER001
  215.         Print STRING032
  216.     Next
  217.     Newline
  218.     INTEGER036 = ReadLine(PPEPath() + "SUB10D.CFG", 20)
  219.     INTEGER046 = ReadLine(PPEPath() + "SUB10D.CFG", 21)
  220.     AnsiPos INTEGER036, INTEGER046
  221.     STRING016 = ReadLine(PPEPath() + "SUB10D.CFG", 39)
  222.     Print STRING016, STRING006
  223.     INTEGER056 = ReadLine(PPEPath() + "SUB10D.CFG", 57)
  224.     INTEGER066 = ReadLine(PPEPath() + "SUB10D.CFG", 58)
  225.     AnsiPos INTEGER056, INTEGER066
  226.     STRING026 = ReadLine(PPEPath() + "SUB10D.CFG", 76)
  227.     Print STRING026, INTEGER006
  228.     INTEGER016 = ReadLine(PPEPath() + "SUB10D.CFG", 94)
  229.     INTEGER026 = ReadLine(PPEPath() + "SUB10D.CFG", 95)
  230.     AnsiPos INTEGER016, INTEGER026
  231.     For STRING001 = 1 To INTEGER006 / INTEGER001
  232.         Print STRING032
  233.     Next
  234.     Newline
  235.     INTEGER037 = ReadLine(PPEPath() + "SUB10D.CFG", 22)
  236.     INTEGER047 = ReadLine(PPEPath() + "SUB10D.CFG", 23)
  237.     AnsiPos INTEGER037, INTEGER047
  238.     STRING017 = ReadLine(PPEPath() + "SUB10D.CFG", 40)
  239.     Print STRING017, STRING007
  240.     INTEGER057 = ReadLine(PPEPath() + "SUB10D.CFG", 59)
  241.     INTEGER067 = ReadLine(PPEPath() + "SUB10D.CFG", 60)
  242.     AnsiPos INTEGER057, INTEGER067
  243.     STRING027 = ReadLine(PPEPath() + "SUB10D.CFG", 77)
  244.     Print STRING027, INTEGER007
  245.     INTEGER017 = ReadLine(PPEPath() + "SUB10D.CFG", 96)
  246.     INTEGER027 = ReadLine(PPEPath() + "SUB10D.CFG", 97)
  247.     AnsiPos INTEGER017, INTEGER027
  248.     For STRING001 = 1 To INTEGER007 / INTEGER001
  249.         Print STRING032
  250.     Next
  251.     Newline
  252.     INTEGER038 = ReadLine(PPEPath() + "SUB10D.CFG", 24)
  253.     INTEGER048 = ReadLine(PPEPath() + "SUB10D.CFG", 25)
  254.     AnsiPos INTEGER038, INTEGER048
  255.     STRING018 = ReadLine(PPEPath() + "SUB10D.CFG", 41)
  256.     Print STRING018, STRING008
  257.     INTEGER058 = ReadLine(PPEPath() + "SUB10D.CFG", 61)
  258.     INTEGER068 = ReadLine(PPEPath() + "SUB10D.CFG", 62)
  259.     AnsiPos INTEGER058, INTEGER068
  260.     STRING028 = ReadLine(PPEPath() + "SUB10D.CFG", 78)
  261.     Print STRING028, INTEGER008
  262.     INTEGER018 = ReadLine(PPEPath() + "SUB10D.CFG", 98)
  263.     INTEGER028 = ReadLine(PPEPath() + "SUB10D.CFG", 99)
  264.     AnsiPos INTEGER018, INTEGER028
  265.     For STRING001 = 1 To INTEGER008 / INTEGER001
  266.         Print STRING032
  267.     Next
  268.     Newline
  269.     INTEGER039 = ReadLine(PPEPath() + "SUB10D.CFG", 26)
  270.     INTEGER049 = ReadLine(PPEPath() + "SUB10D.CFG", 27)
  271.     AnsiPos INTEGER039, INTEGER049
  272.     STRING019 = ReadLine(PPEPath() + "SUB10D.CFG", 42)
  273.     Print STRING019, STRING009
  274.     INTEGER059 = ReadLine(PPEPath() + "SUB10D.CFG", 63)
  275.     INTEGER069 = ReadLine(PPEPath() + "SUB10D.CFG", 64)
  276.     AnsiPos INTEGER059, INTEGER069
  277.     STRING029 = ReadLine(PPEPath() + "SUB10D.CFG", 79)
  278.     Print STRING029, INTEGER009
  279.     INTEGER019 = ReadLine(PPEPath() + "SUB10D.CFG", 100)
  280.     INTEGER029 = ReadLine(PPEPath() + "SUB10D.CFG", 101)
  281.     AnsiPos INTEGER019, INTEGER029
  282.     For STRING001 = 1 To INTEGER009 / INTEGER001
  283.         Print STRING032
  284.     Next
  285.     Newline
  286.     INTEGER040 = ReadLine(PPEPath() + "SUB10D.CFG", 28)
  287.     INTEGER050 = ReadLine(PPEPath() + "SUB10D.CFG", 29)
  288.     AnsiPos INTEGER040, INTEGER050
  289.     STRING020 = ReadLine(PPEPath() + "SUB10D.CFG", 43)
  290.     Print STRING020, STRING010
  291.     INTEGER060 = ReadLine(PPEPath() + "SUB10D.CFG", 65)
  292.     INTEGER070 = ReadLine(PPEPath() + "SUB10D.CFG", 66)
  293.     AnsiPos INTEGER060, INTEGER070
  294.     STRING030 = ReadLine(PPEPath() + "SUB10D.CFG", 80)
  295.     Print STRING030, INTEGER010
  296.     INTEGER020 = ReadLine(PPEPath() + "SUB10D.CFG", 102)
  297.     INTEGER030 = ReadLine(PPEPath() + "SUB10D.CFG", 103)
  298.     AnsiPos INTEGER020, INTEGER030
  299.     For STRING001 = 1 To INTEGER010 / INTEGER001
  300.         Print STRING032
  301.     Next
  302.     Newline
  303.     INTEGER041 = ReadLine(PPEPath() + "SUB10D.CFG", 30)
  304.     INTEGER051 = ReadLine(PPEPath() + "SUB10D.CFG", 31)
  305.     AnsiPos INTEGER041, INTEGER051
  306.     STRING021 = ReadLine(PPEPath() + "SUB10D.CFG", 44)
  307.     Print STRING021, STRING011
  308.     INTEGER061 = ReadLine(PPEPath() + "SUB10D.CFG", 67)
  309.     INTEGER071 = ReadLine(PPEPath() + "SUB10D.CFG", 68)
  310.     AnsiPos INTEGER061, INTEGER071
  311.     STRING031 = ReadLine(PPEPath() + "SUB10D.CFG", 81)
  312.     Print STRING031, INTEGER011
  313.     INTEGER021 = ReadLine(PPEPath() + "SUB10D.CFG", 104)
  314.     INTEGER031 = ReadLine(PPEPath() + "SUB10D.CFG", 105)
  315.     AnsiPos INTEGER021, INTEGER031
  316.     For STRING001 = 1 To INTEGER011 / INTEGER001
  317.         Print STRING032
  318.     Next
  319.     Newline
  320.     Newline
  321.     Newline
  322.     Newline
  323.     PrintLn "@PAUSE@" + "@X07SuB-10 v1.1 By The Chairman [RAZOR]"
  324.     End
  325.  
  326. ;------------------------------------------------------------------------------
  327. ;
  328. ; Usage report (before postprocessing)
  329. ;
  330. ; ■ Statements used :
  331. ;
  332. ;    1       End
  333. ;    1       Cls
  334. ;    20      Goto 
  335. ;    122     Let 
  336. ;    30      Print 
  337. ;    1       PrintLn 
  338. ;    10      If 
  339. ;    1       DispFile 
  340. ;    14      Newline
  341. ;    30      AnsiPos 
  342. ;
  343. ;
  344. ; ■ Functions used :
  345. ;
  346. ;    19      /
  347. ;    113     +
  348. ;    10      <
  349. ;    10      <=
  350. ;    20      >=
  351. ;    10      !
  352. ;    20      &&
  353. ;    10      ||
  354. ;    102     PPEPath()
  355. ;    101     ReadLine()
  356. ;
  357. ;------------------------------------------------------------------------------
  358. ;
  359. ; Analysis flags : No flag
  360. ;
  361. ;------------------------------------------------------------------------------
  362. ;
  363. ; Postprocessing report
  364. ;
  365. ;    10      For/Next
  366. ;    0       While/EndWhile
  367. ;    0       If/Then or If/Then/Else
  368. ;    0       Select Case
  369. ;
  370. ;------------------------------------------------------------------------------
  371. ;                 AEGiS Corp - Break the routines, code against the machines!
  372. ;------------------------------------------------------------------------------
  373.