BEEP Example


Example:

 

NUMBER

FORM

1

  

LOOP

 

  

KEYIN

*N,"Enter selection:",FORM1;

  

BREAK

IF (FORM1 > 0)

  

BEEP

 

  

REPEAT

 

 

If a value greater than '0' is entered into NUMBER, the loop is broken, else a BEEP occurs and the program continues the loop.

 

 



PL/B Language Reference BATCH Example BFILE Example