home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0200 - 0209 / ibm0200-0209 / ibm0200.tar / ibm0200 / GNSCHAT.ZIP / CHATMENU.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1994-05-30  |  4.1 KB  |  184 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.     String   STRING001
  21.     String   STRING002
  22.     String   STRING003
  23.     String   STRING004
  24.     String   STRING005
  25.     String   STRING006
  26.     String   STRING007
  27.     String   STRING008
  28.  
  29. ;------------------------------------------------------------------------------
  30.  
  31.     SaveScrn
  32.     FOpen 1, PPEPath() + "CHATMENU.CNF", 0, 0
  33.     FGet 1, STRING008
  34.     FGet 1, STRING007
  35.     FClose 1
  36.     Print STRING008
  37.     INTEGER001 = 1
  38.     STRING001 = " SplitScreen Chat "
  39.     STRING002 = " GENESiS LineChat "
  40.     STRING003 = " PCBoard LineChat "
  41.     STRING004 = "    Other Chat    "
  42.     STRING005 = "   Quit Program   "
  43.     SPrintLn ""
  44.     SPrintLn ""
  45.     SPrintLn "C░C░"
  46.     SPrintLn "C▒C▒"
  47.     SPrintLn "C▓C▓"
  48.     SPrintLn "C▀▀▀▀▀▀▀▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▀▀▀▀▀▀▀"
  49.     SPrintLn "C░████▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀████░"
  50.     SPrintLn "C▒████C████▒"
  51.     SPrintLn "C▓████   SplitScreen Chat   ████▓"
  52.     SPrintLn "C█▀▀▀█   GENESiS LineChat   █▀▀▀ "
  53.     SPrintLn "C█▀▀██   PCBoard LineChat   ██▀▀█"
  54.     SPrintLn "C░██░█COther ChatC█░██░"
  55.     SPrintLn "C▒██▒█CQuit ProgramC█▒██▒"
  56.     SPrintLn "C▓██▓█C█▓██▓"
  57.     SPrintLn "C░████▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄████░"
  58.     SPrintLn "C▄▄▄▄▄▄█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█▄▄▄▄▄▄"
  59.     SPrintLn "C▓C▓"
  60.     SPrintLn "C▒C[A]-Up  [Z]-DownC▒"
  61.     SPrintLn "C░C░"
  62.     SPrint "" + "1H" + STRING001
  63.     :LABEL001
  64.     STRING006 = KInkey()
  65.     If (STRING006 == "") Goto LABEL001
  66.     If (((STRING006 == "a") || (STRING006 == "A")) || (STRING006 == "UP")) Then
  67.         If (INTEGER001 == 1) SPrint "" + "1H" + STRING001
  68.         If (INTEGER001 == 2) SPrint "" + "31H" + STRING002
  69.         If (INTEGER001 == 3) SPrint "" + "31H" + STRING003
  70.         If (INTEGER001 == 4) SPrint "" + "31H" + STRING004
  71.         If (INTEGER001 == 5) SPrint "" + "31H" + STRING005
  72.         Dec INTEGER001
  73.         If (INTEGER001 < 1) INTEGER001 = 5
  74.         If (INTEGER001 == 1) SPrint "" + "1H" + STRING001
  75.         If (INTEGER001 == 2) SPrint "" + "31H" + STRING002
  76.         If (INTEGER001 == 3) SPrint "" + "31H" + STRING003
  77.         If (INTEGER001 == 4) SPrint "" + "31H" + STRING004
  78.         If (INTEGER001 == 5) SPrint "" + "31H" + STRING005
  79.         Goto LABEL001
  80.     Endif
  81.     If (((STRING006 == "z") || (STRING006 == "Z")) || (STRING006 == "DOWN")) Then
  82.         If (INTEGER001 == 1) SPrint "" + "1H" + STRING001
  83.         If (INTEGER001 == 2) SPrint "" + "31H" + STRING002
  84.         If (INTEGER001 == 3) SPrint "" + "31H" + STRING003
  85.         If (INTEGER001 == 4) SPrint "" + "31H" + STRING004
  86.         If (INTEGER001 == 5) SPrint "" + "31H" + STRING005
  87.         Inc INTEGER001
  88.         If (INTEGER001 > 5) INTEGER001 = 1
  89.         If (INTEGER001 == 1) SPrint "" + "1H" + STRING001
  90.         If (INTEGER001 == 2) SPrint "" + "31H" + STRING002
  91.         If (INTEGER001 == 3) SPrint "" + "31H" + STRING003
  92.         If (INTEGER001 == 4) SPrint "" + "31H" + STRING004
  93.         If (INTEGER001 == 5) SPrint "" + "31H" + STRING005
  94.         Goto LABEL001
  95.     Endif
  96.     If (STRING006 == Chr(13)) Then
  97.         Print ""
  98.         If (INTEGER001 == 5) Then
  99.             RestScrn
  100.             End
  101.         Endif
  102.         If (INTEGER001 == 1) Then
  103.             RestScrn
  104.             Call PPEPath() + "SPLITSCR.PPE"
  105.             End
  106.         Endif
  107.         If (INTEGER001 == 2) Then
  108.             RestScrn
  109.             Call PPEPath() + "LINECHAT.PPE"
  110.             End
  111.         Endif
  112.         If (INTEGER001 == 3) Then
  113.             RestScrn
  114.             Chat
  115.             End
  116.         Endif
  117.         If (INTEGER001 == 4) Then
  118.             If (Upper(STRING007) == "NONE") Goto LABEL001
  119.             RestScrn
  120.             Call STRING007
  121.             End
  122.         Endif
  123.     Endif
  124.     Goto LABEL001
  125.  
  126. ;------------------------------------------------------------------------------
  127. ;
  128. ; Usage report (before postprocessing)
  129. ;
  130. ; ■ Statements used :
  131. ;
  132. ;    5       End
  133. ;    13      Goto 
  134. ;    9       Let 
  135. ;    2       Print 
  136. ;    32      If 
  137. ;    1       FOpen 
  138. ;    1       FClose 
  139. ;    2       FGet 
  140. ;    1       Inc 
  141. ;    1       Dec 
  142. ;    3       Call 
  143. ;    1       SaveScrn
  144. ;    5       RestScrn
  145. ;    1       Chat
  146. ;    21      SPrint 
  147. ;    19      SPrintLn 
  148. ;
  149. ;
  150. ; ■ Functions used :
  151. ;
  152. ;    45      +
  153. ;    34      ==
  154. ;    1       <
  155. ;    1       >
  156. ;    8       !
  157. ;    4       ||
  158. ;    1       Upper()
  159. ;    1       Chr()
  160. ;    3       PPEPath()
  161. ;    1       KInkey()
  162. ;
  163. ;------------------------------------------------------------------------------
  164. ;
  165. ; Analysis flags : C
  166. ;
  167. ; C - Call child PPE ■ 3
  168. ;     This is usually normal, but may be a tricky way to launch some
  169. ;     sysop-only commands.
  170. ;     ■ Search for : CALL
  171. ;
  172. ;------------------------------------------------------------------------------
  173. ;
  174. ; Postprocessing report
  175. ;
  176. ;    0       For/Next
  177. ;    0       While/EndWhile
  178. ;    8       If/Then or If/Then/Else
  179. ;    0       Select Case
  180. ;
  181. ;------------------------------------------------------------------------------
  182. ;                 AEGiS Corp - Break the routines, code against the machines!
  183. ;------------------------------------------------------------------------------
  184.