BYTES

00000000: 01 08 17 08 08 00 97 35  33 32 38 31 2C 30 3A 97  |.......53281,0:.|
00000010: 35 33 32 38 30 2C 32 00  4D 08 0A 00 99 C7 28 31  |53280,2.M.....(1|
00000020: 34 32 29 22 93 11 11 08  1E 20 20 20 20 20 54 48  |42)".....     TH|
00000030: 45 20 4D 49 47 48 54 59  20 4C 4F 41 44 53 54 41  |E MIGHTY LOADSTA|
00000040: 52 20 50 45 52 4D 55 54  49 5A 45 52 22 00 6C 08  |R PERMUTIZER".l.|
00000050: 0C 00 99 A3 31 32 29 22  11 11 9A 28 05 45 9A 29  |....12)"...(.E.)|
00000060: 43 4F 20 41 4C 47 4F 52  49 54 48 4D 00 8F 08 0E  |CO ALGORITHM....|
00000070: 00 99 A3 31 32 29 22 11  28 05 4A 9A 29 4F 48 41  |...12)".(.J.)OHA|
00000080: 4E 4E 53 45 4E 20 41 4C  47 4F 52 49 54 48 4D 00  |NNSEN ALGORITHM.|
00000090: B0 08 10 00 99 A3 31 32  29 22 11 28 05 42 9A 29  |......12)".(.B.)|
000000A0: 41 43 4B 20 54 4F 20 4C  4F 41 44 53 54 41 52 22  |ACK TO LOADSTAR"|
000000B0: 00 D4 08 12 00 A1 5A 24  3A 8B 5A 24 B3 B1 22 45  |......Z$:.Z$.."E|
000000C0: 22 AF 5A 24 B3 B1 22 4A  22 AF 5A 24 B3 B1 22 42  |".Z$.."J".Z$.."B|
000000D0: 22 A7 31 38 00 E4 08 14  00 8B 5A 24 B2 22 42 22  |".18......Z$."B"|
000000E0: A7 33 31 30 00 10 09 16  00 99 22 11 11 20 20 20  |.310......"..   |
000000F0: 20 20 20 57 48 49 4C 45  20 54 48 45 20 4C 49 53  |   WHILE THE LIS|
00000100: 54 20 49 53 20 53 43 52  4F 4C 4C 49 4E 47 3A 22  |T IS SCROLLING:"|
00000110: 00 40 09 18 00 99 22 11  20 20 20 20 20 20 20 05  |.@....".       .|
00000120: 53 48 49 46 54 9A 20 2D  20 50 41 55 53 45 20 20  |SHIFT. - PAUSE  |
00000130: 20 05 43 4D 44 52 9A 20  2D 20 45 4E 44 11 11 22  | .CMDR. - END.."|
00000140: 00 79 09 1C 00 99 A3 31  31 29 22 11 11 91 91 9F  |.y.....11)".....|
00000150: 59 4F 55 52 20 57 4F 52  44 3A 20 20 20 20 20 9D  |YOUR WORD:     .|
00000160: 9D 9D 9D 22 3B 3A 4C 39  25 B2 36 3A 8D 35 30 30  |...";:L9%.6:.500|
00000170: 30 30 3A 41 24 B2 51 39  24 00 94 09 1E 00 4C B2  |00:A$.Q9$.....L.|
00000180: C3 28 41 24 29 3A 8B 4C  B3 33 A7 99 22 91 91 22  |.(A$):.L.3..".."|
00000190: 3A 89 32 38 00 AA 09 20  00 99 22 9B 22 3A 54 49  |:.28... ..".":TI|
000001A0: 24 B2 22 30 30 30 30 30  30 22 00 BA 09 22 00 8B  |$."000000"..."..|
000001B0: 5A 24 B2 22 4A 22 A7 35  30 30 00 C0 09 25 00 3A  |Z$."J".500...%.:|
000001C0: 00 E0 09 26 00 3A 8F 20  20 20 20 2A 2A 2A 20 45  |...&.:.    *** E|
000001D0: 43 4F 20 41 4C 47 4F 52  49 54 48 4D 20 2A 2A 2A  |CO ALGORITHM ***|
000001E0: 00 E6 09 27 00 3A 00 03  0A 28 00 81 49 B2 31 A4  |...'.:...(..I.1.|
000001F0: 4C 3A 42 24 28 49 29 B2  CA 28 41 24 2C 49 2C 31  |L:B$(I)..(A$,I,1|
00000200: 29 3A 82 00 1B 0A 32 00  54 B2 30 3A 81 49 31 B2  |):....2.T.0:.I1.|
00000210: 31 A4 4C 3A 45 28 31 29  B2 49 31 00 2F 0A 3C 00  |1.L:E(1).I1./.<.|
00000220: 81 49 32 B2 31 A4 4C 3A  45 28 32 29 B2 49 32 00  |.I2.1.L:E(2).I2.|
00000230: 3E 0A 46 00 8B 49 31 B2  49 32 A7 32 36 30 00 4B  |>.F..I1.I2.260.K|
00000240: 0A 50 00 8B 4C B2 33 A7  31 38 30 00 5F 0A 5A 00  |.P..L.3.180._.Z.|
00000250: 81 49 33 B2 31 A4 4C 3A  45 28 33 29 B2 49 33 00  |.I3.1.L:E(3).I3.|
00000260: 80 0A 64 00 81 4A B2 31  A4 32 3A 8B 45 28 33 29  |..d..J.1.2:.E(3)|
00000270: B2 45 28 4A 29 A7 4A B2  32 3A 82 3A 89 32 35 30  |.E(J).J.2:.:.250|
00000280: 00 8F 0A 6E 00 82 3A 8B  4C B2 34 A7 31 38 30 00  |...n..:.L.4.180.|
00000290: A3 0A 78 00 81 49 34 B2  31 A4 4C 3A 45 28 34 29  |..x..I4.1.L:E(4)|
000002A0: B2 49 34 00 C4 0A 82 00  81 4A B2 31 A4 33 3A 8B  |.I4......J.1.3:.|
000002B0: 45 28 34 29 B2 45 28 4A  29 A7 4A B2 33 3A 82 3A  |E(4).E(J).J.3:.:|
000002C0: 89 32 34 30 00 D3 0A 8C  00 82 3A 8B 4C B2 35 A7  |.240......:.L.5.|
000002D0: 31 38 30 00 E7 0A 96 00  81 49 35 B2 31 A4 4C 3A  |180......I5.1.L:|
000002E0: 45 28 35 29 B2 49 35 00  08 0B A0 00 81 4A B2 31  |E(5).I5......J.1|
000002F0: A4 34 3A 8B 45 28 35 29  B2 45 28 4A 29 A7 4A B2  |.4:.E(5).E(J).J.|
00000300: 34 3A 82 3A 89 32 33 30  00 0E 0B AA 00 82 00 2E  |4:.:.230........|
00000310: 0B B4 00 46 B2 30 3A 47  B2 30 3A 81 4D B2 31 A4  |...F.0:G.0:.M.1.|
00000320: 4C AB 31 3A 46 B2 46 AA  45 28 4D 29 3A 82 00 62  |L.1:F.F.E(M):..b|
00000330: 0B BE 00 81 4B B2 31 A4  4C 3A 47 B2 47 AA 4B 3A  |....K.1.L:G.G.K:|
00000340: 82 3A 8F 20 43 4F 55 4C  44 20 42 45 20 20 20 20  |.:. COULD BE    |
00000350: 20 20 20 47 3D 28 4C 2A  28 4C 2F 32 29 2B 4C 2F  |   G=(L*(L/2)+L/|
00000360: 32 29 00 6F 0B C8 00 45  28 4C 29 B2 47 AB 46 00  |2).o...E(L).G.F.|
00000370: 94 0B D2 00 54 B2 54 AA  31 3A 99 54 2C 3B 3A 81  |....T.T.1:.T,;:.|
00000380: 4B B2 31 A4 4C 3A 99 42  24 28 45 28 4B 29 29 3B  |K.1.L:.B$(E(K));|
00000390: 3A 82 3A 99 00 A6 0B DC  00 8B C2 28 36 35 33 29  |:.:........(653)|
000003A0: B2 31 A7 32 32 30 00 BA  0B E1 00 8B C2 28 36 35  |.1.220.......(65|
000003B0: 33 29 B2 32 A7 9C 3A 89  31 30 00 C7 0B E6 00 8B  |3).2..:.10......|
000003C0: 4C B1 35 A7 82 49 35 00  D4 0B F0 00 8B 4C B1 34  |L.5..I5......L.4|
000003D0: A7 82 49 34 00 E1 0B FA  00 8B 4C B1 33 A7 82 49  |..I4......L.3..I|
000003E0: 33 00 E9 0B 04 01 82 49  32 00 F1 0B 0E 01 82 49  |3......I2......I|
000003F0: 31 00 F7 0B 15 01 3A 00  19 0C 16 01 3A 8F 20 20  |1.....:.....:.  |
00000400: 20 20 2A 2A 2A 20 50 52  4F 4D 50 54 20 46 4F 52  |  *** PROMPT FOR|
00000410: 20 4D 4F 52 45 20 2A 2A  2A 00 1F 0C 17 01 3A 00  | MORE ***.....:.|
00000420: 49 0C 18 01 99 A3 31 35  29 22 11 9A 54 49 4D 45  |I.....15)"..TIME|
00000430: 3A 20 9E 22 CA 28 54 49  24 2C 34 2C 31 29 22 3A  |: .".(TI$,4,1)":|
00000440: 22 C9 28 54 49 24 2C 32  29 00 68 0C 1D 01 99 A3  |".(TI$,2).h.....|
00000450: 31 34 29 22 11 9A 41 47  41 49 4E 3F 20 28 05 59  |14)"..AGAIN? (.Y|
00000460: 9A 2F 05 4E 9A 29 11 22  00 85 0C 22 01 A1 41 24  |./.N.)."..."..A$|
00000470: 3A 8B 41 24 B3 B1 22 59  22 AF 41 24 B3 B1 22 4E  |:.A$.."Y".A$.."N|
00000480: 22 A7 32 39 30 00 94 0C  2C 01 8B 41 24 B2 22 4E  |".290...,..A$."N|
00000490: 22 A7 31 30 00 9C 0C 31  01 89 32 32 00 A2 0C 33  |".10...1..22...3|
000004A0: 01 3A 00 C5 0C 34 01 3A  8F 20 20 20 20 2A 2A 2A  |.:...4.:.    ***|
000004B0: 20 42 41 43 4B 20 54 4F  20 4C 4F 41 44 53 54 41  | BACK TO LOADSTA|
000004C0: 52 20 2A 2A 2A 00 CB 0C  35 01 3A 00 04 0D 36 01  |R ***...5.:...6.|
000004D0: 9F 31 35 2C 38 2C 31 35  2C 22 52 30 3A 48 45 4C  |.15,8,15,"R0:HEL|
000004E0: 4C 4F 20 43 4F 4E 4E 45  43 54 3D 48 45 4C 4C 4F  |LO CONNECT=HELLO|
000004F0: 20 43 4F 4E 4E 45 43 54  22 3A 84 31 35 2C 45 52  | CONNECT":.15,ER|
00000500: 3A A0 31 35 00 13 0D 40  01 8B 45 52 B3 B1 36 33  |:.15...@..ER..63|
00000510: A7 20 80 00 41 0D 4A 01  99 22 93 11 11 11 90 4C  |. ..A.J..".....L|
00000520: 4F 41 44 22 C7 28 33 34  29 22 48 45 4C 4C 4F 20  |OAD".(34)"HELLO |
00000530: 43 4F 4E 4E 45 43 54 22  C7 28 33 34 29 22 2C 38  |CONNECT".(34)",8|
00000540: 22 00 51 0D 54 01 99 22  11 11 11 11 52 55 4E 13  |".Q.T.."....RUN.|
00000550: 22 00 6E 0D 5E 01 97 36  33 31 2C 31 33 3A 97 36  |".n.^..631,13:.6|
00000560: 33 32 2C 31 33 3A 97 31  39 38 2C 32 3A 80 00 99  |32,13:.198,2:...|
00000570: 0D F4 01 42 24 B2 CA 28  41 24 2C 31 2C 31 29 3A  |...B$..(A$,1,1):|
00000580: 43 24 B2 CA 28 41 24 2C  32 2C 31 29 3A 44 24 B2  |C$..(A$,2,1):D$.|
00000590: CA 28 41 24 2C 33 2C 31  29 00 C4 0D F9 01 45 24  |.(A$,3,1).....E$|
000005A0: B2 CA 28 41 24 2C 34 2C  31 29 3A 46 24 B2 CA 28  |..(A$,4,1):F$..(|
000005B0: 41 24 2C 35 2C 31 29 3A  47 24 B2 CA 28 41 24 2C  |A$,5,1):G$..(A$,|
000005C0: 36 2C 31 29 00 CC 0D FB  01 54 B2 30 00 F4 0D FE  |6,1).....T.0....|
000005D0: 01 91 C3 28 41 24 29 8D  35 37 30 2C 35 36 30 2C  |...(A$).570,560,|
000005E0: 35 35 30 2C 35 34 30 2C  35 33 30 2C 35 32 30 3A  |550,540,530,520:|
000005F0: 89 32 38 30 00 32 0E 08  02 81 49 B2 31 A4 36 3A  |.280.2....I.1.6:|
00000600: 8D 35 33 30 3A 48 24 B2  47 24 3A 47 24 B2 46 24  |.530:H$.G$:G$.F$|
00000610: 3A 46 24 B2 45 24 3A 45  24 B2 44 24 3A 44 24 B2  |:F$.E$:E$.D$:D$.|
00000620: 43 24 3A 43 24 B2 42 24  3A 42 24 B2 48 24 3A 82  |C$:C$.B$:B$.H$:.|
00000630: 3A 8E 00 6A 0E 12 02 81  4A B2 31 A4 35 3A 8D 35  |:..j....J.1.5:.5|
00000640: 34 30 3A 48 24 B2 46 24  3A 46 24 B2 45 24 3A 45  |40:H$.F$:F$.E$:E|
00000650: 24 B2 44 24 3A 44 24 B2  43 24 3A 43 24 B2 42 24  |$.D$:D$.C$:C$.B$|
00000660: 3A 42 24 B2 48 24 3A 82  3A 8E 00 9C 0E 1C 02 81  |:B$.H$:.:.......|
00000670: 4B B2 31 A4 34 3A 8D 35  35 30 3A 48 24 B2 45 24  |K.1.4:.550:H$.E$|
00000680: 3A 45 24 B2 44 24 3A 44  24 B2 43 24 3A 43 24 B2  |:E$.D$:D$.C$:C$.|
00000690: 42 24 3A 42 24 B2 48 24  3A 82 3A 8E 00 C8 0E 26  |B$:B$.H$:.:....&|
000006A0: 02 81 4C B2 31 A4 33 3A  8D 35 36 30 3A 48 24 B2  |..L.1.3:.560:H$.|
000006B0: 44 24 3A 44 24 B2 43 24  3A 43 24 B2 42 24 3A 42  |D$:D$.C$:C$.B$:B|
000006C0: 24 B2 48 24 3A 82 3A 8E  00 FD 0E 30 02 54 B2 54  |$.H$:.:....0.T.T|
000006D0: AA 31 3A 99 54 2C 42 24  43 24 44 24 45 24 46 24  |.1:.T,B$C$D$E$F$|
000006E0: 47 24 3A 54 B2 54 AA 31  3A 99 54 2C 43 24 42 24  |G$:T.T.1:.T,C$B$|
000006F0: 44 24 45 24 46 24 47 24  3A 89 35 38 30 00 17 0F  |D$E$F$G$:.580...|
00000700: 3A 02 54 B2 54 AA 31 3A  99 54 2C 42 24 43 24 44  |:.T.T.1:.T,B$C$D|
00000710: 24 45 24 46 24 47 24 00  29 0F 44 02 8B C2 28 36  |$E$F$G$.).D...(6|
00000720: 35 33 29 B2 31 A7 35 38  30 00 3D 0F 4E 02 8B C2  |53).1.580.=.N...|
00000730: 28 36 35 33 29 B2 32 A7  9C 3A 89 31 30 00 43 0F  |(653).2..:.10.C.|
00000740: 53 02 8E 00 75 0F 10 27  9F 31 35 2C 38 2C 31 35  |S...u..'.15,8,15|
00000750: 2C 22 49 30 22 3A 98 31  35 2C 22 53 30 3A 42 59  |,"I0":.15,"S0:BY|
00000760: 54 45 53 22 3A A0 31 35  3A 94 22 42 59 54 45 53  |TES":.15:."BYTES|
00000770: 22 2C 38 3A 80 00 7B 0F  4D C3 3A 00 9A 0F 4E C3  |",8:..{.M.:...N.|
00000780: 3A 8F 20 20 20 2A 2A 2A  20 49 4E 50 55 54 20 52  |:.   *** INPUT R|
00000790: 4F 55 54 49 4E 45 20 2A  2A 2A 00 A0 0F 4F C3 3A  |OUTINE ***...O.:|
000007A0: 00 BB 0F 50 C3 51 39 24  B2 22 22 3A 55 39 B2 35  |...P.Q9$."":U9.5|
000007B0: 33 32 38 30 3A 97 31 39  38 2C 30 00 C3 0F 5A C3  |3280:.198,0...Z.|
000007C0: A1 41 24 00 DD 0F 64 C3  97 36 34 36 2C BB 28 31  |.A$...d..646,.(1|
000007D0: 29 AC 31 35 AA 31 3A 99  22 A4 9D 22 3B 00 EE 0F  |).15.1:."..";...|
000007E0: 69 C3 8B 41 24 B2 22 22  A7 35 30 30 31 30 00 03  |i..A$."".50010..|
000007F0: 10 6E C3 8B 41 24 B2 C7  28 31 33 29 A7 99 22 20  |.n..A$..(13).." |
00000800: 22 3A 8E 00 35 10 78 C3  8B 28 41 24 B2 C7 28 32  |":..5.x..(A$..(2|
00000810: 30 29 AF C3 28 51 39 24  29 29 A7 51 39 24 B2 C8  |0)..(Q9$)).Q9$..|
00000820: 28 51 39 24 2C C3 28 51  39 24 29 AB 31 29 3A 89  |(Q9$,.(Q9$).1):.|
00000830: 35 30 30 38 30 00 65 10  82 C3 8B C3 28 51 39 24  |50080.e.....(Q9$|
00000840: 29 B1 B2 4C 39 25 A7 54  39 25 B2 C2 28 55 39 29  |)..L9%.T9%..(U9)|
00000850: 3A 97 55 39 2C 31 3A 97  55 39 2C 54 39 25 3A 89  |:.U9,1:.U9,T9%:.|
00000860: 35 30 30 31 30 00 96 10  8C C3 8B 41 24 B3 22 20  |50010......A$." |
00000870: 22 B0 28 41 24 B1 C7 28  31 32 37 29 AF 41 24 B3  |".(A$..(127).A$.|
00000880: C7 28 31 36 30 29 29 B0  41 24 B2 C7 28 33 34 29  |.(160)).A$..(34)|
00000890: A7 35 30 30 31 30 00 A5  10 96 C3 51 39 24 B2 51  |.50010.....Q9$.Q|
000008A0: 39 24 AA 41 24 00 B8 10  A0 C3 99 22 05 22 41 24  |9$.A$......"."A$|
000008B0: 3B 3A 89 35 30 30 31 30  00 00 00                 |;:.50010...     |

.......53281,0:.53280,2.M....G(142)"....
.     THE MIGHTY LOADSTAR PERMUTIZER".L.
....12)"...(.E.)CO ALGORITHM.......12)".
(.J.)OHANNSEN ALGORITHM.......12)".(.B.)
ACK TO LOADSTAR".T....Z$:.Z$.."E".Z$.."J
".Z$.."B".18......Z$."B".310......"..   
   WHILE THE LIST IS SCROLLING:".@....".
       .SHIFT. - PAUSE   .CMDR. - END.."
.Y.....11)".....YOUR WORD:     ....";:L9
%.6:.50000:A$.Q9$.....L.C(A$):.L.3..".."
:.28... ..".":TI$."000000"..."..Z$."J".5
00...%.:...&.:.    *** ECO ALGORITHM ***
...'.:...(..I.1.L:B$(I).J(A$,I,1):....2.
T.0:.I1.1.L:E(1).I1./.<..I2.1.L:E(2).I2.
>.F..I1.I2.260.K.P..L.3.180._.Z..I3.1.L:
E(3).I3...D..J.1.2:.E(3).E(J).J.2:.:.250
...N..:.L.4.180...X..I4.1.L:E(4).I4.D...
.J.1.3:.E(4).E(J).J.3:.:.240.S....:.L.5.
180......I5.1.L:E(5).I5... ..J.1.4:.E(5)
.E(J).J.4:.:.230...........F.0:G.0:.M.1.
L.1:F.F.E(M):..B....K.1.L:G.G.K:.:. COUL
D BE       G=(L*(L/2)+L/2).O.H.E(L).G.F.
..R.T.T.1:.T,;:.K.1.L:.B$(E(K));:.:.....
..B(653).1.220......B(653).2..:.10.G....
L.5..I5.T....L.4..I4......L.3..I3......I
2......I1.....:.....:.    *** PROMPT FOR
 MORE ***.....:.I.....15)"..TIME: ."J(TI
$,4,1)":"I(TI$,2).H.....14)"..AGAIN? (.Y
./.N.)."..."..A$:.A$.."Y".A$.."N".290...
,..A$."N".10...1..22...3.:.E.4.:.    ***
 BACK TO LOADSTAR ***.K.5.:...6..15,8,15
