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

⟦423a5de1d⟧ TextFile

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

Derivation

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

0010 // ------------------------- minimum -----------------------
0020 // 
0030 PROC MIN(A1,B1,C1)
0040 IF A1<B1 THEN 
0050 IF A1<C1 THEN 
0060 MIN:=A1
0070 ELSE 
0080 MIN:=C1
0090 ENDIF 
0100 ELSE 
0110 IF B1<C1 THEN 
0120 MIN:=B1
0130 ELSE 
0140 MIN:=C1
0150 ENDIF 
0160 ENDIF 
0170 ENDPROC MIN
0180 // 
0190 CLEAR 
0195 PRINT 
0200 INPUT "Indtast tre tal:    ":A,B,C
0210 PRINT "Det mindste af de tre tal er:  ";MIN(A,B,C)

0x000…043 Line {l1=0x41, l2=»0010 // ------------------------- minimum -----------------------«, l3=0x41}
0x043…04d Line {l1=0x08, l2=»0020 // «, l3=0x08}
0x04d…066 Line {l1=0x17, l2=»0030 PROC MIN(A1,B1,C1)«, l3=0x17}
0x066…07b Line {l1=0x13, l2=»0040 IF A1<B1 THEN «, l3=0x13}
0x07b…090 Line {l1=0x13, l2=»0050 IF A1<C1 THEN «, l3=0x13}
0x090…09e Line {l1=0x0c, l2=»0060 MIN:=A1«, l3=0x0c}
0x09e…0aa Line {l1=0x0a, l2=»0070 ELSE «, l3=0x0a}
0x0aa…0b8 Line {l1=0x0c, l2=»0080 MIN:=C1«, l3=0x0c}
0x0b8…0c5 Line {l1=0x0b, l2=»0090 ENDIF «, l3=0x0b}
0x0c5…0d1 Line {l1=0x0a, l2=»0100 ELSE «, l3=0x0a}
0x0d1…0e6 Line {l1=0x13, l2=»0110 IF B1<C1 THEN «, l3=0x13}
0x0e6…0f4 Line {l1=0x0c, l2=»0120 MIN:=B1«, l3=0x0c}
0x0f4…100 Line {l1=0x0a, l2=»0130 ELSE «, l3=0x0a}
0x100…10e Line {l1=0x0c, l2=»0140 MIN:=C1«, l3=0x0c}
0x10e…11b Line {l1=0x0b, l2=»0150 ENDIF «, l3=0x0b}
0x11b…128 Line {l1=0x0b, l2=»0160 ENDIF «, l3=0x0b}
0x128…13a Line {l1=0x10, l2=»0170 ENDPROC MIN«, l3=0x10}
0x13a…144 Line {l1=0x08, l2=»0180 // «, l3=0x08}
0x144…151 Line {l1=0x0b, l2=»0190 CLEAR «, l3=0x0b}
0x151…15e Line {l1=0x0b, l2=»0195 PRINT «, l3=0x0b}
0x15e…187 Line {l1=0x27, l2=»0200 INPUT "Indtast tre tal:    ":A,B,C«, l3=0x27}
0x187…1c0 Line {l1=0x37, l2=»0210 PRINT "Det mindste af de tre tal er:  ";MIN(A,B,C)«, l3=0x37}
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┆
          […0x7…]

A0010 // ------------------------- minimum -----------------------A▶08◀0020 // ▶08◀▶17◀0030 PROC MIN(A1,B1,C1)▶17◀▶13◀0040 IF A1<B1 THEN ▶13◀▶13◀0050 IF A1<C1 THEN ▶13◀\f

0060 MIN:=A1\f


0070 ELSE 
\f

0080 MIN:=C1\f

▶0b◀0090 ENDIF ▶0b◀
0100 ELSE 
▶13◀0110 IF B1<C1 THEN ▶13◀\f

0120 MIN:=B1\f


0130 ELSE 
\f

0140 MIN:=C1\f

▶0b◀0150 ENDIF ▶0b◀▶0b◀0160 ENDIF ▶0b◀▶10◀0170 ENDPROC MIN▶10◀▶08◀0180 // ▶08◀▶0b◀0190 CLEAR ▶0b◀▶0b◀0195 PRINT ▶0b◀'0200 INPUT "Indtast tre tal:    ":A,B,C'70210 PRINT "Det mindste af de tre tal er:  ";MIN(A,B,C)7▶00◀▶00◀cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc

Reduced view