00000000: 01 08 14 08 64 00 8F 3A 20 53 4F 52 54 20 41 20 |....d..: SORT A |
00000010: 4C 49 53 54 00 2A 08 6E 00 8F 3A 20 43 4F 50 59 |LIST.*.n..: COPY|
00000020: 52 49 47 48 54 20 31 39 38 33 00 4B 08 6F 00 8F |RIGHT 1983.K.o..|
00000030: 3A 20 54 4F 4D 20 52 55 47 47 2C 50 48 49 4C 20 |: TOM RUGG,PHIL |
00000040: 46 45 4C 44 4D 41 4E 20 41 4E 44 00 68 08 70 00 |FELDMAN AND.h.p.|
00000050: 8F 3A 20 57 45 53 54 45 52 4E 20 53 59 53 54 45 |.: WESTERN SYSTE|
00000060: 4D 53 20 47 52 4F 55 50 00 6E 08 82 00 9C 00 80 |MS GROUP.n......|
00000070: 08 8C 00 4E B2 35 30 3A 45 24 B2 22 45 4E 44 22 |...N.50:E$."END"|
00000080: 00 91 08 96 00 86 20 41 24 28 4E 29 3A 8D 36 30 |...... A$(N):.60|
00000090: 30 00 99 08 A0 00 4B B2 31 00 A9 08 AA 00 8B 20 |0.....K.1...... |
000000A0: 4B B1 4E 20 A7 20 32 35 30 00 B3 08 AF 00 52 24 |K.N . 250.....R$|
000000B0: B2 22 22 00 CC 08 B4 00 99 4B 3B 3A 85 20 52 24 |.""......K;:. R$|
000000C0: 3A 8B 20 52 24 B2 22 22 A7 31 38 30 00 DD 08 B9 |:. R$."".180....|
000000D0: 00 8B 20 52 24 B2 45 24 A7 20 32 35 30 00 FA 08 |.. R$.E$. 250...|
000000E0: C8 00 41 24 28 4B 29 20 B2 20 52 24 3A 4B 20 B2 |..A$(K) . R$:K .|
000000F0: 20 4B AA 31 3A 89 20 31 37 30 00 0E 09 FA 00 4B | K.1:. 170.....K|
00000100: B2 4B AB 31 3A 8B 4B B1 30 A7 20 33 30 30 00 2C |.K.1:.K.0. 300.,|
00000110: 09 04 01 99 22 2A 2A 20 4E 4F 20 49 4E 50 55 54 |...."** NO INPUT|
00000120: 20 54 4F 20 53 4F 52 54 20 2A 2A 22 00 36 09 0E | TO SORT **".6..|
00000130: 01 89 20 31 36 30 00 4D 09 2C 01 99 4B 3B 22 49 |.. 160.M.,..K;"I|
00000140: 54 45 4D 53 20 45 4E 54 45 52 45 44 22 00 5D 09 |TEMS ENTERED".].|
00000150: 5E 01 8B 20 4B B2 31 20 A7 20 35 30 30 00 6F 09 |^.. K.1 . 500.o.|
00000160: 68 01 81 20 4A B2 4B 20 A4 20 32 20 A9 AB 31 00 |h.. J.K . 2 ..1.|
00000170: 80 09 72 01 52 24 B2 41 24 28 31 29 3A 46 B2 31 |..r.R$.A$(1):F.1|
00000180: 00 8D 09 7C 01 81 20 4C B2 32 A4 20 4A 00 AB 09 |...|.. L.2. J...|
00000190: 86 01 8B 20 41 24 28 4C 29 B1 52 24 20 A7 20 52 |... A$(L).R$ . R|
000001A0: 24 B2 41 24 28 4C 29 3A 46 B2 4C 00 C6 09 90 01 |$.A$(L):F.L.....|
000001B0: 82 3A 41 24 28 46 29 B2 41 24 28 4A 29 3A 41 24 |.:A$(F).A$(J):A$|
000001C0: 28 4A 29 B2 52 24 00 CC 09 9A 01 82 00 DA 09 F4 |(J).R$..........|
000001D0: 01 81 20 4A B2 31 20 A4 20 4B 00 EB 09 FE 01 99 |.. J.1 . K......|
000001E0: 4A 3B A3 34 29 3B 41 24 28 4A 29 00 F1 09 08 02 |J;.4);A$(J).....|
000001F0: 82 00 F7 09 26 02 80 00 03 0A 58 02 99 C7 28 31 |....&.....X...(1|
00000200: 34 37 29 00 1C 0A 62 02 99 22 2A 2A 20 53 4F 52 |47)...b.."** SOR|
00000210: 54 20 41 20 4C 49 53 54 20 2A 2A 22 00 22 0A 6C |T A LIST **".".l|
00000220: 02 99 00 39 0A 76 02 99 22 45 4E 54 45 52 20 45 |...9.v.."ENTER E|
00000230: 41 43 48 20 49 54 45 4D 22 00 50 0A 80 02 99 4E |ACH ITEM".P....N|
00000240: 3B 22 49 54 45 4D 53 20 4D 41 58 49 4D 55 4D 22 |;"ITEMS MAXIMUM"|
00000250: 00 75 0A 8A 02 99 22 27 22 3B 45 24 3B 22 27 20 |.u...."'";E$;"' |
00000260: 54 4F 20 43 4F 4D 50 4C 45 54 45 20 54 48 45 20 |TO COMPLETE THE |
00000270: 4C 49 53 54 22 00 7B 0A 94 02 8E 00 00 00 |LIST".{....... |
....D..: SORT A LIST.*.N..: COPYRIGHT 19
83.K.O..: TOM RUGG,PHIL FELDMAN AND.H.P.
.: WESTERN SYSTEMS GROUP.N.........N.50:
E$."END"...... A$(N):.600... .K.1......
K.N . 250.....R$."".L....K;:. R$:. R$.""
.180...... R$.E$. 250...H.A$(K) . R$:K .
K.1:. 170.....K.K.1:.K.0. 300.,...."**
NO INPUT TO SORT **".6.... 160.M.,..K;"I
TEMS ENTERED".].^.. K.1 . 500.O.H.. J.K
. 2 ..1...R.R$.A$(1):F.1...|.. L.2. J...
... A$(L).R$ . R$.A$(L):F.L.F....:A$(F).
A$(J):A$(J).R$.L.....Z.... J.1 . K......
J;.4);A$(J).........&.....X..G(147)...B.
."** SORT A LIST **".".L...9.V.."ENTER E
ACH ITEM".P....N;"ITEMS MAXIMUM".U...."'
";E$;"' TO COMPLETE THE LIST".{.......
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL