|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1536 (0x600)
Types: TextFile
Names: »MORSE.SCL«
└─⟦216f59cd8⟧ Bits:30002641 SCANLOG - Piccoline vers. nov. 87
└─ ⟦this⟧ »MORSE.SCL«
; Kurt Fleckner 8. Aug. 1985
;
; MORSE eksempel
kod('','').
; Reglen oversætter fra tekst til morse
kod(Tekst,Kode) hvis
sammensæt(S1,S2,Tekst),
kodning(S1,K1),
find_een(kod(S2,K2)) og
sammensæt(K1,K2,Kode).
; Reglen oversætter fra morse til tekst
kod(Tekst,Kode) hvis
sammensæt(K1,K2,Kode),
kodning(S1,K1),
find_een(kod(S2,K2)) og
sammensæt(S1,S2,Tekst).
vælg_een kodning
kodning('','') hvis
falsk.
kodning('a','.- ').
kodning('b','-... ').
kodning('c','-.-. ').
kodning('d','-.. ').
kodning('e','. ').
kodning('f','..-. ').
kodning('g','--. ').
kodning('h','.... ').
kodning('i','.. ').
kodning('j','.--- ').
kodning('k','-.- ').
kodning('l','.-.. ').
kodning('m','-- ').
kodning('n','-. ').
kodning('o','--- ').
kodning('p','.--. ').
kodning('q','--.- ').
kodning('r','.-. ').
kodning('s','... ').
kodning('t','- ').
kodning('u','..- ').
kodning('v','...- ').
kodning('w','.-- ').
kodning('x','-..- ').
kodning('y','-.-- ').
kodning('z','--.. ').
kodning('æ','.-.- ').
kodning('ø','---. ').
kodning('å','.--.- ').
kodning('9','----. ').
kodning('8','---.. ').
kodning('7','--... ').
kodning('6','-.... ').
kodning('5','..... ').
kodning('4','....- ').
kodning('3','...-- ').
kodning('2','..--- ').
kodning('1','.---- ').
kodning('0','----- ').
kodning(' ',' ').
slut.
«eof»