home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / SIMTEL / CPMUG / CPMUG028.ARK / FLYTEST.ALG < prev    next >
Text File  |  1984-04-29  |  465b  |  17 lines
  1. BEGIN
  2. COMMENT THIS PROGRAM DEMONSTRATES THE ASSIGNMENT ON THE FLY
  3.         STATEMENT: IT READS TWO INTEGERS AT A TIME FROM THE CONSOLE
  4.         AND WRITES THREE VALUES BACK TO THE CONSOLE AS INDICATED  
  5.         IN THE CODE;
  6. INTEGER A,B,C;
  7. WHILE 1=1 DO
  8.   BEGIN
  9.     WRITE("INPUT TWO INTEGER VALUES SEPARATED BY COMMAS");
  10.     READ(A,B);
  11.     IF (A:=B*2)>(C:=B) THEN WRITE("GREATER");
  12.     WRITE(A,B,C);
  13.     A:=B:=(C:=A:=B)*2;
  14.     WRITE(A,B,C);
  15.   END;
  16. END
  17.