DataMuseum.dk

top - metrics - download

    Length: 5056 (0x13c0)
    Notes: Mikados TextFile, Mikados_K
    Names: »LØNSEDDE«

└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »LØNSEDDE« 

Text

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