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