DataMuseum.dk

top - metrics - download

    Length: 1585 (0x631)
    Types: TextFile
    Names: »MY_VERI.TXT«

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

TextFile

      

      !==============================================================ø  
      ! my_veri: Put up an appropriately-sized window with a message ø 
      !          as the title and a "OK  Cancel" menu.  Beep for     ø
      !          attention when menu comes up (new feature).         ø
      !==============================================================ø
      

IF message = ''   !if no new value for message, use standard.
   message = 'Continue?' !the title message
   END IF 

!Calculate how much bigger to make window 
msg_width = length(message)                      !STEP 1 (ADD) 
IF msg_width > 15                                !STEP 2 (ADD) 
    add_width = msg_width - 15
ELSE
    add_width = 0 
    END IF                       

!Define Window & put up window and menu 
                                                    !STEP 3 (MODIFY) 
WINDOW menwind = SIZE (15 + add_width) BY 3 AT 32,10 FRAMED 
WINDOW mentitle = TOP 1 in menwind MODE TITLE
WINDOW menprompt = BOTTOM 1 in menwind MODE PROMPT
SCREEN menwind
   PUT IN mentitle message FILLED
   PUT IN menprompt '<do>  <undo>' FILLED
   PUT IN menwind AT (add_width / 2),1              !STEP 4 (MODIFY) 
   PUT DO BEEP 
   !----------------------------------- 
   MENU
      : OK :        do_it = TRUE 
      : Cancel :    do_it = FALSE 
      : K_UNDO :    do_it = FALSE 
      END MENU 
  !------------------------------------ 
  END SCREEN 
  
!Erase value of message 
message = ''
!____________________________________________________________________________