|
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: 7584 (0x1da0)
Types: TextFile
Notes: Mikados_K
Names: »SLUTSK1.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »SLUTSK1.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »SLUTSK1.K«
0100 // ------------------------ slutskat ------------------------------
0110 //
0120 //
0130 EXEC MENU
0140 // -----------------------------------------------------------------
0150 PROC MENU
0160 DIM ØNSKE$ OF 10
0170 CLEAR
0180 CURSOR 1,3
0190 PRINT " B E R E G N I N G A F R E S T S K A T 1 9 8 2 ."
0200 PRINT "------------------------------------------------------"
0210 CURSOR 1,9
0220 PRINT " f o r :"
0230 CURSOR 1,11
0240 PRINT "Hans Hansen."
0250 CURSOR 1,12
0260 PRINT "Vestervej 9,"
0270 CURSOR 1,13
0280 PRINT "9876 Østerby."
0290 CURSOR 1,16
0300 INPUT "Indtast skattepligtig indkomst: ":SKINDKOMST
0310 CURSOR 1,18
0320 INPUT "Indtast skattepligtig formue: ":SKFORMUE
0330 CURSOR 1,20
0340 INPUT "Indtast pct. for amtskommuneskat: ":AMT
0350 CURSOR 1,22
0360 INPUT "Indtast pct. for kommuneskatten: ":KOMMUNE
0370 CURSOR 1,24
0380 INPUT "Indtast pct. for kirkeskat: ":KIRKE
0390 EXEC PRSTATSSKAT
0400 EXEC KOMMUNESKAT
0410 EXEC PERSONFRADRAG
0420 EXEC PRFORMUESKAT
0430 EXEC UDSKRIFT
0431 SELECT OUTPUT "T"
0440 CURSOR 70,24
0450 INPUT "Return!":ØNSKE$
0460 EXEC FORSKEL
0470 ENDPROC MENU
0480 // ---------------------------------------------------------------
0490 PROC PRSTATSSKAT
0500 IF SKINDKOMST<=95500.0 THEN
0510 STATSSKAT:=SKINDKOMST*18.9/100
0520 ELSE
0530 IF SKINDKOMST<=164100.0 THEN
0540 STATSSKAT:=18049.5+(SKINDKOMST-95500.0)*33.3/100
0550 ELSE
0560 STATSSKAT:=40893.3+(SKINDKOMST-164100.0)*44.1/100
0570 ENDIF
0580 ENDIF
0590 ENDPROC PRSTATSSKAT
0600 // ---------------------------------------------------------------
0610 PROC KOMMUNESKAT
0620 SAMLETPCT:=AMT+KOMMUNE+KIRKE
0630 KOMMUNESKATMV:=SKINDKOMST*SAMLETPCT/100
0640 ENDPROC KOMMUNESKAT
0650 // ----------------------------------------------------------------
0660 PROC PERSONFRADRAG
0670 CLEAR
0680 CURSOR 1,6
0690 PRINT " P E R S O N F R A D R A G "
0700 CURSOR 1,8
0710 PRINT "------------------------------------------------------------"
0720 CURSOR 1,12
0730 INPUT "Indtast eget personfradrag: ":EGETFRADRAG
0740 CURSOR 1,14
0750 INPUT "Indtast overført personfradrag for ægtefælle: ":ÆGTEFFRADRAG
0760 CURSOR 1,16
0770 PRINT "Personfradrag udregnes. "
0780 SAMLETFRADRAG:=EGETFRADRAG+ÆGTEFFRADRAG
0790 SKATAFFRADRAG:=SAMLETFRADRAG*(18.9+(AMT+KOMMUNE+KIRKE))/100
0800 ENDPROC PERSONFRADRAG
0810 // --------------------------------------------------------------------
0820 PROC PRFORMUESKAT
0830 IF SKFORMUE>1083000.0 THEN
0840 FORMUESKAT:=(SKFORMUE-1083000.0)*22/1000
0850 ELSE
0860 FORMUESKAT:=0
0870 ENDIF
0880 ENDPROC PRFORMUESKAT
0890 // -----------------------------------------------------------------
0900 PROC UDSKRIFT
0910 CLEAR
0920 CURSOR 5,12
0930 INPUT "Ønsker du udskrift på skærm eller printer? s/p ":ØNSKE$
0940 IF ØNSKE$ IN "pprinterj" THEN
0950 EXEC PRINTERRES
0960 ENDIF
0970 CLEAR
0980 PRINT " S L U T S K A T F O R 1 9 8 2 ."
0990 PRINT "________________________________________________________________"
1000 CURSOR 1,3
1010 PRINT "Hans Hansen,"
1020 PRINT "Vestervej 6,"
1030 PRINT "9876 Østerby."
1040 PRINT "----------------------------------------------------------------"
1050 CURSOR 1,9
1060 PRINT "Skattepligtig indkomst: ";
1070 PRINT USING " #######.## kr. ":SKINDKOMST
1080 PRINT "Skattepligtig formue: ";
1090 PRINT USING " ########.## kr. ":SKFORMUE
1100 PRINT "----------------------------------------------------------------"
1110 PRINT
1120 PRINT "Statsskat: ";
1130 PRINT USING " ########.## kr. ":STATSSKAT
1140 PRINT "Amts-,kommune- & kirkeskat:";
1150 PRINT USING " ########.## kr. ":KOMMUNESKATMV
1160 PRINT "Formueskat: ";
1170 PRINT USING " ########.## kr. ":FORMUESKAT
1180 IALT:=STATSSKAT+KOMMUNESKATMV+FORMUESKAT
1190 PRINT "----------------------------------------------------------------"
1200 PRINT "Skat ialt: ";
1210 PRINT USING " ########.## kr. ":IALT
1220 PRINT "Skat af personfradrag: ";
1230 PRINT USING " ########.## kr. ":SKATAFFRADRAG
1240 ENDELIGSKAT:=IALT-SKATAFFRADRAG
1250 PRINT "----------------------------------------------------------------"
1260 PRINT "Slutskat for 1982: ";
1270 PRINT USING " ########.## kr. ":ENDELIGSKAT
1280 PRINT "================================================================"
1290 ENDPROC UDSKRIFT
1300 // ---------------------------------------------------------------------
1310 PROC FORSKEL
1315 SELECT OUTPUT "T"
1320 CLEAR
1340 CURSOR 1,3
1350 PRINT " S k a l d u h a v e p e n g e t i l b a g e e l l e r"
1360 PRINT " s k a l d u b e t a l e ? "
1370 PRINT "----------------------------------------------------------------"
1380 CURSOR 1,8
1390 INPUT "Indtast den samlede betalte skat for 1982: ":SKAT
1410 CURSOR 1,10
1420 INPUT "Ønsker du udskrift på skærm eller printer? s/p ":ØNSKE$
1430 IF ØNSKE$ IN "pprinter" THEN
1440 EXEC PRINTERRES
1450 ELSE
1460 CLEAR
1470 ENDIF
1480 DIFFERENCE:=SKAT-ENDELIGSKAT
1490 CURSOR 1,5
1500 PRINT "Samlede betalte personlige skatter:";
1510 PRINT USING " ########.## kr. ":SKAT
1520 PRINT "Slutskat: ";
1530 PRINT USING " ########.## kr. ":ENDELIGSKAT
1540 PRINT "================================================================"
1550 CURSOR 1,9
1560 IF DIFFERENCE=>0 THEN
1570 PRINT "Du skal have ";
1580 PRINT USING " #######.## kr. tilbage. ":DIFFERENCE
1590 PRINT "================================================================"
1600 ELSE
1610 PRINT "Du skal efterbetale ";
1620 PRINT USING " #######.## kr. ":-DIFFERENCE
1630 PRINT "================================================================"
1640 CURSOR 1,12
1650 PRINT "Du skal ikke tage det for højtideligt, vi er mange i samme båd."
1660 ENDIF
1670 ENDPROC FORSKEL
1680 //
1690 PROC PRINTERRES
1700 SELECT OUTPUT "P"
1710 IF STATUS("P")=1 THEN
1720 CURSOR 12,15
1730 PRINT "Printeren er reserveret af en anden bruger, skal "
1740 CURSOR 12,16
1750 INPUT "der ventes på at den bliver ledig ? (j/n) ":ØNSKE$
1760 CURSOR 1,15
1770 PRINT "<Z>"
1780 PRINT "<Z>"
1790 IF ØNSKE$="j" OR ØNSKE$="J" THEN
1800 CURSOR 12,15
1810 PRINT "Der ventes på at printeren bliver ledig........"
1820 WHILE STATUS("P")=1 DO SELECT OUTPUT "P"
1830 ENDIF
1840 ENDIF
1850 ENDPROC PRINTERRES
0x0000…004a Line {l1=0x48, l2=»0100 // ------------------------ slutskat ------------------------------«, l3=0x48}
0x004a…0054 Line {l1=0x08, l2=»0110 // «, l3=0x08}
0x0054…005e Line {l1=0x08, l2=»0120 // «, l3=0x08}
0x005e…006e Line {l1=0x0e, l2=»0130 EXEC MENU«, l3=0x0e}
0x006e…00b9 Line {l1=0x49, l2=»0140 // -----------------------------------------------------------------«, l3=0x49}
0x00b9…00c9 Line {l1=0x0e, l2=»0150 PROC MENU«, l3=0x0e}
0x00c9…00e0 Line {l1=0x15, l2=»0160 DIM ØNSKE$ OF 10«, l3=0x15}
0x00e0…00ed Line {l1=0x0b, l2=»0170 CLEAR «, l3=0x0b}
0x00ed…00fe Line {l1=0x0f, l2=»0180 CURSOR 1,3«, l3=0x0f}
0x00fe…0143 Line {l1=0x43, l2=»0190 PRINT " B E R E G N I N G A F R E S T S K A T 1 9 8 2 ."«, l3=0x43}
0x0143…0188 Line {l1=0x43, l2=»0200 PRINT "------------------------------------------------------"«, l3=0x43}
0x0188…0199 Line {l1=0x0f, l2=»0210 CURSOR 1,9«, l3=0x0f}
0x0199…01b0 Line {l1=0x15, l2=»0220 PRINT " f o r :"«, l3=0x15}
0x01b0…01c2 Line {l1=0x10, l2=»0230 CURSOR 1,11«, l3=0x10}
0x01c2…01dd Line {l1=0x19, l2=»0240 PRINT "Hans Hansen."«, l3=0x19}
0x01dd…01ef Line {l1=0x10, l2=»0250 CURSOR 1,12«, l3=0x10}
0x01ef…020a Line {l1=0x19, l2=»0260 PRINT "Vestervej 9,"«, l3=0x19}
0x020a…021c Line {l1=0x10, l2=»0270 CURSOR 1,13«, l3=0x10}
0x021c…0238 Line {l1=0x1a, l2=»0280 PRINT "9876 Østerby."«, l3=0x1a}
0x0238…024a Line {l1=0x10, l2=»0290 CURSOR 1,16«, l3=0x10}
0x024a…0298 Line {l1=0x4c, l2=»0300 INPUT "Indtast skattepligtig indkomst: ":SKINDKOMST«, l3=0x4c}
0x0298…02aa Line {l1=0x10, l2=»0310 CURSOR 1,18«, l3=0x10}
0x02aa…02f6 Line {l1=0x4a, l2=»0320 INPUT "Indtast skattepligtig formue: ":SKFORMUE«, l3=0x4a}
0x02f6…0308 Line {l1=0x10, l2=»0330 CURSOR 1,20«, l3=0x10}
0x0308…034f Line {l1=0x45, l2=»0340 INPUT "Indtast pct. for amtskommuneskat: ":AMT«, l3=0x45}
0x034f…0361 Line {l1=0x10, l2=»0350 CURSOR 1,22«, l3=0x10}
0x0361…03ac Line {l1=0x49, l2=»0360 INPUT "Indtast pct. for kommuneskatten: ":KOMMUNE«, l3=0x49}
0x03ac…03be Line {l1=0x10, l2=»0370 CURSOR 1,24«, l3=0x10}
0x03be…0407 Line {l1=0x47, l2=»0380 INPUT "Indtast pct. for kirkeskat: ":KIRKE«, l3=0x47}
0x0407…041e Line {l1=0x15, l2=»0390 EXEC PRSTATSSKAT«, l3=0x15}
0x041e…0435 Line {l1=0x15, l2=»0400 EXEC KOMMUNESKAT«, l3=0x15}
0x0435…044e Line {l1=0x17, l2=»0410 EXEC PERSONFRADRAG«, l3=0x17}
0x044e…0466 Line {l1=0x16, l2=»0420 EXEC PRFORMUESKAT«, l3=0x16}
0x0466…047a Line {l1=0x12, l2=»0430 EXEC UDSKRIFT«, l3=0x12}
0x047a…0492 Line {l1=0x16, l2=»0431 SELECT OUTPUT "T"«, l3=0x16}
0x0492…04a5 Line {l1=0x11, l2=»0440 CURSOR 70,24«, l3=0x11}
0x04a5…04c2 Line {l1=0x1b, l2=»0450 INPUT "Return!":ØNSKE$«, l3=0x1b}
0x04c2…04d5 Line {l1=0x11, l2=»0460 EXEC FORSKEL«, l3=0x11}
0x04d5…04e8 Line {l1=0x11, l2=»0470 ENDPROC MENU«, l3=0x11}
0x04e8…0531 Line {l1=0x47, l2=»0480 // ---------------------------------------------------------------«, l3=0x47}
0x0531…0548 Line {l1=0x15, l2=»0490 PROC PRSTATSSKAT«, l3=0x15}
0x0548…056b Line {l1=0x21, l2=»0500 IF SKINDKOMST<=95500.0 THEN «, l3=0x21}
0x056b…0590 Line {l1=0x23, l2=»0510 STATSSKAT:=SKINDKOMST*18.9/100«, l3=0x23}
0x0590…059c Line {l1=0x0a, l2=»0520 ELSE «, l3=0x0a}
0x059c…05c0 Line {l1=0x22, l2=»0530 IF SKINDKOMST<=164100.0 THEN «, l3=0x22}
0x05c0…05f7 Line {l1=0x35, l2=»0540 STATSSKAT:=18049.5+(SKINDKOMST-95500.0)*33.3/100«, l3=0x35}
0x05f7…0603 Line {l1=0x0a, l2=»0550 ELSE «, l3=0x0a}
0x0603…063b Line {l1=0x36, l2=»0560 STATSSKAT:=40893.3+(SKINDKOMST-164100.0)*44.1/100«, l3=0x36}
0x063b…0648 Line {l1=0x0b, l2=»0570 ENDIF «, l3=0x0b}
0x0648…0655 Line {l1=0x0b, l2=»0580 ENDIF «, l3=0x0b}
0x0655…066f Line {l1=0x18, l2=»0590 ENDPROC PRSTATSSKAT«, l3=0x18}
0x066f…06b8 Line {l1=0x47, l2=»0600 // ---------------------------------------------------------------«, l3=0x47}
0x06b8…06cf Line {l1=0x15, l2=»0610 PROC KOMMUNESKAT«, l3=0x15}
0x06cf…06f2 Line {l1=0x21, l2=»0620 SAMLETPCT:=AMT+KOMMUNE+KIRKE«, l3=0x21}
0x06f2…0720 Line {l1=0x2c, l2=»0630 KOMMUNESKATMV:=SKINDKOMST*SAMLETPCT/100«, l3=0x2c}
0x0720…073a Line {l1=0x18, l2=»0640 ENDPROC KOMMUNESKAT«, l3=0x18}
0x073a…0784 Line {l1=0x48, l2=»0650 // ----------------------------------------------------------------«, l3=0x48}
0x0784…079d Line {l1=0x17, l2=»0660 PROC PERSONFRADRAG«, l3=0x17}
0x079d…07aa Line {l1=0x0b, l2=»0670 CLEAR «, l3=0x0b}
0x07aa…07bb Line {l1=0x0f, l2=»0680 CURSOR 1,6«, l3=0x0f}
0x07bb…0807 Line {l1=0x4a, l2=»0690 PRINT " P E R S O N F R A D R A G "«, l3=0x4a}
0x0807…0818 Line {l1=0x0f, l2=»0700 CURSOR 1,8«, l3=0x0f}
0x0818…0863 Line {l1=0x49, l2=»0710 PRINT "------------------------------------------------------------"«, l3=0x49}
0x0863…0875 Line {l1=0x10, l2=»0720 CURSOR 1,12«, l3=0x10}
0x0875…08c3 Line {l1=0x4c, l2=»0730 INPUT "Indtast eget personfradrag: ":EGETFRADRAG«, l3=0x4c}
0x08c3…08d5 Line {l1=0x10, l2=»0740 CURSOR 1,14«, l3=0x10}
0x08d5…0924 Line {l1=0x4d, l2=»0750 INPUT "Indtast overført personfradrag for ægtefælle: ":ÆGTEFFRADRAG«, l3=0x4d}
0x0924…0936 Line {l1=0x10, l2=»0760 CURSOR 1,16«, l3=0x10}
0x0936…097b Line {l1=0x43, l2=»0770 PRINT "Personfradrag udregnes. "«, l3=0x43}
0x097b…09a9 Line {l1=0x2c, l2=»0780 SAMLETFRADRAG:=EGETFRADRAG+ÆGTEFFRADRAG«, l3=0x2c}
0x09a9…09eb Line {l1=0x40, l2=»0790 SKATAFFRADRAG:=SAMLETFRADRAG*(18.9+(AMT+KOMMUNE+KIRKE))/100«, l3=0x40}
0x09eb…0a07 Line {l1=0x1a, l2=»0800 ENDPROC PERSONFRADRAG«, l3=0x1a}
0x0a07…0a55 Line {l1=0x4c, l2=»0810 // --------------------------------------------------------------------«, l3=0x4c}
0x0a55…0a6d Line {l1=0x16, l2=»0820 PROC PRFORMUESKAT«, l3=0x16}
0x0a6d…0a8f Line {l1=0x20, l2=»0830 IF SKFORMUE>1083000.0 THEN «, l3=0x20}
0x0a8f…0abe Line {l1=0x2d, l2=»0840 FORMUESKAT:=(SKFORMUE-1083000.0)*22/1000«, l3=0x2d}
0x0abe…0aca Line {l1=0x0a, l2=»0850 ELSE «, l3=0x0a}
0x0aca…0ade Line {l1=0x12, l2=»0860 FORMUESKAT:=0«, l3=0x12}
0x0ade…0aeb Line {l1=0x0b, l2=»0870 ENDIF «, l3=0x0b}
0x0aeb…0b06 Line {l1=0x19, l2=»0880 ENDPROC PRFORMUESKAT«, l3=0x19}
0x0b06…0b51 Line {l1=0x49, l2=»0890 // -----------------------------------------------------------------«, l3=0x49}
0x0b51…0b65 Line {l1=0x12, l2=»0900 PROC UDSKRIFT«, l3=0x12}
0x0b65…0b72 Line {l1=0x0b, l2=»0910 CLEAR «, l3=0x0b}
0x0b72…0b84 Line {l1=0x10, l2=»0920 CURSOR 5,12«, l3=0x10}
0x0b84…0bd0 Line {l1=0x4a, l2=»0930 INPUT "Ønsker du udskrift på skærm eller printer? s/p ":ØNSKE$«, l3=0x4a}
0x0bd0…0bf5 Line {l1=0x23, l2=»0940 IF ØNSKE$ IN "pprinterj" THEN «, l3=0x23}
0x0bf5…0c0b Line {l1=0x14, l2=»0950 EXEC PRINTERRES«, l3=0x14}
0x0c0b…0c18 Line {l1=0x0b, l2=»0960 ENDIF «, l3=0x0b}
0x0c18…0c25 Line {l1=0x0b, l2=»0970 CLEAR «, l3=0x0b}
0x0c25…0c64 Line {l1=0x3d, l2=»0980 PRINT " S L U T S K A T F O R 1 9 8 2 ."«, l3=0x3d}
0x0c64…0cb3 Line {l1=0x4d, l2=»0990 PRINT "________________________________________________________________"«, l3=0x4d}
0x0cb3…0cc4 Line {l1=0x0f, l2=»1000 CURSOR 1,3«, l3=0x0f}
0x0cc4…0cdf Line {l1=0x19, l2=»1010 PRINT "Hans Hansen,"«, l3=0x19}
0x0cdf…0cfa Line {l1=0x19, l2=»1020 PRINT "Vestervej 6,"«, l3=0x19}
0x0cfa…0d16 Line {l1=0x1a, l2=»1030 PRINT "9876 Østerby."«, l3=0x1a}
0x0d16…0d65 Line {l1=0x4d, l2=»1040 PRINT "----------------------------------------------------------------"«, l3=0x4d}
0x0d65…0d76 Line {l1=0x0f, l2=»1050 CURSOR 1,9«, l3=0x0f}
0x0d76…0da2 Line {l1=0x2a, l2=»1060 PRINT "Skattepligtig indkomst: ";«, l3=0x2a}
0x0da2…0dd2 Line {l1=0x2e, l2=»1070 PRINT USING " #######.## kr. ":SKINDKOMST«, l3=0x2e}
0x0dd2…0dfd Line {l1=0x29, l2=»1080 PRINT "Skattepligtig formue: ";«, l3=0x29}
0x0dfd…0e2c Line {l1=0x2d, l2=»1090 PRINT USING " ########.## kr. ":SKFORMUE«, l3=0x2d}
0x0e2c…0e7b Line {l1=0x4d, l2=»1100 PRINT "----------------------------------------------------------------"«, l3=0x4d}
0x0e7b…0e88 Line {l1=0x0b, l2=»1110 PRINT «, l3=0x0b}
0x0e88…0eb3 Line {l1=0x29, l2=»1120 PRINT "Statsskat: ";«, l3=0x29}
0x0eb3…0ee3 Line {l1=0x2e, l2=»1130 PRINT USING " ########.## kr. ":STATSSKAT«, l3=0x2e}
0x0ee3…0f0e Line {l1=0x29, l2=»1140 PRINT "Amts-,kommune- & kirkeskat:";«, l3=0x29}
0x0f0e…0f42 Line {l1=0x32, l2=»1150 PRINT USING " ########.## kr. ":KOMMUNESKATMV«, l3=0x32}
0x0f42…0f6d Line {l1=0x29, l2=»1160 PRINT "Formueskat: ";«, l3=0x29}
0x0f6d…0f9e Line {l1=0x2f, l2=»1170 PRINT USING " ########.## kr. ":FORMUESKAT«, l3=0x2f}
0x0f9e…0fcd Line {l1=0x2d, l2=»1180 IALT:=STATSSKAT+KOMMUNESKATMV+FORMUESKAT«, l3=0x2d}
0x0fcd…101c Line {l1=0x4d, l2=»1190 PRINT "----------------------------------------------------------------"«, l3=0x4d}
0x101c…1047 Line {l1=0x29, l2=»1200 PRINT "Skat ialt: ";«, l3=0x29}
0x1047…1072 Line {l1=0x29, l2=»1210 PRINT USING " ########.## kr. ":IALT«, l3=0x29}
0x1072…109d Line {l1=0x29, l2=»1220 PRINT "Skat af personfradrag: ";«, l3=0x29}
0x109d…10d1 Line {l1=0x32, l2=»1230 PRINT USING " ########.## kr. ":SKATAFFRADRAG«, l3=0x32}
0x10d1…10f7 Line {l1=0x24, l2=»1240 ENDELIGSKAT:=IALT-SKATAFFRADRAG«, l3=0x24}
0x10f7…1146 Line {l1=0x4d, l2=»1250 PRINT "----------------------------------------------------------------"«, l3=0x4d}
0x1146…1171 Line {l1=0x29, l2=»1260 PRINT "Slutskat for 1982: ";«, l3=0x29}
0x1171…11a3 Line {l1=0x30, l2=»1270 PRINT USING " ########.## kr. ":ENDELIGSKAT«, l3=0x30}
0x11a3…11f2 Line {l1=0x4d, l2=»1280 PRINT "================================================================"«, l3=0x4d}
0x11f2…1209 Line {l1=0x15, l2=»1290 ENDPROC UDSKRIFT«, l3=0x15}
0x1209…1258 Line {l1=0x4d, l2=»1300 // ---------------------------------------------------------------------«, l3=0x4d}
0x1258…126b Line {l1=0x11, l2=»1310 PROC FORSKEL«, l3=0x11}
0x126b…1283 Line {l1=0x16, l2=»1315 SELECT OUTPUT "T"«, l3=0x16}
0x1283…1290 Line {l1=0x0b, l2=»1320 CLEAR «, l3=0x0b}
0x1290…12a1 Line {l1=0x0f, l2=»1340 CURSOR 1,3«, l3=0x0f}
0x12a1…12f0 Line {l1=0x4d, l2=»1350 PRINT " S k a l d u h a v e p e n g e t i l b a g e e l l e r"«, l3=0x4d}
0x12f0…133f Line {l1=0x4d, l2=»1360 PRINT " s k a l d u b e t a l e ? "«, l3=0x4d}
0x133f…138e Line {l1=0x4d, l2=»1370 PRINT "----------------------------------------------------------------"«, l3=0x4d}
0x138e…139f Line {l1=0x0f, l2=»1380 CURSOR 1,8«, l3=0x0f}
0x139f…13ed Line {l1=0x4c, l2=»1390 INPUT "Indtast den samlede betalte skat for 1982: ":SKAT«, l3=0x4c}
0x13ed…13ff Line {l1=0x10, l2=»1410 CURSOR 1,10«, l3=0x10}
0x13ff…144e Line {l1=0x4d, l2=»1420 INPUT "Ønsker du udskrift på skærm eller printer? s/p ":ØNSKE$«, l3=0x4d}
0x144e…1472 Line {l1=0x22, l2=»1430 IF ØNSKE$ IN "pprinter" THEN «, l3=0x22}
0x1472…1488 Line {l1=0x14, l2=»1440 EXEC PRINTERRES«, l3=0x14}
0x1488…1494 Line {l1=0x0a, l2=»1450 ELSE «, l3=0x0a}
0x1494…14a1 Line {l1=0x0b, l2=»1460 CLEAR «, l3=0x0b}
0x14a1…14ae Line {l1=0x0b, l2=»1470 ENDIF «, l3=0x0b}
0x14ae…14d1 Line {l1=0x21, l2=»1480 DIFFERENCE:=SKAT-ENDELIGSKAT«, l3=0x21}
0x14d1…14e2 Line {l1=0x0f, l2=»1490 CURSOR 1,5«, l3=0x0f}
0x14e2…1515 Line {l1=0x31, l2=»1500 PRINT "Samlede betalte personlige skatter:";«, l3=0x31}
0x1515…1540 Line {l1=0x29, l2=»1510 PRINT USING " ########.## kr. ":SKAT«, l3=0x29}
0x1540…1573 Line {l1=0x31, l2=»1520 PRINT "Slutskat: ";«, l3=0x31}
0x1573…15a5 Line {l1=0x30, l2=»1530 PRINT USING " ########.## kr. ":ENDELIGSKAT«, l3=0x30}
0x15a5…15f4 Line {l1=0x4d, l2=»1540 PRINT "================================================================"«, l3=0x4d}
0x15f4…1605 Line {l1=0x0f, l2=»1550 CURSOR 1,9«, l3=0x0f}
0x1605…1622 Line {l1=0x1b, l2=»1560 IF DIFFERENCE=>0 THEN «, l3=0x1b}
0x1622…164e Line {l1=0x2a, l2=»1570 PRINT "Du skal have ";«, l3=0x2a}
0x164e…168f Line {l1=0x3f, l2=»1580 PRINT USING " #######.## kr. tilbage. ":DIFFERENCE«, l3=0x3f}
0x168f…16de Line {l1=0x4d, l2=»1590 PRINT "================================================================"«, l3=0x4d}
0x16de…16ea Line {l1=0x0a, l2=»1600 ELSE «, l3=0x0a}
0x16ea…1716 Line {l1=0x2a, l2=»1610 PRINT "Du skal efterbetale ";«, l3=0x2a}
0x1716…1758 Line {l1=0x40, l2=»1620 PRINT USING " #######.## kr. ":-DIFFERENCE«, l3=0x40}
0x1758…17a7 Line {l1=0x4d, l2=»1630 PRINT "================================================================"«, l3=0x4d}
0x17a7…17b9 Line {l1=0x10, l2=»1640 CURSOR 1,12«, l3=0x10}
0x17b9…1807 Line {l1=0x4c, l2=»1650 PRINT "Du skal ikke tage det for højtideligt, vi er mange i samme båd."«, l3=0x4c}
0x1807…1814 Line {l1=0x0b, l2=»1660 ENDIF «, l3=0x0b}
0x1814…182a Line {l1=0x14, l2=»1670 ENDPROC FORSKEL«, l3=0x14}
0x182a…1834 Line {l1=0x08, l2=»1680 // «, l3=0x08}
0x1834…184a Line {l1=0x14, l2=»1690 PROC PRINTERRES«, l3=0x14}
0x184a…1862 Line {l1=0x16, l2=»1700 SELECT OUTPUT "P"«, l3=0x16}
0x1862…187f Line {l1=0x1b, l2=»1710 IF STATUS("P")=1 THEN «, l3=0x1b}
0x187f…1892 Line {l1=0x11, l2=»1720 CURSOR 12,15«, l3=0x11}
0x1892…18d2 Line {l1=0x3e, l2=»1730 PRINT "Printeren er reserveret af en anden bruger, skal "«, l3=0x3e}
0x18d2…18e5 Line {l1=0x11, l2=»1740 CURSOR 12,16«, l3=0x11}
0x18e5…1925 Line {l1=0x3e, l2=»1750 INPUT "der ventes på at den bliver ledig ? (j/n) ":ØNSKE$«, l3=0x3e}
0x1925…1937 Line {l1=0x10, l2=»1760 CURSOR 1,15«, l3=0x10}
0x1937…1949 Line {l1=0x10, l2=»1770 PRINT "<Z>"«, l3=0x10}
0x1949…195b Line {l1=0x10, l2=»1780 PRINT "<Z>"«, l3=0x10}
0x195b…1983 Line {l1=0x26, l2=»1790 IF ØNSKE$="j" OR ØNSKE$="J" THEN «, l3=0x26}
0x1983…1996 Line {l1=0x11, l2=»1800 CURSOR 12,15«, l3=0x11}
0x1996…19d4 Line {l1=0x3c, l2=»1810 PRINT "Der ventes på at printeren bliver ledig........"«, l3=0x3c}
0x19d4…1a03 Line {l1=0x2d, l2=»1820 WHILE STATUS("P")=1 DO SELECT OUTPUT "P"«, l3=0x2d}
0x1a03…1a10 Line {l1=0x0b, l2=»1830 ENDIF «, l3=0x0b}
0x1a10…1a1d Line {l1=0x0b, l2=»1840 ENDIF «, l3=0x0b}
0x1a1d…1a36 Line {l1=0x17, l2=»1850 ENDPROC PRINTERRES«, l3=0x17}
0x1a36…1a40 00 00 00 63 63 63 63 63 63 63 ┆ ccccccc┆
0x1a40…1a60 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┆
[…0x1a…]