Sharp PC-1500 Anwenderhandbuch Seite 178

1@:
15:
20:
30:
35:
40:
3G:
6G:
78:
88:
38:
180:
118:
128:
13@:
14@:;
158:
168:
176:
180:
198:
288:
265:
214:
215:
220:
530:
235:
PROGRAMMNAMWE:
[ Programmlisting ]
"A" CLEAR :
INPUT "DATUM?
JAHR ="3L; "MO
NAT ="35M
TEXT : COLOR @
LPRINT "DATUM"
s;USING "###HHH"
3L35°; "; USING "
HHE'GM
N=
GOSUB 720
GOSUB 698: 0=A
INPUT "NAME? "
3 AS
LPRINT "NAME "
3A$
INPUT "GEBURT?
JAHR ="5L; "MO
NAT ="3M; "TAG
LPRINT ""GEBURT
">LPRINT "
"SUSING "##H#H
#"5L35";, ";USING
UPPH' GS M5 " ma
USING HH EN
GOSUB 68@6:P=A
A=Q0-P: 0=8: P=
LF 2
COLOR 2
LPRINT " -- PH
YSISCH"
COLOR 3
LPRINT " -~ EM
OTIONAL"
COLOR }
LPRINT " -- IN
TELLEKTUELL"
LF l
COLOR 2
LPRINT " ¢-)
(+)
GRAPH
GLCURSOR (1994,
.8):SQRGN
Ya IX2.SkS*(-1)
LINE (-198@, @)-
(115,02
LINE (@, @)-<a,
Y)
LINE (115, ¥)~-<
115, @)
BIORHYTHMUS
-24@:FOR Q=5TO 328.
STEP 5
243:R=Q ©
24S: 1F Q=3@LET R=] |
250: Y=R¥2.5K(-1)45
| 268:LINE ¢-98, Y)-¢'
115; Y2
Scns
298: 2=VY+5
320: CINE C115;2)~ ¢
% 29,9
316: LPRINT. R
320:NEXT Q
338: B=INT ¢€A/723):B
=A-(23XB>
340: C=INT ac 2e)G
'360:FOR J=ITO 32 -.
395:COLOR J
48@:F=g
—41@:FOR Y=6TO 1
428:1F J=2LET x=.
SIN ¢(Bt+Y)723x
3608)x89@
43Q:1F J=3LET x=
"SIN ((€C+Y)728x
368>x*82a
440: IF
J=i1LET
x=
SIN ¢¢D+Y)733x
' 368>x8e .
458: 2=Y*C-1)x2. S¥S
460: F=8
470: 1F E=@LET F=9:
LET E=1
489:LINE
0; P)- (K,
st 2),F
' 498:0=X:PsZ_
5@@:NEXT Y
DIB:NEXT J
315: TEXT :LF 5:
: COLOR @
320: END
=M+1: GOTO. 620
61@:LS=L-1:M=134+M |
626:A=INT (365. 25x
LO+INT (¢38. 6M
2+N
625: A=A-INT (L 7188
J+INT (L748) -
6380:RETURN - ~
> END
— 172 —
PROGRAMMN-NR.
P5—E-—1
749: 1F M=2G0TO 798
718: 1F M=4GO0OTO 778
724: 1F M=6GOTO 77a
738: 1F M=9GOQTO 77¢@
740: 1F M=11G0OTO 77
8
754: 1=31:GOTO 99a
770: 1=38:GOTO Jae
798: K=INT (L744): K=
L-K*4
849: 1F K=@8G0TO 840
828: [=28:GOTO 989
840: K=INT ¢(L710@):
K=L-KkK108
845: 1F K=@G0TO 858
847:GOTO 898
85@:K=INT (L/74@8):
K=L-K*480
B60: IF K=@GOTO 89a
878: GOTO 828
838: l=29
986: RETURN
919: END
STATUS |!
1347