*** empty log message ***

1985-01-24 11:27:36 +00:00
parent 7657fb8d45
commit a1c27b46db
51 changed files with 863 additions and 0 deletions
--- a/lang/basic/test/test31.b
+++ b/lang/basic/test/test31.b
@@ -0,0 +1,11 @@
+10 a$(0)= "fbc"
+11 a$(1)= "fcc"
+12 a$(2)= "abb"
+90 'bubble sort array
+100 j=2: flips=1 'one more pass
+110 while flips
+115	flips=0
+120	for i=0 to j-1
+130	if a$(i)>a$(i+1) then swap a$(i),a$(i+1): flips=1
+140	nexti
+150 wend