start tok64 d64-kzBIrG
1 REM converted from pet to commodore 64by rick beam
99 POKE53281,0:POKE53280,0
100 REM biorhythmn 1.5
110 PRINT"{clear}{white}";
120 h=100.01:f=.001
130 DIMm%(12),m$(12)
140 FORi=1TO12:READm%(i):NEXT
150 FORi=1TO12:READm$(i):NEXT
160 d$="{down*22}"
170 r$="{left}{right*39}"
180 pi=-2*{pi}
190 INPUT"input name please";n$
200 INPUT"input birthday{space*3}mm,dd,yy ";mb,db,yb
210 tb=0
220 t1=yb/4
230 IFmb<2THEN280
240 FORi=1TOmb-1
250 tb=tb+m%(i)
260 NEXT
270 IF(t1<>INT(t1))AND(mb>2)THENtb=tb+1
280 tb=tb+365*yb+INT(t1)+db
290 INPUT"{white}input start date mm,dd,yy ";ms,ds,ys
300 ts=0
310 t1=ys/4
320 IFms<2THEN370
330 FORi=1TOms-1
340 ts=ts+m%(i)
350 NEXT
360 IF(t1<>INT(t1))AND(ms>2)THENts=ts+1
370 ts=ts+365*ys+INT(t1)+ds
380 tt=ts-tb
390 ps=23*(tt/23-INT(tt/23))
400 es=28*(tt/28-INT(tt/28))
410 is=33*(tt/33-INT(tt/33))
420 GOSUB580
430 FORi=0TO38
440 p=8+8*SIN((ps+i)*pi/23)+.5
450 PRINT"{home}"LEFT$(r$,i+1);LEFT$(d$,p+2);"{cyan}W"
460 NEXT
470 FORi=1TO38
480 e=8+8*SIN((es+i)*pi/28)+.5
490 PRINT"{home}"LEFT$(r$,i+1);LEFT$(d$,e+2);"{yellow}Q"
500 NEXT
510 FORi=1TO38
520 it=8+8*SIN((is+i)*pi/33)+.5
530 PRINT"{home}"LEFT$(r$,i+1);LEFT$(d$,it+2);"{red}*"
540 NEXT
550 GETa$:IFa$=""THEN550
560 PRINT"{home}{down*23}{space*40}{up*3}"
570 GOTO290
580 PRINT"{clear}";
590 PRINT"biorhythmn for {reverse on}"n$"{reverse off} born ";
600 PRINTm$(mb);db;"{left},19";MID$(STR$(yb/h+f),3,2)
610 PRINT"{cm a}{cm r*37}{cm s}"
620 FORi=1TO8
630 PRINT"{cm q} {sh -} {sh -} {sh -} {sh -} {sh -} {sh -} {sh -} {sh -} {sh -} {sh -} {sh -} {sh -} {sh -} {sh -} {sh -} {sh -} {sh -} {sh -} {cm w}"
640 NEXT
650 PRINT"{cm q}{sh asterisk}{sh +}{sh asterisk}{sh +}{sh asterisk}{sh +}{sh asterisk}{sh +}{sh asterisk}{sh +}{sh asterisk}{sh +}{sh asterisk}{sh +}{sh asterisk}{sh +}{sh asterisk}{sh +}{sh asterisk}{sh +}{sh asterisk}{sh +}{sh asterisk}{sh +}{sh asterisk}{sh +}{sh asterisk}{sh +}{sh asterisk}{sh +}{sh asterisk}{sh +}{sh asterisk}{sh +}{sh asterisk}{sh +}{sh asterisk}{cm w}"
660 FORi=1TO8
670 PRINT"{cm q} {sh -} {sh -} {sh -} {sh -} {sh -} {sh -} {sh -} {sh -} {sh -} {sh -} {sh -} {sh -} {sh -} {sh -} {sh -} {sh -} {sh -} {sh -} {cm w}"
680 NEXT
690 PRINT"{cm z}{cm e*37}{cm x}"
700 md=ms:d1=ds:yd=ys
710 FORi=0TO38
720 IFi/2<>INT(i/2)THENPRINT"{right}";:GOTO790
730 a$=STR$(d1)
740 IFLEN(a$)<3THENb$=RIGHT$(a$,1):GOTO760
750 b$=MID$(a$,2,1)+"{down}{left}"+RIGHT$(a$,1)+"{up}"
760 PRINTb$;
770 c$="{reverse off}{left*7}{up}"
780 IF(d1=1)OR(d1=2)THENPRINT"{left}{down}{reverse on}"m$(md)" 19"MID$(STR$(yd/h+f),3,2);c$;
790 d1=d1+1
800 IFd1<=m%(md)THEN850
810 IFmd<>2THEN840
820 IFyd/4<>INT(yd/4)THEN840
830 IFd1<30THEN850
840 d1=1:md=md+1:IFmd>12THENmd=1:yd=yd+1
850 NEXT
860 PRINT"{down*2}":PRINT"physical={cyan}W{white}{space*2}emotional={yellow}Q{white}{space*2}intellectual={red}*{white}";
870 c$="up{space*5}crit{space*5}dwn"
880 PRINT"{home}{down*2}{left}";
890 FORi=1TOLEN(c$)
900 PRINTMID$(c$,i,1)"{down}{left}";
910 NEXT
920 RETURN
930 DATA31,28,31,30,31,30,31,31,30,31,30,31
940 DATA"jan","feb","mar","apr","may","jun","jul","aug","sep","oct","nov","dec"
stop tok64
(bastext 1.0)