Sharp CE-125 - Page 69

l 5- 2
s: " A 0 : CLEAR : DEG R E~ : .J- :; ;n;;)J ~60: G= SIN ( (K +E ) / ~~t ~ : ~ . 0 1; i.:1 ' · !
. · · · · -" . ' . : , . L P R!N l ~ - ? - , ": v • > ,., . , " Y ' " ) " ) : P$=. K ' ': m : ~ sµ _ B _;: 9 ~~ 3 7: '. ;(!
.:) ,; . J i 0 - ' : ' I . N P " uf - ~ ' N AME~ ~ · ; nt. :·.: ; j' ~ · , ·· ;; 1; , ' 2 70: G= SIN ( ( K -1 f ) I 3 ~ * . ;;:6. , 0
· · · " - · . .. . · ' • r. o ~uB 900
20: LPRINT '' . ~ ~~ - E: , n ) ~ J; ; : -~ " ; y ) : Pf =; W .. . , : :;; . . " : . •. i .. ,. i I:::J:1
30: INP U T "D A~ T , O f , i; B ~ ~ T H " ~) " 290: LPRINT B$ ( 0 ) ' ,: US.;tt-l q
:YEAR="HI$, ''MO N TH="; ' ' tt:tt:tt",K
v , • D A Y=·;w 3 0 0:NE X T K + G
35: F$= STR$ I/: G$= STRS 310: LP ~I - NLBS . (. t . ) .. . __ -- - -- --· -I
W 3 2 0 ~ ENg ~ 2
40: LPRINT VDATE OF BIRT s 00:: r= · ~ VAL U$ · , :· : :
H :" : L PR I N T " • ;u 560 f IF '. V ) =3 ' LET Q=T: ~=V:+
s;•,•;Fs;•,• ; G$ ~ l:S=W ~ GOTO 58 1 ~
50: G O S U B 500: B= X 570fQ=T-t=R= B +V · fS- =W ·- - - :> - :
60: INPUT "DESIRED: VEAR= ss0:.:- 1 x = 1 Hl'T (36 S . 25 * Q)+ ~ - .
• ; u$ , " M O NTH= "; V: W =0 T INT ( J0. 6 *R> • S-122 ::
6 5: F$= STR$ v 590f : x = x - t-N f: ' ( Q /~ 00)+ -
7 0:L PRINT " DE SI RED V E A R : · rn lf (Q: i 400 ) ' · · · '
,MONTH: " : LPRINT • 6 00 ~ RE1UR A - - ·- - - +- - - · - J -- - - :
, , ; us; . '. ; F S 70 0:'IF ' ' T 0' 4 * I · NT + ( J/ 4 )
75:LPRINT • • S [ E l y2 0: RE iURA
80: GO S UB 5 00 : A = X 7 1 0 f IF . T < >f 00 • I N~ ( T / 1 0
100: C =A-B . :.. 0 ) ; · LE T '/ =1: ~ E T U RN
11 0 :G O S U B 70 0 72 0 fI F ; T 0 4 00>ii - lN T .. ( ' T / · 40- · :
120 : GOSUB 8 00 . : 1 0 )
7 LET
Y=0 : 1 : ·:' RE T URN
1 3 0: D = C- I N T ( C / 23 ) * 2 3 7 30iY = I : RET O R N ~ 2
14 0 :E=C- I NT ( C / 2 8 ) *2 8 8 0 0 ~1 F : c v=4 j +( V=6 ) + ( V =9 )
15 0: F =C- I NT ( C / 3 3 ) • 3 3 ~ ' ( Q =lt j =1 LET z ~3 ~ : . •
16 0:DI M B$ ( 2> • 21 B R E t URN · - - - - - ~- - -· · J -· -
170 :B$ (1 ) = 'I- --- - ----+ - - 81 0i l F " V=2 LET z~2 s+v: ~
-- -- - --I ' ' ~ : R E T URN .
1 80: B $(2 ) = " I + 82 0 i2 = i t: J RETURN ~ ~~
I . .. 9 00 : · N =il+ . : rnr ( 8 ~ · A B S G ) :
20 0: LPR IH T '' 0 i:' ! ~ : ; m -1 - 1 j · - . .. + - · - · - · . :: :-- · - · - · ·
+ ' ' 9 10: ! B$ ( 0)= ) LEFH : ·{ B$ ( 0 )'
2 10 : L P RI NT B S < 1 ) ~ R-l> +PS+ ~ RI GH T i < BS <
2 15:FOR K = l T O 2 8 ~ ) 1 21-N) J ~ 2
22 0: L = 0 : I F K= 5 • I N T (K/ 92 0~ ~E f URN \J ~
5) LET L= l E - · · · · : · - - -- 1 - - .. --· -· · --- ·
2 30:IF L =l LET B$ (0 ) = .B$( . . . .... . _ _ , . __ · · · ..
1) : G O TO 250 9 5 7
2 40:B $(0 ) =B$ ( 2 )
250:G= SIN (( K +D ) / 23 * 360
) : Ps = • s•: G OSU B 90 0
PROGRAM LIST
promsoft.com