home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / S / SPLCHT10.ZIP / SPLTCHAT.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1993-10-26  |  3KB  |  224 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.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     String   STRING001
  26.     String   STRING002
  27.     String   STRING003
  28.     String   STRING004
  29.     String   STRING005
  30.     String   STRING006
  31.     String   STRING007
  32.  
  33. ;------------------------------------------------------------------------------
  34.  
  35.     If (AnsiOn()) Goto LABEL001
  36.     Cls
  37.     STRING007 = Time()
  38.     PrintLn "@POFF@Hello, @FIRST@, this is the Sysop." + Chr(13)
  39.     While (STRING001 <> Chr(27)) Do
  40.         STRING001 = KInkey()
  41.         STRING004 = MInkey()
  42.         If (STRING004 == Chr(27)) Gosub LABEL004
  43.         If (STRING001 == Chr(27)) Then
  44.             Goto LABEL005
  45.         Endif
  46.         If (STRING001 <> "") Then
  47.             If (STRING001 == Chr(13)) PrintLn ""
  48.             If (STRING001 == Chr(8)) Then
  49.                 Print STRING001 + " "
  50.             Endif
  51.             Print STRING001
  52.             INTEGER003 = INTEGER003 + 1
  53.         Endif
  54.         If (STRING004 <> "") Then
  55.             If (STRING004 == Chr(13)) PrintLn ""
  56.             If (STRING004 == Chr(8)) Then
  57.                 Print STRING004 + " "
  58.             Endif
  59.             Print STRING004
  60.             INTEGER006 = INTEGER006 + 1
  61.         Endif
  62.     EndWhile
  63.     PrintLn "@PON@Chat ended at ", Time()
  64.     Goto LABEL005
  65.     :LABEL001
  66.     STRING002 = 1
  67.     STRING003 = 1
  68.     INTEGER002 = 1
  69.     INTEGER001 = 10
  70.     STRING005 = 1
  71.     STRING006 = 13
  72.     INTEGER005 = 13
  73.     INTEGER004 = 22
  74.     STRING007 = Time()
  75.     Cls
  76.     PrintLn ""
  77.     PrintLn ""
  78.     PrintLn ""
  79.     PrintLn ""
  80.     PrintLn ""
  81.     PrintLn ""
  82.     PrintLn ""
  83.     PrintLn ""
  84.     PrintLn ""
  85.     PrintLn ""
  86.     PrintLn "@POFF@@X0F┌─@X0C^@X0E Sysop @X0C^@X0F────────────────────────────────────────────────────────────────────@X00"
  87.     PrintLn "@X0F└─@X0DPress ESC for your current CHAT-STATS @X0F── @X0BV@X0A @FIRST@@X0B V@X0F ──"
  88.     While (STRING001 <> Chr(27)) Do
  89.         STRING001 = KInkey()
  90.         STRING004 = MInkey()
  91.         If (STRING004 == Chr(27)) Gosub LABEL004
  92.         If (STRING001 == Chr(27)) Goto LABEL005
  93.         If (STRING001 <> "") Then
  94.             If (STRING001 == Chr(13)) Then
  95.                 STRING003 = STRING003 + 1
  96.                 STRING002 = 0
  97.             Endif
  98.             If (STRING001 == Chr(8)) Then
  99.                 AnsiPos STRING002 - 1, STRING003
  100.                 PrintLn " "
  101.                 STRING002 = STRING002 - 1
  102.                 STRING001 = ""
  103.                 If (STRING002 < 1) STRING002 = 1
  104.             Endif
  105.             If (STRING002 > 79) STRING003 = STRING003 + 1
  106.             If (STRING003 > INTEGER001 - 1) Goto LABEL002
  107.             AnsiPos STRING002 - 1, STRING003 + 1
  108.             ClrEol
  109.             :LABEL002
  110.             If (STRING002 > 79) STRING002 = 1
  111.             If (STRING003 > INTEGER001) STRING003 = INTEGER002
  112.             If (STRING001 <> "") Then
  113.                 AnsiPos STRING002, STRING003
  114.                 Color 10
  115.                 PrintLn STRING001
  116.                 AnsiPos STRING002 + 1, STRING003
  117.                 ClrEol
  118.                 STRING002 = STRING002 + 1
  119.                 INTEGER003 = INTEGER003 + 1
  120.             Endif
  121.         Endif
  122.         If (STRING004 <> "") Then
  123.             If (STRING004 == Chr(13)) Then
  124.                 STRING006 = STRING006 + 1
  125.                 STRING005 = 0
  126.             Endif
  127.             If (STRING004 == Chr(8)) Then
  128.                 AnsiPos STRING005 - 1, STRING006
  129.                 PrintLn " "
  130.                 STRING005 = STRING005 - 1
  131.                 STRING004 = ""
  132.                 If (STRING005 < 1) STRING005 = 1
  133.             Endif
  134.             If (STRING005 > 79) STRING006 = STRING006 + 1
  135.             If (STRING006 > INTEGER004 - 1) Goto LABEL003
  136.             AnsiPos STRING005 - 1, STRING006 + 1
  137.             ClrEol
  138.             :LABEL003
  139.             If (STRING005 > 79) STRING005 = 1
  140.             If (STRING006 > INTEGER004) STRING006 = INTEGER005
  141.             If (STRING004 <> "") Then
  142.                 AnsiPos STRING005, STRING006
  143.                 Color 11
  144.                 PrintLn STRING004
  145.                 AnsiPos STRING005 + 1, STRING006
  146.                 ClrEol
  147.                 STRING005 = STRING005 + 1
  148.                 INTEGER006 = INTEGER006 + 1
  149.             Endif
  150.         Endif
  151.     EndWhile
  152.     :LABEL004
  153.     STRING004 = " "
  154.     AnsiPos 1, 14
  155.     PrintLn "You entered chat at             : " + STRING007
  156.     AnsiPos 1, 15
  157.     PrintLn "The current time is             : ", Time()
  158.     AnsiPos 1, 16
  159.     PrintLn "Number of characters YOU typed  : ", INTEGER006
  160.     AnsiPos 1, 17
  161.     PrintLn "Number of characters SYSOP typed: ", INTEGER003
  162.     AnsiPos 1, 19
  163.     STRING006 = 19
  164.     STRING005 = 1
  165.     Return
  166.     :LABEL005
  167.     Cls
  168.     KbdStuff Chr(27)
  169.     KbdStuff Chr(13)
  170.     End
  171.  
  172. ;------------------------------------------------------------------------------
  173. ;
  174. ; Usage report (before postprocessing)
  175. ;
  176. ; ■ Statements used :
  177. ;
  178. ;    1       End
  179. ;    3       Cls
  180. ;    4       ClrEol
  181. ;    2       Color 
  182. ;    23      Goto 
  183. ;    39      Let 
  184. ;    4       Print 
  185. ;    24      PrintLn 
  186. ;    31      If 
  187. ;    2       Gosub 
  188. ;    1       Return
  189. ;    2       KbdStuff 
  190. ;    13      AnsiPos 
  191. ;
  192. ;
  193. ; ■ Functions used :
  194. ;
  195. ;    18      +
  196. ;    8       -
  197. ;    12      ==
  198. ;    8       <>
  199. ;    2       <
  200. ;    8       >
  201. ;    15      !
  202. ;    17      Chr()
  203. ;    4       Time()
  204. ;    1       AnsiOn()
  205. ;    2       KInkey()
  206. ;    2       MInkey()
  207. ;
  208. ;------------------------------------------------------------------------------
  209. ;
  210. ; Analysis flags : No flag
  211. ;
  212. ;------------------------------------------------------------------------------
  213. ;
  214. ; Postprocessing report
  215. ;
  216. ;    0       For/Next
  217. ;    2       While/EndWhile
  218. ;    13      If/Then or If/Then/Else
  219. ;    0       Select Case
  220. ;
  221. ;------------------------------------------------------------------------------
  222. ;                 AEGiS Corp - Break the routines, code against the machines!
  223. ;------------------------------------------------------------------------------
  224.