home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / BLASTER.ZIP / BLASTER.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1994-07-09  |  2.7 KB  |  150 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.     String   STRING001
  22.     String   STRING002
  23.     String   STRING003
  24.     String   STRING004
  25.  
  26. ;------------------------------------------------------------------------------
  27.  
  28.     STRING003 = ReadLine(PCBDat(), 2)
  29.     Newlines 1
  30.     Log "■ PaGe SYSoP ■", 0
  31.     PrintLn "@X0F■ @X0CD@X04RAiNWARE P@X08PE Programmers: Present, @X0FBLASTCHAT V.1.1 "
  32.     Newlines 1
  33.     PrintLn "@X0C                 B@X04LASTCHAT VE@X08RSiON 1.1           "
  34.     PrintLn "@X0C  Y@X04ou better have a dam@X08n good reason to chat, or you'll be REMOVED from @BOARDNAME@ iMMEDiATELY"
  35.     PrintLn "@X04 @X08                                                                               "
  36.     PrintLn ""
  37.     InputStr "> _", STRING002, 7, 70, Mask_Ascii(), 0
  38.     If (STRING002 == "") Then
  39.         Newline
  40.         PrintLn "@X0CF@X04unction aborted b@X08y @USER@."
  41.         Newline
  42.     Else
  43.         Newlines 2
  44.         SPrintLn "@X07 Press SPACE to chat with this user"
  45.         Print "@X0CN@X04ow Paging T@X08he Sysop... Please wait or press <@X0FCTRL-C@X08> To Abort"
  46.         For INTEGER002 = 1 To 15
  47.             Print "@X07 ."
  48.             If (KInkey() == " ") Then
  49.                 Chat
  50.                 Goto LABEL001
  51.             Endif
  52.             STRING004 = Inkey()
  53.             If (Asc(STRING004) == 3) Then
  54.                 Newlines 2
  55.                 PrintLn "@X0CF@X04unction aborted b@X08y @USER@"
  56.                 Newline
  57.                 Goto LABEL001
  58.             Endif
  59.             Delay 15
  60.         Next
  61.         Newlines 2
  62.         Newline
  63.         PageOn
  64.         PrintLn "@X0CO@X04K, the Sys@X08Op has been Paged, and will attend to you if he is here..."
  65.         Newlines 2
  66.         PrintLn "@X0CJ@X04ust continu@X08e using @BOARDNAME@ Until he/she chats!"
  67.         PrintLn "@X0C                                       T@X04he Man@X08agement!."
  68.         Newlines 1
  69.         InputStr "@X0C─ @X04─@X08─@X07Do you wish to leave mail for the Sysops???@X08- @X04─ @X0C- @X0F(@X07Y/@X08n@X0F) ? _", STRING001, 11, 70, Mask_Ascii(), 0
  70.         If ((STRING001 == "y") || (STRING001 == "Y")) Then
  71.             KbdStuff "C" + Chr(13)
  72.             KbdStuff "Y" + Chr(13)
  73.             KbdStuff "N" + Chr(13)
  74.             KbdStuff "Y" + Chr(13)
  75.         Endif
  76.     Endif
  77.     :LABEL001
  78.     For INTEGER001 = 500 To 3000 Step 15
  79.         Sound INTEGER001
  80.     Next
  81.     Newline
  82.     PrintLn "@X0CB@X04LASTCHAT Ha@X08s Been brought to you by mR.bUNGLE and Conquest Couriers"
  83.     End
  84.  
  85. ;------------------------------------------------------------------------------
  86. ;
  87. ; Usage report (before postprocessing)
  88. ;
  89. ; ■ Statements used :
  90. ;
  91. ;    1       End
  92. ;    11      Goto 
  93. ;    6       Let 
  94. ;    2       Print 
  95. ;    11      PrintLn 
  96. ;    6       If 
  97. ;    1       Log 
  98. ;    2       InputStr 
  99. ;    1       Delay 
  100. ;    5       Newline
  101. ;    7       Newlines 
  102. ;    4       KbdStuff 
  103. ;    1       Sound 
  104. ;    1       Chat
  105. ;    1       SPrintLn 
  106. ;    1       PageOn
  107. ;
  108. ;
  109. ; ■ Functions used :
  110. ;
  111. ;    6       +
  112. ;    5       ==
  113. ;    2       <
  114. ;    2       <=
  115. ;    4       >=
  116. ;    6       !
  117. ;    4       &&
  118. ;    3       ||
  119. ;    4       Chr()
  120. ;    1       Asc()
  121. ;    1       Inkey()
  122. ;    2       Mask_Ascii()
  123. ;    1       PCBDat()
  124. ;    1       ReadLine()
  125. ;    1       KInkey()
  126. ;
  127. ;------------------------------------------------------------------------------
  128. ;
  129. ; Analysis flags : d
  130. ;
  131. ; d - Access PCBOARD.DAT ■ 2
  132. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  133. ;     for many PPE so they can find various informations on the system
  134. ;     (system paths, max number of lines in messages, ...) but it may also
  135. ;     be a way to gather vital informations.
  136. ;     ■ Search for : PCBDAT()
  137. ;
  138. ;------------------------------------------------------------------------------
  139. ;
  140. ; Postprocessing report
  141. ;
  142. ;    2       For/Next
  143. ;    0       While/EndWhile
  144. ;    4       If/Then or If/Then/Else
  145. ;    0       Select Case
  146. ;
  147. ;------------------------------------------------------------------------------
  148. ;                 AEGiS Corp - Break the routines, code against the machines!
  149. ;------------------------------------------------------------------------------
  150.