home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / POBNLS01.ZIP / POBNLS.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1995-01-06  |  4KB  |  261 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 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Real     REAL001
  20.     Real     REAL002
  21.     String   STRING001
  22.     String   STRING002
  23.     String   STRING003
  24.     String   STRING004
  25.     String   STRING005
  26.     String   STRING006
  27.     String   STRING007
  28.     String   STRING008
  29.     String   STRING009
  30.     String   STRING010
  31.     String   STRING011
  32.     String   STRING012
  33.     String   STRING013
  34.     String   STRING014
  35.     BigStr   BIGSTR001
  36.  
  37. ;------------------------------------------------------------------------------
  38.  
  39.     Goto LABEL001
  40.     End
  41.     If (0 == 0) PROCEDURE001 = "DUMMY"
  42.  
  43.     EndProc
  44.  
  45.     :LABEL001
  46.     STRING010 = PPEPath() + PPEName() + ".CFG"
  47.     STRING011 = ReadLine(STRING010, 1)
  48.     STRING012 = ReadLine(STRING010, 1) + "SYSOP.NDX"
  49.     STRING013 = ReadLine(STRING010, 1) + "BBS.NDX"
  50.     DOpen 1, STRING011 + "NODELIST.DBF", 0
  51.     If (Exist(STRING012)) Goto LABEL002
  52.     Cls
  53.     Newline
  54.     Newline
  55.     PrintLn "@X0FPlease wait .... creating SYSOP.NDX file!"
  56.     PrintLn "                              @X8FWAIT!"
  57.     PrintLn "@X0F"
  58.     DnCreate 1, String(STRING011) + "SYSOP.NDX", "Sysop_name"
  59.     :LABEL002
  60.     If (Exist(STRING013)) Goto LABEL003
  61.     Cls
  62.     Newline
  63.     Newline
  64.     PrintLn "Please wait .... creating BBS.NDX file!"
  65.     PrintLn "                              @X8FWAIT!"
  66.     PrintLn "@X0F"
  67.     DnCreate 1, String(STRING011) + "BBS.NDX", "Bbs_name"
  68.     :LABEL003
  69.     Cls
  70.     DispFile PPEPath() + "INPUT", 1 + 2 + 4
  71.     AnsiPos 66, 13
  72.     InputStr "", REAL001, 10, 2, Mask_Num(), 4
  73.     If (REAL001 == 1) Goto LABEL004
  74.     If (REAL001 == 2) Goto LABEL005
  75.     Goto LABEL011
  76.     :LABEL004
  77.     AnsiPos 39, 17
  78.     InputStr "@X0F", BIGSTR001, 14, 40, Mask_Ascii(), 4
  79.     DnOpen 1, STRING011 + "SYSOP.NDX"
  80.     Goto LABEL006
  81.     :LABEL005
  82.     AnsiPos 39, 19
  83.     InputStr "@X0F", BIGSTR001, 14, 40, Mask_Ascii(), 4
  84.     DnOpen 1, STRING011 + "BBS.NDX"
  85.     :LABEL006
  86.     DTop 1
  87.     STRING008 = 1
  88.     DSeek 1, BIGSTR001
  89.     Cls
  90.     DispFile PPEPath() + PPEName(), 2 + 1 + 4
  91.     AnsiPos 45, 1
  92.     Print "@X08POBNLS [PPE3] v.0.01ß POB(@X0Ac@X08)1995"
  93.     :LABEL007
  94.     Print ReadLine(STRING010, 2)
  95.     AnsiPos 63, 3
  96.     Print DRecCount(1)
  97.     AnsiPos 30, 3
  98.     Print "        "
  99.     AnsiPos 30, 3
  100.     Print DRecNo(1)
  101.     DGet 1, "Zone", STRING001
  102.     DGet 1, "NET", STRING002
  103.     DGet 1, "Node", STRING003
  104.     DGet 1, "Location", STRING006
  105.     DGet 1, "Bbs_phone", STRING009
  106.     DGet 1, "Bbs_name", STRING004
  107.     DGet 1, "Sysop_name", STRING005
  108.     DGet 1, "Maxbaud", STRING014
  109.     AnsiPos 35, 7
  110.     Print STRING001 + ":" + STRING002 + "/" + STRING003
  111.     AnsiPos 35, 9
  112.     Print STRING004
  113.     AnsiPos 35, 11
  114.     Print STRING005
  115.     AnsiPos 35, 13
  116.     Print STRING006
  117.     AnsiPos 35, 15
  118.     Print STRING009
  119.     AnsiPos 65, 15
  120.     Print STRING014
  121.     AnsiPos 1, 22
  122.     While (STRING007 <> Chr(27)) Do
  123.         STRING007 = Inkey()
  124.         Select Case (STRING007)
  125.             Case "HOME"
  126.                 Goto LABEL008
  127.             Case "END"
  128.                 Goto LABEL009
  129.         End Select
  130.         If (STRING007 == "$") Then
  131.             REAL002 = 10000
  132.             Goto LABEL010
  133.             Continue
  134.         Endif
  135.         If (STRING007 == "%") Then
  136.             REAL002 = -10000
  137.             Goto LABEL010
  138.             Continue
  139.         Endif
  140.         If (STRING007 == "*") Then
  141.             REAL002 = 1000
  142.             Goto LABEL010
  143.             Continue
  144.         Endif
  145.         If (STRING007 == "/") Then
  146.             REAL002 = -1000
  147.             Goto LABEL010
  148.             Continue
  149.         Endif
  150.         If (STRING007 == "+") Then
  151.             REAL002 = 100
  152.             Goto LABEL010
  153.             Continue
  154.         Endif
  155.         If (STRING007 == "-") Then
  156.             REAL002 = -100
  157.             Goto LABEL010
  158.             Continue
  159.         Endif
  160.         If (STRING007 == "RIGHT") Then
  161.             REAL002 = 10
  162.             Goto LABEL010
  163.             Continue
  164.         Endif
  165.         If (STRING007 == "LEFT") Then
  166.             REAL002 = -10
  167.             Goto LABEL010
  168.             Continue
  169.         Endif
  170.         If (STRING007 == "DOWN") Then
  171.             REAL002 = 1
  172.             Goto LABEL010
  173.             Continue
  174.         Endif
  175.         If (STRING007 == "UP") Then
  176.             REAL002 = -1
  177.             Goto LABEL010
  178.         Endif
  179.     EndWhile
  180.     Goto LABEL011
  181.     :LABEL008
  182.     STRING008 = 1
  183.     DGo 1, STRING008
  184.     Goto LABEL007
  185.     :LABEL009
  186.     DGo 1, DRecCount(1)
  187.     Goto LABEL007
  188.     :LABEL010
  189.     STRING008 = DRecNo(1) + REAL002
  190.     If (STRING008 < 0) Goto LABEL008
  191.     If (STRING008 > DRecCount(1)) Goto LABEL009
  192.     DGo 1, STRING008
  193.     Goto LABEL007
  194.     :LABEL011
  195.     End
  196.  
  197. ;------------------------------------------------------------------------------
  198. ;
  199. ; Usage report (before postprocessing)
  200. ;
  201. ; ■ Statements used :
  202. ;
  203. ;    2       End
  204. ;    4       Cls
  205. ;    49      Goto 
  206. ;    19      Let 
  207. ;    11      Print 
  208. ;    6       PrintLn 
  209. ;    20      If 
  210. ;    2       DispFile 
  211. ;    3       InputStr 
  212. ;    4       Newline
  213. ;    14      AnsiPos 
  214. ;    1       EndProc
  215. ;    1       DOpen 
  216. ;    2       DnCreate 
  217. ;    2       DnOpen 
  218. ;    1       DTop 
  219. ;    3       DGo 
  220. ;    1       DSeek 
  221. ;    8       DGet 
  222. ;
  223. ;
  224. ; ■ Functions used :
  225. ;
  226. ;    5       -
  227. ;    20      +
  228. ;    15      ==
  229. ;    1       <>
  230. ;    1       <
  231. ;    1       >
  232. ;    13      !
  233. ;    1       Chr()
  234. ;    1       Inkey()
  235. ;    2       String()
  236. ;    1       Mask_Num()
  237. ;    2       Mask_Ascii()
  238. ;    3       PPEPath()
  239. ;    4       ReadLine()
  240. ;    2       Exist()
  241. ;    2       PPEName()
  242. ;    3       DRecCount()
  243. ;    2       DRecNo()
  244. ;
  245. ;------------------------------------------------------------------------------
  246. ;
  247. ; Analysis flags : No flag
  248. ;
  249. ;------------------------------------------------------------------------------
  250. ;
  251. ; Postprocessing report
  252. ;
  253. ;    0       For/Next
  254. ;    1       While/EndWhile
  255. ;    10      If/Then or If/Then/Else
  256. ;    1       Select Case
  257. ;
  258. ;------------------------------------------------------------------------------
  259. ;                 AEGiS Corp - Break the routines, code against the machines!
  260. ;------------------------------------------------------------------------------
  261.