SORT.RECIPES

00000000: 01 1C 25 1C E8 03 8F 20  44 49 3D 44 52 49 56 45  |..%.... DI=DRIVE|
00000010: 20 57 2E 20 4F 52 49 47  49 4E 41 4C 20 53 45 51  | W. ORIGINAL SEQ|
00000020: 20 46 49 4C 45 00 47 1C  F2 03 8F 20 44 4A 3D 44  | FILE.G.... DJ=D|
00000030: 52 49 56 45 20 57 2E 20  53 4F 52 54 45 44 20 53  |RIVE W. SORTED S|
00000040: 45 51 2E 46 49 4C 45 00  6B 1C FC 03 8F 20 44 41  |EQ.FILE.k.... DA|
00000050: 24 3D 4E 41 4D 45 20 4F  46 20 4F 52 49 47 49 4E  |$=NAME OF ORIGIN|
00000060: 41 4C 20 53 45 51 20 46  49 4C 45 00 8D 1C 06 04  |AL SEQ FILE.....|
00000070: 8F 20 44 42 24 3D 4E 41  4D 45 20 4F 46 20 53 4F  |. DB$=NAME OF SO|
00000080: 52 54 45 44 20 53 45 51  20 46 49 4C 45 00 AC 1C  |RTED SEQ FILE...|
00000090: 10 04 86 20 4E 4D 24 28  39 39 39 29 3A 43 52 24  |... NM$(999):CR$|
000000A0: B2 C7 28 33 32 29 AA C7  28 31 33 29 00 BA 1C 1A  |..(32)..(13)....|
000000B0: 04 53 50 24 B2 C7 28 33  32 29 00 EC 1C 24 04 85  |.SP$..(32)...$..|
000000C0: 22 4E 41 4D 45 20 4F 46  20 4F 52 49 47 49 4E 41  |"NAME OF ORIGINA|
000000D0: 4C 20 4D 41 53 54 45 52  20 53 45 51 2E 20 44 41  |L MASTER SEQ. DA|
000000E0: 54 41 20 46 49 4C 45 22  3B 44 41 24 00 0D 1D 2E  |TA FILE";DA$....|
000000F0: 04 85 22 44 52 49 56 45  20 23 20 46 4F 52 20 41  |.."DRIVE # FOR A|
00000100: 42 4F 56 45 20 46 49 4C  45 22 3B 44 49 00 3F 1D  |BOVE FILE";DI.?.|
00000110: 38 04 85 22 4E 41 4D 45  20 4F 46 20 53 4F 52 54  |8.."NAME OF SORT|
00000120: 45 44 20 20 20 4D 41 53  54 45 52 20 53 45 51 2E  |ED   MASTER SEQ.|
00000130: 20 44 41 54 41 20 46 49  4C 45 22 3B 44 42 24 00  | DATA FILE";DB$.|
00000140: 60 1D 42 04 85 22 44 52  49 56 45 20 23 20 46 4F  |`.B.."DRIVE # FO|
00000150: 52 20 41 42 4F 56 45 20  46 49 4C 45 22 3B 44 4A  |R ABOVE FILE";DJ|
00000160: 00 7D 1D 4C 04 9F 32 2C  44 49 2C 32 2C 22 40 30  |.}.L..2,DI,2,"@0|
00000170: 3A 22 AA 44 41 24 AA 22  2C 53 2C 52 22 00 AE 1D  |:".DA$.",S,R"...|
00000180: 56 04 84 32 2C 41 24 2C  4E 54 2C 4E 53 2C 54 54  |V..2,A$,NT,NS,TT|
00000190: 2C 53 53 2C 44 4B 3A 4E  55 B2 4E 55 AA 31 3A 8B  |,SS,DK:NU.NU.1:.|
000001A0: 20 53 54 B3 B1 30 20 A7  20 89 31 31 34 30 00 EE  | ST..0 . .1140..|
000001B0: 1D 60 04 42 24 B2 41 24  AA 43 52 24 AA C4 28 4E  |.`.B$.A$.CR$..(N|
000001C0: 54 29 AA 43 52 24 AA C4  28 4E 53 29 AA 43 52 24  |T).CR$..(NS).CR$|
000001D0: AA C4 28 54 54 29 AA 43  52 24 AA C4 28 53 53 29  |..(TT).CR$..(SS)|
000001E0: AA 43 52 24 AA C4 28 44  4B 29 AA 53 50 24 00 08  |.CR$..(DK).SP$..|
000001F0: 1E 6A 04 4E 4D 24 28 4E  55 29 B2 42 24 3A 99 20  |.j.NM$(NU).B$:. |
00000200: 41 24 3A 89 31 31 31 30  00 15 1E 74 04 99 4E 55  |A$:.1110...t..NU|
00000210: AB 31 3A A0 32 00 2A 1E  7E 04 9E 34 39 31 35 32  |.1:.2.*.~..49152|
00000220: 2C 4E 55 2C 4E 4D 24 28  31 29 00 4E 1E 88 04 8F  |,NU,NM$(1).N....|
00000230: 20 46 4F 52 58 3D 31 54  4F 4E 55 3A 50 52 49 4E  | FORX=1TONU:PRIN|
00000240: 54 20 4E 4D 24 28 58 29  3A 4E 45 58 54 58 00 6B  |T NM$(X):NEXTX.k|
00000250: 1E 92 04 9F 32 2C 44 4A  2C 32 2C 22 40 30 3A 22  |....2,DJ,2,"@0:"|
00000260: AA 44 42 24 AA 22 2C 53  2C 57 22 00 84 1E 9C 04  |.DB$.",S,W".....|
00000270: 81 58 B2 31 A4 4E 55 3A  98 32 2C 4E 4D 24 28 58  |.X.1.NU:.2,NM$(X|
00000280: 29 3A 82 58 00 8B 1E A6  04 A0 32 00 00 00        |):.X......2...  |

..%.... DI=DRIVE W. ORIGINAL SEQ FILE.G.
... DJ=DRIVE W. SORTED SEQ.FILE.K.... DA
$=NAME OF ORIGINAL SEQ FILE...... DB$=NA
ME OF SORTED SEQ FILE...... NM$(999):CR$
.G(32).G(13).....SP$.G(32)...$.."NAME OF
 ORIGINAL MASTER SEQ. DATA FILE";DA$....
.."DRIVE # FOR ABOVE FILE";DI.?.8.."NAME
 OF SORTED   MASTER SEQ. DATA FILE";DB$.
`.B.."DRIVE # FOR ABOVE FILE";DJ.}.L..2,
DI,2,"@0:".DA$.",S,R"...V..2,A$,NT,NS,TT
,SS,DK:NU.NU.1:. ST..0 . .1140...`.B$.A$
.CR$.D(NT).CR$.D(NS).CR$.D(TT).CR$.D(SS)
.CR$.D(DK).SP$...J.NM$(NU).B$:. A$:.1110
...T..NU.1: 2.*.~..49152,NU,NM$(1).N....
 FORX=1TONU:PRINT NM$(X):NEXTX.K....2,DJ
,2,"@0:".DB$.",S,W"......X.1.NU:.2,NM$(X
):.X..... 2...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL