Publicité
LISTE DU PROGRAMME
10: REM ****************
20: REM NO. 0F DAYS CALC
30: RE 1 ****************
40: "A": CLEAR : CLS :
HAIT 0: USING :A=0:
GOTO 50
45: "B": CLEAR : CLS :
NAIT 0: USING :A=1
50: PRINT "** NO. 0F DAY
3 CALC. **
v
69:BEEP 1
80: CURSOR 0, 1: PRINT "S
TART
Y=" « ".
1*1='' ?
"
n —
v
D =
35: IF A=l CURSOR 0,2:
PRINT ••'DAYS
": GOTO 95
90: CURSOR 0»2: PRINT "T
ARGET Y = "! "
11=*;
"
D
=
v
95: CURSOR 0,3: PRINT "
"
97: IF C=l THEN 130
100:CURSÙR 9» i: INPUT R:
GOTO 120
110: CLS : END
120: CURSOR 16,1: INPUT S
130: CURSOR 21 i l : INPUT T
140: CURSOR 0,3: PRINT "
150: CURSOR 13,3: INPUT "
0 K ( Y • • • ' N ) ? '' ! F '$
160: IF F*="N
tf
THEN 80
165: IF FIO'Y" GOTO 150
190: CURSOR 16,2: INPUT V
200: CURSOR 21,2: INPUT U
210: CURSOR 13,3: INPUT "
OK<Y/N>?
V
;F$
228: IF F$="H" LET C=l:
GOTO 85
225: IF FtO'Y" THEN 210
230: CURSOR 0,3: PRINT "
PLEASE WAIT ! !
(
235: IF A=l THEN 400
240:H=R:G=S:l=T: GOSUE 3
00: J=I:H=U:G=V:!=M:
GOSUB 300:X=I-J
250:BEEP 1: CURSOR 8,3:
PRINT
M
260: CURSOR 0,3: PRINT "N
0. 0F DAYS = >"!
USING "t5ttï8
v
!X
270: CURSOR 20.3: INPUT *
230: USING :i>Q: GOTO 80
300: IF G-3>=0 LET G=G+1:
GOTO 320
310:G=G+13îH=H-l
320:1= INT (365.25*H)+
INT (30.6*G)+l:l=I-
INT (H/100)* INT (H/
400)-428: RETURN
400:H=R:G=S:I=T: GOSUB 6
00: J=fii+X! G=l ! 1=0
410:H=H+i: GOSUB 600
420: IF J>Q THEN 410
430:H=H-1
440:G=G+l: GOSUB 600
4 70: CURSOR 9,3: FRIHT ".
ARGET Y=" ! ' • '
1*1=''
n =
U
475: CURSOR 9,3: PRINT H
CURSOR 16,3: PRINT
: CURSOR 21,3:
PRINT I
430: CURSOR 21,2: INPUT
" ! Y.
490: GOTO 80
690: IF G-3>=0 LET 0=G+1
P=H: GOTO 620
610:0=G+13:P=H-1
T
G
• • •
•
620 :Q= INT (365.25*P>+
INT (30.6*0)+I:Q=Q-
INT (P/100)+ INT (P/
40Ï-423: RETURN
1244 octets
199:CURSOR 9»2: INPUT U
139:IF A=l LET X=U:
GOTO 210
450:IF J>Q THEN 440
460:G=G-l: GOSUB 600:I=J
-Q:H=H-B: BEEP i:
CURSOR 0,3:
PRINT
v
249
Publicité
