home *** CD-ROM | disk | FTP | other *** search
/ norge.freeshell.org (192.94.73.8) / 192.94.73.8.tar / 192.94.73.8 / pub / computers / cpm / alphatronic / ALGOL-M.ZIP / GOTOTEST.ALG < prev    next >
Text File  |  1999-03-13  |  512b  |  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.