|
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 - metrics - download
Length: 1248 (0x4e0)
Notes: Mikados TextFile, Mikados_K
Names: »RESTSKAT«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »RESTSKAT«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »RESTSKAT«
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$