Added test-gosub.

Pascal J. Bourguignon [2021-02-02 05:57]
Added test-gosub.
Filename
small-cl-pgms/basic/test-gosub.basic
diff --git a/small-cl-pgms/basic/test-gosub.basic b/small-cl-pgms/basic/test-gosub.basic
new file mode 100644
index 0000000..494918d
--- /dev/null
+++ b/small-cl-pgms/basic/test-gosub.basic
@@ -0,0 +1,4 @@
+ 10 FOR I=0 TO 2:GOSUB 20+10*I:NEXT I
+ 20 PRINT "ONE":RETURN
+ 30 PRINT "TWO":RETURN
+ 40 PRINT "THREE":STOP
ViewGit