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

LIGHTPEN.L

FILE INFORMATION

FILENAME(S): LIGHTPEN.L

FILE TYPE(S): SEQ

FILE SIZE: 170b

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

APPEARS ON: 2 disk(s)

FILE HASH

9fb392d78c0d5672a3960dd598d8d3d8ce4fb42c82ae18e5b74dcf74249d86ce

FOUND ON DISKS (2 DISKS)

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

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 50 52 4F  43 20 4C 49 47 48 54 50  |9000 PROC LIGHTP|
00000010: 45 4E 28 52 45 46 20 58  2C 52 45 46 20 59 29 20  |EN(REF X,REF Y) |
00000020: 43 4C 4F 53 45 44 0D 39  30 33 30 20 52 45 50 45  |CLOSED.9030 REPE|
00000030: 41 54 20 0D 39 30 34 30  20 58 3A 3D 50 45 45 4B  |AT .9040 X:=PEEK|
00000040: 28 35 33 32 36 37 29 2A  32 2D 37 32 0D 39 30 35  |(53267)*2-72.905|
00000050: 30 20 59 3A 3D 32 34 36  2D 50 45 45 4B 28 35 33  |0 Y:=246-PEEK(53|
00000060: 32 36 38 29 0D 39 30 36  30 20 55 4E 54 49 4C 20  |268).9060 UNTIL |
00000070: 58 3C 3D 33 32 30 20 41  4E 44 20 58 3E 3D 30 20  |X<=320 AND X>=0 |
00000080: 41 4E 44 20 59 3C 3D 31  39 39 20 41 4E 44 20 59  |AND Y<=199 AND Y|
00000090: 3E 3D 30 0D 39 30 37 30  20 45 4E 44 50 52 4F 43  |>=0.9070 ENDPROC|
000000A0: 20 4C 49 47 48 54 50 45  4E 0D                    | LIGHTPEN.      |

9000 PROC LIGHTPEN(REF X,REF Y) CLOSED.9
030 REPEAT .9040 X:=PEEK(53267)*2-72.905
0 Y:=246-PEEK(53268).9060 UNTIL X<=320 A
ND X>=0 AND Y<=199 AND Y>=0.9070 ENDPROC
 LIGHTPEN.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL