diff --git a/assets/gosubtest.bas b/assets/gosubtest.bas
new file mode 100644
index 0000000..8bb4f60
--- /dev/null
+++ b/assets/gosubtest.bas
@@ -0,0 +1,7 @@
+1 GOTO START
+100 LABEL PRINTRNDNUM
+110 K=FIX(RND(1)*256)
+120 PRINT " ";K;" ";
+130 RETURN
+1000 LABEL START
+1010 PRINT "HELLO,";:GOSUB PRINTRNDNUM:PRINT(IF K==1 THEN "WORLD" ELSE "WORLDS")