start tok64 d64-Kt7EIr 0 REM"{cm p*32}{space*7}U{D*6}U{D*19}I{sh asterisk*5}I{space*6}{cm q}{sh asterisk*5} G{space*5}biorytm64{space*5}H {sh asterisk*4}{cm w}{space*6}J{F*6}J{F*19}K{F*5}K{space*7}{cm y*32} 9 POKE53280,.:POKE53281,.:PRINT"{green} 10 PRINT"{clear}{down*5}{space*3}{cm p*33}{space*6}U{D*6}U{D*19}I{D*6}I{space*5}{cm q}{sh asterisk*5} G{space*5}biorytm64{space*5}H {sh asterisk*5}{cm w}{space*5}J{F*6}J{F*19}K{F*6}K{space*6}{cm y*33} 20 PRINT"{down*5}{light blue}U{sh asterisk*38}I{sh -}detta program r[knar ut dina biokurvor{sh -}J{sh asterisk*4}If{pound}r en period av tre veckor.U{sh asterisk*4}K{space*5}J{sh asterisk*28}K 30 PRINT"{green}{down*3}{space*13}ett {pound}gonblick! 50 FORi=12288TO12798:POKEi,.:NEXT 80 PRINT"{white}{up}{space*3}tryck p] en tangent f{pound}r att starta 90 GETt$:IFt$=""THEN90 95 FORi=.TO15:POKE677,12:SYS59777:NEXT 96 FORi=.TO4:SYS59626:NEXT 100 INPUT"{yellow}{home}{down*10} f{pound}delsedatum ({]*4},mm,dd){light gray}";a,m,d 110 x=3:aa=a:bb=m:cc=d 120 GOSUB1000:d1=dd 130 INPUT"{yellow}{down*3}{space*3}startdatum ({]*4},mm,dd){light gray}";a,m,d 140 GOSUB1000:d1=d1-dd 150 INPUT"{yellow}{down*3}{space*22}namn{light gray}";n$:n$=RIGHT$("{sh asterisk*9} "+LEFT$(n$,10),10) 160 FORi=.TO14:POKE677,5:SYS59777:NEXT 161 FORi=.TO24:POKE677,.:SYS59777:NEXT 165 REM **** utplacering av sprites **** 170 v=53248:FORi=192TO199:POKE1848+i,i:NEXT 180 POKE53269,255 190 FORi=.TO6STEP2:POKEv+i,i*24+24:POKEv+i+1,60:NEXT 200 FORi=.TO6STEP2:POKEv+8+i,i*24+24:POKEv+i+9,102:NEXT 210 FORi=39TO46:POKEv+i,15:NEXT 220 POKEv+37,12:POKEv+38,1:POKEv+28,255:POKEv+23,255:POKEv+29,255 230 GOSUB340 235 REM **** utritning av kurvor **** 240 t=23 250 FORf=1TO3:x=(d1/t-INT(d1/t))*2*{pi}:dx=2*{pi}/(6*t):FORi=1TO42STEP1/3:p=INT(i):y=20-INT(SIN(x)*21):z=p-INT(p/12.1)*12:ad=12288+INT(p/12.1)*64+INT(z*2.99/12)+y*3-(y>20)*256+(y>20)*63:ve=4^(3-(INT((p/4-INT(p/4.01))*4)-1))*f:x=x+dx:POKEad,PEEK(ad)ORve:NEXT 330 t=t+5:NEXT:GOTO430 335 REM **** skalornas utplacering **** 340 PRINT"{clear}{white}"RIGHT$(STR$(aa+10000),4)"-"RIGHT$(STR$(100+bb),2)"-"RIGHT$(STR$(100+cc),2)" "n$ 341 PRINTTAB(28)"{light blue}U{D*9}I":PRINTTAB(28)"G{green}biorytm64{light blue}H":PRINTTAB(28)"J{F*9}K":PRINT"{down}"TAB(28)"{cyan}startdatum:{green}":PRINTTAB(28)RIGHT$(STR$(a+10000),4)"-"RIGHT$(STR$(100+m),2)"-"RIGHT$(STR$(d+100),2) 350 PRINT"{home}{down}{white}{sh +}{yellow}{cm y*20} {white}b[st 360 PRINT"{down*4}{dark gray}{sh asterisk*21} {light gray}medel 370 PRINT"{down*4}{white}{sh asterisk}{yellow}{cm p*20} {gray}s[mst 380 PRINT"{cyan}{sh -*21} 390 PRINT"{space*2}{green}v1{space*2}{cyan}{sh -}{space*2}{green}v2{space*2}{cyan}{sh -}{space*2}{green}v3{space*2}{cyan}{sh -} 400 PRINT"{down}{gray} {sh asterisk*2} = fysisk styrka 410 PRINT"{down}{light gray} {sh asterisk*2} = k[nslom[ssig styrka 420 PRINT"{down}{white} {sh asterisk*2} = intellektuell styrka 425 RETURN 430 PRINT"{down*2}{yellow} en g]ng till (j/n) ? 440 GETa$:IFa$<>"j"ANDa$<>"n"THEN440 441 POKEv+21,.:FORi=.TO24:POKE677,.:SYS59777:NEXT 450 IFa$="n"THENPOKE53280,14:POKE53281,6:PRINT"{light blue}{clear}";:END 460 RUN 1000 mm=mm+1 1010 dd=-(INT(a*365.35)+(INT(m*30.6))+d) 1020 RETURN stop tok64 (bastext 1.0)