home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / SCUM_FPS.ZIP / DLBEGIN.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-02-24  |  3KB  |  219 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.     Date     DATE001
  21.     Integer  INTEGER001
  22.     Integer  INTEGER002
  23.     Integer  INTEGER003
  24.     Integer  INTEGER004
  25.     Integer  INTEGER005
  26.     Integer  INTEGER006
  27.     Integer  INTEGER007
  28.     Integer  INTEGER008
  29.     Integer  INTEGER009
  30.     String   STRING002
  31.     String   STRING003
  32.     String   STRING004
  33.     String   STRING005
  34.     String   STRING006
  35.     String   STRING007
  36.     String   STRING008
  37.     String   STRING009
  38.     String   STRING010
  39.     String   STRING011
  40.     String   STRING012
  41.     String   STRING013
  42.     String   STRING014
  43.     String   STRING015
  44.     String   STRING016
  45.     String   STRING017
  46.     String   STRING018
  47.     String   STRING019
  48.     String   STRING020
  49.     String   STRING021
  50.     String   STRING022
  51.     String   STRING023
  52.  
  53. ;------------------------------------------------------------------------------
  54.  
  55.     STRING008 = GetEnv("PCBDRIVE") + GetEnv("PCBDIR") + "\FLIST." + String(PcbNode())
  56.     STRING020 = PPEPath() + "DLBEGIN.PCB"
  57.     STRING005 = 0
  58.     INTEGER004 = 0
  59.     INTEGER005 = 0
  60.     INTEGER006 = 0
  61.     STRING003 = 1
  62.     INTEGER002 = 1
  63.     INTEGER008 = 0
  64.     FOpen 2, STRING020, 0, 0
  65.     FGet 2, STRING013
  66.     FGet 2, STRING014
  67.     FGet 2, STRING015
  68.     FGet 2, STRING016
  69.     FGet 2, STRING017
  70.     FGet 2, STRING018
  71.     FGet 2, STRING019
  72.     FClose 2
  73.     INTEGER009 = ReadLine(PPEPath() + "PCBFPS.CFG", 2)
  74.     FClose -1
  75.     DispStr STRING013
  76.     INTEGER007 = 0
  77.     FOpen 1, STRING008, 0, 0
  78.     FDefIn 1
  79.     FSeek 1, 0, 0
  80.     For INTEGER002 = 1 To 100000
  81.         INTEGER001 = INTEGER002
  82.         FDRead STRING002, 66
  83.         If (Ferr(1)) Break
  84.         STRING002 = Trim(STRING002, " ")
  85.         DATE001 = FileInf(STRING002, 2)
  86.         FDRead STRING004, 13
  87.         FDRead STRING002, 4
  88.         STRING002 = Trim(STRING002, " ")
  89.         INTEGER004 = Asc(Left(STRING002, 1))
  90.         If (Len(STRING002) > 1) INTEGER005 = 256 * Asc(Mid(STRING002, 2, 1))
  91.         If (Len(STRING002) == 3) INTEGER006 = 65536 * Asc(Right(STRING002, 1))
  92.         STRING006 = INTEGER004 + INTEGER005 + INTEGER006
  93.         INTEGER003 = STRING006 / INTEGER009
  94.         INTEGER005 = 0
  95.         INTEGER006 = 0
  96.         FDRead STRING002, 3
  97.         STRING002 = Trim(STRING002, " ")
  98.         INTEGER004 = Asc(Left(STRING002, 1))
  99.         If (Len(STRING002) > 1) INTEGER005 = 256 * Asc(Mid(STRING002, 2, 1))
  100.         If (Len(STRING002) == 3) INTEGER006 = 65536 * Asc(Right(STRING002, 1))
  101.         STRING007 = INTEGER004 + INTEGER005 + INTEGER006
  102.         FSeek 1, 9, 1
  103.         FDRead STRING022, 1
  104.         If (Asc(STRING022) == 1) INTEGER003 = 0
  105.         INTEGER007 = INTEGER007 + INTEGER003
  106.         FDRead STRING021, 1
  107.         FDRead STRING002, 1
  108.         FSeek 1, 31, 1
  109.     Next
  110.     FClose 1
  111.     GetUser
  112.     STRING023 = U_Notes(3)
  113.     Tokenize STRING023
  114.     STRING009 = GetToken()
  115.     STRING010 = GetToken()
  116.     STRING011 = GetToken()
  117.     INTEGER001 = STRING010
  118.     If (INTEGER007 > INTEGER001) Then
  119.         Newline
  120.         DispStr STRING014
  121.         Newline
  122.         DispStr STRING015 + " " + String(INTEGER007) + STRING016 + " " + String(INTEGER001)
  123.         Newline
  124.         DispStr STRING017
  125.         Newline
  126.         :LABEL001
  127.         If (BOOLEAN001) Goto LABEL002
  128.         STRING012 = ""
  129.         Newline
  130.         InputStr STRING018, STRING012, 13, 1, Mask_Ascii(), 8 + 256
  131.         If (STRING012 == NoChar()) STRING012 = "E"
  132.         If (STRING012 == "") STRING012 = "E"
  133.         If (STRING012 == "A") BOOLEAN001 = 1
  134.         If (STRING012 == "a") BOOLEAN001 = 1
  135.         If (STRING012 == "E") BOOLEAN001 = 1
  136.         If (STRING012 == "e") BOOLEAN001 = 1
  137.         Goto LABEL001
  138.         :LABEL002
  139.     ElseIf (INTEGER007 <= INTEGER001) Then
  140.         Newline
  141.         InputStr STRING019, STRING012, 15, 1, Mask_Ascii(), 8 + 256
  142.         If (STRING012 == "") STRING012 = Chr(13)
  143.     Endif
  144.     KbdStuff STRING012
  145.     End
  146.  
  147. ;------------------------------------------------------------------------------
  148. ;
  149. ; Usage report (before postprocessing)
  150. ;
  151. ; ■ Statements used :
  152. ;
  153. ;    1       End
  154. ;    8       Goto 
  155. ;    44      Let 
  156. ;    17      If 
  157. ;    2       FOpen 
  158. ;    3       FClose 
  159. ;    7       FGet 
  160. ;    1       GetUser
  161. ;    2       InputStr 
  162. ;    6       Newline
  163. ;    1       Tokenize 
  164. ;    1       KbdStuff 
  165. ;    4       DispStr 
  166. ;    3       FSeek 
  167. ;    1       FDefIn 
  168. ;    7       FDRead 
  169. ;
  170. ;
  171. ; ■ Functions used :
  172. ;
  173. ;    1       -
  174. ;    4       *
  175. ;    1       /
  176. ;    18      +
  177. ;    10      ==
  178. ;    1       <
  179. ;    2       <=
  180. ;    3       >
  181. ;    2       >=
  182. ;    4       !
  183. ;    2       &&
  184. ;    1       ||
  185. ;    4       Len(
  186. ;    2       Mid()
  187. ;    2       Left()
  188. ;    2       Right()
  189. ;    1       Ferr()
  190. ;    1       Chr()
  191. ;    7       Asc()
  192. ;    3       Trim()
  193. ;    1       NoChar()
  194. ;    3       String()
  195. ;    2       Mask_Ascii()
  196. ;    2       PPEPath()
  197. ;    1       PcbNode()
  198. ;    1       ReadLine()
  199. ;    3       GetToken()
  200. ;    2       GetEnv()
  201. ;    1       FileInf()
  202. ;
  203. ;------------------------------------------------------------------------------
  204. ;
  205. ; Analysis flags : No flag
  206. ;
  207. ;------------------------------------------------------------------------------
  208. ;
  209. ; Postprocessing report
  210. ;
  211. ;    1       For/Next
  212. ;    0       While/EndWhile
  213. ;    2       If/Then or If/Then/Else
  214. ;    0       Select Case
  215. ;
  216. ;------------------------------------------------------------------------------
  217. ;                 AEGiS Corp - Break the routines, code against the machines!
  218. ;------------------------------------------------------------------------------
  219.