DataMuseum.dk

begin
_____
integer ø,tilf1,tilf2,x,y,farve,i;
_______
real k1,k2,k3,bluf;
____
integer array kulør1,kulør2[1:6],aktmeld1,
_______ _____
              aktmeld2[1:2],tern1,tern2[1:4];boolean indk;
                                             _______
integer procedure tilf(m);
_______ _________
integer m;
_______
begin real a;
_____ ____
if tilf1=0 ∧ tilf2=0 then
__                   ____
    begin
    _____
    skrvtekst(|<
              <
tast lige tilf1 og tilf2.|);
                         >
    tilf1:=tast; tilf2:=tast end;
                             ___
  a:=tilf1+tilf2;
  tilf1:=entier(a-10∧6⨯entier(a/10∧6));
                    |             |
  a:=tilf1+tilf2;
  tilf2:=entier(a-10∧6⨯entier(a/10∧6));
                    |             |
  tilf:=tilf2-m⨯entier(tilf2/m);
end;
___
integer procedure hvormange(x);
_______ _________
integer x;
_______
begin integer i,m,hvor;boolean boo;
_____ _______          _______
hvor:=0;
for i:=1,2,3,4 dobeginm:=tern1[i];
___            _______
boo:=x=m∨m=1;
if boo then hvor:=hvor+1;end;
__     ____              ___
hvormange:=hvor
end;
___
real procedure kig (ea,fm,et,ft,fb,k1,k2,k3);
____ _________
integer ea,fm,et,ft;
_______
real fb,k1,k2,k3;
____
begin
_____
integer a;realb;
_______   ____
a:=fm-ea;
if a_0then beginkig:=1;gotoutend;
__  < ____ _____       ____  ___
if a>4then beginkig:=0;gotoutend;
__    ____ _____       ____  ___
vi: if farve | 1 thenb:=if a < 2 then 0.802 else
    __       =   ____   __       ____       ____
                           if a < 3 then 0.407 else
                           __       ____       ____
                           if a < 4 then 0.111 else 0.0012
                           __       ____       ____
                 elseb:=if a < 2 then 0.518 else
                 ____   __       ____       ____
                           if a < 3 then 0.132 else
                           __       ____       ____
                           if a < 4 then 0.016 else 0.001;
                           __       ____       ____
  kig:=b⨯fb⨯(1-et⨯k1)⨯(1+ft⨯k2)⨯(1-(4-fm)⨯k3);
ut:
ifindkthen begin skrv(|ndd.ddd|,b,ea,fm,farve,a);skrvvrend
__    ____ _____      <       >                        ___
end;
___
procedure meld (a,b);
_________
integer a,b;
_______
begin
_____
     if a=0 then
     __     ____
     begin
     _____
     skrvtekst(|<
               <
Mit slag er:|);
            >
     skrv(|ddd|,tern1[1],tern1[2],tern1[3],tern1[4]);
          <   >
     go to nyt spil
     __ __
     end;
     ___
     skrvvr;
     skrv(|ddd|,a);
          <   >
     skrv(|ddd|,b);
          <   >
     skrvtekst(|<-er|); if a | 1 then
               <    >   __   =   ____
     skrvtegn(53); skrvvr;
     kulør1[b]:=kulør1[b]+1;
     aktmeld1[1]:=a; aktmeld1[2]:=b;
end;
___
procedure bestem melding (x,y);
_________
integer x,y;
_______
begin
_____
integer a,b,h,i,j;  real P;
_______             ____
integer array m[1:7,1:2];
_______ _____
real array p[1:7];
____ _____
a:=aktmeld2[1];
b:=farve:=aktmeld2[2];
h:=hvormange(b);
p[1]:=kig(h,a,kulør1[b],kulør2[b],bluf,k1,k2,k3);
if p[1]=0 then begin
__        ____ _____
                     x:=0; y:=4;
                     go to ut
                     __ __
               end;
               ___
p[1]:=1-p[1];
m[1,1]:=0; m[1,2]:=4;
for i:=1 step 1 until 5 do
___      ____   _____   __
begin integer f,g;
_____ _______
if b+i > 6 then g:=b+i-5 else g:=b+i;
__         ____          ____
if b+i > 6 then f:=a+1 else f:=a;
__         ____        ____
m[i+1,1]:=f; m[i+1,2]:=g;
h:=hvormange(g); farve:=g;
p[i+1]:=kig(h,f,sign(-kulør1[g]),kulør2[g],1,k1,k2,k3);
end;
___
P:=0;
for j:=2 step 1 until 6 do
___      ____   _____   __
if p[j] > P then begin P:=p[j]; i:=j end;
__          ____ _____               ___
a:=m[7,1]:=m[i,1]+1;
b:=m[7,2]:=m[i,2];
farve:=b;
h:=hvormange(b);
p[7]:=kig(h,a,sign(-kulør1[b]),kulør2[b],1,k1,k2,k3);
for j:=1 step 1 until 7 do
___      ____   _____   __
for i:=1 step 1 until 7-j do
___      ____   _____     __
if p[i] > p[i+1] then
__               ____
     begin P:=p[i];
     _____
           p[i]:=p[i+1];
           p[i+1]:=P;
           a:=m[i,1]; b:=m[i,2];
           m[i,1]:=m[i+1,1];
          m[i,2]:=m[i+1,2];
           m[i+1,1]:=a;
           m[i+1,2]:=b
      end;øf:
      ___
h:=tilf(128);
i:=if h _ 2 then1 else
   __   <   ____  ____
   if h _ 4 then2 else
   __   <   ____  ____
   if h _ 8 then3 else
   __   <   ____  ____
   if h _16 then4 else
   __   <   ____  ____
   if h _32 then5 else
   __   <   ____  ____
   if h _64 then6else7;
   __   <   ____ ____
   if p[i]=0 ∨ m[i,1] > 8 then i:=7;
   __                     ____
   x:=m[i,1];
   y:=m[i,2];
ut:if x=0∧h_32thengotoøf;
   __      <  ________
if indk then begin
__      ____ _____
skrvvr;skrv(|nd.ddd|,x,y,p[1],p[2],p[3],p[4],p[5],p[6],p[7]);
            <      >
skrvvr;for i:=1,2,3,4,5,6,7do skrv(|dd|,m[i,1]);skrvvr;
       ___                 __      <  >
for i:=1,2,3,4,5,6,7do skrv(|dd|,m[i,2]);end;
___                 __      <  >         ___
end;
___
tilf1:=0; tilf2:=0;
nyt spil:
skrvtekst(|<
          <
ønskes parametre|);
                >
if tasttegn=33 then begin
__             ____ _____
   k1:=tast; k2:=tast; k3:=tast;
   bluf:=tast;indk:=tast=0                   end;
                                             ___
for i:=1,2,3,4 do tern1 [i]:=tilf(6)+1;
___            __
skrvtekst(|<
          <
tast 0 hvis GIER starter, ellers melding
|);
>
for i:=1 step 1 until 6 do
___      ____   _____   __
kulør1[i]:=kulør2[i]:=0;
aktmeld1[1]:=aktmeld1[2]:=0;
ø:=aktmeld2[1]:=tast;
   if ø _ 1 then go to st;
   __   >   ____ __ __
   meld(1,2);
vi: aktmeld2[1]:=tast;
st: aktmeld2[2]:=tast;
     if aktmeld2[1] < 0 then meld (0,2);
     __                 ____
     if aktmeld2[2] < 1 ∨ aktmeld2 [2] > 6 then
     __                                    ____
     begin
     _____
     skrvtekst(|<
               <
Mærkelig farve, om igen.
|); go to vi end;
>   __ __    ___
if 10⨯aktmeld2[1]+aktmeld2[2] _
__                            <
   10⨯aktmeld1[1]+aktmeld1[2] then
                              ____
   begin
   _____
   skrvtekst(|<
             <
Den gaar ikke. Meld om
|);
>
   go to vi end;kulør2[aktmeld2[2]]:=kulør2[aktmeld2[2]]+1;
   __ __    ___
   bestem melding(x,y);
   meld(x,y);
   go to vi;
   __ __
end;
___