home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / unix / volume13 / ratfor / test.r < prev   
Text File  |  1988-02-27  |  366b  |  27 lines
  1. integer x,y
  2. x=1; y=2
  3. if(x == y)
  4.     write(6,600)
  5. else if(x > y)
  6.     write(6,601)
  7. else
  8.     write(6,602)
  9. x=1
  10. while(x < 10){
  11.     if(y != 2) break
  12.     if(y != 2) next
  13.     write(6,603)x
  14.     x=x+1
  15.     }
  16. repeat
  17.     x=x-1
  18. until(x == 0)
  19. for(x=0; x < 10; x=x+1)
  20.     write(6,604)x
  21. 600 format('Wrong, x != y')
  22. 601 format('Also wrong, x < y')
  23. 602 format('Ok!')
  24. 603 format('x = ',i2)
  25. 604 format('x = ',i2)
  26. end
  27.