|
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: 5056 (0x13c0)
Types: TextFile
Notes: Mikados_K
Names: »LØNSEDDE.K«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »LØNSEDDE.K«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »LØNSEDDE.K«
0010 // ------------------------------- lønseddel ----------------------- 0020 CLEAR 0030 DIM ANS$ OF 20,NAVN$ OF 20,ADR$ OF 20,POSTBY$ OF 20,SV$ OF 1 0035 INTEGER AFDELING,ANTALTIMER 0040 REPEAT 0050 EXEC HOVED 0060 EXEC UDSKRIFT 0070 CURSOR 1,23 0080 INPUT "Ønsker du at fortsætte? (j/n) ":SV$ 0110 CURSOR 1,24 0120 UNTIL SV$ IN "Nn" 0130 PRINT "Så slutter vi for i dag." 0140 // ---------------------------------------------------------------- 0150 PROC UDSKRIFT 0160 CLEAR 0170 PRINT "U G E S E D D E L ." 0180 PRINT "________________________________________________________________" 0190 PRINT 0200 PRINT "Ansættelsessted: ";ANS$ 0210 PRINT "Navn: ";NAVN$ 0220 PRINT "Adresse: ";ADR$ 0230 PRINT "Postnummer & by: ";POSTBY$ 0240 PRINT "________________________________________________________________" 0250 PRINT "Afdeling: ";AFDELING 0260 PRINT "Antal timer: ";ANTALTIMER 0270 PRINT USING "Timeløn: ####.##":TIMELØN 0280 PRINT "________________________________________________________________" 0290 PRINT 0300 PRINT USING "Bruttoløn: ########.## kr. ":LØN 0310 PRINT USING "Fradrag: ########.## kr. ":FRADR 0320 PRINT USING "Skattepligtig indkomst: ########.## kr. ":SKATP 0330 PRINT USING "Trækprocent: ### ":TRÆK; 0340 PRINT USING "Skat: ########.## kr. ":SKAT 0350 PRINT USING "At udbetale: ########.## kr. ":NETTO 0360 PRINT "________________________________________________________________" 0361 ENDPROC UDSKRIFT 0370 // --------------------------------------------------------------------- 0380 PROC HOVED 0390 CLEAR 0400 CURSOR 1,6 0410 PRINT "Du skal nu indtaste de nødvendige oplysninger for " 0420 PRINT "at få lønseddelen fra bogen udfyldt korrekt. " 0430 PRINT "--------------------------------------------------" 0440 CURSOR 1,10 0450 INPUT "Ansættelsessted: ":ANS$ 0460 INPUT "Navn: ":NAVN$ 0470 INPUT "Adresse: ":ADR$ 0480 INPUT "Postnummer & by: ":POSTBY$ 0490 INPUT "Afdeling: ":AFDELING 0500 INPUT "Antal timer: (pr. uge) ":ANTALTIMER 0510 INPUT "Timeløn: ":TIMELØN 0520 INPUT "Fradrag: (pr. uge) ":FRADR 0530 INPUT "Trækprocent: ":TRÆK 0540 LØN:=ANTALTIMER*TIMELØN 0550 SKATP:=LØN-FRADR 0560 SKAT:=SKATP*TRÆK/100 0570 NETTO:=LØN-SKAT 0580 ENDPROC HOVED
0x0000…004b Line {l1=0x49, l2=»0010 // ------------------------------- lønseddel -----------------------«, l3=0x49}
0x004b…0058 Line {l1=0x0b, l2=»0020 CLEAR «, l3=0x0b}
0x0058…009b Line {l1=0x41, l2=»0030 DIM ANS$ OF 20,NAVN$ OF 20,ADR$ OF 20,POSTBY$ OF 20,SV$ OF 1«, l3=0x41}
0x009b…00bd Line {l1=0x20, l2=»0035 INTEGER AFDELING,ANTALTIMER«, l3=0x20}
0x00bd…00cb Line {l1=0x0c, l2=»0040 REPEAT «, l3=0x0c}
0x00cb…00dc Line {l1=0x0f, l2=»0050 EXEC HOVED«, l3=0x0f}
0x00dc…00f0 Line {l1=0x12, l2=»0060 EXEC UDSKRIFT«, l3=0x12}
0x00f0…0102 Line {l1=0x10, l2=»0070 CURSOR 1,23«, l3=0x10}
0x0102…0135 Line {l1=0x31, l2=»0080 INPUT "Ønsker du at fortsætte? (j/n) ":SV$«, l3=0x31}
0x0135…0147 Line {l1=0x10, l2=»0110 CURSOR 1,24«, l3=0x10}
0x0147…015f Line {l1=0x16, l2=»0120 UNTIL SV$ IN "Nn"«, l3=0x16}
0x015f…0186 Line {l1=0x25, l2=»0130 PRINT "Så slutter vi for i dag."«, l3=0x25}
0x0186…01d0 Line {l1=0x48, l2=»0140 // ----------------------------------------------------------------«, l3=0x48}
0x01d0…01e4 Line {l1=0x12, l2=»0150 PROC UDSKRIFT«, l3=0x12}
0x01e4…01f1 Line {l1=0x0b, l2=»0160 CLEAR «, l3=0x0b}
0x01f1…0213 Line {l1=0x20, l2=»0170 PRINT "U G E S E D D E L ."«, l3=0x20}
0x0213…0262 Line {l1=0x4d, l2=»0180 PRINT "________________________________________________________________"«, l3=0x4d}
0x0262…026f Line {l1=0x0b, l2=»0190 PRINT «, l3=0x0b}
0x026f…02a8 Line {l1=0x37, l2=»0200 PRINT "Ansættelsessted: ";ANS$«, l3=0x37}
0x02a8…02e2 Line {l1=0x38, l2=»0210 PRINT "Navn: ";NAVN$«, l3=0x38}
0x02e2…031b Line {l1=0x37, l2=»0220 PRINT "Adresse: ";ADR$«, l3=0x37}
0x031b…0357 Line {l1=0x3a, l2=»0230 PRINT "Postnummer & by: ";POSTBY$«, l3=0x3a}
0x0357…03a6 Line {l1=0x4d, l2=»0240 PRINT "________________________________________________________________"«, l3=0x4d}
0x03a6…03e3 Line {l1=0x3b, l2=»0250 PRINT "Afdeling: ";AFDELING«, l3=0x3b}
0x03e3…0422 Line {l1=0x3d, l2=»0260 PRINT "Antal timer: ";ANTALTIMER«, l3=0x3d}
0x0422…0469 Line {l1=0x45, l2=»0270 PRINT USING "Timeløn: ####.##":TIMELØN«, l3=0x45}
0x0469…04b8 Line {l1=0x4d, l2=»0280 PRINT "________________________________________________________________"«, l3=0x4d}
0x04b8…04c5 Line {l1=0x0b, l2=»0290 PRINT «, l3=0x0b}
0x04c5…0512 Line {l1=0x4b, l2=»0300 PRINT USING "Bruttoløn: ########.## kr. ":LØN«, l3=0x4b}
0x0512…0561 Line {l1=0x4d, l2=»0310 PRINT USING "Fradrag: ########.## kr. ":FRADR«, l3=0x4d}
0x0561…05b0 Line {l1=0x4d, l2=»0320 PRINT USING "Skattepligtig indkomst: ########.## kr. ":SKATP«, l3=0x4d}
0x05b0…05e1 Line {l1=0x2f, l2=»0330 PRINT USING "Trækprocent: ### ":TRÆK;«, l3=0x2f}
0x05e1…0619 Line {l1=0x36, l2=»0340 PRINT USING "Skat: ########.## kr. ":SKAT«, l3=0x36}
0x0619…0668 Line {l1=0x4d, l2=»0350 PRINT USING "At udbetale: ########.## kr. ":NETTO«, l3=0x4d}
0x0668…06b7 Line {l1=0x4d, l2=»0360 PRINT "________________________________________________________________"«, l3=0x4d}
0x06b7…06ce Line {l1=0x15, l2=»0361 ENDPROC UDSKRIFT«, l3=0x15}
0x06ce…071d Line {l1=0x4d, l2=»0370 // ---------------------------------------------------------------------«, l3=0x4d}
0x071d…072e Line {l1=0x0f, l2=»0380 PROC HOVED«, l3=0x0f}
0x072e…073b Line {l1=0x0b, l2=»0390 CLEAR «, l3=0x0b}
0x073b…074c Line {l1=0x0f, l2=»0400 CURSOR 1,6«, l3=0x0f}
0x074c…078d Line {l1=0x3f, l2=»0410 PRINT "Du skal nu indtaste de nødvendige oplysninger for "«, l3=0x3f}
0x078d…07ce Line {l1=0x3f, l2=»0420 PRINT "at få lønseddelen fra bogen udfyldt korrekt. "«, l3=0x3f}
0x07ce…080f Line {l1=0x3f, l2=»0430 PRINT "--------------------------------------------------"«, l3=0x3f}
0x080f…0821 Line {l1=0x10, l2=»0440 CURSOR 1,10«, l3=0x10}
0x0821…0863 Line {l1=0x40, l2=»0450 INPUT "Ansættelsessted: ":ANS$«, l3=0x40}
0x0863…08a6 Line {l1=0x41, l2=»0460 INPUT "Navn: ":NAVN$«, l3=0x41}
0x08a6…08e8 Line {l1=0x40, l2=»0470 INPUT "Adresse: ":ADR$«, l3=0x40}
0x08e8…092d Line {l1=0x43, l2=»0480 INPUT "Postnummer & by: ":POSTBY$«, l3=0x43}
0x092d…0973 Line {l1=0x44, l2=»0490 INPUT "Afdeling: ":AFDELING«, l3=0x44}
0x0973…09bb Line {l1=0x46, l2=»0500 INPUT "Antal timer: (pr. uge) ":ANTALTIMER«, l3=0x46}
0x09bb…0a00 Line {l1=0x43, l2=»0510 INPUT "Timeløn: ":TIMELØN«, l3=0x43}
0x0a00…0a43 Line {l1=0x41, l2=»0520 INPUT "Fradrag: (pr. uge) ":FRADR«, l3=0x41}
0x0a43…0a85 Line {l1=0x40, l2=»0530 INPUT "Trækprocent: ":TRÆK«, l3=0x40}
0x0a85…0aa3 Line {l1=0x1c, l2=»0540 LØN:=ANTALTIMER*TIMELØN«, l3=0x1c}
0x0aa3…0aba Line {l1=0x15, l2=»0550 SKATP:=LØN-FRADR«, l3=0x15}
0x0aba…0ad5 Line {l1=0x19, l2=»0560 SKAT:=SKATP*TRÆK/100«, l3=0x19}
0x0ad5…0aeb Line {l1=0x14, l2=»0570 NETTO:=LØN-SKAT«, l3=0x14}
0x0aeb…0aff Line {l1=0x12, l2=»0580 ENDPROC HOVED«, l3=0x12}
0x0aff…0b00 00 ┆ ┆
0x0b00…0b20 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 63 63 ┆ ccccccccccccccccccccccccccccccc┆
0x0b20…0b40 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┆
[…0x44…]