SHUFFLE

FILE INFORMATION

FILENAME(S): SHUFFLE

FILE TYPE(S): PRG

FILE SIZE: 1.4K

FIRST SEEN: 2025-11-30 21:12:51

APPEARS ON: 1 disk(s)

FILE HASH

f971b05727d5d3a137c4e6c6418f08825ccbd8d168e79a2ac64c46cdaa3c977f

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
TRANSACTOR DISK	SHUFFLE	PRG	DuncanTwain	25	1	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 1E 08 40 1F 8F 20  2A 2A 53 48 55 46 46 4C  |....@.. **SHUFFL|
00000010: 45 20 53 55 42 52 4F 55  54 49 4E 45 2A 2A 00 31  |E SUBROUTINE**.1|
00000020: 08 4A 1F 8F 20 20 20 20  20 20 38 2F 32 37 2F 38  |.J..      8/27/8|
00000030: 36 00 4C 08 54 1F 8F 20  2A 2A 44 49 4D 45 4E 53  |6.L.T.. **DIMENS|
00000040: 49 4F 4E 20 41 52 52 41  59 53 2A 2A 00 76 08 5E  |ION ARRAYS**.v.^|
00000050: 1F 86 20 43 25 28 35 32  29 2C 43 31 28 32 36 29  |.. C%(52),C1(26)|
00000060: 2C 43 32 28 32 36 29 3A  8F 20 28 30 29 20 4E 4F  |,C2(26):. (0) NO|
00000070: 54 20 55 53 45 44 00 8E  08 68 1F 99 22 12 48 49  |T USED...h..".HI|
00000080: 54 20 46 31 20 54 4F 20  53 54 41 52 54 22 00 C6  |T F1 TO START"..|
00000090: 08 72 1F 8B 20 C2 28 31  39 37 29 B3 B1 34 20 A7  |.r.. .(197)..4 .|
000000A0: 20 38 30 35 30 3A 20 8F  20 54 49 4D 45 20 49 53  | 8050: . TIME IS|
000000B0: 20 50 41 52 54 20 4F 46  20 52 41 4E 44 4F 4D 20  | PART OF RANDOM |
000000C0: 46 41 43 54 4F 52 00 DC  08 7C 1F 8F 20 53 45 54  |FACTOR...|.. SET|
000000D0: 20 55 50 20 54 48 45 20  44 45 43 4B 00 03 09 86  | UP THE DECK....|
000000E0: 1F 81 58 B2 31 A4 35 32  3A 43 25 28 58 29 B2 58  |..X.1.52:C%(X).X|
000000F0: 3A 82 3A 81 4D 4D B2 31  A4 31 30 3A 8D 38 31 33  |:.:.MM.1.10:.813|
00000100: 30 3A 82 00 39 09 90 1F  58 B2 BB 28 AB 54 49 29  |0:..9...X..(.TI)|
00000110: 3A 8F 20 45 4E 54 45 52  20 48 45 52 45 20 46 4F  |:. ENTER HERE FO|
00000120: 52 20 41 4C 4C 20 53 55  42 53 45 51 55 45 4E 54  |R ALL SUBSEQUENT|
00000130: 20 53 48 55 46 46 4C 45  53 00 73 09 9A 1F 53 48  | SHUFFLES.s...SH|
00000140: B2 B5 28 31 30 AC BB 28  58 29 AA 31 29 AA 32 3A  |..(10..(X).1).2:|
00000150: 20 8F 20 43 48 41 4E 47  45 20 54 48 45 20 27 31  | . CHANGE THE '1|
00000160: 30 27 20 54 4F 20 53 55  49 54 20 59 4F 55 52 53  |0' TO SUIT YOURS|
00000170: 45 4C 46 00 A2 09 A4 1F  81 4D 4D B2 31 A4 53 48  |ELF......MM.1.SH|
00000180: 3A 8D 38 31 33 30 3A 44  B2 30 3A 20 8F 20 53 48  |:.8130:D.0: . SH|
00000190: 55 46 46 4C 45 20 52 41  4E 44 4F 4D 20 54 49 4D  |UFFLE RANDOM TIM|
000001A0: 45 53 00 A8 09 AE 1F 82  00 C5 09 B8 1F 80 3A 20  |ES............: |
000001B0: 52 45 50 4C 41 43 45 20  54 48 49 53 20 57 49 54  |REPLACE THIS WIT|
000001C0: 48 20 27 8E 27 00 DE 09  C2 1F 8F 20 2A 2A 41 20  |H '.'...... **A |
000001D0: 52 45 41 4C 20 53 48 55  46 46 4C 45 2A 2A 00 FA  |REAL SHUFFLE**..|
000001E0: 09 CC 1F 43 B2 30 3A 43  41 B2 30 3A 43 42 B2 30  |...C.0:CA.0:CB.0|
000001F0: 3A 43 43 B2 30 3A 43 44  B2 30 00 1A 0A D6 1F 99  |:CC.0:CD.0......|
00000200: 22 2E 2E 2E 53 48 55 46  46 4C 45 2E 2E 2E 2E 53  |"...SHUFFLE....S|
00000210: 48 55 46 46 4C 45 2E 2E  2E 22 00 59 0A E0 1F 81  |HUFFLE...".Y....|
00000220: 49 B2 31 A4 32 36 3A 43  31 28 49 29 B2 43 25 28  |I.1.26:C1(I).C%(|
00000230: 49 29 3A 43 32 28 49 29  B2 43 25 28 49 AA 32 36  |I):C2(I).C%(I.26|
00000240: 29 3A 82 3A 8F 20 53 50  4C 49 54 20 44 45 43 4B  |):.:. SPLIT DECK|
00000250: 20 49 4E 54 4F 20 54 57  4F 00 76 0A EA 1F 8D 38  | INTO TWO.v....8|
00000260: 34 30 30 3A 8D 38 32 35  30 3A 8B 43 42 B1 B2 32  |400:.8250:.CB..2|
00000270: 36 A7 38 33 36 30 00 C2  0A EB 1F 8F 20 44 45 41  |6.8360...... DEA|
00000280: 4C 20 31 53 54 20 43 41  52 44 20 46 52 4F 4D 20  |L 1ST CARD FROM |
00000290: 52 49 47 48 54 20 50 41  43 4B 45 54 20 53 4F 20  |RIGHT PACKET SO |
000002A0: 31 53 54 20 43 41 52 44  20 43 48 41 4E 47 45 53  |1ST CARD CHANGES|
000002B0: 20 28 4A 55 53 54 20 4C  49 4B 45 20 52 45 41 4C  | (JUST LIKE REAL|
000002C0: 21 29 00 DF 0A F4 1F 8D  38 34 30 30 3A 8D 38 32  |!)......8400:.82|
000002D0: 30 30 3A 8B 43 41 B1 B2  32 36 A7 38 33 30 30 00  |00:.CA..26.8300.|
000002E0: E9 0A FE 1F 89 38 31 37  30 00 0F 0B 08 20 8F 20  |.....8170.... . |
000002F0: 2A 2A 52 49 46 46 4C 45  20 43 41 52 44 53 20 46  |**RIFFLE CARDS F|
00000300: 52 4F 4D 20 4C 45 46 54  20 48 41 4C 46 2A 2A 00  |ROM LEFT HALF**.|
00000310: 2F 0B 12 20 81 43 B2 31  A4 52 3A 43 41 B2 43 41  |/.. .C.1.R:CA.CA|
00000320: AA 31 3A 8B 43 41 B1 32  36 A7 43 B2 37 3A 8E 00  |.1:.CA.26.C.7:..|
00000330: 3B 0B 1C 20 43 44 B2 43  44 AA 31 00 4D 0B 26 20  |;.. CD.CD.1.M.& |
00000340: 43 25 28 43 44 29 B2 43  31 28 43 41 29 00 55 0B  |C%(CD).C1(CA).U.|
00000350: 30 20 82 3A 8E 00 7B 0B  3A 20 8F 2A 2A 52 49 46  |0 .:..{.: .**RIF|
00000360: 46 4C 45 20 43 41 52 44  53 20 46 52 4F 4D 20 52  |FLE CARDS FROM R|
00000370: 49 47 48 54 20 48 41 4C  46 2A 2A 00 9B 0B 44 20  |IGHT HALF**...D |
00000380: 81 43 B2 31 A4 52 3A 43  42 B2 43 42 AA 31 3A 8B  |.C.1.R:CB.CB.1:.|
00000390: 43 42 B1 32 36 A7 43 B2  35 3A 8E 00 A7 0B 4E 20  |CB.26.C.5:....N |
000003A0: 43 44 B2 43 44 AA 31 00  BB 0B 58 20 43 25 28 43  |CD.CD.1...X C%(C|
000003B0: 44 29 B2 43 32 28 43 42  29 3A 82 00 C1 0B 62 20  |D).C2(CB):....b |
000003C0: 8E 00 E3 0B 6C 20 8F 20  2A 2A 53 48 55 46 46 4C  |....l . **SHUFFL|
000003D0: 45 20 42 41 4C 41 4E 43  45 20 4F 46 20 4C 45 46  |E BALANCE OF LEF|
000003E0: 54 2A 2A 00 01 0C 76 20  81 43 B2 43 42 A4 32 36  |T**...v .C.CB.26|
000003F0: 3A 43 42 B2 43 42 AA 31  3A 8B 43 42 B1 32 36 A7  |:CB.CB.1:.CB.26.|
00000400: 8E 00 0D 0C 80 20 43 44  B2 43 44 AA 31 00 21 0C  |..... CD.CD.1.!.|
00000410: 8A 20 43 25 28 43 44 29  B2 43 32 28 43 42 29 3A  |. C%(CD).C2(CB):|
00000420: 82 00 27 0C 94 20 8E 00  4A 0C 9E 20 8F 20 2A 2A  |..'.. ..J.. . **|
00000430: 53 48 55 46 46 4C 45 20  42 41 4C 41 4E 43 45 20  |SHUFFLE BALANCE |
00000440: 4F 46 20 52 49 47 48 54  2A 2A 00 68 0C A8 20 81  |OF RIGHT**.h.. .|
00000450: 43 B2 43 41 A4 32 36 3A  43 41 B2 43 41 AA 31 3A  |C.CA.26:CA.CA.1:|
00000460: 8B 43 41 B1 32 36 A7 8E  00 74 0C B2 20 43 44 B2  |.CA.26...t.. CD.|
00000470: 43 44 AA 31 00 88 0C BC  20 43 25 28 43 44 29 B2  |CD.1.... C%(CD).|
00000480: 43 31 28 43 41 29 3A 82  00 8E 0C C6 20 8E 00 9B  |C1(CA):..... ...|
00000490: 0C D0 20 58 B2 BB 28 AB  54 49 29 00 AA 0C DA 20  |.. X..(.TI).... |
000004A0: 52 B2 34 AC BB 28 58 29  AA 31 00 B0 0C E4 20 8E  |R.4..(X).1.... .|
000004B0: 00 F7 0C 28 23 8F 20 2A  2A 2A 54 48 49 53 20 49  |...(#. ***THIS I|
000004C0: 53 20 46 4F 52 20 59 4F  55 20 54 4F 20 56 45 52  |S FOR YOU TO VER|
000004D0: 49 46 59 20 20 20 54 48  45 52 45 20 49 53 20 4F  |IFY   THERE IS O|
000004E0: 4E 45 20 41 4E 44 20 4F  4E 4C 59 20 4F 4E 45 20  |NE AND ONLY ONE |
000004F0: 4F 46 20 45 41 43 48 00  3A 0D 32 23 8F 20 4E 55  |OF EACH.:.2#. NU|
00000500: 4D 42 45 52 20 49 4E 20  54 48 45 20 41 52 52 41  |MBER IN THE ARRA|
00000510: 59 20 20 43 25 28 58 29  2E 20 20 20 20 55 53 45  |Y  C%(X).    USE|
00000520: 20 27 47 4F 54 4F 20 39  30 30 30 27 20 41 4E 44  | 'GOTO 9000' AND|
00000530: 20 4E 4F 54 45 20 54 48  41 54 00 6A 0D 3C 23 8F  | NOTE THAT.j.<#.|
00000540: 20 45 41 43 48 20 4C 45  46 54 20 48 41 4E 44 20  | EACH LEFT HAND |
00000550: 4E 55 4D 42 45 52 20 4F  43 43 55 52 53 20 20 20  |NUMBER OCCURS   |
00000560: 4F 4E 43 45 20 4F 4E 4C  59 2E 00 8F 0D 46 23 81  |ONCE ONLY....F#.|
00000570: 58 B2 31 A4 35 36 3A 81  4A 4A B2 31 A4 35 32 3A  |X.1.56:.JJ.1.52:|
00000580: 8B 43 25 28 4A 4A 29 B2  58 A7 99 58 3B 4A 4A 00  |.C%(JJ).X..X;JJ.|
00000590: 99 0D 50 23 82 3A 82 3A  80 00 00 00              |..P#.:.:....    |

....@.. **SHUFFLE SUBROUTINE**.1.J..    
  8/27/86.L.T.. **DIMENSION ARRAYS**.V.^
.. C%(52),C1(26),C2(26):. (0) NOT USED..
.H..".HIT F1 TO START".F.R.. B(197)..4 .
 8050: . TIME IS PART OF RANDOM FACTOR..
.|.. SET UP THE DECK......X.1.52:C%(X).X
:.:.MM.1.10:.8130:..9...X..(.TI):. ENTER
 HERE FOR ALL SUBSEQUENT SHUFFLES.S...SH
..(10..(X).1).2: . CHANGE THE '10' TO SU
IT YOURSELF......MM.1.SH:.8130:D.0: . SH
UFFLE RANDOM TIMES.......E....: REPLACE 
THIS WITH '.'...B.. **A REAL SHUFFLE**..
.L.C.0:CA.0:CB.0:CC.0:CD.0...V.."...SHUF
FLE....SHUFFLE...".Y....I.1.26:C1(I).C%(
I):C2(I).C%(I.26):.:. SPLIT DECK INTO TW
O.V....8400:.8250:.CB..26.8360.B.... DEA
L 1ST CARD FROM RIGHT PACKET SO 1ST CARD
 CHANGES (JUST LIKE REAL!)......8400:.82
00:.CA..26.8300......8170.... . **RIFFLE
 CARDS FROM LEFT HALF**./.. .C.1.R:CA.CA
.1:.CA.26.C.7:..;.. CD.CD.1.M.& C%(CD).C
1(CA).U.0 .:..{.: .**RIFFLE CARDS FROM R
IGHT HALF**...D .C.1.R:CB.CB.1:.CB.26.C.
5:....N CD.CD.1...X C%(CD).C2(CB):..A.B 
....L . **SHUFFLE BALANCE OF LEFT**...V 
.C.CB.26:CB.CB.1:.CB.26...... CD.CD.1.!.
. C%(CD).C2(CB):..'.. ..J.. . **SHUFFLE 
BALANCE OF RIGHT**.H.. .C.CA.26:CA.CA.1:
.CA.26...T.. CD.CD.1.... C%(CD).C1(CA):.
...F ....P X..(.TI)...Z R.4..(X).1.... .
...(#. ***THIS IS FOR YOU TO VERIFY   TH
ERE IS ONE AND ONLY ONE OF EACH.:.2#. NU
MBER IN THE ARRAY  C%(X).    USE 'GOTO 9
000' AND NOTE THAT.J.<#. EACH LEFT HAND 
NUMBER OCCURS   ONCE ONLY....F#.X.1.56:.
JJ.1.52:.C%(JJ).X..X;JJ...P#.:.:....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL