|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 448 (0x1c0)
Types: TextFile
Notes: Mikados_K
Names: »AFRUND.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »AFRUND.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »AFRUND.K«
0010 // ------------- afrund ---------- 0020 // 0030 PROC AFRUND(AFTAL) 0040 AFRUND:=INT(AFTAL*100+0.5)/100 0050 ENDPROC AFRUND 0060 // 0070 CLEAR 0075 PRINT 0080 INPUT "Indtast et tal: ":TAL 0090 PRINT TAL 0100 PRINT AFRUND(TAL)
0x000…029 Line {l1=0x27, l2=»0010 // ------------- afrund ----------«, l3=0x27}
0x029…033 Line {l1=0x08, l2=»0020 // «, l3=0x08}
0x033…04c Line {l1=0x17, l2=»0030 PROC AFRUND(AFTAL)«, l3=0x17}
0x04c…071 Line {l1=0x23, l2=»0040 AFRUND:=INT(AFTAL*100+0.5)/100«, l3=0x23}
0x071…086 Line {l1=0x13, l2=»0050 ENDPROC AFRUND«, l3=0x13}
0x086…090 Line {l1=0x08, l2=»0060 // «, l3=0x08}
0x090…09d Line {l1=0x0b, l2=»0070 CLEAR «, l3=0x0b}
0x09d…0aa Line {l1=0x0b, l2=»0075 PRINT «, l3=0x0b}
0x0aa…0d0 Line {l1=0x24, l2=»0080 INPUT "Indtast et tal: ":TAL«, l3=0x24}
0x0d0…0e0 Line {l1=0x0e, l2=»0090 PRINT TAL«, l3=0x0e}
0x0e0…0f8 Line {l1=0x16, l2=»0100 PRINT AFRUND(TAL)«, l3=0x16}
0x0f8…100 00 00 75 6e 64 20 2d 2d ┆ und --┆
0x100…120 2d 2d 2d 2d 2d 2d 2d 2d 27 08 30 30 32 30 20 2f 2f 20 08 17 30 30 33 30 20 50 52 4f 43 20 41 46 ┆--------' 0020 // 0030 PROC AF┆
0x120…140 52 55 4e 44 28 41 46 54 41 4c 29 17 23 30 30 34 30 20 41 46 52 55 4e 44 3a 3d 49 4e 54 28 41 46 ┆RUND(AFTAL) #0040 AFRUND:=INT(AF┆
0x140…160 54 41 4c 2a 31 30 30 2b 30 2e 35 29 2f 31 30 30 23 13 30 30 35 30 20 45 4e 44 50 52 4f 43 20 41 ┆TAL*100+0.5)/100# 0050 ENDPROC A┆
0x160…180 46 52 55 4e 44 13 08 30 30 36 30 20 2f 2f 20 08 0b 30 30 37 30 20 43 4c 45 41 52 20 0b 0b 30 30 ┆FRUND 0060 // 0070 CLEAR 00┆
0x180…1a0 37 35 20 50 52 49 4e 54 20 0b 24 30 30 38 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 65 ┆75 PRINT $0080 INPUT "Indtast e┆
0x1a0…1c0 74 20 74 61 6c 3a 20 20 20 20 22 3a 54 41 4c 24 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆t tal: ":TAL$ ┆