4 replies to this topic

[sometimes99er]

DAY OF WEEK

Tweaked an old one ...

100 CALL CLEAR::CALL SCREEN(12)::FOR N=0 TO 6::READ N$(N)::NEXT N
110 FOR N=0 TO 13::READ C,C$::CALL CHAR(C,C$)::NEXT N
120 INPUT "DATE (D,M,Y): ":D,M,Y
130 Y=Y+INT((M-2)/12)::M=M-12*INT((M-2)/12)
140 N=D+(2*M)+INT((6*(M+1))/10)+Y+INT(Y/4)-INT(Y/100)+INT(Y/400)+1
150 N=N-INT(N/7)*7::PRINT "THAT'S A ";N$(N);"DAY": : ::GOTO 120
160 DATA SUN,MON,TUES,WEDNES,THURS,FRI,SATUR
170 DATA 39,0030301,40,00183060606030180030180C0C0C183000C66C38FE386CC6,44,000000000030306
180 DATA 48,007CEEEEEEEEEE7C0018387838383838007CFEEE0E3C70FE007CEEEE1CEEEE7C
190 DATA 52,00040C1C3C5CFE1C00FEE0E0FC0EEE7C007CEEE0FCEEEE7C00FEEE0E1C383838
200 DATA 56,007CEEEE7CEEEE7C007CEEEE7E0EEE7C0000303000303,65,007CEEEEEEFEEEEE
210 DATA 68,00FCEEEEEEEEEEFC00FEE0E0FCE0E0FE00FEE0E0FCE0E0E
220 DATA 71,007EE0E0EEEEEE7E00EEEEEEFEEEEEEE007C38383838387C
230 DATA 77,0082C6EEFEEEEEEE008ECEEEFEEEE6E2007CEEEEEEEEEE7C,80,00FCEEEEEEFCE0E
240 DATA 82,00FCEEEEEEFCECE6007CEEE07C0EEE7C00FE38383838383800EEEEEEEEEEEE7C
250 DATA 87,00EEEEFEFEFEEEC6,89,00EEEEEE7C383838
RUN

Edited by sometimes99er, Thu Sep 1, 2011 1:25 PM.

[TEXAS_JOE]

Excellent!

I wish I could code like you guys ......

[sometimes99er]

DAYS BETWEEN DATES

100 CALL CLEAR::CALL SCREEN(15)::PRINT "DAYS BETWEEN DATES": :
110 N=1::GOSUB 130::N=2::GOSUB 130
120 PRINT "THERE ARE";ABS(J(1)-J(2));"DAYS BETWEEN": : ::GOTO 110
130 PRINT "DATE";N;::INPUT "(D,M,Y): ":D,M,Y
140 A=INT((14-M)/12)::B=Y+4800-A::C=M+12*A-3
150 J(N)=D+INT((153*C+2)/5)+365*B+INT(B/4)-INT(B/100)+INT(B/400)-32045::RETURN
RUN

[rocky007]

i remember it was one of my biggest problem to solve for my first biorythm program.

Edited by rocky007, Thu Sep 1, 2011 2:47 PM.

[sometimes99er]

rocky007, on Thu Sep 1, 2011 2:46 PM, said:

i remember it was one of my biggest problem to solve for my first biorythm program.

Ah man, you read my mind. I only did the above for merging no. of day with the charts ...