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

MATCH'R.L

FILE INFORMATION

FILENAME(S): MATCH'R.L

FILE TYPE(S): SEQ

FILE SIZE: 137b

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

APPEARS ON: 2 disk(s)

FILE HASH

6c81c717e5ee521e0d75c370063521024f6b505bf9995c0c927e3a3fb9f9cc5b

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
CCS COMAL MATCH'R.L SEQ hedning, Mattias H00r 25 9 DOWNLOAD FILE
CCS COMAL MATCH'R.L SEQ hedning, Mattias H00r 25 9 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 46 55 4E  43 20 4D 41 54 43 48 27  |9000 FUNC MATCH'|
00000010: 52 28 52 45 46 20 53 24  2C 4D 24 29 20 43 4C 4F  |R(REF S$,M$) CLO|
00000020: 53 45 44 0D 39 30 31 30  20 4C 3A 3D 4C 45 4E 28  |SED.9010 L:=LEN(|
00000030: 53 24 29 0D 39 30 32 30  20 49 46 20 4D 24 3D 53  |S$).9020 IF M$=S|
00000040: 24 28 4C 2D 4C 45 4E 28  4D 24 29 2B 31 3A 4C 29  |$(L-LEN(M$)+1:L)|
00000050: 20 54 48 45 4E 20 52 45  54 55 52 4E 20 54 52 55  | THEN RETURN TRU|
00000060: 45 0D 39 30 33 30 20 52  45 54 55 52 4E 20 46 41  |E.9030 RETURN FA|
00000070: 4C 53 45 0D 39 30 34 30  20 45 4E 44 46 55 4E 43  |LSE.9040 ENDFUNC|
00000080: 20 4D 41 54 43 48 27 52  0D                       | MATCH'R.       |

9000 FUNC MATCH'R(REF S$,M$) CLOSED.9010
 L:=LEN(S$).9020 IF M$=S$(L-LEN(M$)+1:L)
 THEN RETURN TRUE.9030 RETURN FALSE.9040
 ENDFUNC MATCH'R.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL