Renamed label

This commit is contained in:
Bobbi Webber-Manners 2020-07-04 19:51:33 -04:00
parent db376e06e0
commit 76217e68bf

View File

@ -667,13 +667,13 @@ restart:
pos,
(eof ? " ** END ** " : "SPACE continue reading"),
NORMAL);
retry1:
retry:
c = cgetc();
switch (c) {
case ' ':
if (eof) {
putchar(BELL);
goto retry1;
goto retry;
}
break;
case 'B':
@ -716,7 +716,7 @@ retry1:
return;
default:
putchar(BELL);
goto retry1;
goto retry;
}
clrscr();
}