home *** CD-ROM | disk | FTP | other *** search
/ Groovy Bytes: Behind the Moon / groovybytes.iso / GROOVY / PPE / ALF / ALF_WRIT.ZIP / WRITE.PPE (.txt) < prev   
Encoding:
PCBoard Programming Language Executable  |  1994-08-06  |  3.8 KB  |  202 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.     STRING010 = Chr(13)
  33.     STRING009 = Chr(27)
  34.     STRING002 = "@X1F"
  35.     STRING003 = "@X1F   E    Enter A Private Message                         @X0F"
  36.     STRING004 = "@X1F   P    Public Message                                  @X0F"
  37.     STRING005 = "@X1F   Q    Quit                                            @X0F"
  38.     :LABEL001
  39.     DispFile PPEPath() + "WRITE.PCB", 0
  40.     PrintLn "   @X08─@X07─@X0F─────────────────────────────────────────────────────────────────@X07─@X08─@X0F"
  41.     PrintLn "            @X0F   E    Enter A Private Message                         "
  42.     PrintLn "            @X0F   P    Public Message                                  "
  43.     PrintLn "            @X0F   Q    Quit                                            "
  44.     :LABEL002
  45.     AnsiPos 13, 10
  46.     Print STRING003
  47.     AnsiPos 13, 11
  48.     Print "@X0F   P    Public Message                                  @X0F"
  49.     AnsiPos 13, 12
  50.     Print "@X0F   Q    Quit                                            @X0F"
  51.     AnsiPos 13, 10
  52.     :LABEL003
  53.     STRING001 = Inkey()
  54.     If (STRING001 == "8") Goto LABEL006
  55.     If (STRING001 == "UP") Goto LABEL006
  56.     If (STRING001 == "A") Goto LABEL006
  57.     If (STRING001 == "E") Goto LABEL008
  58.     If (STRING001 == "Q") Goto LABEL010
  59.     If (STRING001 == "P") Goto LABEL009
  60.     If (STRING001 == "a") Goto LABEL006
  61.     If (STRING001 == "DOWN") Goto LABEL004
  62.     If (STRING001 == "Z") Goto LABEL004
  63.     If (STRING001 == "z") Goto LABEL004
  64.     If (STRING001 == "2") Goto LABEL004
  65.     If (STRING001 == "") Goto LABEL003
  66.     If (STRING001 == STRING010) Goto LABEL008
  67.     If (STRING001 == STRING009) Goto LABEL010
  68.     Goto LABEL003
  69.     :LABEL004
  70.     AnsiPos 13, 10
  71.     Print "@X0F   E    Enter A Private Message                         "
  72.     AnsiPos 13, 11
  73.     Print STRING004
  74.     AnsiPos 13, 12
  75.     Print "@X0F   Q    Quit                                            @X0F"
  76.     AnsiPos 13, 11
  77.     :LABEL005
  78.     STRING001 = Inkey()
  79.     If (STRING001 == "E") Goto LABEL008
  80.     If (STRING001 == "Q") Goto LABEL010
  81.     If (STRING001 == "P") Goto LABEL009
  82.     If (STRING001 == "DOWN") Goto LABEL006
  83.     If (STRING001 == "Z") Goto LABEL006
  84.     If (STRING001 == "z") Goto LABEL006
  85.     If (STRING001 == "8") Goto LABEL002
  86.     If (STRING001 == "UP") Goto LABEL002
  87.     If (STRING001 == "A") Goto LABEL002
  88.     If (STRING001 == "a") Goto LABEL002
  89.     If (STRING001 == "2") Goto LABEL006
  90.     If (STRING001 == "") Goto LABEL005
  91.     If (STRING001 == STRING010) Goto LABEL009
  92.     If (STRING001 == STRING009) Goto LABEL010
  93.     Goto LABEL005
  94.     :LABEL006
  95.     AnsiPos 13, 11
  96.     Print "@X0F   P    Public Message                                  "
  97.     AnsiPos 13, 12
  98.     Print STRING005
  99.     AnsiPos 13, 10
  100.     Print "@X0F   E    Enter A Private Message                         "
  101.     AnsiPos 13, 12
  102.     :LABEL007
  103.     STRING001 = Inkey()
  104.     If (STRING001 == "E") Goto LABEL008
  105.     If (STRING001 == "Q") Goto LABEL010
  106.     If (STRING001 == "P") Goto LABEL009
  107.     If (STRING001 == "DOWN") Goto LABEL002
  108.     If (STRING001 == "Z") Goto LABEL002
  109.     If (STRING001 == "z") Goto LABEL002
  110.     If (STRING001 == "8") Goto LABEL004
  111.     If (STRING001 == "UP") Goto LABEL004
  112.     If (STRING001 == "A") Goto LABEL004
  113.     If (STRING001 == "a") Goto LABEL004
  114.     If (STRING001 == "2") Goto LABEL002
  115.     If (STRING001 == "") Goto LABEL007
  116.     If (STRING001 == STRING010) Goto LABEL010
  117.     If (STRING001 == STRING009) Goto LABEL010
  118.     Goto LABEL007
  119.     :LABEL008
  120.     Cls
  121.     AnsiPos 1, 1
  122.     Print "@X08∙─@X07─═@X0F═ Private Message to Who? "
  123.     AnsiPos 30, 1
  124.     InputText "", STRING006, 0, 25
  125.     If (STRING006 == "") Then
  126.         Goto LABEL001
  127.     Endif
  128.     AnsiPos 1, 2
  129.     Print "@X08∙─@X07─═@X0F═ Subject :"
  130.     AnsiPos 30, 2
  131.     InputText "", STRING007, 0, 25
  132.     If (STRING007 == "") Then
  133.         Goto LABEL001
  134.     Endif
  135.     KbdStuff "E" + Chr(13) + Upper(STRING006) + Chr(13) + Upper(STRING007) + Chr(13) + "R" + Chr(13) + Chr(13)
  136.     End
  137.     :LABEL009
  138.     Cls
  139.     AnsiPos 1, 1
  140.     Print "@X08∙─@X07─═@X0F═ Subject :"
  141.     AnsiPos 30, 1
  142.     InputText "", STRING008, 0, 25
  143.     If (STRING008 == "") Then
  144.         Goto LABEL001
  145.     Endif
  146.     KbdStuff "E" + Chr(13) + "ALL" + Chr(13) + Upper(STRING008) + Chr(13) + Chr(13)
  147.     End
  148.     Cls
  149.     End
  150.     Cls
  151.     End
  152.     :LABEL010
  153.     Cls
  154.     PrintLn "@X0CP@X04P@X08E By Mass Murderer [ALF]"
  155.     PrintLn " "
  156.  
  157. ;------------------------------------------------------------------------------
  158. ;
  159. ; Usage report (before postprocessing)
  160. ;
  161. ; ■ Statements used :
  162. ;
  163. ;    4       End
  164. ;    5       Cls
  165. ;    51      Goto 
  166. ;    9       Let 
  167. ;    12      Print 
  168. ;    6       PrintLn 
  169. ;    45      If 
  170. ;    1       DispFile 
  171. ;    3       InputText 
  172. ;    2       KbdStuff 
  173. ;    18      AnsiPos 
  174. ;
  175. ;
  176. ; ■ Functions used :
  177. ;
  178. ;    15      +
  179. ;    45      ==
  180. ;    3       !
  181. ;    3       Upper()
  182. ;    11      Chr()
  183. ;    3       Inkey()
  184. ;    1       PPEPath()
  185. ;
  186. ;------------------------------------------------------------------------------
  187. ;
  188. ; Analysis flags : No flag
  189. ;
  190. ;------------------------------------------------------------------------------
  191. ;
  192. ; Postprocessing report
  193. ;
  194. ;    0       For/Next
  195. ;    0       While/EndWhile
  196. ;    3       If/Then or If/Then/Else
  197. ;    0       Select Case
  198. ;
  199. ;------------------------------------------------------------------------------
  200. ;                 AEGiS Corp - Break the routines, code against the machines!
  201. ;------------------------------------------------------------------------------
  202.