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

INKEY.L

FILE INFORMATION

FILENAME(S): INKEY.L

FILE TYPE(S): SEQ

FILE SIZE: 146b

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

APPEARS ON: 2 disk(s)

FILE HASH

f9aa9a95f0323fd230d51ef35a0f7b5115de9bad2305bde016656461eb5c672e

FOUND ON DISKS (2 DISKS)

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

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 50 52 4F  43 20 49 4E 4B 45 59 28  |9000 PROC INKEY(|
00000010: 52 45 46 20 43 48 41 52  24 29 20 43 4C 4F 53 45  |REF CHAR$) CLOSE|
00000020: 44 0D 39 30 31 30 20 50  4F 4B 45 20 32 30 34 2C  |D.9010 POKE 204,|
00000030: 30 0D 39 30 32 30 20 52  45 50 45 41 54 20 0D 39  |0.9020 REPEAT .9|
00000040: 30 33 30 20 43 48 41 52  24 3A 3D 43 48 52 24 28  |030 CHAR$:=CHR$(|
00000050: 47 45 54 29 0D 39 30 34  30 20 55 4E 54 49 4C 20  |GET).9040 UNTIL |
00000060: 43 48 41 52 24 3C 3E 43  48 52 24 28 30 29 0D 39  |CHAR$<>CHR$(0).9|
00000070: 30 35 30 20 50 4F 4B 45  20 32 30 34 2C 31 0D 39  |050 POKE 204,1.9|
00000080: 30 36 30 20 45 4E 44 50  52 4F 43 20 49 4E 4B 45  |060 ENDPROC INKE|
00000090: 59 0D                                             |Y.              |

9000 PROC INKEY(REF CHAR$) CLOSED.9010 P
OKE 204,0.9020 REPEAT .9030 CHAR$:=CHR$(
GET).9040 UNTIL CHAR$<>CHR$(0).9050 POKE
 204,1.9060 ENDPROC INKEY.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL