From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: **
X-Spam-Status: No, score=2.0 required=5.0 tests=BAYES_00,INVALID_DATE,
	MSGID_SHORT,REPLYTO_WITHOUT_TO_CC,UNRESOLVED_TEMPLATE autolearn=no
	autolearn_force=no version=3.4.4
Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.3 4.3bsd-beta 6/6/85; site ucbvax.BERKELEY.EDU
Path: utzoo!watmath!clyde!burl!ulysses!ucbvax!QZCOM.MAILNET!Jan_Michael_Rynning
From: Jan_Michael_Rynning@QZCOM.MAILNET
Newsgroups: net.lang.ada
Subject: ForTran-Ada + flamette + question
Message-ID: <175289@QZCOM>
Date: Wed, 21-May-86 21:00:03 EDT
Article-I.D.: QZCOM.175289
Posted: Wed May 21 21:00:03 1986
Date-Received: Sat, 24-May-86 18:01:33 EDT
References: <175155@QZCOM>
Sender: daemon@ucbvax.BERKELEY.EDU
Reply-To: Jan_Michael_Rynning%QZCOM.MAILNET@MIT-MULTICS.ARPA, ADA_mailing_list%QZCOM.MAILNET@MIT-MULTICS.ARPA
Organization: The ARPA Internet
List-Id: <comp.lang.ada>

AMIS (an Ersatz EMACS written in PASCAL, and running on VMS,
TOPS-10, RSTS/E, PRIMOS, and SINTRAN III), does it like this:

CASE value OF
1: function_1(with_appropriate_arguments);
2: function_2(with_appropriate_arguments);
...
END;

Though this is a bit clumsy, I guess you could use the same
solution for ADA. Instead of rebinding the function itself,
you rebind the corresponding number. You should, of course,
use symbolic names instead of numbers.