home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / BYEBYE16.ZIP / BYEBYE.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-03-12  |  5KB  |  306 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.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     String   STRING001
  24.     String   STRING002
  25.     String   STRING003
  26.     String   STRING004
  27.     String   STRING005
  28.     String   STRING006
  29.  
  30. ;------------------------------------------------------------------------------
  31.  
  32.     INTEGER002 = 0
  33.     STRING004 = Chr(76)
  34.     STRING002 = Chr(13)
  35.     STRING003 = Chr(27)
  36.     INTEGER001 = 9
  37.     INTEGER004 = Month(Date())
  38.     If (INTEGER004 > 4) Goto LABEL007
  39.     Cls
  40.     FOpen 1, PPEPath() + "BYEBYE.KEY", 0, 0
  41.     FGet 1, STRING005
  42.     STRING006 = STRING005
  43.     FGet 1, STRING005
  44.     INTEGER003 = STRING005
  45.     FClose 1
  46.     If ((STRING006 == "Richard Stewart") && (INTEGER003 == "123456")) Then
  47.         AnsiPos 4, 4
  48.         PrintLn "@X1EByeBye PPE v1.6 - Copyright 1994                 Made by: Richard Stewart"
  49.         AnsiPos 4, 5
  50.         PrintLn "@X7F░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  51.         AnsiPos 4, 6
  52.         PrintLn "@X7F░░░@X1E┌────────────────────────────────────────────────────────────────┐@X7F░░░░"
  53.         AnsiPos 4, 7
  54.         PrintLn "@X7F░░░@X1E│                Automatic Logoff Has Been Activated             │@X08▓@X7F░░░"
  55.         AnsiPos 4, 8
  56.         PrintLn "@X7F░░░@X1E│  Press(ESC) to abort logoff!  OR  Press(ENTER) to logoff Now!  │@X08▓@X7F░░░"
  57.         AnsiPos 4, 9
  58.         PrintLn "@X7F░░░@X1E├─────────────────────                      ─────────────────────┤@X08▓@X7F░░░"
  59.         AnsiPos 4, 10
  60.         PrintLn "@X7F░░░@X1E│                                                                │@X08▓@X7F░░░"
  61.         AnsiPos 4, 11
  62.         PrintLn "@X7F░░░@X1E│                                                                │@X08▓@X7F░░░"
  63.         AnsiPos 4, 12
  64.         PrintLn "@X7F░░░@X1E│9∙∙∙∙∙∙8∙∙∙∙∙∙7∙∙∙∙∙∙6∙∙∙∙∙∙5∙∙∙∙∙∙4∙∙∙∙∙∙3∙∙∙∙∙∙2∙∙∙∙∙∙1∙∙∙∙∙∙0│@X08▓@X7F░░░"
  65.         AnsiPos 4, 13
  66.         PrintLn "@X7F░░░@X1E│                                                                │@X08▓@X7F░░░"
  67.         AnsiPos 4, 14
  68.         PrintLn "@X7F░░░@X1E└────────────────────────────────────────────────────────────────┘@X08▓@X7F░░░"
  69.         AnsiPos 4, 15
  70.         PrintLn "@X7F░░░░@X08▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓@X7F░░░"
  71.         AnsiPos 4, 16
  72.         PrintLn "@X7F░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  73.         AnsiPos 4, 18
  74.         PrintLn "@X0E               This Program is Registered to ", STRING006
  75.     ElseIf ((STRING006 <> "Richard Stewart") && (INTEGER003 <> "123456")) Then
  76.         Cls
  77.         AnsiPos 4, 4
  78.         PrintLn "@X1EByeBye PPE v1.6 - Copyright 1994                 Made by: Richard Stewart"
  79.         AnsiPos 4, 5
  80.         PrintLn "@X7F░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  81.         AnsiPos 4, 6
  82.         PrintLn "@X7F░░░@X1E┌────────────────────────────────────────────────────────────────┐@X7F░░░░"
  83.         AnsiPos 4, 7
  84.         PrintLn "@X7F░░░@X1E│                Automatic Logoff Has Been Activated             │@X08▓@X7F░░░"
  85.         AnsiPos 4, 8
  86.         PrintLn "@X7F░░░@X1E│  Press(ESC) to abort logoff!  OR  Press(ENTER) to logoff Now!  │@X08▓@X7F░░░"
  87.         AnsiPos 4, 9
  88.         PrintLn "@X7F░░░@X1E├─────────────────────                      ─────────────────────┤@X08▓@X7F░░░"
  89.         AnsiPos 4, 10
  90.         PrintLn "@X7F░░░@X1E│                                                                │@X08▓@X7F░░░"
  91.         AnsiPos 4, 11
  92.         PrintLn "@X7F░░░@X1E│                                                                │@X08▓@X7F░░░"
  93.         AnsiPos 4, 12
  94.         PrintLn "@X7F░░░@X1E│9∙∙∙∙∙∙8∙∙∙∙∙∙7∙∙∙∙∙∙6∙∙∙∙∙∙5∙∙∙∙∙∙4∙∙∙∙∙∙3∙∙∙∙∙∙2∙∙∙∙∙∙1∙∙∙∙∙∙0│@X08▓@X7F░░░"
  95.         AnsiPos 4, 13
  96.         PrintLn "@X7F░░░@X1E│                                                                │@X08▓@X7F░░░"
  97.         AnsiPos 4, 14
  98.         PrintLn "@X7F░░░@X1E└────────────────────────────────────────────────────────────────┘@X08▓@X7F░░░"
  99.         AnsiPos 4, 15
  100.         PrintLn "@X7F░░░░@X08▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓@X7F░░░"
  101.         AnsiPos 4, 16
  102.         PrintLn "@X7F░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  103.         AnsiPos 4, 18
  104.         PrintLn "@X0E  This Program is Unregistered!  Please ask your SysOp to register it!"
  105.     Endif
  106.     :LABEL001
  107.     If (FALSE) Goto LABEL003
  108.     STRING001 = Inkey()
  109.     Select Case (STRING001)
  110.         Case STRING002
  111.             Gosub LABEL005
  112.         Case STRING003
  113.             AnsiPos 12, 10
  114.             PrintLn "@X1EAutomatic Logoff Has Been Cancled....Logging Off"
  115.             Gosub LABEL004
  116.         Case Else
  117.             If (Inkey()) Goto LABEL002
  118.             For INTEGER002 = 0 To 10
  119.                 If (INTEGER001 == 9) Gosub LABEL003
  120.                 StartDisp 1
  121.                 AnsiPos 34, 9
  122.                 PrintLn "@X1ELogoff In: " + String(INTEGER001)
  123.                 AnsiPos 8, 13
  124.                 PrintLn "@X7F█"
  125.                 Dec INTEGER001
  126.                 Delay 18
  127.                 If (INTEGER001 == 8) Gosub LABEL003
  128.                 AnsiPos 34, 9
  129.                 PrintLn "@X1ELogoff In: " + String(INTEGER001)
  130.                 AnsiPos 9, 13
  131.                 PrintLn "@X7F███████"
  132.                 Dec INTEGER001
  133.                 Delay 18
  134.                 If (INTEGER001 == 7) Gosub LABEL003
  135.                 AnsiPos 34, 9
  136.                 PrintLn "@X1ELogoff In: " + String(INTEGER001)
  137.                 AnsiPos 16, 13
  138.                 PrintLn "@X7F███████"
  139.                 Dec INTEGER001
  140.                 Delay 18
  141.                 If (INTEGER001 == 6) Gosub LABEL003
  142.                 AnsiPos 34, 9
  143.                 PrintLn "@X1ELogoff In: " + String(INTEGER001)
  144.                 AnsiPos 23, 13
  145.                 PrintLn "@X7F███████"
  146.                 Dec INTEGER001
  147.                 Delay 18
  148.                 If (INTEGER001 == 5) Gosub LABEL003
  149.                 AnsiPos 34, 9
  150.                 PrintLn "@X1ELogoff In: " + String(INTEGER001)
  151.                 AnsiPos 30, 13
  152.                 PrintLn "@X7F███████"
  153.                 Dec INTEGER001
  154.                 Delay 18
  155.                 If (INTEGER001 == 4) Gosub LABEL003
  156.                 AnsiPos 34, 9
  157.                 PrintLn "@X1ELogoff In: " + String(INTEGER001)
  158.                 AnsiPos 37, 13
  159.                 PrintLn "@X7F███████"
  160.                 Dec INTEGER001
  161.                 Delay 18
  162.                 If (INTEGER001 == 3) Gosub LABEL003
  163.                 AnsiPos 34, 9
  164.                 PrintLn "@X1ELogoff In: " + String(INTEGER001)
  165.                 AnsiPos 44, 13
  166.                 PrintLn "@X7F███████"
  167.                 Dec INTEGER001
  168.                 Delay 18
  169.                 If (INTEGER001 == 2) Gosub LABEL003
  170.                 AnsiPos 34, 9
  171.                 PrintLn "@X1ELogoff In: " + String(INTEGER001)
  172.                 AnsiPos 51, 13
  173.                 PrintLn "@X7F███████"
  174.                 Dec INTEGER001
  175.                 Delay 18
  176.                 If (INTEGER001 == 1) Gosub LABEL003
  177.                 AnsiPos 34, 9
  178.                 PrintLn "@X1ELogoff In: " + String(INTEGER001)
  179.                 AnsiPos 58, 13
  180.                 PrintLn "@X7F███████"
  181.                 Dec INTEGER001
  182.                 Delay 18
  183.                 If (INTEGER001 == 0) Gosub LABEL003
  184.                 AnsiPos 34, 9
  185.                 PrintLn "@X1ELogoff In: " + String(INTEGER001)
  186.                 AnsiPos 65, 13
  187.                 PrintLn "@X7F███████"
  188.                 Delay 18
  189.                 Goto LABEL006
  190.             Next
  191.     End Select
  192.     :LABEL002
  193.     Goto LABEL001
  194.     :LABEL003
  195.     STRING001 = Inkey()
  196.     Select Case (STRING001)
  197.         Case STRING002
  198.             Gosub LABEL005
  199.         Case STRING003
  200.             AnsiPos 12, 10
  201.             PrintLn "@X1EAutomatic Logoff Has Been Cancled....Returning To Board"
  202.             Delay 18
  203.             Gosub LABEL004
  204.         Case Else
  205.             If (Inkey()) Goto LABEL004
  206.             Return
  207.     End Select
  208.     :LABEL004
  209.     Newline
  210.     Newline
  211.     Newline
  212.     Newline
  213.     Newline
  214.     DefColor
  215.     KbdStuff Chr(11)
  216.     StartDisp 0
  217.     Stop
  218.     Cls
  219.     :LABEL005
  220.     AnsiPos 4, 18
  221.     Hangup
  222.     End
  223.     :LABEL006
  224.     AnsiPos 4, 18
  225.     Bye
  226.     End
  227.     :LABEL007
  228.     Cls
  229.     AnsiPos 16, 12
  230.     PrintLn "@X0E   Sorry but your tiral period has expired!"
  231.     AnsiPos 16, 13
  232.     PrintLn "@X0EPlease Call 783-2802 Home of the North Shore BBS"
  233.     AnsiPos 16, 14
  234.     PrintLn "@X0E   to register or at least get a new copy"
  235.     End
  236.  
  237. ;------------------------------------------------------------------------------
  238. ;
  239. ; Usage report (before postprocessing)
  240. ;
  241. ; ■ Statements used :
  242. ;
  243. ;    3       End
  244. ;    4       Cls
  245. ;    19      Goto 
  246. ;    12      Let 
  247. ;    53      PrintLn 
  248. ;    21      If 
  249. ;    1       FOpen 
  250. ;    1       FClose 
  251. ;    2       FGet 
  252. ;    2       StartDisp 
  253. ;    1       Hangup
  254. ;    1       DefColor
  255. ;    14      Gosub 
  256. ;    1       Return
  257. ;    11      Delay 
  258. ;    9       Dec 
  259. ;    5       Newline
  260. ;    1       Stop
  261. ;    1       KbdStuff 
  262. ;    1       Bye
  263. ;    55      AnsiPos 
  264. ;
  265. ;
  266. ; ■ Functions used :
  267. ;
  268. ;    12      +
  269. ;    16      ==
  270. ;    2       <>
  271. ;    1       <
  272. ;    1       <=
  273. ;    1       >
  274. ;    2       >=
  275. ;    10      !
  276. ;    4       &&
  277. ;    1       ||
  278. ;    4       Chr()
  279. ;    1       Date()
  280. ;    1       Month()
  281. ;    4       Inkey()
  282. ;    10      String()
  283. ;    1       PPEPath()
  284. ;
  285. ;------------------------------------------------------------------------------
  286. ;
  287. ; Analysis flags : B
  288. ;
  289. ; B - Brute hangup ■ 1
  290. ;     Program hangup without notification. This may be a good way to
  291. ;     disconnect a user, but if used randomly, may be very nasty
  292. ;     ■ Search for : HANGUP, DTROFF
  293. ;
  294. ;------------------------------------------------------------------------------
  295. ;
  296. ; Postprocessing report
  297. ;
  298. ;    1       For/Next
  299. ;    0       While/EndWhile
  300. ;    2       If/Then or If/Then/Else
  301. ;    2       Select Case
  302. ;
  303. ;------------------------------------------------------------------------------
  304. ;                 AEGiS Corp - Break the routines, code against the machines!
  305. ;------------------------------------------------------------------------------
  306.