DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦36c3bba45⟧ TextFile

    Length: 1152 (0x480)
    Types: TextFile
    Names: »FORTOLK.SCL«

Derivation

└─⟦216f59cd8⟧ Bits:30002641 SCANLOG - Piccoline vers. nov. 87
    └─⟦this⟧ »FORTOLK.SCL«

TextFile

; Jan Rubæk Pedersen 1. Marts 1985
; Se også 'floden'
;
skriv_side(s) hvis 
     skriv('sydbredden').
skriv_side(n) hvis 
     skriv('nordbredden').
fortolk(<p(N,N,N,N)>) hvis 
     skriv('De er alle på'),
     skriv_side(N) og 
     nylinie.
fortolk(<X,Y..L>) hvis 
     fortolk(<Y..L>) og 
     fortæl(X,Y).
fortæl(p(Bonde,Bonde,Ged,Kål),p(Ny_bonde,Ny_bonde,Ged,Kål)) hvis 
     skriv('Bonden sejler med ulven fra'),
     skriv_side(Ny_bonde),
     skriv('til'),
     skriv_side(Bonde) og 
     nylinie.
fortæl(p(Bonde,Ulv,Bonde,Kål),p(Ny_bonde,Ulv,Ny_bonde,Kål)) hvis 
     skriv('Bonden sejler med geden fra'),
     skriv_side(Ny_bonde),
     skriv('til'),
     skriv_side(Bonde) og 
     nylinie.
fortæl(p(Bonde,Ulv,Ged,Bonde),p(Ny_bonde,Ulv,Ged,Ny_bonde)) hvis 
     skriv('Bonden sejler med kålhovedet fra'),
     skriv_side(Ny_bonde),
     skriv('til'),
     skriv_side(Bonde) og 
     nylinie.
fortæl(p(Bonde,Ulv,Ged,Kål),p(Ny_bonde,Ulv,Ged,Kål)) hvis 
     skriv('Bonden sejler alene fra'),
     skriv_side(Ny_bonde),
     skriv('til'),
     skriv_side(Bonde) og 
     nylinie.
«eof»