hello.bas

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

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


SUB MAIN(STATE)
IF STATE = 1 THEN
	PRINT "Doing nothing..."
ELSE IF STATE = 2 THEN
    TASK1
ELSE 
    TASK2
END IF
END SUB


SUB TASK1
PRINT "task 1"
END SUB

SUB TASK2
PRINT "task 2"
END SUB


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