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

SCREEN POKE

FILE INFORMATION

FILENAME(S): SCREEN POKE

FILE TYPE(S): PRG

FILE SIZE: 357b

FIRST SEEN: 2025-11-30 21:15:31

APPEARS ON: 2 disk(s)

FILE HASH

6ec7f2e1b20c5ed8f3200c4273c89517d4242b4335b1699dd1928c837ab0808f

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
FORTH 64 1 SCREEN POKE PRG DuncanTwain 22 0 DOWNLOAD FILE
C64 SPEL 98 1 SCREEN POKE PRG DuncanTwain 16 8 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 18 08 0A 00 8F 20  4F 52 47 3B 31 35 35 30  |....... ORG;1550|
00000010: 30 2C 32 30 30 30 30 3A  00 27 08 0F 00 8F 20 4C  |0,20000:.'.... L|
00000020: 41 42 45 4C 3B 45 3A 00  3A 08 14 00 8F 20 44 56  |ABEL;E:.:.... DV|
00000030: 41 52 3B 58 2C 31 30 32  34 3A 00 49 08 1E 00 8F  |AR;X,1024:.I....|
00000040: 20 4C 41 42 45 4C 3B 41  3A 00 5D 08 28 00 8F 20  | LABEL;A:.].(.. |
00000050: 52 41 4E 44 3B 41 2C 32  35 35 2C 30 3A 00 6C 08  |RAND;A,255,0:.l.|
00000060: 32 00 8F 20 4D 45 4D 3B  58 2C 41 3A 00 7B 08 3C  |2.. MEM;X,A:.{.<|
00000070: 00 8F 20 41 44 44 3B 58  2C 31 3A 00 8F 08 46 00  |.. ADD;X,1:...F.|
00000080: 8F 20 4C 49 4D 3B 58 2C  32 30 32 34 2C 42 3A 00  |. LIM;X,2024,B:.|
00000090: 9D 08 50 00 8F 20 4A 55  4D 50 3B 41 3A 00 AC 08  |..P.. JUMP;A:...|
000000A0: 5A 00 8F 20 4C 41 42 45  4C 3B 42 3A 00 C0 08 64  |Z.. LABEL;B:...d|
000000B0: 00 8F 20 44 56 41 52 3B  59 2C 35 35 32 39 36 3A  |.. DVAR;Y,55296:|
000000C0: 00 CF 08 6E 00 8F 20 4C  41 42 45 4C 3B 43 3A 00  |...n.. LABEL;C:.|
000000D0: E2 08 78 00 8F 20 52 41  4E 44 3B 41 2C 31 35 2C  |..x.. RAND;A,15,|
000000E0: 30 3A 00 F1 08 82 00 8F  20 4D 45 4D 3B 59 2C 41  |0:...... MEM;Y,A|
000000F0: 3A 00 00 09 8C 00 8F 20  41 44 44 3B 59 2C 31 3A  |:...... ADD;Y,1:|
00000100: 00 15 09 96 00 8F 20 4C  49 4D 3B 59 2C 35 36 32  |...... LIM;Y,562|
00000110: 39 35 2C 44 3A 00 23 09  A0 00 8F 20 4A 55 4D 50  |95,D:.#.... JUMP|
00000120: 3B 43 3A 00 32 09 AA 00  8F 20 4C 41 42 45 4C 3B  |;C:.2.... LABEL;|
00000130: 44 3A 00 3F 09 C8 00 8F  20 47 45 54 3B 4B 3A 00  |D:.?.... GET;K:.|
00000140: 56 09 D2 00 8F 20 54 45  53 54 3B 4B 2C 36 35 2C  |V.... TEST;K,65,|
00000150: 32 34 30 2C 45 3A 00 62  09 0F 27 8F 20 45 58 49  |240,E:.b..'. EXI|
00000160: 54 3B 00 00 00                                    |T;...           |

....... ORG;15500,20000:.'.... LABEL;E:.
:.... DVAR;X,1024:.I.... LABEL;A:.].(.. 
RAND;A,255,0:.L.2.. MEM;X,A:.{.<.. ADD;X
,1:...F.. LIM;X,2024,B:...P.. JUMP;A:...
Z.. LABEL;B:...D.. DVAR;Y,55296:.O.N.. L
ABEL;C:...X.. RAND;A,15,0:...... MEM;Y,A
:...... ADD;Y,1:...... LIM;Y,56295,D:.#.
 .. JUMP;C:.2.... LABEL;D:.?.H.. GET;K:.
V.R.. TEST;K,65,240,E:.B..'. EXIT;...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL