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

CURSOR.L

FILE INFORMATION

FILENAME(S): CURSOR.L

FILE TYPE(S): SEQ

FILE SIZE: 149b

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

APPEARS ON: 2 disk(s)

FILE HASH

701f13cfc234a0c9ac54405140eefcfd43b46f95f14fc5e4904c98945a88ed74

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
CCS COMAL CURSOR.L SEQ hedning, Mattias H00r 23 9 DOWNLOAD FILE
CCS COMAL CURSOR.L SEQ hedning, Mattias H00r 23 9 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 50 52 4F  43 20 43 55 52 53 4F 52  |9000 PROC CURSOR|
00000010: 28 4C 2C 50 29 20 0D 39  30 31 30 20 50 4F 4B 45  |(L,P) .9010 POKE|
00000020: 20 32 31 34 2C 4C 2D 31  0D 39 30 32 30 20 4C 3A  | 214,L-1.9020 L:|
00000030: 3D 31 30 32 34 2B 28 4C  2D 31 29 2A 34 30 0D 39  |=1024+(L-1)*40.9|
00000040: 30 33 30 20 50 4F 4B 45  20 32 30 39 2C 4C 20 4D  |030 POKE 209,L M|
00000050: 4F 44 20 32 35 36 0D 39  30 34 30 20 50 4F 4B 45  |OD 256.9040 POKE|
00000060: 20 32 31 30 2C 4C 20 44  49 56 20 32 35 36 0D 39  | 210,L DIV 256.9|
00000070: 30 35 30 20 50 4F 4B 45  20 32 31 31 2C 50 2D 31  |050 POKE 211,P-1|
00000080: 0D 39 30 36 30 20 45 4E  44 50 52 4F 43 20 43 55  |.9060 ENDPROC CU|
00000090: 52 53 4F 52 0D                                    |RSOR.           |

9000 PROC CURSOR(L,P) .9010 POKE 214,L-1
.9020 L:=1024+(L-1)*40.9030 POKE 209,L M
OD 256.9040 POKE 210,L DIV 256.9050 POKE
 211,P-1.9060 ENDPROC CURSOR.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL