start tok64 d64-NkkqzW
10 PRINT"{clear}{down*7}{space*14}biorythm-64"
20 PRINT"{down*5} detta program r[knar ut dina biokurvor"
30 PRINT" f{pound}r en period av tre veckor."
40 PRINT"{down*5}{space*13}ett {pound}gonblick"
50 FORi=12288TO12798:POKEi,0:NEXT
80 PRINT" {up}{space*2}tryck p] en tangent f{pound}r att starta"
90 GETt$:IFt$=""THEN90
100 INPUT"{clear}{down*10} f{pound}delsedatum ({]*4},mm,dd)";a,m,d
110 x=3:aa=a:bb=m:cc=d
120 GOSUB 1000:d1=dd
130 INPUT"{down*3}{space*5}starttid ({]*4},mm,dd) ";a,m,d
150 GOSUB1000
160 PRINT"{clear}"
165 REM **** utplacering av sprites ****
170 v=53248:FORi=192TO199:POKE1848+i,i:NEXT
180 POKE53269,255
190 FORi=0TO6STEP2:POKEv+i,i*24+24:POKEv+i+1,60:NEXT
200 FORi=0TO6STEP2:POKEv+8+i,i*24+24:POKEv+i+9,102:NEXT
210 FORi=39TO46:POKEv+i,3:NEXT
220 POKEv+37,5:POKEv+38,0:POKEv+28,255
230 POKEv+23,255:POKEv+29,255
232 GOSUB340
235 REM **** utritning av kurvor *****
240 t=23
250 FORf=1TO3
260 x=(d1/t-INT(d1/t))*2*{pi}
270 dx=2*{pi}/(6*t)
280 FORi=1TO42STEP1/3
285 p=INT(i)
290 y=20-INT(SIN(x)*21)
295 z=p-INT(p/12.1)*12
300 ad=12288+INT(p/12.1)*64+INT(z*2.99/12)+y*3-(y>20)*256+(y>20)*63
310 ve=4^(3-(INT((p/4-INT(p/4.01))*4)-1))*f
315 x=x+dx
320 POKEad,PEEK(ad)ORve:NEXTi
330 t=t+5:NEXTf
332 GOTO430
335 REM ***** skalors utplacering *****
340 PRINT"{up}{yellow}{space*4}";aa;bb;cc
350 PRINT"{cm y*21} b[st"
360 PRINT"{down*4}{D*21} s[mst"
370 PRINT"{down*4}{cm p*21} b[st"
380 PRINT"{B*21}"
390 PRINT"{space*2}v1{space*2}B{space*2}v2{space*2}B{space*2}v3{space*2}B"
400 PRINT"{down}{green} {sh asterisk*2} = fysiskt"
410 PRINT"{down}{white} {sh asterisk*2} = k[nslom[ssigt"
420 PRINT"{down}{black} {sh asterisk*2} = itellektuellt"
425 RETURN
430 PRINT"{down*2}{yellow} en g]ng till (j/n) ?"
440 GETa$:IFa$=""THEN440
450 IFa$="n"THENEND
460 POKEv+21,0:RUN
1000 mm=mm+1
1010 dd=-(INT(a*365.25)+(INT(m*30.6))+d)
1020 RETURN
stop tok64
(bastext 1.0)