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

SHUFFLE'STR.L

FILE INFORMATION

FILENAME(S): SHUFFLE'STR.L

FILE TYPE(S): SEQ

FILE SIZE: 151b

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

APPEARS ON: 2 disk(s)

FILE HASH

b79e43b785d947d2114538be8a70d400b80e70db71c113a06322f921e418e0c8

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
CCS COMAL SHUFFLE'STR.L SEQ hedning, Mattias H00r 8 2 DOWNLOAD FILE
CCS COMAL SHUFFLE'STR.L SEQ hedning, Mattias H00r 8 2 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 27 53 54 52 28 52 45  46 20 41 24 28 29 2C 4D  |E'STR(REF A$(),M|
00000020: 2C 4E 29 20 43 4C 4F 53  45 44 0D 39 30 31 30 20  |,N) CLOSED.9010 |
00000030: 44 49 4D 20 54 24 20 4F  46 20 4D 41 58 4C 45 4E  |DIM T$ OF MAXLEN|
00000040: 28 41 24 28 4D 29 29 0D  39 30 32 30 20 46 4F 52  |(A$(M)).9020 FOR|
00000050: 20 49 3A 3D 4D 20 54 4F  20 4E 20 44 4F 20 53 57  | I:=M TO N DO SW|
00000060: 41 50 27 53 54 52 28 41  24 28 49 29 2C 41 24 28  |AP'STR(A$(I),A$(|
00000070: 52 4E 44 28 4D 2C 4E 29  29 2C 54 24 29 0D 39 30  |RND(M,N)),T$).90|
00000080: 33 30 20 45 4E 44 50 52  4F 43 20 53 48 55 46 46  |30 ENDPROC SHUFF|
00000090: 4C 45 27 53 54 52 0D                              |LE'STR.         |

9000 PROC SHUFFLE'STR(REF A$(),M,N) CLOS
ED.9010 DIM T$ OF MAXLEN(A$(M)).9020 FOR
 I:=M TO N DO SWAP'STR(A$(I),A$(RND(M,N)
),T$).9030 ENDPROC SHUFFLE'STR.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL