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

DATE.L

FILE INFORMATION

FILENAME(S): DATE.L

FILE TYPE(S): SEQ

FILE SIZE: 350b

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

APPEARS ON: 2 disk(s)

FILE HASH

d52556543936d49b9a4f19d45e8279430fce23ea22fd5d9e75801299f4bce671

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
CCS COMAL DATE.L SEQ hedning, Mattias H00r 23 10 DOWNLOAD FILE
CCS COMAL DATE.L SEQ hedning, Mattias H00r 23 10 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 50 52 4F  43 20 44 41 54 45 28 44  |9000 PROC DATE(D|
00000010: 4F 59 2C 59 45 41 52 2C  52 45 46 20 4D 4F 4E 54  |OY,YEAR,REF MONT|
00000020: 48 2C 52 45 46 20 44 41  59 29 20 43 4C 4F 53 45  |H,REF DAY) CLOSE|
00000030: 44 0D 39 30 31 30 20 49  46 20 44 4F 59 3C 3D 33  |D.9010 IF DOY<=3|
00000040: 31 20 54 48 45 4E 0D 39  30 32 30 20 4D 4F 4E 54  |1 THEN.9020 MONT|
00000050: 48 3A 3D 31 0D 39 30 33  30 20 44 41 59 3A 3D 44  |H:=1.9030 DAY:=D|
00000060: 4F 59 0D 39 30 34 30 20  45 4C 49 46 20 44 4F 59  |OY.9040 ELIF DOY|
00000070: 3C 3D 35 39 2B 4C 45 41  50 27 59 45 41 52 28 59  |<=59+LEAP'YEAR(Y|
00000080: 45 41 52 29 20 54 48 45  4E 0D 39 30 35 30 20 4D  |EAR) THEN.9050 M|
00000090: 4F 4E 54 48 3A 3D 32 0D  39 30 36 30 20 44 41 59  |ONTH:=2.9060 DAY|
000000A0: 3A 3D 44 4F 59 2D 33 31  0D 39 30 37 30 20 45 4C  |:=DOY-31.9070 EL|
000000B0: 53 45 20 0D 39 30 38 30  20 49 46 20 4E 4F 54 20  |SE .9080 IF NOT |
000000C0: 4C 45 41 50 27 59 45 41  52 28 59 45 41 52 29 20  |LEAP'YEAR(YEAR) |
000000D0: 54 48 45 4E 0D 39 30 39  30 20 44 4F 59 3A 2B 31  |THEN.9090 DOY:+1|
000000E0: 0D 39 31 30 30 20 45 4E  44 49 46 20 0D 39 31 31  |.9100 ENDIF .911|
000000F0: 30 20 4D 4F 4E 54 48 3A  3D 49 4E 54 28 28 44 4F  |0 MONTH:=INT((DO|
00000100: 59 2B 33 31 2E 33 39 29  2F 33 30 2E 36 31 29 0D  |Y+31.39)/30.61).|
00000110: 39 31 32 30 20 44 41 59  3A 3D 44 4F 59 2B 32 2D  |9120 DAY:=DOY+2-|
00000120: 28 4D 4F 4E 54 48 2D 31  29 2A 33 30 2D 49 4E 54  |(MONTH-1)*30-INT|
00000130: 28 28 4D 4F 4E 54 48 2B  31 29 2A 2E 36 31 29 0D  |((MONTH+1)*.61).|
00000140: 39 31 33 30 20 45 4E 44  49 46 20 0D 39 31 34 30  |9130 ENDIF .9140|
00000150: 20 45 4E 44 50 52 4F 43  20 44 41 54 45 0D        | ENDPROC DATE.  |

9000 PROC DATE(DOY,YEAR,REF MONTH,REF DA
Y) CLOSED.9010 IF DOY<=31 THEN.9020 MONT
H:=1.9030 DAY:=DOY.9040 ELIF DOY<=59+LEA
P'YEAR(YEAR) THEN.9050 MONTH:=2.9060 DAY
:=DOY-31.9070 ELSE .9080 IF NOT LEAP'YEA
R(YEAR) THEN.9090 DOY:+1.9100 ENDIF .911
0 MONTH:=INT((DOY+31.39)/30.61).9120 DAY
:=DOY+2-(MONTH-1)*30-INT((MONTH+1)*.61).
9130 ENDIF .9140 ENDPROC DATE.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL