pintos-os.org Git - pspp/blob - tests/do-if.stat

   1 title 'Test DO IF control structure'.
   2
   3 data list /x y z 1-6.
   4 begin data.
   5 000099
   6 019900
   7 019820
   8 001089
   9 020000
  10 end data.
  11 do if x~=2.
  12 loop i=1 to x.
  13 do if x=0.
  14 print /i x z.
  15 else.
  16 do if x=1.
  17 print /i x y.
  18 else.
  19 print /i 'Huh?'.
  20 end if.
  21 end if.
  22 end loop.
  23 end if.
  24 execute.