home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / JOIN100.ZIP / JOIN.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1993-01-14  |  3KB  |  203 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.     Boolean  BOOLEAN001
  20.     Integer  INTEGER001
  21.     String   STRING001
  22.     String   STRING002
  23.     String   STRING003
  24.     String   TSTRING004(40,2)
  25.     String   STRING005
  26.     String   STRING006
  27.     String   STRING007
  28.     String   STRING008
  29.     Word     WORD001
  30.     Word     WORD002
  31.     Word     WORD003
  32.     Word     WORD004
  33.     Word     WORD005
  34.     Word     WORD006
  35.     Word     WORD007
  36.     Word     WORD008
  37.  
  38. ;------------------------------------------------------------------------------
  39.  
  40.     Newline
  41.     If (Exist(PPEPath() + "CNFM")) DispFile PPEPath() + "CNFM", 4 + 2 + 1
  42.     InputStr "Display which Network ", STRING001, 14, 2, Mask_Num(), 2 + 4
  43.     If (STRING001 <> "") Goto LABEL001
  44.     Newlines 1
  45.     End
  46.     :LABEL001
  47.     Newline
  48.     BOOLEAN001 = 1
  49.     WORD007 = 1
  50.     STRING007 = "                             "
  51.     If (Exist(PPEPath() + "NET_" + STRING001)) Then
  52.         FOpen 0, PPEPath() + "NET_" + STRING001, 0, 0
  53.         FGet 0, STRING002
  54.         INTEGER001 = 79 - Len(STRING002)
  55.         STRING002 = "@X71" + Left(STRING007, INTEGER001 / 2) + STRING002 + Left(STRING007, INTEGER001 / 2 + INTEGER001 % 2) + "@X0F"
  56.         FGet 0, STRING003
  57.         WORD001 = ToWord(STRING003)
  58.         FGet 0, STRING003
  59.         WORD002 = ToWord(STRING003)
  60.         FGet 0, STRING003
  61.         WORD004 = ToWord(STRING003)
  62.         WORD005 = WORD001 / (WORD002 * 10)
  63.         WORD006 = WORD001 % (WORD002 * 10)
  64.         If (WORD006 == 0) Then
  65.             WORD005 = WORD005
  66.         Else
  67.             WORD005 = WORD005 + 1
  68.         Endif
  69.         If (CurSec() < WORD004) Then
  70.             PrintLn "Sorry, your security is insufficient to access that Network."
  71.             Newlines 1
  72.             BOOLEAN001 = 0
  73.         Endif
  74.         While (BOOLEAN001) Do
  75.             Gosub LABEL002
  76.             InputStr "Conf # to join (Enter=next page, 0 to exit)", STRING006, 14, 5, Mask_Num(), 2 + 4
  77.             If (STRING006 <> "") BOOLEAN001 = 0
  78.             If (WORD007 == WORD005) Then
  79.                 BOOLEAN001 = 0
  80.                 Continue
  81.             Endif
  82.             WORD007 = WORD007 + 1
  83.         EndWhile
  84.         If (STRING006 <> "") Then
  85.             If (STRING006 <> "0") KbdStuff "J " + STRING006 + "^M"
  86.         Endif
  87.     Else
  88.         Newlines 1
  89.         PrintLn "Sorry, that network is not in the above list."
  90.         Newlines 1
  91.     Endif
  92.     End
  93.     :LABEL002
  94.     Gosub LABEL006
  95.     Gosub LABEL003
  96.     Gosub LABEL005
  97.     Gosub LABEL004
  98.     Return
  99.     End
  100.     :LABEL003
  101.     PrintLn "@CLS@"
  102.     PrintLn "@X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X0F"
  103.     PrintLn STRING002
  104.     PrintLn "@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X0F"
  105.     Newlines 1
  106.     Return
  107.     End
  108.     :LABEL004
  109.     PrintLn "@X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X0F"
  110.     PrintLn "@X71                            Available Conferences                  Jnet v.1.0  @X0F"
  111.     PrintLn "@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X0F"
  112.     Return
  113.     End
  114.     :LABEL005
  115.     For WORD008 = 1 To WORD003
  116.         STRING008 = "@POS:" + String(((WORD008 - 1) % WORD002) * (80 / WORD002) + 1) + "@"
  117.         Print STRING008
  118.         Print "@X0B" + TSTRING004(WORD008, 1) + "@X0E∙@X02" + TSTRING004(WORD008, 2) + "@X0F"
  119.         If (WORD008 % WORD002 == 0) PrintLn " "
  120.     Next
  121.     Newlines 1
  122.     Return
  123.     End
  124.     :LABEL006
  125.     If (WORD007 == WORD005) Then
  126.         WORD003 = WORD006
  127.     Else
  128.         WORD003 = WORD002 * 10
  129.     Endif
  130.     For WORD008 = 1 To WORD003
  131.         STRING005 = ReadLine(PPEPath() + "NET_" + STRING001, WORD008 + (WORD007 - 1) * (WORD002 * 10) + 4)
  132.         TSTRING004(WORD008, 1) = Left(STRING005, 5)
  133.         TSTRING004(WORD008, 2) = Right(STRING005, Len(STRING005) - 5)
  134.     Next
  135.     Return
  136.     End
  137.  
  138. ;------------------------------------------------------------------------------
  139. ;
  140. ; Usage report (before postprocessing)
  141. ;
  142. ; ■ Statements used :
  143. ;
  144. ;    7       End
  145. ;    17      Goto 
  146. ;    26      Let 
  147. ;    2       Print 
  148. ;    10      PrintLn 
  149. ;    14      If 
  150. ;    1       DispFile 
  151. ;    1       FOpen 
  152. ;    4       FGet 
  153. ;    2       InputStr 
  154. ;    5       Gosub 
  155. ;    5       Return
  156. ;    2       Newline
  157. ;    6       Newlines 
  158. ;    1       KbdStuff 
  159. ;
  160. ;
  161. ; ■ Functions used :
  162. ;
  163. ;    6       *
  164. ;    4       /
  165. ;    4       %
  166. ;    32      +
  167. ;    4       -
  168. ;    4       ==
  169. ;    4       <>
  170. ;    3       <
  171. ;    2       <=
  172. ;    4       >=
  173. ;    9       !
  174. ;    4       &&
  175. ;    2       ||
  176. ;    2       Len(
  177. ;    3       Left()
  178. ;    1       Right()
  179. ;    1       String()
  180. ;    2       Mask_Num()
  181. ;    5       PPEPath()
  182. ;    1       ReadLine()
  183. ;    1       CurSec()
  184. ;    2       Exist()
  185. ;    3       ToWord()
  186. ;
  187. ;------------------------------------------------------------------------------
  188. ;
  189. ; Analysis flags : No flag
  190. ;
  191. ;------------------------------------------------------------------------------
  192. ;
  193. ; Postprocessing report
  194. ;
  195. ;    2       For/Next
  196. ;    1       While/EndWhile
  197. ;    6       If/Then or If/Then/Else
  198. ;    0       Select Case
  199. ;
  200. ;------------------------------------------------------------------------------
  201. ;                 AEGiS Corp - Break the routines, code against the machines!
  202. ;------------------------------------------------------------------------------
  203.