|
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: 1248 (0x4e0)
Types: TextFile
Notes: Mikados_K
Names: »RESTSKAT.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »RESTSKAT.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »RESTSKAT.K«
0010 // ------------------------------ restskat ---------------------- 0020 DIM NAVN$ OF 20,ADR$ OF 20,POSTBY$ OF 30 0030 DIM SKATNAVN$ OF 20,SKATADR$ OF 20,SKATPOSTBY$ OF 30 0040 // -------------------------------------------------------------- 0050 CLEAR 0055 PRINT 0060 INPUT "Indtast modtagerens navn: ":NAVN$ 0070 INPUT "Indtast modtagerens adresse: ":ADR$ 0080 INPUT "Indtast modtagerens postnummer & by: ":POSTBY$ 0090 PRINT 0100 INPUT "Indtast restskatten: ":REST 0110 PRINT 0120 INPUT "Indtast skattevæsenets navn: ":SKATNAVN$ 0130 INPUT "Indtast skattevæsenets adresse: ":SKATADR$ 0140 INPUT "Indtast skattevæsenets postnr. & by: ":SKATPOSTBY$ 0150 CLEAR 0155 PRINT 0160 PRINT NAVN$ 0170 PRINT ADR$ 0180 PRINT POSTBY$ 0190 PRINT 0200 PRINT " Vi skal hermed gøre Dem opmærksom på, at Deres restskat " 0210 PRINT "udgør kr: ";CHR$(REST,6,2);", som bedes betalt i tre rater på "; 0211 PRINT "ved-" 0220 PRINT "lagte girokort. " 0230 PRINT 0240 PRINT TAB(35);SKATNAVN$ 0250 PRINT TAB(35);SKATADR$ 0260 PRINT TAB(35);SKATPOSTBY$
0x000…048 Line {l1=0x46, l2=»0010 // ------------------------------ restskat ----------------------«, l3=0x46}
0x048…077 Line {l1=0x2d, l2=»0020 DIM NAVN$ OF 20,ADR$ OF 20,POSTBY$ OF 30«, l3=0x2d}
0x077…0b2 Line {l1=0x39, l2=»0030 DIM SKATNAVN$ OF 20,SKATADR$ OF 20,SKATPOSTBY$ OF 30«, l3=0x39}
0x0b2…0fa Line {l1=0x46, l2=»0040 // --------------------------------------------------------------«, l3=0x46}
0x0fa…107 Line {l1=0x0b, l2=»0050 CLEAR «, l3=0x0b}
0x107…114 Line {l1=0x0b, l2=»0055 PRINT «, l3=0x0b}
0x114…14e Line {l1=0x38, l2=»0060 INPUT "Indtast modtagerens navn: ":NAVN$«, l3=0x38}
0x14e…187 Line {l1=0x37, l2=»0070 INPUT "Indtast modtagerens adresse: ":ADR$«, l3=0x37}
0x187…1c3 Line {l1=0x3a, l2=»0080 INPUT "Indtast modtagerens postnummer & by: ":POSTBY$«, l3=0x3a}
0x1c3…1d0 Line {l1=0x0b, l2=»0090 PRINT «, l3=0x0b}
0x1d0…209 Line {l1=0x37, l2=»0100 INPUT "Indtast restskatten: ":REST«, l3=0x37}
0x209…216 Line {l1=0x0b, l2=»0110 PRINT «, l3=0x0b}
0x216…255 Line {l1=0x3d, l2=»0120 INPUT "Indtast skattevæsenets navn: ":SKATNAVN$«, l3=0x3d}
0x255…293 Line {l1=0x3c, l2=»0130 INPUT "Indtast skattevæsenets adresse: ":SKATADR$«, l3=0x3c}
0x293…2d4 Line {l1=0x3f, l2=»0140 INPUT "Indtast skattevæsenets postnr. & by: ":SKATPOSTBY$«, l3=0x3f}
0x2d4…2e1 Line {l1=0x0b, l2=»0150 CLEAR «, l3=0x0b}
0x2e1…2ee Line {l1=0x0b, l2=»0155 PRINT «, l3=0x0b}
0x2ee…300 Line {l1=0x10, l2=»0160 PRINT NAVN$«, l3=0x10}
0x300…311 Line {l1=0x0f, l2=»0170 PRINT ADR$«, l3=0x0f}
0x311…325 Line {l1=0x12, l2=»0180 PRINT POSTBY$«, l3=0x12}
0x325…332 Line {l1=0x0b, l2=»0190 PRINT «, l3=0x0b}
0x332…37a Line {l1=0x46, l2=»0200 PRINT " Vi skal hermed gøre Dem opmærksom på, at Deres restskat "«, l3=0x46}
0x37a…3c8 Line {l1=0x4c, l2=»0210 PRINT "udgør kr: ";CHR$(REST,6,2);", som bedes betalt i tre rater på ";«, l3=0x4c}
0x3c8…3db Line {l1=0x11, l2=»0211 PRINT "ved-"«, l3=0x11}
0x3db…423 Line {l1=0x46, l2=»0220 PRINT "lagte girokort. "«, l3=0x46}
0x423…430 Line {l1=0x0b, l2=»0230 PRINT «, l3=0x0b}
0x430…44e Line {l1=0x1c, l2=»0240 PRINT TAB(35);SKATNAVN$«, l3=0x1c}
0x44e…46b Line {l1=0x1b, l2=»0250 PRINT TAB(35);SKATADR$«, l3=0x1b}
0x46b…48b Line {l1=0x1e, l2=»0260 PRINT TAB(35);SKATPOSTBY$«, l3=0x1e}
0x48b…4a0 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccccccc┆
0x4a0…4c0 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┆
[…0x1…]