home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug114.arc / P.VAL < prev    next >
Text File  |  1979-12-31  |  256b  |  11 lines
  1. .begin
  2. .integer x ;
  3. 0 =: x ;
  4. .until x .= 15 .do
  5.     .begin
  6.     edit ( 1 + 14*x - x*x , '+' ) ;
  7.     print ;
  8.     x + 1 =: x
  9.     .end
  10. .end
  11.