home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / F / FTA-MSG1.ZIP / FTA-MSG.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-09-10  |  6KB  |  222 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 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Integer  INTEGER001
  22.     String   STRING001
  23.     String   STRING002
  24.     String   STRING003
  25.     String   STRING004
  26.     String   STRING005
  27.     String   TSTRING006(999)
  28.     String   STRING007
  29.     String   STRING008
  30.  
  31. ;------------------------------------------------------------------------------
  32.  
  33.     STRING008 = GetToken()
  34.     Newlines 1
  35.     InputStr "Address this messy to @X08[@X0FENTER@X08=@X0FALL@X08]@X07: _", STRING001, 7, 40, Mask_Ascii(), 2 + 4 + 4096 + 256
  36.     If ((STRING001 == "") || (Upper(STRING001) == "ALL")) Then
  37.         STRING001 = "ALL"
  38.         STRING003 = "A"
  39.     Else
  40.         Select Case (STRING001)
  41.             Case "SYSOP"
  42.                 STRING001 = "WHITE TIGER"
  43.             Case "sysop"
  44.                 STRING001 = "WHITE TIGER"
  45.             Case "Sysop"
  46.                 STRING001 = "WHITE TIGER"
  47.                 STRING001 = Upper(STRING001)
  48.                 STRING003 = "P"
  49.             Case -1
  50.                 PrintLn "User Does NOT exist"
  51.                 Goto LABEL001
  52.             Endif
  53.     End Select
  54.     InputStr "Subject of messy @X08[@X0FENTER@X08=@X0FABORT@X08]@X07: _", STRING002, 7, 50, Mask_Ascii(), 2 + 4 + 4096 + 256
  55.     If (STRING002 == "") Goto LABEL001
  56.     If (STRING003 <> "A") Then
  57.         STRING003 = "A"
  58.         InputStr "Make this message @X08[@X0FP@X08]@X07rivate or @X08[@X0FA@X08]@X07ll: _", STRING003, 7, 1, "PpAa", 2 + 4 + 4096 + 256
  59.     Endif
  60.     If (Upper(STRING003) == "P") STRING003 = "R"
  61.     If (Upper(STRING003) == "A") STRING003 = "N"
  62.     InputStr "Use Full Screen Editor @X08[@X0FENTER@X08=@X0FYES@X08]@X07: _", STRING004, 7, 1, "YyNn", 2 + 4 + 4096 + 256
  63.     If (Upper(STRING001) <> "ALL") Then
  64.         InputStr "Request Reciept from User @X08[@X0FENTER@X08=@X0FYES@X08]@X07: _", STRING005, 7, 1, "YyNn", 2 + 4 + 4096 + 256
  65.         If (STRING005 == "") STRING005 = "Y"
  66.     Else
  67.         STRING005 = "N"
  68.     Endif
  69.     If ((STRING005 == "") || (STRING005 == "Y")) Then
  70.         BOOLEAN001 = 1
  71.     Else
  72.         BOOLEAN001 = 0
  73.     Endif
  74.     PrintLn "@CLS@     @X08▄@X01▄▄ @X08▄▄@X07         @X08░@X07        @X08▄    ▄ ▄ ▓@X07        @X08▀░@X07        @X01▄▄ @X08▄@X07"
  75.     PrintLn "@X18▒@X08▒@X18▀▀@X08█▄▄@X18▓@X08▄@X01▄▄@X08▄@X18▓@X08▄ @X01█@X08▀▒▄▀@X78█@X08▄█▀@X01▄@X08▀▀▓▒▓▄█▄   ▓▒▄▓▄█@X01█@X18▒@X08▓▀░▀@X01▄@X08█░   @X01▄@X08█▄█░▄ ▄ ▓▀@X01▐▀■ @X18▓▒@X01▄▄@X08▄█▓▀▓░@X07"
  76.     PrintLn "@X18▓▓@X08▄@X01▀▀@X08▀@X18▓░@X01▀@X19▀@X18▓▒@X19▀▓@X07 @X01▌ @X08░█▓▓▒@X01▀@X19░@X18▒@X01▀ @X08▀ ▀  @X01▀▓@X19░@X07 @X08▀ ▀  ▀ @X01░    ▀▒@X08▓▓█@X19░@X18@X08 @X01▀ @X08▀ ▀░ ▀ @X01▄@X08▄@X09▄▄@X18▀@X01▀ ▀ @X08▀▀■■▄▒@X08"
  77.     PrintLn "▀@X18▓@X01▌ @X08▀ @X01▐▓  ▀▀   ▌@X07       @X01▒@X07     @X08    @X01░@X07                @X07     @X07           @X01▀@X19▓░@X07       @X08■@X08▒▓@X08"
  78.     PrintLn "▐@X18▒▓@X08▄■@X07         @X0FTo      @X08:                      @X0FFrom   @X08:                       @X08▓▒@X08"
  79.     PrintLn "█@X18▓▓@X01▌@X08▄@X07         @X0FPosted  @X08:@X07                      @X0FStatus @X08:                       @X08▓▒@X08"
  80.     PrintLn "░▀@X18▓@X08▄■@X07         @X0FSubject @X08:                                                    @X08▓▒@X08"
  81.     PrintLn "▌@X18▒@X08■@X78@X18▓@X08▄@X18▓@X08▀▄  ▄@X07                                                                @X08▄▀▒@X08▒@X08"
  82.     PrintLn "▀▄▓▒▀▀@X08▀▀@X08▀▀▀ ▀▀ ░ ▀▀▀▓▀ ▀▀▀▀▀▀▀  ▀ ▀▀█▀▀▀▀▀ ■ ▀▄ ■▄▀ ▀▀▀ ▀▀░▀■▀ ▄ ▀ ▀ @X08▀▀▀ ■▀░▀ █"
  83.     PrintLn "@X08   @X07                          @X08[@X0F/S@X08] @X07Save    @X08[@X0F/A@X08]@X07 Abort                       @X08 @X07"
  84.     AnsiPos 25, 5
  85.     Print STRING001
  86.     AnsiPos 25, 6
  87.     Print Date()
  88.     Print ", at "
  89.     STRING007 = Mid(Time(), 1, Len(Time()) - 3)
  90.     Print STRING007
  91.     AnsiPos 25, 7
  92.     Print STRING002
  93.     AnsiPos 55, 5
  94.     Print U_Name()
  95.     AnsiPos 55, 6
  96.     If (BOOLEAN001 == 1) Print "Reciept Requested, "
  97.     AnsiPos 55, 7
  98.     If (STRING003 == "R") Print "Reciever Only"
  99.     If (STRING003 == "N") Print "All Users"
  100.     AnsiPos 0, 11
  101.     INTEGER001 = 1
  102.     BOOLEAN002 = 0
  103.     FCreate 1, PPEPath() + "GMS.$$$", 2, 0
  104.     INTEGER001 = 1
  105.     While (BOOLEAN002 == 0) Do
  106.         InputStr "_", TSTRING006(INTEGER001), 14, 75, Mask_Ascii(), 2 + 4 + 4096 + 512 + 256
  107.         If (Upper(TSTRING006(INTEGER001)) == "/S") Then
  108.             If (INTEGER001 == 1) Break
  109.             FClose 1
  110.             Message CurConf(), STRING001, U_Name(), STRING002, STRING003, 0, 1, 1, PPEPath() + "GMS.$$$"
  111.             Break
  112.         Endif
  113.         If (Upper(TSTRING006(INTEGER001)) == "/A") Break
  114.         FPutLn 1, TSTRING006(INTEGER001)
  115.         INTEGER001 = INTEGER001 + 1
  116.     EndWhile
  117.     Goto LABEL001
  118.     While (INTEGER001 <> 0) Do
  119.         FPut 1, " "
  120.         INTEGER001 = INTEGER001 - 1
  121.     EndWhile
  122.     Return
  123.     :LABEL001
  124.     Delete PPEPath() + "GMS.$$$"
  125.     Cls
  126.     AnsiPos 0, 0
  127.     PrintLn "@X08                       [FTA]  Dark Avenger  [FTA]                               "
  128.     Delay 2
  129.     Cls
  130.     AnsiPos 0, 0
  131.     PrintLn "@X08                       @X07[FTA]  Dark Avenger  [FT@X07A]                               "
  132.     Delay 1
  133.     Cls
  134.     AnsiPos 0, 0
  135.     PrintLn "@X08                       @X0F[FTA]  Dark Avenger  [FTA]                               "
  136.     Delay 1
  137.     Cls
  138.     AnsiPos 0, 0
  139.     PrintLn "@X08                       @X07[FTA]  Dark Avenger  [FTA]                               "
  140.     Delay 2
  141.     Cls
  142.     AnsiPos 0, 0
  143.     PrintLn "@X08                       @X07@X08[FTA]  Dark Avenger  [FTA]                               "
  144.     Delay 2
  145.     Cls
  146.     AnsiPos 0, 0
  147.     PrintLn "@X08                       @X07[FTA]  Dark Avenger  [FTA]                               "
  148.     Delay 2
  149.     Cls
  150.     AnsiPos 0, 0
  151.     PrintLn "@X08                       @X07@X0F[FTA]  Dark Avenger  [FTA]                               "
  152.     Delay 2
  153.     Cls
  154.     AnsiPos 0, 0
  155.     PrintLn "@X08                       [FTA]  Dark Avenger  [FTA]                               "
  156.     Delay 3
  157.     End
  158.  
  159. ;------------------------------------------------------------------------------
  160. ;
  161. ; Usage report (before postprocessing)
  162. ;
  163. ; ■ Statements used :
  164. ;
  165. ;    1       End
  166. ;    8       Cls
  167. ;    25      Goto 
  168. ;    21      Let 
  169. ;    9       Print 
  170. ;    19      PrintLn 
  171. ;    20      If 
  172. ;    1       FCreate 
  173. ;    1       FClose 
  174. ;    1       FPut 
  175. ;    1       FPutLn 
  176. ;    1       Delete 
  177. ;    6       InputStr 
  178. ;    1       Return
  179. ;    8       Delay 
  180. ;    1       Newlines 
  181. ;    15      AnsiPos 
  182. ;    1       Message 
  183. ;
  184. ;
  185. ; ■ Functions used :
  186. ;
  187. ;    1       -
  188. ;    23      +
  189. ;    2       -
  190. ;    19      ==
  191. ;    3       <>
  192. ;    11      !
  193. ;    2       ||
  194. ;    1       Len(
  195. ;    8       Upper()
  196. ;    1       Mid()
  197. ;    1       Date()
  198. ;    2       Time()
  199. ;    2       U_Name()
  200. ;    3       Mask_Ascii()
  201. ;    1       CurConf()
  202. ;    3       PPEPath()
  203. ;    1       GetToken()
  204. ;    1       U_RecNum()
  205. ;
  206. ;------------------------------------------------------------------------------
  207. ;
  208. ; Analysis flags : No flag
  209. ;
  210. ;------------------------------------------------------------------------------
  211. ;
  212. ; Postprocessing report
  213. ;
  214. ;    0       For/Next
  215. ;    2       While/EndWhile
  216. ;    5       If/Then or If/Then/Else
  217. ;    1       Select Case
  218. ;
  219. ;------------------------------------------------------------------------------
  220. ;                 AEGiS Corp - Break the routines, code against the machines!
  221. ;------------------------------------------------------------------------------
  222.