test1.bas

来自「这是Java编程艺术一书附带的源代码」· BAS 代码 · 共 23 行

PRINT "This program demonstrates all features." 
FOR X = 1 TO 100 
PRINT X; X/2, X; X*X 
NEXT 
GOSUB 300 
PRINT "hello" 
INPUT H 
IF H<11 THEN GOTO 200 
PRINT 12-4/2 
PRINT 100 
200 A = 100/2 
IF A>10 THEN PRINT "this is ok" 
PRINT A 
PRINT A+34 
INPUT H 
PRINT H 
INPUT "this is a test ", y 
PRINT H+Y 
END 
300 PRINT "this is a subroutine" 
    RETURN