start tok64 d64-uwy8AH
0 a$="{ct n}N[r [r du f{pound}dd":GOSUB11:j=k:d=VAL(MID$(m$,9)):y=b:o=n
1 GOSUB9:IFd<1ORd>zGOTO
2 a$="F{pound}r vilken m]nad":GOSUB11
3 g=z*NOTk>j:FORi=jTOkSTEP1/12:y=INT(i):o=INT(12*(i-y)+1):GOSUB9:g=g+z:NEXT
4 PRINT"{clear}","Biorytmer{space*2}"m$:PRINT"{down}max!":FORi=1TO19:PRINT"{space*3}!":NEXT:PRINT"min!
5 FORx=23TO33STEP5:READz$:FORi=0TO30:POKE214,11.5-10.5*SIN((1-d+g+i)*2*{pi}/x)
6 PRINT:POKE211,i+4:PRINTz$:NEXTi,x:READq$:POKE214,11:PRINT:PRINT"{right*4}+"q$q$q$
7 POKE214,23:PRINT:INPUT"En kurva till (j/n)";a$:IFa$="j"ORa$="J"THENRUN
8 ON-(a$<>"n"ANDa$<>"N")GOTO7:END:DATAf,e,i,---------+
9 IFy/100=INT(y/100)THENy=y/100
10 z=ASC(MID$("{blue}{red}{blue}{green}{blue}{green}{blue*2}{green}{blue}{green}{blue}",o))+(o=2)*(y/4=INT(y/4)):RETURN
11 PRINTa$;:INPUTm$:n=VAL(MID$(m$,6)):k=VAL(m$)+(n-1)/12:IFn>12ORn<1THEN11
12 RETURN
9999 REM dmz #11/1990
stop tok64
(bastext 1.0)