_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

DAY'OF'WEEK.L

FILE INFORMATION

FILENAME(S): DAY'OF'WEEK.L

FILE TYPE(S): SEQ

FILE SIZE: 257b

FIRST SEEN: 2025-12-01 01:48:21

APPEARS ON: 2 disk(s)

FILE HASH

cca97b1df9a30b49c35e90d25e20733565eb84cc1c157745383410f141f836d3

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
CCS COMAL DAY'OF'WEEK.L SEQ hedning, Mattias H00r 23 14 DOWNLOAD FILE
CCS COMAL DAY'OF'WEEK.L SEQ hedning, Mattias H00r 23 14 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 46 55 4E  43 20 44 41 59 27 4F 46  |9000 FUNC DAY'OF|
00000010: 27 57 45 45 4B 28 4D 4F  4E 54 48 2C 44 41 59 2C  |'WEEK(MONTH,DAY,|
00000020: 59 45 41 52 29 20 43 4C  4F 53 45 44 0D 39 30 31  |YEAR) CLOSED.901|
00000030: 30 20 49 46 20 4D 4F 4E  54 48 3C 3D 32 20 54 48  |0 IF MONTH<=2 TH|
00000040: 45 4E 0D 39 30 32 30 20  4D 4F 4E 54 48 3A 2B 31  |EN.9020 MONTH:+1|
00000050: 32 0D 39 30 33 30 20 59  45 41 52 3A 2D 31 0D 39  |2.9030 YEAR:-1.9|
00000060: 30 34 30 20 45 4E 44 49  46 20 0D 39 30 35 30 20  |040 ENDIF .9050 |
00000070: 58 3A 3D 44 41 59 2B 32  2A 4D 4F 4E 54 48 2B 49  |X:=DAY+2*MONTH+I|
00000080: 4E 54 28 2E 36 2A 28 4D  4F 4E 54 48 2B 31 29 29  |NT(.6*(MONTH+1))|
00000090: 0D 39 30 36 30 20 58 3A  2B 59 45 41 52 2B 49 4E  |.9060 X:+YEAR+IN|
000000A0: 54 28 59 45 41 52 2F 34  29 2D 49 4E 54 28 59 45  |T(YEAR/4)-INT(YE|
000000B0: 41 52 2F 31 30 30 29 2B  49 4E 54 28 59 45 41 52  |AR/100)+INT(YEAR|
000000C0: 2F 34 30 30 29 2B 31 0D  39 30 37 30 20 52 45 54  |/400)+1.9070 RET|
000000D0: 55 52 4E 20 28 49 4E 54  28 28 58 20 4D 4F 44 20  |URN (INT((X MOD |
000000E0: 37 29 2B 2E 35 29 29 0D  39 30 38 30 20 45 4E 44  |7)+.5)).9080 END|
000000F0: 46 55 4E 43 20 44 41 59  27 4F 46 27 57 45 45 4B  |FUNC DAY'OF'WEEK|
00000100: 0D                                                |.               |

9000 FUNC DAY'OF'WEEK(MONTH,DAY,YEAR) CL
OSED.9010 IF MONTH<=2 THEN.9020 MONTH:+1
2.9030 YEAR:-1.9040 ENDIF .9050 X:=DAY+2
*MONTH+INT(.6*(MONTH+1)).9060 X:+YEAR+IN
T(YEAR/4)-INT(YEAR/100)+INT(YEAR/400)+1.
9070 RETURN (INT((X MOD 7)+.5)).9080 END
FUNC DAY'OF'WEEK.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL