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

PUT'CHAR.L

FILE INFORMATION

FILENAME(S): PUT'CHAR.L

FILE TYPE(S): SEQ

FILE SIZE: 126b

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

APPEARS ON: 3 disk(s)

FILE HASH

c5bda9f7340c4db10544de21ccd3b7fa05bbb0a87341c32eff9c176071e958aa

FOUND ON DISKS (3 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
CCS COMAL PUT'CHAR.L SEQ hedning, Mattias H00r 9 3 DOWNLOAD FILE
CCS COMAL PUT'CHAR.L SEQ hedning, Mattias H00r 9 3 DOWNLOAD FILE
COMAL A PUT'CHAR.L SEQ hedning, Helsinborg 9 3 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 50 52 4F  43 20 50 55 54 27 43 48  |9000 PROC PUT'CH|
00000010: 41 52 28 58 2C 59 2C 43  48 41 52 29 20 43 4C 4F  |AR(X,Y,CHAR) CLO|
00000020: 53 45 44 0D 39 30 31 30  20 50 4F 4B 45 20 31 30  |SED.9010 POKE 10|
00000030: 32 34 2B 28 58 2D 31 29  2B 28 59 2D 31 29 2A 34  |24+(X-1)+(Y-1)*4|
00000040: 30 2C 43 48 41 52 0D 39  30 32 30 20 50 4F 4B 45  |0,CHAR.9020 POKE|
00000050: 20 35 35 32 39 36 2B 28  58 2D 31 29 2B 28 59 2D  | 55296+(X-1)+(Y-|
00000060: 31 29 2A 34 30 2C 30 0D  39 30 33 30 20 45 4E 44  |1)*40,0.9030 END|
00000070: 50 52 4F 43 20 50 55 54  27 43 48 41 52 0D        |PROC PUT'CHAR.  |

9000 PROC PUT'CHAR(X,Y,CHAR) CLOSED.9010
 POKE 1024+(X-1)+(Y-1)*40,CHAR.9020 POKE
 55296+(X-1)+(Y-1)*40,0.9030 ENDPROC PUT
'CHAR.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL