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

⟦c775fa500⟧ TextFile

    Length: 736 (0x2e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »OVERFLAD.K«

Derivation

└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »OVERFLAD.K« 
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »OVERFLAD.K«

Mikados K File

0010 // --------------------- overflade -------------------------
0020 // Udregner overfladen af en kasse, når man indtaster
0030 // kassens længde, bredde & højde.
0040 // 
0050 INPUT "Indtast kassens bredde:      ":BREDDE
0060 INPUT "Indtast kassens længde:      ":LÆNGDE
0070 INPUT "Indtast kassens højde:       ":HØJDE
0080 // 
0090 OVERFLADEN:=(LÆNGDE*BREDDE+BREDDE*HØJDE+HØJDE*LÆNGDE)*2
0100 // 
0110 PRINT USING "Bredden:    #####.## cm.":BREDDE
0120 PRINT USING "Længden:    #####.## cm.":LÆNGDE
0130 PRINT USING "Højden:     #####.## cm.":HØJDE
0140 PRINT USING "Overfladen:######.## cm3.":OVERFLADEN

Mikados K File

0x000…043 Line {l1=0x41, l2=»0010 // --------------------- overflade -------------------------«, l3=0x41}
0x043…07f Line {l1=0x3a, l2=»0020 // Udregner overfladen af en kasse, når man indtaster«, l3=0x3a}
0x07f…0a8 Line {l1=0x27, l2=»0030 // kassens længde, bredde & højde.«, l3=0x27}
0x0a8…0b2 Line {l1=0x08, l2=»0040 // «, l3=0x08}
0x0b2…0e5 Line {l1=0x31, l2=»0050 INPUT "Indtast kassens bredde:      ":BREDDE«, l3=0x31}
0x0e5…118 Line {l1=0x31, l2=»0060 INPUT "Indtast kassens længde:      ":LÆNGDE«, l3=0x31}
0x118…14a Line {l1=0x30, l2=»0070 INPUT "Indtast kassens højde:       ":HØJDE«, l3=0x30}
0x14a…154 Line {l1=0x08, l2=»0080 // «, l3=0x08}
0x154…192 Line {l1=0x3c, l2=»0090 OVERFLADEN:=(LÆNGDE*BREDDE+BREDDE*HØJDE+HØJDE*LÆNGDE)*2«, l3=0x3c}
0x192…19c Line {l1=0x08, l2=»0100 // «, l3=0x08}
0x19c…1d0 Line {l1=0x32, l2=»0110 PRINT USING "Bredden:    #####.## cm.":BREDDE«, l3=0x32}
0x1d0…204 Line {l1=0x32, l2=»0120 PRINT USING "Længden:    #####.## cm.":LÆNGDE«, l3=0x32}
0x204…237 Line {l1=0x31, l2=»0130 PRINT USING "Højden:     #####.## cm.":HØJDE«, l3=0x31}
0x237…270 Line {l1=0x37, l2=»0140 PRINT USING "Overfladen:######.## cm3.":OVERFLADEN«, l3=0x37}
0x270…280 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63                                                   ┆  cccccccccccccc┆
0x280…2a0 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┆
          […0x2…]

Reduced view