fortst.bas

来自「smallbasic for linux」· BAS 代码 · 共 34 行

#!/usr/local/bin/sbrun -g
print "for test"

for i=1 to 10
	print i
next
print "on exit i="; i

print
print "while test"

i = 0
while ( i < 10 )
	print i
	i = i + 1
wend
print "on exit i="; i

print
print "repeat test"

i = 0
repeat
	print i
	i = i + 1
until i = 10
print "on exit i="; i

for i=10 to 1 step -1
	print i
next
print "on exit i="; i