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

BIN.L

FILE INFORMATION

FILENAME(S): BIN.L

FILE TYPE(S): SEQ

FILE SIZE: 116b

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

APPEARS ON: 2 disk(s)

FILE HASH

0cf820fd4e6834ceeaa7ec4d56ca5233e12b110c159d4892a0fe40238e76f29a

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
CCS COMAL BIN.L SEQ hedning, Mattias H00r 22 6 DOWNLOAD FILE
CCS COMAL BIN.L SEQ hedning, Mattias H00r 22 6 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 46 55 4E  43 20 42 49 4E 28 41 24  |9000 FUNC BIN(A$|
00000010: 29 20 43 4C 4F 53 45 44  0D 39 30 32 30 20 4E 3A  |) CLOSED.9020 N:|
00000020: 3D 30 0D 39 30 33 30 20  46 4F 52 20 49 3A 3D 31  |=0.9030 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 32 2B 28 41  24 28 49 29 20 49 4E 20  |:=N*2+(A$(I) IN |
00000050: 22 31 22 29 0D 39 30 34  30 20 52 45 54 55 52 4E  |"1").9040 RETURN|
00000060: 20 4E 0D 39 30 35 30 20  45 4E 44 46 55 4E 43 20  | N.9050 ENDFUNC |
00000070: 42 49 4E 0D                                       |BIN.            |

9000 FUNC BIN(A$) CLOSED.9020 N:=0.9030 
FOR I:=1 TO LEN(A$) DO N:=N*2+(A$(I) IN 
"1").9040 RETURN N.9050 ENDFUNC BIN.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL