|
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: »ANTILOG.K«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »ANTILOG.K«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »ANTILOG.K«
0010 // ------------ antilog ---------------------
0020 PROC ANTILOG(X)
0030 ANTILOG:=10**X
0040 ENDPROC ANTILOG
0050 //
0060 CLEAR
0065 PRINT
0070 INPUT "Indtast et tal: ":A
0080 PRINT "Antilog(";A;") = ";ANTILOG(A)
0x000…034 Line {l1=0x32, l2=»0010 // ------------ antilog ---------------------«, l3=0x32}
0x034…04a Line {l1=0x14, l2=»0020 PROC ANTILOG(X)«, l3=0x14}
0x04a…05f Line {l1=0x13, l2=»0030 ANTILOG:=10**X«, l3=0x13}
0x05f…075 Line {l1=0x14, l2=»0040 ENDPROC ANTILOG«, l3=0x14}
0x075…07f Line {l1=0x08, l2=»0050 // «, l3=0x08}
0x07f…08c Line {l1=0x0b, l2=»0060 CLEAR «, l3=0x0b}
0x08c…099 Line {l1=0x0b, l2=»0065 PRINT «, l3=0x0b}
0x099…0bd Line {l1=0x22, l2=»0070 INPUT "Indtast et tal: ":A«, l3=0x22}
0x0bd…0e8 Line {l1=0x29, l2=»0080 PRINT "Antilog(";A;") = ";ANTILOG(A)«, l3=0x29}
0x0e8…100 00 00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 61 6e 74 69 6c 6f 67 20 2d 2d ┆ ----------- antilog --┆
0x100…120 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 32 14 30 30 32 30 20 50 52 4f 43 20 41 ┆-------------------2 0020 PROC A┆
0x120…140 4e 54 49 4c 4f 47 28 58 29 14 13 30 30 33 30 20 41 4e 54 49 4c 4f 47 3a 3d 31 30 2a 2a 58 13 14 ┆NTILOG(X) 0030 ANTILOG:=10**X ┆
0x140…160 30 30 34 30 20 45 4e 44 50 52 4f 43 20 41 4e 54 49 4c 4f 47 14 08 30 30 35 30 20 2f 2f 20 08 0b ┆0040 ENDPROC ANTILOG 0050 // ┆
0x160…180 30 30 36 30 20 43 4c 45 41 52 20 0b 0b 30 30 36 35 20 50 52 49 4e 54 20 0b 22 30 30 37 30 20 49 ┆0060 CLEAR 0065 PRINT "0070 I┆
0x180…1a0 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 65 74 20 74 61 6c 3a 20 20 20 20 22 3a 41 22 00 00 00 ┆NPUT "Indtast et tal: ":A" ┆
0x1a0…1c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