ftp.wwiv.com/ftp.wwiv.com.zip/ftp.wwiv.com/pub/MISC/IPADMGR.ZIP/SOURCE.ZIP/FEEEDIT.PRG

Text File | 1995-12-17 | 6KB | 211 lines

*:*****************************************************************************
*:
*:        Program: D:\IPADMGR\SOURCE\FEEEDIT.PRG
*:
*:         System: IPADEDIT
*:         Author: Jeff Johnson
*:      Copyright (c) 1996, BBS Consultants, Inc.
*:  Last modified: 12/17/95     22:45
*:
*:      Called by: IPADEDIT.PRG
*:
*:      Documented 10/01/96 at 13:17                SNAP!  version 5.02
*:*****************************************************************************
SELECT 3
GOTO TOP
SET COLOR TO W+/N
CLEAR
SET COLOR TO N/BG
@ 0,0 SAY "                                                                                "
STORE Len(serv_name) /2 TO m
@ 0,39-m SAY serv_name
SET COLOR TO W+/R
@ 0,0 SAY " IpadMgr " + Version + " "
@ 0,78-Len(domain) SAY " " + domain + " "
SET COLOR TO N/W
@ 1,0 SAY " ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ "
@ 2,0 SAY " "
@ 2,79 SAY " "
@ 3,0 SAY " "
@ 3,79 SAY " "
@ 4,0 SAY " "
@ 4,79 SAY " "
@ 5,0 SAY " "
@ 5,79 SAY " "
@ 6,0 SAY " "
@ 6,79 SAY " "
@ 7,0 SAY " ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ SLIP/PPP Default Settings ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ "
@ 8,0 SAY " "
@ 8,79 SAY " "
@ 9,0 SAY " "
@ 9,79 SAY " "
@ 10,0 SAY " "
@ 10,79 SAY " "
@ 11,0 SAY " "
@ 11,79 SAY " "
@ 12,0 SAY " ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ FTP Default Settings ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ "
@ 12,0 SAY " "
*@ 12,0 Say " "
*@ 12,79 Say " "
@ 13,0 SAY " "
@ 13,79 SAY " "
@ 14,0 SAY " "
@ 14,79 SAY " "
@ 15,0 SAY " "
@ 15,79 SAY " "
@ 16,0 SAY " "
@ 16,79 SAY " "
@ 17,0 SAY " "
@ 17,79 SAY " "
@ 18,0 SAY " "
@ 18,79 SAY " "
@ 19,0 SAY "▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
@ 18,0 SAY " ESC - Quit "
SET COLOR TO N/W
@ 22,0 SAY "<ESC> Exit               BROWSE MODE      <E>-Edit      <Page Up/Down>-Browse   "
SET COLOR TO W+/N
@ 2,11 SAY "Description"
@ 3,2 SAY "Days for Level  "
@ 4,2 SAY "Price for Level "
@ 5,2 SAY "Route for Level "
@ 6,2 SAY "Minutes in base rate "
*@ 3,54 Say "Enable Pop-Mail  "
*@ 4,54 Say "Free PPP/Slip  "
*@ 5,54 Say "Free Ftp       "
@ 5,44 SAY "Bill at Hourly Rate (Daily)"
@ 6,44 SAY "Bill at Hourly Rate (Monthly)"
@ 8,2 SAY "Slip Max Idle Time                Seconds"
@ 8,54 SAY "Enable Slip/PPP Access"
@ 9,2 SAY "Slip Max Connect Time             Seconds"
@ 9,54 SAY "Enable POP Mail Access"
@ 10,2 SAY "Slip Max Simultaneous Logins"
@ 10,54 SAY "Slip rate/hour"
@ 13,2 SAY "Ftp Directory   "
@ 13,54 SAY "Enable FTP Access"
@ 14,2 SAY "FTP Max Idle Time               Seconds"
@ 14,54 SAY "FTP rate/hour"
@ 15,2 SAY "FTP Max Connect Time            Seconds"
@ 17,2 SAY "Flags :"
@ 17,9 SAY "RD-"
@ 17,15 SAY "WR-"
@ 17,21 SAY "CF-"
@ 17,27 SAY "DF-"
@ 17,33 SAY "MD-"
@ 17,39 SAY "RM-"
@ 17,45 SAY "NR-"
@ 17,51 SAY "AN-"
@ 17,57 SAY "AD-"
@ 17,63 SAY "ND-"
@ 17,69 SAY "PA-"
@ 17,74 SAY "SU-"
DO WHILE .T.
   SET COLOR TO W+/N
   @ 2,2 SAY "Level " + Str(Recno(),2)
   SET COLOR TO W+/RB, W+/RB
   @ 2,23 SAY Desc
   @ 3,23 SAY days
   @ 4,23 SAY amount
   @ 5,23 SAY route
   @ 6,23 SAY minutes
   *   @ 3,77 Say Free_pop Picture "Y"
   *   @ 4,77 Say Free_Slip Picture "Y"
   *   @ 5,77 Say Free_Ftp Picture "Y"
   @ 5,77 SAY daily PICTURE "Y"
   @ 6,77 SAY hourly PICTURE "Y"
   @ 8,25 SAY s_max_idle
   @ 8,77 SAY ppp_slip PICTURE "Y"
   @ 9,77 SAY popmail PICTURE "Y"
   @ 9,25 SAY s_max_conn
   @ 10,31 SAY max_logins
   @ 10,72 SAY s_rate
   @ 13,23 SAY ftp_dir
   @ 13,77 SAY ftp PICTURE "Y"
   @ 14,23 SAY f_max_idle
   @ 14,72 SAY f_rate
   @ 15,23 SAY f_max_conn
   @ 17,12 SAY READ PICTURE "Y"
   @ 17,18 SAY write PICTURE "Y"
   @ 17,24 SAY CREATE PICTURE "Y"
   @ 17,30 SAY DELETE PICTURE "Y"
   @ 17,36 SAY mkdir PICTURE "Y"
   @ 17,42 SAY rmdir PICTURE "Y"
   @ 17,48 SAY noredir PICTURE "Y"
   @ 17,54 SAY anydir PICTURE "Y"
   @ 17,60 SAY anydrive PICTURE "Y"
   @ 17,66 SAY nodrive PICTURE "Y"
   @ 17,72 SAY putany PICTURE "Y"
   @ 17,77 SAY super PICTURE "Y"
   SET COLOR TO N/W
   @ 22,0 SAY "<ESC> Exit               BROWSE MODE      <E>-Edit      <Page Up/Down>-Browse   "
   SET COLOR TO N/N
   SET CONFIRM OFF
   STORE " " TO mvar
   @ 22,79 GET mvar
   READ
   SET CONFIRM ON
   SET COLOR TO W+/N
   DO CASE
   CASE Readkey() = 12
      SET COLOR TO W+/N, N/W
      EXIT
   CASE Readkey() = 6
      IF .NOT. Bof()
         SKIP -1
      ENDIF
      IF Bof()
         GOTO TOP
      ENDIF
      LOOP
   CASE Readkey() = 7
      IF .NOT. Eof()
         SKIP 1
      ENDIF
      IF Eof()
         GOTO BOTTOM
      ENDIF
      LOOP
   CASE Upper(mvar) = "E"
      SET COLOR TO N/W
      @ 22,0 SAY "<ESC> Exit                 EDIT MODE                                            "
      SET COLOR TO W+/N
      @ 2,2 SAY "Level " + Str(Recno(),2)
      SET COLOR TO N/W
      @ 2,23 GET Desc
      @ 3,23 GET days
      @ 4,23 GET amount
      @ 5,23 GET route
      @ 6,23 GET minutes
      *        @ 3,77 Get Free_pop Picture "Y"
      *        @ 4,77 Get Free_Slip Picture "Y"
      *        @ 5,77 Get Free_Ftp Picture "Y"
      @ 5,77 GET daily PICTURE "Y"
      @ 6,77 GET hourly PICTURE "Y"
      @ 8,25 GET s_max_idle
      @ 8,77 GET ppp_slip PICTURE "Y"
      @ 9,77 GET popmail PICTURE "Y"
      @ 9,25 GET s_max_conn
      @ 10,31 GET max_logins
      @ 10,72 GET s_rate
      @ 13,23 GET ftp_dir
      @ 13,77 GET ftp PICTURE "Y"
      @ 14,23 GET f_max_idle
      @ 14,72 GET f_rate
      @ 15,23 GET f_max_conn
      @ 17,12 GET READ PICTURE "Y"
      @ 17,18 GET write PICTURE "Y"
      @ 17,24 GET CREATE PICTURE "Y"
      @ 17,30 GET DELETE PICTURE "Y"
      @ 17,36 GET mkdir PICTURE "Y"
      @ 17,42 GET rmdir PICTURE "Y"
      @ 17,48 GET noredir PICTURE "Y"
      @ 17,54 GET anydir PICTURE "Y"
      @ 17,60 GET anydrive PICTURE "Y"
      @ 17,66 GET nodrive PICTURE "Y"
      @ 17,72 GET putany PICTURE "Y"
      @ 17,77 GET super PICTURE "Y"
      READ
   ENDCASE
ENDDO

*: EOF: FEEEDIT.PRG