|
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: 3008 (0xbc0)
Types: TextFile
Notes: Mikados_K
Names: »SALGSPR3.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »SALGSPR3.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »SALGSPR3.K«
0010 // -------------------- salgspris3 ----------------------------- 0020 // Programmet udregner salgspris v/procedurer med to parametre. 0030 CLEAR 0040 NUMMER:=0 0050 // ------------------------------------------------------------- 0060 INPUT "Indtast købspris og fortjeneste i %: ":KØBSPRIS1,PCT1 0070 INPUT "Indtast købspris og fortjeneste i %: ":KØBSPRIS2,PCT2 0080 INPUT "Indtast købspris og fortjeneste i %: ":KØBSPRIS3,PCT3 0090 // ------------------------------------------------------------- 0100 PRINT "------------------------------------------------------------" 0110 // ------------------------------------------------------------- 0120 EXEC FORTJENESTE(PCT1,KØBSPRIS1) 0130 EXEC FORTJENESTE(PCT2,KØBSPRIS2) 0140 EXEC FORTJENESTE(PCT3,KØBSPRIS3) 0150 // ------------------------------------------------------------- 0160 PROC FORTJENESTE(PCT,KØBSPRIS) 0170 SALGSPRI:=KØBSPRIS*(100+PCT)/100 0180 EXEC UDSKRIFT 0190 ENDPROC FORTJENESTE 0200 // ------------------------------------------------------------- 0210 PROC UDSKRIFT 0220 PRINT 0230 NUMMER:=NUMMER+1 0240 PRINT USING "Nummer ### ":NUMMER 0250 PRINT USING "Købspris: #########.## kr. ":KØBSPRIS 0260 PRINT USING "Købspris: ####.## % ":PCT 0270 PRINT USING "Salgspris: #########.## kr. ":SALGSPRI 0280 PRINT "------------------------------------------------------------" 0290 ENDPROC UDSKRIFT
0x000…047 Line {l1=0x45, l2=»0010 // -------------------- salgspris3 -----------------------------«, l3=0x45}
0x047…08d Line {l1=0x44, l2=»0020 // Programmet udregner salgspris v/procedurer med to parametre.«, l3=0x44}
0x08d…09a Line {l1=0x0b, l2=»0030 CLEAR «, l3=0x0b}
0x09a…0aa Line {l1=0x0e, l2=»0040 NUMMER:=0«, l3=0x0e}
0x0aa…0f1 Line {l1=0x45, l2=»0050 // -------------------------------------------------------------«, l3=0x45}
0x0f1…13b Line {l1=0x48, l2=»0060 INPUT "Indtast købspris og fortjeneste i %: ":KØBSPRIS1,PCT1«, l3=0x48}
0x13b…185 Line {l1=0x48, l2=»0070 INPUT "Indtast købspris og fortjeneste i %: ":KØBSPRIS2,PCT2«, l3=0x48}
0x185…1cf Line {l1=0x48, l2=»0080 INPUT "Indtast købspris og fortjeneste i %: ":KØBSPRIS3,PCT3«, l3=0x48}
0x1cf…216 Line {l1=0x45, l2=»0090 // -------------------------------------------------------------«, l3=0x45}
0x216…261 Line {l1=0x49, l2=»0100 PRINT "------------------------------------------------------------"«, l3=0x49}
0x261…2a8 Line {l1=0x45, l2=»0110 // -------------------------------------------------------------«, l3=0x45}
0x2a8…2cf Line {l1=0x25, l2=»0120 EXEC FORTJENESTE(PCT1,KØBSPRIS1)«, l3=0x25}
0x2cf…2f6 Line {l1=0x25, l2=»0130 EXEC FORTJENESTE(PCT2,KØBSPRIS2)«, l3=0x25}
0x2f6…31d Line {l1=0x25, l2=»0140 EXEC FORTJENESTE(PCT3,KØBSPRIS3)«, l3=0x25}
0x31d…364 Line {l1=0x45, l2=»0150 // -------------------------------------------------------------«, l3=0x45}
0x364…389 Line {l1=0x23, l2=»0160 PROC FORTJENESTE(PCT,KØBSPRIS)«, l3=0x23}
0x389…3b0 Line {l1=0x25, l2=»0170 SALGSPRI:=KØBSPRIS*(100+PCT)/100«, l3=0x25}
0x3b0…3c4 Line {l1=0x12, l2=»0180 EXEC UDSKRIFT«, l3=0x12}
0x3c4…3de Line {l1=0x18, l2=»0190 ENDPROC FORTJENESTE«, l3=0x18}
0x3de…425 Line {l1=0x45, l2=»0200 // -------------------------------------------------------------«, l3=0x45}
0x425…439 Line {l1=0x12, l2=»0210 PROC UDSKRIFT«, l3=0x12}
0x439…446 Line {l1=0x0b, l2=»0220 PRINT «, l3=0x0b}
0x446…45d Line {l1=0x15, l2=»0230 NUMMER:=NUMMER+1«, l3=0x15}
0x45d…4aa Line {l1=0x4b, l2=»0240 PRINT USING "Nummer ### ":NUMMER«, l3=0x4b}
0x4aa…4f9 Line {l1=0x4d, l2=»0250 PRINT USING "Købspris: #########.## kr. ":KØBSPRIS«, l3=0x4d}
0x4f9…543 Line {l1=0x48, l2=»0260 PRINT USING "Købspris: ####.## % ":PCT«, l3=0x48}
0x543…592 Line {l1=0x4d, l2=»0270 PRINT USING "Salgspris: #########.## kr. ":SALGSPRI«, l3=0x4d}
0x592…5dd Line {l1=0x49, l2=»0280 PRINT "------------------------------------------------------------"«, l3=0x49}
0x5dd…5f4 Line {l1=0x15, l2=»0290 ENDPROC UDSKRIFT«, l3=0x15}
0x5f4…600 00 00 00 2d 2d 2d 2d 2d 2d 20 73 61 ┆ ------ sa┆
0x600…620 6c 67 73 70 72 69 73 33 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆lgspris3 -----------------------┆
0x620…640 2d 2d 2d 2d 2d 2d 45 44 30 30 32 30 20 2f 2f 20 50 72 6f 67 72 61 6d 6d 65 74 20 75 64 72 65 67 ┆------ED0020 // Programmet udreg┆
0x640…660 6e 65 72 20 73 61 6c 67 73 70 72 69 73 20 76 2f 70 72 6f 63 65 64 75 72 65 72 20 6d 65 64 20 74 ┆ner salgspris v/procedurer med t┆
0x660…680 6f 20 70 61 72 61 6d 65 74 72 65 2e 44 0b 30 30 33 30 20 43 4c 45 41 52 20 0b 0e 30 30 34 30 20 ┆o parametre.D 0030 CLEAR 0040 ┆
0x680…6a0 4e 55 4d 4d 45 52 3a 3d 30 0e 45 30 30 35 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆NUMMER:=0 E0050 // -------------┆
0x6a0…6c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x6c0…6e0 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┆
[…0x27…]