DataMuseum.dk

top - metrics - download

    Length: 2048 (0x800)
    Types: TextFile
    Names: »CRDMENU.TXT«

└─⟦6a1b9f2c5⟧ Bits:30005310/disk3.imd Open Access II v2.10 (dansk)
    └─⟦this⟧ »CRDMENU.TXT« 

TextFile

!CRDMENU
!This brings up window and allows user to select the new type of field for
!the old field - returns menuvalue, menufield1 is the field name
!menufield2 is the value of the menufield1 for the first card 
menuvalue = 0 
WINDOW menuwind = SIZE 60 BY 14 AT 10,5 FRAMED
SCREEN menuwind
   PUT AT 1,-1 MODE PROMPT "<do> <undo> <arrows>" FILLED 
   PUT AT 1,1  MODE TITLE  "Select New Field Type For Field " ØØ
      & menufield1 FILLED
   PUT AT 1,2  MODE TITLE menufield2 FILLED
   bad = TRUE
   WHILE BAD 
      bad = FALSE
      PUT AT 1,-2 MODE NORMAL, DO CLEAR LINE 
      PUT AT 20,4
      MENU VERTICAL
         :ADD1:            menuvalue = 1
         :ADD2:            menuvalue = 2
         :ADD3:            menuvalue = 3
         :ADD4:            menuvalue = 4
         :COMPANY:         menuvalue = 5
         :ATTRIBUTE:       menuvalue = 6
         :LAST_FIRST_MI:   menuvalue = 7
         :FIRST_MI_LAST:   menuvalue = 8
         :DISCARD:  
            menuvalue = 0
         :K_UNDO: 
            menuvalue = -1 
         END MENU 
      IF menuvalue > 0 
         !if menuvalue is already in use warn user 
         IF (menuvalue = value1) or (menuvalue = value2) or ØØ 
            (menuvalue = value3) or (menuvalue = value4) or ØØ 
            (menuvalue = value5) 
            bad = TRUE
            PUT AT 1,-2 MODE ERROR "WARNING: ALREADY IN USE " & ØØ
               "<DO> TO CONTINUE, <UNDO> RETURNS" FILLED
            GET BAD
            BAD = NOT BAD 
            END IF 
         END IF
      END WHILE 
END SCREEN 
«eof»