home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PAGEPPE.ZIP / PAGE.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1993-08-31  |  1.8 KB  |  120 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 1.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING001
  20.  
  21. ;------------------------------------------------------------------------------
  22.  
  23.     DispFile PPEPath() + "WARN", 2 + 1 + 4
  24.     PrintLn 
  25.     InputText "Are you sure you want to Page the Sysop", STRING001, 14, 1
  26.     If (Upper(STRING001) == "Y") Then
  27.         Newline
  28.         PrintLn "@X0EConnecting to Sysop Paging siren."
  29.         Newline
  30.         Delay 36
  31.         PrintLn "@X09Sounding Paging Siren."
  32.         Delay 36
  33.         PrintLn "@X0EWaiting for response from sysop......"
  34.         Delay 36
  35.         PrintLn "@X09Sysop has turned off the Paging Siren"
  36.         Delay 36
  37.         PrintLn 
  38.         Print "@X0EThis is the Sysop.... Wha"
  39.         Delay 6
  40.         Print "t's t"
  41.         Delay 9
  42.         Print "he b"
  43.         Delay 7
  44.         Print "ig i"
  45.         Delay 9
  46.         Print "dea?  I"
  47.         Delay 9
  48.         Print " was t"
  49.         Delay 4
  50.         Print "rying"
  51.         Delay 10
  52.         Print " to rel"
  53.         Delay 6
  54.         Print "ax!"
  55.         PrintLn 
  56.         Delay 9
  57.         PrintLn "@X09Sysop chat ended..."
  58.         Delay 20
  59.         PrintLn "Logoff Sequence Initiated!"
  60.         Delay 30
  61.         Newline
  62.         Newline
  63.         Print "NO CARRIER"
  64.         Newline
  65.         Delay 48
  66.         Newline
  67.         Print "@X0EJust kidding..... Leave me  comment please."
  68.         Newline
  69.     Else
  70.         Newline
  71.         Delay 18
  72.         Newline
  73.         Print "@X0EGood choice.... he's probably drinking his coffee!"
  74.         Newline
  75.         Delay 18
  76.     Endif
  77.     End
  78.  
  79. ;------------------------------------------------------------------------------
  80. ;
  81. ; Usage report (before postprocessing)
  82. ;
  83. ; ■ Statements used :
  84. ;
  85. ;    1       End
  86. ;    2       Goto 
  87. ;    12      Print 
  88. ;    9       PrintLn 
  89. ;    1       If 
  90. ;    1       DispFile 
  91. ;    18      Delay 
  92. ;    10      Newline
  93. ;    1       InputText 
  94. ;
  95. ;
  96. ; ■ Functions used :
  97. ;
  98. ;    3       +
  99. ;    1       ==
  100. ;    1       !
  101. ;    1       Upper()
  102. ;    1       PPEPath()
  103. ;
  104. ;------------------------------------------------------------------------------
  105. ;
  106. ; Analysis flags : No flag
  107. ;
  108. ;------------------------------------------------------------------------------
  109. ;
  110. ; Postprocessing report
  111. ;
  112. ;    0       For/Next
  113. ;    0       While/EndWhile
  114. ;    1       If/Then or If/Then/Else
  115. ;    0       Select Case
  116. ;
  117. ;------------------------------------------------------------------------------
  118. ;                 AEGiS Corp - Break the routines, code against the machines!
  119. ;------------------------------------------------------------------------------
  120.