Added program for On-Goto statement.
authorMichael Welch <michaelgwelch@gmail.com>
Sat, 3 Feb 2007 21:22:41 +0000 (21:22 +0000)
committerMichael Welch <michaelgwelch@gmail.com>
Sat, 3 Feb 2007 21:22:41 +0000 (21:22 +0000)
samples/ongoto.mbas [new file with mode: 0755]

diff --git a/samples/ongoto.mbas b/samples/ongoto.mbas
new file mode 100755 (executable)
index 0000000..2cc6c5e
--- /dev/null
@@ -0,0 +1,13 @@
+99 REM From page II-50\r
+100 REM How does On-Goto work?\r
+110 Input X\r
+120 On X Goto 130,150,170,190,210\r
+130 Print "X=1"\r
+140 Goto 110\r
+150 Print "X=2"\r
+160 Goto 110\r
+170 Print "X=3"\r
+180 Goto 110\r
+190 Print "X=4"\r
+200 Goto 110\r
+210 End\r