選擇一個程序的一部分

During the creation of a DMIS program, it might be necessary to ask the user to make a choice and then the program will execute accordingly.
In order to do so the commands SELECT CASE and JUMPTO are useful tools.
This example shows how to ask an user input and then using the combination of a SELECT CASE structure with JUMPTO commands to reach the part of the program required.


(ASK_AGAIN)
TEXT/QUERY,(AN_QUERY),40,N,L,'DO YOU WANT TO JUMP SOMEWHERE? (PRESS 0 FOR NO, 1 FOR YES)'
SELECT/AN_QUERY
CASE/0

JUMPTO/(SELECTED_NO)

ENDCAS
CASE/1

JUMPTO/(SELECTED_YES)

ENDCAS
DFTCAS

JUMPTO/(ASK_AGAIN)

ENDCAS
ENDSEL

(SELECTED_NO)

TEXT/OPER,'YOU SELECTED NO'

JUMPTO/(END_PROGRAM)

(SELECTED_YES)

TEXT/OPER,'YOU SELECTED YES'

(END_PROGRAM)