|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 5056 (0x13c0)
Types: TextFile
Notes: Mikados_K
Names: »MORSE1.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »MORSE1.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »MORSE1.K«
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
0x0000…003f Line {l1=0x3d, l2=»0010 // ------------------------ morse_1 --------------------«, l3=0x3d}
0x003f…0079 Line {l1=0x38, l2=»0020 // Programmet omsætter en alm. tekst til morsetekst«, l3=0x38}
0x0079…0083 Line {l1=0x08, l2=»0030 // «, l3=0x08}
0x0083…0090 Line {l1=0x0b, l2=»0040 CLEAR «, l3=0x0b}
0x0090…00b7 Line {l1=0x25, l2=»0050 DIM TEKST$ OF 80,S$ OF 1,M$ OF 5«, l3=0x25}
0x00b7…00c4 Line {l1=0x0b, l2=»0055 PRINT «, l3=0x0b}
0x00c4…0108 Line {l1=0x42, l2=»0060 PRINT "Indtast en tekst (max 80 mellemrum og små bogstaver):"«, l3=0x42}
0x0108…011b Line {l1=0x11, l2=»0070 INPUT TEKST$«, l3=0x11}
0x011b…012e Line {l1=0x11, l2=»0080 PRINT TEKST$«, l3=0x11}
0x012e…0150 Line {l1=0x20, l2=»0090 FOR I:=1 TO LEN(TEKST$) DO «, l3=0x20}
0x0150…0166 Line {l1=0x14, l2=»0100 S$:=TEKST$(I:1)«, l3=0x14}
0x0166…0178 Line {l1=0x10, l2=»0110 CASE S$ OF «, l3=0x10}
0x0178…0187 Line {l1=0x0d, l2=»0120 WHEN " "«, l3=0x0d}
0x0187…0197 Line {l1=0x0e, l2=»0130 M$:=" "«, l3=0x0e}
0x0197…01a6 Line {l1=0x0d, l2=»0140 WHEN "a"«, l3=0x0d}
0x01a6…01b5 Line {l1=0x0d, l2=»0150 M$:=".-"«, l3=0x0d}
0x01b5…01c4 Line {l1=0x0d, l2=»0160 WHEN "b"«, l3=0x0d}
0x01c4…01d5 Line {l1=0x0f, l2=»0170 M$:="-..."«, l3=0x0f}
0x01d5…01e4 Line {l1=0x0d, l2=»0180 WHEN "c"«, l3=0x0d}
0x01e4…01f5 Line {l1=0x0f, l2=»0190 M$:="-.-."«, l3=0x0f}
0x01f5…0204 Line {l1=0x0d, l2=»0200 WHEN "d"«, l3=0x0d}
0x0204…0214 Line {l1=0x0e, l2=»0210 M$:="-.."«, l3=0x0e}
0x0214…0223 Line {l1=0x0d, l2=»0220 WHEN "e"«, l3=0x0d}
0x0223…0231 Line {l1=0x0c, l2=»0230 M$:="."«, l3=0x0c}
0x0231…0240 Line {l1=0x0d, l2=»0240 WHEN "f"«, l3=0x0d}
0x0240…0251 Line {l1=0x0f, l2=»0250 M$:="..-."«, l3=0x0f}
0x0251…0260 Line {l1=0x0d, l2=»0260 WHEN "g"«, l3=0x0d}
0x0260…0270 Line {l1=0x0e, l2=»0270 M$:="--."«, l3=0x0e}
0x0270…027f Line {l1=0x0d, l2=»0280 WHEN "h"«, l3=0x0d}
0x027f…0290 Line {l1=0x0f, l2=»0290 M$:="...."«, l3=0x0f}
0x0290…029f Line {l1=0x0d, l2=»0300 WHEN "i"«, l3=0x0d}
0x029f…02ae Line {l1=0x0d, l2=»0310 M$:=".."«, l3=0x0d}
0x02ae…02bd Line {l1=0x0d, l2=»0320 WHEN "j"«, l3=0x0d}
0x02bd…02ce Line {l1=0x0f, l2=»0330 M$:=".---"«, l3=0x0f}
0x02ce…02dd Line {l1=0x0d, l2=»0340 WHEN "k"«, l3=0x0d}
0x02dd…02ed Line {l1=0x0e, l2=»0350 M$:="-.-"«, l3=0x0e}
0x02ed…02fc Line {l1=0x0d, l2=»0360 WHEN "k"«, l3=0x0d}
0x02fc…030c Line {l1=0x0e, l2=»0370 M$:="-.-"«, l3=0x0e}
0x030c…031b Line {l1=0x0d, l2=»0380 WHEN "l"«, l3=0x0d}
0x031b…032c Line {l1=0x0f, l2=»0390 M$:=".-.."«, l3=0x0f}
0x032c…033b Line {l1=0x0d, l2=»0400 WHEN "m"«, l3=0x0d}
0x033b…034a Line {l1=0x0d, l2=»0410 M$:="--"«, l3=0x0d}
0x034a…0359 Line {l1=0x0d, l2=»0420 WHEN "n"«, l3=0x0d}
0x0359…0368 Line {l1=0x0d, l2=»0430 M$:="-."«, l3=0x0d}
0x0368…0377 Line {l1=0x0d, l2=»0440 WHEN "o"«, l3=0x0d}
0x0377…0387 Line {l1=0x0e, l2=»0450 M$:="---"«, l3=0x0e}
0x0387…0396 Line {l1=0x0d, l2=»0460 WHEN "p"«, l3=0x0d}
0x0396…03a7 Line {l1=0x0f, l2=»0470 M$:=".--."«, l3=0x0f}
0x03a7…03b6 Line {l1=0x0d, l2=»0480 WHEN "q"«, l3=0x0d}
0x03b6…03c7 Line {l1=0x0f, l2=»0490 M$:="--.-"«, l3=0x0f}
0x03c7…03d6 Line {l1=0x0d, l2=»0500 WHEN "r"«, l3=0x0d}
0x03d6…03e6 Line {l1=0x0e, l2=»0510 M$:=".-."«, l3=0x0e}
0x03e6…03f5 Line {l1=0x0d, l2=»0520 WHEN "s"«, l3=0x0d}
0x03f5…0405 Line {l1=0x0e, l2=»0530 M$:="..."«, l3=0x0e}
0x0405…0414 Line {l1=0x0d, l2=»0540 WHEN "t"«, l3=0x0d}
0x0414…0422 Line {l1=0x0c, l2=»0550 M$:="-"«, l3=0x0c}
0x0422…0431 Line {l1=0x0d, l2=»0560 WHEN "u"«, l3=0x0d}
0x0431…0441 Line {l1=0x0e, l2=»0570 M$:="..-"«, l3=0x0e}
0x0441…0450 Line {l1=0x0d, l2=»0580 WHEN "v"«, l3=0x0d}
0x0450…0461 Line {l1=0x0f, l2=»0590 M$:="...-"«, l3=0x0f}
0x0461…0470 Line {l1=0x0d, l2=»0600 WHEN "w"«, l3=0x0d}
0x0470…0480 Line {l1=0x0e, l2=»0610 M$:=".--"«, l3=0x0e}
0x0480…048f Line {l1=0x0d, l2=»0620 WHEN "x"«, l3=0x0d}
0x048f…04a0 Line {l1=0x0f, l2=»0630 M$:="-..-"«, l3=0x0f}
0x04a0…04af Line {l1=0x0d, l2=»0640 WHEN "y"«, l3=0x0d}
0x04af…04c0 Line {l1=0x0f, l2=»0650 M$:="-.--"«, l3=0x0f}
0x04c0…04cf Line {l1=0x0d, l2=»0660 WHEN "z"«, l3=0x0d}
0x04cf…04e0 Line {l1=0x0f, l2=»0670 M$:="--.."«, l3=0x0f}
0x04e0…04ef Line {l1=0x0d, l2=»0680 WHEN "æ"«, l3=0x0d}
0x04ef…0500 Line {l1=0x0f, l2=»0690 M$:=".-.-"«, l3=0x0f}
0x0500…050f Line {l1=0x0d, l2=»0700 WHEN "ø"«, l3=0x0d}
0x050f…0520 Line {l1=0x0f, l2=»0710 M$:="---."«, l3=0x0f}
0x0520…052f Line {l1=0x0d, l2=»0720 WHEN "å"«, l3=0x0d}
0x052f…0541 Line {l1=0x10, l2=»0730 M$:=".--.-"«, l3=0x10}
0x0541…0552 Line {l1=0x0f, l2=»0740 OTHERWISE «, l3=0x0f}
0x0552…0561 Line {l1=0x0d, l2=»0750 M$:="* "«, l3=0x0d}
0x0561…0570 Line {l1=0x0d, l2=»0760 ENDCASE «, l3=0x0d}
0x0570…0587 Line {l1=0x15, l2=»0770 IF M$="* " THEN «, l3=0x15}
0x0587…059a Line {l1=0x11, l2=»0780 PRINT " / ";«, l3=0x11}
0x059a…05a6 Line {l1=0x0a, l2=»0790 ELSE «, l3=0x0a}
0x05a6…05bc Line {l1=0x14, l2=»0800 PRINT M$+" ";«, l3=0x14}
0x05bc…05c9 Line {l1=0x0b, l2=»0810 ENDIF «, l3=0x0b}
0x05c9…05d6 Line {l1=0x0b, l2=»0820 NEXT I«, l3=0x0b}
0x05d6…05e3 Line {l1=0x0b, l2=»0830 PRINT «, l3=0x0b}
0x05e3…0600 00 00 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ // -----------------------┆
0x0600…0620 2d 20 6d 6f 72 73 65 5f 31 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3d 38 ┆- morse_1 --------------------=8┆
0x0620…0640 30 30 32 30 20 2f 2f 20 50 72 6f 67 72 61 6d 6d 65 74 20 6f 6d 73 7b 74 74 65 72 20 65 6e 20 61 ┆0020 // Programmet omsætter en a┆
0x0640…0660 6c 6d 2e 20 74 65 6b 73 74 20 74 69 6c 20 6d 6f 72 73 65 74 65 6b 73 74 38 08 30 30 33 30 20 2f ┆lm. tekst til morsetekst8 0030 /┆
0x0660…0680 2f 20 08 0b 30 30 34 30 20 43 4c 45 41 52 20 0b 25 30 30 35 30 20 44 49 4d 20 54 45 4b 53 54 24 ┆/ 0040 CLEAR %0050 DIM TEKST$┆
0x0680…06a0 20 4f 46 20 38 30 2c 53 24 20 4f 46 20 31 2c 4d 24 20 4f 46 20 35 25 0b 30 30 35 35 20 50 52 49 ┆ OF 80,S$ OF 1,M$ OF 5% 0055 PRI┆
0x06a0…06c0 4e 54 20 0b 42 30 30 36 30 20 50 52 49 4e 54 20 22 49 6e 64 74 61 73 74 20 65 6e 20 74 65 6b 73 ┆NT B0060 PRINT "Indtast en teks┆
0x06c0…06e0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x67…]
=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