File: test.r

package info (click to toggle)
ratfor 1.0-8
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 120 kB
  • ctags: 305
  • sloc: ansic: 1,797; makefile: 78; sh: 12
file content (26 lines) | stat: -rw-r--r-- 366 bytes parent folder | download | duplicates (10) 
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
 
integer x,y
x=1; y=2
if(x == y)
	write(6,600)
else if(x > y)
	write(6,601)
else
	write(6,602)
x=1
while(x < 10){
	if(y != 2) break
	if(y != 2) next
	write(6,603)x
	x=x+1
	}
repeat
	x=x-1
until(x == 0)
for(x=0; x < 10; x=x+1)
	write(6,604)x
600 format('Wrong, x != y')
601 format('Also wrong, x < y')
602 format('Ok!')
603 format('x = ',i2)
604 format('x = ',i2)
end