Minor refactoring in SBTCVM Bench: use more advanced flow control met…

…hods for cleaner code.
SBTCVM · Mar 17, 2021 · eaf0d3f · eaf0d3f
1 parent 52b9b7b
commit eaf0d3f
Show file tree

Hide file tree

Showing 16 changed files with 764 additions and 752 deletions.
diff --git a/apps/bench/auto_bench.tdsk1 b/apps/bench/auto_bench.tdsk1
diff --git a/apps/bench/bench/boot.trom b/apps/bench/bench/boot.trom
diff --git a/apps/bench/bench/boot__stnp.tasm b/apps/bench/bench/boot__stnp.tasm
diff --git a/apps/bench/bench/credits.trom b/apps/bench/bench/credits.trom
diff --git a/apps/bench/bench/desktop2.stnp b/apps/bench/bench/desktop2.stnp
@@ -21,7 +21,7 @@ end
 val @1
 set actflg
 
-label main
+loop
 
 	if actflg,@1 begin
 		val @0
@@ -30,13 +30,14 @@ label main
 		drawcopy @-1
 	end
 
-	label main_loop
+	{val 0 / set btnbuff}
+	until btnbuff,@1
 
 		asm ioread1;>mouse.button
 		set btnbuff
 		gsub common.mouse_cursor
 
-	ifnot btnbuff,@1 goto main_loop
+	end
 
 	##### Main screen icon click parser #####
 
@@ -62,7 +63,7 @@ label main
 		ifrange @-120,@-93,xbuff gsub credits
 
 	end
-goto main
+end