10 REM +++++++++++++++++++++++++++++++++
11 REM ! Program .... DAGAR
12 REM ! Utg}va 1.0 81-04-19>81-04-20
13 REM ! av DAVID ARONSON
14 REM ! Copyright CENTRAL ELEKTRONIK
15 REM ! Minne 16 Kbytes
16 REM +++++++++++++++++++++++++++++++++
17 REM DAGAR Ver 1.0 810419 > 810420
18 ; CHR$(12%) : ; TAB(10%)'DAGAR Version 1.0' : ; TAB(9%)CHR$(23%)STRING$(17%,35%)
19 ; : ; 'David Aronson Central Elektronik 810420' : ; ' f|r att }terg} till menyn.'
20 ; : ; 'Med detta programmet kan du g|ra','f|ljande ber{kningar:'
21 ; : ; TAB(5%)'MENY:' : ; TAB(5%)'=====' : ; '1,Dagar mellan datum.',,'2,Veckodag.' : ; '3,Slut.'
22 ; : ; 'Var god v{lj: (1-3)?';
23 GET A$ : IF A$='1' ; A$ : GOTO 24 ELSE IF A$='2' ; A$ : GOTO 27 ELSE IF A$<>'3' 23 : ; A$ : END
24 REM
25 REM Dagar mellan datum
26 ; : ; 'Datum 1:' : GOSUB 33 : F1=F : ; : ; 'Datum 2:' : GOSUB 33 : ; 'Skilnaden {r'F-F1' dagar' : GOTO 24
27 REM
28 REM Veckodagsber{kning
29 ; : RESTORE 32 : GOSUB 33 : F=F-FIX(F/24997)*24997
30 FOR D%=0% TO F-FIX(F/7)*7 : READ A$ : NEXT D% : ; 'Det {r en 'A$'dag.'
31 GOTO 27
32 DATA l|r,s|n,m}n,tis,ons,tors,fre
33 REM
34 REM Sub f|r ]]MMDD inmatn
35 ; 'Mata in datum' : ; 'Format: ]]]]MMDD '; : INPUT A$ : ONERRORGOTO 35 : IF A$='' 21 : IF LEN(A$)<>8% 35
36 ]%=VAL(LEFT$(A$,4%)) : M%=VAL(MID$(A$,5%,2%)) : D%=VAL(RIGHT$(A$,7%))
37 IF M%<1% OR M%>12% OR D%<1% OR D%>31% 35
38 IF M%>2% F=365*]%+D%+31*(M%-1)-INT(.4*M%+2.3)+INT(]%/4)-INT(.75*(INT(]%/100)+1))
39 IF M%<3% F=365*]%+D%+31*(M%-1)+INT((]%-1)/4)-INT(.75*(INT((]%-1)/100)+1))
40 RETURN