home *** CD-ROM | disk | FTP | other *** search
/ Joy Games / ShareGames.iso / doswin_2 / 1stcont / test.rpp < prev    next >
Text File  |  1996-10-14  |  432b  |  28 lines
  1. var y: number;
  2. var x: number;
  3. var i: string;
  4. var j: number;
  5. y := 100;
  6. x := 50;
  7. i := "test";
  8. println(i);
  9. println("I am the man...");
  10. if (y=101)
  11.   println("level 1");
  12.   if (x=51)
  13.     println("yep...");
  14.   endif;
  15.   if (x > 100)
  16.     println("greator...");
  17.   endif;
  18.   println("we are here...");
  19. endif;
  20. println("after the first if");
  21.  
  22. loop(j=1 to 2)
  23.   println(j);
  24.   loop (x=1 to 2)
  25.     println(x);
  26.   endl;
  27. endl;
  28.