100 REM PURPOSE: VERIFY 'ELSEIF' ALLOWS TRAILING 'THEN'
110 REM  AUTHOR: HOWARD WULF, AF5NE
120 REM    DATE: 2017-03-31
130 REM    NOTE: OPTION VERSION "HAARDT"
140 REM 
150 ON ERROR GOTO 800
160 REM
200 IF FALSE THEN
210   PRINT "ERROR: IF FALSE THEN"
220 ELSEIF FALSE
230   PRINT "ERROR: ELSEIF FALSE"
240 ELSEIF FALSE THEN
250   PRINT "ERROR: ELSEIF FALSE THEN"
260 ELSEIF TRUE THEN
270   PRINT "CORRECT: ELSEIF TRUE THEN"
280 ELSE
290   PRINT "ERROR: ELSE"
300 END IF
310 REM
400 IF FALSE THEN
410   PRINT "ERROR: IF FALSE THEN"
420 ELSEIF FALSE
430   PRINT "ERROR: ELSEIF FALSE"
440 ELSEIF FALSE THEN
450   PRINT "ERROR: ELSEIF FALSE THEN"
460 ELSEIF TRUE
470   PRINT "CORRECT: ELSEIF TRUE"
480 ELSE
490   PRINT "ERROR: ELSE"
500 END IF
510 REM
600 GOTO 999
800 REM
810 PRINT "ERL=";ERL, "ERR=";ERR, "ERROR$=";ERROR$
820 REM
999 END


