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

RANDOMIZE1.L

FILE INFORMATION

FILENAME(S): RANDOMIZE1.L

FILE TYPE(S): SEQ

FILE SIZE: 146b

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

APPEARS ON: 3 disk(s)

FILE HASH

55970b68004822f6d008119261d5018b1c0265a6ac7d89ffae591ebbb93ec753

FOUND ON DISKS (3 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
CCS COMAL RANDOMIZE1.L SEQ hedning, Mattias H00r 9 7 DOWNLOAD FILE
CCS COMAL RANDOMIZE1.L SEQ hedning, Mattias H00r 9 7 DOWNLOAD FILE
COMAL A RANDOMIZE1.L SEQ hedning, Helsinborg 9 7 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 50 52 4F  43 20 52 41 4E 44 4F 4D  |9000 PROC RANDOM|
00000010: 49 5A 45 28 4E 29 20 43  4C 4F 53 45 44 0D 39 30  |IZE(N) CLOSED.90|
00000020: 31 30 20 4E 3A 3D 41 42  53 28 4E 29 0D 39 30 32  |10 N:=ABS(N).902|
00000030: 30 20 49 46 20 4E 3D 30  20 54 48 45 4E 20 4E 3A  |0 IF N=0 THEN N:|
00000040: 3D 32 35 36 2A 32 35 36  2A 50 45 45 4B 28 31 36  |=256*256*PEEK(16|
00000050: 30 29 2B 32 35 36 2A 50  45 45 4B 28 31 36 31 29  |0)+256*PEEK(161)|
00000060: 2B 50 45 45 4B 28 31 36  32 29 0D 39 30 33 30 20  |+PEEK(162).9030 |
00000070: 4E 3A 3D 52 4E 44 28 2D  4E 29 0D 39 30 34 30 20  |N:=RND(-N).9040 |
00000080: 45 4E 44 50 52 4F 43 20  52 41 4E 44 4F 4D 49 5A  |ENDPROC RANDOMIZ|
00000090: 45 0D                                             |E.              |

9000 PROC RANDOMIZE(N) CLOSED.9010 N:=AB
S(N).9020 IF N=0 THEN N:=256*256*PEEK(16
0)+256*PEEK(161)+PEEK(162).9030 N:=RND(-
N).9040 ENDPROC RANDOMIZE.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL