Sharp PC-1500 - Page 178

A ll and more about Sharp PC-1500 at http://www.PC-1500.info
PROGRAM
TI TL E
BIORHYTHM
[ P rogram List ]
J 0:"A":C L EAR:
IN PUT "OAT£?
YEAR= "; L, " MO NT
H=
01
j M
J5:T£XT :COLOR 0
20:LPR INT "DATE .. ;
USING '
0
tltltltltl ";
L; ", "; USING '' 1:t
1:ttt '' i M
30:N=0
35 :G OSUB ?0 0
4!0:GOSUB 600:0: A
50: INPUT "NAM E? "
;A$
6 '. 0: L PR INT "NAME ,.
jA$
?B: INPUT "BIRTH?
Y EAR = "; L, "MONT
H=' '; M, ''OAY=''; N
80:LPRJNT '" BIR TH''
;USJNG .. tltltltltl"
;L;", " ;USING''
tltttt•';M;", ' ';
US IN G "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:CO LO R 3
150 :L P RJN T '' -- EM
OTIONAL"
JS0:COLOR I
170:LPRINT
'' -- IN
TELLEC TU AL ,.
180:LF I
190:COLOR 0
200: L PRINT " 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: L PRJNT 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:F OR J= J TO 3
39S:COL OR 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=ILET X=
SIN <<D+YJ/33l
360ll8 0
450:Z=Y*<-J>l2.5l5
460: F =0
470: IF 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 :
TE XT : 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:E ND
-1 72 -
PROGRAM NO.
P5 - E-1
700: IF M =2GOTO 790
71 0: IF M=4 GOTO 770
720:JF M =6GOTO 770
7 30:J F M =9GOTO ?70
7 40:J F M=I JGOT O 77
0
75 0:1=3J: GO TO 900
770 :J =30:GOTO 900
790:K = INT C L/ 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= 0GOT O 850
84/:GOTO 890
850:K=INT (L/400J:
K=L-K l400
860: JF K=0G OTO 890
87 0:GO TO 820
890:1=29
900:R £TU RN
910: E NO
STA T US 1
1327
3