home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
pcboard
/
ripjacka.zip
/
RIP-JACK.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1993-07-02
|
14KB
|
746 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 1.OO (plain) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer TINTEGER001(53)
Integer TINTEGER002(5)
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 TINTEGER020(6)
Integer TINTEGER021(6)
Integer INTEGER022
String TSTRING001(5)
String TSTRING002(5)
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
String STRING009
;------------------------------------------------------------------------------
Cls
SPrintLn "User is now playing RIP-Jack."
GetUser
STRING004 = PPEPath() + "BLKJACK.LOG"
FAppend 1, STRING004, 1, 0
FPutLn 1, "*****************************************************"
FPutLn 1, U_Name()
STRING007 = "STARTS WITH "
INTEGER003 = MinLeft()
STRING008 = I2S(INTEGER003, 10)
STRING007 = STRING007 + STRING008 + " MINUTES"
FPutLn 1, STRING007
STRING007 = ""
STRING008 = ""
TSTRING001(1) = "SPADES"
TSTRING001(2) = "CLUBS"
TSTRING001(3) = "HEARTS"
TSTRING001(4) = "DIAMONDS"
INTEGER019 = 1
MPrintLn "!|*|1K|#|#|#"
MPrintLn "!|1K|c04|Y01000400|#|#|#"
MPrintLn "!|1K|@5F10TnT Computers|#|#|#"
MPrintLn "!|1K|c01|Y01000400|#|#|#"
MPrintLn "!|1K|@7020Presents|#|#|#"
MPrintLn "!|1K|c02|Y01000800|#|#|#"
MPrintLn "!|1K|@4050RIP-Jack|#|#|#"
MPrintLn "!|1K|1B00000200LC030F000F080700000F07000000|Y00000100|#|#|#"
MPrintLn "!|1U408J70990000<>Continue<>|1M00408G709C1100000^M|#|#|#"
MPrintLn "!|1UA08JD0990000<>Instructions<>|1M00A08GD09C1100000I|#|#|#"
:LABEL001
STRING007 = Inkey()
If (STRING007 == "") Then
Goto LABEL001
Endif
Goto LABEL002
STRING007 = "My aren't we nosey? Modification of this code is ILLEGAL!"
:LABEL002
Select Case (STRING007)
Case "I"
MPrintLn "!|*"
MPrintLn "!|c01|Y01000200|#|#|#"
MPrintLn "!|@7F0ARIP-Jack"
MPrintLn "!|c02|Y00000100|#|#|#"
MPrintLn "!|@041AThe rules of RIP-Jack are identical to those of Black Jack. The object"
MPrintLn "!|@041Jis to get as close to 21 without going over. "
MPrintLn "!|@0420In Black Jack, face cards count 10, Aces count 1 or 11, and all other cards"
MPrintLn "!|@042Acount their value. I.E. a 3 of clubs counts 3 points and a 8 of hearts"
MPrintLn "!|@042Jwould count 8 points. Going over a total of 21 will cause you to bust and"
MPrintLn "!|@042Uloose the hand."
MPrintLn "!|@0439If you are dealt an ace and a face card or a 10 then you Black Jack. You"
MPrintLn "!|@043Jget paid 2.0 to 1 when you Black jack. If you get closer to 21 then the"
MPrintLn "!|@043Udealer does, then you get paid 1.0 to 1. The dealer will hit on 16 and stay"
MPrintLn "!|@0444on 17."
MPrintLn "!|@044JOn your first card, you may choose to double down. This will double your bet"
MPrintLn "!|@044Uand deal you one more card. A good time to double down is when you get dealt"
MPrintLn "!|@0453a total of 11 points on your first card and you have not seen a lot of face"
MPrintLn "!|@045Ccards. After you double down, the dealer will deal his cards."
MPrintLn "!|@045SYour time online is converted into money. You get $10 for every minute of"
MPrintLn "!|@0463time left online. This is what you use to bet with. When you quit the game"
MPrintLn "!|@046Dyour money will be converted back into time online. You can use this time"
MPrintLn "!|@046Oduring this session only. If you log off without storing your time, you will"
MPrintLn "!|@046Yloose any extra time won. If you loose all your money, then you will be left"
MPrintLn "!|@0479with no time and be logged off."
MPrintLn "!|@047PWhen a hand is over, to continue with the game, just click the mouse button and"
MPrintLn "!|@047Zyou will be returned to the bet screen. Thats everything, so enjoy the game."
MPrintLn "!|c04|Y01000200|#|#|#"
MPrintLn "!|@7N8IHit Enter"
:LABEL003
STRING007 = Inkey()
Case ""
Goto LABEL003
End Select
MPrintLn "!|*|1K|#|#|#"
For INTEGER003 = 1 To 52
TINTEGER001(INTEGER003) = INTEGER003
Next
INTEGER017 = MinLeft() * 10
:LABEL004
INTEGER018 = INTEGER017 / 10
INTEGER003 = MinLeft()
INTEGER004 = INTEGER018 - INTEGER003
AdjTime INTEGER004
PutUser
If (INTEGER017 == 0) Then
MPrintLn "!|S0000"
MPrintLn "!|B0039H959"
MPrintLn "!|1K|c04|Y01000400|#|#|#"
MPrintLn "!|1K|@5040* Your Broke *"
MPrintLn "!|1M000000I0G01000000^M"
:LABEL005
STRING007 = Inkey()
If (STRING007 == "") Then
Goto LABEL005
Endif
INTEGER018 = INTEGER017 / 10
INTEGER003 = MinLeft()
INTEGER004 = INTEGER018 - INTEGER003
AdjTime INTEGER004
PutUser
MPrintLn "!|*"
STRING007 = "ENDS WITH "
INTEGER003 = MinLeft()
STRING008 = I2S(INTEGER003, 10)
STRING007 = STRING007 + STRING008 + " MINUTES"
FPutLn 1, STRING007
FClose 1
End
Endif
If (INTEGER019 > 40) Then
INTEGER019 = 1
Endif
For INTEGER003 = 1 To 5
TINTEGER020(INTEGER003) = 0
TINTEGER021(INTEGER003) = 0
Next
MPrintLn "!|1K|c04|Y01000400"
MPrintLn "!|1K|@0F3AYou have "
MPrintLn "!|1K|c01|Y01000400"
STRING007 = I2S(INTEGER017, 10)
STRING007 = "$" + STRING007
STRING007 = "!|1K|@503A" + STRING007
MPrintLn STRING007
MPrintLn "!|1UA03FD04A00000<>BET<>|1M00A03FD04A1000000B"
MPrintLn "!|1UE03FH04A0000<>QUIT<>|1M00E03FH04A01000000Q|#|#|#"
:LABEL006
STRING007 = Inkey()
If (STRING007 == "") Then
Goto LABEL006
Endif
If (STRING007 == "B") Then
MPrintLn "!|1K|c01|Y01000400"
MPrintLn "!|1K|@0A4AEnter Bet "
MPrintLn "!|1K|c04"
MPrintLn "!|T$"
STRING003 = ""
:LABEL007
STRING007 = Inkey()
If (STRING007 == "") Then
Goto LABEL007
Endif
INTEGER003 = Asc(STRING007)
If (INTEGER003 == 13) Then
INTEGER005 = S2I(STRING003, 10)
If (INTEGER005 > INTEGER017) Then
MPrintLn "!|S0000"
MPrintLn "!|B004F9060"
Goto LABEL004
Endif
INTEGER017 = INTEGER017 - STRING003
Goto LABEL008
Endif
If (INTEGER003 == 27) Then
MPrintLn "!|S0000"
MPrintLn "!|B004F9060"
Goto LABEL006
Endif
If (Len(STRING003) == 3) Then
Goto LABEL007
Endif
If (INTEGER003 < 48) Then
Goto LABEL007
Endif
If (INTEGER003 > 57) Then
Goto LABEL007
Endif
STRING003 = STRING003 + STRING007
STRING007 = "!|T" + STRING007
MPrintLn STRING007
Goto LABEL007
Endif
If (STRING007 == "Q") Then
INTEGER018 = INTEGER017 / 10
INTEGER003 = MinLeft()
INTEGER004 = INTEGER018 - INTEGER003
AdjTime INTEGER004
PutUser
MPrintLn "!|*"
STRING007 = "ENDS WITH "
INTEGER003 = MinLeft()
STRING008 = I2S(INTEGER003, 10)
STRING007 = STRING007 + STRING008 + " MINUTES"
FPutLn 1, STRING007
End
Endif
Goto LABEL006
:LABEL008
MPrintLn "!|*"
If (INTEGER019 == 1) Then
MPrintLn "SHUFFLING..."
Gosub LABEL019
Endif
MPrintLn "!|*"
INTEGER011 = INTEGER019
INTEGER009 = INTEGER011
INTEGER019 = INTEGER019 + 1
TINTEGER002(1) = 30
TINTEGER002(2) = 10
TINTEGER002(3) = 130
TINTEGER002(4) = 110
For INTEGER003 = 1 To 4
INTEGER013 = TINTEGER002(INTEGER003)
Gosub LABEL022
TSTRING002(INTEGER003) = STRING009
Next
Gosub LABEL020
TINTEGER021(1) = INTEGER022
STRING007 = "!|1K|S0101|B" + TSTRING002(1) + TSTRING002(2) + TSTRING002(3) + TSTRING002(4) + "|#|#|#"
MPrintLn STRING007
INTEGER011 = INTEGER019
INTEGER019 = INTEGER019 + 1
TINTEGER002(1) = 30
TINTEGER002(2) = 220
TINTEGER002(3) = 130
TINTEGER002(4) = 320
For INTEGER003 = 1 To 4
INTEGER013 = TINTEGER002(INTEGER003)
Gosub LABEL022
TSTRING002(INTEGER003) = STRING009
Next
Gosub LABEL021
TINTEGER020(1) = INTEGER022
INTEGER011 = INTEGER019
INTEGER019 = INTEGER019 + 1
TINTEGER002(1) = 150
TINTEGER002(2) = 10
TINTEGER002(3) = 250
TINTEGER002(4) = 110
For INTEGER003 = 1 To 4
INTEGER013 = TINTEGER002(INTEGER003)
Gosub LABEL022
TSTRING002(INTEGER003) = STRING009
Next
Gosub LABEL021
TINTEGER021(2) = INTEGER022
INTEGER011 = INTEGER019
INTEGER019 = INTEGER019 + 1
TINTEGER002(1) = 150
TINTEGER002(2) = 220
TINTEGER002(3) = 250
TINTEGER002(4) = 320
For INTEGER003 = 1 To 4
INTEGER013 = TINTEGER002(INTEGER003)
Gosub LABEL022
TSTRING002(INTEGER003) = STRING009
Next
Gosub LABEL021
TINTEGER020(2) = INTEGER022
Gosub LABEL024
If (INTEGER007 == 21) Then
MPrintLn "!|S0000"
MPrintLn "!|B0039H959"
MPrintLn "!|1K|c04|Y01000400|#|#|#"
MPrintLn "!|1K|@5040* Black Jack *"
:LABEL009
STRING007 = Inkey()
If (STRING007 == "") Then
Goto LABEL009
Endif
MPrintLn "!|S0000"
MPrintLn "!|B0039H959"
INTEGER005 = S2I(STRING003, 10)
INTEGER017 = INTEGER017 + INTEGER005 * 3
Goto LABEL004
Endif
MPrintLn "!|1U1040405000000<>HIT<>|1M00104040501000000H"
MPrintLn "!|1U7I40AI5000000<>STAY<>|1M007I40AI501000000S"
MPrintLn "!|1UE040H05000000<>DOUBLE<>|1M00E040H0501000000D"
INTEGER016 = 2
:LABEL010
STRING007 = Inkey()
If (STRING007 == "") Then
Goto LABEL010
Endif
If (STRING007 == "S") Then
Goto LABEL013
Endif
If (STRING007 == "D") Then
If (INTEGER016 <> 2) Then
Goto LABEL010
Endif
INTEGER005 = S2I(STRING003, 10)
If (INTEGER005 > INTEGER017) Then
Goto LABEL010
Endif
INTEGER017 = INTEGER017 - INTEGER005
STRING003 = I2S(INTEGER005 * 2, 10)
INTEGER016 = INTEGER016 + 1
INTEGER011 = INTEGER019
INTEGER019 = INTEGER019 + 1
TINTEGER002(1) = (INTEGER016 - 1) * 120 + 30
TINTEGER002(2) = 220
TINTEGER002(3) = TINTEGER002(1) + 100
TINTEGER002(4) = 320
For INTEGER003 = 1 To 4
INTEGER013 = TINTEGER002(INTEGER003)
Gosub LABEL022
TSTRING002(INTEGER003) = STRING009
Next
Gosub LABEL021
TINTEGER020(INTEGER016) = INTEGER022
STRING005 = "S"
Endif
If (STRING007 == "H") Then
INTEGER016 = INTEGER016 + 1
INTEGER011 = INTEGER019
INTEGER019 = INTEGER019 + 1
TINTEGER002(1) = (INTEGER016 - 1) * 120 + 30
TINTEGER002(2) = 220
TINTEGER002(3) = TINTEGER002(1) + 100
TINTEGER002(4) = 320
For INTEGER003 = 1 To 4
INTEGER013 = TINTEGER002(INTEGER003)
Gosub LABEL022
TSTRING002(INTEGER003) = STRING009
Next
Gosub LABEL021
TINTEGER020(INTEGER016) = INTEGER022
Endif
Gosub LABEL024
If (INTEGER007 > 21) Then
MPrintLn "!|S0000"
MPrintLn "!|B0039H959"
MPrintLn "!|1K|c04|Y01000400|#|#|#"
MPrintLn "!|1K|@5040* Flat Busted *"
MPrintLn "!|1M000000I0G01000000^M"
:LABEL011
STRING007 = Inkey()
If (STRING007 == "") Then
Goto LABEL011
Endif
MPrintLn "!|S0000"
MPrintLn "!|B0039H959"
Goto LABEL004
Endif
If (INTEGER007 < 22) Then
If (INTEGER016 == 5) Then
MPrintLn "!|S0000"
MPrintLn "!|B0039H959"
MPrintLn "!|1K|c04|Y01000400|#|#|#"
MPrintLn "!|1K|@5040* 5 Card Charlie *"
MPrintLn "!|1M000000I0G01000000^M"
:LABEL012
STRING007 = Inkey()
If (STRING007 == "") Then
Goto LABEL012
Endif
MPrintLn "!|S0000"
MPrintLn "!|B0039H959"
INTEGER005 = S2I(STRING003, 10)
INTEGER017 = INTEGER017 + INTEGER005 * 2
Goto LABEL004
Endif
Endif
If (INTEGER007 == 21) Then
Goto LABEL013
Endif
If (STRING005 == "S") Then
Goto LABEL013
Endif
MPrintLn "!|1U1040405000000<>HIT<>|1M00104040501000000H"
MPrintLn "!|1U7I40AI5000000<>STAY<>|1M007I40AI501000000S"
MPrintLn "!|1UE040H05000000<>DOUBLE<>|1M00E040H0501000000D"
Goto LABEL010
Goto LABEL004
:LABEL013
INTEGER011 = INTEGER009
INTEGER009 = INTEGER011
TINTEGER002(1) = 30
TINTEGER002(2) = 10
TINTEGER002(3) = 130
TINTEGER002(4) = 110
For INTEGER003 = 1 To 4
INTEGER013 = TINTEGER002(INTEGER003)
Gosub LABEL022
TSTRING002(INTEGER003) = STRING009
Next
Gosub LABEL021
STRING005 = ""
MPrintLn "!|S0000"
MPrintLn "!|B0039H959"
Gosub LABEL023
If (INTEGER007 > 16) Then
STRING006 = "S"
Goto LABEL015
Endif
For INTEGER008 = 3 To 5
INTEGER011 = INTEGER019
INTEGER019 = INTEGER019 + 1
TINTEGER002(1) = (INTEGER008 - 1) * 120 + 30
TINTEGER002(2) = 10
TINTEGER002(3) = TINTEGER002(1) + 100
TINTEGER002(4) = 110
For INTEGER003 = 1 To 4
INTEGER013 = TINTEGER002(INTEGER003)
Gosub LABEL022
TSTRING002(INTEGER003) = STRING009
Next
Gosub LABEL021
TINTEGER021(INTEGER008) = INTEGER022
Gosub LABEL023
If (INTEGER007 > 21) Then
MPrintLn "!|S0000"
MPrintLn "!|B0039H959"
MPrintLn "!|1K|c04|Y01000400|#|#|#"
MPrintLn "!|1K|@5040* Dealer Busts *"
MPrintLn "!|1M000000I0G01000000^M"
:LABEL014
STRING007 = Inkey()
If (STRING007 == "") Then
Goto LABEL014
Endif
MPrintLn "!|S0000"
MPrintLn "!|B0039H959"
INTEGER005 = S2I(STRING003, 10)
INTEGER017 = INTEGER017 + INTEGER005 * 2
Goto LABEL004
Endif
If (INTEGER007 > 16) Then
STRING006 = "S"
Endif
:LABEL015
If (STRING006 == "S") Then
STRING006 = ""
INTEGER006 = INTEGER007
Gosub LABEL024
If (INTEGER007 > INTEGER006) Then
MPrintLn "!|S0000"
MPrintLn "!|B0039H959"
MPrintLn "!|1K|c04|Y01000400|#|#|#"
MPrintLn "!|1K|@5040* You Win *"
MPrintLn "!|1M000000I0G01000000^M"
:LABEL016
STRING007 = Inkey()
If (STRING007 == "") Then
Goto LABEL016
Endif
MPrintLn "!|S0000"
MPrintLn "!|B0039H959"
INTEGER005 = S2I(STRING003, 10)
INTEGER017 = INTEGER017 + INTEGER005 * 2
Goto LABEL004
Endif
If (INTEGER007 < INTEGER006) Then
MPrintLn "!|S0000"
MPrintLn "!|B0039H959"
MPrintLn "!|1K|c04|Y01000400|#|#|#"
MPrintLn "!|1K|@5040* You Loose *"
MPrintLn "!|1M000000I0G01000000^M"
:LABEL017
STRING007 = Inkey()
If (STRING007 == "") Then
Goto LABEL017
Endif
MPrintLn "!|S0000"
MPrintLn "!|B0039H959"
Goto LABEL004
Endif
If (INTEGER007 == INTEGER006) Then
MPrintLn "!|S0000"
MPrintLn "!|B0039H959"
MPrintLn "!|1K|c04|Y01000400|#|#|#"
MPrintLn "!|1K|@5040* You Push *"
MPrintLn "!|1M000000I0G01000000^M"
:LABEL018
STRING007 = Inkey()
If (STRING007 == "") Then
Goto LABEL018
Endif
MPrintLn "!|S0000"
MPrintLn "!|B0039H959"
INTEGER005 = S2I(STRING003, 10)
INTEGER017 = INTEGER017 + INTEGER005
Goto LABEL004
Endif
Endif
Next
STRING006 = "S"
Goto LABEL015
:LABEL019
For INTEGER003 = 1 To 200
INTEGER004 = Random(51) + 1
INTEGER005 = Random(51) + 1
INTEGER006 = TINTEGER001(INTEGER004)
INTEGER007 = TINTEGER001(INTEGER005)
TINTEGER001(INTEGER004) = INTEGER007
TINTEGER001(INTEGER005) = INTEGER006
Next
Return
:LABEL020
INTEGER010 = TINTEGER001(INTEGER011) / 13
INTEGER012 = TINTEGER001(INTEGER011) - INTEGER010 * 13
If (INTEGER012 <> 0) Then
INTEGER010 = INTEGER010 + 1
Endif
If (INTEGER012 > 1) Then
If (INTEGER012 < 11) Then
STRING007 = I2S(INTEGER012, 10)
Endif
Endif
If (INTEGER012 == 1) Then
STRING007 = "A"
Endif
If (INTEGER012 == 11) Then
STRING007 = "J"
Endif
If (INTEGER012 == 12) Then
STRING007 = "Q"
Endif
If (INTEGER012 == 0) Then
INTEGER012 = 13
STRING007 = "K"
Endif
If (INTEGER012 < 10) Then
INTEGER022 = INTEGER012
If (INTEGER022 == 1) Then
INTEGER022 = 11
Endif
Else
INTEGER022 = 10
Endif
If (INTEGER010 == 1) Then
STRING007 = STRING007 + Chr(6)
Endif
If (INTEGER010 == 2) Then
STRING007 = STRING007 + Chr(5)
Endif
If (INTEGER010 == 3) Then
STRING007 = STRING007 + Chr(3)
Endif
If (INTEGER010 == 4) Then
STRING007 = STRING007 + Chr(4)
Endif
Return
:LABEL021
STRING007 = "!|S010F"
MPrintLn STRING007
STRING007 = "!|B" + TSTRING002(1) + TSTRING002(2) + TSTRING002(3) + TSTRING002(4) + "|#|#|#"
MPrintLn STRING007
STRING007 = ""
Gosub LABEL020
If (INTEGER010 < 3) Then
MPrintLn "!|1K|c00|Y00000200|#|#|#"
Else
MPrintLn "!|1K|c04|Y00000200|#|#|#"
Endif
INTEGER013 = TINTEGER002(1) + 5
Gosub LABEL022
TSTRING002(1) = STRING009
INTEGER013 = TINTEGER002(2) + 5
Gosub LABEL022
TSTRING002(2) = STRING009
STRING008 = "!|1K|@"
STRING008 = STRING008 + TSTRING002(1) + TSTRING002(2)
STRING008 = STRING008 + STRING007 + "|#|#|#"
MPrintLn STRING008
If (Len(STRING007) == 2) Then
INTEGER013 = TINTEGER002(1) + 65
Else
INTEGER013 = TINTEGER002(1) + 50
Endif
Gosub LABEL022
TSTRING002(1) = STRING009
INTEGER013 = TINTEGER002(2) + 80
Gosub LABEL022
TSTRING002(2) = STRING009
STRING008 = "!|1K|@"
STRING008 = STRING008 + TSTRING002(1) + TSTRING002(2) + STRING007 + "|#|#|#"
MPrintLn ""
MPrintLn STRING008
Return
:LABEL022
INTEGER014 = INTEGER013 / 36
INTEGER015 = INTEGER013 - INTEGER014 * 36
If (INTEGER014 < 10) Then
STRING009 = Chr(48 + INTEGER014)
Else
STRING009 = Chr(55 + INTEGER014)
Endif
If (INTEGER015 < 10) Then
STRING009 = STRING009 + Chr(48 + INTEGER015)
Else
STRING009 = STRING009 + Chr(55 + INTEGER015)
Endif
Return
:LABEL023
INTEGER007 = 0
For INTEGER003 = 1 To 5
INTEGER007 = INTEGER007 + TINTEGER021(INTEGER003)
If (INTEGER007 > 21) Then
For INTEGER004 = 1 To 5
If (TINTEGER021(INTEGER004) == 11) Then
TINTEGER021(INTEGER004) = 1
INTEGER007 = INTEGER007 - 10
Endif
Next
Endif
Next
Return
:LABEL024
INTEGER007 = 0
For INTEGER003 = 1 To 5
INTEGER007 = INTEGER007 + TINTEGER020(INTEGER003)
If (INTEGER007 > 21) Then
For INTEGER004 = 1 To 5
If (TINTEGER020(INTEGER004) == 11) Then
TINTEGER020(INTEGER004) = 1
INTEGER007 = INTEGER007 - 10
Endif
Next
Endif
Next
Return
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 2 End
; 1 Cls
; 139 Goto
; 238 Let
; 80 If
; 1 FAppend
; 1 FClose
; 5 FPutLn
; 1 GetUser
; 3 PutUser
; 3 AdjTime
; 27 Gosub
; 6 Return
; 1 SPrintLn
; 128 MPrintLn
;
;
; ■ Functions used :
;
; 11 *
; 5 /
; 85 +
; 12 -
; 42 ==
; 2 <>
; 24 <
; 16 <=
; 12 >
; 32 >=
; 80 !
; 32 &&
; 16 ||
; 2 Len(
; 8 Chr()
; 1 Asc()
; 2 Random()
; 1 U_Name()
; 13 Inkey()
; 1 PPEPath()
; 7 MinLeft()
; 6 I2S()
; 7 S2I()
;
;------------------------------------------------------------------------------
;
; Analysis flags : WAM
;
; W - Write user ■ 5
; Program writes a user record. Although this may be normal for a
; User Editor, it may also be a way to modify an account level.
; ■ Search for : PUTUSER
;
; A - Adjust online time remaining ■ 5
; Program modify the amount of online time remaining, this may
; be a way to bypass time limits
; ■ Search for : ADJTIME
;
; M - Send text to modem only ■ 4
; Some informations are sent only to the modem, not to the local
; screen, this is a well known way to make stealth backdoors, Check!
; ■ Search for : SENDMODEM, MPRINT, MPRINTLN
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 16 For/Next
; 0 While/EndWhile
; 62 If/Then or If/Then/Else
; 1 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------