Skip to content

Commit 2925de1

Browse files
committed
Add ON GOTO, ON GOSUB runtime test
1 parent 16c6bb6 commit 2925de1

2 files changed

Lines changed: 5 additions & 1 deletion

File tree

Lines changed: 5 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,7 @@
1+
#include "lib/tst_framework.bas"
2+
3+
INIT("Testing ON .. GOTO, ON .. GOSUB")
4+
15

26
DIM a as UBYte = 1
37
ON a + 1 GOTO 10, 20, 30
@@ -8,7 +12,7 @@ ON a + 1 GOTO 10, 20, 30
812

913
ON a + 2 GOSUB 40, 50, 60, 70
1014
ON 1 GOSUB 50, 60
11-
PRINT "END"
15+
REPORT_OK
1216

1317
END
1418
40 PRINT "40": RETURN
6.75 KB
Binary file not shown.

0 commit comments

Comments
 (0)