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

REPLACE'CHAR.L

FILE INFORMATION

FILENAME(S): REPLACE'CHAR.L

FILE TYPE(S): SEQ

FILE SIZE: 136b

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

APPEARS ON: 2 disk(s)

FILE HASH

62184b15cc1ab74635dce73a32c39cabcb2d05692e01a1409119e2f286ba9cbd

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
CCS COMAL REPLACE'CHAR.L SEQ hedning, Mattias H00r 9 13 DOWNLOAD FILE
CCS COMAL REPLACE'CHAR.L SEQ hedning, Mattias H00r 9 13 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 50 52 4F  43 20 52 45 50 4C 41 43  |9000 PROC REPLAC|
00000010: 45 27 43 48 41 52 28 52  45 46 20 41 24 2C 42 24  |E'CHAR(REF A$,B$|
00000020: 2C 43 24 29 20 0D 39 30  31 30 20 49 46 20 42 24  |,C$) .9010 IF B$|
00000030: 3C 3E 43 24 20 54 48 45  4E 0D 39 30 32 30 20 57  |<>C$ THEN.9020 W|
00000040: 48 49 4C 45 20 42 24 20  49 4E 20 41 24 20 44 4F  |HILE B$ IN A$ DO|
00000050: 20 41 24 28 42 24 20 49  4E 20 41 24 29 3A 3D 43  | A$(B$ IN A$):=C|
00000060: 24 0D 39 30 33 30 20 45  4E 44 49 46 20 0D 39 30  |$.9030 ENDIF .90|
00000070: 34 30 20 45 4E 44 50 52  4F 43 20 52 45 50 4C 41  |40 ENDPROC REPLA|
00000080: 43 45 27 43 48 41 52 0D                           |CE'CHAR.        |

9000 PROC REPLACE'CHAR(REF A$,B$,C$) .90
10 IF B$<>C$ THEN.9020 WHILE B$ IN A$ DO
 A$(B$ IN A$):=C$.9030 ENDIF .9040 ENDPR
OC REPLACE'CHAR.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL