home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / T / THTZP100.ZIP / ZIPPY.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1995-01-04  |  1KB  |  123 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.     String   STRING001
  21.     String   STRING002
  22.     String   STRING003
  23.     String   STRING004
  24.  
  25. ;------------------------------------------------------------------------------
  26.  
  27.     STRING001 = ReadLine(PPEPath() + PPEName() + ".cnf", 1)
  28.     FClose -1
  29.     STRING003 = TokenStr()
  30.     If (!"0") STRING002 = STRING003 ; PPLC BUG!
  31.     STRING002 = ReplaceStr(STRING002, "&", " & ")
  32.     STRING002 = ReplaceStr(STRING002, "|", " | ")
  33.     STRING002 = ReplaceStr(STRING002, "!", " ! ")
  34.     STRING002 = ReplaceStr(STRING002, "(", " ( ")
  35.     STRING002 = ReplaceStr(STRING002, ")", " ) ")
  36.     Tokenize STRING002
  37.     For INTEGER001 = 1 To TokCount()
  38.         GetToken STRING004
  39.     Next
  40.     If (Len(STRING004) == 1) Then
  41.         If ((((((((((((STRING004 == "A") || (STRING004 == "U")) || (STRING004 == "0")) || (STRING004 == "1")) || (STRING004 == "2")) || (STRING004 == "3")) || (STRING004 == "4")) || (STRING004 == "5")) || (STRING004 == "6")) || (STRING004 == "7")) || (STRING004 == "8")) || (STRING004 == "9")) STRING002 = STRING002 + Chr(13)
  42.     Endif
  43.     If (STRING002 <> "") Then
  44.         Goto LABEL001
  45.     Endif
  46.     If (Exist(PPEPath() + PPEName() + ".pcb")) DispFile PPEPath() + PPEName() + ".pcb", 0
  47.     InputStr STRING001, STRING002, "", 45, Mask_Ascii(), 0
  48.     If (STRING002 == "") Stop
  49.     If (STRING002 <> "") Then
  50.         :LABEL001
  51.         Newline
  52.         KbdStuff "Z " + STRING002
  53.     Endif
  54.  
  55. ;------------------------------------------------------------------------------
  56. ;
  57. ; Usage report (before postprocessing)
  58. ;
  59. ; ■ Statements used :
  60. ;
  61. ;    6       Goto 
  62. ;    11      Let 
  63. ;    8       If 
  64. ;    1       DispFile 
  65. ;    1       FClose 
  66. ;    1       InputStr 
  67. ;    1       Newline
  68. ;    1       Tokenize 
  69. ;    1       GetToken 
  70. ;    1       Stop
  71. ;    1       KbdStuff 
  72. ;
  73. ;
  74. ; ■ Functions used :
  75. ;
  76. ;    1       -
  77. ;    9       +
  78. ;    15      ==
  79. ;    2       <>
  80. ;    1       <
  81. ;    1       <=
  82. ;    2       >=
  83. ;    7       !
  84. ;    2       &&
  85. ;    12      ||
  86. ;    1       Len(
  87. ;    1       Chr()
  88. ;    1       Mask_Ascii()
  89. ;    3       PPEPath()
  90. ;    1       ReadLine()
  91. ;    1       Exist()
  92. ;    1       TokenStr()
  93. ;    3       PPEName()
  94. ;    2       TokCount()
  95. ;    5       ReplaceStr()
  96. ;
  97. ;------------------------------------------------------------------------------
  98. ;
  99. ; Analysis flags : No flag
  100. ;
  101. ;
  102. ;------------------------------------------------------------------------------
  103. ;
  104. ;     One or more PPLC bugs were found, this is not a PPLX error, but PPLX is  
  105. ;     reporting the error ;)  Some statements  like VAR = !!!!10, VAR = !0*!0  
  106. ;     or similar things are not handled  correctly by PPLC, some may use this  
  107. ;     to  avoid a  correct decompilation...  This doesn't mean that there  is  
  108. ;     actually an error, but the probability of error is high...               
  109. ;     ■ Search for : PPLC BUG
  110. ;
  111. ;------------------------------------------------------------------------------
  112. ;
  113. ; Postprocessing report
  114. ;
  115. ;    1       For/Next
  116. ;    0       While/EndWhile
  117. ;    3       If/Then or If/Then/Else
  118. ;    0       Select Case
  119. ;
  120. ;------------------------------------------------------------------------------
  121. ;                 AEGiS Corp - Break the routines, code against the machines!
  122. ;------------------------------------------------------------------------------
  123.