home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / commandr.zip / COMMANDR.COM / MAK_HELP.CLA < prev    next >
Text File  |  1988-08-20  |  2KB  |  70 lines
  1. EDIT_HLP     PROGRAM
  2.   OMIT('**END**')
  3. ╔══════════════════════════════════════════════════╗
  4. ║            EDIT_HLP.CLA           ║
  5. ║                           ║
  6. ║  GENERIC MODULE FOR INPUT AND CTRL KEY HANDLING  ║
  7. ║                           ║
  8. ║           COPYRIGHT @1988           ║
  9. ║     MICHAEL RHEA AND COMPUSOFT SYSTEMS       ║
  10. ║              4714 CLAY               ║
  11. ║         HOUSTON, TX 77023           ║
  12. ║           (713) 926-1711           ║
  13. ╚══════════════════════════════════════════════════╝
  14. **END**
  15.  
  16.    INCLUDE('\STD_KEYS.CLA')
  17.  
  18.  
  19. SCREEN         SCREEN      WINDOW(14,80),HUE(11,1)
  20.            ROW(1,1)      STRING('╔═{78}╗')
  21.            ROW(2,1)      STRING('║<0{78}>║')
  22.            ROW(3,1)      STRING('╟─{78}╢')
  23.            ROW(4,1)      REPEAT(10);STRING('║<0{78}>║') .
  24.            ROW(14,1)  STRING('╚═{78}╝')
  25.            ROW(2,28)  STRING('UNIVERSAL HELP-MEMO PROGRAM')
  26.            ROW(4,2)      STRING('RECORD NUMBER:')
  27.          COL(17)  ENTRY(@P###P),USE(REC_KEY)
  28.            ROW(9,3)      TEXT(4,76),USE(HLP_NTS)
  29.          .
  30.  
  31. HLP_FILE    FILE,CREATE,RECLAIM
  32. MEM_KEY        KEY(REC_KEY)
  33. HLP_NTS        MEMO(304)
  34. HLP_REC        RECORD
  35. REC_KEY        LONG
  36. ..
  37. FND_FLAG    STRING(1)
  38. LAST_REC    LONG
  39.  
  40.    CODE
  41.    ALERT(ESC_KEY)
  42.    OPEN(SCREEN)
  43.    OPEN(HLP_FILE)
  44.    IF ERRORCODE()=2 THEN CREATE(HLP_FILE).
  45.    REC_KEY=1
  46.    GET(HLP_FILE,MEM_KEY)
  47.    DISPLAY()
  48. ENT_KEY
  49.    FND_FLAG='N'
  50.    SELECT(?REC_KEY)
  51.    ACCEPT
  52.    IF KEYCODE()=ESC_KEY THEN RETURN.
  53.    LAST_REC = REC_KEY
  54.    GET(HLP_FILE,MEM_KEY)
  55.    DISPLAY()
  56.    IF ERRORCODE()>0 THEN ERASE(?HLP_NTS)
  57.    ELSE
  58.       DISPLAY()
  59.       FND_FLAG='Y'
  60.       GOTO ENT_MEM.
  61. ENT_MEM
  62.    ACCEPT
  63.    IF KEYCODE() = ESC_KEY THEN RETURN.
  64.    IF FND_FLAG='Y' THEN PUT(HLP_FILE) ELSE ADD(HLP_FILE).
  65.    ERASE
  66.    REC_KEY = LAST_REC +1
  67.    DISPLAY()
  68.    GOTO ENT_KEY
  69.    RETURN
  70.