home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / CYN_BL11.ZIP / BAUDLOCK.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-03-03  |  4KB  |  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 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Integer  INTEGER001
  21.     Integer  INTEGER002
  22.     Integer  INTEGER003
  23.     Integer  INTEGER004
  24.     Integer  INTEGER005
  25.     Integer  INTEGER006
  26.     Integer  INTEGER007
  27.     Integer  INTEGER008
  28.     Integer  INTEGER009
  29.     String   STRING001
  30.     String   TSTRING002(3)
  31.     String   STRING003
  32.     String   STRING004
  33.     String   STRING005
  34.     String   STRING006
  35.     String   STRING007
  36.     String   STRING008
  37.     String   STRING009
  38.     String   STRING010
  39.     String   STRING011
  40.     String   STRING012
  41.     String   STRING013
  42.     String   STRING014
  43.     String   STRING015
  44.     String   STRING016
  45.     String   TSTRING017(10)
  46.  
  47. ;------------------------------------------------------------------------------
  48.  
  49.     STRING008 = 1
  50.     TSTRING002(1) = PPEPath() + "baudlock.cnf"
  51.     TSTRING002(2) = PPEPath() + "feedback"
  52.     TSTRING002(3) = PPEPath() + "badbaud"
  53.     STRING001 = ReadLine(TSTRING002(1), 11)
  54.     STRING007 = ReadLine(TSTRING002(1), 17)
  55.     STRING006 = ReadLine(TSTRING002(1), 18)
  56.     STRING003 = ReadLine(TSTRING002(1), 21)
  57.     INTEGER006 = ReadLine(TSTRING002(1), 28)
  58.     For INTEGER009 = 1 To INTEGER006
  59.         TSTRING017(INTEGER009) = ReadLine(TSTRING002(1), 28 + INTEGER009)
  60.     Next
  61.     If (STRING001 > Carrier()) Then
  62.         Cls
  63.         PrintLn 
  64.         PrintLn "@X08[@X0CiN@X04Va@X0CLi@X04D B@X0Cau@X04D R@X0CaT@X04e @X08- @X0DBa@X05uD @X0DLo@X05CK @X08v@X0F1@X08.@X07o @X05Be@X0DTa @X05aC@X0DTi@X05Ve@X08]"
  65.         PrintLn "@X08[@X03PR@X0BeP@X03aR@X0BiN@X03G T@X0Bo L@X03ea@X0BVe @X03Fe@X0BeD@X03BaCK@X08]"
  66.         PrintLn 
  67.         Newlines 2
  68.         If (STRING007 <> "") Then
  69.             InputStr STRING006, STRING016, 3, 30, STRING015, 8
  70.             If (STRING016 == STRING007) Then
  71.                 PrintLn 
  72.                 PrintLn "@X0DCorrect Slow Baud Password!"
  73.                 PrintLn 
  74.                 Delay 10
  75.                 Stop
  76.             Endif
  77.         Endif
  78.         Wait
  79.         If (Exist(TSTRING002(2))) DispFile TSTRING002(2) , 1 + 4
  80.         InputYN STRING003, STRING004, 3
  81.         Select Case (STRING004)
  82.             Case "Y"
  83.                 Goto LABEL001
  84.             Case "N"
  85.                 Goto LABEL005
  86.         End Select
  87.     Else
  88.         Stop
  89.         Goto LABEL006
  90.     Endif
  91.     :LABEL001
  92.     Cls
  93.     INTEGER001 = ReadLine(TSTRING002(1), 23)
  94.     STRING011 = "R"
  95.     INTEGER002 = 0
  96.     STRING012 = "FALSE"
  97.     STRING013 = "FALSE"
  98.     PrintLn "@X03┌───────────────────────────────┐"
  99.     PrintLn "@X03│@X0BSend mail to which Sysop/SubOp@X0F?@X03│"
  100.     PrintLn "@X03└───────────────────────────────┘"
  101.     INTEGER008 = 1
  102.     For INTEGER007 = 1 To INTEGER006
  103.         Print INTEGER007
  104.         PrintLn ". " + TSTRING017(INTEGER007)
  105.         INTEGER008 = INTEGER008 + 1
  106.     Next
  107.     PrintLn 
  108.     Input "[@SYSTIME@] MATRIX Mail Command? _", STRING008
  109.     If ((STRING008 < 1) || (STRING008 > INTEGER006)) Goto LABEL002
  110.     INTEGER003 = 1
  111.     PrintLn 
  112.     PrintLn 
  113.     Input "Enter Your Name/Alias -> _", STRING009
  114.     PrintLn 
  115.     Input "Enter the Subject     -> _", STRING010
  116.     :LABEL002
  117.     :LABEL002
  118.     PrintLn "───────────────────────────────────────────────────────────────────────────────"
  119.     PrintLn "TO: " + TSTRING017(STRING008) + "        (50 Lines Maximum)       /S to SAVE or /A to ABORT "
  120.     PrintLn "───────────────────────────────────────────────────────────────────────────────"
  121.     Delete ""
  122.     FCreate INTEGER003, "", 1, 0
  123.     :LABEL003
  124.     If (BOOLEAN001) Goto LABEL004
  125.     STRING014 = ""
  126.     INTEGER005 = 79
  127.     STRING005 = " _"
  128.     STRING015 = " 0123456789!@#$%^&*()-=_+`~qwertyuiop[]\|asdfghjkl;'zxcvbnm,./<>?:{}QWERTYUIOPASDFGHJKLZXCVBNM"
  129.     InputStr STRING005, STRING014, 0, INTEGER005, STRING015, 512
  130.     Newline
  131.     If (INTEGER004 > 50) STRING014 = "/S"
  132.     INTEGER004 = INTEGER004 + 1
  133.     If (Upper(STRING014) == "/A") BOOLEAN001 = 1
  134.     If (Upper(STRING014) == "/S") Then
  135.         BOOLEAN001 = 1
  136.         PrintLn "Sending Message to " + TSTRING017(STRING008)
  137.         FClose INTEGER003
  138.         Message INTEGER001, TSTRING017(STRING008), STRING009, STRING010, STRING011, INTEGER002, STRING012, STRING013, ""
  139.     Endif
  140.     FPut INTEGER003, STRING014
  141.     FPut INTEGER003, Chr(13)
  142.     Goto LABEL003
  143.     :LABEL004
  144.     :LABEL005
  145.     If (Exist(TSTRING002(3))) DispFile TSTRING002(3) , 1 + 4
  146.     Wait
  147.     Hangup
  148.     Stop
  149.     :LABEL006
  150.     End
  151.  
  152. ;------------------------------------------------------------------------------
  153. ;
  154. ; Usage report (before postprocessing)
  155. ;
  156. ; ■ Statements used :
  157. ;
  158. ;    1       End
  159. ;    3       Cls
  160. ;    2       Wait
  161. ;    19      Goto 
  162. ;    30      Let 
  163. ;    1       Print 
  164. ;    19      PrintLn 
  165. ;    15      If 
  166. ;    2       DispFile 
  167. ;    3       Input 
  168. ;    1       FCreate 
  169. ;    1       FClose 
  170. ;    2       FPut 
  171. ;    1       Hangup
  172. ;    1       Delete 
  173. ;    2       InputStr 
  174. ;    1       InputYN 
  175. ;    1       Delay 
  176. ;    1       Newline
  177. ;    1       Newlines 
  178. ;    3       Stop
  179. ;    1       Message 
  180. ;
  181. ;
  182. ; ■ Functions used :
  183. ;
  184. ;    14      +
  185. ;    6       ==
  186. ;    1       <>
  187. ;    3       <
  188. ;    2       <=
  189. ;    3       >
  190. ;    4       >=
  191. ;    10      !
  192. ;    4       &&
  193. ;    3       ||
  194. ;    2       Upper()
  195. ;    1       Chr()
  196. ;    3       PPEPath()
  197. ;    7       ReadLine()
  198. ;    2       Exist()
  199. ;    1       Carrier()
  200. ;
  201. ;------------------------------------------------------------------------------
  202. ;
  203. ; Analysis flags : B
  204. ;
  205. ; B - Brute hangup ■ 1
  206. ;     Program hangup without notification. This may be a good way to
  207. ;     disconnect a user, but if used randomly, may be very nasty
  208. ;     ■ Search for : HANGUP, DTROFF
  209. ;
  210. ;------------------------------------------------------------------------------
  211. ;
  212. ; Postprocessing report
  213. ;
  214. ;    2       For/Next
  215. ;    0       While/EndWhile
  216. ;    4       If/Then or If/Then/Else
  217. ;    1       Select Case
  218. ;
  219. ;------------------------------------------------------------------------------
  220. ;                 AEGiS Corp - Break the routines, code against the machines!
  221. ;------------------------------------------------------------------------------
  222.