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

UPRC.L

FILE INFORMATION

FILENAME(S): UPRC.L

FILE TYPE(S): SEQ

FILE SIZE: 157b

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

APPEARS ON: 2 disk(s)

FILE HASH

020f488182dc28c122f2b931270c735dbb4197b75e1ce931c3524ca95e44ef19

FOUND ON DISKS (2 DISKS)

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

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 50 52 4F  43 20 55 50 52 43 28 52  |9000 PROC UPRC(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  36 35 20 41 4E 44 20 4E  |0 IF N>=65 AND N|
00000060: 3C 3D 39 30 20 54 48 45  4E 20 41 24 28 49 29 3A  |<=90 THEN A$(I):|
00000070: 3D 43 48 52 24 28 4E 2B  31 32 38 29 0D 39 30 34  |=CHR$(N+128).904|
00000080: 30 20 45 4E 44 46 4F 52  20 49 0D 39 30 35 30 20  |0 ENDFOR I.9050 |
00000090: 45 4E 44 50 52 4F 43 20  55 50 52 43 0D           |ENDPROC UPRC.   |

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

> CLICK IMAGE PREVIEW FOR FULL MODAL