DIM a(10, 10)

gosub [subtest]
goto [skip]

[subtest]
	print "sub"
	return

[skip]
print "skipped"

for i = 1 to 10
 a(i, 1) = 10
next i

a(2, 1) = 1 : m$ = mid$("test" + "test", 3, 2);

print "test [" + m$ + "] test"

a(1, _
2) = _
3

for i = 1 to 10
for j = 1 to 10
  print a(i, j); " ";
next j
print
next i

if a(1, 1) = 0 and "test" = "test" then 
goto [test]
end if

var1 = 0

while var1 < 10
  print str$(var1) + " + 1"
  var1 = var1 + 1
wend

print "[" + trim$("  sfd sd fsdf " + "tesdfs d ") + "]"

for i = 1 to 10
  print i;" "; int(rnd(1)*10) + 1
next i

for i = 10 to 1 step -4
  print i
next i

open "test.txt" for output as #test
print #test, "This is a line"
print #test, "THis is another"
close #test

open "test.txt" for input as #test
input #test, line$, line1$
print "[";line$;"]"
print "[";line1$;"]"
close #test

notice "TEst"

filedialog "Open test file", "*.bas", filename$
print filename$
filedialog "Open test file", "*.bas", filename$

print "The end";
print " ..."
end



[test]
open "test" for window as #test : a(2, 2) = 2