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 / GOTOTEST.ALG < prev    next >
Text File  |  1984-04-29  |  475b  |  28 lines
  1. BEGIN
  2. COMMENT THIS PROGRAM DOESN'T DO MUCH EXCEPT TEST GOTO STATEMENTS;
  3.  
  4. INTEGER A,B,C;
  5. INTEGER I;
  6. FOR I:=1 STEP 1 UNTIL 10 DO
  7.   BEGIN
  8.     IF I=8 THEN GO TO NEXTSTMT;
  9.     WRITE(I);
  10.   END;
  11. NEXTSTMT:WRITE("NEXTSTMT");
  12. WHILE 1=1 DO
  13.   BEGIN
  14.     I:=I+1;
  15.     IF I=12 THEN GO TO NEXTSTMT ELSE
  16.        GO TO LASTSTMT;
  17.   END;
  18. LASTSTMT:WRITE("LASTSTMT");
  19. BEGIN
  20.   READ(A);
  21.   WRITE(I);
  22.   IF A=5 THEN GOTO QUIT;
  23.   GO TO NEXTSTMT;
  24. QUIT:WRITE("END");
  25. END;
  26. END
  27. EOF
  28.