,"R0:HELLO CONNECT=HELLO CONNECT":.15,ER
: 15...@..ER..63. ..A.J..".....LOAD"G(34
)"HELLO CONNECT"G(34)",8".Q.T.."....RUN.
".N.^..631,13:.632,13:.198,2:......B$.J(
A$,1,1):C$.J(A$,2,1):D$.J(A$,3,1).D...E$
.J(A$,4,1):F$.J(A$,5,1):G$.J(A$,6,1).L..
.T.0......C(A$).570,560,550,540,530,520:
.280.2....I.1.6:.530:H$.G$:G$.F$:F$.E$:E
$.D$:D$.C$:C$.B$:B$.H$:.:..J....J.1.5:.5
40:H$.F$:F$.E$:E$.D$:D$.C$:C$.B$:B$.H$:.
:.......K.1.4:.550:H$.E$:E$.D$:D$.C$:C$.
B$:B$.H$:.:..H.&..L.1.3:.560:H$.D$:D$.C$
:C$.B$:B$.H$:.:....0.T.T.1:.T,B$C$D$E$F$
G$:T.T.1:.T,C$B$D$E$F$G$:.580...:.T.T.1:
.T,B$C$D$E$F$G$.).D..B(653).1.580.=.N..B
(653).2..:.10.C.S...U..'.15,8,15,"I0":.1
5,"S0:BYTES": 15:."BYTES",8:..{.MC:...NC
:.   *** INPUT ROUTINE ***. .OC:...PCQ9$
."":U9.53280:.198,0.C.ZC.A$...DC.646,.(1
).15.1:."..";...IC.A$."".50010...NC.A$.G
(13).." ":..5.XC.(A$.G(20).C(Q9$)).Q9$.H
(Q9$,C(Q9$).1):.50080.E..C.C(Q9$)..L9%.T
9%.B(U9):.U9,1:.U9,T9%:.50010....C.A$." 
".(A$.G(127).A$.G(160)).A$.G(34).50010..
..CQ9$.Q9$.A$... C."."A$;:.50010...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL