File: do-if.stat

package info (click to toggle)
pspp 0.2.4-2
  • links: PTS
  • area: main
  • in suites: potato
  • size: 5,180 kB
  • ctags: 4,791
  • sloc: ansic: 56,977; sh: 1,649; makefile: 395; sed: 93; perl: 18
file content (24 lines) | stat: -rw-r--r-- 267 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
title 'Test DO IF control structure'.

data list /x y z 1-6.
begin data.
000099
019900
019820
001089
020000
end data.
do if x~=2.
loop i=1 to x.
do if x=0.
print /i x z.
else.
do if x=1.
print /i x y.
else.
print /i 'Huh?'.
end if.
end if.
end loop.
end if.
execute.