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

GET.L

FILE INFORMATION

FILENAME(S): GET.L

FILE TYPE(S): SEQ

FILE SIZE: 163b

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

APPEARS ON: 2 disk(s)

FILE HASH

b08b23e3c23ba085dc9397ed031ce988f22e715c174ca0b09bee7b4fd2ea7a55

FOUND ON DISKS (2 DISKS)

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

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 46 55 4E  43 20 47 45 54 20 43 4C  |9000 FUNC GET CL|
00000010: 4F 53 45 44 0D 39 30 31  30 20 43 48 41 52 4E 4F  |OSED.9010 CHARNO|
00000020: 3A 3D 50 45 45 4B 28 31  39 38 29 0D 39 30 32 30  |:=PEEK(198).9020|
00000030: 20 49 46 20 43 48 41 52  4E 4F 20 54 48 45 4E 0D  | IF CHARNO THEN.|
00000040: 39 30 33 30 20 50 4F 4B  45 20 31 39 38 2C 30 0D  |9030 POKE 198,0.|
00000050: 39 30 34 30 20 52 45 54  55 52 4E 20 50 45 45 4B  |9040 RETURN PEEK|
00000060: 28 36 33 30 2B 43 48 41  52 4E 4F 29 0D 39 30 35  |(630+CHARNO).905|
00000070: 30 20 45 4C 53 45 20 0D  39 30 36 30 20 52 45 54  |0 ELSE .9060 RET|
00000080: 55 52 4E 20 30 0D 39 30  37 30 20 45 4E 44 49 46  |URN 0.9070 ENDIF|
00000090: 20 0D 39 30 38 30 20 45  4E 44 46 55 4E 43 20 47  | .9080 ENDFUNC G|
000000A0: 45 54 0D                                          |ET.             |

9000 FUNC GET CLOSED.9010 CHARNO:=PEEK(1
98).9020 IF CHARNO THEN.9030 POKE 198,0.
9040 RETURN PEEK(630+CHARNO).9050 ELSE .
9060 RETURN 0.9070 ENDIF .9080 ENDFUNC G
ET.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL