00000000: B7 05 57 06 10 07 00 0A 17 00 44 45 4C 45 54 45 |..W.......DELETE|
00000010: 20 22 30 3A 50 45 52 4D 27 47 41 4D 45 00 14 16 | "0:PERM'GAME...|
00000020: 00 20 20 42 59 20 4B 45 56 49 4E 20 51 55 49 47 |. BY KEVIN QUIG|
00000030: 47 4C 45 00 1E 17 00 53 41 56 45 20 20 20 22 30 |GLE....SAVE "0|
00000040: 3A 50 45 52 4D 27 47 41 4D 45 00 28 04 00 00 32 |:PERM'GAME.(...2|
00000050: 17 00 46 4F 52 20 4C 45 54 54 45 52 20 50 41 54 |..FOR LETTER PAT|
00000060: 54 45 52 4E 3A 00 3C 0F 00 20 20 41 20 47 20 44 |TERN:.<.. A G D|
00000070: 20 45 20 43 00 46 0F 00 20 20 49 20 47 20 4C 20 | E C.F.. I G L |
00000080: 48 20 4E 00 50 0F 00 20 20 4F 20 50 20 53 20 52 |H N.P.. O P S R|
00000090: 20 54 00 5A 1E 00 46 49 4E 44 20 41 4C 4C 20 50 | T.Z..FIND ALL P|
000000A0: 4F 53 53 49 42 4C 45 20 35 20 4C 45 54 54 45 52 |OSSIBLE 5 LETTER|
000000B0: 00 64 26 00 47 52 4F 55 50 53 20 43 4F 4D 50 4F |.d&.GROUPS COMPO|
000000C0: 53 45 44 20 4F 46 20 4A 55 53 54 20 4F 4E 45 20 |SED OF JUST ONE |
000000D0: 4C 45 54 54 45 52 00 6E 23 00 46 52 4F 4D 20 45 |LETTER.n#.FROM E|
000000E0: 41 43 48 20 43 4F 4C 55 4D 4E 2E 20 54 48 45 52 |ACH COLUMN. THER|
000000F0: 45 20 41 52 45 20 32 34 33 00 78 25 00 50 4F 53 |E ARE 243.x%.POS|
00000100: 53 49 42 4C 45 20 35 2D 4C 45 54 54 45 52 20 47 |SIBLE 5-LETTER G|
00000110: 52 4F 55 50 53 2C 20 41 4E 44 20 31 32 30 00 82 |ROUPS, AND 120..|
00000120: 24 00 50 45 52 4D 55 54 41 54 49 4F 4E 53 20 46 |$.PERMUTATIONS F|
00000130: 4F 52 20 45 41 43 48 20 47 52 4F 55 50 2C 20 46 |OR EACH GROUP, F|
00000140: 4F 52 00 8C 23 00 41 20 50 4F 53 53 49 42 4C 45 |OR..#.A POSSIBLE|
00000150: 20 32 39 2C 31 36 30 20 43 4F 4D 42 49 4E 41 54 | 29,160 COMBINAT|
00000160: 49 4F 4E 53 2E 00 96 04 00 00 A0 09 07 0E 02 00 |IONS............|
00000170: 00 3A 00 AA 09 07 03 02 00 01 3A 00 B4 09 07 04 |.:........:.....|
00000180: 02 00 05 3A 00 BE 13 8C 8F 02 01 02 00 00 90 04 |...:............|
00000190: 04 92 02 00 01 93 C5 00 C8 18 8C 8F 11 02 02 00 |................|
000001A0: 00 90 02 00 03 91 02 00 05 92 02 00 01 93 C5 00 |................|
000001B0: D2 0C 8C 8E 1A 01 02 00 05 92 C5 00 DC 06 7F 13 |................|
000001C0: 81 00 E6 04 00 00 F0 08 00 54 45 53 54 00 FA 06 |.........TEST...|
000001D0: 7F 12 81 01 04 04 00 01 0E 04 00 01 18 12 70 10 |..............p.|
000001E0: 55 8B 04 7A 02 01 72 03 72 04 75 0E 7C 01 22 11 |U..z..r.r.u.|.".|
000001F0: 7F 05 09 02 12 07 03 10 07 04 10 07 0E 16 01 2C |...............,|
00000200: 0B 7F 08 09 02 12 07 04 16 01 36 05 7D 10 01 40 |..........6.}..@|
00000210: 04 00 01 4A 12 70 05 27 8C 04 7A 02 01 72 03 72 |...J.p.'..z..r.r|
00000220: 04 75 0E 7C 01 54 0C 68 04 03 04 04 32 69 23 8C |.u.|.T.h....2i#.|
00000230: 01 5E 0E 82 0A 1C 8C 04 03 84 04 04 85 87 01 68 |.^.............h|
00000240: 0F 0C 02 02 00 00 19 0C 02 07 04 16 3C 01 72 13 |............<.r.|
00000250: 82 06 BE 8B 04 04 84 04 03 85 02 00 01 21 86 87 |.............!..|
00000260: 01 7C 12 0C 02 07 06 1C 0C 02 04 06 02 00 01 29 |.|.............)|
00000270: 13 3C 01 86 07 8A 06 99 8B 01 90 0F 0C 02 07 03 |.<..............|
00000280: 1C 0C 02 02 00 00 13 3C 01 9A 21 00 20 20 50 52 |.......<..!. PR|
00000290: 49 4E 54 27 50 45 52 4D 28 41 24 2C 4E 32 2C 43 |INT'PERM(A$,N2,C|
000002A0: 4F 55 4E 54 20 20 20 20 29 01 A4 15 7F 05 09 02 |OUNT ).......|
000002B0: 12 04 03 02 00 01 27 0D 07 04 10 07 0E 16 01 AE |......'.........|
000002C0: 12 68 04 0A 04 04 32 6A 7F 08 09 02 12 07 04 16 |.h....2j........|
000002D0: 01 B8 07 8A 0A 7C 8B 01 C2 04 6F 01 CC 05 7D 05 |.....|....o...}.|
000002E0: 01 D6 04 00 01 E0 0E 70 08 A8 8C 02 7A 02 01 72 |.......p....z..r|
000002F0: 04 7B 01 EA 09 07 0E 02 00 01 3D 01 F4 19 82 06 |.{........=.....|
00000300: 0F 00 02 00 01 84 04 04 85 88 5F 0C 02 07 06 16 |.........._.....|
00000310: 65 67 61 89 01 FE 32 00 50 52 49 4E 54 20 22 43 |ega...2.PRINT "C|
00000320: 59 43 3D 20 22 3B 43 59 43 4C 45 3B 22 20 4E 31 |YC= ";CYCLE;" N1|
00000330: 3D 22 3B 4E 31 3B 22 20 4E 32 20 20 20 20 20 20 |=";N1;" N2 |
00000340: 3D 22 3B 4E 32 3B 02 08 10 5F 03 03 20 43 3D 65 |=";N2;..._.. C=e|
00000350: 67 04 0E 64 67 61 02 12 06 5F 60 61 02 1C 05 7D |g..dga..._`a...}|
00000360: 08 02 26 04 00 02 30 09 70 13 44 8D 00 7B 02 3A |..&...0.p.D..{.:|
00000370: 10 82 14 EF 8C 02 00 01 84 02 00 05 85 87 02 44 |...............D|
00000380: 10 82 06 E8 8C 02 00 01 84 02 00 03 85 87 02 4E |...............N|
00000390: 0E AF 0C 11 07 06 10 07 14 1C B2 B3 02 58 07 8A |.............X..|
000003A0: 06 CA 8C 02 62 07 8A 14 BA 8C 02 6C 34 AA AE 01 |....b......l4...|
000003B0: 41 AE 01 49 AE 01 4F AE 01 45 AE 01 47 AE 01 50 |A..I..O..E..G..P|
000003C0: AE 01 44 AE 01 4C AE 01 53 AE 01 45 AE 01 48 AE |..D..L..S..E..H.|
000003D0: 01 52 AE 01 43 AE 01 4E AE 01 54 AB 00 00 02 76 |.R..C..N..T....v|
000003E0: 1A 82 06 10 00 02 00 01 84 02 00 05 85 88 0B 1A |................|
000003F0: 07 06 1C 02 00 01 3B 89 02 80 05 7D 13 02 8A 04 |......;....}....|
00000400: 00 02 94 09 70 12 9A 8D 00 7B 02 9E 04 95 02 A8 |....p....{......|
00000410: 06 7F 17 81 02 B2 11 7F 10 09 02 12 07 03 10 07 |................|
00000420: 04 10 07 0E 16 02 BC 09 7F 1B 02 00 01 13 02 C6 |................|
00000430: 09 DA 04 1C 96 56 8D 02 D0 06 7F 17 81 02 DA 11 |.....V..........|
00000440: 7F 10 09 02 12 07 03 10 07 04 10 07 0E 16 02 E4 |................|
00000450: 05 7D 12 02 EE 04 00 02 F8 09 70 18 F1 8D 00 7B |.}........p....{|
00000460: 03 02 10 82 06 D4 8D 02 00 00 84 02 00 02 85 87 |................|
00000470: 03 0C 18 0C 11 07 06 10 07 16 1C 0C 11 04 06 02 |................|
00000480: 00 01 27 0D 07 16 16 3C 03 16 07 8A 06 AC 8D 03 |..'....<........|
00000490: 20 16 0C 11 02 00 03 0D 07 16 1C 0C 11 02 00 00 | ...............|
000004A0: 0D 07 16 16 3C 03 2A 05 7D 18 03 34 04 00 03 3E |....<.*.}..4...>|
000004B0: 09 70 17 2E 8E 00 7B 03 48 10 82 16 27 8E 02 00 |.p....{.H...'...|
000004C0: 01 84 02 00 05 85 87 03 52 14 0C 02 07 16 1C 0C |........R.......|
000004D0: 11 0B 1A 07 16 1C 11 07 16 16 3C 03 5C 07 8A 16 |..........<.\...|
000004E0: 03 8E 03 66 05 7D 17 03 70 04 00 03 7A 0B 70 1B |...f.}..p...z.p.|
000004F0: A0 8E 01 72 0B 7B 03 84 10 68 0B 1A 07 0B 16 02 |...r.{...h......|
00000500: 00 03 2A 69 5E 8E 03 8E 0C 0B 1A 07 0B 1C 02 00 |..*i^...........|
00000510: 01 3E 03 98 06 6E 9C 8E 03 A2 0C 0B 1A 07 0B 1C |.>...n..........|
00000520: 02 00 01 3B 03 AC 0D 68 04 0B 02 00 05 2A 69 89 |...;...h.....*i.|
00000530: 8E 03 B6 0C 7F 1B 04 0B 02 00 01 27 13 03 C0 06 |...........'....|
00000540: 6E 98 8E 03 CA 09 7F 1B 02 00 01 13 03 D4 04 6F |n..............o|
00000550: 03 DE 04 6F 03 E8 05 7D 1B 03 F2 04 00 03 FC 09 |...o...}........|
00000560: E9 1C 6E 8F 00 7B 04 06 09 07 1E 02 00 00 3A 04 |..n..{........:.|
00000570: 10 10 82 06 44 8F 02 00 01 84 02 00 05 85 87 04 |....D...........|
00000580: 1A 0B 07 1E 0B 1A 07 06 16 3D 04 24 07 8A 06 29 |.........=.$...)|
00000590: 8F 04 2E 0D 68 04 1E 02 00 0F 2C 69 5E 8F 04 38 |....h.....,i^..8|
000005A0: 06 EF 43 F2 04 42 06 6E 6A 8F 04 4C 06 EF 44 F2 |..C..B.nj..L..D.|
000005B0: 04 56 04 6F 04 60 05 EC 1C 04 6A 04 00 00 00 00 |.V.o.`....j.....|
000005C0: 00 00 92 EB AF 00 00 10 F7 AF 00 00 10 F2 AF 00 |................|
000005D0: 00 14 5E 8B 00 00 10 43 AF 00 00 00 00 00 00 00 |..^....C........|
000005E0: 14 30 8C 00 00 00 00 00 00 00 00 00 00 00 00 00 |.0..............|
000005F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 10 FC |................|
00000600: AF 00 00 00 00 00 00 00 14 27 8B 00 00 92 C2 AF |.........'......|
00000610: 00 00 14 4D 8D 00 00 14 B1 8C 00 00 10 48 AF 00 |...M.........H..|
00000620: 00 00 00 00 00 00 10 3E AF 00 00 14 FA 8D 00 00 |.......>........|
00000630: 14 A3 8D 00 00 00 00 00 00 00 91 57 AF 00 00 14 |...........W....|
00000640: 37 8E 00 00 15 17 8F 00 00 14 A9 8E 00 00 10 39 |7..............9|
00000650: AF 00 00 00 00 00 00 00 00 00 00 00 00 04 4E 41 |..............NA|
00000660: 4D 45 01 41 02 4E 31 02 4E 32 06 52 4F 54 41 54 |ME.A.N1.N2.ROTAT|
00000670: 45 01 49 04 43 48 41 52 0A 50 52 49 4E 54 27 50 |E.I.CHAR.PRINT'P|
00000680: 45 52 4D 01 54 05 43 59 43 4C 45 01 4E 07 53 55 |ERM.T.CYCLE.N.SU|
00000690: 42 27 52 4F 54 09 43 4C 4F 53 45 44 52 55 4E 05 |B'ROT.CLOSEDRUN.|
000006A0: 43 4F 55 4E 54 01 43 07 50 45 52 4D 55 54 45 06 |COUNT.C.PERMUTE.|
000006B0: 4C 45 54 54 45 52 07 43 4F 4D 42 49 4E 45 0A 49 |LETTER.COMBINE.I|
000006C0: 4E 49 54 49 41 4C 49 5A 45 01 4A 03 52 4F 57 03 |NITIALIZE.J.ROW.|
000006D0: 43 4F 4C 06 45 51 55 41 54 45 04 52 4F 4C 4C 03 |COL.EQUATE.ROLL.|
000006E0: 52 30 57 05 49 4E 44 45 58 09 49 4E 43 52 45 4D |R0W.INDEX.INCREM|
000006F0: 45 4E 54 08 46 49 4E 49 53 48 45 44 04 54 45 53 |ENT.FINISHED.TES|
00000700: 54 09 49 4E 44 45 58 27 53 55 4D 03 53 55 4D 05 |T.INDEX'SUM.SUM.|
00000710: 49 4E 53 54 54 00 00 |INSTT.. |
..W.......DELETE "0:PERM'GAME.... BY KE
VIN QUIGGLE....SAVE "0:PERM'GAME.(...2
..FOR LETTER PATTERN:.<.. A G D E C.F..
I G L H N.P.. O P S R T.Z..FIND ALL P
OSSIBLE 5 LETTER.D&.GROUPS COMPOSED OF J
UST ONE LETTER.N#.FROM EACH COLUMN. THER
E ARE 243.X%.POSSIBLE 5-LETTER GROUPS, A
ND 120..$.PERMUTATIONS FOR EACH GROUP, F
OR..#.A POSSIBLE 29,160 COMBINATIONS....
.. ......:........:........:............
......E.H.....................E.R.......
..E.............TEST................P.
U..Z..R.R.U.|."...............,.......
..6.}..@...J.P.'..Z..R.R.U.|.T.H....2I#.
.^.............H............<.R.........
.....!...|.............).<..............
.......<..!. PRINT'PERM(A$,N2,COUNT
)............'..........H....2J.......
.....|..B.O.L.}..V.....P....Z..R.{......
..=..............._.....EGA...2.PRINT "C
YC= ";CYCLE;" N1=";N1;" N2 =";N2;..
._.. C=EG..DGA..._`A...}..&...0.P.D..{.:
...............D...............N........
.....X...J..B......L4...A..I..O..E..G..P
..D..L..S..E..H..R..C..N..T....V........
..............;....}........P....{......
............................F.Z...V..
P....Z.................}........P....{
.....T............................'....<
........ ...................<.*.}..4...>
.P....{.H...'...........R...............
..<.\......F.}..P...Z.P. ..R.{...H......
..*I^............>...N.............;...H
.....*I...........'....N...J.......T.O
...O...}..........N..{........:.....D...
.................=.$...)....H.....,I^..8
..C..B.NJ..L..D..V.O.`....J.............
..........^....C.........0..............
.........................'....B....M....
.....H.........>...................W....
7..............9..............NAME.A.N1.
N2.ROTATE.I.CHAR.PRINT'PERM.T.CYCLE.N.SU
B'ROT.CLOSEDRUN.COUNT.C.PERMUTE.LETTER.C
OMBINE.INITIALIZE.J.ROW.COL.EQUATE.ROLL.
R0W.INDEX.INCREMENT.FINISHED.TEST.INDEX'
SUM.SUM.INSTT..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL