home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 24
/
CD_ASCQ_24_0995.iso
/
vrac
/
aucton11.zip
/
AUCTION.WCX
(
.txt
)
< prev
next >
Wrap
Wildcat! WCX
|
1995-07-24
|
10KB
|
580 lines
'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx 10114 bytes 12/17/122 09:47:20am
'! Code Segment Size :6977 bytes
'! Data Segment Size :4649 bytes
'! String Segment Size:3137 bytes
'! Compiled with WCC version 4.10
Declare Sub Sub2763
Declare Sub Sub3656
Declare Sub Sub6584
Declare Sub Sub6639
Declare Sub Sub6678
Declare Function Func6695(s65534 As String) As Boolean
Declare Sub Sub6797
Declare Sub Sub6853
Dim s4463 As String
Dim b4467 As Byte
Dim s4468 As String*1
Dim s4469 As String
Dim s4473 As String*30
Dim s4503 As String
Dim l4507 As Long
Dim l4511 As Long
Dim s4515 As String*75
Dim r4590 As Real
Dim b4596 As Byte
Dim l4597 As Long
Dim r4601 As Real
Dim s4607 As String
Dim b4611 As Byte
Dim b4612 As Byte
Dim i4613 As Integer
Dim b4615 As Byte
Dim b4616 As Byte
Dim b4617 As Byte
Dim s4618 As String
Dim s4622 As String
Dim s4626 As String
Dim s4630 As String
Dim d4634 As Date
Dim o4636 As Boolean
Dim s4637 As String
Dim s4641 As String
Dim i4645 As Integer
Dim s4647 As String*1
Dim b4648 As Byte
Dim s65532_ As String '! Temporary
s4637 = Tab(5)
s4641 = Tab(10)
Func6695(("auction.cfg"))
If o4636 = 0 Then
Print
Print s4637; "@09@AUCTION ONLINE"
Sub6584
Print
Pause
End
End If
125 Open "c:\auction\" + "auction.cfg" For Input As 1
Input #1, s4463
Input #1, b4467
Input #1, s4468
Input #1, s4469
Input #1, s4473
Input #1, s4503
Input #1, l4507
Input #1, s4515
Close 1
b4612 = InStr(1, MakeWild.SysopName, " ")
s4618 = Left(MakeWild.SysopName, b4612)
s4626 = Mid(MakeWild.SysopName, b4612 + 1, 25)
s4622 = s4618
s4630 = s4626
s4618 = UCase(Left(s4618, 1))
s4622 = UCase(Mid(s4622, 2, 1))
s4626 = UCase(Left(s4626, 1))
s4630 = UCase(Mid(s4630, 2, 1))
If UCase(s4618) = "V" Or UCase(s4618) = "W" Or UCase(s4618) = "X" Then
i4613 = 1
Else
445 If UCase(s4618) = "Y" Or UCase(s4618) = "Z" Then
i4613 = 1
Else
494 If UCase(s4618) = "S" Or UCase(s4618) = "T" Or UCase(s4618) = "U" Then
i4613 = 2
Else
559 If UCase(s4618) = "P" Or UCase(s4618) = "Q" Or UCase(s4618) = "R" Then
i4613 = 3
Else
624 If UCase(s4618) = "M" Or UCase(s4618) = "N" Or UCase(s4618) = "O" Then
i4613 = 4
Else
689 If UCase(s4618) = "J" Or UCase(s4618) = "K" Or UCase(s4618) = "L" Then
i4613 = 5
Else
754 If UCase(s4618) = "G" Or UCase(s4618) = "H" Or UCase(s4618) = "I" Then
i4613 = 6
Else
819 If UCase(s4618) = "D" Or UCase(s4618) = "E" Or UCase(s4618) = "F" Then
i4613 = 7
Else
884 If UCase(s4618) = "A" Or UCase(s4618) = "B" Or UCase(s4618) = "C" Then
i4613 = 8
End If
End If
End If
End If
End If
End If
End If
End If
End If
943 If UCase(s4622) = "V" Or UCase(s4622) = "W" Or UCase(s4622) = "X" Then
b4615 = 1
Else
1008 If UCase(s4622) = "Y" Or UCase(s4622) = "Z" Then
b4615 = 1
Else
1057 If UCase(s4622) = "S" Or UCase(s4622) = "T" Or UCase(s4622) = "U" Then
b4615 = 2
Else
1122 If UCase(s4622) = "P" Or UCase(s4622) = "Q" Or UCase(s4622) = "R" Then
b4615 = 3
Else
1187 If UCase(s4622) = "M" Or UCase(s4622) = "N" Or UCase(s4622) = "O" Then
b4615 = 4
Else
1252 If UCase(s4622) = "J" Or UCase(s4622) = "K" Or UCase(s4622) = "L" Then
b4615 = 5
Else
1317 If UCase(s4622) = "G" Or UCase(s4622) = "H" Or UCase(s4622) = "I" Then
b4615 = 6
Else
1382 If UCase(s4622) = "D" Or UCase(s4622) = "E" Or UCase(s4622) = "F" Then
b4615 = 7
Else
1447 If UCase(s4622) = "A" Or UCase(s4622) = "B" Or UCase(s4622) = "C" Then
b4615 = 8
End If
End If
End If
End If
End If
End If
End If
End If
End If
1506 If UCase(s4626) = "V" Or UCase(s4626) = "W" Or UCase(s4626) = "X" Then
b4616 = 1
Else
1571 If UCase(s4626) = "Y" Or UCase(s4626) = "Z" Then
b4616 = 1
Else
1620 If UCase(s4626) = "S" Or UCase(s4626) = "T" Or UCase(s4626) = "U" Then
b4616 = 2
Else
1685 If UCase(s4626) = "P" Or UCase(s4626) = "Q" Or UCase(s4626) = "R" Then
b4616 = 3
Else
1750 If UCase(s4626) = "M" Or UCase(s4626) = "N" Or UCase(s4626) = "O" Then
b4616 = 4
Else
1815 If UCase(s4626) = "J" Or UCase(s4626) = "K" Or UCase(s4626) = "L" Then
b4616 = 5
Else
1880 If UCase(s4626) = "G" Or UCase(s4626) = "H" Or UCase(s4626) = "I" Then
b4616 = 6
Else
1945 If UCase(s4626) = "D" Or UCase(s4626) = "E" Or UCase(s4626) = "F" Then
b4616 = 7
Else
2010 If UCase(s4626) = "A" Or UCase(s4626) = "B" Or UCase(s4626) = "C" Then
b4616 = 8
End If
End If
End If
End If
End If
End If
End If
End If
End If
2069 If UCase(s4630) = "V" Or UCase(s4630) = "W" Or UCase(s4630) = "X" Then
b4617 = 1
Else
2134 If UCase(s4630) = "Y" Or UCase(s4630) = "Z" Then
b4617 = 1
Else
2183 If UCase(s4630) = "S" Or UCase(s4630) = "T" Or UCase(s4630) = "U" Then
b4617 = 2
Else
2248 If UCase(s4630) = "P" Or UCase(s4630) = "Q" Or UCase(s4630) = "R" Then
b4617 = 3
Else
2313 If UCase(s4630) = "M" Or UCase(s4630) = "N" Or UCase(s4630) = "O" Then
b4617 = 4
Else
2378 If UCase(s4630) = "J" Or UCase(s4630) = "K" Or UCase(s4630) = "L" Then
b4617 = 5
Else
2443 If UCase(s4630) = "G" Or UCase(s4630) = "H" Or UCase(s4630) = "I" Then
b4617 = 6
Else
2508 If UCase(s4630) = "D" Or UCase(s4630) = "E" Or UCase(s4630) = "F" Then
b4617 = 7
Else
2573 If UCase(s4630) = "A" Or UCase(s4630) = "B" Or UCase(s4630) = "C" Then
b4617 = 8
End If
End If
End If
End If
End If
End If
End If
End If
End If
2632 s4607 = Str(i4613) + Str(b4615) + Str(b4616) + Str(b4617)
b4611 = 0
If s4607 = s4463 Then
b4611 = 1
End If
2703 Sub2763
Sub3656
'! Called 1 time
Sub Sub2763
Dim l65526 As Long
Dim i65530 As Integer
Dim s65532 As String
s65532 = "@07@" + Spc(23)
Cls
Print s65532; "@7F@"; Chr(218);
Print String(28, Chr(196));
Print "@70@"; Chr(191)
Print s65532; "@7F@"; Chr(179); Spc(28); "@70@"; Chr(179)
Print s65532; "@7F@"; Chr(179); Tab(32); "@70@AUCTION ONLINE"; Spc(7); Chr(179)
Print s65532; "@7F@"; Chr(179); Spc(28); "@70@"; Chr(179)
Print s65532; "@7F@"; Chr(179); Spc(8); "@70@Version 1.1"; Spc(9); Chr(179)
3051 For i4645 = 1 To 4 Step 1
Print s65532; "@7F@"; Chr(179); Spc(28); "@70@"; Chr(179)
Next
3167 Print s65532; "@7F@"; Chr(179); Spc(5); "@70@(C) Copyright 1995"; Spc(5); Chr(179)
Print s65532; "@7F@"; Chr(179); Spc(7); "@70@Scott Bradbury"; Spc(7); Chr(179)
Print s65532; "@7F@"; Chr(179); Spc(28); "@70@"; Chr(179)
Print s65532; "@7F@"; Chr(192);
Print "@70@"; String(28, Chr(196));
Print Chr(217)
Print "@07@"
If b4611 = 0 Then
Print Tab(34); "@0C@UNREGISTERED"
Print
Print Tab(15); "@0E@Sysop:@0F@ "; MakeWild.SysopName; Tab(45); "@0E@BBS:@0F@ "; MakeWild.BBSName
Print
Print Tab(13); "@0C@Encourage your Sysop to register and remove this delay."
Print
Print Tab(16); "@0E@Support BBS@0F@ ■ @0B@The Coral Reef@0F@ ■@0E@" + " (517) 894-0729"
Delay 10
Sub6797
Else
3525 If b4611 = 1 Then
Print Tab(34); "@0A@REGISTERED"
Print
Print Tab(15); "@0E@Sysop:@0F@ "; MakeWild.SysopName; Tab(45); "@0E@BBS:@0F@ "; MakeWild.BBSName
Print
Print Tab(15); "@0E@Support BBS@0F@ ■ @0B@The Coral Reef@0F@ ■@0E@" + " (517) 894-0729"
Print
Sub6797
End If
End If
3649
End Sub
'! Called 8 times
Sub Sub3656
Dim l65499 As Long
Dim i65503 As Integer
Dim l65505 As Long
Dim i65509 As Integer
Dim l65511 As Long
Dim i65515 As Integer
Dim l65517 As Long
Dim i65521 As Integer
Dim s65523 As String
Dim s65527 As String
Dim s65531 As String*1
Dim s65532 As String
If RIPEnabled = -1 Then
Print s4637; "RIP graphics were detected on your terminal. You may encounter"
Print s4637; "some strange displays while using this program."
Print
End If
3711 EnablePages 0
CarrierCheck(-1)
CurrentDate d4634
b4596 = d4634.Day - Val(Mid(s4503, 4, 2))
If b4596 >= b4467 Then
Cls
Print
Print s4637; "@09@AUCTION ONLINE"
Print
Print s4637; "@0F@Someone has already held the bid for @0E@"; b4467; "@0F@" + " consecutive days."
Print
Print s4637; "Try bidding in the next auction."
Print
Print s4637; "Please inform the Sysop that Auction Online needs to be reset."
3886 For i4645 = 1 To 8 Step 1
Print
Next
3961 Sub6797
Cls
Print s4637; "@09@AUCTION ONLINE"
Print
Print s4637; "@0E@"; UCase(s4473); "@0F@ has placed a bid of @0E@"; l4507; "" + "@0F@ credits."
Print s4637; "The item up for bid was: @0E@"; UCase(s4469)
Print "@0F@"
Print s4637; "The bid remained up for @0E@"; b4467; "@0F@ days which is the limit" + " to stay posted"
Print s4637; "without any new bids as configured by the Sysop."
Print
Print
Print
Print Tab(25); "@0C@CONGRATULATIONS "; UCase(s4473); "!"
4187 For i4645 = 1 To 7 Step 1
Print
Next
4262 Pause
Open "c:\auction\" + "winner.txt" For Output As 3
Print #3, "AUCTION ONLINE"
Print #3, "------------------------------------------"
Print #3, "We have a winner!"
Print #3,
Print #3, UCase(s4473) + " placed a bid of "; l4507; " credits."
Print #3, "Don't forget to award them the item that was up for auction."
Print #3,
Print #3, "Please set up a new auction at this time."
Close 3
Sub6584
End
End If
4395 If UCase(s4468) = "S" Then
r4590 = User.SubscriptionBalance
Else
4439 If UCase(s4468) = "N" Then
r4590 = User.NetMailBalance
End If
End If
4477 l4597 = Int(r4590 / 100)
r4601 = r4590 - l4597
l4597 = r4590 - r4601
r4590 = l4597
Cls
Print s4637;
4576 For i4645 = 1 To 7 Step 1
Print "@09@"; Chr(220); Chr(220); Chr(220); Chr(220); Chr(220) + "@0E@"; Chr(220); Chr(220); Chr(220); Chr(220); Chr(220);
Next
4735 Print
Print Tab(32); "@0F@AUCTION ONLINE"
Print s4637;
4783 For i4645 = 1 To 7 Step 1
Print "@09@"; Chr(223); Chr(223); Chr(223); Chr(223); Chr(223) + "@0E@"; Chr(223); Chr(223); Chr(223); Chr(223); Chr(223);
Next
4942 Print
Print
Print "@09@"; s4637; Chr(218); String(68, Chr(196)); Chr(191)
Print s4637; Chr(179); "@0B@ Current Item up for Bid: "; Tab(74); "@09@"; Chr(179)
Print "@09@"; s4637; Chr(192); String(68, Chr(196)); Chr(217)
Locate 6, 33
Print "@0F@"; UCase(s4469)
Print
Print Tab(17); "@0E@"; s4473; " posted the last bid on @0F@"; s4503; "@0E@."
Print Tab(27); "@0E@The Bid is now at @0F@"; l4507; "@0E@."
Print
Print s4637; "@0B@"; " "; s4515; " "
Print
Print s4637; "@09@A winner will be declared if the bid remains the same " + "for @0E@"; b4467; "@09@ days."
Print s4637; "@0C@Your Account Balance: @0F@"; l4597
Print
Print s4637; "@09@[@0E@B@09@]id on Item [@0E@I@09@]nformation [@0E@Q@09@]uit" + " -> ";
Do
5298 s4647 = UCase(InKey(1213417543))
Loop Until InStr("BIQ", s4647) > 0
Print s4647
Print
s65532 = UCase(s4647)
If s65532 = "I" Then
Do
5380 Cls
Print
Print s4641; "@09@Information Menu"
Print
Print s4641; "[@0E@1@09@] Detailed Information on Item"
Print s4641; "[@0E@2@09@] Help on Using Auction Online"
Print s4641; "[@0E@3@09@] Return to Auction Screen"
Print
Print s4641; "Choice ->@0F@ ";
Do
5464 s4647 = UCase(InKey(1213417543))
Loop Until InStr("123", s4647) > 0
Print s4647
s65531 = s4647
If s65531 = "1" Then
Cls
DisplayTextFile("c:\auction\" + "info1.hlp")
Sub6797
Else
5576 If s65531 = "2" Then
Cls
DisplayTextFile("c:\auction\" + "info2.hlp")
Sub6797
Else
5626 If s65531 = "3" Then
Sub3656
GoTo 5657
End If
End If
End If
5657 Loop
Else
5669 If s65532 = "Q" Then
Print
Print
Sub6584
Else
5702 If s65532 = "B" Then
Print s4637; "@09@Current bid now stands at @0E@"; l4507; "@09@."
Print
Print s4637; "How much do you want to bid?@0F@ ";
Input l4511
If l4511 < l4507 Then
Print
Print s4637; "@0C@Sorry...your bid is lower than the current bid."
Delay 2
Sub3656
Else
5827 If l4511 > l4507 Then
Do
5845 Print s4637; "@09@Bid @0E@"; l4511; "@09@ on this item?" + " (@0F@Y@09@/@0F@N@09@)@0F@ ";
Input s4647
s65527 = UCase(s4647)
If s65527 = "N" Then
Sub3656
Else
5931 If s65527 = "Y" Then
If l4511 > r4590 Then
Print s4637; "@0C@You don't have enough credits."
Delay 3
Sub3656
Else
6002 If l4511 <= r4590 Then
Print
Print s4637; "@0A@Your bid has been posted."
Delay 1.5
CurrentDate d4634
s4503 = FormatDate(d4634, "MM/DD/YY")
s4473 = User.Name
Sub6639
Print #8, s4503; Spc(5); User.Name + " posted a" + " bid for " + Str(l4511) + "."
Sub6678
Do
6154 Cls
Print
Print s4637; "@09@Would you like to leave a comment to other" + " bidders? (@0F@Y@09@/@0F@N@09@) ";
Do
6181 s4647 = UCase(InKey(1213417543))
Loop Until InStr("YN", s4647) > 0
Print s4647
s65523 = UCase(s4647)
If s65523 = "N" Then
Print
s4515 = "The last bidder had no comment."
Sub6853
Sub6584
Else
6292 If s65523 = "Y" Then
Do
6309 Print s4637; "@09@Message (Max. of 70 characters):"
Print s4637; "@0B@>@0F@ ";
Input s4515
b4648 = Len(s4515)
If b4648 > 70 Then
Print
Print s4637; "Message must be 70 characters or less."
Delay 2
Else
6407 If b4648 < 70 Then
GoTo 6434
End If
End If
6428 Loop
6434 Print
Print s4637; "Thanks!"
Delay 1
GoTo 6477
GoTo 6471
End If
End If
6471 Loop
6477 Sub6853
Sub3656
End If
End If
6489 GoTo 6495
End If
End If
6495 Loop
Else
6507 If l4511 = l4507 Then
Print
Print s4637; "@0C@You entered the same amount already posted."
Delay 2
Sub3656
End If
End If
End If
6556 Else
6562 Sub3656
End If
End If
End If
6568 End
End Sub
'! Called 4 times
Sub Sub6584
Cls
Print
Print s4637; "@09@Thanks for using @0F@Auction Online - Version 1.1@09@!"
Print s4637; "(C) Copyright 1995 Scott Bradbury"
Delay 3
End Sub
'! Called 1 time
Sub Sub6639
Open "c:\auction\" + "auction.log" For Append As 8
End Sub
'! Called 1 time
Sub Sub6678
Close 8
End Sub
'! Called 1 time
Function Func6695(s65534 As String) As Boolean
o4636 = Exists("c:\auction\" + s65534)
If o4636 = 0 Then
Print
Print s4637; "@0C@The file @0E@"; UCase(s65534); "@0C@ could not be found."
Print s4637; "Please inform the System Operator."
End If
6789
End Function
'! Called 5 times
Sub Sub6797
Print
Print s4637; "@07@[RETURN]";
6823 Do While InKey(1213417543) <> Chr(13)
Loop
6850
End Sub
'! Called 2 times
Sub Sub6853
Open "c:\auction\" + "auction.cfg" For Output As 1
Print #1, s4463
Print #1, b4467
Print #1, s4468
Print #1, s4469
Print #1, s4473
Print #1, s4503
Print #1, l4511
Print #1, s4515
Close 1
End Sub