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

MAXLEN.L

FILE INFORMATION

FILENAME(S): MAXLEN.L

FILE TYPE(S): SEQ

FILE SIZE: 178b

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

APPEARS ON: 2 disk(s)

FILE HASH

16cf74f5adf132965d08b628d39691579b054a5ded67b5b49753e19e8800eeda

FOUND ON DISKS (2 DISKS)

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

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 46 55 4E  43 20 4D 41 58 4C 45 4E  |9000 FUNC MAXLEN|
00000010: 28 52 45 46 20 58 24 29  20 43 4C 4F 53 45 44 0D  |(REF X$) CLOSED.|
00000020: 39 30 31 30 20 41 3A 3D  4C 45 4E 28 58 24 29 0D  |9010 A:=LEN(X$).|
00000030: 39 30 32 30 20 52 45 50  45 41 54 20 0D 39 30 33  |9020 REPEAT .903|
00000040: 30 20 42 3A 3D 4C 45 4E  28 58 24 29 0D 39 30 34  |0 B:=LEN(X$).904|
00000050: 30 20 58 24 3A 3D 58 24  2B 22 20 20 20 20 20 20  |0 X$:=X$+"      |
00000060: 20 20 20 20 22 0D 39 30  35 30 20 55 4E 54 49 4C  |    ".9050 UNTIL|
00000070: 20 28 4C 45 4E 28 58 24  29 3D 42 29 0D 39 30 36  | (LEN(X$)=B).906|
00000080: 30 20 58 24 3A 3D 58 24  28 31 3A 41 29 0D 39 30  |0 X$:=X$(1:A).90|
00000090: 37 30 20 52 45 54 55 52  4E 20 28 42 29 0D 39 30  |70 RETURN (B).90|
000000A0: 38 30 20 45 4E 44 46 55  4E 43 20 4D 41 58 4C 45  |80 ENDFUNC MAXLE|
000000B0: 4E 0D                                             |N.              |

9000 FUNC MAXLEN(REF X$) CLOSED.9010 A:=
LEN(X$).9020 REPEAT .9030 B:=LEN(X$).904
0 X$:=X$+"          ".9050 UNTIL (LEN(X$
)=B).9060 X$:=X$(1:A).9070 RETURN (B).90
80 ENDFUNC MAXLEN.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL