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 - download

⟦32140edcb⟧ TextFile

    Length: 1760 (0x6e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »ANALYSE.K«

Derivation

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

0010 // ----------------------- analyse ------------------------
0020 // Optæller antallet af vokaler, konsonanter, cifre og mellemrum
0030 // i en forud indtastet tekst. Programmet kan let udvides til
0040 // at omfatte analyse af en tekst med alle tegn.
0050 DIM VOKAL$ OF 10,KONSONANT$ OF 20,BLANKTEGN$ OF 1,TEXT$ OF 80
0055 DIM TAL$ OF 10
0060 ANTVOKAL:=0;ANTKONSONANT:=0;ANTBLANKTEGN:=0;ANTTAL:=0
0070 // ---------------------------------------------------------------------
0080 CLEAR 
0090 VOKAL$:="aeiouyzæøå"
0100 KONSONANT$:="bcdfghjklmnpqrstvxz"
0110 BLANKTEGN$:=" "
0120 TAL$:="1234567890"
0125 PRINT 
0130 PRINT "Indtast en tekst på højst 80 tegn. (Brug små bogstaver og tal):"
0140 PRINT 
0150 INPUT TEXT$
0160 FOR I:=1 TO LEN(TEXT$) DO 
0170 IF TEXT$(I:1) IN VOKAL$ THEN ANTVOKAL:=ANTVOKAL+1
0180 IF TEXT$(I:1) IN KONSONANT$ THEN ANTKONSONANT:=ANTKONSONANT+1
0190 IF TEXT$(I:1) IN BLANKTEGN$ THEN ANTBLANKTEGN:=ANTBLANKTEGN+1
0200 IF TEXT$(I:1) IN TAL$ THEN ANTTAL:=ANTTAL+1
0210 NEXT I
0220 // --------------------------------------------------------------------
0230 PRINT 
0240 PRINT 
0250 PRINT USING "I teksten er der:     #### vokaler.     ":ANTVOKAL
0260 PRINT USING "I teksten er der:     #### konsonanter. ":ANTKONSONANT
0270 PRINT USING "I teksten er der:     #### mellemrum.   ":ANTBLANKTEGN
0280 PRINT USING "I teksten er der:     #### cifre.       ":ANTTAL

0x000…042 Line {l1=0x40, l2=»0010 // ----------------------- analyse ------------------------«, l3=0x40}
0x042…089 Line {l1=0x45, l2=»0020 // Optæller antallet af vokaler, konsonanter, cifre og mellemrum«, l3=0x45}
0x089…0cd Line {l1=0x42, l2=»0030 // i en forud indtastet tekst. Programmet kan let udvides til«, l3=0x42}
0x0cd…104 Line {l1=0x35, l2=»0040 // at omfatte analyse af en tekst med alle tegn.«, l3=0x35}
0x104…148 Line {l1=0x42, l2=»0050 DIM VOKAL$ OF 10,KONSONANT$ OF 20,BLANKTEGN$ OF 1,TEXT$ OF 80«, l3=0x42}
0x148…15d Line {l1=0x13, l2=»0055 DIM TAL$ OF 10«, l3=0x13}
0x15d…199 Line {l1=0x3a, l2=»0060 ANTVOKAL:=0;ANTKONSONANT:=0;ANTBLANKTEGN:=0;ANTTAL:=0«, l3=0x3a}
0x199…1e8 Line {l1=0x4d, l2=»0070 // ---------------------------------------------------------------------«, l3=0x4d}
0x1e8…1f5 Line {l1=0x0b, l2=»0080 CLEAR «, l3=0x0b}
0x1f5…210 Line {l1=0x19, l2=»0090 VOKAL$:="aeiouyzæøå"«, l3=0x19}
0x210…238 Line {l1=0x26, l2=»0100 KONSONANT$:="bcdfghjklmnpqrstvxz"«, l3=0x26}
0x238…24e Line {l1=0x14, l2=»0110 BLANKTEGN$:=" "«, l3=0x14}
0x24e…267 Line {l1=0x17, l2=»0120 TAL$:="1234567890"«, l3=0x17}
0x267…274 Line {l1=0x0b, l2=»0125 PRINT «, l3=0x0b}
0x274…2c2 Line {l1=0x4c, l2=»0130 PRINT "Indtast en tekst på højst 80 tegn. (Brug små bogstaver og tal):"«, l3=0x4c}
0x2c2…2cf Line {l1=0x0b, l2=»0140 PRINT «, l3=0x0b}
0x2cf…2e1 Line {l1=0x10, l2=»0150 INPUT TEXT$«, l3=0x10}
0x2e1…302 Line {l1=0x1f, l2=»0160 FOR I:=1 TO LEN(TEXT$) DO «, l3=0x1f}
0x302…33a Line {l1=0x36, l2=»0170 IF TEXT$(I:1) IN VOKAL$ THEN ANTVOKAL:=ANTVOKAL+1«, l3=0x36}
0x33a…37e Line {l1=0x42, l2=»0180 IF TEXT$(I:1) IN KONSONANT$ THEN ANTKONSONANT:=ANTKONSONANT+1«, l3=0x42}
0x37e…3c2 Line {l1=0x42, l2=»0190 IF TEXT$(I:1) IN BLANKTEGN$ THEN ANTBLANKTEGN:=ANTBLANKTEGN+1«, l3=0x42}
0x3c2…3f4 Line {l1=0x30, l2=»0200 IF TEXT$(I:1) IN TAL$ THEN ANTTAL:=ANTTAL+1«, l3=0x30}
0x3f4…401 Line {l1=0x0b, l2=»0210 NEXT I«, l3=0x0b}
0x401…44f Line {l1=0x4c, l2=»0220 // --------------------------------------------------------------------«, l3=0x4c}
0x44f…45c Line {l1=0x0b, l2=»0230 PRINT «, l3=0x0b}
0x45c…469 Line {l1=0x0b, l2=»0240 PRINT «, l3=0x0b}
0x469…4af Line {l1=0x44, l2=»0250 PRINT USING "I teksten er der:     #### vokaler.     ":ANTVOKAL«, l3=0x44}
0x4af…4f9 Line {l1=0x48, l2=»0260 PRINT USING "I teksten er der:     #### konsonanter. ":ANTKONSONANT«, l3=0x48}
0x4f9…543 Line {l1=0x48, l2=»0270 PRINT USING "I teksten er der:     #### mellemrum.   ":ANTBLANKTEGN«, l3=0x48}
0x543…587 Line {l1=0x42, l2=»0280 PRINT USING "I teksten er der:     #### cifre.       ":ANTTAL«, l3=0x42}
0x587…5a0 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63                        ┆  ccccccccccccccccccccccc┆
0x5a0…5c0 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┆
          […0x9…]

Reduced view