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

LWRC.L

FILE INFORMATION

FILENAME(S): LWRC.L

FILE TYPE(S): SEQ

FILE SIZE: 159b

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

APPEARS ON: 2 disk(s)

FILE HASH

ee93cf9f5b48b4354ecd289f44efadeebca5a8bbdf7c6616e5b3700ebe51aadd

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
CCS COMAL LWRC.L SEQ hedning, Mattias H00r 25 7 DOWNLOAD FILE
CCS COMAL LWRC.L SEQ hedning, Mattias H00r 25 7 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 50 52 4F  43 20 4C 57 52 43 28 52  |9000 PROC LWRC(R|
00000010: 45 46 20 41 24 29 20 43  4C 4F 53 45 44 0D 39 30  |EF A$) CLOSED.90|
00000020: 31 30 20 46 4F 52 20 49  3A 3D 31 20 54 4F 20 4C  |10 FOR I:=1 TO L|
00000030: 45 4E 28 41 24 29 20 44  4F 0D 39 30 32 30 20 4E  |EN(A$) DO.9020 N|
00000040: 3A 3D 4F 52 44 28 41 24  28 49 29 29 0D 39 30 33  |:=ORD(A$(I)).903|
00000050: 30 20 49 46 20 4E 3E 3D  31 39 33 20 41 4E 44 20  |0 IF N>=193 AND |
00000060: 4E 3C 3D 32 31 38 20 54  48 45 4E 20 41 24 28 49  |N<=218 THEN A$(I|
00000070: 29 3A 3D 43 48 52 24 28  4E 2D 31 32 38 29 0D 39  |):=CHR$(N-128).9|
00000080: 30 34 30 20 45 4E 44 46  4F 52 20 49 0D 39 30 35  |040 ENDFOR I.905|
00000090: 30 20 45 4E 44 50 52 4F  43 20 4C 57 52 43 0D     |0 ENDPROC LWRC. |

9000 PROC LWRC(REF A$) CLOSED.9010 FOR I
:=1 TO LEN(A$) DO.9020 N:=ORD(A$(I)).903
0 IF N>=193 AND N<=218 THEN A$(I):=CHR$(
N-128).9040 ENDFOR I.9050 ENDPROC LWRC.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL