From b67c8ede6fb0e386d21ab8b1d7804004647e9ab9 Mon Sep 17 00:00:00 2001 From: minjaesong Date: Wed, 16 Dec 2020 11:50:21 +0900 Subject: [PATCH] basic: proof that gosub in the middle of the statements works now --- assets/gosubtest.bas | 7 +++++++ 1 file changed, 7 insertions(+) create mode 100644 assets/gosubtest.bas 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")