% Hey, the string im suppose to do is as follows, notice the spaces in between that's what i need edited
% if you can please edit the code so it outputs these spaces and also can you please edit the error trap so that it traps if the string length is over 24
%can you pls also check if my locate formula would always center horizontally and vertically
%also can you briefly explain what each of these loops does i think i kind of understand what they do but not clearly
% i think first for loop determines number of times to be executed, second for loop is for...
%Thanks a lot


 %e
%e c
%eci
%ec in
%ecina
%eci naJ
var name:string:="Dimitr"
%get name
%loop
%if name(*) > name(24) then
%put"invalid input"
%delay(2000)
%cls
%get name
%else
%exit
%end if
%end loop

procedure PauseProgram
var key:char
put "Press any key to continue"
key:=getchar
end PauseProgram
 
for decreasing y:length(name)..1

for decreasing x:length(name)..y
locate((24-length(name)div 2-x),(80-length(name))div 2+x)
put name(x..*)
put" "
end for
end for