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

⟦a70b87c38⟧ TextFile

    Length: 992 (0x3e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »SØJLESUM.K«

Derivation

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

0010 // ----------------------- Søjlesum --------------------
0020 // 
0030 PROC AFRUND(X)
0040 AFRUND:=INT(X*100+0.5)/100
0050 ENDPROC AFRUND
0060 // 
0070 PROC SØJLESUMMER(REF MATRIX(,),RÆKKE,SØJLE,REF SUM())
0080 // 
0090 FOR I:=1 TO SØJLE DO 
0100 FOR J:=1 TO RÆKKE DO 
0110 SUM(I):=SUM(I)+AFRUND(MATRIX(J,I))
0120 NEXT J
0130 NEXT I
0140 ENDPROC SØJLESUMMER
0150 // 
0160 CLEAR 
0164 PRINT 
0165 PRINT 
0170 DIM TALSÆT(5,3),SØJLESUM(3)
0180 FOR I:=1 TO 5 DO 
0190 FOR J:=1 TO 3 DO 
0200 READ TALSÆT(I,J)
0210 NEXT J
0220 NEXT I
0230 EXEC SØJLESUMMER(TALSÆT,5,3,SØJLESUM)
0240 // 
0250 FOR I:=1 TO 3 DO 
0260 PRINT CHR$(SØJLESUM(I),8,2)
0270 NEXT I
0280 // 
0290 DATA 12.345,12.4,8.887999
0300 DATA 2.551,45.347,23.121
0310 DATA 89.899,34.725,76.123
0320 DATA 45.358,63.736,86.853
0330 DATA 38.482,48.395,26.428

0x000…03f Line {l1=0x3d, l2=»0010 // ----------------------- Søjlesum --------------------«, l3=0x3d}
0x03f…049 Line {l1=0x08, l2=»0020 // «, l3=0x08}
0x049…05e Line {l1=0x13, l2=»0030 PROC AFRUND(X)«, l3=0x13}
0x05e…07f Line {l1=0x1f, l2=»0040 AFRUND:=INT(X*100+0.5)/100«, l3=0x1f}
0x07f…094 Line {l1=0x13, l2=»0050 ENDPROC AFRUND«, l3=0x13}
0x094…09e Line {l1=0x08, l2=»0060 // «, l3=0x08}
0x09e…0da Line {l1=0x3a, l2=»0070 PROC SØJLESUMMER(REF MATRIX(,),RÆKKE,SØJLE,REF SUM())«, l3=0x3a}
0x0da…0e4 Line {l1=0x08, l2=»0080 // «, l3=0x08}
0x0e4…100 Line {l1=0x1a, l2=»0090 FOR I:=1 TO SØJLE DO «, l3=0x1a}
0x100…11c Line {l1=0x1a, l2=»0100 FOR J:=1 TO RÆKKE DO «, l3=0x1a}
0x11c…145 Line {l1=0x27, l2=»0110 SUM(I):=SUM(I)+AFRUND(MATRIX(J,I))«, l3=0x27}
0x145…152 Line {l1=0x0b, l2=»0120 NEXT J«, l3=0x0b}
0x152…15f Line {l1=0x0b, l2=»0130 NEXT I«, l3=0x0b}
0x15f…179 Line {l1=0x18, l2=»0140 ENDPROC SØJLESUMMER«, l3=0x18}
0x179…183 Line {l1=0x08, l2=»0150 // «, l3=0x08}
0x183…190 Line {l1=0x0b, l2=»0160 CLEAR «, l3=0x0b}
0x190…19d Line {l1=0x0b, l2=»0164 PRINT «, l3=0x0b}
0x19d…1aa Line {l1=0x0b, l2=»0165 PRINT «, l3=0x0b}
0x1aa…1cc Line {l1=0x20, l2=»0170 DIM TALSÆT(5,3),SØJLESUM(3)«, l3=0x20}
0x1cc…1e4 Line {l1=0x16, l2=»0180 FOR I:=1 TO 5 DO «, l3=0x16}
0x1e4…1fc Line {l1=0x16, l2=»0190 FOR J:=1 TO 3 DO «, l3=0x16}
0x1fc…213 Line {l1=0x15, l2=»0200 READ TALSÆT(I,J)«, l3=0x15}
0x213…220 Line {l1=0x0b, l2=»0210 NEXT J«, l3=0x0b}
0x220…22d Line {l1=0x0b, l2=»0220 NEXT I«, l3=0x0b}
0x22d…259 Line {l1=0x2a, l2=»0230 EXEC SØJLESUMMER(TALSÆT,5,3,SØJLESUM)«, l3=0x2a}
0x259…263 Line {l1=0x08, l2=»0240 // «, l3=0x08}
0x263…27b Line {l1=0x16, l2=»0250 FOR I:=1 TO 3 DO «, l3=0x16}
0x27b…29d Line {l1=0x20, l2=»0260 PRINT CHR$(SØJLESUM(I),8,2)«, l3=0x20}
0x29d…2aa Line {l1=0x0b, l2=»0270 NEXT I«, l3=0x0b}
0x2aa…2b4 Line {l1=0x08, l2=»0280 // «, l3=0x08}
0x2b4…2d4 Line {l1=0x1e, l2=»0290 DATA 12.345,12.4,8.887999«, l3=0x1e}
0x2d4…2f3 Line {l1=0x1d, l2=»0300 DATA 2.551,45.347,23.121«, l3=0x1d}
0x2f3…313 Line {l1=0x1e, l2=»0310 DATA 89.899,34.725,76.123«, l3=0x1e}
0x313…333 Line {l1=0x1e, l2=»0320 DATA 45.358,63.736,86.853«, l3=0x1e}
0x333…353 Line {l1=0x1e, l2=»0330 DATA 38.482,48.395,26.428«, l3=0x1e}
0x353…360 00 00 63 63 63 63 63 63 63 63 63 63 63                                                            ┆  ccccccccccc┆
0x360…380 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┆
          […0x3…]

Reduced view