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

SHUFFLE.L

FILE INFORMATION

FILENAME(S): SHUFFLE.L

FILE TYPE(S): SEQ

FILE SIZE: 104b

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

APPEARS ON: 2 disk(s)

FILE HASH

9b5e5cad7df47bd3e11b881d39b6ed4b8f61a1f1e249054e24fee568e9d53499

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
CCS COMAL SHUFFLE.L SEQ hedning, Mattias H00r 8 3 DOWNLOAD FILE
CCS COMAL SHUFFLE.L SEQ hedning, Mattias H00r 8 3 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 50 52 4F  43 20 53 48 55 46 46 4C  |9000 PROC SHUFFL|
00000010: 45 28 52 45 46 20 41 28  29 2C 4D 2C 4E 29 20 43  |E(REF A(),M,N) C|
00000020: 4C 4F 53 45 44 0D 39 30  31 30 20 46 4F 52 20 49  |LOSED.9010 FOR I|
00000030: 3A 3D 4D 20 54 4F 20 4E  20 44 4F 20 53 57 41 50  |:=M TO N DO SWAP|
00000040: 28 41 28 49 29 2C 41 28  52 4E 44 28 4D 2C 4E 29  |(A(I),A(RND(M,N)|
00000050: 29 29 0D 39 30 32 30 20  45 4E 44 50 52 4F 43 20  |)).9020 ENDPROC |
00000060: 53 48 55 46 46 4C 45 0D                           |SHUFFLE.        |

9000 PROC SHUFFLE(REF A(),M,N) CLOSED.90
10 FOR I:=M TO N DO SWAP(A(I),A(RND(M,N)
)).9020 ENDPROC SHUFFLE.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL