Sharp PC-1500 Applications Manual page 178

All and more about Sharp PC-1500 at http://www.PC-1500.info
PROGRAM
TI TL E
BIORHYTHM
[ Program List ]
J0:"A":CLEAR:
INPUT "OAT£?
YEAR= "; L, "MONT
H=
01
j
M
J5:T£XT :COLOR 0
20:LPR I NT "DATE .. ;
USING '
0
tltltltltl ";
L; ", " ;
USING ''1:t
1:ttt ''
i M
30:N=0
35 :GOSUB ?00
4!0:GOSUB 600: 0: A
50: INPUT "NAME? "
;A$
6' . 0 : LPR INT "NAME ,.
jA$
?B: INPUT "BIRTH?
YEAR="; L, "MONT
H= ''; M, '' OAY='';
N
80:LPRJNT ' " BIR TH''
;USJNG .. tltltltltl"
;L;", " ;USING''
tltttt•';M;", '';
US ING "tltltl";N
90:GOSUB 600:P=A
100:A=Q-P : Q=0:P=0
JJ0:LF 2
120:COLOR 2
130:LPRINT ,. -- PH
YSICAL"
140:COLOR 3
150:LPRJN T '' -- EM
OTIONAL"
JS0:COLOR I
170:LPRINT '' -- IN
TELLEC TUAL ,.
180:LF
I
190:COLOR 0
200: LPRINT " C->
(
....
)
"
20S:GRAPH
21 0: GLCURSOR
Cl
00,
0>: SORGN
2J5:Y=l*2.5*5*C-1>
220:LINE C-100,0)-
CJ
JS, 0>
230:LINE ( 0,0>-(0,
Y>
235:LINE (J15,Yl-(
I
15,
0
>
Do not sale this PDF !!!
240:F OR Q=STO 30
ST EP S
243:R=Q
245: 1F Q=30LET
R=l
250:Y=R*2.5*< - l >*S
260 :L I NE <-90,Yl-(
J J
5 ,
y )
270:X=80
290:Z=Y+S
300:LINE <JIS,
Z>-<
x,
2 » 9
3J0: LPRJNT R
320:NEXT Q
330 :B=INT CA,23 J:B
=A- <23*B>
340:C =IN T <A,28J:C
=A-C28*C>
350:0=1 NT CA/33 >:0
=A-<33*0)
360:FOR J= J TO 3
39S:COLOR
J
400:E=0
4J0:F OR Y=0TO I
420: IF J =2LET
X=
SJN ((8+YJ,23l
360J*80
430: IF J =3LET X=
SIN <<C+Y)/28l
360>*80
440: IF J =IL ET X=
SIN <<D+YJ/33l
360ll80
450:Z=Y*<-J>l2.5l5
460: F =0
470: I F E=0LET
F=9 :
LET E=l
480:LIN E <0,P> - <X,
Z>,
F
490:0=X:P=2
S00:NEXT Y
SJ0:N£XT J
515 : TEXT : LF 5:
COLOR 0
520: ENO
600:JF M-3>=0L£T M
=M+J:GOTO 620
6J0: L=L- J :M =J 3+M
620:A=JNT <365.25l
Ll+JNT <30.6*M
)+N
625:A=A- INT (L/J00
)+INT (L/ 400)
630:RETURN
640:END
-172 -
PROGRAM NO.
P5 - E-1
700: IF M =2GOTO 790
710: IF M =4GOTO 770
720:JF M =6GOTO 770
730:JF M =9GOTO ?70
740:J F M =I JGOTO 77
0
75 0:1=3J: GO TO 900
770 :J =30:GOTO 900
790:K=INT CL/4):K=
L- Kl4
800:
IF
K=0GOTO 840
820: 1=2B: G OTO 900
840:K=I NT (L/J00J:
K=L -Kl l00
845: IF K=0GOTO 850
84/:GOTO 890
850:K=INT (L/400J:
K=L-Kl400
860: JF K=0GOTO 890
870:GO T O 820
890:1=29
900:R£ T URN
910: ENO
STATUS 1
1327
3