DataMuseum.dk

top - metrics - download

    Length: 1339 (0x53b)
    Notes: Mikados TextFile, Mikados_K
    Names: »MORSE1«

└─⟦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