Biorhythms 227
410 NEXT
420 LOCATE 1,1:PRINT CHR$(24):"BIORHYTHM FOR	";CHR$(24)
430 FOR X=1 TO 600:NEXT
440 PEN 2:LOCATE 6,10:PRINT"PRESS A KEY TO RESTARTu:PEN 1
450 IF INKEY4==u" THEN 450 ELSE 50
460 PRINT STRING$(32,32)
470 C=20
480 PEN 2:LOCATE 1,1:PRINT"DIVISIONS=DAY S":PEN 1:FOR X=1 TO 1000:NEXT
490 FOR X=1 TO 70
500 PLOT C*X,1:DRAWR 0,167*2,3
510 NEXT
520 PEN 2:LOCATE 19,1:PRINT MID$(STR$(D1 ),2);"/";MIDS(STRS(M1),2);"/";MIDS(STRS( Y1),2);"+":PEN 1
530 RETURN
540 REM
550 SOUND 1,220,4:SOUND 1,180,4:SOUND 1, 90,4:SOUND 1,220,4:SOUND 1,180,4:SOUND 1 ,90,4:SOUND 1,220,4:SOUND 1,180,4:SOUND 1,90,4:SOUND 1,220,4:SOUND 1,180,4:SOUND
1,90,4:SOUND 1,220,4:SOUND 1,180,4:SOUN D 1,90,4:SOUND 1,220,4:SOUND 1,180,4:SOU ND 1,90,4
560 RETURN
570 RESTORE:DIM M(11)
580 FOR X=1 TO 11:READ N:M(X)=N:NEXT
590 DATA 31,49,90,120,151,181,212,243,27 3,304,334
600 RETURN