DataMuseum.dk

Presents historical artifacts from the history of:

MIKADOS

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

See our Wiki for more about MIKADOS

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦f86415184⟧ TextFile

    Length: 5056 (0x13c0)
    Types: TextFile
    Notes: Mikados TextFile, Mikados_K
    Names: »MORSE1«

Derivation

└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »MORSE1« 
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »MORSE1«

Text

0010 // ------------------------ morse_1 --------------------
0020 // Programmet omsætter en alm. tekst til morsetekst
0030 // 
0040 CLEAR 
0050 DIM TEKST$ OF 80,S$ OF 1,M$ OF 5
0055 PRINT 
0060 PRINT "Indtast en tekst (max 80 mellemrum og små bogstaver):"
0070 INPUT TEKST$
0080 PRINT TEKST$
0090 FOR I:=1 TO LEN(TEKST$) DO 
0100 S$:=TEKST$(I:1)
0110 CASE S$ OF 
0120 WHEN " "
0130 M$:="   "
0140 WHEN "a"
0150 M$:=".-"
0160 WHEN "b"
0170 M$:="-..."
0180 WHEN "c"
0190 M$:="-.-."
0200 WHEN "d"
0210 M$:="-.."
0220 WHEN "e"
0230 M$:="."
0240 WHEN "f"
0250 M$:="..-."
0260 WHEN "g"
0270 M$:="--."
0280 WHEN "h"
0290 M$:="...."
0300 WHEN "i"
0310 M$:=".."
0320 WHEN "j"
0330 M$:=".---"
0340 WHEN "k"
0350 M$:="-.-"
0360 WHEN "k"
0370 M$:="-.-"
0380 WHEN "l"
0390 M$:=".-.."
0400 WHEN "m"
0410 M$:="--"
0420 WHEN "n"
0430 M$:="-."
0440 WHEN "o"
0450 M$:="---"
0460 WHEN "p"
0470 M$:=".--."
0480 WHEN "q"
0490 M$:="--.-"
0500 WHEN "r"
0510 M$:=".-."
0520 WHEN "s"
0530 M$:="..."
0540 WHEN "t"
0550 M$:="-"
0560 WHEN "u"
0570 M$:="..-"
0580 WHEN "v"
0590 M$:="...-"
0600 WHEN "w"
0610 M$:=".--"
0620 WHEN "x"
0630 M$:="-..-"
0640 WHEN "y"
0650 M$:="-.--"
0660 WHEN "z"
0670 M$:="--.."
0680 WHEN "æ"
0690 M$:=".-.-"
0700 WHEN "ø"
0710 M$:="---."
0720 WHEN "å"
0730 M$:=".--.-"
0740 OTHERWISE 
0750 M$:="* "
0760 ENDCASE 
0770 IF M$="* " THEN 
0780 PRINT " / ";
0790 ELSE 
0800 PRINT M$+"   ";
0810 ENDIF 
0820 NEXT I
0830 PRINT

TextFile

=0010 // ------------------------ morse_1 --------------------=80020 // Programmet omsætter en alm. tekst til morsetekst8▶08◀0030 // ▶08◀▶0b◀0040 CLEAR ▶0b◀%0050 DIM TEKST$ OF 80,S$ OF 1,M$ OF 5%▶0b◀0055 PRINT ▶0b◀B0060 PRINT "Indtast en tekst (max 80 mellemrum og små bogstaver):"B▶11◀0070 INPUT TEKST$▶11◀▶11◀0080 PRINT TEKST$▶11◀ 0090 FOR I:=1 TO LEN(TEKST$) DO  ▶14◀0100 S$:=TEKST$(I:1)▶14◀▶10◀0110 CASE S$ OF ▶10◀\r0120 WHEN " "\r▶0e◀0130 M$:="   "▶0e◀\r0140 WHEN "a"\r\r0150 M$:=".-"\r\r0160 WHEN "b"\r▶0f◀0170 M$:="-..."▶0f◀\r0180 WHEN "c"\r▶0f◀0190 M$:="-.-."▶0f◀\r0200 WHEN "d"\r▶0e◀0210 M$:="-.."▶0e◀\r0220 WHEN "e"\r\f

0230 M$:="."\f

\r0240 WHEN "f"\r▶0f◀0250 M$:="..-."▶0f◀\r0260 WHEN "g"\r▶0e◀0270 M$:="--."▶0e◀\r0280 WHEN "h"\r▶0f◀0290 M$:="...."▶0f◀\r0300 WHEN "i"\r\r0310 M$:=".."\r\r0320 WHEN "j"\r▶0f◀0330 M$:=".---"▶0f◀\r0340 WHEN "k"\r▶0e◀0350 M$:="-.-"▶0e◀\r0360 WHEN "k"\r▶0e◀0370 M$:="-.-"▶0e◀\r0380 WHEN "l"\r▶0f◀0390 M$:=".-.."▶0f◀\r0400 WHEN "m"\r\r0410 M$:="--"\r\r0420 WHEN "n"\r\r0430 M$:="-."\r\r0440 WHEN "o"\r▶0e◀0450 M$:="---"▶0e◀\r0460 WHEN "p"\r▶0f◀0470 M$:=".--."▶0f◀\r0480 WHEN "q"\r▶0f◀0490 M$:="--.-"▶0f◀\r0500 WHEN "r"\r▶0e◀0510 M$:=".-."▶0e◀\r0520 WHEN "s"\r▶0e◀0530 M$:="..."▶0e◀\r0540 WHEN "t"\r\f

0550 M$:="-"\f

\r0560 WHEN "u"\r▶0e◀0570 M$:="..-"▶0e◀\r0580 WHEN "v"\r▶0f◀0590 M$:="...-"▶0f◀\r0600 WHEN "w"\r▶0e◀0610 M$:=".--"▶0e◀\r0620 WHEN "x"\r▶0f◀0630 M$:="-..-"▶0f◀\r0640 WHEN "y"\r▶0f◀0650 M$:="-.--"▶0f◀\r0660 WHEN "z"\r▶0f◀0670 M$:="--.."▶0f◀\r0680 WHEN "æ"\r▶0f◀0690 M$:=".-.-"▶0f◀\r0700 WHEN "ø"\r▶0f◀0710 M$:="---."▶0f◀\r0720 WHEN "å"\r▶10◀0730 M$:=".--.-"▶10◀▶0f◀0740 OTHERWISE ▶0f◀\r0750 M$:="* "\r\r0760 ENDCASE \r▶15◀0770 IF M$="* " THEN ▶15◀▶11◀0780 PRINT " / ";▶11◀
0790 ELSE 
▶14◀0800 PRINT M$+"   ";▶14◀▶0b◀0810 ENDIF ▶0b◀▶0b◀0820 NEXT I▶0b◀▶0b◀0830 PRINT ▶0b◀▶00◀▶00◀ // ------------------------ morse_1 --------------------=80020 // Programmet omsætter en alm. tekst til morsetekst8▶08◀0030 // ▶08◀▶0b◀0040 CLEAR ▶0b◀%0050 DIM TEKST$ OF 80,S$ OF 1,M$ OF 5%▶0b◀0055 PRINT ▶0b◀B0060 PRINT "Indtast en tekscccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc