|
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: 992 (0x3e0)
Types: TextFile
Notes: Mikados_K
Names: »SALGSPR1.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »SALGSPR1.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »SALGSPR1.K«
0010 // --------------------- salgspris_1 ----------------------------- 0020 CLEAR 0030 INPUT "Indtast købspris: ":KØBSPRIS 0040 PRINT 0050 INPUT "Indtast omkostninger: ":OMKOSTNINGER 0060 PRINT 0070 INPUT "Indtast fortjeneste: ":FORTJENESTE 0080 // -------------------------------------------------------------------- 0090 SAMLETUDGIFT:=KØBSPRIS+OMKOSTNINGER 0100 SALGSPRIS:=SAMLETUDGIFT+FORTJENESTE 0110 // -------------------------------------------------------------------- 0120 PRINT 0130 PRINT USING "Købspris: ##########.## kr ":KØBSPRIS 0140 PRINT USING "Omkostninger: ##########.## kr ":OMKOSTNINGER 0150 PRINT USING "Fortjeneste: ##########.## kr ":FORTJENESTE 0160 PRINT USING "Samlede udgifter: ##########.## kr ":SAMLETUDGIFT 0170 PRINT USING "Salgspris: ##########.## kr ":SALGSPRIS
0x000…049 Line {l1=0x47, l2=»0010 // --------------------- salgspris_1 -----------------------------«, l3=0x47}
0x049…056 Line {l1=0x0b, l2=»0020 CLEAR «, l3=0x0b}
0x056…09c Line {l1=0x44, l2=»0030 INPUT "Indtast købspris: ":KØBSPRIS«, l3=0x44}
0x09c…0a9 Line {l1=0x0b, l2=»0040 PRINT «, l3=0x0b}
0x0a9…0f3 Line {l1=0x48, l2=»0050 INPUT "Indtast omkostninger: ":OMKOSTNINGER«, l3=0x48}
0x0f3…100 Line {l1=0x0b, l2=»0060 PRINT «, l3=0x0b}
0x100…149 Line {l1=0x47, l2=»0070 INPUT "Indtast fortjeneste: ":FORTJENESTE«, l3=0x47}
0x149…197 Line {l1=0x4c, l2=»0080 // --------------------------------------------------------------------«, l3=0x4c}
0x197…1c1 Line {l1=0x28, l2=»0090 SAMLETUDGIFT:=KØBSPRIS+OMKOSTNINGER«, l3=0x28}
0x1c1…1eb Line {l1=0x28, l2=»0100 SALGSPRIS:=SAMLETUDGIFT+FORTJENESTE«, l3=0x28}
0x1eb…239 Line {l1=0x4c, l2=»0110 // --------------------------------------------------------------------«, l3=0x4c}
0x239…246 Line {l1=0x0b, l2=»0120 PRINT «, l3=0x0b}
0x246…289 Line {l1=0x41, l2=»0130 PRINT USING "Købspris: ##########.## kr ":KØBSPRIS«, l3=0x41}
0x289…2d0 Line {l1=0x45, l2=»0140 PRINT USING "Omkostninger: ##########.## kr ":OMKOSTNINGER«, l3=0x45}
0x2d0…316 Line {l1=0x44, l2=»0150 PRINT USING "Fortjeneste: ##########.## kr ":FORTJENESTE«, l3=0x44}
0x316…35d Line {l1=0x45, l2=»0160 PRINT USING "Samlede udgifter: ##########.## kr ":SAMLETUDGIFT«, l3=0x45}
0x35d…3a1 Line {l1=0x42, l2=»0170 PRINT USING "Salgspris: ##########.## kr ":SALGSPRIS«, l3=0x42}
0x3a1…3c0 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 ┆ ccccccccccccccccccccccccccccc┆
0x3c0…3e0 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┆