home *** CD-ROM | disk | FTP | other *** search
/ Groovy Bytes: Behind the Moon / groovybytes.iso / GROOVY / PPE / ALF / ALF_TL20.ZIP / TURBO.PPE (.txt) < prev   
Encoding:
PCBoard Programming Language Executable  |  1994-07-05  |  2.1 KB  |  135 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.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.     String   STRING006
  25.     String   STRING007
  26.     String   STRING008
  27.     String   STRING009
  28.     String   STRING010
  29.  
  30. ;------------------------------------------------------------------------------
  31.  
  32.     If (0) Brag
  33.     FOpen 1, PPEPath() + "TURBO.CNF", 0, 0
  34.     FGet 1, STRING001
  35.     FGet 1, STRING002
  36.     FGet 1, STRING009
  37.     FGet 1, STRING010
  38.     FGet 1, STRING003
  39.     FGet 1, STRING004
  40.     FClose 1
  41.     If (STRING002 == "Y") Goto LABEL005
  42.     If (STRING002 == "N") Goto LABEL001
  43.     :LABEL001
  44.     PrintLn ""
  45.     PrintLn "@X0BT@X03u@X09r@X03b@X0Bo L@X03o@X09g@X03i@X0Bn 2@X03.@X09o @X03B@X09y @X0BP@X03S@X09¥¢@X03H@X0BΘ @X09D@X03Å@X09D"
  46.     STRING007 = GetY()
  47.     AnsiPos 1, STRING007
  48.     Print STRING001
  49.     STRING008 = GetX()
  50.     :LABEL002
  51.     AnsiPos STRING008 + 1, STRING007
  52.     Print STRING003 + STRING010 + "@X08" + STRING004 + " " + STRING009
  53.     STRING005 = ""
  54.     While (STRING005 == "") Do
  55.         STRING005 = Inkey()
  56.     EndWhile
  57.     If ((STRING005 == Chr(89)) || (STRING005 == Chr(121))) Goto LABEL006
  58.     If (((STRING005 == Chr(13)) || (STRING005 == Chr(78))) || (STRING005 == Chr(110))) Goto LABEL004
  59.     If (((STRING005 == "RIGHT") || (STRING005 == Chr(122))) || (STRING005 == Chr(90))) Goto LABEL003
  60.     If (((STRING005 == "LEFT") || (STRING005 == Chr(65))) || (STRING005 == Chr(97))) Goto LABEL003
  61.     If (STRING005 == Chr(32)) Goto LABEL003
  62.     Goto LABEL002
  63.     :LABEL003
  64.     AnsiPos STRING008 + 1, STRING007
  65.     Print STRING004 + STRING010 + "@X08" + " " + STRING003 + STRING009
  66.     STRING006 = ""
  67.     While (STRING006 == "") Do
  68.         STRING006 = Inkey()
  69.     EndWhile
  70.     If ((STRING006 == Chr(78)) || (STRING006 == Chr(110))) Goto LABEL004
  71.     If (((STRING006 == Chr(13)) || (STRING006 == Chr(89))) || (STRING006 == Chr(121))) Goto LABEL006
  72.     If (((STRING006 == "RIGHT") || (STRING006 == Chr(122))) || (STRING006 == Chr(90))) Goto LABEL002
  73.     If (((STRING006 == "LEFT") || (STRING006 == Chr(65))) || (STRING006 == Chr(97))) Goto LABEL002
  74.     If (STRING006 == Chr(32)) Goto LABEL002
  75.     Goto LABEL003
  76.     :LABEL004
  77.     PrintLn ""
  78.     DispFile PPEPath() + "PPES.ALF", 1
  79.     End
  80.     :LABEL005
  81.     DispFile PPEPath() + "BEFORE.ALF", 1
  82.     Goto LABEL001
  83.     :LABEL006
  84.     PrintLn ""
  85.     End
  86.  
  87. ;------------------------------------------------------------------------------
  88. ;
  89. ; Usage report (before postprocessing)
  90. ;
  91. ; ■ Statements used :
  92. ;
  93. ;    2       End
  94. ;    19      Goto 
  95. ;    6       Let 
  96. ;    3       Print 
  97. ;    4       PrintLn 
  98. ;    15      If 
  99. ;    2       DispFile 
  100. ;    1       FOpen 
  101. ;    1       FClose 
  102. ;    6       FGet 
  103. ;    3       AnsiPos 
  104. ;    1       Brag
  105. ;
  106. ;
  107. ; ■ Functions used :
  108. ;
  109. ;    15      +
  110. ;    28      ==
  111. ;    2       !
  112. ;    14      ||
  113. ;    20      Chr()
  114. ;    2       Inkey()
  115. ;    3       PPEPath()
  116. ;    1       GetX()
  117. ;    1       GetY()
  118. ;
  119. ;------------------------------------------------------------------------------
  120. ;
  121. ; Analysis flags : No flag
  122. ;
  123. ;------------------------------------------------------------------------------
  124. ;
  125. ; Postprocessing report
  126. ;
  127. ;    0       For/Next
  128. ;    2       While/EndWhile
  129. ;    0       If/Then or If/Then/Else
  130. ;    0       Select Case
  131. ;
  132. ;------------------------------------------------------------------------------
  133. ;                 AEGiS Corp - Break the routines, code against the machines!
  134. ;------------------------------------------------------------------------------
  135.