home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / MISC / IPADMGR.ZIP / LOGCHK.PRG < prev    next >
Text File  |  1996-02-06  |  2KB  |  83 lines
  1. Select 2
  2. Set Exclusive Off
  3. Use Ipadcfg
  4. Store Ltrim(Rtrim(Logfile)) to Clog
  5. If File("&Clog")
  6.    If Fsize("&Clog") < 100
  7.       Quit
  8.    Endif
  9.    Do Case
  10.    Case UAnsi() .And. Val(Uline()) > 0
  11.         Store .N. To Prompt
  12.         Set Color To W+/R
  13.         @ 1,16 Clear To 5,62
  14.         @ 1,16 To 5,62
  15.         @ 2,17 Say " You have credit card transactions in your  "
  16.         @ 3,17 Say " Ipad Manager System. Download now (Y/N)    "
  17.         @ 4,61 Get Prompt Picture "Y"
  18.         Read
  19.         If Prompt
  20.            Select 2
  21.            Use Ipadcfg
  22.            Store Ltrim(Rtrim(Logfile)) to Clog
  23.            If At("\",Clog) =0
  24.               Store Homepath() + Clog To Line
  25.            Else
  26.               Store Clog To Line
  27.            Endif
  28.            Store Rtrim(Line) + " /D /P:B" To Line
  29.            Dotbbs Type 1 Optdata "&Line"
  30.            Store .F. To Success
  31.            Store Ulpeek(246,1) To Byte
  32.            If Byte > 127
  33.               Store Byte -128 To Byte
  34.            Endif
  35.            If Byte > 63
  36.               Store Byte -64 To Byte
  37.            Endif
  38.            If Byte > 31
  39.               Store Byte -32 To Byte
  40.            Endif
  41.            If Byte > 15
  42.               Store Byte -16 To Byte
  43.            Endif
  44.            If Byte > 7
  45.               Store Byte -8 To Byte
  46.            Endif
  47.            If Byte > 3
  48.               Store .T. To Success
  49.               Store Byte -4 To Byte
  50.            Endif
  51.            If Byte > 1
  52.               Store Byte -1 To Byte
  53.            Endif
  54.            If Byte > 0
  55.            Endif
  56.            Set Console On
  57.            If .Not. Success
  58.               Set Color To W+/R
  59.               @ 1,16 Clear To 5,62
  60.               @ 1,16 To 5,62
  61.               @ 2,17 Say "                       "
  62.               Store " " To Mvar
  63.               @ 2,17 Say "Download Failed."
  64.               @ 3,17 Say " Press any key " Get Mvar
  65.               Read
  66.            Endif
  67.         Endif
  68.    Case UAnsi()
  69.         Set Color To W+/R
  70.         @ 1,16 Clear To 4,62
  71.         @ 1,16 To 4,62
  72.         @ 2,17 Say " You have credit card transactions in your  "
  73.         @ 3,17 Say " Ipad Manager System.                       "
  74. *       @ 4,0 Say ""
  75.         Set Color To W/N
  76.         Wait
  77.    Otherwise
  78.         ? "You have credit card transactions in the Ipad Manager System"
  79.         Wait
  80.    Endcase
  81. Endif
  82. Quit
  83.