File: on.bas

package info (click to toggle)
bwbasic 2.20pl2-6
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 1,204 kB
  • ctags: 1,248
  • sloc: ansic: 21,002; makefile: 116
file content (14 lines) | stat: -rw-r--r-- 310 bytes parent folder | download | duplicates (12) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
10 print "ON.BAS -- Test ON...GOTO Statement"
20 input "Enter a number 1-5:";n
30 on n goto 40, 60, 80, 100, 120
40 print "You entered 1"
50 goto 140
60 print "You entered 2"
70 goto 140
80 print "You entered 3"
90 goto 140
100 print "You entered 4"
110 goto 140
120 print "You entered 5"
130 goto 140
140 end