(*$"GLOBAL.INC" *)                                          
BEGIN                                                       
  REPEAT                                                    
    WRITELN('V)ORBELEGEN L)OESCHEN A)USGEBEN ODER E)NDE?'); 
    READLN(WAHL);                                           
    CASE WAHL OF                                            
    'V': CHAIN('VORBELEGEN.M');                             
    'L': CHAIN('LOESCHEN.M');                               
    'A': CHAIN('AUSGEBEN.M');                               
    ELSE                                                    
    END;                                                    
  UNTIL WAHL = 'E'                                          
END.