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