start tok64 d64-nNEgml 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)