test.bas

来自「使用Java语言实现Small Basic语言解释器。包括两个主要的子系统：一个」· BAS 代码 · 共 13 行

PRINT "This program converts gallons to liters." 
 
100 GOSUB 200 
  INPUT "Again? (1 or 0): ", x 
  IF x = 1 THEN GOTO 100 
  END 
 
200 INPUT "Enter gallons: ", g 
  l = g * 3.7854 
  PRINT g; "gallons is"; l; "liters." 
  RETURN