home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / misc2 / jk_disk.lzh / MENU.HLP < prev    next >
Encoding:
Text File  |  1990-12-11  |  2.7 KB  |  36 lines
  1.                           !  CLEAR PENDING RECORD
  2.  796   4           UPDNAMES                                 !  CALL FORM FOR NEW RECORD
  3.  797   4           IF ~ACTION                               !  IF RECORD WAS ADDED
  4.  798   5             NEWPTR = POINTER(NAMES)                !    SET POINTER TO NEW RECORD
  5.  799   5             DO FIND_RECORD                         !    POSITION IN FILE
  6.  800   5           .
  7.  801   4         OF ENTER_KEY                               !ENTER KEY
  8.  802   4         OROF ACCEPT_KEY                            !CTRL-ENTER KEY
  9.  803   4           DO GET_RECORD                            !  GET THE SELECTED RECORD
  10.  804   4           IF ACTION = 4 AND KEYCODE() = ENTER_KEY  !  IF THIS IS A LOOKUP REQUEST
  11.  805   5             ACTION = 0                             !    SET ACTION TO COMPLETE
  12.  806   5             BREAK                                  !    AND RETURN TO CALLER
  13.  807   5           .
  14.  808   4           IF ~ERROR()                              !  IF RECORD IS STILL THERE
  15.  809   5             ACTION = 2                             !    SET ACTION TO CHANGE
  16.  810   5             UPDNAMES                               !    CALL FORM TO CHANGE REC
  17.  811   5             IF ACTION THEN CYCLE.                  !    IF SUCCESSFUL RE-DISPLAY
  18.  812   5           .
  19.  813   4           NEWPTR = POINTER(NAMES)                  !    SET POINTER TO NEW RECORD
  20.  814   4           DO FIND_RECORD                           !    POSITION IN FILE
  21.  815   4         OF DEL_KEY                                 !DEL KEY
  22.  816   4           DO GET_RECORD                            !  READ THE SELECTED RECORD
  23.  817   4           IF ~ERROR()                              !  IF RECORD IS STILL THERE
  24.  818   5             ACTION = 3                             !    SET ACTION TO DELETE
  25.  819   5             UPDNAMES                               !    CALL FORM TO DELETE
  26.  820   5             IF ~ACTION                             !    IF SUCCESSFUL
  27.  821   6               N# = NDX                             !      SAVE POINT INDEX
  28.  822   6               DO SAME_PAGE                         !      RE-DISPLAY
  29.  823   6               NDX = N#                             !      RESTORE POINT INDEX
  30.  824   6           . .
  31.  825   4         OF DOWN_KEY                                !DOWN ARROW KEY
  32.  826   4           DO SET_NEXT                              !  POINT TO NEXT RECORD
  33.  827   4           DO FILL_NEXT                             !  FILL A TABLE ENTRY
  34.  828   4           IF FOUND                                 !  FOUND A NEW RECORD
  35.  829   5             SCROLL(ROW,COL,ROWS,COLS,ROWS(?POINT)) !    SCROLL THE SCREEN UP
  36.  830   5             GET(TABLE,RECORDS(TABLE))              !  GET RECORD FROM TABLE