test2.bas

来自「此为"The Art of JAVA"书籍关于设计解析器之码。很旧的一本书了」· BAS 代码 · 共 16 行

PRINT "This program demonstrates nested GOSUBs." 
INPUT "enter a number: ", I 
GOSUB 100 
 
END 
 
100 FOR T = 1 TO I  
  X = X + I 
  GOSUB 150 
NEXT 
RETURN 
 
150 PRINT X; 
    RETURN