home *** CD-ROM | disk | FTP | other *** search
/ The Pier Shareware 6 / The_Pier_Shareware_Number_6_(The_Pier_Exchange)_(1995).iso / 005 / tjnew10.zip / TJNEW.WCX (.txt) < prev    next >
Wildcat! WCX  |  1994-12-17  |  2KB  |  122 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  1755 bytes  02/01/123  06:46:44am
  3. '! Code Segment Size  :934 bytes
  4. '! Data Segment Size  :5268 bytes
  5. '! String Segment Size:821 bytes
  6. '! Compiled with WCC version 4.01
  7.  
  8.       Declare Function Func589 As Integer
  9.       Declare Function Func646 As Integer
  10.       Declare Function Func713 As Integer
  11.       Declare Function Func824 As Integer
  12.       Declare Function Func898 As Integer
  13.  
  14.       Dim i4463 As Integer
  15.       Dim s4465 As String*20
  16.       Dim ur4485 As UserRecord
  17.       Dim d5135 As Date
  18.       Dim s5137 As String
  19.       Dim s5141 As String
  20.       Dim s5145 As String
  21.       Dim t5149 As Time
  22.       Dim s5153 As String
  23.       Dim i5157 As Integer
  24.       Dim s5159 As String
  25.       Dim s5163 As String
  26.       Dim s5167 As String
  27.       Dim s5172 As String
  28.       Dim s5176 As String*12
  29.       Dim s5188 As String*80
  30.  
  31.       CurrentDate d5135
  32.       s5141 = FormatDate(d5135, "mm/dd/yy")
  33.       s5145 = FormatDate(d5135, "mm/dd/yy")
  34.       CurrentTime t5149
  35.       s5153 = FormatTime(t5149, "HH:MM")
  36.       Cls 
  37.       Locate 1, 5
  38.       Color 15, 0
  39.       Print "                Running TJNew v1.00......please wait"
  40.       Func713
  41.       Open s5159 For Output As 2
  42.       Open s5163 For Output As 3
  43.       Func646
  44.       i5157 = 0
  45.       Func589
  46.       i4463 = 0
  47.   193 Do While GetNextUser(ur4485, 1213417543)
  48.         d5135 = ur4485.Usersince '! 2 bytes
  49.         s5137 = FormatDate(d5135, "mm/dd/yy")
  50.         If Left(s5141, 2) = Left(s5137, 2) Then
  51.           If Right(s5141, 2) = Right(s5137, 2) Then
  52.             i4463 = i4463 + 1
  53.             s4465 = Pad(ur4485.Name, 25)
  54.             s5176 = s5137
  55.             Print #2, " @0F@  " + UCase(s4465) + "@0E@ On @0B@" + s5176 + "@0E@ From  @0B@" + UCase(ur4485.City) + ", " + UCase(ur4485.State)
  56.             s5172 = ur4485.Name
  57.             i5157 = 1
  58.           End If
  59.         End If
  60.   439 Loop
  61.   445 Color 7, 0
  62.       If i5157 = 0 Then
  63.         Func898
  64.       End If
  65.   472 Func824
  66.       Close 2
  67.       Open s5159 For Input As 2
  68.   503 Do While Not EOF(2)
  69.         Input #2, s5188
  70.         Print #3, s5188
  71.       Loop
  72.   542 Close 2
  73.       Close 3
  74.       End 
  75.  
  76. '! Called 1 time
  77.       Function Func589 As Integer
  78.         Print #2, "@CLS@@0E@@07@@0F@ @BBS@@0E@"
  79.         Print #2, "@0E@ New Users This Month  "
  80.         Print #2, "@0B@ @0D@──────────────────────────────────────────────────────────────────────────────@07@"
  81.         Print #2, ""
  82.       End Function
  83.  
  84. '! Called 1 time
  85.       Function Func646 As Integer
  86.         Print #3, "@NOPAUSE@"
  87.         Print #3, "!|1K|*|w04042D1101|1BH80F0200LS050E000B080900000E050000H8|Y00000100"
  88.         Print #3, "!|1U060900000000<>@BBS@<>"
  89.         Print #3, "!|1U068O00000000<>New Callers This Month<>|c0B|W00|=00000001"
  90.         Print #3, "!|P05000W008G0K8G0K0W0K0W|P05GY0WGY8GHI8GHI0WHI0W|S0109|F0D3B0B|FHA3S0B|#|#|#"
  91.       End Function
  92.  
  93. '! Called 1 time
  94.       Function Func713 As Integer
  95.         s5167 = ProgPath + "tjnew.cfg"
  96.         If Exists(s5167) Then
  97.           Open s5167 For Input As 1
  98.           Input #1, s5159
  99.           Input #1, s5163
  100.           Close 1
  101.         Else
  102.   793     Print
  103.           Print "Can't Find " + ProgPath + "NEWUSERS.CFG"
  104.         End If
  105.   816
  106.       End Function
  107.  
  108. '! Called 1 time
  109.       Function Func824 As Integer
  110.         Print #2, ""
  111.         Print #2, "@07@ @0D@──────────────────────────────────────────────────────────────────────────────@07@"
  112.         Print #2, "@02@ Total New Users: "; i4463
  113.         Print #2, "@02@ New Users This Month (TJNew v1.00) Written by T&J Software "
  114.         Print #2, ""
  115.       End Function
  116.  
  117. '! Called 1 time
  118.       Function Func898 As Integer
  119.         Print "No New Callers This Month"
  120.         Print #2, "@0F@ No New Callers This Month!"
  121.       End Function
  122.