Vintage VS Modern Basic

--------------- Vintage Basic ---------------

10 GOTO 2000
20 INPUT "input a number: ";a
30 PRINT "the table of the number",a,"is:"
40 FOR i = 1 TO 10
50  PRINT a*i
60 NEXT i
70 INPUT "press enter";b$
80 GOTO 2000

2000 PRINT "vintage basic testing"
2010 PRINT "1) table of N"
2020 PRINT "0) Quit"
2030 INPUT "pick a program";p
2040 IF p = 1 THEN GOTO 20
2050 IF p = 0 THEN GOTO 3000
2060 GOTO 2000

3000 END

--------------- Modern Basic ---------------

SUB start()
    CLS
    PRINT "modern basic testing"
    PRINT "1) table of N"
    PRINT ""
    PRINT "0) Quit"
    INPUT "pick a program",p
    IF p = 1 THEN
        table()
    END IF
    IF p = 0 THEN
        CLS
        quit
    ELSE
        start()
    END IF
END SUB

SUB table()
    CLS
    INPUT "input a number: ",a
    PRINT "the table of ",a," is:"
    FOR i = 1 TO 10
        PRINT i*a
    NEXT i
    INPUT "press enter",b$
    start()
END SUB

start()