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

⟦ad29608da⟧ TextFile

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

Derivation

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

0010 // ------------------------- max ---------------------------
0020 // 
0030 PROC MAX(X,Y)
0040 IF X<Y THEN 
0050 MAX:=Y
0060 ELSE 
0070 MAX:=X
0080 ENDIF 
0090 ENDPROC MAX
0100 // ----------------------------------------------------
0110 CLEAR 
0115 PRINT 
0120 INPUT "Indtast tre tal:    ":A,B,C
0130 PRINT "a = ";A;"          b = ";B;"         c = ";C
0140 PRINT 
0150 PRINT "Det største af tallene a og b er: ";MAX(A,B)
0155 MAXAB:=MAX(A,B)
0160 PRINT "Det største af alle tre tal er:   ";MAX(MAXAB,C)
8224 // 

0x000…043 Line {l1=0x41, l2=»0010 // ------------------------- max ---------------------------«, l3=0x41}
0x043…04d Line {l1=0x08, l2=»0020 // «, l3=0x08}
0x04d…061 Line {l1=0x12, l2=»0030 PROC MAX(X,Y)«, l3=0x12}
0x061…074 Line {l1=0x11, l2=»0040 IF X<Y THEN «, l3=0x11}
0x074…081 Line {l1=0x0b, l2=»0050 MAX:=Y«, l3=0x0b}
0x081…08d Line {l1=0x0a, l2=»0060 ELSE «, l3=0x0a}
0x08d…09a Line {l1=0x0b, l2=»0070 MAX:=X«, l3=0x0b}
0x09a…0a7 Line {l1=0x0b, l2=»0080 ENDIF «, l3=0x0b}
0x0a7…0b9 Line {l1=0x10, l2=»0090 ENDPROC MAX«, l3=0x10}
0x0b9…0f7 Line {l1=0x3c, l2=»0100 // ----------------------------------------------------«, l3=0x3c}
0x0f7…104 Line {l1=0x0b, l2=»0110 CLEAR «, l3=0x0b}
0x104…111 Line {l1=0x0b, l2=»0115 PRINT «, l3=0x0b}
0x111…13a Line {l1=0x27, l2=»0120 INPUT "Indtast tre tal:    ":A,B,C«, l3=0x27}
0x13a…174 Line {l1=0x38, l2=»0130 PRINT "a = ";A;"          b = ";B;"         c = ";C«, l3=0x38}
0x174…181 Line {l1=0x0b, l2=»0140 PRINT «, l3=0x0b}
0x181…1bb Line {l1=0x38, l2=»0150 PRINT "Det største af tallene a og b er: ";MAX(A,B)«, l3=0x38}
0x1bb…1d1 Line {l1=0x14, l2=»0155 MAXAB:=MAX(A,B)«, l3=0x14}
0x1d1…20f Line {l1=0x3c, l2=»0160 PRINT "Det største af alle tre tal er:   ";MAX(MAXAB,C)«, l3=0x3c}
0x20f…219 Line {l1=0x08, l2=»8224 // «, l3=0x08}
0x219…220 00 00 63 63 63 63 63                                                                              ┆  ccccc┆
0x220…240 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┆
          […0x5…]

A0010 // ------------------------- max ---------------------------A▶08◀0020 // ▶08◀▶12◀0030 PROC MAX(X,Y)▶12◀▶11◀0040 IF X<Y THEN ▶11◀▶0b◀0050 MAX:=Y▶0b◀
0060 ELSE 
▶0b◀0070 MAX:=X▶0b◀▶0b◀0080 ENDIF ▶0b◀▶10◀0090 ENDPROC MAX▶10◀<0100 // ----------------------------------------------------<▶0b◀0110 CLEAR ▶0b◀▶0b◀0115 PRINT ▶0b◀'0120 INPUT "Indtast tre tal:    ":A,B,C'80130 PRINT "a = ";A;"          b = ";B;"         c = ";C8▶0b◀0140 PRINT ▶0b◀80150 PRINT "Det største af tallene a og b er: ";MAX(A,B)8▶14◀0155 MAXAB:=MAX(A,B)▶14◀<0160 PRINT "Det største af alle tre tal er:   ";MAX(MAXAB,C)<▶08◀8224 // ▶08◀▶00◀▶00◀ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc

Reduced view