home *** CD-ROM | disk | FTP | other *** search
/ Groovy Bytes: Behind the Moon / groovybytes.iso / GROOVY / PPE / ALF / ALF_MAIL.ZIP / MAIL.PPE (.txt) < prev   
Encoding:
PCBoard Programming Language Executable  |  1994-07-05  |  2.2 KB  |  143 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.  
  26. ;------------------------------------------------------------------------------
  27.  
  28.     STRING001 = Chr(13)
  29.     If (0) Brag
  30.     PrintLn "@POFF@@X0F"
  31.     DispFile PPEPath() + "MAIL.ALF", 1
  32.     Newlines 3
  33.     STRING006 = GetY()
  34.     STRING002 = STRING006
  35.     AnsiPos 1, STRING002
  36.     Print "@X0FWould you like to Read it? @X08 @X0FYES @X08 @X0FNO @X08 @X0FRead All Mail@X0F @X08 @X07(c) Psycho Dad [Alƒ]"
  37.     Goto LABEL001
  38.     End
  39.     :LABEL001
  40.     AnsiPos 30, STRING002
  41.     Print "@X5FYES@X08 @X08 @X0FNO @X08 @X0FRead All Mail@X0F @X08"
  42.     STRING003 = ""
  43.     While (STRING003 == "") Do
  44.         STRING003 = Inkey()
  45.     EndWhile
  46.     If (STRING003 == Chr(13)) Goto LABEL005
  47.     If (((STRING003 == "RIGHT") || (STRING003 == Chr(122))) || (STRING003 == Chr(90))) Goto LABEL002
  48.     If (((STRING003 == "LEFT") || (STRING003 == Chr(65))) || (STRING003 == Chr(97))) Goto LABEL003
  49.     If (STRING003 == Chr(32)) Goto LABEL002
  50.     Goto LABEL001
  51.     :LABEL002
  52.     AnsiPos 30, STRING002
  53.     Print "@X0FYES@X08 @X08 @X5FNO@X08 @X08 @X0FRead All Mail@X0F @X08"
  54.     STRING004 = ""
  55.     While (STRING004 == "") Do
  56.         STRING004 = Inkey()
  57.     EndWhile
  58.     If (STRING004 == Chr(13)) Goto LABEL006
  59.     If (((STRING004 == "RIGHT") || (STRING004 == Chr(122))) || (STRING004 == Chr(90))) Goto LABEL003
  60.     If (((STRING004 == "LEFT") || (STRING004 == Chr(65))) || (STRING004 == Chr(97))) Goto LABEL001
  61.     If (STRING004 == Chr(32)) Goto LABEL003
  62.     Goto LABEL002
  63.     :LABEL003
  64.     AnsiPos 30, STRING002
  65.     Print "@X0FYES@X08 @X08 @X0FNO @X08 @X5FRead All Mail@X0F @X08"
  66.     STRING005 = ""
  67.     While (STRING005 == "") Do
  68.         STRING005 = Inkey()
  69.     EndWhile
  70.     :LABEL004
  71.     If (STRING005 == Chr(13)) Goto LABEL007
  72.     If (((STRING005 == "RIGHT") || (STRING005 == Chr(122))) || (STRING005 == Chr(90))) Goto LABEL001
  73.     If (((STRING005 == "LEFT") || (STRING005 == Chr(65))) || (STRING005 == Chr(97))) Goto LABEL002
  74.     If (STRING005 == Chr(32)) Goto LABEL001
  75.     If (STRING005 <> "") Goto LABEL004
  76.     Goto LABEL003
  77.     :LABEL005
  78.     PrintLn ""
  79.     PrintLn ""
  80.     KbdStuff "Y"
  81.     Print "@PON@"
  82.     End
  83.     :LABEL006
  84.     PrintLn ""
  85.     PrintLn ""
  86.     KbdStuff "N"
  87.     Print "@PON@"
  88.     End
  89.     :LABEL007
  90.     PrintLn ""
  91.     PrintLn ""
  92.     KbdStuff "A"
  93.     Print "@PON@"
  94.     End
  95.  
  96. ;------------------------------------------------------------------------------
  97. ;
  98. ; Usage report (before postprocessing)
  99. ;
  100. ; ■ Statements used :
  101. ;
  102. ;    4       End
  103. ;    23      Goto 
  104. ;    9       Let 
  105. ;    7       Print 
  106. ;    7       PrintLn 
  107. ;    17      If 
  108. ;    1       DispFile 
  109. ;    1       Newlines 
  110. ;    3       KbdStuff 
  111. ;    4       AnsiPos 
  112. ;    1       Brag
  113. ;
  114. ;
  115. ; ■ Functions used :
  116. ;
  117. ;    1       +
  118. ;    27      ==
  119. ;    1       <>
  120. ;    3       !
  121. ;    12      ||
  122. ;    19      Chr()
  123. ;    3       Inkey()
  124. ;    1       PPEPath()
  125. ;    1       GetY()
  126. ;
  127. ;------------------------------------------------------------------------------
  128. ;
  129. ; Analysis flags : No flag
  130. ;
  131. ;------------------------------------------------------------------------------
  132. ;
  133. ; Postprocessing report
  134. ;
  135. ;    0       For/Next
  136. ;    3       While/EndWhile
  137. ;    0       If/Then or If/Then/Else
  138. ;    0       Select Case
  139. ;
  140. ;------------------------------------------------------------------------------
  141. ;                 AEGiS Corp - Break the routines, code against the machines!
  142. ;------------------------------------------------------------------------------
  143.