home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / U / UFO-LOTT.ZIP / THT-LOT.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1994-05-16  |  7KB  |  300 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.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     String   STRING001
  25.     String   STRING002
  26.     String   STRING003
  27.     String   STRING004
  28.     String   STRING005
  29.     String   STRING006
  30.     String   STRING007
  31.     String   STRING008
  32.     String   TSTRING009(15)
  33.     String   TSTRING010(15)
  34.     String   STRING011
  35.     String   TSTRING012(15)
  36.     String   STRING013
  37.     String   STRING014
  38.     String   STRING015
  39.     String   STRING016
  40.     String   STRING017
  41.     String   STRING018
  42.     String   STRING019
  43.     String   STRING020
  44.     String   STRING021
  45.     String   STRING022
  46.     String   STRING023
  47.     String   STRING024
  48.     String   STRING025
  49.     String   STRING026
  50.     String   STRING027
  51.     String   STRING028
  52.     String   STRING029
  53.  
  54. ;------------------------------------------------------------------------------
  55.  
  56.     FOpen 1, PPEPath() + PPEName() + ".cnf", 0, 0
  57.     FGet 1, STRING026
  58.     FGet 1, INTEGER004
  59.     FGet 1, STRING019
  60.     FGet 1, STRING020
  61.     FGet 1, STRING021
  62.     FGet 1, STRING022
  63.     FGet 1, STRING023
  64.     FGet 1, STRING024
  65.     FGet 1, STRING025
  66.     FGet 1, STRING028
  67.     FGet 1, STRING027
  68.     FGet 1, STRING029
  69.     FClose 1
  70.     :LABEL001
  71.     STRING008 = "1"
  72.     Cls
  73.     Newline
  74.     STRING014 = Chr(64) + Chr(88) + Chr(48) + Chr(67) + Chr(60) + Chr(60) + Chr(64) + Chr(88) + Chr(48) + "E" + Chr(84) + Chr(72) + Chr(84) + Chr(64) + Chr(88) + Chr(48) + "C" + Chr(62) + Chr(62) + Chr(64) + Chr(88) + Chr(48) + "E Lo" + Chr(84) + Chr(84) + "o   " + Chr(64) + Chr(88) + Chr(48) + "9v" + Chr(50) + "." + Chr(50) + Chr(48) + "  "
  75.     AnsiPos 1, 1
  76.     Print Chr(64) + Chr(88) + Chr(48) + I2S(8, 36) + I2S(12, 36) + I2S(27, 36) + I2S(14, 36) + I2S(10, 36) + I2S(29, 36) + I2S(14, 36) + I2S(13, 36) + " " + Chr(102) + Chr(111) + Chr(114) + " " + I2S(30, 36) + I2S(15, 36) + I2S(24, 36)
  77.     Print "@POS:60@" + Chr(64) + Chr(88) + Chr(48) + I2S(8, 36) + I2S(12, 36) + I2S(24, 26) + I2S(13, 36) + I2S(14, 36) + I2S(13, 36) + Chr(64) + Chr(88) + Chr(48) + I2S(15, 36) + " " + I2S(11, 36) + I2S(34, 36) + Chr(64) + Chr(88) + Chr(48) + I2S(15, 36) + " " + I2S(29, 36) + I2S(17, 36) + I2S(14, 36) + Chr(64) + Chr(88) + Chr(48) + I2S(8, 36) + " " + I2S(22, 36) + I2S(10, 36) + I2S(28, 36) + I2S(29, 36) + I2S(14, 36) + I2S(27, 36) + " "
  78.     AnsiPos 27, 1
  79.     Print STRING014
  80.     AnsiPos 26, 2
  81.     PrintLn "@X0CRegistered to: @X0E" + STRING026
  82.     DispFile PPEPath() + PPEName() + ".hdr", 4 + 2
  83.     FOpen 1, PPEPath() + PPEName() + ".lot", 0, 0
  84.     STRING011 = 9
  85.     :LABEL002
  86.     If (Ferr(1)) Goto LABEL003
  87.     FGet 1, TSTRING009(INTEGER001)
  88.     If (TSTRING009(INTEGER001) == "") Then
  89.         Print ""
  90.     Else
  91.         Tokenize TSTRING009(INTEGER001)
  92.         GetToken TSTRING010(INTEGER001)
  93.         GetToken TSTRING012(INTEGER001)
  94.         AnsiPos 14, STRING011
  95.         PrintLn STRING025 + " For " + STRING024 + TSTRING010(INTEGER001) + STRING025 + "@POS:42@ Number's Press @X0F(@X8C" + Left(TSTRING010(INTEGER001), 1) + "@X0F)"
  96.         Inc STRING011
  97.         Inc STRING018
  98.         Inc INTEGER001
  99.     Endif
  100.     Goto LABEL002
  101.     :LABEL003
  102.     FClose 1
  103.     Inc STRING011
  104.     AnsiPos 15, STRING011
  105.     PrintLn STRING027
  106.     Inc STRING011
  107.     AnsiPos 14, STRING011
  108.     PrintLn STRING028
  109.     INTEGER005 = Len(StripAtx(STRING027))
  110.     AnsiPos 15 + INTEGER005, STRING011 - 1
  111.     STRING016 = 0
  112.     While (STRING016 == 0) Do
  113.         STRING015 = Upper(Inkey())
  114.         For INTEGER002 = 0 To STRING018
  115.             If (STRING015 == Left(TSTRING010(INTEGER002), 1)) Goto LABEL004
  116.         Next
  117.         If (INTEGER002 > STRING018) INTEGER002 = 0
  118.         If (STRING015 == Chr(13)) Goto LABEL015
  119.     EndWhile
  120.     :LABEL004
  121.     If (Left(TSTRING010(INTEGER002), 1) == "P") Then
  122.         Cls
  123.         Gosub LABEL013
  124.         AnsiPos 10, 3
  125.         PrintLn STRING022 + "║            " + STRING023 + "  Power Ball Picks             POWERBALL" + STRING022 + "@X07"
  126.         AnsiPos 61, 4
  127.         PrintLn "@XF4"
  128.         DefColor
  129.         STRING013 = "P"
  130.     Else
  131.         Cls
  132.         Gosub LABEL013
  133.         AnsiPos 10, 3
  134.         PrintLn STRING022 + "║            " + STRING023 + TSTRING010(INTEGER002) + " Lotto Quick Picks              " + STRING022 + "@X07"
  135.         STRING013 = "M"
  136.         Goto LABEL005
  137.     Endif
  138.     :LABEL005
  139.     If (Exist(PPEPath() + PPEName() + "." + String(PcbNode()))) Delete PPEPath() + PPEName() + "." + String(PcbNode())
  140.     INTEGER003 = 6
  141.     StartDisp 1
  142.     If (STRING013 <> "P") Gosub LABEL006
  143.     If (STRING013 == "P") Gosub LABEL006
  144.     AnsiPos 1, INTEGER003
  145.     DispFile PPEPath() + PPEName() + "." + String(PcbNode()), 0
  146.     Newline
  147.     AnsiPos 5, 21
  148.     PrintLn STRING029
  149.     INTEGER005 = Len(StripAtx(STRING029))
  150.     AnsiPos 3 + INTEGER005, 21
  151.     While (STRING016 == 0) Do
  152.         STRING017 = Upper(Inkey())
  153.         If (Exist(PPEPath() + PPEName() + "." + String(PcbNode()))) Delete PPEPath() + PPEName() + "." + String(PcbNode())
  154.         STRING008 = "1"
  155.         If (STRING017 == "Y") Goto LABEL005
  156.         If (STRING017 == Chr(13)) Goto LABEL005
  157.         If (STRING017 == "N") Goto LABEL001
  158.     EndWhile
  159.     :LABEL006
  160.     STRING008 = 1
  161.     FClose 1
  162.     FAppend 1, PPEPath() + PPEName() + "." + String(PcbNode()), 1, 0
  163.     FPutLn 1, "@POS:10@" + STRING021 + "╔═════════════════════════════════════════════════════╗@X07"
  164.     For INTEGER001 = 1 To INTEGER004
  165.         :LABEL007
  166.         STRING001 = Random(TSTRING012(INTEGER002))
  167.         If (STRING001 == 0) Goto LABEL007
  168.         :LABEL008
  169.         STRING002 = Random(TSTRING012(INTEGER002))
  170.         If (STRING002 == 0) Goto LABEL008
  171.         If (STRING001 == STRING002) Goto LABEL008
  172.         :LABEL009
  173.         STRING003 = Random(TSTRING012(INTEGER002))
  174.         If (STRING003 == 0) Goto LABEL009
  175.         If ((STRING001 == STRING003) || (STRING002 == STRING003)) Goto LABEL009
  176.         :LABEL010
  177.         STRING004 = Random(TSTRING012(INTEGER002))
  178.         If (STRING004 == 0) Goto LABEL010
  179.         If (((STRING001 == STRING004) || (STRING002 == STRING004)) || (STRING003 == STRING004)) Goto LABEL010
  180.         :LABEL011
  181.         STRING005 = Random(TSTRING012(INTEGER002))
  182.         If (STRING005 == 0) Goto LABEL011
  183.         If ((((STRING001 == STRING005) || (STRING002 == STRING005)) || (STRING003 == STRING005)) || (STRING004 == STRING005)) Goto LABEL011
  184.         :LABEL012
  185.         STRING006 = Random(TSTRING012(INTEGER002))
  186.         If (STRING006 == 0) Goto LABEL012
  187.         If ((((((STRING013 <> "P") && (STRING001 == STRING006)) || (STRING002 == STRING006)) || (STRING003 == STRING006)) || (STRING004 == STRING006)) || (STRING005 == STRING006)) Goto LABEL012
  188.         Gosub LABEL014
  189.         If (STRING013 == "P") FPutLn 1, STRING021 + "@POS:10@║@X0D  " + STRING007 + "@POS:20@" + STRING020 + STRING001 + "@POS:27@" + STRING002 + "@POS:35@" + STRING003 + "@POS:44@" + STRING004 + "@POS:53@" + STRING005 + "@POS:60@" + "@X09(@X0E" + STRING006 + "@X09)@X0E@POS:64@║@X07"
  190.         If (STRING013 <> "P") FPutLn 1, STRING021 + "@POS:10@║  " + STRING007 + "@POS:20@" + STRING020 + STRING001 + "@POS:28@" + STRING002 + "@POS:36@" + STRING003 + "@POS:44@" + STRING004 + "@POS:52@" + STRING005 + "@POS:60@" + STRING006 + STRING021 + "@POS:64@║@X07"
  191.         If (INTEGER001 <> INTEGER004) FPutLn 1, STRING021 + "@POS:10@╠═════════════════════════════════════════════════════╣@X07"
  192.         Inc STRING008
  193.     Next
  194.     FPutLn 1, "@POS:10@" + STRING021 + "╚═════════════════════════════════════════════════════╝@X07"
  195.     FClose 1
  196.     Return
  197.     :LABEL013
  198.     Newline
  199.     PrintLn "@POS:10@" + STRING022 + "╔═════════════════════════════════════════════════════╗@X07"
  200.     PrintLn "@POS:10@" + STRING022 + "║                                                     ║@X07"
  201.     PrintLn "@POS:10@" + STRING022 + "║                                                     ║@X07"
  202.     PrintLn "@POS:10@" + STRING022 + "╚═════════════════════════════════════════════════════╝@X07"
  203.     AnsiPos 25, 4
  204.     PrintLn STRING022 + "Registered to: " + STRING026
  205.     Return
  206.     :LABEL014
  207.     If (STRING008 == 1) STRING007 = "A."
  208.     If (STRING008 == 2) STRING007 = "B."
  209.     If (STRING008 == 3) STRING007 = "C."
  210.     If (STRING008 == 4) STRING007 = "D."
  211.     If (STRING008 == 5) STRING007 = "E."
  212.     If (STRING008 == 6) STRING007 = "F."
  213.     If (STRING008 == 7) STRING007 = "G."
  214.     If (STRING008 == 8) STRING007 = "H."
  215.     If (STRING008 == 9) STRING007 = "I."
  216.     If (STRING008 == 10) STRING007 = "J."
  217.     If (STRING008 == 11) STRING007 = "K."
  218.     If (STRING008 == 12) STRING007 = "L."
  219.     If (STRING008 == 13) STRING007 = "M."
  220.     If (STRING008 == 14) STRING007 = "N."
  221.     Return
  222.     :LABEL015
  223.     End
  224.  
  225. ;------------------------------------------------------------------------------
  226. ;
  227. ; Usage report (before postprocessing)
  228. ;
  229. ; ■ Statements used :
  230. ;
  231. ;    1       End
  232. ;    3       Cls
  233. ;    31      Goto 
  234. ;    38      Let 
  235. ;    4       Print 
  236. ;    13      PrintLn 
  237. ;    45      If 
  238. ;    2       DispFile 
  239. ;    2       FOpen 
  240. ;    1       FAppend 
  241. ;    4       FClose 
  242. ;    13      FGet 
  243. ;    5       FPutLn 
  244. ;    1       StartDisp 
  245. ;    1       DefColor
  246. ;    2       Delete 
  247. ;    5       Gosub 
  248. ;    3       Return
  249. ;    6       Inc 
  250. ;    3       Newline
  251. ;    1       Tokenize 
  252. ;    2       GetToken 
  253. ;    14      AnsiPos 
  254. ;
  255. ;
  256. ; ■ Functions used :
  257. ;
  258. ;    185     +
  259. ;    1       -
  260. ;    46      ==
  261. ;    4       <>
  262. ;    2       <
  263. ;    2       <=
  264. ;    1       >
  265. ;    4       >=
  266. ;    7       !
  267. ;    5       &&
  268. ;    12      ||
  269. ;    2       Len(
  270. ;    2       Upper()
  271. ;    3       Left()
  272. ;    1       Ferr()
  273. ;    48      Chr()
  274. ;    6       Random()
  275. ;    2       StripAtx()
  276. ;    2       Inkey()
  277. ;    6       String()
  278. ;    9       PPEPath()
  279. ;    6       PcbNode()
  280. ;    2       Exist()
  281. ;    31      I2S()
  282. ;    9       PPEName()
  283. ;
  284. ;------------------------------------------------------------------------------
  285. ;
  286. ; Analysis flags : No flag
  287. ;
  288. ;------------------------------------------------------------------------------
  289. ;
  290. ; Postprocessing report
  291. ;
  292. ;    2       For/Next
  293. ;    2       While/EndWhile
  294. ;    2       If/Then or If/Then/Else
  295. ;    0       Select Case
  296. ;
  297. ;------------------------------------------------------------------------------
  298. ;                 AEGiS Corp - Break the routines, code against the machines!
  299. ;------------------------------------------------------------------------------
  300.