home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / S / SCUMEM15.ZIP / EMAIL.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-04-13  |  4KB  |  261 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.     String   STRING011
  30.     String   STRING012
  31.     String   STRING013
  32.     String   STRING014
  33.     String   STRING015
  34.  
  35. ;------------------------------------------------------------------------------
  36.  
  37.     FOpen 1, PPEPath() + "EMAIL.CFG", 0, 0
  38.     FGet 1, STRING001
  39.     FGet 1, STRING002
  40.     If (Exist(PPEPath() + STRING002)) Goto LABEL001
  41.     FreshLine
  42.     PrintLn "@X0C" + PPEPath() + STRING002 + " DOES NOT EXIST!@X07"
  43.     :LABEL001
  44.     FGet 1, STRING003
  45.     If (Exist(PPEPath() + STRING003)) Goto LABEL002
  46.     FreshLine
  47.     PrintLn "@X0C" + PPEPath() + STRING003 + " DOES NOT EXIST!@X07"
  48.     :LABEL002
  49.     FGet 1, STRING004
  50.     If (Exist(PPEPath() + STRING004)) Goto LABEL003
  51.     FreshLine
  52.     PrintLn "@X0C" + PPEPath() + STRING004 + " DOES NOT EXIST!@X07"
  53.     :LABEL003
  54.     FGet 1, STRING005
  55.     If (Exist(PPEPath() + STRING005)) Goto LABEL004
  56.     FreshLine
  57.     PrintLn "@X0C" + PPEPath() + STRING005 + " DOES NOT EXIST!@X07"
  58.     :LABEL004
  59.     FGet 1, STRING006
  60.     If (Exist(PPEPath() + STRING006)) Goto LABEL005
  61.     FreshLine
  62.     PrintLn "@X0C" + PPEPath() + STRING006 + " DOES NOT EXIST!@X07"
  63.     :LABEL005
  64.     FGet 1, STRING015
  65.     FClose 1
  66.     :LABEL006
  67.     Cls
  68.     GetUser
  69.     U_FSE = 1
  70.     STRING007 = U_Name()
  71.     STRING010 = U_RecNum(STRING007)
  72.     If (STRING001 == 0) Gosub LABEL007
  73.     If (U_Expert == 1) Gosub LABEL008
  74.     AnsiPos 28, 11
  75.     PrintLn "@X0FR@X07e@X08gistered To: [@X08" + STRING015 + "@X0F]"
  76.     AnsiPos 25, 12
  77.     PrintLn "@X0FE@X07m@X08ail 1.1 By: @X0FH@X08er@X0Fo @X08'94 @X0Fi@X08MAGE@X0F/@X08AcE"
  78.     Delay 18
  79.     :LABEL007
  80.     DispFile PPEPath() + STRING005, 0
  81.     :LABEL008
  82.     PrintLn Chr(13)
  83.     STRING013 = ""
  84.     While ((STRING013 == "")) STRING013 = Inkey()
  85.     If (STRING013 == "p") Gosub LABEL009
  86.     If (STRING013 == "P") Gosub LABEL009
  87.     If (STRING013 == "e") Gosub LABEL013
  88.     If (STRING013 == "E") Gosub LABEL013
  89.     If (STRING013 == "r") Gosub LABEL014
  90.     If (STRING013 == "R") Gosub LABEL014
  91.     If (STRING013 == "q") Gosub LABEL020
  92.     If (STRING013 == "Q") Gosub LABEL020
  93.     If (STRING013 == "g") Gosub LABEL019
  94.     If (STRING013 == "G") Gosub LABEL019
  95.     If (STRING013 == Chr(13)) Gosub LABEL020
  96.     If (STRING013 == "?") Gosub LABEL007
  97.     If (STRING013 == "x") U_Expert = 0
  98.     If (STRING013 == "X") U_Expert = 0
  99.     Gosub LABEL006
  100.     :LABEL009
  101.     Cls
  102.     If (STRING001 == 0) Gosub LABEL010
  103.     If (U_Expert == 1) Gosub LABEL011
  104.     :LABEL010
  105.     STRING008 = ""
  106.     DispFile PPEPath() + STRING006, 0
  107.     :LABEL011
  108.     PrintLn ""
  109.     InputStr "@X0FW@X07h@X08at conference do you want to enter a message t@X07o@X0F?@X80", STRING008, 15, 2, Mask_Ascii(), 256
  110.     If (U_InConf(STRING010, STRING008) == 0) PrintLn "You Aren't Registered In that Conference!"
  111.     If (U_InConf(STRING010, STRING008) == 0) Gosub LABEL010
  112.     If (STRING008 == "") Gosub LABEL020
  113.     If (STRING008 == "?") Gosub LABEL010
  114.     If (STRING008 == "1") Gosub LABEL012
  115.     If (STRING008 == "2") Gosub LABEL012
  116.     If (STRING008 == "3") Gosub LABEL012
  117.     If (STRING008 == "4") Gosub LABEL012
  118.     If (STRING008 == "5") Gosub LABEL012
  119.     If (STRING008 == "6") Gosub LABEL012
  120.     If (STRING008 == "7") Gosub LABEL012
  121.     If (STRING008 == "8") Gosub LABEL012
  122.     If (STRING008 == "9") Gosub LABEL012
  123.     If (STRING008 == "10") Gosub LABEL012
  124.     Goto LABEL012
  125.     Cls
  126.     Gosub LABEL007
  127.     :LABEL012
  128.     STRING011 = ""
  129.     DispFile PPEPath() + STRING004, 0
  130.     AnsiPos 31, 5
  131.     InputStr "@X80", STRING011, 15, 23, Mask_Ascii(), 256
  132.     If (STRING011 == "") Gosub LABEL006
  133.     If (STRING011 == "ME") Gosub LABEL012
  134.     If (STRING011 == "me") Gosub LABEL012
  135.     If (STRING011 == "?") Gosub LABEL012
  136.     U_FSE = 1
  137.     AnsiPos 0, 23
  138.     Join STRING008
  139.     KbdStuff "e" + Chr(13) + Chr(13) + STRING011 + Chr(13) + Chr(13)
  140.     End
  141.     :LABEL013
  142.     STRING009 = ""
  143.     U_FSE = 1
  144.     PrintLn Chr(13)
  145.     DispFile PPEPath() + STRING002, 0
  146.     While (STRING009 == "") Do
  147.         AnsiPos 31, 5
  148.         InputStr "@X80", STRING009, 15, 23, Mask_Ascii(), 256
  149.         If (STRING009 == "") Gosub LABEL006
  150.         AnsiPos 31, 8
  151.         InputStr "@X80", STRING011, 15, 23, Mask_Ascii(), 256
  152.         If (STRING011 == "") Gosub LABEL006
  153.         AnsiPos 31, 11
  154.         InputYN "@X80", STRING012, 15
  155.     EndWhile
  156.     KbdStuff "e" + Chr(13) + STRING009 + Chr(13) + STRING011 + Chr(13) + "r" + Chr(13) + STRING012 + Chr(13)
  157.     End
  158.     :LABEL014
  159.     STRING014 = ""
  160.     If (STRING001 == 0) Gosub LABEL015
  161.     If (U_Expert == 1) Gosub LABEL016
  162.     :LABEL015
  163.     DispFile PPEPath() + STRING003, 0
  164.     :LABEL016
  165.     While ((STRING014 == "")) STRING014 = Inkey()
  166.     If (STRING014 == "y") Gosub LABEL017
  167.     If (STRING014 == "Y") Gosub LABEL017
  168.     If (STRING014 == "a") Gosub LABEL018
  169.     If (STRING014 == "A") Gosub LABEL018
  170.     If (STRING014 == "") Gosub LABEL006
  171.     If (STRING014 == "q") Gosub LABEL006
  172.     If (STRING014 == "Q") Gosub LABEL006
  173.     If (STRING014 == "g") Gosub LABEL019
  174.     If (STRING014 == "G") Gosub LABEL019
  175.     Gosub LABEL007
  176.     :LABEL017
  177.     KbdStuff "r;y;s" + Chr(13)
  178.     Gosub LABEL020
  179.     :LABEL018
  180.     KbdStuff "r;a;s" + Chr(13)
  181.     Gosub LABEL020
  182.     :LABEL019
  183.     PutUser
  184.     FreshLine
  185.     PrintLn "@X08      EMAiL PPE By HERo '94 iMAGE/AcE/WoRLd oF iLLuSiOn"
  186.     Hangup
  187.     :LABEL020
  188.     PutUser
  189.     Cls
  190.     End
  191.  
  192. ;------------------------------------------------------------------------------
  193. ;
  194. ; Usage report (before postprocessing)
  195. ;
  196. ; ■ Statements used :
  197. ;
  198. ;    3       End
  199. ;    4       Cls
  200. ;    10      Goto 
  201. ;    14      Let 
  202. ;    12      PrintLn 
  203. ;    57      If 
  204. ;    5       DispFile 
  205. ;    1       FOpen 
  206. ;    1       FClose 
  207. ;    7       FGet 
  208. ;    1       Hangup
  209. ;    1       GetUser
  210. ;    2       PutUser
  211. ;    4       InputStr 
  212. ;    1       InputYN 
  213. ;    51      Gosub 
  214. ;    1       Delay 
  215. ;    4       KbdStuff 
  216. ;    1       Join 
  217. ;    7       AnsiPos 
  218. ;    6       FreshLine
  219. ;
  220. ;
  221. ; ■ Functions used :
  222. ;
  223. ;    44      +
  224. ;    52      ==
  225. ;    6       !
  226. ;    14      Chr()
  227. ;    1       U_Name()
  228. ;    2       Inkey()
  229. ;    4       Mask_Ascii()
  230. ;    16      PPEPath()
  231. ;    5       Exist()
  232. ;    1       U_RecNum()
  233. ;    2       U_InConf()
  234. ;
  235. ;------------------------------------------------------------------------------
  236. ;
  237. ; Analysis flags : WB
  238. ;
  239. ; W - Write user ■ 5
  240. ;     Program writes a user record. Although this may be normal for a
  241. ;     User Editor, it may also be a way to modify an account level.
  242. ;     ■ Search for : PUTUSER
  243. ;
  244. ; B - Brute hangup ■ 1
  245. ;     Program hangup without notification. This may be a good way to
  246. ;     disconnect a user, but if used randomly, may be very nasty
  247. ;     ■ Search for : HANGUP, DTROFF
  248. ;
  249. ;------------------------------------------------------------------------------
  250. ;
  251. ; Postprocessing report
  252. ;
  253. ;    0       For/Next
  254. ;    1       While/EndWhile
  255. ;    0       If/Then or If/Then/Else
  256. ;    0       Select Case
  257. ;
  258. ;------------------------------------------------------------------------------
  259. ;                 AEGiS Corp - Break the routines, code against the machines!
  260. ;------------------------------------------------------------------------------
  261.