DataMuseum.dk

REFLEX-TEST
begin _oolean array D[1:13,0:25];
_____ B______ _____
      integer array n[1:13], b[0:25];
      _______ _____
      array t[1:13];
      _____
      integer r, c, code, en, et;
      _______
      _oolean B;
      B______
      integer procedure TIME;
      _______ _________
        begin integer TE;
        _____ _______
           TE:=0; B:=kbon;
        C: if kb on _ B then begin TE:=TE+1; goto C end;
           __       =   ____ _____           ____   ___
           TIME:=TE;
        end TIME;
        ___
      procedure CLOCK (T);
      _________
        value T; real T;
        _____    ____
        begin C: if T>0 then begin T:=T-1; goto C end
        _____    __     ____ _____         ____   ___
        end  CLOCK;
        ___
writetext(|<
          <
                     R E F L E X  -  T E S T
     During the test GIER will write the alphabet in the usual order. When
a letter is written twice, please change KB at once.
This test will be executed 13 times. 1 second will be added to the reflex-
time, if you have pushed the button too early.
When ready, please change KB.
|);
>
A: et:=TIME;en:=et-et_26⨯26; c:=0;
                     :
for code:= 49 step 1 until 57, 33 step 1 until 41, 18 step 1 until 25 do
___           ____   _____        ____   _____        ____   _____    __
   begin  b[c]:=code; c:=c+1 end;
   _____                     ___
for r:=1 step 1 until 13 do
___      ____   _____    __
   begin integer fi, fie;
   _____ _______
   writecr; fie:=37; fi:=et;
   for c:=0 step 1 until 25 do  D[r,c]:=false;
   ___      ____   _____    __          _____
   for c:=0 step 1 until 25 do
   ___      ____   _____    __
     begin integer f;
     _____ _______
      writechar(0); writechar(b[c]); B:=kbon; f:=fi; fi:=fie+fi; fie:=f;
      CLOCK((fi-fi_101⨯101)⨯11);
                  :
      if -,B_kbon then D[r,c]:=true;
      __    =     ____         ____
      if  c=en then goto I;
      __       ____ ____
     end for c;
     ___
I: writechar(0); writechar(b[c]);
   et:=TIME; t[r]:=et; n[r]:=c+1;
   en:=et-(et_26)⨯26;
             :
   end for r;
   ___
writetext(|<
          <
               RESULT:
Reflex-time:      View of the test:
   [sec]          (_ means +1 sec)
|);
>
et:=0;
for r:= 1 step 1 until 13 do
___       ____   _____    __
   begin
   _____
   writecr; write(|nddd.ddd|, t[r]/550); writetext(|<               |); et:=et+t
                  <        >                       <                >
[r];
   for c:=0 step 1 until n[r]-1 do
   ___      ____   _____        __
     begin
     _____
        if D[r,c] then begin et:=et+550; writechar(14) end;
        __        ____ _____                           ___
        if D[r,c] ∨ c=n[r]-1 then begin writechar (b[c]); writechar(0) end
        __                   ____ _____                                ___
     end for c;
     ___
   end for r;
   ___
writetext(|<
          <
Average reflex-time:|,
                    >
write(|ndd.ddd|, et/7150), |< second.
      <       >            <
     If you want to repeat, change KB.
|); goto A
>   ____
end REFLEX-TEST;[stop]
___