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 - download

⟦d08e41fc4⟧ TextFile

    Length: 896 (0x380)
    Types: TextFile
    Names: »SVARPAA.SCL«

Derivation

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

TextFile

; Jan Rubæk Pedersen 1. Marts 1985
; Se kapitel 2 i DANLOG-bogen.
find_første(Ord,Ord) hvis 
     Ord <> '' og 
     ikke(position(' ',Ord,X)).
find_første(S1,Ord) hvis 
     ikke(sammensæt(' ',Y,S1)),
     find_een(position(' ',S1,X)) og 
     kopier(S1,1,værdi_af(X-1),Ord).
find_første(S1,' ') hvis 
     sammensæt(' ',X,S1).
første_ord(S1,Ord,Rest) hvis 
     find_første(S1,Ord) og 
     sammensæt(Ord,Rest,S1).
vælg_een lav_om
  lav_om('you','I').
  lav_om('are','am not').
  lav_om('french','german').
  lav_om('do','no').
  lav_om('apples','beans').
  lav_om(Ukendt,Ukendt).
slut.
svar_på('','').
svar_på(S1,S2) hvis 
     første_ord(S1,Ord,Rest),
     lav_om(Ord,Nytord),
     svar_på(Rest,Svar) og 
     sammensæt(Nytord,Svar,S2).
«eof»