home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / amigae / e_v3.2a / src / guide / while.e < prev   
Text File  |  1977-12-31  |  144b  |  10 lines

  1. PROC main()
  2.   DEF x,y
  3.   x:=1
  4.   y:=2
  5.   WHILE (x<10) AND (y<10)
  6.     WriteF('x is \d and y is \d\n', x, y)
  7.     x:=x+2
  8.     y:=y+2
  9.   ENDWHILE
  10. ENDPROC