File: break.yab

package info (click to toggle)
yabasic 1%3A2.78.0-1
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 2,356 kB
  • ctags: 1,575
  • sloc: ansic: 10,420; sh: 9,406; makefile: 17
file content (60 lines) | stat: -rwxr-xr-x 732 bytes parent folder | download | duplicates (6)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
#!./yabasic
do
  break
  a=1
loop
if a error "1"

for a=1 to 3
  switch a
    case 1:break
    case 2:continue
  end switch
next a
if a<>4 error "2"
poke "__assert_stack_size",0

a=0
while(a<=3)
  a=a+1
  switch a
    case 1:break
    case 2:continue
  end switch
wend
if a<>4 error "3"
poke "__assert_stack_size",0

a=0
repeat
  a=a+1
  switch a
    case 1:break
    case 2:continue
  end switch
until(a=4)
if a<>4 error "4"
poke "__assert_stack_size",0

a=0
do
  a=a+1
  switch a
    case 1:break
    case 2:continue
  end switch
  if a=4 break
loop
if a<>4 error "5"
poke "__assert_stack_size",0

for a=0 to 4
  for b=0 to 4
    if (a*b=12) break 2
  next b
next a
if a<>3 or b<>4 error "6"
poke "__assert_stack_size",0

exit 0