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

⟦0eb259dbb⟧ TextFile

    Length: 2528 (0x9e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »EKSORD2.K«

Derivation

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

0010 // ------------------------ eks_ORD2 ----------------
0020 // Udskriver ASCII-værdien af hvert tegn i en streng.
0030 DIM TEKST$ OF 29
0035 INTEGER A
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
=109 // $(A:A))
D631 // FOR  

0x000…03c Line {l1=0x3a, l2=»0010 // ------------------------ eks_ORD2 ----------------«, l3=0x3a}
0x03c…078 Line {l1=0x3a, l2=»0020 // Udskriver ASCII-værdien af hvert tegn i en streng.«, l3=0x3a}
0x078…08f Line {l1=0x15, l2=»0030 DIM TEKST$ OF 29«, l3=0x15}
0x08f…09f Line {l1=0x0e, l2=»0035 INTEGER A«, l3=0x0e}
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…1b1 Line {l1=0x0f, l2=»=109 // $(A:A))«, l3=0x0f}
0x1b1…1c0 Line {l1=0x0d, l2=»D631 // FOR  «, l3=0x0d}
0x1c0…1e0 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┆
0x1e0…200 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┆
          […0x3f…]

Reduced view