home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 24 / CD_ASCQ_24_0995.iso / vrac / aucton11.zip / AUCTION.WCX (.txt) < prev    next >
Wildcat! WCX  |  1995-07-24  |  10KB  |  580 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  10114 bytes  12/17/122  09:47:20am
  3. '! Code Segment Size  :6977 bytes
  4. '! Data Segment Size  :4649 bytes
  5. '! String Segment Size:3137 bytes
  6. '! Compiled with WCC version 4.10
  7.  
  8.       Declare Sub Sub2763
  9.       Declare Sub Sub3656
  10.       Declare Sub Sub6584
  11.       Declare Sub Sub6639
  12.       Declare Sub Sub6678
  13.       Declare Function Func6695(s65534 As String) As Boolean
  14.       Declare Sub Sub6797
  15.       Declare Sub Sub6853
  16.  
  17.       Dim s4463 As String
  18.       Dim b4467 As Byte
  19.       Dim s4468 As String*1
  20.       Dim s4469 As String
  21.       Dim s4473 As String*30
  22.       Dim s4503 As String
  23.       Dim l4507 As Long
  24.       Dim l4511 As Long
  25.       Dim s4515 As String*75
  26.       Dim r4590 As Real
  27.       Dim b4596 As Byte
  28.       Dim l4597 As Long
  29.       Dim r4601 As Real
  30.       Dim s4607 As String
  31.       Dim b4611 As Byte
  32.       Dim b4612 As Byte
  33.       Dim i4613 As Integer
  34.       Dim b4615 As Byte
  35.       Dim b4616 As Byte
  36.       Dim b4617 As Byte
  37.       Dim s4618 As String
  38.       Dim s4622 As String
  39.       Dim s4626 As String
  40.       Dim s4630 As String
  41.       Dim d4634 As Date
  42.       Dim o4636 As Boolean
  43.       Dim s4637 As String
  44.       Dim s4641 As String
  45.       Dim i4645 As Integer
  46.       Dim s4647 As String*1
  47.       Dim b4648 As Byte
  48.  
  49.       Dim s65532_ As String '! Temporary
  50.  
  51.       s4637 = Tab(5)
  52.       s4641 = Tab(10)
  53.       Func6695(("auction.cfg"))
  54.       If o4636 = 0 Then
  55.         Print
  56.         Print s4637; "@09@AUCTION ONLINE"
  57.         Sub6584
  58.         Print
  59.         Pause 
  60.         End 
  61.       End If
  62.   125 Open "c:\auction\" + "auction.cfg" For Input As 1
  63.       Input #1, s4463
  64.       Input #1, b4467
  65.       Input #1, s4468
  66.       Input #1, s4469
  67.       Input #1, s4473
  68.       Input #1, s4503
  69.       Input #1, l4507
  70.       Input #1, s4515
  71.       Close 1
  72.       b4612 = InStr(1, MakeWild.SysopName, " ")
  73.       s4618 = Left(MakeWild.SysopName, b4612)
  74.       s4626 = Mid(MakeWild.SysopName, b4612 + 1, 25)
  75.       s4622 = s4618
  76.       s4630 = s4626
  77.       s4618 = UCase(Left(s4618, 1))
  78.       s4622 = UCase(Mid(s4622, 2, 1))
  79.       s4626 = UCase(Left(s4626, 1))
  80.       s4630 = UCase(Mid(s4630, 2, 1))
  81.       If UCase(s4618) = "V" Or UCase(s4618) = "W" Or UCase(s4618) = "X" Then
  82.         i4613 = 1
  83.       Else
  84.   445   If UCase(s4618) = "Y" Or UCase(s4618) = "Z" Then
  85.           i4613 = 1
  86.         Else
  87.   494     If UCase(s4618) = "S" Or UCase(s4618) = "T" Or UCase(s4618) = "U" Then
  88.             i4613 = 2
  89.           Else
  90.   559       If UCase(s4618) = "P" Or UCase(s4618) = "Q" Or UCase(s4618) = "R" Then
  91.               i4613 = 3
  92.             Else
  93.   624         If UCase(s4618) = "M" Or UCase(s4618) = "N" Or UCase(s4618) = "O" Then
  94.                 i4613 = 4
  95.               Else
  96.   689           If UCase(s4618) = "J" Or UCase(s4618) = "K" Or UCase(s4618) = "L" Then
  97.                   i4613 = 5
  98.                 Else
  99.   754             If UCase(s4618) = "G" Or UCase(s4618) = "H" Or UCase(s4618) = "I" Then
  100.                     i4613 = 6
  101.                   Else
  102.   819               If UCase(s4618) = "D" Or UCase(s4618) = "E" Or UCase(s4618) = "F" Then
  103.                       i4613 = 7
  104.                     Else
  105.   884                 If UCase(s4618) = "A" Or UCase(s4618) = "B" Or UCase(s4618) = "C" Then
  106.                         i4613 = 8
  107.                       End If
  108.                     End If
  109.                   End If
  110.                 End If
  111.               End If
  112.             End If
  113.           End If
  114.         End If
  115.       End If
  116.   943 If UCase(s4622) = "V" Or UCase(s4622) = "W" Or UCase(s4622) = "X" Then
  117.         b4615 = 1
  118.       Else
  119.  1008   If UCase(s4622) = "Y" Or UCase(s4622) = "Z" Then
  120.           b4615 = 1
  121.         Else
  122.  1057     If UCase(s4622) = "S" Or UCase(s4622) = "T" Or UCase(s4622) = "U" Then
  123.             b4615 = 2
  124.           Else
  125.  1122       If UCase(s4622) = "P" Or UCase(s4622) = "Q" Or UCase(s4622) = "R" Then
  126.               b4615 = 3
  127.             Else
  128.  1187         If UCase(s4622) = "M" Or UCase(s4622) = "N" Or UCase(s4622) = "O" Then
  129.                 b4615 = 4
  130.               Else
  131.  1252           If UCase(s4622) = "J" Or UCase(s4622) = "K" Or UCase(s4622) = "L" Then
  132.                   b4615 = 5
  133.                 Else
  134.  1317             If UCase(s4622) = "G" Or UCase(s4622) = "H" Or UCase(s4622) = "I" Then
  135.                     b4615 = 6
  136.                   Else
  137.  1382               If UCase(s4622) = "D" Or UCase(s4622) = "E" Or UCase(s4622) = "F" Then
  138.                       b4615 = 7
  139.                     Else
  140.  1447                 If UCase(s4622) = "A" Or UCase(s4622) = "B" Or UCase(s4622) = "C" Then
  141.                         b4615 = 8
  142.                       End If
  143.                     End If
  144.                   End If
  145.                 End If
  146.               End If
  147.             End If
  148.           End If
  149.         End If
  150.       End If
  151.  1506 If UCase(s4626) = "V" Or UCase(s4626) = "W" Or UCase(s4626) = "X" Then
  152.         b4616 = 1
  153.       Else
  154.  1571   If UCase(s4626) = "Y" Or UCase(s4626) = "Z" Then
  155.           b4616 = 1
  156.         Else
  157.  1620     If UCase(s4626) = "S" Or UCase(s4626) = "T" Or UCase(s4626) = "U" Then
  158.             b4616 = 2
  159.           Else
  160.  1685       If UCase(s4626) = "P" Or UCase(s4626) = "Q" Or UCase(s4626) = "R" Then
  161.               b4616 = 3
  162.             Else
  163.  1750         If UCase(s4626) = "M" Or UCase(s4626) = "N" Or UCase(s4626) = "O" Then
  164.                 b4616 = 4
  165.               Else
  166.  1815           If UCase(s4626) = "J" Or UCase(s4626) = "K" Or UCase(s4626) = "L" Then
  167.                   b4616 = 5
  168.                 Else
  169.  1880             If UCase(s4626) = "G" Or UCase(s4626) = "H" Or UCase(s4626) = "I" Then
  170.                     b4616 = 6
  171.                   Else
  172.  1945               If UCase(s4626) = "D" Or UCase(s4626) = "E" Or UCase(s4626) = "F" Then
  173.                       b4616 = 7
  174.                     Else
  175.  2010                 If UCase(s4626) = "A" Or UCase(s4626) = "B" Or UCase(s4626) = "C" Then
  176.                         b4616 = 8
  177.                       End If
  178.                     End If
  179.                   End If
  180.                 End If
  181.               End If
  182.             End If
  183.           End If
  184.         End If
  185.       End If
  186.  2069 If UCase(s4630) = "V" Or UCase(s4630) = "W" Or UCase(s4630) = "X" Then
  187.         b4617 = 1
  188.       Else
  189.  2134   If UCase(s4630) = "Y" Or UCase(s4630) = "Z" Then
  190.           b4617 = 1
  191.         Else
  192.  2183     If UCase(s4630) = "S" Or UCase(s4630) = "T" Or UCase(s4630) = "U" Then
  193.             b4617 = 2
  194.           Else
  195.  2248       If UCase(s4630) = "P" Or UCase(s4630) = "Q" Or UCase(s4630) = "R" Then
  196.               b4617 = 3
  197.             Else
  198.  2313         If UCase(s4630) = "M" Or UCase(s4630) = "N" Or UCase(s4630) = "O" Then
  199.                 b4617 = 4
  200.               Else
  201.  2378           If UCase(s4630) = "J" Or UCase(s4630) = "K" Or UCase(s4630) = "L" Then
  202.                   b4617 = 5
  203.                 Else
  204.  2443             If UCase(s4630) = "G" Or UCase(s4630) = "H" Or UCase(s4630) = "I" Then
  205.                     b4617 = 6
  206.                   Else
  207.  2508               If UCase(s4630) = "D" Or UCase(s4630) = "E" Or UCase(s4630) = "F" Then
  208.                       b4617 = 7
  209.                     Else
  210.  2573                 If UCase(s4630) = "A" Or UCase(s4630) = "B" Or UCase(s4630) = "C" Then
  211.                         b4617 = 8
  212.                       End If
  213.                     End If
  214.                   End If
  215.                 End If
  216.               End If
  217.             End If
  218.           End If
  219.         End If
  220.       End If
  221.  2632 s4607 = Str(i4613) + Str(b4615) + Str(b4616) + Str(b4617)
  222.       b4611 = 0
  223.       If s4607 = s4463 Then
  224.         b4611 = 1
  225.       End If
  226.  2703 Sub2763
  227.       Sub3656
  228.  
  229. '! Called 1 time
  230.       Sub Sub2763
  231.         Dim l65526 As Long
  232.         Dim i65530 As Integer
  233.         Dim s65532 As String
  234.  
  235.         s65532 = "@07@" + Spc(23)
  236.         Cls 
  237.         Print s65532; "@7F@"; Chr(218);
  238.         Print String(28, Chr(196));
  239.         Print "@70@"; Chr(191)
  240.         Print s65532; "@7F@"; Chr(179); Spc(28); "@70@"; Chr(179)
  241.         Print s65532; "@7F@"; Chr(179); Tab(32); "@70@AUCTION ONLINE"; Spc(7); Chr(179)
  242.         Print s65532; "@7F@"; Chr(179); Spc(28); "@70@"; Chr(179)
  243.         Print s65532; "@7F@"; Chr(179); Spc(8); "@70@Version 1.1"; Spc(9); Chr(179)
  244.  3051   For i4645 = 1 To 4 Step 1
  245.           Print s65532; "@7F@"; Chr(179); Spc(28); "@70@"; Chr(179)
  246.         Next
  247.  3167   Print s65532; "@7F@"; Chr(179); Spc(5); "@70@(C) Copyright 1995"; Spc(5); Chr(179)
  248.         Print s65532; "@7F@"; Chr(179); Spc(7); "@70@Scott Bradbury"; Spc(7); Chr(179)
  249.         Print s65532; "@7F@"; Chr(179); Spc(28); "@70@"; Chr(179)
  250.         Print s65532; "@7F@"; Chr(192);
  251.         Print "@70@"; String(28, Chr(196));
  252.         Print Chr(217)
  253.         Print "@07@"
  254.         If b4611 = 0 Then
  255.           Print Tab(34); "@0C@UNREGISTERED"
  256.           Print
  257.           Print Tab(15); "@0E@Sysop:@0F@ "; MakeWild.SysopName; Tab(45); "@0E@BBS:@0F@ "; MakeWild.BBSName
  258.           Print
  259.           Print Tab(13); "@0C@Encourage your Sysop to register and remove this delay."
  260.           Print
  261.           Print Tab(16); "@0E@Support BBS@0F@  ■  @0B@The Coral Reef@0F@  ■@0E@" + "  (517) 894-0729"
  262.           Delay 10
  263.           Sub6797
  264.         Else
  265.  3525     If b4611 = 1 Then
  266.             Print Tab(34); "@0A@REGISTERED"
  267.             Print
  268.             Print Tab(15); "@0E@Sysop:@0F@ "; MakeWild.SysopName; Tab(45); "@0E@BBS:@0F@ "; MakeWild.BBSName
  269.             Print
  270.             Print Tab(15); "@0E@Support BBS@0F@  ■  @0B@The Coral Reef@0F@  ■@0E@" + "  (517) 894-0729"
  271.             Print
  272.             Sub6797
  273.           End If
  274.         End If
  275.  3649
  276.       End Sub
  277.  
  278. '! Called 8 times
  279.       Sub Sub3656
  280.         Dim l65499 As Long
  281.         Dim i65503 As Integer
  282.         Dim l65505 As Long
  283.         Dim i65509 As Integer
  284.         Dim l65511 As Long
  285.         Dim i65515 As Integer
  286.         Dim l65517 As Long
  287.         Dim i65521 As Integer
  288.         Dim s65523 As String
  289.         Dim s65527 As String
  290.         Dim s65531 As String*1
  291.         Dim s65532 As String
  292.  
  293.         If RIPEnabled = -1 Then
  294.           Print s4637; "RIP graphics were detected on your terminal.  You may encounter"
  295.           Print s4637; "some strange displays while using this program."
  296.           Print
  297.         End If
  298.  3711   EnablePages 0
  299.         CarrierCheck(-1)
  300.         CurrentDate d4634
  301.         b4596 = d4634.Day - Val(Mid(s4503, 4, 2))
  302.         If b4596 >= b4467 Then
  303.           Cls 
  304.           Print
  305.           Print s4637; "@09@AUCTION ONLINE"
  306.           Print
  307.           Print s4637; "@0F@Someone has already held the bid for @0E@"; b4467; "@0F@" + " consecutive days."
  308.           Print
  309.           Print s4637; "Try bidding in the next auction."
  310.           Print
  311.           Print s4637; "Please inform the Sysop that Auction Online needs to be reset."
  312.  3886     For i4645 = 1 To 8 Step 1
  313.             Print
  314.           Next
  315.  3961     Sub6797
  316.           Cls 
  317.           Print s4637; "@09@AUCTION ONLINE"
  318.           Print
  319.           Print s4637; "@0E@"; UCase(s4473); "@0F@ has placed a bid of @0E@"; l4507; "" + "@0F@ credits."
  320.           Print s4637; "The item up for bid was:  @0E@"; UCase(s4469)
  321.           Print "@0F@"
  322.           Print s4637; "The bid remained up for @0E@"; b4467; "@0F@ days which is the limit" + " to stay posted"
  323.           Print s4637; "without any new bids as configured by the Sysop."
  324.           Print
  325.           Print
  326.           Print
  327.           Print Tab(25); "@0C@CONGRATULATIONS "; UCase(s4473); "!"
  328.  4187     For i4645 = 1 To 7 Step 1
  329.             Print
  330.           Next
  331.  4262     Pause 
  332.           Open "c:\auction\" + "winner.txt" For Output As 3
  333.           Print #3, "AUCTION ONLINE"
  334.           Print #3, "------------------------------------------"
  335.           Print #3, "We have a winner!"
  336.           Print #3,
  337.           Print #3, UCase(s4473) + " placed a bid of "; l4507; " credits."
  338.           Print #3, "Don't forget to award them the item that was up for auction."
  339.           Print #3,
  340.           Print #3, "Please set up a new auction at this time."
  341.           Close 3
  342.           Sub6584
  343.           End 
  344.         End If
  345.  4395   If UCase(s4468) = "S" Then
  346.           r4590 = User.SubscriptionBalance
  347.         Else
  348.  4439     If UCase(s4468) = "N" Then
  349.             r4590 = User.NetMailBalance
  350.           End If
  351.         End If
  352.  4477   l4597 = Int(r4590 / 100)
  353.         r4601 = r4590 - l4597
  354.         l4597 = r4590 - r4601
  355.         r4590 = l4597
  356.         Cls 
  357.         Print s4637;
  358.  4576   For i4645 = 1 To 7 Step 1
  359.           Print "@09@"; Chr(220); Chr(220); Chr(220); Chr(220); Chr(220) + "@0E@"; Chr(220); Chr(220); Chr(220); Chr(220); Chr(220);
  360.         Next
  361.  4735   Print
  362.         Print Tab(32); "@0F@AUCTION ONLINE"
  363.         Print s4637;
  364.  4783   For i4645 = 1 To 7 Step 1
  365.           Print "@09@"; Chr(223); Chr(223); Chr(223); Chr(223); Chr(223) + "@0E@"; Chr(223); Chr(223); Chr(223); Chr(223); Chr(223);
  366.         Next
  367.  4942   Print
  368.         Print
  369.         Print "@09@"; s4637; Chr(218); String(68, Chr(196)); Chr(191)
  370.         Print s4637; Chr(179); "@0B@ Current Item up for Bid: "; Tab(74); "@09@"; Chr(179)
  371.         Print "@09@"; s4637; Chr(192); String(68, Chr(196)); Chr(217)
  372.         Locate 6, 33
  373.         Print "@0F@"; UCase(s4469)
  374.         Print
  375.         Print Tab(17); "@0E@"; s4473; " posted the last bid on @0F@"; s4503; "@0E@."
  376.         Print Tab(27); "@0E@The Bid is now at @0F@"; l4507; "@0E@."
  377.         Print
  378.         Print s4637; "@0B@"; "     "; s4515; "     "
  379.         Print
  380.         Print s4637; "@09@A winner will be declared if the bid remains the same " + "for @0E@"; b4467; "@09@ days."
  381.         Print s4637; "@0C@Your Account Balance: @0F@"; l4597
  382.         Print
  383.         Print s4637; "@09@[@0E@B@09@]id on Item   [@0E@I@09@]nformation   [@0E@Q@09@]uit" + "  -> ";
  384.         Do
  385.  5298     s4647 = UCase(InKey(1213417543))
  386.         Loop Until InStr("BIQ", s4647) > 0
  387.         Print s4647
  388.         Print
  389.         s65532 = UCase(s4647)
  390.         If s65532 = "I" Then
  391.           Do
  392.  5380       Cls 
  393.             Print
  394.             Print s4641; "@09@Information Menu"
  395.             Print
  396.             Print s4641; "[@0E@1@09@] Detailed Information on Item"
  397.             Print s4641; "[@0E@2@09@] Help on Using Auction Online"
  398.             Print s4641; "[@0E@3@09@] Return to Auction Screen"
  399.             Print
  400.             Print s4641; "Choice ->@0F@ ";
  401.             Do
  402.  5464         s4647 = UCase(InKey(1213417543))
  403.             Loop Until InStr("123", s4647) > 0
  404.             Print s4647
  405.             s65531 = s4647
  406.             If s65531 = "1" Then
  407.               Cls 
  408.               DisplayTextFile("c:\auction\" + "info1.hlp")
  409.               Sub6797
  410.             Else
  411.  5576         If s65531 = "2" Then
  412.                 Cls 
  413.                 DisplayTextFile("c:\auction\" + "info2.hlp")
  414.                 Sub6797
  415.               Else
  416.  5626           If s65531 = "3" Then
  417.                   Sub3656
  418.                   GoTo 5657
  419.                 End If
  420.               End If
  421.             End If
  422.  5657     Loop
  423.         Else
  424.  5669     If s65532 = "Q" Then
  425.             Print
  426.             Print
  427.             Sub6584
  428.           Else
  429.  5702       If s65532 = "B" Then
  430.               Print s4637; "@09@Current bid now stands at @0E@"; l4507; "@09@."
  431.               Print
  432.               Print s4637; "How much do you want to bid?@0F@ ";
  433.               Input l4511
  434.               If l4511 < l4507 Then
  435.                 Print
  436.                 Print s4637; "@0C@Sorry...your bid is lower than the current bid."
  437.                 Delay 2
  438.                 Sub3656
  439.               Else
  440.  5827           If l4511 > l4507 Then
  441.                   Do
  442.  5845               Print s4637; "@09@Bid @0E@"; l4511; "@09@ on this item?" + "  (@0F@Y@09@/@0F@N@09@)@0F@ ";
  443.                     Input s4647
  444.                     s65527 = UCase(s4647)
  445.                     If s65527 = "N" Then
  446.                       Sub3656
  447.                     Else
  448.  5931                 If s65527 = "Y" Then
  449.                         If l4511 > r4590 Then
  450.                           Print s4637; "@0C@You don't have enough credits."
  451.                           Delay 3
  452.                           Sub3656
  453.                         Else
  454.  6002                     If l4511 <= r4590 Then
  455.                             Print
  456.                             Print s4637; "@0A@Your bid has been posted."
  457.                             Delay 1.5
  458.                             CurrentDate d4634
  459.                             s4503 = FormatDate(d4634, "MM/DD/YY")
  460.                             s4473 = User.Name
  461.                             Sub6639
  462.                             Print #8, s4503; Spc(5); User.Name + " posted a" + " bid for " + Str(l4511) + "."
  463.                             Sub6678
  464.                             Do
  465.  6154                         Cls 
  466.                               Print
  467.                               Print s4637; "@09@Would you like to leave a comment to other" + " bidders?  (@0F@Y@09@/@0F@N@09@) ";
  468.                               Do
  469.  6181                           s4647 = UCase(InKey(1213417543))
  470.                               Loop Until InStr("YN", s4647) > 0
  471.                               Print s4647
  472.                               s65523 = UCase(s4647)
  473.                               If s65523 = "N" Then
  474.                                 Print
  475.                                 s4515 = "The last bidder had no comment."
  476.                                 Sub6853
  477.                                 Sub6584
  478.                               Else
  479.  6292                           If s65523 = "Y" Then
  480.                                   Do
  481.  6309                               Print s4637; "@09@Message (Max. of 70 characters):"
  482.                                     Print s4637; "@0B@>@0F@ ";
  483.                                     Input s4515
  484.                                     b4648 = Len(s4515)
  485.                                     If b4648 > 70 Then
  486.                                       Print
  487.                                       Print s4637; "Message must be 70 characters or less."
  488.                                       Delay 2
  489.                                     Else
  490.  6407                                 If b4648 < 70 Then
  491.                                         GoTo 6434
  492.                                       End If
  493.                                     End If
  494.  6428                             Loop
  495.  6434                             Print
  496.                                   Print s4637; "Thanks!"
  497.                                   Delay 1
  498.                                   GoTo 6477
  499.                                   GoTo 6471
  500.                                 End If
  501.                               End If
  502.  6471                       Loop
  503.  6477                       Sub6853
  504.                             Sub3656
  505.                           End If
  506.                         End If
  507.  6489                   GoTo 6495
  508.                       End If
  509.                     End If
  510.  6495             Loop
  511.                 Else
  512.  6507             If l4511 = l4507 Then
  513.                     Print
  514.                     Print s4637; "@0C@You entered the same amount already posted."
  515.                     Delay 2
  516.                     Sub3656
  517.                   End If
  518.                 End If
  519.               End If
  520.  6556       Else
  521.  6562         Sub3656
  522.             End If
  523.           End If
  524.         End If
  525.  6568   End 
  526.       End Sub
  527.  
  528. '! Called 4 times
  529.       Sub Sub6584
  530.         Cls 
  531.         Print
  532.         Print s4637; "@09@Thanks for using @0F@Auction Online - Version 1.1@09@!"
  533.         Print s4637; "(C) Copyright 1995 Scott Bradbury"
  534.         Delay 3
  535.       End Sub
  536.  
  537. '! Called 1 time
  538.       Sub Sub6639
  539.         Open "c:\auction\" + "auction.log" For Append As 8
  540.       End Sub
  541.  
  542. '! Called 1 time
  543.       Sub Sub6678
  544.         Close 8
  545.       End Sub
  546.  
  547. '! Called 1 time
  548.       Function Func6695(s65534 As String) As Boolean
  549.         o4636 = Exists("c:\auction\" + s65534)
  550.         If o4636 = 0 Then
  551.           Print
  552.           Print s4637; "@0C@The file @0E@"; UCase(s65534); "@0C@ could not be found."
  553.           Print s4637; "Please inform the System Operator."
  554.         End If
  555.  6789
  556.       End Function
  557.  
  558. '! Called 5 times
  559.       Sub Sub6797
  560.         Print
  561.         Print s4637; "@07@[RETURN]";
  562.  6823   Do While InKey(1213417543) <> Chr(13)
  563.         Loop
  564.  6850
  565.       End Sub
  566.  
  567. '! Called 2 times
  568.       Sub Sub6853
  569.         Open "c:\auction\" + "auction.cfg" For Output As 1
  570.         Print #1, s4463
  571.         Print #1, b4467
  572.         Print #1, s4468
  573.         Print #1, s4469
  574.         Print #1, s4473
  575.         Print #1, s4503
  576.         Print #1, l4511
  577.         Print #1, s4515
  578.         Close 1
  579.       End Sub
  580.