DataMuseum.dk

Presents historical artifacts from the history of:

MIKADOS

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about MIKADOS

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦1f03f715e⟧ SPC/1-COMAL-80

    Length: 1922 (0x782)
    Types: SPC/1-COMAL-80
    Notes: Mikados_B, UNKNOWN_TOKEN_cb, UNKNOWN_TOKEN_cd
    Names: »SKAT.B«

Derivation

└─⟦fe8d363bb⟧ Bits:30004640 EASY-Skat 1985 (MIKADOS)
    └─⟦this⟧ »SKAT.B«

SPC/1 COMAL-80

0100 DIM A$(23) OF 30,S$ OF 80
0110 LET PR := 0
0120 CLEAR
0130 PRINT "EASY-SKAT 1985" ; TAB(65) ; "SERIE# 86.1.101"
0140 PRINT "VERSION 6.1 JANUAR 1986"
0150 PRINT "COPYRIGHT (C) H.S.MØLLER 1986"
0160 PRINT
0170 PRINT "ALLE BELØB OG BEREGNINGER VEDRØRER INDKOMSTÅRET 1985."
0180 PRINT
0190 OPEN "DDE:SKATINDL",R
0200 REPEAT
0210 GET "DDE:SKATINDL" : S$
0220 IF ╱cd╱ ("DDE:SKATINDL") = 0 THEN PRINT S$
0230 UNTIL ╱cd╱ ("DDE:SKATINDL") = 19
0240 PRINT
0250 EXEC RETURN
0260 CLEAR
0270 PRINT "Indatering af beløb sker i en oversigt, der indeholder følgende"
0280 PRINT "indkomster og fradrag."
0290 PRINT
0300 PRINT
0310 OPEN "dde:skatart",R
0320 FOR X := 1 TO 3 DO
0330 GET "dde:skatart" : A$(X)
0340 LET A$(X) := A$(X,4 : 25)
0350 NEXT X
0360 FOR X := 1 TO 2 DO
0370 PRINT TAB(10) ; A$(X) ;
0380 IF < 12 THEN
0390 PRINT TAB(45) ; A$(X + 12)
0400 ELSE
0410 PRINT
0420 ENDIF
0430 NEXT X
0440 PRINT
0450 PRINT "Det er nu muligt at få forklaring til de enkelte indkomster og " ;
0460 PRINT "fradrag"
0470 PRINT "Ønskes der forklaringer? (j/n)" ;
0480 EXEC SVAR
0490 REPEAT
0500 IF $ = "j" THEN
0510 PRINT "Ønskes forklaringerne udskrevet på printer? (j/n)" ;
0520 EXEC SVAR
0530 IF $ = "j" THEN
0540 LET PR := 1
0550 ELSE
0560 LET PR := 0
0570 ENDIF
0580 CLEAR
0590 IF PR = 1 THEN OUTPUT "P"
0600 OPEN "dde:skatfork",R
0610 REPEAT
0620 GET "dde:skatfork" : S$
0630 IF (S$) < 6 THEN
0640 PRINT S$
0650 ELSE
0660 IF PR = 1 AND S$( ╱cb╱ (S$) - 5 : 6) >< "return" THEN PRINT S$
0670 IF PR = 1 AND S$( ╱cb╱ (S$) - 5 : 6) = "return" THEN PRINT
0680 IF PR = 0 AND S$( ╱cb╱ (S$) - 5 : 6) >< "return" THEN PRINT S$
0690 IF R = 0 AND S$( ╱cb╱ (S$) - 5 : 6) = "return" THEN
0700 PRINT
0710 EXEC RETURN
0720 IF PR = 0 THEN CLEAR
0730 ENDIF
0740 ENDIF
0750 UNTIL ╱cd╱ ("dde:skatfork") = 19
0760 CLOSE
0770 IF R = 0 THEN
0780 PRINT "Ønskes forklaringerne gentaget? (j/n)" ;
0790 EXEC SVAR
0800 ELSE
0810 OUTPUT "T"
0820 ENDIF
0830 ENDIF
0840 UNTIL PR = 1 OR S$ = "n"
0850 PRINT "*** VENT *** BEREGNINGSPROGRAMMET INDLÆSES ***"
0860 CHAIN "DDE:SKAT85"
0870 PROC SVAR
0880 REPEAT
0890 INPUT S$
0900 IF $ = "q" OR S$ = "Q" THEN
0910 PRINT "Programmet kan kun afsluttes fra hovedprogrammet." ; CHR$ (7)
0920 ENDIF
0930 IF S$ = "N" THEN LET S$ := "n"
0940 IF S$ = "J" THEN LET S$ := "j"
0950 UNTIL S$ = "j" OR S$ = "n"
0960 ENDPROC SVAR
0970 PROC RETURN
0980 LET S$ := "-"
0990 PRINT
1000 PRINT TAB(65) ;
1010 EDIT "TRYK -RETURN" : S$
1020 ENDPROC RETURN

Full view