Programme

dim philo(5,3)
dim fourch(5)
dim listAtt(7)

'placer les philosophes dans un ordre aleatoire dans la liste d'attente
for i=1 to 5
    [hazard]
    scan
    blok=0
    hazard=int(rnd(1)*5)+1
    for j=1 to i
        if hazard=listAtt(j) then blok=1
    next j
    if blok=1 then goto [hazard]
    listAtt(i)=hazard
next i

print "place  Philosophe"
for i=1 to 5
    print "  ";i;"         ";listAtt(i)
next i

[mainloop]
    if count<25 then timer 100, [boucle]
    wait

[boucle]
    timer 0
    scan
    count=count+1
    oklib=0
    gosub [liberation]
    'gosub [affichListPhilo]
    'gosub [affichListAtt]
    if oklib<>0 or count=1 then
        gosub [attribution]
    end if
    goto [mainloop]
    
[liberation]
    for lib=1 to 5
        duree=philo(lib,3)
        if duree>0 then
            philo(lib,3)=duree-100
            if philo(lib,3)<=0 then
                print "le philosophe ";lib;" à fini de manger"
                if lib=1 then
                    fourch(5)=0
                else
                    fourch(lib-1)=0
                end if
                fourch(lib)=0
                oklib=1
                gosub [miseListAtt]
            end if
        end if
    next lib
    return
    
[miseListAtt]
    for list=1 to 5
        latt=listAtt(list)
        if latt=0 then
            listAtt(list)=lib
            print "il est mis en liste d'attente"
            exit for
        end if
    next list
    return
    
[attribution]
    for att=1 to 5
        philosophe=listAtt(att)
        if philosophe=0 then exit for
        fourch1=fourch(philosophe-1)
        fourch2=fourch(philosophe)
        if philosophe=1 then fourch1=fourch(5)
        if fourch1=0 and fourch2=0 then
            duree=int(rnd(1)*10+1)*100
            philo(philosophe,3)=duree
            gosub [majList]
            gosub [majFourch]
            print "le philosophe ";philosophe;" à fini de penser"
            print "il se met à manger pendant ";duree;" ms"
        end if
    next att
    return
    
[majList]
    if att<5 then
        for j=att to 4
            listAtt(j)=listAtt(j+1)
        next j
    end if
    listAtt(5)=0
    return
    
[majFourch]
    if philosophe=1 then
        fourch(5)=1
    else
    fourch(philosophe-1)=1
    end if
    fourch(philosophe)=1
    return