hello2.bas

'type suffix (default integer, ! for float, % for number, $ for string)

STATE=1

SUB SETUP
PRINT "Running setup..."
END SUB


SUB MAIN
IF STATE = 1 THEN
	PRINT "Doing nothing..."
ELSE IF STATE = 2 THEN
    TASK1
ELSE
    TASK2
END IF
PRINT "Current State:", STATE
END SUB


SUB TASK1
PRINT "task 1"
END SUB

SUB TASK2
PRINT "task 2. Now return to state 1"
STATE=1
END SUB


SETUP
DO
  INPUT "Type a number [1-3]:"; STATE
  MAIN
LOOP