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

BIN'STR.L

FILE INFORMATION

FILENAME(S): BIN'STR.L

FILE TYPE(S): SEQ

FILE SIZE: 171b

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

APPEARS ON: 2 disk(s)

FILE HASH

d1ea9e810fa82e38778846a4e4f337e00c1d028d176ac541616f98a0b04593b3

FOUND ON DISKS (2 DISKS)

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

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 50 52 4F  43 20 42 49 4E 27 53 54  |9000 PROC BIN'ST|
00000010: 52 28 4E 2C 52 45 46 20  42 24 29 20 43 4C 4F 53  |R(N,REF B$) 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 32 0D 39 30 32 30  20 5A 24 3A 3D 22 30 31  |F 2.9020 Z$:="01|
00000040: 22 0D 39 30 33 30 20 42  24 3A 3D 22 22 0D 39 30  |".9030 B$:="".90|
00000050: 34 30 20 52 45 50 45 41  54 20 0D 39 30 35 30 20  |40 REPEAT .9050 |
00000060: 42 24 3A 3D 5A 24 28 28  4E 20 4D 4F 44 20 32 29  |B$:=Z$((N MOD 2)|
00000070: 2B 31 29 2B 42 24 0D 39  30 36 30 20 4E 3A 3D 4E  |+1)+B$.9060 N:=N|
00000080: 20 44 49 56 20 32 0D 39  30 37 30 20 55 4E 54 49  | DIV 2.9070 UNTI|
00000090: 4C 20 4E 3D 30 0D 39 30  38 30 20 45 4E 44 50 52  |L N=0.9080 ENDPR|
000000A0: 4F 43 20 42 49 4E 27 53  54 52 0D                 |OC BIN'STR.     |

9000 PROC BIN'STR(N,REF B$) CLOSED.9010 
DIM Z$ OF 2.9020 Z$:="01".9030 B$:="".90
40 REPEAT .9050 B$:=Z$((N MOD 2)+1)+B$.9
060 N:=N DIV 2.9070 UNTIL N=0.9080 ENDPR
OC BIN'STR.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL