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

TRANSLATE.L

FILE INFORMATION

FILENAME(S): TRANSLATE.L

FILE TYPE(S): SEQ

FILE SIZE: 205b

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

APPEARS ON: 2 disk(s)

FILE HASH

ffe06132d37f65a061ccfdcf667470f87818be6e78772e923f794141869d6a1f

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
CCS COMAL TRANSLATE.L SEQ hedning, Mattias H00r 28 0 DOWNLOAD FILE
CCS COMAL TRANSLATE.L SEQ hedning, Mattias H00r 28 0 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 50 52 4F  43 20 54 52 41 4E 53 4C  |9000 PROC TRANSL|
00000010: 41 54 45 28 52 45 46 20  41 24 2C 42 24 2C 43 24  |ATE(REF A$,B$,C$|
00000020: 29 20 43 4C 4F 53 45 44  0D 39 30 31 30 20 46 4F  |) CLOSED.9010 FO|
00000030: 52 20 43 48 41 52 3A 3D  31 20 54 4F 20 4D 49 4E  |R CHAR:=1 TO MIN|
00000040: 28 4C 45 4E 28 42 24 29  2C 4C 45 4E 28 43 24 29  |(LEN(B$),LEN(C$)|
00000050: 29 20 44 4F 0D 39 30 32  30 20 57 48 49 4C 45 20  |) DO.9020 WHILE |
00000060: 28 42 24 28 43 48 41 52  29 20 49 4E 20 41 24 29  |(B$(CHAR) IN A$)|
00000070: 20 44 4F 0D 39 30 33 30  20 41 24 28 42 24 28 43  | DO.9030 A$(B$(C|
00000080: 48 41 52 29 20 49 4E 20  41 24 29 3A 3D 43 24 28  |HAR) IN A$):=C$(|
00000090: 43 48 41 52 29 0D 39 30  34 30 20 45 4E 44 57 48  |CHAR).9040 ENDWH|
000000A0: 49 4C 45 20 0D 39 30 35  30 20 45 4E 44 46 4F 52  |ILE .9050 ENDFOR|
000000B0: 20 43 48 41 52 0D 39 30  36 30 20 45 4E 44 50 52  | CHAR.9060 ENDPR|
000000C0: 4F 43 20 54 52 41 4E 53  4C 41 54 45 0D           |OC TRANSLATE.   |

9000 PROC TRANSLATE(REF A$,B$,C$) CLOSED
.9010 FOR CHAR:=1 TO MIN(LEN(B$),LEN(C$)
) DO.9020 WHILE (B$(CHAR) IN A$) DO.9030
 A$(B$(CHAR) IN A$):=C$(CHAR).9040 ENDWH
ILE .9050 ENDFOR CHAR.9060 ENDPROC TRANS
LATE.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL