CARDS UTILITY
FILE INFORMATION
FILENAME(S): CARDS UTILITY
FILE TYPE(S): PRG
FILE SIZE: 2.5K
FIRST SEEN: 2025-11-30 01:08:03
APPEARS ON: 2 disk(s)
FILE HASH
bee35e8c9d8f3a8d4d95a9e8f9231f8493c8fc41996d8e89fd7cbf3ea6f901ae
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | CARDS UTILITY | PRG | Treasure Chest - Wolfgang Rauprich | 30 | 7 | DOWNLOAD FILE |
| S PIELE | CARDS UTILITY | PRG | Treasure Chest - Wolfgang Rauprich | 30 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1D 08 01 00 8F 20 43 41 52 44 20 50 52 49 |....... CARD PRI|
00000010: 4E 54 49 4E 47 20 55 54 49 4C 49 54 59 00 42 08 |NTING UTILITY.B.|
00000020: 02 00 8F 20 44 41 56 49 44 20 41 2E 20 48 4F 4F |... DAVID A. HOO|
00000030: 4B 2C 20 35 38 20 53 54 45 45 4C 20 53 54 52 45 |K, 58 STEEL STRE|
00000040: 45 54 00 61 08 03 00 8F 20 42 41 52 52 49 45 2C |ET.a.... BARRIE,|
00000050: 20 4F 4E 54 41 52 49 4F 2C 20 4C 34 4D 20 32 45 | ONTARIO, L4M 2E|
00000060: 39 00 82 08 04 00 8F 20 53 45 45 20 54 52 41 4E |9...... SEE TRAN|
00000070: 53 41 43 54 4F 52 20 56 4F 4C 20 49 49 2C 20 23 |SACTOR VOL II, #|
00000080: 31 31 00 A2 08 0A 00 83 41 2C 32 2C 33 2C 34 2C |11......A,2,3,4,|
00000090: 35 2C 36 2C 37 2C 38 2C 39 2C 31 30 2C 4A 2C 51 |5,6,7,8,9,10,J,Q|
000000A0: 2C 4B 00 D5 08 14 00 83 2C 2C 2C 31 2C 2C 2C 2C |,K......,,,1,,,,|
000000B0: 31 2C 2C 2C 2C 2C 2C 31 2C 31 2C 2C 2C 31 2C 2C |1,,,,,,1,1,,,1,,|
000000C0: 2C 31 2C 32 2C 2C 2C 2C 2C 2C 32 2C 32 2C 2C 2C |,1,2,,,,,,2,2,,,|
000000D0: 31 2C 2C 2C 32 00 13 09 1E 00 83 32 2C 2C 2C 32 |1,,,2......2,,,2|
000000E0: 2C 2C 2C 32 2C 32 2C 2C 31 2C 2C 32 2C 2C 32 2C |,,,2,2,,1,,2,,2,|
000000F0: 32 2C 2C 32 2C 2C 32 2C 2C 32 2C 32 2C 2C 32 2C |2,,2,,2,,2,2,,2,|
00000100: 31 2C 32 2C 2C 32 2C 32 2C 31 2C 32 2C 2C 32 2C |1,2,,2,2,1,2,,2,|
00000110: 31 2C 32 00 3D 09 28 00 83 22 DF 92 20 12 A9 20 |1,2.=.(..".. .. |
00000120: 20 22 2C 22 20 92 BC 12 A7 BA 20 12 20 20 22 2C | "," ..... . ",|
00000130: 22 20 A1 92 A9 12 A9 92 DF 12 20 20 22 00 5C 09 |" ........ ".\.|
00000140: 32 00 83 22 20 A6 A9 D6 92 A9 12 A6 20 22 2C 22 |2.." ....... ","|
00000150: 20 20 DF 92 A9 12 A9 92 A1 12 20 22 00 A0 09 3C | ........ "...<|
00000160: 00 83 22 20 20 A7 D0 20 92 BB 12 20 22 2C 22 20 |.." .. ... "," |
00000170: 20 92 A9 20 DF 22 2C 22 A9 D0 20 20 20 22 2C 22 | .. .",".. ","|
00000180: 20 92 A9 12 C2 AA 20 20 20 22 2C 22 20 92 20 20 | ..... "," . |
00000190: 20 20 12 BB 20 22 2C 22 20 A6 D6 D6 D6 A6 20 22 | .. "," ..... "|
000001A0: 00 E4 09 46 00 83 22 20 BC 92 20 20 20 20 12 20 |...F.." .. . |
000001B0: 22 2C 22 20 20 20 B4 DD A9 20 22 2C 22 20 20 20 |"," ... "," |
000001C0: CC 92 A9 22 2C 22 DF 92 20 20 12 A9 20 22 2C 22 |...",".. .. ","|
000001D0: 20 20 A7 20 A6 C2 20 22 2C 22 20 92 A9 20 20 20 | . .. "," .. |
000001E0: BC 12 20 22 00 12 0A 50 00 83 22 20 A6 BF BF BF |.. "...P.." ....|
000001F0: A6 20 22 2C 22 20 92 BB 20 20 20 12 A9 20 22 2C |. "," .. .. ",|
00000200: 22 20 DD A6 20 A5 20 20 22 2C 22 20 92 A9 20 20 |" .. . "," .. |
00000210: DF 22 00 1D 0A 5A 00 8D 34 30 30 30 30 00 5C 0A |."...Z..40000.\.|
00000220: 64 00 99 22 93 22 A3 31 30 29 22 12 43 41 52 44 |d..".".10)".CARD|
00000230: 20 55 54 49 4C 49 54 59 22 3A 99 22 11 31 2E 20 | UTILITY":.".1. |
00000240: 44 49 53 50 4C 41 59 20 43 41 52 44 53 22 3A 99 |DISPLAY CARDS":.|
00000250: 22 11 32 2E 20 53 48 55 46 46 4C 45 00 9C 0A 6E |".2. SHUFFLE...n|
00000260: 00 99 22 11 33 2E 20 53 55 42 52 4F 55 54 49 4E |..".3. SUBROUTIN|
00000270: 45 20 46 4F 52 20 47 41 4D 45 53 22 3A 99 22 11 |E FOR GAMES":.".|
00000280: 34 2E 20 51 55 49 54 22 3A 99 22 11 11 12 53 45 |4. QUIT":."...SE|
00000290: 4C 45 43 54 49 4F 4E 20 20 3F 22 3B 00 AF 0A 78 |LECTION ?";...x|
000002A0: 00 A1 5A 24 3A 8B 5A 24 B2 22 22 A7 31 32 30 00 |..Z$:.Z$."".120.|
000002B0: CB 0A 82 00 5A B2 C5 28 5A 24 29 3A 99 5A 3A 8B |....Z..(Z$):.Z:.|
000002C0: 5A B3 31 B0 5A B1 34 A7 31 30 30 00 D6 0A 8C 00 |Z.1.Z.4.100.....|
000002D0: 8B 5A B2 34 A7 80 00 03 0B 96 00 91 5A 8D 34 32 |.Z.4........Z.42|
000002E0: 30 30 30 2C 34 31 30 30 30 2C 34 33 30 30 30 3A |000,41000,43000:|
000002F0: 99 22 11 12 44 4F 4E 45 2D 2D 48 49 54 20 41 20 |."..DONE--HIT A |
00000300: 4B 45 59 00 16 0B A0 00 A1 5A 24 3A 8B 5A 24 B2 |KEY......Z$:.Z$.|
00000310: 22 22 A7 31 36 30 00 1F 0B AA 00 89 31 30 30 00 |"".160......100.|
00000320: 25 0B 96 3A 80 00 35 0B 97 3A 8F 20 49 4E 50 55 |%..:..5..:. INPU|
00000330: 54 20 53 42 52 00 54 0B 98 3A 85 22 20 20 A6 9D |T SBR.T..:." ..|
00000340: 9D 9D 22 3B 5A 24 3A 8B 5A 24 B2 22 A6 22 A7 31 |..";Z$:.Z$.".".1|
00000350: 35 30 30 30 00 62 0B A2 3A 5A B2 C5 28 5A 24 29 |5000.b..:Z..(Z$)|
00000360: 3A 8E 00 77 0B 3F 9C 8F 20 49 4E 49 54 49 41 4C |:..w.?.. INITIAL|
00000370: 49 5A 41 54 49 4F 4E 00 9B 0B 40 9C 49 B2 BB 28 |IZATION...@.I..(|
00000380: AB 54 49 AC 31 45 39 29 3A 4A B2 30 3A 44 25 B2 |.TI.1E9):J.0:D%.|
00000390: 30 3A 4A 25 B2 30 3A 4B 25 B2 30 00 BC 0B 4A 9C |0:J%.0:K%.0...J.|
000003A0: 85 22 4E 55 4D 42 45 52 20 4F 46 20 44 45 43 4B |."NUMBER OF DECK|
000003B0: 53 20 20 20 31 9D 9D 9D 22 3B 44 25 00 FC 0B 54 |S 1...";D%...T|
000003C0: 9C 86 44 25 28 44 25 AC 35 32 29 3A 81 49 B2 31 |..D%(D%.52):.I.1|
000003D0: A4 44 25 3A 81 4A B2 30 A4 35 31 3A 44 25 28 35 |.D%:.J.0.51:D%(5|
000003E0: 32 AC 28 49 AB 31 29 AA 4A 29 B2 4A 3A 82 4A 2C |2.(I.1).J).J:.J,|
000003F0: 49 3A 44 25 B2 44 25 AC 35 32 AB 31 00 1A 0C 5E |I:D%.D%.52.1...^|
00000400: 9C 86 49 24 28 31 33 29 3A 81 49 B2 31 A4 31 33 |..I$(13):.I.1.13|
00000410: 3A 87 49 24 28 49 29 3A 82 49 00 58 0C 68 9C 53 |:.I$(I):.I.X.h.S|
00000420: 31 24 B2 22 20 20 20 D8 20 20 20 DA 20 20 20 D3 |1$." . . .|
00000430: 20 20 20 C1 20 20 20 22 3A 53 32 24 B2 22 20 D8 | . ":S2$." .|
00000440: 20 20 20 D8 20 DA 20 20 20 DA 20 D3 20 20 20 D3 | . . . . .|
00000450: 20 C1 20 20 20 C1 20 22 00 95 0C 72 9C 86 53 24 | . . "...r..S$|
00000460: 28 32 2C 33 29 3A 81 49 B2 30 A4 33 3A 53 24 28 |(2,3):.I.0.3:S$(|
00000470: 30 2C 49 29 B2 22 20 20 20 20 20 20 20 22 3A 53 |0,I)." ":S|
00000480: 24 28 31 2C 49 29 B2 CA 28 53 31 24 2C 49 AC 34 |$(1,I)..(S1$,I.4|
00000490: AA 31 2C 37 29 00 B3 0C 7C 9C 53 24 28 32 2C 49 |.1,7)...|.S$(2,I|
000004A0: 29 B2 CA 28 53 32 24 2C 49 AC 36 AA 31 2C 37 29 |)..(S2$,I.6.1,7)|
000004B0: 3A 82 49 00 DE 0C 86 9C 86 53 25 28 31 30 2C 37 |:.I......S%(10,7|
000004C0: 29 3A 81 49 B2 31 A4 31 30 3A 81 4A B2 31 A4 37 |):.I.1.10:.J.1.7|
000004D0: 3A 87 53 25 28 49 2C 4A 29 3A 82 4A 2C 49 00 07 |:.S%(I,J):.J,I..|
000004E0: 0D 90 9C 86 46 24 28 33 2C 37 29 3A 81 49 B2 31 |....F$(3,7):.I.1|
000004F0: A4 33 3A 81 4A B2 31 A4 37 3A 87 46 24 28 49 2C |.3:.J.1.7:.F$(I,|
00000500: 4A 29 3A 82 4A 2C 49 00 0D 0D 9A 9C 8E 00 1B 0D |J):.J,I.........|
00000510: 27 A0 8F 20 53 48 55 46 46 4C 45 00 42 0D 28 A0 |'.. SHUFFLE.B.(.|
00000520: 81 49 B2 30 A4 44 25 3A 4A 25 B2 28 44 25 AA 31 |.I.0.D%:J%.(D%.1|
00000530: AB 49 29 AC BB 28 31 29 3A 4B 25 B2 44 25 28 4A |.I)..(1):K%.D%(J|
00000540: 25 29 00 67 0D 32 A0 44 25 28 4A 25 29 B2 44 25 |%).g.2.D%(J%).D%|
00000550: 28 44 25 AB 49 29 3A 44 25 28 44 25 AB 49 29 B2 |(D%.I):D%(D%.I).|
00000560: 4B 25 3A 82 49 3A 8E 00 7F 0D 0F A4 8F 20 44 49 |K%:.I:....... DI|
00000570: 53 50 4C 41 59 20 41 4C 4C 20 43 41 52 44 53 00 |SPLAY ALL CARDS.|
00000580: 9E 0D 10 A4 99 22 93 22 3A 43 25 B2 30 3A 81 4C |.....".":C%.0:.L|
00000590: B2 30 A4 44 25 3A 43 25 B2 43 25 AA 31 3A 00 C5 |.0.D%:C%.C%.1:..|
000005A0: 0D 1A A4 53 25 B2 44 25 28 43 25 AB 31 29 AD 31 |...S%.D%(C%.1).1|
000005B0: 33 3A 56 25 B2 44 25 28 43 25 AB 31 29 AB 31 33 |3:V%.D%(C%.1).13|
000005C0: AC 53 25 AA 31 00 D9 0D 24 A4 4C 25 B2 37 3A 41 |.S%.1...$.L%.7:A|
000005D0: 25 B2 35 3A 54 42 25 B2 30 00 12 0E 2E A4 8B 4C |%.5:TB%.0......L|
000005E0: AD 41 25 B2 B5 28 4C AD 41 25 29 A7 54 25 B2 54 |.A%..(L.A%).T%.T|
000005F0: 42 25 3A 99 C8 28 22 93 11 11 11 11 11 11 11 11 |B%:..(".........|
00000600: 11 11 11 11 11 11 22 2C 4C 25 29 3A 89 34 32 30 |......",L%):.420|
00000610: 35 30 00 2C 0E 38 A4 54 25 B2 54 25 AA 38 3A 99 |50.,.8.T%.T%.8:.|
00000620: 22 91 91 91 91 91 91 91 91 91 22 3B 00 54 0E 42 |".........";.T.B|
00000630: A4 99 A3 54 25 29 22 12 22 C8 28 49 24 28 56 25 |...T%)".".(I$(V%|
00000640: 29 AA 22 20 20 20 20 20 20 22 2C 37 29 3A 81 4A |)." ",7):.J|
00000650: B2 31 A4 37 00 65 0E 4C A4 8B 56 25 B1 31 30 A7 |.1.7.e.L..V%.10.|
00000660: 34 32 35 30 30 00 88 0E 56 A4 99 A3 54 25 29 22 |42500...V...T%)"|
00000670: 12 22 53 24 28 53 25 28 56 25 2C 4A 29 2C 53 25 |."S$(S%(V%,J),S%|
00000680: 29 3A 89 34 32 37 35 30 00 BD 0E 04 A6 8B 4A B2 |):.42750......J.|
00000690: 31 A7 99 A3 54 25 29 22 12 20 22 CA 28 22 D8 DA |1...T%)". ".("..|
000006A0: D3 C1 22 2C 53 25 AA 31 2C 31 29 46 24 28 56 25 |..",S%.1,1)F$(V%|
000006B0: AB 31 30 2C 4A 29 3A 89 34 32 37 35 30 00 F7 0E |.10,J):.42750...|
000006C0: 0E A6 8B 4A B2 37 A7 99 A3 54 25 29 22 12 22 46 |...J.7...T%)"."F|
000006D0: 24 28 56 25 AB 31 30 2C 4A 29 22 12 22 CA 28 22 |$(V%.10,J)".".("|
000006E0: D8 DA D3 C1 22 2C 53 25 AA 31 2C 31 29 22 20 22 |....",S%.1,1)" "|
000006F0: 3A 89 34 32 37 35 30 00 0F 0F 18 A6 99 A3 54 25 |:.42750.......T%|
00000700: 29 22 12 22 46 24 28 56 25 AB 31 30 2C 4A 29 00 |)"."F$(V%.10,J).|
00000710: 33 0F FE A6 82 4A 3A 99 A3 54 25 29 22 12 22 C9 |3....J:..T%)".".|
00000720: 28 22 20 20 20 20 20 20 22 AA 49 24 28 56 25 29 |(" ".I$(V%)|
00000730: 2C 37 29 00 3C 0F 30 A7 82 4C 3A 8E 00 57 0F F7 |,7).<.0..L:..W..|
00000740: A7 8F 20 47 41 4D 45 2D 54 59 50 45 20 53 55 42 |.. GAME-TYPE SUB|
00000750: 52 4F 55 54 49 4E 45 00 84 0F F8 A7 99 22 93 48 |ROUTINE......".H|
00000760: 4F 57 20 4D 41 4E 59 20 43 41 52 44 53 20 54 4F |OW MANY CARDS TO|
00000770: 20 50 52 49 4E 54 22 3B 3A 8D 31 35 30 30 30 3A | PRINT";:.15000:|
00000780: 50 25 B2 5A 00 AD 0F 02 A8 99 22 53 54 41 52 54 |P%.Z......"START|
00000790: 20 4F 4E 20 4C 49 4E 45 20 28 31 2D 31 36 29 22 | ON LINE (1-16)"|
000007A0: 3B 3A 8D 31 35 30 30 30 3A 4C 25 B2 5A 00 D7 0F |;:.15000:L%.Z...|
000007B0: 0C A8 99 22 48 4F 57 20 4D 41 4E 59 20 41 43 52 |..."HOW MANY ACR|
000007C0: 4F 53 53 20 28 31 2D 35 29 22 3B 3A 8D 31 35 30 |OSS (1-5)";:.150|
000007D0: 30 30 3A 41 25 B2 5A 00 00 10 16 A8 99 22 53 54 |00:A%.Z......"ST|
000007E0: 41 52 54 20 41 54 20 54 41 42 20 28 30 2D 33 32 |ART AT TAB (0-32|
000007F0: 29 22 3B 3A 8D 31 35 30 30 30 3A 54 42 25 B2 5A |)";:.15000:TB%.Z|
00000800: 00 33 10 20 A8 4D 25 B2 44 25 AA 31 3A 99 22 53 |.3. .M%.D%.1:."S|
00000810: 48 55 46 46 4C 45 20 41 46 54 45 52 20 28 31 2D |HUFFLE AFTER (1-|
00000820: 22 4D 25 22 29 22 3B 3A 8D 31 35 30 30 30 3A 4D |"M%")";:.15000:M|
00000830: 25 B2 5A 00 68 10 5C A8 99 22 93 22 3A 43 25 B2 |%.Z.h.\..".":C%.|
00000840: 30 3A 81 4C B2 30 A4 50 25 AB 31 3A 43 25 B2 43 |0:.L.0.P%.1:C%.C|
00000850: 25 AA 31 3A 8B 43 25 B2 4D 25 AA 31 A7 43 25 B2 |%.1:.C%.M%.1.C%.|
00000860: 31 3A 8D 34 31 30 30 30 00 8F 10 7A A8 53 25 B2 |1:.41000...z.S%.|
00000870: 44 25 28 43 25 AB 31 29 AD 31 33 3A 56 25 B2 44 |D%(C%.1).13:V%.D|
00000880: 25 28 43 25 AB 31 29 AB 31 33 AC 53 25 AA 31 00 |%(C%.1).13.S%.1.|
00000890: C8 10 84 A8 8B 4C AD 41 25 B2 B5 28 4C AD 41 25 |.....L.A%..(L.A%|
000008A0: 29 A7 54 25 B2 54 42 25 3A 99 C8 28 22 93 11 11 |).T%.TB%:..("...|
000008B0: 11 11 11 11 11 11 11 11 11 11 11 11 22 2C 4C 25 |............",L%|
000008C0: 29 3A 89 34 33 31 36 30 00 E2 10 8E A8 54 25 B2 |):.43160.....T%.|
000008D0: 54 25 AA 38 3A 99 22 91 91 91 91 91 91 91 91 91 |T%.8:.".........|
000008E0: 22 3B 00 0A 11 98 A8 99 A3 54 25 29 22 12 22 C8 |";.......T%)".".|
000008F0: 28 49 24 28 56 25 29 AA 22 20 20 20 20 20 20 22 |(I$(V%)." "|
00000900: 2C 37 29 3A 81 4A B2 31 A4 37 00 1B 11 A2 A8 8B |,7):.J.1.7......|
00000910: 56 25 B1 31 30 A7 34 33 35 30 30 00 3E 11 F2 A8 |V%.10.43500.>...|
00000920: 99 A3 54 25 29 22 12 22 53 24 28 53 25 28 56 25 |..T%)"."S$(S%(V%|
00000930: 2C 4A 29 2C 53 25 29 3A 89 34 33 37 35 30 00 73 |,J),S%):.43750.s|
00000940: 11 EC A9 8B 4A B2 31 A7 99 A3 54 25 29 22 12 20 |....J.1...T%)". |
00000950: 22 CA 28 22 D8 DA D3 C1 22 2C 53 25 AA 31 2C 31 |".("....",S%.1,1|
00000960: 29 46 24 28 56 25 AB 31 30 2C 4A 29 3A 89 34 33 |)F$(V%.10,J):.43|
00000970: 37 35 30 00 AD 11 F6 A9 8B 4A B2 37 A7 99 A3 54 |750......J.7...T|
00000980: 25 29 22 12 22 46 24 28 56 25 AB 31 30 2C 4A 29 |%)"."F$(V%.10,J)|
00000990: 22 12 22 CA 28 22 D8 DA D3 C1 22 2C 53 25 AA 31 |".".("....",S%.1|
000009A0: 2C 31 29 22 20 22 3A 89 34 33 37 35 30 00 C5 11 |,1)" ":.43750...|
000009B0: 00 AA 99 A3 54 25 29 22 12 22 46 24 28 56 25 AB |....T%)"."F$(V%.|
000009C0: 31 30 2C 4A 29 00 E9 11 E6 AA 82 4A 3A 99 A3 54 |10,J)......J:..T|
000009D0: 25 29 22 12 22 C9 28 22 20 20 20 20 20 20 22 AA |%)".".(" ".|
000009E0: 49 24 28 56 25 29 2C 37 29 00 F2 11 18 AB 82 4C |I$(V%),7)......L|
000009F0: 3A 8E 00 00 00 64 |:....d |
....... CARD PRINTING UTILITY.B.... DAVI
D A. HOOK, 58 STEEL STREET.A.... BARRIE,
ONTARIO, L4M 2E9...... SEE TRANSACTOR V
OL II, #11......A,2,3,4,5,6,7,8,9,10,J,Q
,K.U....,,,1,,,,1,,,,,,1,1,,,1,,,1,2,,,,
,,2,2,,,1,,,2......2,,,2,,,2,2,,1,,2,,2,
2,,2,,2,,2,2,,2,1,2,,2,2,1,2,,2,1,2.=.(.
.".. .. "," ..... . "," ........ ".\.
2.." ..V.... "," ........ ". .<.." .P
... "," .. .",".P "," ...B. "," .
.. "," .VVV. "...F.." .. . "," ..
. "," L..",".. .. "," . .B "," ..
.. "...P.." ..... "," .. .. "," .. .
"," .. ."...Z..40000.\.D..".".10)".CARD
UTILITY":.".1. DISPLAY CARDS":.".2. SHU
FFLE...N..".3. SUBROUTINE FOR GAMES":.".
4. QUIT":."...SELECTION ?";...X..Z$:.Z$
."".120.K...Z.E(Z$):.Z:.Z.1.Z.4.100.V...
.Z.4........Z.42000,41000,43000:."..DONE
--HIT A KEY... ..Z$:.Z$."".160......100.
%..:..5..:. INPUT SBR.T..:." ....";Z$:.
Z$.".".15000.B..:Z.E(Z$):..W.?.. INITIAL
IZATION...@.I..(.TI.1E9):J.0:D%.0:J%.0:K
%.0...J.."NUMBER OF DECKS 1...";D%...T
..D%(D%.52):.I.1.D%:.J.0.51:D%(52.(I.1).
J).J:.J,I:D%.D%.52.1...^..I$(13):.I.1.13
:.I$(I):.I.X.H.S1$." X Z S A "
:S2$." X X Z Z S S A A "...R..S$
(2,3):.I.0.3:S$(0,I)." ":S$(1,I).J
(S1$,I.4.1,7)...|.S$(2,I).J(S2$,I.6.1,7)
:.I......S%(10,7):.I.1.10:.J.1.7:.S%(I,J
):.J,I......F$(3,7):.I.1.3:.J.1.7:.F$(I,
J):.J,I.........' . SHUFFLE.B.( .I.0.D%:
J%.(D%.1.I)..(1):K%.D%(J%).G.2 D%(J%).D%
(D%.I):D%(D%.I).K%:.I:...... DISPLAY AL
L CARDS......".":C%.0:.L.0.D%:C%.C%.1:.E
...S%.D%(C%.1).13:V%.D%(C%.1).13.S%.1.Y.
$.L%.7:A%.5:TB%.0......L.A%..(L.A%).T%.T
B%:.H("...............",L%):.42050.,.8.T
%.T%.8:.".........";.T.B...T%)"."H(I$(V%
)." ",7):.J.1.7.E.L..V%.10.42500...
V...T%)"."S$(S%(V%,J),S%):.42750......J.
1...T%)". "J("XZSA",S%.1,1)F$(V%.10,J):.
42750......J.7...T%)"."F$(V%.10,J)"."J("
XZSA",S%.1,1)" ":.42750.......T%)"."F$(V
%.10,J).3....J:..T%)"."I(" ".I$(V%)
,7).<.0..L:..W.... GAME-TYPE SUBROUTINE.
.....".HOW MANY CARDS TO PRINT";:.15000:
P%.Z......"START ON LINE (1-16)";:.15000
:L%.Z.W...."HOW MANY ACROSS (1-5)";:.150
00:A%.Z......"START AT TAB (0-32)";:.150
00:TB%.Z.3. .M%.D%.1:."SHUFFLE AFTER (1-
"M%")";:.15000:M%.Z.H.\..".":C%.0:.L.0.P
%.1:C%.C%.1:.C%.M%.1.C%.1:.41000...Z.S%.
D%(C%.1).13:V%.D%(C%.1).13.S%.1.H....L.A
%..(L.A%).T%.TB%:.H("...............",L%
):.43160.....T%.T%.8:.".........";......
.T%)"."H(I$(V%)." ",7):.J.1.7......
V%.10.43500.>.....T%)"."S$(S%(V%,J),S%):
.43750.S....J.1...T%)". "J("XZSA",S%.1,1
)F$(V%.10,J):.43750......J.7...T%)"."F$(
V%.10,J)"."J("XZSA",S%.1,1)" ":.43750.E.
....T%)"."F$(V%.10,J)......J:..T%)"."I("
".I$(V%),7)......L:....D
> CLICK IMAGE PREVIEW FOR FULL MODAL