home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / commandr.zip / COMMANDR.COM / COPY_HLP.CLA < prev    next >
Text File  |  1988-08-20  |  2KB  |  80 lines

  1. COPY_HLP     PROGRAM
  2.   OMIT('**END**')
  3. ╔══════════════════════════════════════════════════╗
  4. ║            COPY_HLP.CLA           ║
  5. ║                           ║
  6. ║  GENERIC MODULE FOR INPUT AND CTRL KEY HANDLING  ║
  7. ║                           ║
  8. ║                           ║
  9. ║           COPYRIGHT @1988           ║
  10. ║     MICHAEL RHEA AND COMPUSOFT SYSTEMS       ║
  11. ║              4714 CLAY               ║
  12. ║         HOUSTON, TX 77023           ║
  13. ║           (713) 926-1711           ║
  14. ╚══════════════════════════════════════════════════╝
  15. **END**
  16.  
  17.  
  18.  
  19.    INCLUDE('STD_KEYS.CLA')
  20.  
  21.  
  22.  
  23. SCREEN         SCREEN      HUE(11,1)
  24.            ROW(3,4)      STRING('Enter Low Value to Copy From:')
  25.          COL(35)  ENTRY(@N4),USE(LOWVAL)
  26.            ROW(4,4)      STRING('Enter Hi  Value to Copy From:')
  27.          COL(35)  ENTRY(@N4),USE(HIVAL)
  28.            ROW(6,4)      STRING('Enter Low Value to Copy To:')
  29.          COL(35)  ENTRY(@N4),USE(LO_INC)
  30.            ROW(7,4)      STRING('Enter Hi  Value to Copy To:')
  31.          COL(35)  ENTRY(@n4),USE(HI_INC)
  32.          .
  33. HLP_FILE    FILE,CREATE,RECLAIM
  34. MEM_KEY        KEY(REC_KEY)
  35. HLP_NTS        MEMO(304)
  36. HLP_REC        RECORD
  37. REC_KEY        LONG
  38. ..
  39. BAK_FILE    FILE,CREATE,RECLAIM
  40. BEM_KEY        KEY(BEC_KEY)
  41. BLP_NTS        MEMO(304)
  42. BLP_REC        RECORD
  43. BEC_KEY        LONG
  44. ..
  45.  
  46.  
  47. FND_FLAG    STRING(1)
  48. LAST_REC    LONG
  49. LowVal        Long
  50. HiVal        Long
  51. LO_INC        Long
  52. HI_INC        LONG
  53. CTR        LONG
  54.    CODE
  55.    ALERT(ESC_KEY)
  56.    OPEN(SCREEN)
  57.    SELECT(1)
  58.      loop I# = 1 to 4
  59.      Accept
  60.      .
  61.    OPEN(HLP_FILE)
  62.    IF ERRORCODE()=2 THEN RETURN.
  63.    CTR = 0
  64.    Loop I# = LO_INC TO HI_INC
  65.     REC_KEY = LOWVAL + CTR
  66.     IF REC_KEY > HIVAL THEN REC_KEY = HIVAL.
  67.     GET(HLP_FILE,MEM_KEY)
  68.     IF ERRORCODE() = 35 THEN CYCLE.
  69.     REC_KEY = I#
  70.     ADD(HLP_FILE)
  71.     IF ERRORCODE() > 0
  72.         BLP_NTS = HLP_NTS
  73.        GET(HLP_FILE,MEM_KEY)
  74.        HLP_NTS =  BLP_NTS
  75.        PUT(HLP_FILE)
  76.     .
  77.     CTR +=1
  78.   .
  79.  
  80.