<!DOCTYPE html>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
</head>
<body>
<div class="moz-cite-prefix">Le 17/12/2023 à 17:47, Adriaan van Os
via fpc-pascal a écrit :<br>
</div>
<blockquote type="cite" cite="mid:657F2625.5060704@adriaan.biz">Turbo
Pascal (5.5) defines
<br>
<br>
label = digit-sequence .
</blockquote>
Are you sure ?<br>
I had a doubt and I had a look in some very old source code from
1990 made with tp 5.5, it seems you could have letters in labels.<br>
<p>Excerpt of the code:</p>
<pre>PROCEDURE EntCh(var col,lin,lmax:byte;var nbre:boolean;var ch:string);</pre>
<pre>{entr‚e d'une chaŒne de longueur maxi lmax, si nbre=true, on ne peut entrer}</pre>
<pre>{que des nombres, signes - et + et point d‚cimal .... }</pre>
<pre>
LABEL e00,e01,e02,e03,e04;</pre>
<pre>
VAR q,cpos,i,v:byte;</pre>
<pre> k :char;</pre>
<pre>
BEGIN e00:ch:='';</pre>
<pre> q :=0;</pre>
<pre> cpos:=col;</pre>
<pre>
gotoXY(col,lin);</pre>
<pre> textbackground(7);textcolor(0);</pre>
<pre> for i:=1 to lmax do write('_');</pre>
<pre>
gotoXY(col,lin);goto e02;</pre>
<pre> e01:bip;</pre>
<pre> e02:k:=readkey;v:=ord(k);</pre>
<pre>
if ((q>0) and (v=8)) then</pre>
<pre> begin</pre>
<pre> cpos:=cpos-1;q:=q-1;</pre>
<pre> gotoXY(cpos,lin);write('_');</pre>
<pre> ch:=left(ch,length(ch)-1);</pre>
<pre> gotoXY(cpos,lin);</pre>
<pre> goto e02;</pre>
<pre> end;</pre>
<pre>
if ((q=0) and (v=13)) then</pre>
<pre> begin</pre>
<pre> ch:=k;goto e04;</pre>
<pre> end;</pre>
<pre>
if (v=13) then goto e04;</pre>
<pre>
case nbre of</pre>
<pre>
true : if ((v>47)and (v<58)) or (v=46) then</pre>
<pre> goto e03 else goto e01;</pre>
<pre>
false: if (v>31) then goto e03 else goto e01;</pre>
<pre>
end; {case nbre of}</pre>
<pre>
e03:q:=q+1;if (q>lmax) then goto e01;</pre>
<pre>
write(k);ch:=ch+k;cpos:=cpos+1;goto e02;</pre>
<pre>
e04:textbackground(0);textcolor(7);</pre>
<pre>
gotoXY(col,lin);write(ch);write(space(lmax-length(ch)));</pre>
<pre>
END; {procedure EntCh(...)}</pre>
<pre>{--------------------------------------------------------------------------}</pre>
<p><br>
</p>
</body>
</html>