home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / PWA-NSP1.ZIP / AMI-NFS.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-02-05  |  3KB  |  218 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.     Integer  INTEGER002
  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.  
  32. ;------------------------------------------------------------------------------
  33.  
  34.     FOpen 1, PPEPath() + "AMI-NFS.CFG", 0, 0
  35.     FGet 1, STRING004
  36.     FGet 1, STRING005
  37.     FGet 1, STRING006
  38.     FGet 1, STRING007
  39.     FClose 1
  40.     If (TokCount() <> 0) Then
  41.         STRING003 = TokenStr()
  42.         Tokenize STRING003
  43.         GetToken STRING001
  44.         GetToken STRING004
  45.         GetToken STRING008
  46.         GetToken STRING009
  47.         GetToken STRING010
  48.     Else
  49.         PrintLn 
  50.         PrintLn "@X01--[ @X03Newscan Pro-PC 1.0 by Mass Murderer [PWA] @X01]-------[ @X03'n ?' for options @X01]--"
  51.         PrintLn 
  52.         If (Exist(PPEPath() + STRING006)) DispFile PPEPath() + STRING006, 0
  53.         InputStr " _", STRING001, 7, 8, Mask_Ascii(), 64
  54.     Endif
  55.     Select Case (Upper(STRING001))
  56.         Case "D"
  57.             INTEGER002 = Date()
  58.             STRING002 = ToDate(INTEGER002)
  59.             PrintLn 
  60.             PrintLn "@X01--[ @X03Newscan Pro-PC 1.0 by Mass Murderer [PWA] @X01]-------[ @X03'n ?' for options @X01]--"
  61.             PrintLn 
  62.             Goto LABEL002
  63.         Case "S"
  64.             INTEGER002 = U_LDir()
  65.             STRING002 = Strip(ToDate(INTEGER002), "-")
  66.         Case "T"
  67.             INTEGER002 = Date()
  68.             STRING002 = Strip(ToDate(INTEGER002), "-")
  69.         Case "W"
  70.             INTEGER002 = Date() - 7
  71.             STRING002 = Strip(ToDate(INTEGER002), "-")
  72.         Case "Y"
  73.             INTEGER002 = Date() - 1
  74.             STRING002 = Strip(ToDate(INTEGER002), "-")
  75.         Case "-"
  76.             INTEGER002 = Date() - Strip(STRING001, "-")
  77.             STRING002 = Strip(ToDate(INTEGER002), "-")
  78.         Case ""
  79.             INTEGER002 = U_LDir()
  80.             STRING002 = Strip(ToDate(INTEGER002), "-")
  81.         Case "Q"
  82.             Newline
  83.             End
  84.         Case "?"
  85.             If (Exist(PPEPath() + "AMI-NFS.HLP")) DispFile PPEPath() + "AMI-NFS.HLP", 0
  86.             End
  87.         Case Else
  88.             STRING002 = Strip(STRING001, "-")
  89.     End Select
  90.     Cls
  91.     PrintLn 
  92.     PrintLn "@X01--[ @X03Newscan Pro-PC 1.0 by Mass Murderer [PWA] @X01]-------[ @X03'n ?' for options @X01]--"
  93.     PrintLn 
  94.     Print ReplaceStr(STRING007, "$SCANDATE", String(ToDate(STRING002)))
  95.     If (IsNonStop()) Then
  96.         KbdStuff "N " + String(STRING002) + " " + STRING004 + " " + STRING008 + " " + STRING009 + " " + STRING010 + " NS" + Chr(13)
  97.     Else
  98.         If (IsNonStop()) Goto LABEL001
  99.         KbdStuff "N " + String(STRING002) + " " + STRING004 + " " + STRING008 + " " + STRING009 + " " + STRING010 + Chr(13)
  100.     Endif
  101.     :LABEL001
  102.     Newline
  103.     End
  104.     :LABEL002
  105.     AnsiPos 1, GetY()
  106.     Print STRING005 + " " + STRING002
  107.     :LABEL003
  108.     STRING001 = ""
  109.     STRING001 = Inkey()
  110.     If (Upper(STRING001) == "-") Then
  111.         Dec INTEGER001
  112.         INTEGER002 = Date() + INTEGER001
  113.         STRING002 = ToDate(INTEGER002)
  114.         Goto LABEL002
  115.     ElseIf ((STRING001 == "+") || (STRING001 == "=")) Then
  116.         Inc INTEGER001
  117.         INTEGER002 = Date() + INTEGER001
  118.         STRING002 = ToDate(INTEGER002)
  119.         Goto LABEL002
  120.     Else
  121.         Select Case (Upper(STRING001))
  122.             Case "Q"
  123.                 PrintLn 
  124.                 End
  125.             Case Chr(13)
  126.                 PrintLn 
  127.                 STRING002 = Strip(ToDate(INTEGER002), "-")
  128.                 Newline
  129.                 Cls
  130.                 PrintLn 
  131.                 PrintLn "@X01--[ @X03Newscan Pro-PC 1.0 by Mass Murderer [PWA] @X01]-------[ @X03'n ?' for options @X01]--"
  132.                 PrintLn 
  133.                 Print ReplaceStr(STRING007, "$SCANDATE", String(ToDate(STRING002)))
  134.                 If (IsNonStop()) Then
  135.                     KbdStuff "N " + String(STRING002) + " " + ReadLine(PPEPath() + "AMI-NFS.CFG", 1) + " NS" + Chr(13)
  136.                 Else
  137.                     If (IsNonStop()) Goto LABEL004
  138.                     KbdStuff "N " + String(STRING002) + " " + ReadLine(PPEPath() + "AMI-NFS.CFG", 1) + Chr(13)
  139.                 Endif
  140.                 :LABEL004
  141.                 Newline
  142.                 End
  143.             Case Else
  144.                 Goto LABEL003
  145.             Endif
  146.     End Select
  147.  
  148. ;------------------------------------------------------------------------------
  149. ;
  150. ; Usage report (before postprocessing)
  151. ;
  152. ; ■ Statements used :
  153. ;
  154. ;    5       End
  155. ;    2       Cls
  156. ;    38      Goto 
  157. ;    23      Let 
  158. ;    3       Print 
  159. ;    14      PrintLn 
  160. ;    20      If 
  161. ;    2       DispFile 
  162. ;    1       FOpen 
  163. ;    1       FClose 
  164. ;    4       FGet 
  165. ;    1       InputStr 
  166. ;    1       Inc 
  167. ;    1       Dec 
  168. ;    4       Newline
  169. ;    1       Tokenize 
  170. ;    5       GetToken 
  171. ;    4       KbdStuff 
  172. ;    1       AnsiPos 
  173. ;
  174. ;
  175. ; ■ Functions used :
  176. ;
  177. ;    41      +
  178. ;    3       -
  179. ;    14      ==
  180. ;    1       <>
  181. ;    18      !
  182. ;    1       ||
  183. ;    10      Upper()
  184. ;    1       Left()
  185. ;    5       Chr()
  186. ;    7       Date()
  187. ;    2       U_LDir()
  188. ;    9       Strip()
  189. ;    1       Inkey()
  190. ;    6       String()
  191. ;    1       Mask_Ascii()
  192. ;    7       PPEPath()
  193. ;    2       ReadLine()
  194. ;    2       Exist()
  195. ;    1       TokenStr()
  196. ;    1       GetY()
  197. ;    1       TokCount()
  198. ;    2       ReplaceStr()
  199. ;    12      ToDate()
  200. ;    4       IsNonStop()
  201. ;
  202. ;------------------------------------------------------------------------------
  203. ;
  204. ; Analysis flags : No flag
  205. ;
  206. ;------------------------------------------------------------------------------
  207. ;
  208. ; Postprocessing report
  209. ;
  210. ;    0       For/Next
  211. ;    0       While/EndWhile
  212. ;    5       If/Then or If/Then/Else
  213. ;    2       Select Case
  214. ;
  215. ;------------------------------------------------------------------------------
  216. ;                 AEGiS Corp - Break the routines, code against the machines!
  217. ;------------------------------------------------------------------------------
  218.