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

HEX'STR.L

FILE INFORMATION

FILENAME(S): HEX'STR.L

FILE TYPE(S): SEQ

FILE SIZE: 188b

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

APPEARS ON: 3 disk(s)

FILE HASH

48877966b11ee142659271eed14f5670d95fd3255f0d91a5af3b492def50573c

FOUND ON DISKS (3 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
CCS COMAL HEX'STR.L SEQ hedning, Mattias H00r 24 18 DOWNLOAD FILE
CCS COMAL HEX'STR.L SEQ hedning, Mattias H00r 24 18 DOWNLOAD FILE
COMAL A HEX'STR.L SEQ hedning, Helsinborg 24 18 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 50 52 4F  43 20 48 45 58 27 53 54  |9000 PROC HEX'ST|
00000010: 52 28 4E 2C 52 45 46 20  48 24 29 20 43 4C 4F 53  |R(N,REF H$) CLOS|
00000020: 45 44 0D 39 30 31 30 20  44 49 4D 20 5A 24 20 4F  |ED.9010 DIM Z$ O|
00000030: 46 20 31 36 0D 39 30 32  30 20 5A 24 3A 3D 22 30  |F 16.9020 Z$:="0|
00000040: 31 32 33 34 35 36 37 38  39 41 42 43 44 45 46 22  |123456789ABCDEF"|
00000050: 0D 39 30 33 30 20 48 24  3A 3D 22 22 0D 39 30 34  |.9030 H$:="".904|
00000060: 30 20 52 45 50 45 41 54  20 0D 39 30 35 30 20 48  |0 REPEAT .9050 H|
00000070: 24 3A 3D 5A 24 28 28 4E  20 4D 4F 44 20 31 36 29  |$:=Z$((N MOD 16)|
00000080: 2B 31 29 2B 48 24 0D 39  30 36 30 20 4E 3A 3D 4E  |+1)+H$.9060 N:=N|
00000090: 20 44 49 56 20 31 36 0D  39 30 37 30 20 55 4E 54  | DIV 16.9070 UNT|
000000A0: 49 4C 20 4E 3D 30 0D 39  30 38 30 20 45 4E 44 50  |IL N=0.9080 ENDP|
000000B0: 52 4F 43 20 48 45 58 27  53 54 52 0D              |ROC HEX'STR.    |

9000 PROC HEX'STR(N,REF H$) CLOSED.9010 
DIM Z$ OF 16.9020 Z$:="0123456789ABCDEF"
.9030 H$:="".9040 REPEAT .9050 H$:=Z$((N
 MOD 16)+1)+H$.9060 N:=N DIV 16.9070 UNT
IL N=0.9080 ENDPROC HEX'STR.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL