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

⟦36113f625⟧

    Length: 480 (0x1e0)
    Notes: Mikados TextFile, Mikados_K
    Names: »EKS_ORD2«

Derivation

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

Text

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