test2.bas

来自「这是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