start tok64 d64-uBMxAd 0 DIM m%(12),m$(12):FORi=1TO12:READ m%(i),m$(i):NEXT 1 DIM n$(31,3):FORi=1TO31:FORj=1TO3:n$(i,j)="{space*9}":NEXT:NEXT 2 INPUT"{clear}{down}hvilket {up}.{down}{left}ar (1753-2100) ";y:IFy<1753ORy>2100 THEN 2 3 INPUT"{down}hvilke m{up}.{down}{left}aned (1-12) ";m:IF m>12 OR m<1 THEN3 4 FOR i =1753TOy:a=y-1753:b=a*365.25:IF a>47 THEN b=b-1 5 IF a>147 THEN b=b-1 6 b=INT(b):NEXT 7 c=c+1:a=m%(c):IF c=m THEN 9 8 b=b+a:GOTO 7 9 IFy=1800 OR y =1900 THEN12 10 IF c=2AND y/4=INT(y/4)THEN a=29 11 IF c>2 AND y/4=INT(y/4) THEN b=b+1 12 b=b+1:d=b-INT(b/7-0.1)*7 13 INPUT"{down}vil du gj0re anmerkninger ";q$:IF q$ <>"j" THEN GOTO 18 14 INPUT"{down}hvilke dag ";x: IF x<1 OR x>a THEN 14 15 FOR i=1TO3:PRINT"{down}linje"i"{down}{cm t*9}{up*2}":x$="":INPUT"{right*6}";x$ 16 n$(x,i)=LEFT$(x$+"{space*9}",9):NEXT 17 INPUT "{down}vil du gj0re flere annmerkninger ";q$:IF q$="j"THEN 14 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}mandag{space*5}tirsdag{space*5}onsdag{space*5}torsdag{space*5}fredag"; 21 PRINT#1,"{space*5}l0rdag{space*5}s0ndag":PRINT#1:d=d-1:IF d=0THEN 23 22 FOR i=1TOd:s$=s$+"{space*11}":NEXT 23 FOR i=1TO7-d:GOSUB 27:NEXT:GOSUB34:s$="" 24 FOR i=1TO7:GOSUB27:NEXT:GOSUB34 25 IF NOT x=>a THEN 24 26 CLOSE 1:END 27 x=x+1:IFx>aTHEN RETURN 28 t$="{sh -}":x$=STR$(x):l=LEN(x$)-1:t$=t$+RIGHT$(x$,l):FORj=1TO9-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,januar,28,februar,31,mars,30,april,31,mai,30,juni 36 DATA 31,juli,31,august,30,september,31,oktober,30,november,31,desember stop tok64 (bastext 1.0)