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

⟦36113f625⟧ TextFile

    Length: 480 (0x1e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »EKS_ORD2.K«

Derivation

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

0010 // ------------------------ eks_ORD2 ----------------
0015 INTEGER A
0020 // Udskriver ASCII-værdien af hvert tegn i en streng.
0030 DIM TEKST$ OF 29
0040 CLEAR 
0050 CURSOR 1,6
0060 PRINT "Indtast tekst:     (højst 29)   ";
0070 INPUT TEKST$
0080 PRINT 
0090 FOR A:=1 TO LEN(TEKST$) DO 
0100 PRINT "Tegn nr:  ";A;"   ";TEKST$(A:1);"  har ASCII-værdien:  ";
0105 PRINT ORD(TEKST$(A:1))
0110 NEXT A

0x000…03c Line {l1=0x3a, l2=»0010 // ------------------------ eks_ORD2 ----------------«, l3=0x3a}
0x03c…04c Line {l1=0x0e, l2=»0015 INTEGER A«, l3=0x0e}
0x04c…088 Line {l1=0x3a, l2=»0020 // Udskriver ASCII-værdien af hvert tegn i en streng.«, l3=0x3a}
0x088…09f Line {l1=0x15, l2=»0030 DIM TEKST$ OF 29«, l3=0x15}
0x09f…0ac Line {l1=0x0b, l2=»0040 CLEAR «, l3=0x0b}
0x0ac…0bd Line {l1=0x0f, l2=»0050 CURSOR 1,6«, l3=0x0f}
0x0bd…0ed Line {l1=0x2e, l2=»0060 PRINT "Indtast tekst:     (højst 29)   ";«, l3=0x2e}
0x0ed…100 Line {l1=0x11, l2=»0070 INPUT TEKST$«, l3=0x11}
0x100…10d Line {l1=0x0b, l2=»0080 PRINT «, l3=0x0b}
0x10d…12f Line {l1=0x20, l2=»0090 FOR A:=1 TO LEN(TEKST$) DO «, l3=0x20}
0x12f…176 Line {l1=0x45, l2=»0100 PRINT "Tegn nr:  ";A;"   ";TEKST$(A:1);"  har ASCII-værdien:  ";«, l3=0x45}
0x176…193 Line {l1=0x1b, l2=»0105 PRINT ORD(TEKST$(A:1))«, l3=0x1b}
0x193…1a0 Line {l1=0x0b, l2=»0110 NEXT A«, l3=0x0b}
0x1a0…1c0 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 63 63 63 63 63 63 63   ┆  cccccccccccccccccccccccccccccc┆
0x1c0…1e0 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┆

Reduced view