start tok64 d64-K2av6B
0 DIM m%(12),m$(12):FOR i=1 TO 12:READ m%(i),m$(i):NEXT
1 DIM n$(31,3):FOR i=1 TO 31:FOR j=1TO3:n$(i,j)="{space*9}":NEXT:NEXT
2 INPUT "{clear}vilket ]r";y:IF y<1753 OR y>2100 THEN 2
3 INPUT "vilken m]nad";m:IF m<1 OR m>12 THEN 3
4 FOR i=1753 TO y:a=y-1753:b=a*365.25:IF a>47 THEN b=b-1
5 IF a>147 THENb=b-1
6 b=INT(b):NEXT
7 c=c+1:a=m%(c):IFc=mTHEN9
8 b=b+a:GOTO 7
9 IF y=1800 OR y=1900THEN 12
10 IFc=2ANDy/4=INT(y/4)THENa=29
11 IFc>2ANDy/4=INT(y/4)THENb=b+1
12 b=b+1:d=b-INT(b/7-0.1)*7
13 INPUT "vill du g{pound}ra anteckningar";q$:IF q$<>"j"THEN18
14 INPUT"vilken dag";x:IFx<1ORx>aTHEN14
15 FOR i=1TO3:PRINT"{down}rad"i"{space*2}{down}{cm t*9}{up*2}":x$="":INPUT"{right*6}";x$
16 n$(x,i)=LEFT$(x$+"{space*9}",9):NEXT
17 INPUT "{down}vill du g{pound}ra fler anteckningar";q$:IFq$="j"THEN14
18 OPEN 1,4,0:x=0:x$=m$(m)+STR$(y)
19 PRINT#1,CHR$(14)TAB((40-LEN(x$))/2)x$:PRINT#1
20 PRINT#1,CHR$(15)"{space*2}m]ndag{space*5}tisdag{space*5}onsdag{space*5}torsdag{space*4}fredag";
21 PRINT#1,"{space*5}l{pound}rdag{space*5}s{pound}ndag":PRINT#1:d=d-1:IFd=0THEN23
22 FOR i=1 TO d:s$=s$+"{space*11}":NEXT
23 FOR i=1 TO 7-d:GOSUB 27:NEXT:GOSUB 34:s$=""
24 FOR i=1 TO 7:GOSUB 27:NEXT:GOSUB 34
25 IF NOT x=>a THEN 24
26 CLOSE 1:END
27 x=x+1:IF x>a THEN RETURN
28 t$="{sh -}":x$=STR$(x):l=LEN(x$)-1:t$=t$+RIGHT$(x$,l):FOR j=1 TO 9-l:t$=t$+" "
29 NEXT:t$=t$+"{sh -}":l$(1)=l$(1)+"{cm a}{sh asterisk*9}{cm s}":l$(2)=l$(2)+t$
30 l$(3)=l$(3)+"{sh -}{space*9}{sh -}":l$(4)=l$(4)+"{sh -}"+n$(x,1)+"{sh -}"
31 l$(5)=l$(5)+"{sh -}{space*9}{sh -}":l$(6)=l$(6)+"{sh -}"+n$(x,2)+"{sh -}"
32 l$(7)=l$(7)+"{sh -}{space*9}{sh -}":l$(8)=l$(8)+"{sh -}"+n$(x,3)+"{sh -}"
33 l$(9)=l$(9)+"{cm z}{sh asterisk*9}{cm x}":RETURN
34 FOR i=1TO9:PRINT#1,CHR$(15)s$l$(i)CHR$(8):l$(i)="":NEXT:RETURN
35 DATA 31,januari,28,februari,31,mars,30,april,31,maj,30,juni
36 DATA 31,juli,31,augusti,30,september,31,oktober,30,november,31,december
stop tok64
(bastext 1.0)