|
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: »MORSE2.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »MORSE2.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »MORSE2.K«
0010 // ------------------------ morse_2 ---------------------- 0020 // Programmet omsætter en morsetekst til alm. tekst. 0030 DIM TEKST$ OF 80,TEGN$ OF 30,KLARTEKST$ OF 200,B$ OF 1 0040 // 0050 CLEAR 0060 CURSOR 30,4 0070 PRINT " M O R S E ." 0080 CURSOR 30,5 0090 PRINT "------------" 0100 CURSOR 10,8 0110 PRINT "Kun prikker, streger og mellemrum er tilladt." 0120 CURSOR 10,9 0130 PRINT "Evt. andre tegn vil blive opfattet som mellemrum." 0140 CURSOR 10,10 0150 PRINT "Ulovlige morsetegn vil blive udskrevet som '*'" 0160 CURSOR 10,11 0170 PRINT "Indtast morseteksten ( 2 gange 'return' stopper):" 0180 PRINT 0190 TÆLLER:=0 0200 TEKST$:="" 0210 WHILE TEKST$<>"*" DO 0220 INPUT TEKST$ 0230 L:=LEN(TEKST$) 0240 TEKST$(L+1:1):="*" 0250 I:=1 0260 WHILE TEKST$(I:1)<>"." AND TEKST$(I:1)<>"-" AND I<LEN(TEKST$) DO 0270 I:=I+1 0280 ENDWHILE 0290 WHILE I<LEN(TEKST$) DO 0300 TEGN$:="" 0310 J:=1 0320 WHILE I<LEN(TEKST$) AND (TEKST$(I:1)="." OR TEKST$(I:1)="-") DO 0330 TEGN$(J:1):=TEKST$(I:1) 0340 I:=I+1;J:=J+1 0350 ENDWHILE 0360 TÆLLER:=TÆLLER+1 0370 IF LEN(TEGN$)>5 THEN 0380 KLARTEKST$(TÆLLER:1):="*" 0390 ELSE // nyt bogstav fundet 0400 EXEC BOGSTAV(TEGN$) 0410 ENDIF 0420 ISTART:=I 0430 WHILE I<LEN(TEKST$) AND TEKST$(I:1)<>"." AND TEKST$(I:1)<>"-" DO 0440 I:=I+1 0450 ENDWHILE 0460 ISLUT:=I 0470 IF ISLUT-ISTART>1 THEN // nyt ord starter 0480 TÆLLER:=TÆLLER+1 0490 KLARTEKST$(TÆLLER:1):=" " 0510 ENDWHILE 0520 TÆLLER:=TÆLLER+1 0530 KLARTEKST$(TÆLLER:1):=" " 0540 ENDWHILE 0550 PRINT KLARTEKST$ 0560 // 0570 PROC BOGSTAV(TGN$) 0580 CASE TGN$ OF 0590 WHEN "." 0600 B$:="e" 0610 WHEN "-" 0620 B$:="t" 0630 WHEN ".." 0640 B$:="i" 0650 WHEN ".-" 0660 B$:="a" 0670 WHEN "-." 0680 B$:="n" 0690 WHEN "--" 0700 B$:="m" 0710 WHEN "..." 0720 B$:="s" 0730 WHEN "..-" 0740 B$:="u" 0750 WHEN ".-." 0760 B$:="r" 0770 WHEN "-.." 0780 B$:="d" 0790 WHEN ".--" 0800 B$:="w" 0810 WHEN "-.-" 0820 B$:="k" 0830 WHEN "--." 0840 B$:="g" 0850 WHEN "---" 0860 B$:="o" 0870 WHEN "-..." 0880 B$:="b" 0890 WHEN "-.-." 0900 B$:="c" 0910 WHEN "..-." 0920 B$:="f" 0930 WHEN "...." 0940 B$:="h" 0950 WHEN ".---" 0960 B$:="j" 0970 WHEN ".-.." 0980 B$:="l" 0990 WHEN ".--." 1000 B$:="p" 1010 WHEN "--.-" 1020 B$:="q" 1030 WHEN "...-" 1040 B$:="v" 1050 WHEN "-..-" 1060 B$:="x" 1070 WHEN "-.--" 1080 B$:="y" 1090 WHEN "--.." 1100 B$:="z" 1110 WHEN ".-.-" 1120 B$:="æ" 1130 WHEN "---." 1140 B$:="ø" 1150 WHEN ".--.-" 1160 B$:="å" 1170 OTHERWISE 1180 B$:="*" 1190 ENDCASE 1200 KLARTEKST$(TÆLLER):=B$ 1210 ENDPROC BOGSTAV =057 // ".--.-"
0x0000…0041 Line {l1=0x3f, l2=»0010 // ------------------------ morse_2 ----------------------«, l3=0x3f}
0x0041…007c Line {l1=0x39, l2=»0020 // Programmet omsætter en morsetekst til alm. tekst.«, l3=0x39}
0x007c…00b9 Line {l1=0x3b, l2=»0030 DIM TEKST$ OF 80,TEGN$ OF 30,KLARTEKST$ OF 200,B$ OF 1«, l3=0x3b}
0x00b9…00c3 Line {l1=0x08, l2=»0040 // «, l3=0x08}
0x00c3…00d0 Line {l1=0x0b, l2=»0050 CLEAR «, l3=0x0b}
0x00d0…00e2 Line {l1=0x10, l2=»0060 CURSOR 30,4«, l3=0x10}
0x00e2…00fd Line {l1=0x19, l2=»0070 PRINT " M O R S E ."«, l3=0x19}
0x00fd…010f Line {l1=0x10, l2=»0080 CURSOR 30,5«, l3=0x10}
0x010f…012a Line {l1=0x19, l2=»0090 PRINT "------------"«, l3=0x19}
0x012a…013c Line {l1=0x10, l2=»0100 CURSOR 10,8«, l3=0x10}
0x013c…0178 Line {l1=0x3a, l2=»0110 PRINT "Kun prikker, streger og mellemrum er tilladt."«, l3=0x3a}
0x0178…018a Line {l1=0x10, l2=»0120 CURSOR 10,9«, l3=0x10}
0x018a…01ca Line {l1=0x3e, l2=»0130 PRINT "Evt. andre tegn vil blive opfattet som mellemrum."«, l3=0x3e}
0x01ca…01dd Line {l1=0x11, l2=»0140 CURSOR 10,10«, l3=0x11}
0x01dd…021a Line {l1=0x3b, l2=»0150 PRINT "Ulovlige morsetegn vil blive udskrevet som '*'"«, l3=0x3b}
0x021a…022d Line {l1=0x11, l2=»0160 CURSOR 10,11«, l3=0x11}
0x022d…026d Line {l1=0x3e, l2=»0170 PRINT "Indtast morseteksten ( 2 gange 'return' stopper):"«, l3=0x3e}
0x026d…027a Line {l1=0x0b, l2=»0180 PRINT «, l3=0x0b}
0x027a…028a Line {l1=0x0e, l2=»0190 TÆLLER:=0«, l3=0x0e}
0x028a…029b Line {l1=0x0f, l2=»0200 TEKST$:=""«, l3=0x0f}
0x029b…02b7 Line {l1=0x1a, l2=»0210 WHILE TEKST$<>"*" DO «, l3=0x1a}
0x02b7…02ca Line {l1=0x11, l2=»0220 INPUT TEKST$«, l3=0x11}
0x02ca…02df Line {l1=0x13, l2=»0230 L:=LEN(TEKST$)«, l3=0x13}
0x02df…02f8 Line {l1=0x17, l2=»0240 TEKST$(L+1:1):="*"«, l3=0x17}
0x02f8…0303 Line {l1=0x09, l2=»0250 I:=1«, l3=0x09}
0x0303…034b Line {l1=0x46, l2=»0260 WHILE TEKST$(I:1)<>"." AND TEKST$(I:1)<>"-" AND I<LEN(TEKST$) DO «, l3=0x46}
0x034b…0358 Line {l1=0x0b, l2=»0270 I:=I+1«, l3=0x0b}
0x0358…0368 Line {l1=0x0e, l2=»0280 ENDWHILE «, l3=0x0e}
0x0368…0386 Line {l1=0x1c, l2=»0290 WHILE I<LEN(TEKST$) DO «, l3=0x1c}
0x0386…0396 Line {l1=0x0e, l2=»0300 TEGN$:=""«, l3=0x0e}
0x0396…03a1 Line {l1=0x09, l2=»0310 J:=1«, l3=0x09}
0x03a1…03e8 Line {l1=0x45, l2=»0320 WHILE I<LEN(TEKST$) AND (TEKST$(I:1)="." OR TEKST$(I:1)="-") DO «, l3=0x45}
0x03e8…0406 Line {l1=0x1c, l2=»0330 TEGN$(J:1):=TEKST$(I:1)«, l3=0x1c}
0x0406…041a Line {l1=0x12, l2=»0340 I:=I+1;J:=J+1«, l3=0x12}
0x041a…042a Line {l1=0x0e, l2=»0350 ENDWHILE «, l3=0x0e}
0x042a…0441 Line {l1=0x15, l2=»0360 TÆLLER:=TÆLLER+1«, l3=0x15}
0x0441…045d Line {l1=0x1a, l2=»0370 IF LEN(TEGN$)>5 THEN «, l3=0x1a}
0x045d…047d Line {l1=0x1e, l2=»0380 KLARTEKST$(TÆLLER:1):="*"«, l3=0x1e}
0x047d…049e Line {l1=0x1f, l2=»0390 ELSE // nyt bogstav fundet«, l3=0x1f}
0x049e…04b8 Line {l1=0x18, l2=»0400 EXEC BOGSTAV(TEGN$)«, l3=0x18}
0x04b8…04c5 Line {l1=0x0b, l2=»0410 ENDIF «, l3=0x0b}
0x04c5…04d5 Line {l1=0x0e, l2=»0420 ISTART:=I«, l3=0x0e}
0x04d5…051d Line {l1=0x46, l2=»0430 WHILE I<LEN(TEKST$) AND TEKST$(I:1)<>"." AND TEKST$(I:1)<>"-" DO «, l3=0x46}
0x051d…052a Line {l1=0x0b, l2=»0440 I:=I+1«, l3=0x0b}
0x052a…053a Line {l1=0x0e, l2=»0450 ENDWHILE «, l3=0x0e}
0x053a…0549 Line {l1=0x0d, l2=»0460 ISLUT:=I«, l3=0x0d}
0x0549…0579 Line {l1=0x2e, l2=»0470 IF ISLUT-ISTART>1 THEN // nyt ord starter«, l3=0x2e}
0x0579…0590 Line {l1=0x15, l2=»0480 TÆLLER:=TÆLLER+1«, l3=0x15}
0x0590…05b0 Line {l1=0x1e, l2=»0490 KLARTEKST$(TÆLLER:1):=" "«, l3=0x1e}
0x05b0…05c0 Line {l1=0x0e, l2=»0510 ENDWHILE «, l3=0x0e}
0x05c0…05d7 Line {l1=0x15, l2=»0520 TÆLLER:=TÆLLER+1«, l3=0x15}
0x05d7…05f7 Line {l1=0x1e, l2=»0530 KLARTEKST$(TÆLLER:1):=" "«, l3=0x1e}
0x05f7…0607 Line {l1=0x0e, l2=»0540 ENDWHILE «, l3=0x0e}
0x0607…061e Line {l1=0x15, l2=»0550 PRINT KLARTEKST$«, l3=0x15}
0x061e…0628 Line {l1=0x08, l2=»0560 // «, l3=0x08}
0x0628…0641 Line {l1=0x17, l2=»0570 PROC BOGSTAV(TGN$)«, l3=0x17}
0x0641…0655 Line {l1=0x12, l2=»0580 CASE TGN$ OF «, l3=0x12}
0x0655…0664 Line {l1=0x0d, l2=»0590 WHEN "."«, l3=0x0d}
0x0664…0672 Line {l1=0x0c, l2=»0600 B$:="e"«, l3=0x0c}
0x0672…0681 Line {l1=0x0d, l2=»0610 WHEN "-"«, l3=0x0d}
0x0681…068f Line {l1=0x0c, l2=»0620 B$:="t"«, l3=0x0c}
0x068f…069f Line {l1=0x0e, l2=»0630 WHEN ".."«, l3=0x0e}
0x069f…06ad Line {l1=0x0c, l2=»0640 B$:="i"«, l3=0x0c}
0x06ad…06bd Line {l1=0x0e, l2=»0650 WHEN ".-"«, l3=0x0e}
0x06bd…06cb Line {l1=0x0c, l2=»0660 B$:="a"«, l3=0x0c}
0x06cb…06db Line {l1=0x0e, l2=»0670 WHEN "-."«, l3=0x0e}
0x06db…06e9 Line {l1=0x0c, l2=»0680 B$:="n"«, l3=0x0c}
0x06e9…06f9 Line {l1=0x0e, l2=»0690 WHEN "--"«, l3=0x0e}
0x06f9…0707 Line {l1=0x0c, l2=»0700 B$:="m"«, l3=0x0c}
0x0707…0718 Line {l1=0x0f, l2=»0710 WHEN "..."«, l3=0x0f}
0x0718…0726 Line {l1=0x0c, l2=»0720 B$:="s"«, l3=0x0c}
0x0726…0737 Line {l1=0x0f, l2=»0730 WHEN "..-"«, l3=0x0f}
0x0737…0745 Line {l1=0x0c, l2=»0740 B$:="u"«, l3=0x0c}
0x0745…0756 Line {l1=0x0f, l2=»0750 WHEN ".-."«, l3=0x0f}
0x0756…0764 Line {l1=0x0c, l2=»0760 B$:="r"«, l3=0x0c}
0x0764…0775 Line {l1=0x0f, l2=»0770 WHEN "-.."«, l3=0x0f}
0x0775…0783 Line {l1=0x0c, l2=»0780 B$:="d"«, l3=0x0c}
0x0783…0794 Line {l1=0x0f, l2=»0790 WHEN ".--"«, l3=0x0f}
0x0794…07a2 Line {l1=0x0c, l2=»0800 B$:="w"«, l3=0x0c}
0x07a2…07b3 Line {l1=0x0f, l2=»0810 WHEN "-.-"«, l3=0x0f}
0x07b3…07c1 Line {l1=0x0c, l2=»0820 B$:="k"«, l3=0x0c}
0x07c1…07d2 Line {l1=0x0f, l2=»0830 WHEN "--."«, l3=0x0f}
0x07d2…07e0 Line {l1=0x0c, l2=»0840 B$:="g"«, l3=0x0c}
0x07e0…07f1 Line {l1=0x0f, l2=»0850 WHEN "---"«, l3=0x0f}
0x07f1…07ff Line {l1=0x0c, l2=»0860 B$:="o"«, l3=0x0c}
0x07ff…0811 Line {l1=0x10, l2=»0870 WHEN "-..."«, l3=0x10}
0x0811…081f Line {l1=0x0c, l2=»0880 B$:="b"«, l3=0x0c}
0x081f…0831 Line {l1=0x10, l2=»0890 WHEN "-.-."«, l3=0x10}
0x0831…083f Line {l1=0x0c, l2=»0900 B$:="c"«, l3=0x0c}
0x083f…0851 Line {l1=0x10, l2=»0910 WHEN "..-."«, l3=0x10}
0x0851…085f Line {l1=0x0c, l2=»0920 B$:="f"«, l3=0x0c}
0x085f…0871 Line {l1=0x10, l2=»0930 WHEN "...."«, l3=0x10}
0x0871…087f Line {l1=0x0c, l2=»0940 B$:="h"«, l3=0x0c}
0x087f…0891 Line {l1=0x10, l2=»0950 WHEN ".---"«, l3=0x10}
0x0891…089f Line {l1=0x0c, l2=»0960 B$:="j"«, l3=0x0c}
0x089f…08b1 Line {l1=0x10, l2=»0970 WHEN ".-.."«, l3=0x10}
0x08b1…08bf Line {l1=0x0c, l2=»0980 B$:="l"«, l3=0x0c}
0x08bf…08d1 Line {l1=0x10, l2=»0990 WHEN ".--."«, l3=0x10}
0x08d1…08df Line {l1=0x0c, l2=»1000 B$:="p"«, l3=0x0c}
0x08df…08f1 Line {l1=0x10, l2=»1010 WHEN "--.-"«, l3=0x10}
0x08f1…08ff Line {l1=0x0c, l2=»1020 B$:="q"«, l3=0x0c}
0x08ff…0911 Line {l1=0x10, l2=»1030 WHEN "...-"«, l3=0x10}
0x0911…091f Line {l1=0x0c, l2=»1040 B$:="v"«, l3=0x0c}
0x091f…0931 Line {l1=0x10, l2=»1050 WHEN "-..-"«, l3=0x10}
0x0931…093f Line {l1=0x0c, l2=»1060 B$:="x"«, l3=0x0c}
0x093f…0951 Line {l1=0x10, l2=»1070 WHEN "-.--"«, l3=0x10}
0x0951…095f Line {l1=0x0c, l2=»1080 B$:="y"«, l3=0x0c}
0x095f…0971 Line {l1=0x10, l2=»1090 WHEN "--.."«, l3=0x10}
0x0971…097f Line {l1=0x0c, l2=»1100 B$:="z"«, l3=0x0c}
0x097f…0991 Line {l1=0x10, l2=»1110 WHEN ".-.-"«, l3=0x10}
0x0991…099f Line {l1=0x0c, l2=»1120 B$:="æ"«, l3=0x0c}
0x099f…09b1 Line {l1=0x10, l2=»1130 WHEN "---."«, l3=0x10}
0x09b1…09bf Line {l1=0x0c, l2=»1140 B$:="ø"«, l3=0x0c}
0x09bf…09d2 Line {l1=0x11, l2=»1150 WHEN ".--.-"«, l3=0x11}
0x09d2…09e0 Line {l1=0x0c, l2=»1160 B$:="å"«, l3=0x0c}
0x09e0…09f1 Line {l1=0x0f, l2=»1170 OTHERWISE «, l3=0x0f}
0x09f1…09ff Line {l1=0x0c, l2=»1180 B$:="*"«, l3=0x0c}
0x09ff…0a0e Line {l1=0x0d, l2=»1190 ENDCASE «, l3=0x0d}
0x0a0e…0a2b Line {l1=0x1b, l2=»1200 KLARTEKST$(TÆLLER):=B$«, l3=0x1b}
0x0a2b…0a41 Line {l1=0x14, l2=»1210 ENDPROC BOGSTAV«, l3=0x14}
0x0a41…0a52 Line {l1=0x0f, l2=»=057 // ".--.-"«, l3=0x0f}
0x0a52…0a60 00 00 20 74 65 6b 73 74 2e 39 3b 30 30 33 ┆ tekst.9;003┆
0x0a60…0a80 30 20 44 49 4d 20 54 45 4b 53 54 24 20 4f 46 20 38 30 2c 54 45 47 4e 24 20 4f 46 20 33 30 2c 4b ┆0 DIM TEKST$ OF 80,TEGN$ OF 30,K┆
0x0a80…0aa0 4c 41 52 54 45 4b 53 54 24 20 4f 46 20 32 30 30 2c 42 24 20 4f 46 20 31 3b 08 30 30 34 30 20 2f ┆LARTEKST$ OF 200,B$ OF 1; 0040 /┆
0x0aa0…0ac0 2f 20 08 0b 30 30 35 30 20 43 4c 45 41 52 20 0b 10 30 30 36 30 20 43 55 52 53 4f 52 20 33 30 2c ┆/ 0050 CLEAR 0060 CURSOR 30,┆
0x0ac0…0ae0 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┆
[…0x47…]