HEX.L

FILE INFORMATION

FILENAME(S): HEX.L

FILE TYPE(S): SEQ

FILE SIZE: 131b

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

APPEARS ON: 3 disk(s)

FILE HASH

544dd53dc51eb93c1b967edb0ca420e1aa516a0e92a3af0763882c934eb17447

FOUND ON DISKS (3 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
CCS COMAL	HEX.L	SEQ	hedning, Mattias H00r	11	2	DOWNLOAD FILE
CCS COMAL	HEX.L	SEQ	hedning, Mattias H00r	11	2	DOWNLOAD FILE
COMAL A	HEX.L	SEQ	hedning, Helsinborg	11	2	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 46 55 4E  43 20 48 45 58 28 41 24  |9000 FUNC HEX(A$|
00000010: 29 20 43 4C 4F 53 45 44  0D 39 30 31 30 20 4E 3A  |) CLOSED.9010 N:|
00000020: 3D 30 0D 39 30 32 30 20  46 4F 52 20 49 3A 3D 31  |=0.9020 FOR I:=1|
00000030: 20 54 4F 20 4C 45 4E 28  41 24 29 20 44 4F 20 4E  | TO LEN(A$) DO N|
00000040: 3A 3D 4E 2A 31 36 2B 28  41 24 28 49 29 20 49 4E  |:=N*16+(A$(I) IN|
00000050: 20 22 31 32 33 34 35 36  37 38 39 41 42 43 44 45  | "123456789ABCDE|
00000060: 46 22 29 0D 39 30 33 30  20 52 45 54 55 52 4E 20  |F").9030 RETURN |
00000070: 4E 0D 39 30 34 30 20 45  4E 44 46 55 4E 43 20 48  |N.9040 ENDFUNC H|
00000080: 45 58 0D                                          |EX.             |

9000 FUNC HEX(A$) CLOSED.9010 N:=0.9020 
FOR I:=1 TO LEN(A$) DO N:=N*16+(A$(I) IN
 "123456789ABCDEF").9030 RETURN N.9040 E
NDFUNC HEX.

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL