Multiple names: SHUFFLE.C, SHUFFLE.C
FILE INFORMATION
FILENAME(S):
• SHUFFLE.C<br>• SHUFFLE.C       
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-11-02 16:39:41
APPEARS ON: 5 disk(s)
FILE HASH
c5519a8ec1c8ada0285c144f8e11c45973d11e2fcb9e73ee8be18ff2ebd9a390
FOUND ON DISKS (5 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TPUG APRIL 84 C | SHUFFLE.C | PRG | Treasure Chest - Plattfuss | 11 | 3 | DOWNLOAD FILE |
| PUBLIC DOMAIN | SHUFFLE.C | PRG | Treasure Chest - ToGuMi | 17 | 0 | DOWNLOAD FILE |
| FREESOFT DISK NR | SHUFFLE.C | PRG | Treasure Chest - Wolfgang Rauprich | 24 | 6 | DOWNLOAD FILE |
| TPUG APRIL 84 C | SHUFFLE.C | PRG | Sailor, Ganheden | 11 | 3 | DOWNLOAD FILE |
| TPUG APRIL 84 C | SHUFFLE.C | PRG | DuncanTwain | 11 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1A 08 63 00 8F 20 20 20 20 20 56 49 43 20 |....c.. VIC |
00000010: 56 45 52 53 49 4F 4E 20 42 59 00 30 08 64 00 8F |VERSION BY.0.d..|
00000020: 20 28 43 29 20 50 45 54 20 42 45 4E 45 4C 55 58 | (C) PET BENELUX|
00000030: 00 43 08 6E 00 8F 20 20 20 20 20 45 58 43 48 41 |.C.n.. EXCHA|
00000040: 4E 47 45 00 59 08 78 00 8F 20 20 20 20 20 4E 45 |NGE.Y.x.. NE|
00000050: 54 48 45 52 4C 41 4E 44 53 00 A3 08 79 00 8F 2A |THERLANDS...y..*|
00000060: 2A 54 52 41 4E 53 4C 41 54 45 44 20 46 52 4F 4D |*TRANSLATED FROM|
00000070: 20 54 48 45 20 44 55 54 43 48 2C 20 20 20 20 20 | THE DUTCH, |
00000080: 55 50 47 52 41 44 45 44 20 26 20 52 45 56 49 53 |UPGRADED & REVIS|
00000090: 45 44 20 42 59 20 52 4F 47 45 52 20 44 20 42 55 |ED BY ROGER D BU|
000000A0: 52 47 45 00 DE 08 7A 00 8F 2A 2A 41 44 41 50 54 |RGE...z..**ADAPT|
000000B0: 45 44 20 54 4F 20 54 48 45 20 43 4F 4D 4D 4F 44 |ED TO THE COMMOD|
000000C0: 4F 52 45 20 36 34 20 42 59 20 52 4F 47 45 52 20 |ORE 64 BY ROGER |
000000D0: 44 20 42 55 52 47 45 2C 20 23 32 36 36 37 00 04 |D BURGE, #2667..|
000000E0: 09 7B 00 8F 2A 54 4F 52 4F 4E 54 4F 20 50 45 54 |.{..*TORONTO PET|
000000F0: 20 55 53 45 52 53 20 47 52 4F 55 50 2C 20 43 41 | USERS GROUP, CA|
00000100: 4E 41 44 41 00 0D 09 82 00 8D 36 31 30 00 38 09 |NADA......610.8.|
00000110: 8C 00 50 4F 24 B2 22 13 13 11 11 11 11 11 11 11 |..PO$.".........|
00000120: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000130: 11 11 11 11 11 11 11 22 00 60 09 96 00 86 41 28 |.......".`....A(|
00000140: 31 36 29 2C 42 28 31 36 29 3A 54 42 B2 30 3A 97 |16),B(16):TB.0:.|
00000150: 35 33 32 38 30 2C 31 3A 97 35 33 32 38 31 2C 31 |53280,1:.53281,1|
00000160: 00 80 09 A0 00 99 22 93 90 12 20 20 20 20 20 20 |......"... |
00000170: 20 53 48 55 46 46 4C 45 20 20 20 20 20 20 20 22 | SHUFFLE "|
00000180: 00 A4 09 A1 00 99 22 12 22 A3 54 42 29 22 B0 C0 |......".".TB)"..|
00000190: C0 C0 C0 B2 C0 C0 C0 C0 B2 C0 C0 C0 C0 B2 C0 C0 |................|
000001A0: C0 C0 AE 22 00 E1 09 AA 00 81 49 B2 31 A4 34 3A |..."......I.1.4:|
000001B0: 81 4A B2 31 A4 33 3A 99 A3 54 42 29 3B 22 90 12 |.J.1.3:..TB);"..|
000001C0: DD 1C 20 20 20 20 90 DD 1C 20 20 20 20 90 DD 1C |.. ... ...|
000001D0: 20 20 20 20 90 DD 1C 20 20 20 20 90 DD 22 3A 82 | ... ..":.|
000001E0: 4A 00 0A 0A B4 00 8B 49 B3 34 A7 99 A3 54 42 29 |J......I.4...TB)|
000001F0: 3B 22 90 12 AB C0 C0 C0 C0 DB C0 C0 C0 C0 DB C0 |;"..............|
00000200: C0 C0 C0 DB C0 C0 C0 C0 B3 22 00 31 0A BE 00 82 |.........".1....|
00000210: 49 3A 99 A3 54 42 29 3B 22 90 12 AD C0 C0 C0 C0 |I:..TB);".......|
00000220: B1 C0 C0 C0 C0 B1 C0 C0 C0 C0 B1 C0 C0 C0 C0 BD |................|
00000230: 22 00 4F 0A C3 00 99 22 12 5E 20 3D 20 52 45 53 |".O....".^ = RES|
00000240: 54 41 52 54 2F 20 5F 20 3D 20 51 55 49 54 22 00 |TART/ _ = QUIT".|
00000250: 7A 0A C8 00 99 22 90 11 20 20 20 20 20 20 20 20 |z....".. |
00000260: 20 20 20 20 20 20 20 20 20 20 12 49 11 9D 9D 4A | .I...J|
00000270: 92 D1 12 4B 11 9D 9D 4D 13 1F 00 90 0A D2 00 81 |...K...M........|
00000280: 49 B2 31 A4 31 36 3A 41 28 49 29 B2 49 3A 82 49 |I.1.16:A(I).I:.I|
00000290: 00 C5 0A DC 00 81 49 B2 31 35 A4 32 A9 AB 31 3A |......I.15.2..1:|
000002A0: 4A B2 BB 28 31 29 AC 49 AA 31 3A 54 B2 41 28 4A |J..(1).I.1:T.A(J|
000002B0: 29 3A 41 28 4A 29 B2 41 28 49 29 3A 41 28 49 29 |):A(J).A(I):A(I)|
000002C0: B2 54 3A 82 49 00 E9 0A E6 00 81 49 B2 31 A4 31 |.T:.I......I.1.1|
000002D0: 36 3A 42 28 49 29 B2 41 28 49 29 3A 8B 42 28 49 |6:B(I).A(I):.B(I|
000002E0: 29 B2 31 36 A7 42 53 B2 49 00 F0 0A F0 00 82 49 |).16.BS.I......I|
000002F0: 00 00 0B FA 00 43 B2 30 3A 81 49 B2 31 A4 31 36 |.....C.0:.I.1.16|
00000300: 00 30 0B 04 01 8B 41 28 49 29 B3 B1 49 A7 54 B2 |.0....A(I)..I.T.|
00000310: 41 28 49 29 3A 41 28 49 29 B2 41 28 54 29 3A 41 |A(I):A(I).A(T):A|
00000320: 28 54 29 B2 54 3A 43 B2 43 AA 31 3A 89 32 36 30 |(T).T:C.C.1:.260|
00000330: 00 37 0B 0E 01 82 49 00 48 0B 18 01 8B 28 43 AF |.7....I.H....(C.|
00000340: 31 29 B2 30 A7 33 32 30 00 68 0B 22 01 49 B2 B5 |1).0.320.h.".I..|
00000350: 28 BB 28 31 29 AC 31 36 29 AA 31 3A 8B 42 28 49 |(.(1).16).1:.B(I|
00000360: 29 B2 31 36 A7 32 39 30 00 8C 0B 2C 01 4A B2 B5 |).16.290...,.J..|
00000370: 28 BB 28 31 29 AC 31 36 29 AA 31 3A 8B 42 28 4A |(.(1).16).1:.B(J|
00000380: 29 B2 31 36 B0 49 B2 4A A7 32 39 30 00 A8 0B 36 |).16.I.J.290...6|
00000390: 01 54 B2 42 28 49 29 3A 42 28 49 29 B2 42 28 4A |.T.B(I):B(I).B(J|
000003A0: 29 3A 42 28 4A 29 B2 54 00 B8 0B 40 01 99 22 13 |):B(J).T...@..".|
000003B0: 22 3A 99 22 11 11 22 3B 00 DA 0B 4A 01 81 49 B2 |":."..";...J..I.|
000003C0: 31 A4 31 36 A9 34 3A 81 4A B2 30 A4 33 3A 99 A3 |1.16.4:.J.0.3:..|
000003D0: 54 42 AA 4A AC 35 AA 32 29 3B 00 FE 0B 54 01 8B |TB.J.5.2);...T..|
000003E0: 42 28 49 AA 4A 29 B3 31 36 A7 99 22 12 1C 22 C9 |B(I.J).16.."..".|
000003F0: 28 C4 28 42 28 49 AA 4A 29 29 2C 32 29 3B 00 29 |(.(B(I.J)),2);.)|
00000400: 0C 5E 01 82 4A 3A 4E B2 30 3A 99 22 11 11 11 1F |.^..J:N.0:."....|
00000410: 22 3A 82 49 3A 99 C8 28 50 4F 24 2C 32 32 29 3B |":.I:..(PO$,22);|
00000420: 4E 3B 22 54 55 52 4E 53 22 00 3C 0C 68 01 A1 5A |N;"TURNS".<.h..Z|
00000430: 24 3A 8B 5A 24 B2 22 22 A7 33 36 30 00 4A 0C 72 |$:.Z$."".360.J.r|
00000440: 01 8B 5A 24 B2 22 5E 22 A7 8A 00 5D 0C 77 01 8B |..Z$."^"...].w..|
00000450: 5A 24 B2 22 5F 22 A7 99 22 93 22 3A 80 00 70 0C |Z$."_"..".":..p.|
00000460: 7C 01 8B 5A 24 B2 22 49 22 A7 5A 24 B2 22 38 22 ||..Z$."I".Z$."8"|
00000470: 00 83 0C 7D 01 8B 5A 24 B2 22 4D 22 A7 5A 24 B2 |...}..Z$."M".Z$.|
00000480: 22 32 22 00 96 0C 7E 01 8B 5A 24 B2 22 4A 22 A7 |"2"...~..Z$."J".|
00000490: 5A 24 B2 22 34 22 00 A9 0C 7F 01 8B 5A 24 B2 22 |Z$."4"......Z$."|
000004A0: 4B 22 A7 5A 24 B2 22 36 22 00 BA 0C 86 01 8B C5 |K".Z$."6".......|
000004B0: 28 5A 24 29 AF 31 A7 33 36 30 00 D7 0C 90 01 91 |(Z$).1.360......|
000004C0: C5 28 5A 24 29 AD 32 89 34 37 30 2C 34 35 30 2C |.(Z$).2.470,450,|
000004D0: 34 33 30 2C 34 31 30 00 EC 0C 9A 01 54 B2 42 53 |430,410.....T.BS|
000004E0: AA 34 3A 8B 54 B1 31 36 A7 33 36 30 00 F5 0C A4 |.4:.T.16.360....|
000004F0: 01 89 34 38 30 00 0D 0D AE 01 54 B2 42 53 AB 31 |..480.....T.BS.1|
00000500: 3A 8B 28 33 AF 54 29 B2 30 A7 33 36 30 00 16 0D |:.(3.T).0.360...|
00000510: B8 01 89 34 38 30 00 2F 0D C2 01 54 B2 42 53 AA |...480./...T.BS.|
00000520: 31 3A 8B 28 33 AF 42 53 29 B2 30 A7 33 36 30 00 |1:.(3.BS).0.360.|
00000530: 38 0D CC 01 89 34 38 30 00 4C 0D D6 01 54 B2 42 |8....480.L...T.B|
00000540: 53 AB 34 3A 8B 54 B3 31 A7 33 36 30 00 63 0D E0 |S.4:.T.1.360.c..|
00000550: 01 42 28 42 53 29 B2 42 28 54 29 3A 42 28 54 29 |.B(BS).B(T):B(T)|
00000560: B2 31 36 00 7E 0D EA 01 49 B2 B5 28 28 42 53 AB |.16.~...I..((BS.|
00000570: 31 29 AD 34 29 3A 4A B2 42 53 AB 49 AC 34 00 B1 |1).4):J.BS.I.4..|
00000580: 0D F4 01 99 22 1C 12 22 C8 28 50 4F 24 2C 49 AC |...."..".(PO$,I.|
00000590: 34 AA 35 29 3A 99 22 91 12 22 A3 54 42 AA 4A AC |4.5):."..".TB.J.|
000005A0: 35 AB 33 29 C9 28 C4 28 42 28 42 53 29 29 2C 32 |5.3).(.(B(BS)),2|
000005B0: 29 00 CA 0D FE 01 49 B2 B5 28 28 54 AB 31 29 AD |).....I..((T.1).|
000005C0: 34 29 3A 4A B2 54 AB 49 AC 34 00 F3 0D 08 02 99 |4):J.T.I.4......|
000005D0: 22 12 22 C8 28 50 4F 24 2C 49 AC 34 AA 35 29 3A |".".(PO$,I.4.5):|
000005E0: 99 22 91 12 22 A3 54 42 AA 4A AC 35 AB 33 29 22 |."..".TB.J.5.3)"|
000005F0: 20 20 22 00 27 0E 12 02 42 53 B2 54 3A 4E B2 4E | ".'...BS.T:N.N|
00000600: AA 31 3A 99 22 1F 22 C8 28 50 4F 24 2C 32 32 29 |.1:.".".(PO$,22)|
00000610: 3B C4 28 4E 29 3B 22 20 54 55 52 4E 22 3B 3A 8B |;.(N);" TURN";:.|
00000620: 4E B1 31 A7 99 22 53 00 3D 0E 1C 02 99 22 20 20 |N.1.."S.=...." |
00000630: 20 22 3A 8B 42 53 B3 31 36 A7 33 36 30 00 56 0E | ":.BS.16.360.V.|
00000640: 26 02 81 49 B2 31 A4 31 36 3A 8B 42 28 49 29 B3 |&..I.1.16:.B(I).|
00000650: B1 49 A7 33 36 30 00 8D 0E 30 02 82 49 3A 99 22 |.I.360...0..I:."|
00000660: 93 1F 22 C8 28 50 4F 24 2C 32 30 29 3B 22 59 4F |..".(PO$,20);"YO|
00000670: 55 20 46 49 4E 49 53 48 45 44 20 49 4E 22 3A 99 |U FINISHED IN":.|
00000680: 22 12 11 22 4E 22 92 54 55 52 4E 53 22 00 A2 0E |".."N".TURNS"...|
00000690: 3A 02 99 22 11 50 4C 41 59 20 41 47 41 49 4E 3F |:..".PLAY AGAIN?|
000006A0: 22 3B 00 B5 0E 44 02 A1 49 24 3A 8B 49 24 B2 22 |";...D..I$:.I$."|
000006B0: 22 A7 35 38 30 00 C3 0E 4E 02 8B 49 24 B2 22 59 |".580...N..I$."Y|
000006C0: 22 A7 8A 00 D4 0E 53 02 8B 49 24 B2 22 4E 22 A7 |".....S..I$."N".|
000006D0: 31 30 30 30 00 DD 0E 58 02 89 35 38 30 00 FB 0E |1000...X..580...|
000006E0: 62 02 97 35 33 32 38 30 2C 31 30 3A 97 35 33 32 |b..53280,10:.532|
000006F0: 38 31 2C 32 3A 99 C7 28 31 34 29 00 2E 0F 6C 02 |81,2:..(14)...l.|
00000700: 99 22 12 93 05 20 20 20 20 20 20 20 20 20 20 20 |."... |
00000710: 20 20 20 20 20 D3 C8 D5 C6 C6 CC C5 21 20 20 20 | .......! |
00000720: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 4D | ".M|
00000730: 0F 76 02 99 22 11 D4 52 59 20 54 4F 20 52 45 41 |.v.."..RY TO REA|
00000740: 52 52 41 4E 47 45 20 54 48 45 20 22 3B 00 6E 0F |RRANGE THE ";.n.|
00000750: 80 02 99 22 4E 55 4D 42 45 52 53 20 49 4E 20 50 |..."NUMBERS IN P|
00000760: 52 4F 50 45 52 20 20 4F 52 44 45 52 22 3B 00 93 |ROPER ORDER";..|
00000770: 0F 8A 02 99 22 20 55 53 49 4E 47 20 54 48 45 20 |...." USING THE |
00000780: C9 2C 20 CA 2C 20 CB 20 41 4E 44 20 CD 20 4B 45 |., ., . AND . KE|
00000790: 59 53 2E 00 B4 0F 94 02 99 22 11 20 D9 4F 55 20 |YS.......". .OU |
000007A0: 43 41 4E 20 4D 4F 56 45 20 41 20 4E 55 4D 42 45 |CAN MOVE A NUMBE|
000007B0: 52 20 22 3B 00 D9 0F 9E 02 99 22 46 52 4F 4D 20 |R ";......"FROM |
000007C0: 49 54 53 20 50 4F 53 49 54 49 4F 4E 54 4F 20 20 |ITS POSITIONTO |
000007D0: 41 4E 4F 54 48 45 52 22 3B 00 03 10 A8 02 99 22 |ANOTHER";......"|
000007E0: 20 4F 4E 4C 59 20 49 46 20 54 48 45 20 20 20 4E | ONLY IF THE N|
000007F0: 45 58 54 20 53 50 41 43 45 20 49 53 20 45 4D 50 |EXT SPACE IS EMP|
00000800: 54 59 2E 00 2B 10 B2 02 99 22 11 20 D0 52 45 53 |TY..+....". .RES|
00000810: 53 20 54 48 45 20 12 5E 92 20 4B 45 59 20 54 4F |S THE .^. KEY TO|
00000820: 20 53 54 41 52 54 20 4F 56 45 52 00 48 10 BC 02 | START OVER.H...|
00000830: 99 22 20 D0 52 45 53 53 20 54 48 45 20 12 5F 92 |." .RESS THE ._.|
00000840: 20 54 4F 20 51 55 49 54 00 69 10 C6 02 99 22 11 | TO QUIT.i....".|
00000850: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 C7 | .|
00000860: CF CF C4 A0 CC D5 C3 CB 21 00 9B 10 D0 02 99 22 |........!......"|
00000870: 11 12 20 20 20 20 20 20 20 20 20 D0 52 45 53 53 |.. .RESS|
00000880: 20 41 4E 59 20 4B 45 59 20 54 4F 20 53 54 41 52 | ANY KEY TO STAR|
00000890: 54 20 20 20 20 20 20 20 20 20 22 00 AE 10 0C 03 |T ".....|
000008A0: A1 41 24 3A 8B 41 24 B2 22 22 A7 37 38 30 00 C1 |.A$:.A$."".780..|
000008B0: 10 16 03 99 22 93 22 3A 99 C7 28 31 34 32 29 3A |....".":..(142):|
000008C0: 8E 00 D7 10 E7 03 97 35 33 32 38 31 2C 31 3A 97 |.......53281,1:.|
000008D0: 35 33 32 38 30 2C 31 00 00 00 |53280,1... |
....C.. VIC VERSION BY.0.D.. (C) PET
BENELUX.C.N.. EXCHANGE.Y.X.. NE
THERLANDS...Y..**TRANSLATED FROM THE DUT
CH, UPGRADED & REVISED BY ROGER D BU
RGE...Z..**ADAPTED TO THE COMMODORE 64 B
Y ROGER D BURGE, #2667...{..*TORONTO PET
USERS GROUP, CANADA......610.8...PO$.".
...............................".`....A(
16),B(16):TB.0:.53280,1:.53281,1... ..".
.. SHUFFLE "......".".TB)"..
..................."......I.1.4:.J.1.3:.
.TB);".... ... ... ... ..":.
J......I.4...TB);"......................
.".1....I:..TB);".......................
".O.C..".^ = RESTART/ _ = QUIT".Z.H.."..
.I...J.Q.K...M.....R..
I.1.16:A(I).I:.I.E....I.15.2..1:J..(1).I
.1:T.A(J):A(J).A(I):A(I).T:.I......I.1.1
6:B(I).A(I):.B(I).16.BS.I......I.....C.0
:.I.1.16.0....A(I)..I.T.A(I):A(I).A(T):A
(T).T:C.C.1:.260.7....I.H....(C.1).0.320
.H.".I..(.(1).16).1:.B(I).16.290...,.J..
(.(1).16).1:.B(J).16.I.J.290...6.T.B(I):
B(I).B(J):B(J).T...@..".":."..";.Z.J..I.
1.16.4:.J.0.3:..TB.J.5.2);...T..B(I.J).1
6..".."I(D(B(I.J)),2);.).^..J:N.0:."....
":.I:.H(PO$,22);N;"TURNS".<.H..Z$:.Z$.""
.360.J.R..Z$."^"...].W..Z$."_"..".":..P.
|..Z$."I".Z$."8"...}..Z$."M".Z$."2"...~.
.Z$."J".Z$."4".....Z$."K".Z$."6"......E
(Z$).1.360.W....E(Z$).2.470,450,430,410.
....T.BS.4:.T.16.360......480.....T.BS.1
:.(3.T).0.360......480./.B.T.BS.1:.(3.BS
).0.360.8.L..480.L.V.T.BS.4:.T.1.360.C..
.B(BS).B(T):B(T).16.~...I..((BS.1).4):J.
BS.I.4......".."H(PO$,I.4.5):."..".TB.J.
5.3)I(D(B(BS)),2).J...I..((T.1).4):J.T.I
.4......"."H(PO$,I.4.5):."..".TB.J.5.3)"
".'...BS.T:N.N.1:."."H(PO$,22);D(N);"
TURN";:.N.1.."S.=...." ":.BS.16.360.V.
&..I.1.16:.B(I)..I.360...0..I:.".."H(PO$
,20);"YOU FINISHED IN":.".."N".TURNS"...
:..".PLAY AGAIN?";...D..I$:.I$."".580.C.
N..I$."Y"...T.S..I$."N".1000...X..580...
B..53280,10:.53281,2:.G(14)...L.."...
SHUFFLE! ".M
.V..".TRY TO REARRANGE THE ";.N...."NUMB
ERS IN PROPER ORDER";......" USING THE
I, J, K AND M KEYS.......". YOU CAN MOVE
A NUMBER ";.Y...."FROM ITS POSITIONTO
ANOTHER";......" ONLY IF THE NEXT SPAC
E IS EMPTY..+....". PRESS THE .^. KEY TO
START OVER.H...." PRESS THE ._. TO QUIT
.I.F..". GOOD LUCK!...P.."
.. PRESS ANY KEY TO START
"......A$:.A$."".780.A....".":.G(142):
..W....53281,1:.53280,1...
> CLICK IMAGE PREVIEW FOR FULL MODAL