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

YCOR.L

FILE INFORMATION

FILENAME(S): YCOR.L

FILE TYPE(S): SEQ

FILE SIZE: 242b

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

APPEARS ON: 2 disk(s)

FILE HASH

5129433ef6a5654ea5c7ab628e75914e0ba495c19e91d93ef1edcff06b8e0a0e

FOUND ON DISKS (2 DISKS)

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

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 46 55 4E  43 20 59 43 4F 52 20 43  |9000 FUNC YCOR C|
00000010: 4C 4F 53 45 44 0D 39 30  31 30 20 48 49 23 3A 3D  |LOSED.9010 HI#:=|
00000020: 50 45 45 4B 28 32 37 32  35 39 29 0D 39 30 32 30  |PEEK(27259).9020|
00000030: 20 4C 4F 23 3A 3D 50 45  45 4B 28 32 37 32 36 30  | LO#:=PEEK(27260|
00000040: 29 0D 39 30 33 30 20 49  46 20 48 49 23 3E 31 32  |).9030 IF HI#>12|
00000050: 38 20 4F 52 20 28 48 49  23 3D 31 32 38 20 41 4E  |8 OR (HI#=128 AN|
00000060: 44 20 4C 4F 23 3E 31 39  39 29 20 54 48 45 4E 0D  |D LO#>199) THEN.|
00000070: 39 30 34 30 20 52 45 54  55 52 4E 20 32 35 36 2A  |9040 RETURN 256*|
00000080: 28 32 35 36 2D 48 49 23  29 2B 31 39 39 2D 4C 4F  |(256-HI#)+199-LO|
00000090: 23 0D 39 30 35 30 20 45  4C 49 46 20 48 49 23 3C  |#.9050 ELIF HI#<|
000000A0: 3D 31 32 38 20 54 48 45  4E 0D 39 30 36 30 20 52  |=128 THEN.9060 R|
000000B0: 45 54 55 52 4E 20 28 32  35 36 2A 28 32 35 36 2D  |ETURN (256*(256-|
000000C0: 48 49 23 29 2D 4C 4F 23  2B 31 39 39 29 2D 36 35  |HI#)-LO#+199)-65|
000000D0: 35 33 36 0D 39 30 37 30  20 45 4E 44 49 46 20 0D  |536.9070 ENDIF .|
000000E0: 39 30 38 30 20 45 4E 44  46 55 4E 43 20 59 43 4F  |9080 ENDFUNC YCO|
000000F0: 52 0D                                             |R.              |

9000 FUNC YCOR CLOSED.9010 HI#:=PEEK(272
59).9020 LO#:=PEEK(27260).9030 IF HI#>12
8 OR (HI#=128 AND LO#>199) THEN.9040 RET
URN 256*(256-HI#)+199-LO#.9050 ELIF HI#<
=128 THEN.9060 RETURN (256*(256-HI#)-LO#
+199)-65536.9070 ENDIF .9080 ENDFUNC YCO
R.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL