ALPHA ORDER

00000000: 01 04 15 04 00 00 8F 20  35 2F 31 30 2F 38 30 20  |....... 5/10/80 |
00000010: 20 33 31 32 32 00 20 04  01 00 89 20 31 31 30 30  | 3122. .... 1100|
00000020: 00 58 04 02 00 A0 31 35  3A 9F 20 31 35 2C 38 2C  |.X....15:. 15,8,|
00000030: 31 35 2C 22 53 30 3A 41  4C 50 48 41 20 4F 52 44  |15,"S0:ALPHA ORD|
00000040: 45 52 22 3A 94 22 30 3A  41 4C 50 48 41 20 4F 52  |ER":."0:ALPHA OR|
00000050: 44 45 52 22 2C 38 3A 80  00 84 04 03 00 99 22 43  |DER",8:......."C|
00000060: 4F 52 52 45 43 54 49 4F  4E 53 3F 28 12 59 92 2F  |ORRECTIONS?(.Y./|
00000070: 12 4E 92 29 22 3A 47 31  24 B2 22 59 4E 22 3A 8D  |.N.)":G1$."YN":.|
00000080: 20 35 3A 8E 00 9A 04 04  00 9F 34 2C 34 3A 9D 34  | 5:.......4,4:.4|
00000090: 3A 99 22 93 22 3B 3A 9B  3A AC 00 CA 04 05 00 A1  |:.".";:.:.......|
000000A0: 47 24 3A 81 56 B2 31 A4  C3 28 47 31 24 29 AA 31  |G$:.V.1..(G1$).1|
000000B0: 3A 8B 47 24 B3 B1 CA 28  47 31 24 AA 22 49 22 2C  |:.G$...(G1$."I",|
000000C0: 56 2C 31 29 A7 82 56 3A  89 35 00 D0 04 06 00 8E  |V,1)..V:.5......|
000000D0: 00 EC 04 08 00 84 4B 4B  28 56 4F 29 2C 45 2C 45  |......KK(VO),E,E|
000000E0: 24 2C 53 2C 54 3A 8B 45  B3 32 A7 8E 00 07 05 09  |$,S,T:.E.2......|
000000F0: 00 99 22 44 49 53 4B 20  45 52 52 4F 52 3A 22 45  |.."DISK ERROR:"E|
00000100: 3B 45 24 3B 53 3B 54 00  25 05 0A 00 99 22 11 12  |;E$;S;T.%...."..|
00000110: 52 92 45 41 44 59 3F 22  3A 47 31 24 B2 22 52 22  |R.EADY?":G1$."R"|
00000120: 3A 8D 35 3A 8E 00 30 05  0B 00 8F 20 4D 41 49 4E  |:.5:..0.... MAIN|
00000130: 00 40 05 13 00 8F 20 53  41 56 45 20 42 4F 4F 4B  |.@.... SAVE BOOK|
00000140: 00 50 05 18 00 8F 20 4C  4F 4E 47 20 53 4F 52 54  |.P.... LONG SORT|
00000150: 00 61 05 19 00 8F 20 53  48 4F 52 54 20 53 4F 52  |.a.... SHORT SOR|
00000160: 54 00 6F 05 1A 00 8F 20  41 53 4B 20 41 4C 4C 00  |T.o.... ASK ALL.|
00000170: 80 05 1C 00 8F 20 4B 45  59 20 43 48 41 4E 47 45  |..... KEY CHANGE|
00000180: 00 91 05 23 00 8F 20 41  53 4B 20 46 49 45 4C 44  |...#.. ASK FIELD|
00000190: 53 00 A5 05 2A 00 8F 20  52 45 41 44 20 41 20 52  |S...*.. READ A R|
000001A0: 45 43 4F 52 44 00 BC 05  2B 00 8F 20 50 4F 53 49  |ECORD...+.. POSI|
000001B0: 54 49 4F 4E 20 50 4F 49  4E 54 45 52 00 C7 05 2C  |TION POINTER...,|
000001C0: 00 8F 20 59 45 53 3F 00  D8 05 31 00 8F 20 41 53  |.. YES?...1.. AS|
000001D0: 4B 20 4E 55 4D 42 45 52  00 E3 05 4C 04 8F 20 4D  |K NUMBER...L.. M|
000001E0: 41 49 4E 00 FC 05 4D 04  8B 20 4C 49 B3 32 35 33  |AIN...M.. LI.253|
000001F0: 20 A7 20 97 20 49 56 2C  4C 49 AA 33 00 07 06 4E  | . . IV,LI.3...N|
00000200: 04 8D 20 39 33 30 30 00  24 06 51 04 99 22 93 20  |.. 9300.$.Q..". |
00000210: 20 20 20 20 20 20 20 12  41 4C 50 48 41 20 4F 52  |       .ALPHA OR|
00000220: 44 45 52 22 00 61 06 56  04 99 22 11 54 48 49 53  |DER".a.V..".THIS|
00000230: 20 50 52 4F 47 52 41 4D  20 49 53 20 46 4F 52 20  | PROGRAM IS FOR |
00000240: 50 55 54 54 49 4E 47 20  41 20 46 49 4C 45 20 49  |PUTTING A FILE I|
00000250: 4E 20 41 4C 50 48 41 42  45 54 49 43 41 4C 20 22  |N ALPHABETICAL "|
00000260: 3B 00 7E 06 57 04 99 22  4F 52 20 4E 55 4D 45 52  |;.~.W.."OR NUMER|
00000270: 49 43 41 4C 20 4F 52 44  45 52 2E 20 20 22 00 AE  |ICAL ORDER.  "..|
00000280: 06 5B 04 99 22 49 54 20  43 41 4E 20 42 45 20 55  |.[.."IT CAN BE U|
00000290: 53 45 44 20 41 46 54 45  52 20 46 49 4C 45 20 43  |SED AFTER FILE C|
000002A0: 41 4C 43 55 4C 41 54 49  4F 4E 53 20 22 3B 00 E5  |ALCULATIONS ";..|
000002B0: 06 60 04 99 22 4F 52 20  57 48 45 4E 20 59 4F 55  |.`.."OR WHEN YOU|
000002C0: 20 57 41 4E 54 20 41 20  50 41 52 54 49 43 55 4C  | WANT A PARTICUL|
000002D0: 41 52 20 4B 45 59 20 54  4F 20 52 45 46 45 52 20  |AR KEY TO REFER |
000002E0: 54 4F 20 22 3B 00 01 07  65 04 99 22 41 20 4E 45  |TO ";...e.."A NE|
000002F0: 57 20 53 45 54 20 4F 46  20 46 49 45 4C 44 53 2E  |W SET OF FIELDS.|
00000300: 22 00 22 07 67 04 8B 20  4B 49 20 A7 20 81 20 58  |".".g.. KI . . X|
00000310: B2 31 A4 48 52 3A 4B 46  24 28 58 29 B2 22 22 3A  |.1.HR:KF$(X)."":|
00000320: 82 58 00 50 07 6A 04 99  22 43 4F 4E 54 49 4E 55  |.X.P.j.."CONTINU|
00000330: 45 3F 22 3A 58 B2 31 3A  58 33 B2 31 3A 8D 20 34  |E?":X.1:X3.1:. 4|
00000340: 34 30 30 3A 8B 20 58 B2  30 20 A7 20 31 31 35 30  |400:. X.0 . 1150|
00000350: 00 62 07 74 04 3A 8D 20  32 36 30 30 3A 8F 20 41  |.b.t.:. 2600:. A|
00000360: 53 4B 00 8C 07 79 04 3A  53 50 B2 31 3A 91 20 53  |SK...y.:SP.1:. S|
00000370: 48 AA 31 20 8D 20 32 34  30 30 2C 32 35 30 30 3A  |H.1 . 2400,2500:|
00000380: 8F 20 4C 4F 4E 47 2C 53  48 4F 52 54 00 AF 07 7B  |. LONG,SHORT...{|
00000390: 04 52 52 B2 30 3A 8D 20  31 39 30 30 3A 99 22 07  |.RR.0:. 1900:.".|
000003A0: 07 07 07 07 22 3A 8F 20  53 41 56 45 20 42 4B 00  |....":. SAVE BK.|
000003B0: D0 07 7E 04 58 24 B2 22  46 49 4C 45 20 4D 45 4E  |..~.X$."FILE MEN|
000003C0: 55 22 3A 8D 20 39 32 30  30 3A 89 20 31 31 35 30  |U":. 9200:. 1150|
000003D0: 00 E0 07 6C 07 8F 20 53  41 56 45 20 42 4F 4F 4B  |...l.. SAVE BOOK|
000003E0: 00 10 08 71 07 A0 20 53  45 3A 55 4B B2 57 4B 3A  |...q.. SE:UK.WK:|
000003F0: 99 22 11 28 53 43 52 41  54 43 48 49 4E 47 20 4F  |.".(SCRATCHING O|
00000400: 4C 44 20 42 4F 4F 4B 4B  45 45 50 49 4E 47 29 22  |LD BOOKKEEPING)"|
00000410: 00 48 08 76 07 3A 98 4B  4B 28 52 56 29 2C 22 53  |.H.v.:.KK(RV),"S|
00000420: 22 AA 44 52 24 28 52 56  29 AA 22 3A 44 42 A2 22  |".DR$(RV).":DB."|
00000430: AA 4E 41 24 3A 56 4F B2  52 56 3A 8D 20 38 3A 8B  |.NA$:VO.RV:. 8:.|
00000440: 20 45 B1 31 20 A7 20 8E  00 86 08 7C 07 9F 20 53  | E.1 . ....|.. S|
00000450: 45 2C 44 56 28 52 56 29  2C 53 45 2C 44 52 24 28  |E,DV(RV),SE,DR$(|
00000460: 52 56 29 AA 22 3A 44 42  A2 22 AA 4E 41 24 AA 22  |RV).":DB.".NA$."|
00000470: 2C 53 2C 57 22 3A 56 4F  B2 52 56 3A 8D 20 38 3A  |,S,W":VO.RV:. 8:|
00000480: 8B 45 20 A7 20 8E 00 CC  08 80 07 98 53 45 2C 4D  |.E . .......SE,M|
00000490: 52 3B 52 24 48 52 3B 52  24 52 53 3B 52 24 48 42  |R;R$HR;R$RS;R$HB|
000004A0: 3B 52 24 48 46 3B 52 24  53 46 3B 52 24 52 42 3B  |;R$HF;R$SF;R$RB;|
000004B0: 52 24 48 4B 3B 52 24 57  4B 3B 52 24 44 4B 3B 52  |R$HK;R$WK;R$DK;R|
000004C0: 24 44 45 3B 52 24 4D 43  3B 52 24 3B 00 F4 08 85  |$DE;R$MC;R$;....|
000004D0: 07 81 20 57 46 B2 31 20  A4 20 48 46 3A 98 53 45  |.. WF.1 . HF:.SE|
000004E0: 2C 51 24 3B 46 54 24 28  57 46 29 3B 52 24 3B 3A  |,Q$;FT$(WF);R$;:|
000004F0: 82 20 57 46 00 20 09 8A  07 81 20 44 B2 30 A4 35  |. WF. .... D.0.5|
00000500: 3A 81 20 58 B2 30 A4 48  4B 3A 98 53 45 2C 53 46  |:. X.0.HK:.SE,SF|
00000510: 25 28 58 2C 44 29 3B 52  24 3B 3A 82 20 58 2C 44  |%(X,D);R$;:. X,D|
00000520: 00 39 09 8F 07 99 22 28  53 41 56 49 4E 47 20 50  |.9...."(SAVING P|
00000530: 4F 49 4E 54 45 52 53 29  22 00 6D 09 94 07 3A 81  |OINTERS)".m...:.|
00000540: 20 58 B2 30 A4 48 4B 3A  81 20 52 52 B2 31 20 A4  | X.0.HK:. RR.1 .|
00000550: 20 48 52 3A 98 53 45 2C  50 4F 25 28 52 52 2C 58  | HR:.SE,PO%(RR,X|
00000560: 29 3B 52 24 3B 3A 82 20  52 52 3A 82 58 00 9B 09  |);R$;:. RR:.X...|
00000570: 99 07 8B 20 52 33 20 A7  20 99 22 28 53 41 56 49  |... R3 . ."(SAVI|
00000580: 4E 47 20 42 4C 4F 43 4B  20 4D 41 50 29 22 3A 81  |NG BLOCK MAP)":.|
00000590: 20 58 B2 31 A4 31 30 3A  82 20 58 00 D3 09 9E 07  | X.1.10:. X.....|
000005A0: 3A 8B 20 52 33 20 A7 20  81 20 57 42 B2 31 20 A4  |:. R3 . . WB.1 .|
000005B0: 20 48 42 3A 98 53 45 2C  22 20 22 54 25 28 57 42  | HB:.SE," "T%(WB|
000005C0: 29 52 24 22 20 22 53 25  28 57 42 29 52 24 3B 3A  |)R$" "S%(WB)R$;:|
000005D0: 82 57 42 00 05 0A A3 07  8B 52 34 A7 CE 23 28 52  |.WB......R4..#(R|
000005E0: 41 29 3A CD 23 28 52 41  29 2C 28 22 52 41 A2 22  |A):.#(RA),("RA."|
000005F0: AA 4E 41 24 29 2C 4C 28  52 53 29 2C 44 28 44 52  |.NA$),L(RS),D(DR|
00000600: 28 52 56 29 29 00 23 0A  A8 07 81 58 B2 31 A4 48  |(RV)).#....X.1.H|
00000610: 46 3A 98 53 45 2C 4D 46  25 28 58 29 3B 52 24 3B  |F:.SE,MF%(X);R$;|
00000620: 3A 82 58 00 3D 0A AD 07  53 50 B2 30 3A A0 20 53  |:.X.=...SP.0:. S|
00000630: 45 3A 56 4F B2 52 56 3A  8D 20 38 3A 8E 00 4D 0A  |E:VO.RV:. 8:..M.|
00000640: 60 09 8F 20 4C 4F 4E 47  20 53 4F 52 54 00 61 0A  |`.. LONG SORT.a.|
00000650: 65 09 54 B2 54 49 3A 8F  20 4B 45 59 42 20 49 4D  |e.T.TI:. KEYB IM|
00000660: 50 00 9B 0A 6A 09 55 46  B2 48 46 3A 48 46 B2 31  |P...j.UF.HF:HF.1|
00000670: 3A 81 58 B2 31 A4 53 46  25 28 57 4B 2C 30 29 3A  |:.X.1.SF%(WK,0):|
00000680: 8B 53 46 25 28 57 4B 2C  58 29 B1 48 46 54 A7 48  |.SF%(WK,X).HFT.H|
00000690: 46 B2 53 46 25 28 57 4B  2C 58 29 00 BB 0A 6F 09  |F.SF%(WK,X)...o.|
000006A0: 3A 82 20 58 3A 44 B2 B5  28 48 52 AD 32 29 3A 8F  |:. X:D..(HR.2):.|
000006B0: 20 44 3D 44 49 53 54 41  4E 43 45 00 CD 0A 74 09  | D=DISTANCE...t.|
000006C0: 81 20 52 52 B2 31 20 A4  20 48 52 AB 44 00 DF 0A  |. RR.1 . HR.D...|
000006D0: 79 09 45 31 B2 52 52 3A  45 32 B2 45 31 AA 44 00  |y.E1.RR:E2.E1.D.|
000006E0: F7 0A 7E 09 57 52 B2 50  4F 25 28 45 32 2C 57 4B  |..~.WR.PO%(E2,WK|
000006F0: 29 3A 8D 34 32 30 30 00  33 0B 83 09 3A 46 32 24  |):.4200.3...:F2$|
00000700: B2 22 22 3A 81 20 58 B2  31 20 A4 20 53 46 25 28  |."":. X.1 . SF%(|
00000710: 57 4B 2C 30 29 3A 46 32  24 B2 46 32 24 AA 46 24  |WK,0):F2$.F2$.F$|
00000720: 28 53 46 25 28 57 4B 2C  58 29 29 AA 22 20 22 3A  |(SF%(WK,X))." ":|
00000730: 82 20 58 00 4B 0B 88 09  57 52 B2 50 4F 25 28 45  |. X.K...WR.PO%(E|
00000740: 31 2C 57 4B 29 3A 8D 34  32 30 30 00 87 0B 8D 09  |1,WK):.4200.....|
00000750: 3A 46 31 24 B2 22 22 3A  81 20 58 B2 31 20 A4 20  |:F1$."":. X.1 . |
00000760: 53 46 25 28 57 4B 2C 30  29 3A 46 31 24 B2 46 31  |SF%(WK,0):F1$.F1|
00000770: 24 AA 46 24 28 53 46 25  28 57 4B 2C 58 29 29 AA  |$.F$(SF%(WK,X)).|
00000780: 22 20 22 3A 82 20 58 00  97 0B 92 09 8B 20 41 53  |" ":. X...... AS|
00000790: 20 A7 20 32 34 35 37 00  B6 0B 94 09 3A 8B 20 41  | . 2457.....:. A|
000007A0: 4C 20 A7 20 45 B2 28 46  31 24 B3 46 32 24 29 3A  |L . E.(F1$.F2$):|
000007B0: 89 20 32 34 36 30 00 D7  0B 97 09 3A 20 45 B2 28  |. 2460.....: E.(|
000007C0: 20 C5 28 46 31 24 29 B3  C5 28 46 32 24 29 20 29  | .(F1$)..(F2$) )|
000007D0: 3A 89 20 32 34 36 30 00  F6 0B 99 09 3A 8B 20 41  |:. 2460.....:. A|
000007E0: 4C 20 A7 20 45 B2 28 46  31 24 B1 46 32 24 29 3A  |L . E.(F1$.F2$):|
000007F0: 89 20 32 34 36 30 00 17  0C 9A 09 3A 20 45 B2 28  |. 2460.....: E.(|
00000800: 20 C5 28 46 31 24 29 B1  C5 28 46 32 24 29 20 29  | .(F1$)..(F2$) )|
00000810: 3A 89 20 32 34 36 30 00  28 0C 9C 09 8B 20 45 B2  |:. 2460.(.... E.|
00000820: 30 20 A7 20 32 34 37 35  00 5C 0C A1 09 58 B2 50  |0 . 2475.\...X.P|
00000830: 4F 25 28 45 31 2C 57 4B  29 3A 50 4F 25 28 45 31  |O%(E1,WK):PO%(E1|
00000840: 2C 57 4B 29 B2 50 4F 25  28 45 32 2C 57 4B 29 3A  |,WK).PO%(E2,WK):|
00000850: 50 4F 25 28 45 32 2C 57  4B 29 B2 58 00 80 0C A6  |PO%(E2,WK).X....|
00000860: 09 8B 20 45 31 B1 44 20  A7 20 45 31 B2 45 31 AB  |.. E1.D . E1.E1.|
00000870: 44 3A 45 32 B2 45 31 AA  44 3A 89 20 32 34 33 30  |D:E2.E1.D:. 2430|
00000880: 00 89 0C AB 09 82 20 52  52 00 A4 0C B0 09 44 B2  |...... RR.....D.|
00000890: B5 28 44 AD 32 29 3A 99  20 44 3A 8B 20 44 20 A7  |.(D.2):. D:. D .|
000008A0: 32 34 32 30 00 AE 0C B5  09 48 46 B2 55 46 00 B4  |2420.....HF.UF..|
000008B0: 0C BA 09 8E 00 C5 0C C4  09 8F 20 53 48 4F 52 54  |.......... SHORT|
000008C0: 20 53 4F 52 54 00 02 0D  CE 09 99 22 11 28 4C 4F  | SORT......".(LO|
000008D0: 41 44 49 4E 47 20 4B 45  59 53 29 22 3A 8B 20 4B  |ADING KEYS)":. K|
000008E0: 46 B2 30 20 A7 20 4B 46  B2 31 3A 86 20 4B 46 24  |F.0 . KF.1:. KF$|
000008F0: 28 4D 52 29 3A 8F 20 4B  46 3D 46 4C 41 47 20 44  |(MR):. KF=FLAG D|
00000900: 49 4D 00 37 0D D3 09 54  54 B2 54 49 3A 81 20 57  |IM.7...TT.TI:. W|
00000910: 52 B2 31 A4 20 48 52 3A  8D 20 34 32 30 30 3A 4B  |R.1. HR:. 4200:K|
00000920: 46 24 28 57 52 29 B2 22  22 3A 50 4F 25 28 57 52  |F$(WR)."":PO%(WR|
00000930: 2C 57 4B 29 B2 57 52 00  78 0D D8 09 3A 20 81 20  |,WK).WR.x...: . |
00000940: 44 B2 31 20 A4 20 53 46  25 28 57 4B 2C 30 29 3A  |D.1 . SF%(WK,0):|
00000950: 4B 46 24 28 57 52 29 B2  4B 46 24 28 57 52 29 AA  |KF$(WR).KF$(WR).|
00000960: 46 24 28 53 46 25 28 57  4B 2C 44 29 29 AA 22 20  |F$(SF%(WK,D))." |
00000970: 22 3A 82 20 44 2C 57 52  00 93 0D DD 09 44 B2 B5  |":. D,WR.....D..|
00000980: 28 48 52 AD 32 29 3A 99  22 28 53 4F 52 54 49 4E  |(HR.2):."(SORTIN|
00000990: 47 29 22 00 A5 0D E2 09  81 20 52 52 B2 31 20 A4  |G)"...... RR.1 .|
000009A0: 20 48 52 AB 44 00 B8 0D  E7 09 3A 45 31 B2 52 52  | HR.D.....:E1.RR|
000009B0: 3A 45 32 B2 45 31 AA 44  00 C9 0D EC 09 3A 8B 20  |:E2.E1.D.....:. |
000009C0: 41 53 20 A7 20 32 35 35  35 00 01 0E F1 09 3A 20  |AS . 2555.....: |
000009D0: 8B 20 41 4C 20 A7 20 45  B2 28 4B 46 24 28 50 4F  |. AL . E.(KF$(PO|
000009E0: 25 28 45 31 2C 57 4B 29  29 B3 4B 46 24 28 50 4F  |%(E1,WK)).KF$(PO|
000009F0: 25 28 45 32 2C 57 4B 29  29 29 3A 89 20 32 35 36  |%(E2,WK))):. 256|
00000A00: 27 FF 81 07 FC 81 02 F2  F2 3F 4F F2 11 F2 08 8B  |'........?O.....|
00000A10: CA A8 A8 FD 8A 68 E8 F9  EC 48 FE DB 41 F1 F8 01  |.....h...H..A...|
00000A20: F4 CF E8 FB CA A8 A8 FD  8A 68 E8 F9 E4 08 FE DB  |.........h......|
00000A30: 41 F1 F8 01 F1 F5 8F F8  04 0C E4 AC D8 0D 91 A7  |A...............|
00000A40: C1 0E F2 21 48 8F 6F 6F  FF 8F FF FF FF 2F F2 F8  |...!H.oo...../..|
00000A50: F8 F6 8F F8 F8 F8 F1 FF  FF F4 B2 A2 B6 6D 6D CF  |.............mm.|
00000A60: DF 2E FD 1F FF 2F FF FF  AF 4D 7F 3F 3F 3F F3 3F  |...../...M.???.?|
00000A70: FF FF FF CF EF F6 FF FF  FF FF FF FF FF F7 FF 2A  |...............*|
00000A80: FF 22 04 B4 62 42 85 04  F2 52 84 52 F9 F7 B7 C9  |."..bB...R.R....|
00000A90: F9 F9 F8 FD F6 79 F9 FF  C7 18 F8 F7 FF 09 F9 F7  |.....y..........|
00000AA0: F9 98 F7 B7 C9 F9 F9 F8  F9 F9 DF F9 F8 98 79 B8  |..............y.|
00000AB0: 7F FF 9F 5F FF C8 DF D9  FF FD 98 F8 FC 19 F8 98  |..._............|
00000AC0: 79 F9 7F F0 BF 5F CF C8  DF FD 9F FF 09 F9 F7 F9  |y...._..........|
00000AD0: F9 F7 B7 C9 F9 DF FF 09  F9 F7 F9 F9 F7 B7 C9 FD  |................|
00000AE0: 9F FF 09 F9 F7 FF FF 2F  ED B4 3A 50 4F 25 28 45  |......./..:PO%(E|
00000AF0: 32 2C 57 4B 29 B2 58 00  0B 0F 0F 0A 3A 8B 20 45  |2,WK).X.....:. E|
00000B00: 31 B3 B2 44 20 A7 20 32  35 38 35 00 27 0F 14 0A  |1..D . 2585.'...|
00000B10: 3A 45 31 B2 45 31 AB 44  3A 45 32 B2 45 31 AA 44  |:E1.E1.D:E2.E1.D|
00000B20: 3A 89 20 32 35 34 30 00  30 0F 19 0A 82 20 52 52  |:. 2540.0.... RR|
00000B30: 00 4B 0F 1E 0A 44 B2 B5  28 44 AD 32 29 3A 99 44  |.K...D..(D.2):.D|
00000B40: 3A 8B 20 44 20 A7 20 32  35 33 30 00 51 0F 23 0A  |:. D . 2530.Q.#.|
00000B50: 8E 00 5F 0F 28 0A 8F 20  41 53 4B 20 41 4C 4C 00  |.._.(.. ASK ALL.|
00000B60: 77 0F 2D 0A 8D 20 32 38  30 30 3A 8F 20 4B 45 59  |w.-.. 2800:. KEY|
00000B70: 20 43 48 41 4E 47 45 00  A1 0F 32 0A 99 22 11 46  | CHANGE...2..".F|
00000B80: 49 45 4C 44 53 3A 22 3A  81 58 B2 31 A4 48 46 3A  |IELDS:":.X.1.HF:|
00000B90: 99 22 12 22 58 22 92 22  46 54 24 28 58 29 3A 82  |."."X"."FT$(X):.|
00000BA0: 58 00 EB 0F 37 0A 3A 99  22 59 4F 55 20 4D 41 59  |X...7.:."YOU MAY|
00000BB0: 20 43 48 41 4E 47 45 20  54 48 45 20 46 49 45 4C  | CHANGE THE FIEL|
00000BC0: 44 53 20 54 48 41 54 20  4B 45 59 20 4E 4F 22 57  |DS THAT KEY NO"W|
00000BD0: 4B AA 31 22 52 45 46 45  52 53 20 54 4F 20 49 46  |K.1"REFERS TO IF|
00000BE0: 20 59 4F 55 20 57 49 53  48 3A 22 00 08 10 38 0A  | YOU WISH:"...8.|
00000BF0: 3A 8D 20 33 35 30 30 3A  8F 20 41 53 4B 20 4B 45  |:. 3500:. ASK KE|
00000C00: 59 20 46 49 45 4C 44 53  00 37 10 3C 0A 99 22 11  |Y FIELDS.7.<..".|
00000C10: 49 4E 20 41 4C 50 48 41  42 45 54 49 43 20 4F 52  |IN ALPHABETIC OR|
00000C20: 44 45 52 3F 20 28 4E 3D  4E 55 4D 45 52 49 43 20  |DER? (N=NUMERIC |
00000C30: 4F 52 44 45 52 29 22 00  51 10 41 0A 3A 58 33 B2  |ORDER)".Q.A.:X3.|
00000C40: 31 3A 58 B2 41 4C 3A 8D  34 34 30 30 3A 41 4C B2  |1:X.AL:.4400:AL.|
00000C50: 58 00 8D 10 46 0A 8F 20  20 20 20 20 20 50 52 49  |X...F..      PRI|
00000C60: 4E 54 22 11 49 4E 20 41  53 43 45 4E 44 49 4E 47  |NT".IN ASCENDING|
00000C70: 20 4F 52 44 45 52 3F 20  28 4E 3D 44 45 53 43 45  | ORDER? (N=DESCE|
00000C80: 4E 44 49 4E 47 20 4F 52  44 45 52 29 22 00 B8 10  |NDING ORDER)"...|
00000C90: 48 0A 41 53 B2 31 3A 8F  20 20 20 20 20 20 20 3A  |H.AS.1:.       :|
00000CA0: 58 33 3D 31 3A 58 3D 41  53 3A 47 4F 53 55 42 34  |X3=1:X=AS:GOSUB4|
00000CB0: 34 30 30 3A 41 53 3D 58  00 F0 10 4A 0A 99 22 11  |400:AS=X...J..".|
00000CC0: 53 48 4F 52 54 20 46 49  4C 45 3F 20 28 4C 45 53  |SHORT FILE? (LES|
00000CD0: 53 20 54 48 41 4E 20 41  42 4F 55 54 22 B5 28 B8  |S THAN ABOUT".(.|
00000CE0: 28 30 29 AD 32 30 29 22  52 45 43 4F 52 44 53 29  |(0).20)"RECORDS)|
00000CF0: 00 0A 11 4B 0A 3A 58 33  B2 31 3A 58 B2 53 48 3A  |...K.:X3.1:X.SH:|
00000D00: 8D 34 34 30 30 3A 53 48  B2 58 00 10 11 50 0A 8E  |.4400:SH.X...P..|
00000D10: 00 21 11 F0 0A 8F 20 4B  45 59 20 43 48 41 4E 47  |.!.... KEY CHANG|
00000D20: 45 00 44 11 F5 0A 99 22  4B 45 59 53 3A 22 3A 81  |E.D...."KEYS:":.|
00000D30: 58 B2 30 A4 48 4B 3A 99  22 12 22 58 AA 31 22 9D  |X.0.HK:."."X.1".|
00000D40: 92 20 22 3B 00 77 11 F7  0A 3A 81 20 44 B2 31 A4  |. ";.w...:. D.1.|
00000D50: 53 46 25 28 58 2C 30 29  3A 99 46 54 24 28 53 46  |SF%(X,0):.FT$(SF|
00000D60: 25 28 58 2C 44 29 29 22  3A 22 3B 3A 82 44 3A 99  |%(X,D))":";:.D:.|
00000D70: 22 9D 20 22 3A 82 58 00  9D 11 FA 0A 99 22 11 57  |". ":.X......".W|
00000D80: 48 49 43 48 20 4B 45 59  20 44 4F 20 59 4F 55 20  |HICH KEY DO YOU |
00000D90: 57 41 4E 54 20 54 4F 20  55 53 45 3F 22 00 C4 11  |WANT TO USE?"...|
00000DA0: FF 0A 58 31 B2 31 3A 58  32 B2 48 4B AA 31 3A 58  |..X1.1:X2.HK.1:X|
00000DB0: B2 57 4B AA 31 3A 8D 34  38 30 30 3A 57 4B B2 58  |.WK.1:.4800:WK.X|
00000DC0: AB 31 3A 8E 00 D5 11 AC  0D 8F 20 41 53 4B 20 46  |.1:....... ASK F|
00000DD0: 49 45 4C 44 53 00 FC 11  C2 0D 99 22 11 48 4F 57  |IELDS......".HOW|
00000DE0: 20 4D 41 4E 59 20 46 49  45 4C 44 53 20 49 4E 20  | MANY FIELDS IN |
00000DF0: 4B 45 59 23 22 57 4B AA  31 22 3F 22 00 2A 12 C5  |KEY#"WK.1"?".*..|
00000E00: 0D 3A 58 B2 31 3A 58 32  B2 44 45 3A 58 B2 53 46  |.:X.1:X2.DE:X.SF|
00000E10: 25 28 57 4B 2C 30 29 3A  8D 20 34 38 30 30 3A 53  |%(WK,0):. 4800:S|
00000E20: 46 25 28 57 4B 2C 30 29  B2 58 00 60 12 C7 0D 3A  |F%(WK,0).X.`...:|
00000E30: 81 20 59 B2 31 20 A4 20  53 46 25 28 57 4B 2C 30  |. Y.1 . SF%(WK,0|
00000E40: 29 3A 58 24 B2 22 9D 22  AA CA 28 22 53 54 4E 44  |):X$."."..("STND|
00000E50: 52 44 54 48 54 48 22 2C  59 AC 32 AB 31 2C 32 29  |RDTHTH",Y.2.1,2)|
00000E60: 00 9A 12 C8 0D 3A 20 99  22 45 4E 54 45 52 20 46  |.....: ."ENTER F|
00000E70: 49 45 4C 44 20 4E 55 4D  42 45 52 20 4F 46 22 59  |IELD NUMBER OF"Y|
00000E80: 3B 58 24 22 20 46 49 45  4C 44 20 4F 46 20 4B 45  |;X$" FIELD OF KE|
00000E90: 59 23 22 57 4B AA 31 22  3F 22 00 CE 12 C9 0D 3A  |Y#"WK.1"?".....:|
00000EA0: 20 58 31 B2 31 3A 58 32  B2 48 46 3A 58 B2 53 46  | X1.1:X2.HF:X.SF|
00000EB0: 25 28 57 4B 2C 59 29 3A  8D 20 34 38 30 30 3A 53  |%(WK,Y):. 4800:S|
00000EC0: 46 25 28 57 4B 2C 59 29  B2 58 3A 82 20 59 00 E7  |F%(WK,Y).X:. Y..|
00000ED0: 12 D4 0D 44 45 B2 31 3A  44 4B B2 31 3A 81 20 58  |...DE.1:DK.1:. X|
00000EE0: B2 30 20 A4 20 48 4B 00  14 13 D9 0D 3A 8B 20 53  |.0 . HK.....:. S|
00000EF0: 46 25 28 58 2C 30 29 B1  44 45 20 A7 20 44 45 B2  |F%(X,0).DE . DE.|
00000F00: 53 46 25 28 58 2C 30 29  3A 8F 20 4D 41 58 20 44  |SF%(X,0):. MAX D|
00000F10: 45 50 54 48 00 54 13 DE  0D 3A 81 20 44 B2 31 20  |EPTH.T...:. D.1 |
00000F20: A4 20 53 46 25 28 58 2C  30 29 3A 8B 20 53 46 25  |. SF%(X,0):. SF%|
00000F30: 28 58 2C 44 29 B1 44 4B  20 A7 20 44 4B B2 53 46  |(X,D).DK . DK.SF|
00000F40: 25 28 58 2C 44 29 3A 8F  20 48 49 20 4B 59 20 46  |%(X,D):. HI KY F|
00000F50: 4C 44 20 23 00 5E 13 E3  0D 82 20 44 2C 58 00 64  |LD #.^.... D,X.d|
00000F60: 13 0F 0E 8E 00 78 13 68  10 8F 20 52 45 41 44 20  |.....x.h.. READ |
00000F70: 41 20 52 45 43 4F 52 44  00 A8 13 6D 10 8B 20 52  |A RECORD...m.. R|
00000F80: 33 20 A7 20 8D 20 34 33  30 30 3A 81 20 57 46 B2  |3 . . 4300:. WF.|
00000F90: 31 20 A4 20 48 46 3A 84  52 41 2C 46 24 28 57 46  |1 . HF:.RA,F$(WF|
00000FA0: 29 3A 82 20 57 46 3A 8E  00 E4 13 72 10 4C B2 31  |):. WF:....r.L.1|
00000FB0: 3A 81 58 B2 31 A4 48 46  3A CF 23 28 52 41 29 2C  |:.X.1.HF:.#(RA),|
00000FC0: 28 57 52 29 2C 28 4C 29  3A 84 52 41 2C 46 24 28  |(WR),(L):.RA,F$(|
00000FD0: 58 29 3A 4C B2 4C AA C3  28 46 24 28 58 29 29 AA  |X):L.L..(F$(X)).|
00000FE0: 32 3A 82 58 00 EA 13 77  10 8E 00 01 14 CC 10 8F  |2:.X...w........|
00000FF0: 20 50 4F 53 49 54 49 4F  4E 20 50 4F 49 4E 54 45  | POSITION POINTE|
00001000: 52 00 1E 14 D1 10 42 4C  B2 B5 28 28 57 52 AB 31  |R.....BL..((WR.1|
00001010: 29 AD 52 42 AA 2E 30 30  30 30 31 29 AA 31 00 55  |).RB..00001).1.U|
00001020: 14 D4 10 98 4B 4B 28 52  56 29 2C 22 55 31 3A 22  |....KK(RV),"U1:"|
00001030: 52 41 3B 44 52 28 52 56  29 3B 54 25 28 42 4C 29  |RA;DR(RV);T%(BL)|
00001040: 3B 53 25 28 42 4C 29 3A  56 4F B2 52 56 3A 8D 38  |;S%(BL):VO.RV:.8|
00001050: 3A 8B 45 A7 8E 00 90 14  DB 10 58 B2 28 57 52 AB  |:.E.......X.(WR.|
00001060: 31 29 AB 28 42 4C AB 31  29 AC 52 42 3A 8F 20 4E  |1).(BL.1).RB:. N|
00001070: 4F 2E 20 52 45 43 53 20  42 45 46 4F 52 20 54 48  |O. RECS BEFOR TH|
00001080: 49 53 20 49 4E 20 54 48  49 53 20 42 4C 4F 43 4B  |IS IN THIS BLOCK|
00001090: 00 B5 14 DF 10 42 50 B2  31 AA 52 53 AC 58 3A 98  |.....BP.1.RS.X:.|
000010A0: 4B 4B 28 52 56 29 2C 22  42 2D 50 3A 22 3B 52 41  |KK(RV),"B-P:";RA|
000010B0: 3B 42 50 3A 8E 00 C0 14  30 11 8F 20 59 45 53 3F  |;BP:....0.. YES?|
000010C0: 00 E4 14 35 11 58 24 B2  CA 28 22 59 4E 22 2C 31  |...5.X$..("YN",1|
000010D0: AB 28 28 58 AF 58 33 29  B2 30 29 2C 31 29 3A 8D  |.((X.X3).0),1):.|
000010E0: 34 35 30 30 00 1C 15 37  11 8B 20 58 24 B3 B1 22  |4500...7.. X$.."|
000010F0: 59 22 AF 58 24 B3 B1 22  4E 22 A7 99 22 12 50 4C  |Y".X$.."N"..".PL|
00001100: 45 41 53 45 20 41 4E 53  57 45 52 20 20 59 20 20  |EASE ANSWER  Y  |
00001110: 4F 52 20 20 4E 22 3A 89  34 34 30 30 00 4A 15 3A  |OR  N":.4400.J.:|
00001120: 11 58 24 B2 C8 28 58 24  2C 31 29 3A 58 B2 28 20  |.X$..(X$,1):X.( |
00001130: 58 AF 28 A8 20 58 33 29  20 B0 20 28 58 24 B2 22  |X.(. X3) . (X$."|
00001140: 59 22 29 AF 58 33 20 29  3A 8E 00 6F 15 94 11 99  |Y").X3 ):..o....|
00001150: 58 24 C8 28 4C 45 24 2C  C3 28 58 24 29 29 3B 3A  |X$.(LE$,.(X$));:|
00001160: 43 58 B2 31 3A 8F 20 47  41 52 44 20 49 4E 50 00  |CX.1:. GARD INP.|
00001170: A2 15 99 11 4D 24 B2 CA  28 58 24 AA 22 20 22 2C  |....M$..(X$." ",|
00001180: 43 58 2C 31 29 3A 99 22  12 22 4D 24 22 92 9D 22  |CX,1):."."M$".."|
00001190: 3B 3A A1 47 24 3A 8B 47  24 B2 22 22 A7 8D 34 35  |;:.G$:.G$.""..45|
000011A0: 36 35 00 D5 15 9E 11 3A  41 B2 C6 28 47 24 29 3A  |65.....:A..(G$):|
000011B0: 99 4D 24 22 9D 22 3B 3A  8B 28 41 20 AF 20 31 32  |.M$".";:.(A . 12|
000011C0: 37 29 B3 33 32 B0 43 58  B1 37 37 B0 41 B2 33 34  |7).32.CX.77.A.34|
000011D0: A7 34 35 32 30 00 0A 16  A3 11 3A 20 99 47 24 3B  |.4520.....: .G$;|
000011E0: 3A 58 24 B2 C8 28 58 24  2C 43 58 AB 31 29 AA 47  |:X$..(X$,CX.1).G|
000011F0: 24 AA CA 28 58 24 2C 43  58 AA 31 29 3A 43 58 B2  |$..(X$,CX.1):CX.|
00001200: 43 58 AA 31 3A 89 34 35  30 35 00 34 16 A8 11 3A  |CX.1:.4505.4...:|
00001210: 8B 41 B2 31 35 37 A7 8B  43 58 B1 31 A7 43 58 B2  |.A.157..CX.1.CX.|
00001220: 43 58 AB 31 3A 99 47 24  3B 3A 89 34 35 30 35 3A  |CX.1:.G$;:.4505:|
00001230: 8F 20 4C 46 00 5F 16 AD  11 3A 8B 41 B2 32 39 AF  |. LF._...:.A.29.|
00001240: 43 58 B3 B2 C3 28 58 24  29 A7 43 58 B2 43 58 AA  |CX...(X$).CX.CX.|
00001250: 31 3A 99 47 24 3B 3A 89  34 35 30 35 3A 52 49 00  |1:.G$;:.4505:RI.|
00001260: 75 16 B2 11 3A 8B 41 B2  31 33 A7 34 35 38 30 3A  |u...:.A.13.4580:|
00001270: 8F 20 52 45 54 00 AA 16  B7 11 3A 8B 41 B2 32 30  |. RET.....:.A.20|
00001280: A7 8B 43 58 B1 31 A7 99  47 24 3B 3A 58 24 B2 C8  |..CX.1..G$;:X$..|
00001290: 28 58 24 2C 43 58 AB 32  29 AA CA 28 58 24 2C 43  |(X$,CX.2)..(X$,C|
000012A0: 58 29 3A 43 58 B2 43 58  AB 31 00 C5 16 BC 11 3A  |X):CX.CX.1.....:|
000012B0: 8B 41 B2 31 34 38 AF C3  28 58 24 29 B3 37 38 A7  |.A.148..(X$).78.|
000012C0: 8D 34 35 35 35 00 EA 16  C1 11 3A 8B 41 B2 31 34  |.4555.....:.A.14|
000012D0: 37 A7 4C B2 C3 28 58 24  29 3A 8D 34 35 36 30 3A  |7.L..(X$):.4560:|
000012E0: 43 58 B2 31 3A 58 24 B2  22 22 00 F5 16 C6 11 3A  |CX.1:X$."".....:|
000012F0: 89 34 35 30 35 00 24 17  CB 11 58 24 B2 C8 28 58  |.4505.$...X$..(X|
00001300: 24 2C 43 58 AB 31 29 AA  22 20 22 AA CA 28 58 24  |$,CX.1)." "..(X$|
00001310: 2C 43 58 29 3A 99 47 24  22 20 9D 22 3B 3A 8E 3A  |,CX):.G$" .";:.:|
00001320: 8F 20 49 4E 00 4D 17 D0  11 99 C8 28 4C 45 24 2C  |. IN.M.....(LE$,|
00001330: 43 58 AB 31 29 C8 28 53  50 24 2C 4C 29 C8 28 4C  |CX.1).(SP$,L).(L|
00001340: 45 24 2C 4C 29 3B 3A 8E  3A 8F 20 43 4C 00 7B 17  |E$,L);:.:. CL.{.|
00001350: D5 11 99 22 12 22 4D 24  22 9D 92 22 3B 3A 81 57  |..."."M$"..";:.W|
00001360: B2 31 A4 35 30 3A A1 47  24 3A 8B 47 24 B3 B1 22  |.1.50:.G$:.G$.."|
00001370: 22 A7 99 4D 24 22 9D 22  3B 3A 8E 00 A1 17 DA 11  |"..M$".";:......|
00001380: 3A 82 57 3A 99 4D 24 22  9D 22 3B 3A 81 57 B2 31  |:.W:.M$".";:.W.1|
00001390: A4 35 30 3A A1 47 24 3A  8B 47 24 B3 B1 22 22 A7  |.50:.G$:.G$.."".|
000013A0: 8E 00 AF 17 DF 11 3A 82  57 3A 89 34 35 36 35 00  |......:.W:.4565.|
000013B0: D1 17 E4 11 8B C8 28 58  24 2C 31 29 B2 22 20 22  |......(X$,1)." "|
000013C0: A7 58 24 B2 CA 28 58 24  2C 32 29 3A 89 34 35 38  |.X$..(X$,2):.458|
000013D0: 30 00 FA 17 E9 11 3A 8B  C9 28 58 24 2C 31 29 B2  |0.....:..(X$,1).|
000013E0: 22 20 22 A7 58 24 B2 C8  28 58 24 2C C3 28 58 24  |" ".X$..(X$,.(X$|
000013F0: 29 AB 31 29 3A 89 34 35  38 35 00 03 18 EE 11 3A  |).1):.4585.....:|
00001400: 99 3A 8E 00 14 18 C0 12  8F 20 41 53 4B 20 4E 55  |.:....... ASK NU|
00001410: 4D 42 45 52 00 45 18 CA  12 58 24 B2 CA 28 C4 28  |MBER.E...X$..(.(|
00001420: 58 29 2C 32 29 3A 8D 34  35 30 30 3A 58 B2 C5 28  |X),2):.4500:X..(|
00001430: 58 24 29 3A 8B 58 B2 30  AF 58 24 B3 B1 22 30 22  |X$):.X.0.X$.."0"|
00001440: A7 34 38 31 32 00 58 18  CB 12 8B 58 B2 B1 58 31  |.4812.X....X..X1|
00001450: AF 58 B2 B3 58 32 A7 8E  00 86 18 CC 12 99 22 12  |.X..X2........".|
00001460: 49 4C 4C 45 47 41 4C 20  45 4E 54 52 59 20 2D 20  |ILLEGAL ENTRY - |
00001470: 50 4C 45 41 53 45 20 45  4E 54 45 52 20 41 20 4E  |PLEASE ENTER A N|
00001480: 55 4D 42 45 52 22 00 AE  18 CF 12 99 22 12 49 4E  |UMBER"......".IN|
00001490: 20 54 48 45 20 52 41 4E  47 45 20 4F 46 22 58 31  | THE RANGE OF"X1|
000014A0: 22 9D 20 54 4F 22 58 32  3A 89 34 38 30 30 00 BE  |". TO"X2:.4800..|
000014B0: 18 F0 23 8F 20 4C 4F 41  44 20 50 52 4F 47 00 F5  |..#. LOAD PROG..|
000014C0: 18 F1 23 A0 20 52 41 3A  8B 20 44 54 B2 31 20 AF  |..#. RA:. DT.1 .|
000014D0: 20 52 56 B2 31 20 A7 20  99 22 11 12 49 4E 53 45  | RV.1 . ."..INSE|
000014E0: 52 54 20 50 52 4F 47 52  41 4D 20 44 49 53 4B 22  |RT PROGRAM DISK"|
000014F0: 3A 8D 20 31 30 00 18 19  F5 23 98 4B 4B 28 30 29  |:. 10....#.KK(0)|
00001500: 2C 22 49 30 22 3A 99 22  11 28 4C 4F 41 44 49 4E  |,"I0":.".(LOADIN|
00001510: 47 20 22 58 24 22 29 22  00 4B 19 FA 23 9F 20 53  |G "X$")".K..#. S|
00001520: 45 2C 38 2C 53 45 2C 22  30 3A 22 AA 58 24 AA 22  |E,8,SE,"0:".X$."|
00001530: 2C 50 2C 52 22 3A 56 4F  B2 30 3A 8D 20 38 3A A0  |,P,R":VO.0:. 8:.|
00001540: 20 53 45 3A 8B 20 45 20  A7 20 8E 00 62 19 FF 23  | SE:. E . ..b..#|
00001550: 8B 20 4C 49 B3 32 35 33  20 A7 20 97 20 49 56 2C  |. LI.253 . . IV,|
00001560: 4C 49 00 74 19 04 24 93  20 22 30 3A 22 AA 58 24  |LI.t..$. "0:".X$|
00001570: 2C 38 3A 90 00 82 19 54  24 8F 20 4F 50 45 4E 20  |,8:....T$. OPEN |
00001580: 52 41 00 B1 19 59 24 8B  20 44 54 B2 31 20 AF 20  |RA...Y$. DT.1 . |
00001590: 52 56 B2 31 20 A7 20 99  22 11 12 49 4E 53 45 52  |RV.1 . ."..INSER|
000015A0: 54 20 44 41 54 41 20 44  49 53 4B 22 3A 8D 20 31  |T DATA DISK":. 1|
000015B0: 30 00 C8 19 5B 24 98 4B  4B 28 52 56 29 2C 22 49  |0...[$.KK(RV),"I|
000015C0: 22 44 52 24 28 52 56 29  00 FE 19 5E 24 9F 20 53  |"DR$(RV)...^$. S|
000015D0: 45 2C 44 56 28 52 56 29  2C 53 45 2C 44 52 24 28  |E,DV(RV),SE,DR$(|
000015E0: 52 56 29 AA 22 3A 44 42  22 AA C7 28 33 34 AA 31  |RV).":DB"..(34.1|
000015F0: 32 38 29 AA 4E 41 24 AA  22 2C 53 2C 52 22 00 19  |28).NA$.",S,R"..|
00001600: 1A 60 24 56 4F B2 52 56  3A 8D 20 38 3A A0 20 53  |.`$VO.RV:. 8:. S|
00001610: 45 3A 8B 20 45 20 A7 20  8E 00 37 1A 63 24 9F 20  |E:. E . ..7.c$. |
00001620: 52 41 2C 44 56 28 52 56  29 2C 52 41 2C 22 23 22  |RA,DV(RV),RA,"#"|
00001630: 3A 42 4C B2 30 3A 8E 00  00 00 E5 32              |:BL.0:.....2    |

....... 5/10/80  3122. .... 1100.X... 15
:. 15,8,15,"S0:ALPHA ORDER":."0:ALPHA OR
DER",8:......."CORRECTIONS?(.Y./.N.)":G1
$."YN":. 5:.......4,4:.4:.".";:.:..J....
G$:.V.1.C(G1$).1:.G$..J(G1$."I",V,1)..V:
.5.P..........KK(VO),E,E$,S,T:.E.2......
.."DISK ERROR:"E;E$;S;T.%...."..R.EADY?"
:G1$."R":.5:..0.... MAIN.@.... SAVE BOOK
.P.... LONG SORT.A.... SHORT SORT.O.... 
ASK ALL...... KEY CHANGE...#.. ASK FIELD
S...*.. READ A RECORD...+.. POSITION POI
NTER.G.,.. YES?.X.1.. ASK NUMBER...L.. M
AIN...M.. LI.253 . . IV,LI.3...N.. 9300.
$.Q..".        .ALPHA ORDER".A.V..".THIS
 PROGRAM IS FOR PUTTING A FILE IN ALPHAB
ETICAL ";.~.W.."OR NUMERICAL ORDER.  "..
.[.."IT CAN BE USED AFTER FILE CALCULATI
ONS ";...`.."OR WHEN YOU WANT A PARTICUL
AR KEY TO REFER TO ";...E.."A NEW SET OF
 FIELDS.".".G.. KI . . X.1.HR:KF$(X)."":
.X.P.J.."CONTINUE?":X.1:X3.1:. 4400:. X.
0 . 1150.B.T.:. 2600:. ASK...Y.:SP.1:. S
H.1 . 2400,2500:. LONG,SHORT...{.RR.0:. 
1900:.".....":. SAVE BK.P.~.X$."FILE MEN
U":. 9200:. 1150...L.. SAVE BOOK...Q.  S
E:UK.WK:.".(SCRATCHING OLD BOOKKEEPING)"
.H.V.:.KK(RV),"S".DR$(RV).":DB.".NA$:VO.
RV:. 8:. E.1 . ....|.. SE,DV(RV),SE,DR$(
RV).":DB.".NA$.",S,W":VO.RV:. 8:.E . ..L
....SE,MR;R$HR;R$RS;R$HB;R$HF;R$SF;R$RB;
R$HK;R$WK;R$DK;R$DE;R$MC;R$;...... WF.1 
. HF:.SE,Q$;FT$(WF);R$;:. WF. .... D.0.5
:. X.0.HK:.SE,SF%(X,D);R$;:. X,D.9...."(
SAVING POINTERS)".M...:. X.0.HK:. RR.1 .
 HR:.SE,PO%(RR,X);R$;:. RR:.X...... R3 .
 ."(SAVING BLOCK MAP)":. X.1.10:. X.S...
:. R3 . . WB.1 . HB:.SE," "T%(WB)R$" "S%
(WB)R$;:.WB......R4.N#(RA):M#(RA),("RA."
.NA$),L(RS),D(DR(RV)).#....X.1.HF:.SE,MF
%(X);R$;:.X.=...SP.0:  SE:VO.RV:. 8:..M.
`.. LONG SORT.A.E.T.TI:. KEYB IMP...J.UF
.HF:HF.1:.X.1.SF%(WK,0):.SF%(WK,X).HFT.H
F.SF%(WK,X)...O.:. X:D..(HR.2):. D=DISTA
NCE.M.T.. RR.1 . HR.D...Y.E1.RR:E2.E1.D.
..~.WR.PO%(E2,WK):.4200.3...:F2$."":. X.
1 . SF%(WK,0):F2$.F2$.F$(SF%(WK,X))." ":
. X.K...WR.PO%(E1,WK):.4200.....:F1$."":
. X.1 . SF%(WK,0):F1$.F1$.F$(SF%(WK,X)).
" ":. X...... AS . 2457.....:. AL . E.(F
1$.F2$):. 2460.W...: E.( E(F1$).E(F2$) )
:. 2460.....:. AL . E.(F1$.F2$):. 2460..
...: E.( E(F1$).E(F2$) ):. 2460.(.... E.
0 . 2475.\...X.PO%(E1,WK):PO%(E1,WK).PO%
(E2,WK):PO%(E2,WK).X...... E1.D . E1.E1.
D:E2.E1.D:. 2430...... RR.....D..(D.2):.
 D:. D .2420.....HF.UF.......E.D.. SHORT
 SORT...N..".(LOADING KEYS)":. KF.0 . KF
.1:. KF$(MR):. KF=FLAG DIM.7.S.TT.TI:. W
R.1. HR:. 4200:KF$(WR)."":PO%(WR,WK).WR.
X.X.: . D.1 . SF%(WK,0):KF$(WR).KF$(WR).
F$(SF%(WK,D))." ":. D,WR.....D..(HR.2):.
"(SORTING)"...... RR.1 . HR.D.....:E1.RR
:E2.E1.D.I...:. AS . 2555.....: . AL . E
.(KF$(PO%(E1,WK)).KF$(PO%(E2,WK))):. 256
'........?O.....J....H...H..A....O..J...
.H......A...........X...A..!H.OO...../..
.............MMO...../...M???.?...O....
.......*."..BB...R.R...I.....Y..G.......
....I.........Y..._.H.Y........Y..._OH
...........I..........I......../..:PO%(E
2,WK).X.....:. E1..D . 2585.'...:E1.E1.D
:E2.E1.D:. 2540.0.... RR.K...D..(D.2):.D
:. D . 2530.Q.#..._.(.. ASK ALL.W.-.. 28
00:. KEY CHANGE...2..".FIELDS:":.X.1.HF:
."."X"."FT$(X):.X...7.:."YOU MAY CHANGE 
THE FIELDS THAT KEY NO"WK.1"REFERS TO IF
 YOU WISH:"...8.:. 3500:. ASK KEY FIELDS
.7.<..".IN ALPHABETIC ORDER? (N=NUMERIC 
ORDER)".Q.A.:X3.1:X.AL:.4400:AL.X...F.. 
     PRINT".IN ASCENDING ORDER? (N=DESCE
NDING ORDER)"...H.AS.1:.       :X3=1:X=A
S:GOSUB4400:AS=X...J..".SHORT FILE? (LES
S THAN ABOUT".(.(0).20)"RECORDS)...K.:X3
.1:X.SH:.4400:SH.X...P...!.... KEY CHANG
E.D...."KEYS:":.X.0.HK:."."X.1".. ";.W..
.:. D.1.SF%(X,0):.FT$(SF%(X,D))":";:.D:.
". ":.X......".WHICH KEY DO YOU WANT TO 
USE?".D...X1.1:X2.HK.1:X.WK.1:.4800:WK.X
.1:..U.... ASK FIELDS...B..".HOW MANY FI
ELDS IN KEY#"WK.1"?".*.E.:X.1:X2.DE:X.SF
%(WK,0):. 4800:SF%(WK,0).X.`.G.:. Y.1 . 
SF%(WK,0):X$.".".J("STNDRDTHTH",Y.2.1,2)
...H.: ."ENTER FIELD NUMBER OF"Y;X$" FIE
LD OF KEY#"WK.1"?".N.I.: X1.1:X2.HF:X.SF
%(WK,Y):. 4800:SF%(WK,Y).X:. Y...T.DE.1:
DK.1:. X.0 . HK...Y.:. SF%(X,0).DE . DE.
SF%(X,0):. MAX DEPTH.T...:. D.1 . SF%(X,
0):. SF%(X,D).DK . DK.SF%(X,D):. HI KY F
LD #.^.... D,X.D.....X.H.. READ A RECORD
...M.. R3 . . 4300:. WF.1 . HF:.RA,F$(WF
):. WF:....R.L.1:.X.1.HF:O#(RA),(WR),(L)
:.RA,F$(X):L.L.C(F$(X)).2:.X...W.....L..
 POSITION POINTER...Q.BL..((WR.1).RB..00
001).1.U.T..KK(RV),"U1:"RA;DR(RV);T%(BL)
;S%(BL):VO.RV:.8:.E.......X.(WR.1).(BL.1
).RB:. NO. RECS BEFOR THIS IN THIS BLOCK
.....BP.1.RS.X:.KK(RV),"B-P:";RA;BP:....
0.. YES?...5.X$.J("YN",1.((X.X3).0),1):.
4500...7.. X$.."Y".X$.."N"..".PLEASE ANS
WER  Y  OR  N":.4400.J.:.X$.H(X$,1):X.( 
X.(. X3) . (X$."Y").X3 ):..O....X$H(LE$,
C(X$));:CX.1:. GARD INP.....M$.J(X$." ",
CX,1):."."M$"..";:.G$:.G$.""..4565.U...:
A.F(G$):.M$".";:.(A . 127).32.CX.77.A.34
.4520.....: .G$;:X$.H(X$,CX.1).G$.J(X$,C
X.1):CX.CX.1:.4505.4...:.A.157..CX.1.CX.
CX.1:.G$;:.4505:. LF._...:.A.29.CX..C(X$
).CX.CX.1:.G$;:.4505:RI.U...:.A.13.4580:
. RET.....:.A.20..CX.1..G$;:X$.H(X$,CX.2
).J(X$,CX):CX.CX.1.E...:.A.148.C(X$).78.
.4555...A.:.A.147.L.C(X$):.4560:CX.1:X$.
""...F.:.4505.$.K.X$.H(X$,CX.1)." ".J(X$
,CX):.G$" .";:.:. IN.M.P..H(LE$,CX.1)H(S
P$,L)H(LE$,L);:.:. CL.{.U.."."M$"..";:.W
.1.50:.G$:.G$..""..M$".";:....Z.:.W:.M$"
.";:.W.1.50:.G$:.G$.."".......:.W:.4565.
Q....H(X$,1)." ".X$.J(X$,2):.4580.....:.
I(X$,1)." ".X$.H(X$,C(X$).1):.4585.....:
.:....... ASK NUMBER.E.J.X$.J(D(X),2):.4
500:X.E(X$):.X.0.X$.."0".4812.X.K..X..X1
.X..X2.....L..".ILLEGAL ENTRY - PLEASE E
NTER A NUMBER"...O..".IN THE RANGE OF"X1
". TO"X2:.4800....#. LOAD PROG....#  RA:
. DT.1 . RV.1 . ."..INSERT PROGRAM DISK"
:. 10....#.KK(0),"I0":.".(LOADING "X$")"
.K..#. SE,8,SE,"0:".X$.",P,R":VO.0:. 8: 
 SE:. E . ..B..#. LI.253 . . IV,LI.T..$.
 "0:".X$,8:....T$. OPEN RA...Y$. DT.1 . 
RV.1 . ."..INSERT DATA DISK":. 10.H.[$.K
K(RV),"I"DR$(RV)...^$. SE,DV(RV),SE,DR$(
RV).":DB".G(34.128).NA$.",S,R"...`$VO.RV
:. 8:  SE:. E . ..7.C$. RA,DV(RV),RA,"#"
:BL.0:.....2

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL