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

LEAP'YEAR.L

FILE INFORMATION

FILENAME(S): LEAP'YEAR.L

FILE TYPE(S): SEQ

FILE SIZE: 276b

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

APPEARS ON: 2 disk(s)

FILE HASH

b21705828a11dd2bd6344de2a226e787ad93d70aae7181fa1ca55331eaae588a

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
CCS COMAL LEAP'YEAR.L SEQ hedning, Mattias H00r 25 1 DOWNLOAD FILE
CCS COMAL LEAP'YEAR.L SEQ hedning, Mattias H00r 25 1 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 46 55 4E  43 20 4C 45 41 50 27 59  |9000 FUNC LEAP'Y|
00000010: 45 41 52 28 59 45 41 52  29 20 43 4C 4F 53 45 44  |EAR(YEAR) CLOSED|
00000020: 0D 39 30 31 30 20 49 46  20 59 45 41 52 20 4D 4F  |.9010 IF YEAR MO|
00000030: 44 20 31 30 30 3D 30 20  54 48 45 4E 0D 39 30 32  |D 100=0 THEN.902|
00000040: 30 20 49 46 20 59 45 41  52 20 4D 4F 44 20 34 30  |0 IF YEAR MOD 40|
00000050: 30 3D 30 20 54 48 45 4E  0D 39 30 33 30 20 52 45  |0=0 THEN.9030 RE|
00000060: 54 55 52 4E 20 28 54 52  55 45 29 0D 39 30 34 30  |TURN (TRUE).9040|
00000070: 20 45 4C 53 45 20 0D 39  30 35 30 20 52 45 54 55  | ELSE .9050 RETU|
00000080: 52 4E 20 28 46 41 4C 53  45 29 0D 39 30 36 30 20  |RN (FALSE).9060 |
00000090: 45 4E 44 49 46 20 0D 39  30 37 30 20 45 4C 53 45  |ENDIF .9070 ELSE|
000000A0: 20 0D 39 30 38 30 20 49  46 20 59 45 41 52 20 4D  | .9080 IF YEAR M|
000000B0: 4F 44 20 34 3D 30 20 54  48 45 4E 0D 39 30 39 30  |OD 4=0 THEN.9090|
000000C0: 20 52 45 54 55 52 4E 20  28 54 52 55 45 29 0D 39  | RETURN (TRUE).9|
000000D0: 31 30 30 20 45 4C 53 45  20 0D 39 31 31 30 20 52  |100 ELSE .9110 R|
000000E0: 45 54 55 52 4E 20 28 46  41 4C 53 45 29 0D 39 31  |ETURN (FALSE).91|
000000F0: 32 30 20 45 4E 44 49 46  20 0D 39 31 33 30 20 45  |20 ENDIF .9130 E|
00000100: 4E 44 49 46 20 0D 39 31  34 30 20 45 4E 44 46 55  |NDIF .9140 ENDFU|
00000110: 4E 43 20 0D                                       |NC .            |

9000 FUNC LEAP'YEAR(YEAR) CLOSED.9010 IF
 YEAR MOD 100=0 THEN.9020 IF YEAR MOD 40
0=0 THEN.9030 RETURN (TRUE).9040 ELSE .9
050 RETURN (FALSE).9060 ENDIF .9070 ELSE
 .9080 IF YEAR MOD 4=0 THEN.9090 RETURN 
(TRUE).9100 ELSE .9110 RETURN (FALSE).91
20 ENDIF .9130 ENDIF .9140 ENDFUNC .
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL