home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / QSCANV30.ZIP / QSCAN.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1994-04-01  |  3KB  |  111 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.  
  22. ;------------------------------------------------------------------------------
  23.  
  24.     Cls
  25.     PrintLn "@X0C Written by Joe Flowers (SysOp)  4/1/94              DIGITAL DANKA BBS"
  26.     Tokenize U_Name()
  27.     STRING002 = GetToken()
  28.     STRING002 = Left(STRING002, 1) + Lower(Right(STRING002, Len(STRING002) - 1))
  29.     STRING002 = "@X06 Hello,@X0B " + STRING002 + " @X06here are some QUICK stats!           @X0C813-576-1043/16.8 D/S"
  30.     PrintLn STRING002
  31.     PrintLn " @X06The Current Time is @X07", TimeAp(Time())
  32.     PrintLn " @X06The Current Date is @X07", Date()
  33.     PrintLn " @X03Total Number of Messages written by you@X0D :@X0F ", U_MsgWr()
  34.     PrintLn " @X03Total Number of Messages read  @X0D         :@X0F ", U_MsgRd()
  35.     Newline
  36.     PrintLn " @X0BQUICK SCAN V3.00                                       @X07[@X87UNREGISTERED@X07]"
  37.     PrintLn "@X07┌────────────────────────────────────────────────────────────────────@X07┐"
  38.     PrintLn "@X07│@X77 @X7A* @X74Read @X7ECommands:                  @X7F * @X74Reply @X71Commands:               @X07│"
  39.     PrintLn "@X07│@X7A   @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀                     ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀               @X07│"
  40.     PrintLn "@X07│@X7A * @X7ES @X70  -New messages current conf.  @X7F* @X79R E @X70-Reply to message         @X07│"
  41.     PrintLn "@X07│@X7A * @X7EA @X70  -New messages all conf's.    @X7F* @X79R O @X70-Reply to another user    @X07│"
  42.     PrintLn "@X07│@X7A * @X7EY @X70  -Read only messages to you   @X7F* @X79K   @X70-Kill a message,by number @X07│"
  43.     PrintLn "@X07│@X7A * @X7EY A @X70-Read messages to YOU & ALL  @X7F* @X79E   @X70-Enter a new message      @X07│"
  44.     PrintLn "@X07│@X7A * @X7EL   @X70-All messages last to first  @X7F* @X79Z   @X70-Capture a message to a   @X07│"
  45.     PrintLn "@X07│@X7A * @X7E1+  @X70-All messages first to last         file and download it.    @X07│"
  46.     PrintLn "@X07│@X7A * @X7EF   @X70-Messages from you only      @X7F* @X79TS  @X70-Text Search message base @X07│"
  47.     PrintLn "@X07│@X7A * @X7EJ   @X70-Join a new conference              ex.(@X71A;TS;DSZ@X70) about DSZ  @X07│"
  48.     PrintLn "@X07│@X77 ─@X7B     Note: use @X7FSPACES @X7Bin--between `c@X7Bommands` if shown above.      @X7F@X07│"
  49.     PrintLn "@X07└────────────────────────────────────────────────────────────────────┘"
  50.     InputStr " @X0A(@X0FH@X0A)elp, (1-@HIGHMSGNUM@), Message Read Command", STRING001, 10, 12, Mask_Ascii(), 8
  51.     If (STRING001 == "H") Then
  52.         STRING001 = Chr(13) + "H" + Chr(32) + "R"
  53.         KbdStuff STRING001
  54.     Else
  55.         KbdStuff STRING001 + Chr(13)
  56.     Endif
  57.  
  58. ;------------------------------------------------------------------------------
  59. ;
  60. ; Usage report (before postprocessing)
  61. ;
  62. ; ■ Statements used :
  63. ;
  64. ;    1       Cls
  65. ;    2       Goto 
  66. ;    4       Let 
  67. ;    20      PrintLn 
  68. ;    1       If 
  69. ;    1       InputStr 
  70. ;    1       Newline
  71. ;    1       Tokenize 
  72. ;    2       KbdStuff 
  73. ;
  74. ;
  75. ; ■ Functions used :
  76. ;
  77. ;    7       +
  78. ;    1       -
  79. ;    1       ==
  80. ;    1       !
  81. ;    1       Len(
  82. ;    1       Lower()
  83. ;    1       Left()
  84. ;    1       Right()
  85. ;    3       Chr()
  86. ;    1       Date()
  87. ;    1       Time()
  88. ;    1       U_Name()
  89. ;    1       TimeAp()
  90. ;    1       Mask_Ascii()
  91. ;    1       U_MsgRd()
  92. ;    1       U_MsgWr()
  93. ;    1       GetToken()
  94. ;
  95. ;------------------------------------------------------------------------------
  96. ;
  97. ; Analysis flags : No flag
  98. ;
  99. ;------------------------------------------------------------------------------
  100. ;
  101. ; Postprocessing report
  102. ;
  103. ;    0       For/Next
  104. ;    0       While/EndWhile
  105. ;    1       If/Then or If/Then/Else
  106. ;    0       Select Case
  107. ;
  108. ;------------------------------------------------------------------------------
  109. ;                 AEGiS Corp - Break the routines, code against the machines!
  110. ;------------------------------------------------------------------------------
  111.