home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1994 #1
/
monster.zip
/
monster
/
PCBOARD
/
FLLTQP30.ZIP
/
FLOTTO.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1994-01-04
|
9KB
|
430 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
Integer INTEGER006
Integer INTEGER007
Integer INTEGER008
Integer INTEGER009
Integer INTEGER010
Integer INTEGER011
Integer INTEGER012
Integer INTEGER013
Integer INTEGER014
Integer INTEGER015
Integer INTEGER016
Integer INTEGER017
Integer INTEGER018
Integer INTEGER019
Integer INTEGER020
Integer INTEGER021
Integer INTEGER022
Integer INTEGER023
Integer INTEGER024
Integer INTEGER025
Integer INTEGER026
Integer INTEGER027
Integer INTEGER028
Integer INTEGER029
Integer INTEGER030
Integer INTEGER031
Integer INTEGER032
Integer INTEGER033
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
;------------------------------------------------------------------------------
:LABEL001
Cls
PrintLn "@X00"
PrintLn " @X7F ┌───────────────────────────────────────────────────────────────@X70┐ @XFF"
PrintLn " @X7F │ @X70 FLORIDA LOTTERY QUIK PIK SYSTEM 3.0 @X70│ @XFF"
PrintLn " @X7F │ @X70written by Chuck Hogard @X70│ @XFF"
PrintLn " @X7F │ @X70│ @XFF"
PrintLn " @X7F │ @X71Use this program to help you pick your Florida Lottery @X70│ @XFF"
PrintLn " @X7F │ @X71numbers. It will pick five sets of numbers. If more numbers @X70│ @XFF"
PrintLn " @X7F │ @X71are needed just run the program again. @X70│ @XFF"
PrintLn " @X7F └@X70───────────────────────────────────────────────────────────────┘ @XFF"
PrintLn ""
STRING001 = PPEPath() + "FLLOTTO.CFG"
STRING002 = ReadLine(STRING001, 1)
STRING003 = ReadLine(STRING001, 2)
STRING004 = ReadLine(STRING001, 3)
INTEGER001 = Asc(Mid(STRING002, 1, 1)) + Asc(Mid(STRING002, 2, 1)) + Asc(Mid(STRING002, 3, 1)) + Asc(Mid(STRING002, 4, 1)) + Asc(Mid(STRING002, 5, 1)) + Asc(Mid(STRING002, 6, 1)) + Asc(Mid(STRING002, 7, 1)) + Asc(Mid(STRING002, 8, 1)) + Asc(Mid(STRING002, 9, 1)) + Asc(Mid(STRING002, 10, 1))
INTEGER002 = Asc(Mid(STRING003, 1, 1)) + Asc(Mid(STRING003, 2, 1)) + Asc(Mid(STRING003, 3, 1)) + Asc(Mid(STRING003, 4, 1)) + Asc(Mid(STRING003, 5, 1)) + Asc(Mid(STRING003, 6, 1)) + Asc(Mid(STRING003, 7, 1)) + Asc(Mid(STRING003, 8, 1))
INTEGER003 = Asc(Mid(STRING002, 11, 1)) + Asc(Mid(STRING002, 12, 1)) + Asc(Mid(STRING002, 13, 1)) + Asc(Mid(STRING002, 14, 1)) + Asc(Mid(STRING002, 15, 1)) + Asc(Mid(STRING002, 16, 1)) + Asc(Mid(STRING002, 17, 1)) + Asc(Mid(STRING002, 18, 1)) + Asc(Mid(STRING002, 19, 1)) + Asc(Mid(STRING002, 20, 1))
STRING005 = String(INTEGER001) + String(INTEGER002) + String(INTEGER003)
STRING006 = ""
InputStr "@X0BPick(@X0D5@X0B), Pick(@X0D6@X0B), (@X0DW@X0B)inners, (@X0DQ@X0B)uit@X07", STRING006, 10, 1, "56WQ", 270
Select Case (STRING006)
Case "6"
Log "*** Used the Lotto PPE to pick five numbers ***", 0
Goto LABEL003
Case "5"
Log "*** Used the Lotto PPE PICK 5 option ***", 0
Cls
Call PPEPath() + "FPICK5.PPE"
Goto LABEL001
Case "W"
Log "*** Viewed the Lotto PPE Winners Circle ***", 0
Cls
DispFile PPEPath() + "WINNER", 2 + 1 + 4
Wait
Goto LABEL001
Case Else
Cls
If (STRING005 == STRING004) Then
Gosub LABEL002
Endif
PrintLn " @X7F ┌───────────────────@X70┐ @XFF"
PrintLn " @X7F │ @XF4UNREGISTERED COPY @X70│ @XFF"
PrintLn " @X7F └@X70───────────────────┘ @XFF"
PrintLn ""
PrintLn ""
PrintLn " @X7F ┌────────────────────────────────────────────────@X70┐ @XFF"
PrintLn " @X7F │ @X74PLEASE ASK YOUR SYSOP TO REGISTER THIS PROGRAM @X70│ @XFF"
PrintLn " @X7F └@X70────────────────────────────────────────────────┘ @XFF"
Delay 91
Log "*** Exited the Lotto PPE ***", 0
:LABEL002
End
End Select
:LABEL003
INTEGER004 = 1 + Random(48)
:LABEL004
INTEGER005 = 1 + Random(48)
If (INTEGER004 == INTEGER005) Then
Gosub LABEL004
Endif
:LABEL005
INTEGER006 = 1 + Random(48)
If (INTEGER004 == INTEGER006) Then
Gosub LABEL005
ElseIf (INTEGER005 == INTEGER006) Then
Gosub LABEL005
Endif
:LABEL006
INTEGER007 = 1 + Random(48)
If (INTEGER004 == INTEGER007) Then
Gosub LABEL006
ElseIf (INTEGER005 == INTEGER007) Then
Gosub LABEL006
ElseIf (INTEGER006 == INTEGER007) Then
Gosub LABEL006
Endif
:LABEL007
INTEGER008 = 1 + Random(48)
If (INTEGER004 == INTEGER008) Then
Gosub LABEL007
ElseIf (INTEGER005 == INTEGER008) Then
Gosub LABEL007
ElseIf (INTEGER006 == INTEGER008) Then
Gosub LABEL007
ElseIf (INTEGER007 == INTEGER008) Then
Gosub LABEL007
Endif
:LABEL008
INTEGER009 = 1 + Random(48)
If (INTEGER004 == INTEGER009) Then
Gosub LABEL008
ElseIf (INTEGER005 == INTEGER009) Then
Gosub LABEL008
ElseIf (INTEGER006 == INTEGER009) Then
Gosub LABEL008
ElseIf (INTEGER007 == INTEGER009) Then
Gosub LABEL008
ElseIf (INTEGER008 == INTEGER009) Then
Gosub LABEL008
Endif
INTEGER010 = 1 + Random(48)
:LABEL009
INTEGER011 = 1 + Random(48)
If (INTEGER010 == INTEGER011) Then
Gosub LABEL009
Endif
:LABEL010
INTEGER012 = 1 + Random(48)
If (INTEGER010 == INTEGER012) Then
Gosub LABEL010
ElseIf (INTEGER011 == INTEGER012) Then
Gosub LABEL010
Endif
:LABEL011
INTEGER013 = 1 + Random(48)
If (INTEGER010 == INTEGER013) Then
Gosub LABEL011
ElseIf (INTEGER011 == INTEGER013) Then
Gosub LABEL011
ElseIf (INTEGER012 == INTEGER013) Then
Gosub LABEL011
Endif
:LABEL012
INTEGER014 = 1 + Random(48)
If (INTEGER010 == INTEGER014) Then
Gosub LABEL012
ElseIf (INTEGER011 == INTEGER014) Then
Gosub LABEL012
ElseIf (INTEGER012 == INTEGER014) Then
Gosub LABEL012
ElseIf (INTEGER013 == INTEGER014) Then
Gosub LABEL012
Endif
:LABEL013
INTEGER015 = 1 + Random(48)
If (INTEGER010 == INTEGER015) Then
Gosub LABEL013
ElseIf (INTEGER011 == INTEGER015) Then
Gosub LABEL013
ElseIf (INTEGER012 == INTEGER015) Then
Gosub LABEL013
ElseIf (INTEGER013 == INTEGER015) Then
Gosub LABEL013
ElseIf (INTEGER014 == INTEGER015) Then
Gosub LABEL013
Endif
INTEGER016 = 1 + Random(48)
:LABEL014
INTEGER017 = 1 + Random(48)
If (INTEGER016 == INTEGER017) Then
Gosub LABEL014
Endif
:LABEL015
INTEGER018 = 1 + Random(48)
If (INTEGER016 == INTEGER018) Then
Gosub LABEL015
ElseIf (INTEGER017 == INTEGER018) Then
Gosub LABEL015
Endif
:LABEL016
INTEGER019 = 1 + Random(48)
If (INTEGER016 == INTEGER019) Then
Gosub LABEL016
ElseIf (INTEGER017 == INTEGER019) Then
Gosub LABEL016
ElseIf (INTEGER018 == INTEGER019) Then
Gosub LABEL016
Endif
:LABEL017
INTEGER020 = 1 + Random(48)
If (INTEGER016 == INTEGER020) Then
Gosub LABEL017
ElseIf (INTEGER017 == INTEGER020) Then
Gosub LABEL017
ElseIf (INTEGER018 == INTEGER020) Then
Gosub LABEL017
ElseIf (INTEGER019 == INTEGER020) Then
Gosub LABEL017
Endif
:LABEL018
INTEGER021 = 1 + Random(48)
If (INTEGER016 == INTEGER021) Then
Gosub LABEL018
ElseIf (INTEGER017 == INTEGER021) Then
Gosub LABEL018
ElseIf (INTEGER018 == INTEGER021) Then
Gosub LABEL018
ElseIf (INTEGER019 == INTEGER021) Then
Gosub LABEL018
ElseIf (INTEGER020 == INTEGER021) Then
Gosub LABEL018
Endif
INTEGER022 = 1 + Random(48)
:LABEL019
INTEGER023 = 1 + Random(48)
If (INTEGER022 == INTEGER023) Then
Gosub LABEL019
Endif
:LABEL020
INTEGER024 = 1 + Random(48)
If (INTEGER022 == INTEGER024) Then
Gosub LABEL020
ElseIf (INTEGER023 == INTEGER024) Then
Gosub LABEL020
Endif
:LABEL021
INTEGER025 = 1 + Random(48)
If (INTEGER022 == INTEGER025) Then
Gosub LABEL021
ElseIf (INTEGER023 == INTEGER025) Then
Gosub LABEL021
ElseIf (INTEGER024 == INTEGER025) Then
Gosub LABEL021
Endif
:LABEL022
INTEGER026 = 1 + Random(48)
If (INTEGER022 == INTEGER026) Then
Gosub LABEL022
ElseIf (INTEGER023 == INTEGER026) Then
Gosub LABEL022
ElseIf (INTEGER024 == INTEGER026) Then
Gosub LABEL022
ElseIf (INTEGER025 == INTEGER026) Then
Gosub LABEL022
Endif
:LABEL023
INTEGER027 = 1 + Random(48)
If (INTEGER022 == INTEGER027) Then
Gosub LABEL023
ElseIf (INTEGER023 == INTEGER027) Then
Gosub LABEL023
ElseIf (INTEGER024 == INTEGER027) Then
Gosub LABEL023
ElseIf (INTEGER025 == INTEGER027) Then
Gosub LABEL023
ElseIf (INTEGER026 == INTEGER027) Then
Gosub LABEL023
Endif
INTEGER028 = 1 + Random(48)
:LABEL024
INTEGER029 = 1 + Random(48)
If (INTEGER028 == INTEGER029) Then
Gosub LABEL024
Endif
:LABEL025
INTEGER030 = 1 + Random(48)
If (INTEGER028 == INTEGER030) Then
Gosub LABEL025
ElseIf (INTEGER029 == INTEGER030) Then
Gosub LABEL025
Endif
:LABEL026
INTEGER031 = 1 + Random(48)
If (INTEGER028 == INTEGER031) Then
Gosub LABEL026
ElseIf (INTEGER029 == INTEGER031) Then
Gosub LABEL026
ElseIf (INTEGER030 == INTEGER031) Then
Gosub LABEL026
Endif
:LABEL027
INTEGER032 = 1 + Random(48)
If (INTEGER028 == INTEGER032) Then
Gosub LABEL027
ElseIf (INTEGER029 == INTEGER032) Then
Gosub LABEL027
ElseIf (INTEGER030 == INTEGER032) Then
Gosub LABEL027
ElseIf (INTEGER031 == INTEGER032) Then
Gosub LABEL027
Endif
:LABEL028
INTEGER033 = 1 + Random(48)
If (INTEGER028 == INTEGER033) Then
Gosub LABEL028
ElseIf (INTEGER029 == INTEGER033) Then
Gosub LABEL028
ElseIf (INTEGER030 == INTEGER033) Then
Gosub LABEL028
ElseIf (INTEGER031 == INTEGER033) Then
Gosub LABEL028
ElseIf (INTEGER032 == INTEGER033) Then
Gosub LABEL028
Endif
Cls
PrintLn "@POS:15@@X7F ┌─────────────────────────────────────────────@X70┐ @XFF"
If (STRING005 == STRING004) Then
PrintLn "@POS:15@@X7F │@X70@BOARDNAME:45C@@POS:62@@X70│ @XFF"
Else
PrintLn "@POS:15@@X7F │ @XF4 UNREGISTERED VERSION @X70│ @XFF"
Endif
PrintLn "@POS:15@@X7F │ @X71 Florida Lottery Quik Piks @X70│ @XFF"
PrintLn "@POS:15@@X7F │ @X71PICK 6 @X70│ @XFF"
PrintLn "@POS:15@@X7F └@X70─────────────────────────────────────────────┘ @XFF"
PrintLn " "
PrintLn "@POS:20@PLAY A:@POS:32@" + String(INTEGER004) + " @POS:37@" + String(INTEGER005) + " @POS:42@" + String(INTEGER006) + " @POS:47@" + String(INTEGER007) + " @POS:52@" + String(INTEGER008) + " @POS:57@" + String(INTEGER009)
PrintLn " "
PrintLn "@POS:20@PLAY B:@POS:32@" + String(INTEGER010) + " @POS:37@" + String(INTEGER011) + " @POS:42@" + String(INTEGER012) + " @POS:47@" + String(INTEGER013) + " @POS:52@" + String(INTEGER014) + " @POS:57@" + String(INTEGER015)
PrintLn " "
PrintLn "@POS:20@PLAY C:@POS:32@" + String(INTEGER016) + " @POS:37@" + String(INTEGER017) + " @POS:42@" + String(INTEGER018) + " @POS:47@" + String(INTEGER019) + " @POS:52@" + String(INTEGER020) + " @POS:57@" + String(INTEGER021)
PrintLn " "
PrintLn "@POS:20@PLAY D:@POS:32@" + String(INTEGER022) + " @POS:37@" + String(INTEGER023) + " @POS:42@" + String(INTEGER024) + " @POS:47@" + String(INTEGER025) + " @POS:52@" + String(INTEGER026) + " @POS:57@" + String(INTEGER027)
PrintLn " "
PrintLn "@POS:20@PLAY E:@POS:32@" + String(INTEGER028) + " @POS:37@" + String(INTEGER029) + " @POS:42@" + String(INTEGER030) + " @POS:47@" + String(INTEGER031) + " @POS:52@" + String(INTEGER032) + " @POS:57@" + String(INTEGER033)
PrintLn " "
PrintLn " @X10 ┌────────────────────────────────────────────────────────────────────────@X13┐ @XFF"
PrintLn " @X10 │ @X1FIf you win using the numbers obtained from this program, please notify @X13│ @XFF"
PrintLn " @X10 │ @X1Fthe Sysop and he will enter your name in the Winner's Circle. @X13│ @XFF"
PrintLn " @X10 └@X13────────────────────────────────────────────────────────────────────────┘ @XFF"
PrintLn " "
Wait
Gosub LABEL001
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 5 Cls
; 2 Wait
; 137 Goto
; 39 Let
; 40 PrintLn
; 80 If
; 1 DispFile
; 4 Log
; 1 InputStr
; 77 Gosub
; 1 Delay
; 1 Call
;
;
; ■ Functions used :
;
; 117 +
; 80 ==
; 80 !
; 28 Mid()
; 28 Asc()
; 30 Random()
; 33 String()
; 3 PPEPath()
; 3 ReadLine()
;
;------------------------------------------------------------------------------
;
; Analysis flags : C
;
; C - Call child PPE ■ 3
; This is usually normal, but may be a tricky way to launch some
; sysop-only commands.
; ■ Search for : CALL
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 0 While/EndWhile
; 77 If/Then or If/Then/Else
; 1 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------