|
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 - metrics - download
Length: 992 (0x3e0)
Notes: Mikados TextFile, Mikados_K
Names: »SALGSPR1«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »SALGSPR1«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »SALGSPR1«
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