home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / T / THTNWS15.ZIP / THTNEWS.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1994-04-17  |  4KB  |  254 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.     String   STRING011
  32.     String   STRING012
  33.     String   STRING013
  34.     String   STRING014
  35.     String   STRING015
  36.     String   STRING016
  37.     String   STRING017
  38.     String   STRING018
  39.     String   STRING019
  40.     String   STRING020
  41.     String   STRING021
  42.     String   STRING022
  43.     String   STRING023
  44.     String   STRING024
  45.     String   STRING025
  46.     String   STRING026
  47.     String   STRING027
  48.     String   STRING028
  49.     String   STRING029
  50.     String   STRING030
  51.  
  52. ;------------------------------------------------------------------------------
  53.  
  54.     STRING029 = Date()
  55.     STRING030 = Time()
  56.     STRING030 = TimeAp(STRING030)
  57.     If (Exist(PPEPath() + PPEName() + ".tmp")) Delete PPEPath() + PPEName() + ".tmp"
  58.     FOpen 1, PPEPath() + PPEName() + ".cnf", 0, 0
  59.     FGet 1, STRING002
  60.     FGet 1, STRING004
  61.     FGet 1, STRING007
  62.     FGet 1, STRING006
  63.     FGet 1, STRING003
  64.     FGet 1, STRING005
  65.     FGet 1, STRING025
  66.     FGet 1, STRING026
  67.     FGet 1, STRING011
  68.     FGet 1, STRING009
  69.     FGet 1, STRING010
  70.     FGet 1, STRING024
  71.     FGet 1, STRING028
  72.     FGet 1, STRING013
  73.     FGet 1, STRING016
  74.     FGet 1, STRING017
  75.     FGet 1, STRING018
  76.     FClose 1
  77.     For INTEGER001 = 1 To 75
  78.         STRING008 = STRING007 + STRING008
  79.     Next
  80.     For INTEGER001 = 1 To 17
  81.         STRING014 = STRING013 + STRING014
  82.     Next
  83.     For INTEGER001 = 1 To 39
  84.         STRING015 = STRING013 + STRING015
  85.     Next
  86.     STRING023 = "@X03" + Chr(78) + Chr(69) + Chr(87) + Chr(83) + " @X09v" + Chr(49) + "." + Chr(53) + Chr(48)
  87.     Cls
  88.     Print "@POS:32@" + STRING023 + " "
  89.     FreshLine
  90.     STRING022 = ReadLine(PCBDat(), 31) + ".@@@"
  91.     INTEGER002 = CurConf()
  92.     INTEGER002 = INTEGER002 * 548 + 125
  93.     FOpen 1, STRING022, 0, 0
  94.     FSeek 1, INTEGER002, 0
  95.     FRead 1, STRING019, 31
  96.     If (Exist(STRING019)) Goto LABEL001
  97.     PrintLn "@X0CFile Not Found!!!!"
  98.     STRING001 = "O"
  99.     Wait
  100.     Goto LABEL003
  101.     :LABEL001
  102.     DispFile STRING019, 4
  103.     FreshLine
  104.     InputStr STRING024, STRING001, 14, 1, "QqOoAa", 0 + 8
  105.     If (STRING001 == "") Goto LABEL011
  106.     If (STRING001 == "Q") Goto LABEL011
  107.     If ((STRING001 == "O") || (STRING001 == "A")) Then
  108.         Newline
  109.         Print STRING028
  110.     Else
  111.         Newline
  112.         FClose 1
  113.         :LABEL002
  114.         FClose 1
  115.         FCreate 1, PPEPath() + PPEName() + ".tmp", 1, 0
  116.         FPutLn 1, STRING009 + STRING002 + STRING014 + STRING004 + "                                       " + STRING009 + STRING002 + STRING014 + STRING004
  117.         FPutLn 1, STRING009 + STRING016 + STRING010 + " Date : " + STRING029 + " " + STRING009 + STRING017 + STRING015 + STRING018 + STRING010 + " Time " + String(STRING030) + STRING009 + STRING016
  118.         FPutLn 1, STRING009 + STRING003 + STRING014 + STRING005 + "                                       " + STRING003 + STRING014 + STRING005
  119.         FPutLn 1, STRING009 + STRING002 + STRING008 + STRING004
  120.         Return
  121.     Endif
  122.     :LABEL003
  123.     Gosub LABEL002
  124.     STRING021 = 1
  125.     FPutLn 1, STRING009 + STRING006 + STRING010 + "@POS:4@ Date : " + STRING029 + " @POS:53@" + STRING010 + "     Time " + STRING030 + " " + "@POS:77@" + STRING009 + STRING006
  126.     FPutLn 1, STRING009 + STRING025 + STRING008 + STRING026
  127.     :LABEL004
  128.     If (Abort()) Goto LABEL005
  129.     STRING012 = ""
  130.     FreshLine
  131.     InputStr STRING021 + " >_", STRING012, 9, 74, Mask_Ascii(), 512 + 2 + 4 + 256
  132.     If ((STRING012 == "/a") || (STRING012 == "/A")) Stop
  133.     If ((STRING012 == "/s") || (STRING012 == "/S")) Then
  134.         If (STRING001 == "A") Gosub LABEL006
  135.     Else
  136.         FPutLn 1, STRING009 + STRING006 + STRING011 + " " + STRING012 + "@POS:77@" + STRING009 + STRING006
  137.         Inc STRING021
  138.         Goto LABEL004
  139.         :LABEL005
  140.         Goto LABEL010
  141.         :LABEL006
  142.         INTEGER001 = 1
  143.         FClose 1
  144.         FAppend 2, PPEPath() + PPEName() + ".tmp", 1, 0
  145.         FOpen 1, STRING019, 0, 0
  146.         FGet 1, STRING027
  147.         FGet 1, STRING027
  148.         FGet 1, STRING027
  149.         FGet 1, STRING027
  150.         FPutLn 2, STRING009 + STRING025 + STRING008 + STRING026
  151.         :LABEL007
  152.         If (Ferr(1)) Goto LABEL009
  153.         FGet 1, STRING020
  154.         If (STRING020 == "") Goto LABEL008
  155.         FPutLn 2, STRING020
  156.         Inc INTEGER001
  157.         :LABEL008
  158.         Goto LABEL007
  159.         :LABEL009
  160.         FClose 1
  161.         FClose 2
  162.         Return
  163.     Endif
  164.     :LABEL010
  165.     FPutLn 1, STRING009 + STRING003 + STRING008 + STRING005
  166.     FClose 1
  167.     Copy PPEPath() + PPEName() + ".tmp", STRING019
  168.     :LABEL011
  169.     End
  170.  
  171. ;------------------------------------------------------------------------------
  172. ;
  173. ; Usage report (before postprocessing)
  174. ;
  175. ; ■ Statements used :
  176. ;
  177. ;    1       End
  178. ;    1       Cls
  179. ;    1       Wait
  180. ;    20      Goto 
  181. ;    20      Let 
  182. ;    2       Print 
  183. ;    1       PrintLn 
  184. ;    14      If 
  185. ;    1       DispFile 
  186. ;    1       FCreate 
  187. ;    3       FOpen 
  188. ;    1       FAppend 
  189. ;    7       FClose 
  190. ;    22      FGet 
  191. ;    10      FPutLn 
  192. ;    1       Delete 
  193. ;    2       InputStr 
  194. ;    2       Gosub 
  195. ;    2       Return
  196. ;    2       Inc 
  197. ;    2       Newline
  198. ;    1       Stop
  199. ;    3       FreshLine
  200. ;    1       FSeek 
  201. ;    1       FRead 
  202. ;    1       Copy 
  203. ;
  204. ;
  205. ; ■ Functions used :
  206. ;
  207. ;    1       *
  208. ;    96      +
  209. ;    10      ==
  210. ;    3       <
  211. ;    3       <=
  212. ;    6       >=
  213. ;    8       !
  214. ;    6       &&
  215. ;    6       ||
  216. ;    1       Ferr()
  217. ;    7       Chr()
  218. ;    1       Abort()
  219. ;    1       Date()
  220. ;    1       Time()
  221. ;    1       TimeAp()
  222. ;    1       String()
  223. ;    1       Mask_Ascii()
  224. ;    1       CurConf()
  225. ;    1       PCBDat()
  226. ;    6       PPEPath()
  227. ;    1       ReadLine()
  228. ;    2       Exist()
  229. ;    6       PPEName()
  230. ;
  231. ;------------------------------------------------------------------------------
  232. ;
  233. ; Analysis flags : d
  234. ;
  235. ; d - Access PCBOARD.DAT ■ 2
  236. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  237. ;     for many PPE so they can find various informations on the system
  238. ;     (system paths, max number of lines in messages, ...) but it may also
  239. ;     be a way to gather vital informations.
  240. ;     ■ Search for : PCBDAT()
  241. ;
  242. ;------------------------------------------------------------------------------
  243. ;
  244. ; Postprocessing report
  245. ;
  246. ;    3       For/Next
  247. ;    0       While/EndWhile
  248. ;    2       If/Then or If/Then/Else
  249. ;    0       Select Case
  250. ;
  251. ;------------------------------------------------------------------------------
  252. ;                 AEGiS Corp - Break the routines, code against the machines!
  253. ;------------------------------------------------------------------------------
  254.