DataMuseum.dk

top - metrics - download

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

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

SPC/1 COMAL-80

00100 DIM A $ ( 23 ) OF 30 , S $ OF 80
00110 LET PR := 0
00120 CLEAR
00130 PRINT "EASY-SKAT…1985" ; TAB ( 65 ) ; "SERIE#…86.1.101"
00140 PRINT "VERSION…6.1…JANUAR…1986"
00150 PRINT "COPYRIGHT…(C)…H.S.M\LLER…1986"
00160 PRINT
00170 PRINT "ALLE…BEL\B…OG…BEREGNINGER…VEDR\RER…INDKOMST]RET…1985."
00180 PRINT
00190 OPEN "DDE:SKATINDL" , R
00200 REPEAT
00210 GET "DDE:SKATINDL" : S $
00220 IF ╱cd╱ ( "DDE:SKATINDL" ) = 0 THEN PRINT S $
00230 UNTIL ╱cd╱ ( "DDE:SKATINDL" ) = 19
00240 PRINT
00250 EXEC RETURN
00260 CLEAR
00270 PRINT "Indatering…af…bel|b…sker…i…en…oversigt,…der…indeholder…f|lgende"
00280 PRINT "indkomster…og…fradrag."
00290 PRINT
00300 PRINT
00310 OPEN "dde:skatart" , R
00320 FOR X := 1 TO 3 DO
00330 GET "dde:skatart" : A $ ( X )
00340 LET A $ ( X ) := A $ ( X , 4 : 25 )
00350 NEXT X
00360 FOR X := 1 TO 2 DO
00370 PRINT TAB ( 10 ) ; A $ ( X ) ;
00380 IF < 12 THEN
00390 PRINT TAB ( 45 ) ; A $ ( X + 12 )
00400 ELSE
00410 PRINT
00420 ENDIF
00430 NEXT X
00440 PRINT
00450 PRINT "Det…er…nu…muligt…at…f}…forklaring…til…de…enkelte…indkomster…og…" ;
00460 PRINT "fradrag"
00470 PRINT "\nskes…der…forklaringer?…(j/n)" ;
00480 EXEC SVAR
00490 REPEAT
00500 IF $ = "j" THEN
00510 PRINT "\nskes…forklaringerne…udskrevet…p}…printer?…(j/n)" ;
00520 EXEC SVAR
00530 IF $ = "j" THEN
00540 LET PR := 1
00550 ELSE
00560 LET PR := 0
00570 ENDIF
00580 CLEAR
00590 IF PR = 1 THEN OUTPUT "P"
00600 OPEN "dde:skatfork" , R
00610 REPEAT
00620 GET "dde:skatfork" : S $
00630 IF ( S $ ) < 6 THEN
00640 PRINT S $
00650 ELSE
00660 IF PR = 1 AND S $ ( ╱cb╱ ( S $ ) - 5 : 6 ) >< "return" THEN PRINT S $
00670 IF PR = 1 AND S $ ( ╱cb╱ ( S $ ) - 5 : 6 ) = "return" THEN PRINT
00680 IF PR = 0 AND S $ ( ╱cb╱ ( S $ ) - 5 : 6 ) >< "return" THEN PRINT S $
00690 IF R = 0 AND S $ ( ╱cb╱ ( S $ ) - 5 : 6 ) = "return" THEN
00700 PRINT
00710 EXEC RETURN
00720 IF PR = 0 THEN CLEAR
00730 ENDIF
00740 ENDIF
00750 UNTIL ╱cd╱ ( "dde:skatfork" ) = 19
00760 CLOSE
00770 IF R = 0 THEN
00780 PRINT "\nskes…forklaringerne…gentaget?…(j/n)" ;
00790 EXEC SVAR
00800 ELSE
00810 OUTPUT "T"
00820 ENDIF
00830 ENDIF
00840 UNTIL PR = 1 OR S $ = "n"
00850 PRINT "***…VENT…***…BEREGNINGSPROGRAMMET…INDL[SES…***"
00860 CHAIN "DDE:SKAT85"
00870 PROC SVAR
00880 REPEAT
00890 INPUT S $
00900 IF $ = "q" OR S $ = "Q" THEN
00910 PRINT "Programmet…kan…kun…afsluttes…fra…hovedprogrammet." ; CHR$ ( 7 )
00920 ENDIF
00930 IF S $ = "N" THEN LET S $ := "n"
00940 IF S $ = "J" THEN LET S $ := "j"
00950 UNTIL S $ = "j" OR S $ = "n"
00960 ENDPROC SVAR
00970 PROC RETURN
00980 LET S $ := "-"
00990 PRINT
01000 PRINT TAB ( 65 ) ;
01010 EDIT "TRYK…-RETURN" : S $
01020 ENDPROC RETURN
00130 PRINT "EASY-SKAT…1985" ; TAB ( 65 ) ; "SERIE#…85.1.101"
00130 PRINT "EASY-SKAT…1985" ; TAB ( 65 ) ; "SERIE#…85.1.102"
38382 ╱00╱ ╱00╱