DATASORT

00000000: 01 08 13 08 01 00 99 C7  28 31 34 37 29 3B A3 31  |........(147);.1|
00000010: 30 29 3B 00 31 08 02 00  99 22 11 11 11 11 11 9E  |0);.1...."......|
00000020: 44 41 54 41 42 41 53 45  20 50 52 4F 47 52 41 4D  |DATABASE PROGRAM|
00000030: 22 00 63 08 04 00 99 22  9F 11 11 11 11 20 20 43  |".c....".....  C|
00000040: 4F 50 59 52 49 47 48 54  20 47 45 4D 49 4E 49 20  |OPYRIGHT GEMINI |
00000050: 4D 41 52 4B 45 54 49 4E  47 20 4C 54 44 20 31 39  |MARKETING LTD 19|
00000060: 38 33 22 00 97 08 05 00  99 22 11 11 96 22 3B A3  |83"......"...";.|
00000070: 31 30 29 3B 22 39 20 53  41 4C 54 45 52 54 4F 4E  |10);"9 SALTERTON|
00000080: 20 52 4F 41 44 2C 22 3A  99 A3 31 30 29 3B 22 45  | ROAD,":..10);"E|
00000090: 58 4D 4F 55 54 48 22 00  BA 08 06 00 99 A3 31 30  |XMOUTH".......10|
000000A0: 29 3B 22 44 45 56 4F 4E  22 3A 99 A3 31 30 29 3B  |);"DEVON":..10);|
000000B0: 22 45 58 38 20 32 42 52  9A 22 00 D6 08 07 00 81  |"EX8 2BR."......|
000000C0: 49 B2 31 A4 33 30 30 30  3A A1 52 24 3A 8B 52 24  |I.1.3000:.R$:.R$|
000000D0: B2 22 22 A7 82 49 00 03  09 0A 00 86 41 24 28 31  |.""..I......A$(1|
000000E0: 32 29 2C 42 28 31 32 29  2C 43 24 28 31 32 29 2C  |2),B(12),C$(12),|
000000F0: 4B 28 31 32 29 2C 5A 24  28 31 32 29 2C 59 24 28  |K(12),Z$(12),Y$(|
00000100: 31 32 29 00 21 09 14 00  4D 24 B2 22 41 42 43 44  |12).!...M$."ABCD|
00000110: 45 46 4C 4D 50 53 55 57  22 3A 99 C7 28 31 34 37  |EFLMPSUW":..(147|
00000120: 29 00 4A 09 1E 00 99 22  49 4E 50 55 54 20 4E 41  |).J...."INPUT NA|
00000130: 4D 45 20 4F 46 20 44 41  54 41 42 41 53 45 20 46  |ME OF DATABASE F|
00000140: 49 4C 45 22 3B 3A 85 20  52 24 00 59 09 28 00 8B  |ILE";:. R$.Y.(..|
00000150: 20 52 24 B2 22 22 A7 33  30 00 80 09 2D 00 8B C3  | R$."".30...-...|
00000160: 28 52 24 29 B1 31 36 A7  99 22 46 49 4C 45 4E 41  |(R$).16.."FILENA|
00000170: 4D 45 20 54 4F 4F 20 4C  4F 4E 47 22 3A 89 33 30  |ME TOO LONG":.30|
00000180: 00 92 09 2E 00 9F 31 35  2C 38 2C 31 35 2C 22 49  |......15,8,15,"I|
00000190: 30 22 00 B0 09 32 00 9F  31 2C 38 2C 30 2C 52 24  |0"...2..1,8,0,R$|
000001A0: AA 22 2C 53 2C 52 22 3A  84 31 2C 46 3A 53 B2 30  |.",S,R":.1,F:S.0|
000001B0: 00 DF 09 3C 00 81 20 49  B2 31 20 A4 20 46 3A 84  |...<.. I.1 . F:.|
000001C0: 31 2C 41 24 28 49 29 2C  42 28 49 29 2C 43 24 28  |1,A$(I),B(I),C$(|
000001D0: 49 29 3A 53 B2 53 AA 42  28 49 29 3A 82 20 49 00  |I):S.S.B(I):. I.|
000001E0: 0D 0A 46 00 84 31 2C 4E  3A 54 B2 B8 28 58 29 AB  |..F..1,N:T..(X).|
000001F0: 31 30 32 34 3A 4D B2 B5  28 28 54 AD 28 28 46 AC  |1024:M..((T.((F.|
00000200: 34 29 AA 32 AA 53 29 AC  31 2E 33 29 29 00 2A 0A  |4).2.S).1.3)).*.|
00000210: 50 00 86 20 50 25 28 4D  29 2C 44 24 28 4D 2C 46  |P.. P%(M),D$(M,F|
00000220: 29 3A 8B 4E B2 30 A7 31  32 30 00 35 0A 5A 00 81  |):.N.0.120.5.Z..|
00000230: 49 B2 31 A4 4E 00 4E 0A  64 00 81 59 B2 31 A4 46  |I.1.N.N.d..Y.1.F|
00000240: 3A 84 31 2C 44 24 28 49  2C 59 29 3A 82 59 00 5D  |:.1,D$(I,Y):.Y.]|
00000250: 0A 6E 00 50 25 28 49 29  B2 49 3A 82 49 00 64 0A  |.n.P%(I).I:.I.d.|
00000260: 78 00 A0 31 00 83 0A 82  00 99 C7 28 31 34 37 29  |x..1.......(147)|
00000270: 3B A3 31 35 29 3B 22 11  11 9E 4D 45 4E 55 11 1E  |;.15);"...MENU..|
00000280: 22 3A 8C 00 A0 0A 8C 00  81 5A B2 31 A4 31 32 3A  |":.......Z.1.12:|
00000290: 87 20 52 24 3A 99 A3 31  30 29 3B 52 24 3A 82 5A  |. R$:..10);R$:.Z|
000002A0: 00 C9 0A 96 00 99 22 11  1D 1D 1D 1D 1D 1D 1D 96  |......".........|
000002B0: 22 3B 4E 3B 22 52 45 43  4F 52 44 53 20 49 4E 20  |";N;"RECORDS IN |
000002C0: 44 41 54 41 42 41 53 45  22 00 FD 0A A0 00 52 24  |DATABASE".....R$|
000002D0: B2 22 22 3A 85 22 05 11  11 1D 1D 1D 1D 1D 49 4E  |."":."........IN|
000002E0: 50 55 54 20 4D 45 4E 55  20 4F 50 54 49 4F 4E 20  |PUT MENU OPTION |
000002F0: 52 45 51 55 49 52 45 44  9A 22 3B 52 24 00 0F 0B  |REQUIRED.";R$...|
00000300: D2 00 8B C3 28 52 24 29  B3 B1 31 A7 31 33 30 00  |....(R$)..1.130.|
00000310: 2D 0B DC 00 8B 4E B2 30  20 AF 52 24 B3 B1 22 41  |-....N.0 .R$.."A|
00000320: 22 AF 52 24 B3 B1 22 45  22 A7 31 33 30 00 41 0B  |".R$.."E".130.A.|
00000330: E1 00 8B 4E B2 31 AF 52  24 B2 22 53 22 A7 31 33  |...N.1.R$."S".13|
00000340: 30 00 5F 0B E6 00 81 49  B2 31 A4 31 32 3A 8B CA  |0._....I.1.12:..|
00000350: 28 4D 24 2C 49 2C 31 29  B2 52 24 A7 32 37 30 00  |(M$,I,1).R$.270.|
00000360: 66 0B FA 00 82 49 00 6F  0B 04 01 89 31 33 30 00  |f....I.o....130.|
00000370: B2 0B 0E 01 91 49 8D 35  30 30 30 2C 32 38 30 30  |.....I.5000,2800|
00000380: 2C 34 30 30 30 2C 35 33  30 30 2C 39 39 30 30 2C  |,4000,5300,9900,|
00000390: 34 35 30 30 2C 33 30 30  30 2C 36 35 30 30 2C 33  |4500,3000,6500,3|
000003A0: 35 30 30 2C 36 30 30 30  2C 35 37 30 30 2C 38 30  |500,6000,5700,80|
000003B0: 30 30 00 BB 0B 18 01 89  31 33 30 00 F7 0B F0 0A  |00......130.....|
000003C0: 99 C7 28 31 34 37 29 3B  22 42 59 54 45 53 20 46  |..(147);"BYTES F|
000003D0: 52 45 45 3D 22 3B B8 28  58 29 3A 99 22 11 22 3B  |REE=";.(X):.".";|
000003E0: 4E 3B 22 52 45 43 4F 52  44 53 20 49 4E 20 44 41  |N;"RECORDS IN DA|
000003F0: 54 41 42 41 53 45 22 00  1A 0C FA 0A 99 22 11 4D  |TABASE"......".M|
00000400: 41 58 49 4D 55 4D 20 52  45 43 4F 52 44 53 20 41  |AXIMUM RECORDS A|
00000410: 4C 4C 4F 57 45 44 3D 22  3B 4D 00 2E 0C 0E 0B A1  |LLOWED=";M......|
00000420: 52 24 3A 8B 52 24 B2 22  22 A7 32 38 33 30 00 34  |R$:.R$."".2830.4|
00000430: 0C 18 0B 8E 00 40 0C B8  0B 99 C7 28 31 34 37 29  |.....@.....(147)|
00000440: 00 63 0C C2 0B 52 24 B2  22 22 3A 85 22 46 49 45  |.c...R$."":."FIE|
00000450: 4C 44 20 53 55 4D 4D 41  52 59 20 4F 4E 4C 59 22  |LD SUMMARY ONLY"|
00000460: 3B 52 24 00 74 0C CC 0B  8B 52 24 B2 22 4E 22 A7  |;R$.t....R$."N".|
00000470: 33 31 33 30 00 98 0C D6  0B 8B 52 24 B3 B1 22 59  |3130......R$.."Y|
00000480: 22 A7 99 22 11 52 45 50  4C 59 20 59 20 4F 52 20  |"..".REPLY Y OR |
00000490: 4E 22 3A 89 33 30 31 30  00 BF 0C E0 0B 8D 38 35  |N":.3010......85|
000004A0: 30 30 3A 53 B2 30 3A 85  22 11 49 4E 50 55 54 20  |00:S.0:.".INPUT |
000004B0: 46 49 45 4C 44 20 4E 55  4D 42 45 52 22 3B 53 00  |FIELD NUMBER";S.|
000004C0: EB 0C EA 0B 8B 53 B3 31  B0 53 B1 46 A7 99 22 11  |.....S.1.S.F..".|
000004D0: 49 4E 56 41 4C 49 44 20  46 49 45 4C 44 20 4E 55  |INVALID FIELD NU|
000004E0: 4D 42 45 52 22 3A 89 33  30 34 30 00 F3 0C F4 0B  |MBER":.3040.....|
000004F0: 54 B2 30 00 FE 0C FE 0B  81 59 B2 31 A4 4E 00 2E  |T.0......Y.1.N..|
00000500: 0D 03 0C 8B 54 B2 30 A7  99 C7 28 31 34 37 29 3B  |....T.0...(147);|
00000510: 22 9E 46 49 45 4C 44 20  53 55 4D 4D 41 52 59 20  |".FIELD SUMMARY |
00000520: 4F 46 20 22 3B 41 24 28  53 29 3B 22 9A 22 00 5E  |OF ";A$(S);".".^|
00000530: 0D 08 0C 99 59 3B A3 36  29 3B 44 24 28 50 25 28  |....Y;.6);D$(P%(|
00000540: 59 29 2C 53 29 3A 8B C3  28 44 24 28 50 25 28 59  |Y),S):..(D$(P%(Y|
00000550: 29 2C 53 29 29 B1 34 30  A7 54 B2 54 AA 31 00 73  |),S)).40.T.T.1.s|
00000560: 0D 12 0C 54 B2 54 AA 31  3A 8B 54 B3 32 33 A7 33  |...T.T.1:.T.23.3|
00000570: 31 32 30 00 87 0D 1C 0C  A1 52 24 3A 8B 52 24 B2  |120......R$:.R$.|
00000580: 22 22 A7 33 31 30 30 00  95 0D 21 0C 8B 52 24 B2  |"".3100...!..R$.|
00000590: 22 2A 22 A7 8E 00 9D 0D  26 0C 54 B2 30 00 A4 0D  |"*".....&.T.0...|
000005A0: 30 0C 82 59 00 AF 0D 35  0C 89 20 33 32 32 30 00  |0..Y...5.. 3220.|
000005B0: D9 0D 3A 0C 52 31 B2 31  3A 85 22 11 49 4E 50 55  |..:.R1.1:.".INPU|
000005C0: 54 20 53 54 41 52 54 20  52 45 43 4F 52 44 20 4E  |T START RECORD N|
000005D0: 55 4D 42 45 52 22 3B 52  31 00 0E 0E 44 0C 8B 52  |UMBER";R1...D..R|
000005E0: 31 B3 31 B0 52 31 B1 4E  A7 99 22 11 49 4E 56 41  |1.1.R1.N..".INVA|
000005F0: 4C 49 44 20 53 54 41 52  54 20 52 45 43 4F 52 44  |LID START RECORD|
00000600: 20 4E 55 4D 42 45 52 22  3A 89 33 31 33 30 00 36  | NUMBER":.3130.6|
00000610: 0E 4E 0C 52 32 B2 4E 3A  85 22 11 49 4E 50 55 54  |.N.R2.N:.".INPUT|
00000620: 20 45 4E 44 20 52 45 43  4F 52 44 20 4E 55 4D 42  | END RECORD NUMB|
00000630: 45 52 22 3B 52 32 00 6A  0E 58 0C 8B 52 32 B3 52  |ER";R2.j.X..R2.R|
00000640: 31 B0 52 32 B1 4E A7 99  22 11 49 4E 56 41 4C 49  |1.R2.N..".INVALI|
00000650: 44 20 45 4E 44 20 52 45  43 4F 52 44 20 4E 55 4D  |D END RECORD NUM|
00000660: 42 45 52 22 3A 89 33 31  35 30 00 73 0E 5D 0C 58  |BER":.3150.s.].X|
00000670: B2 52 31 00 87 0E 62 0C  8B 58 B3 52 31 B0 58 B1  |.R1...b..X.R1.X.|
00000680: 52 32 A7 33 31 39 30 00  95 0E 6C 0C 53 B2 58 3A  |R2.3190...l.S.X:|
00000690: 8D 37 35 30 30 00 A9 0E  76 0C A1 52 24 3A 8B 52  |.7500...v..R$:.R|
000006A0: 24 B2 22 22 A7 33 31 39  30 00 B7 0E 80 0C 8B 52  |$."".3190......R|
000006B0: 24 B2 22 2A 22 A7 8E 00  D1 0E 8A 0C 8B C6 28 52  |$."*".........(R|
000006C0: 24 29 B2 31 37 A7 58 B2  58 AB 31 3A 89 33 31 37  |$).17.X.X.1:.317|
000006D0: 30 00 EB 0E 8F 0C 8B C6  28 52 24 29 B2 32 39 A7  |0.......(R$).29.|
000006E0: 58 B2 58 AA 31 3A 89 33  31 37 30 00 FB 0E 91 0C  |X.X.1:.3170.....|
000006F0: 58 B2 58 AA 31 3A 89 33  31 37 30 00 25 0F 94 0C  |X.X.1:.3170.%...|
00000700: 52 24 B2 22 22 3A 85 22  11 41 4E 59 20 4D 4F 52  |R$."":.".ANY MOR|
00000710: 45 20 52 45 43 4F 52 44  53 20 54 4F 20 4C 49 53  |E RECORDS TO LIS|
00000720: 54 22 3B 52 24 00 36 0F  9E 0C 8B 20 52 24 B2 22  |T";R$.6.... R$."|
00000730: 4E 22 20 A7 20 8E 00 4A  0F A8 0C 8B 20 52 24 B2  |N" . ..J.... R$.|
00000740: 22 59 22 20 A7 20 33 30  30 30 00 65 0F B2 0C 99  |"Y" . 3000.e....|
00000750: 22 11 52 45 50 4C 59 20  59 20 4F 52 20 4E 22 3A  |".REPLY Y OR N":|
00000760: 89 33 32 32 30 00 76 0F  AC 0D 9F 32 2C 34 3A 99  |.3220.v....2,4:.|
00000770: C7 28 31 34 37 29 00 99  0F B1 0D 52 24 B2 22 22  |.(147).....R$.""|
00000780: 3A 85 22 46 49 45 4C 44  20 53 55 4D 4D 41 52 59  |:."FIELD SUMMARY|
00000790: 20 4F 4E 4C 59 22 3B 52  24 00 AA 0F B6 0D 8B 52  | ONLY";R$......R|
000007A0: 24 B2 22 4E 22 A7 33 35  36 30 00 CE 0F C0 0D 8B  |$."N".3560......|
000007B0: 52 24 B3 B1 22 59 22 A7  99 22 11 52 45 50 4C 59  |R$.."Y"..".REPLY|
000007C0: 20 59 20 4F 52 20 4E 22  3A 89 33 35 30 35 00 F5  | Y OR N":.3505..|
000007D0: 0F CA 0D 8D 38 35 30 30  3A 53 B2 30 3A 85 22 11  |....8500:S.0:.".|
000007E0: 49 4E 50 55 54 20 46 49  45 4C 44 20 4E 55 4D 42  |INPUT FIELD NUMB|
000007F0: 45 52 22 3B 53 00 21 10  CF 0D 8B 53 B3 31 B0 53  |ER";S.!....S.1.S|
00000800: B1 46 A7 99 22 11 49 4E  56 41 4C 49 44 20 46 49  |.F..".INVALID FI|
00000810: 45 4C 44 20 4E 55 4D 42  45 52 22 3A 89 33 35 33  |ELD NUMBER":.353|
00000820: 30 00 42 10 D4 0D 98 32  2C 22 46 49 45 4C 44 20  |0.B....2,"FIELD |
00000830: 53 55 4D 4D 41 52 59 20  4F 46 20 22 3B 41 24 28  |SUMMARY OF ";A$(|
00000840: 53 29 00 70 10 DE 0D 81  59 B2 31 A4 4E 3A 98 32  |S).p....Y.1.N:.2|
00000850: 2C 59 3B A3 35 29 3B 44  24 28 50 25 28 59 29 2C  |,Y;.5);D$(P%(Y),|
00000860: 53 29 3A A1 52 24 3A 8B  52 24 B2 22 22 A7 82 59  |S):.R$:.R$.""..Y|
00000870: 00 7A 10 E3 0D 89 33 36  32 30 00 A4 10 E8 0D 52  |.z....3620.....R|
00000880: 31 B2 31 3A 85 22 11 49  4E 50 55 54 20 53 54 41  |1.1:.".INPUT STA|
00000890: 52 54 20 52 45 43 4F 52  44 20 4E 55 4D 42 45 52  |RT RECORD NUMBER|
000008A0: 22 3B 52 31 00 D9 10 F2  0D 8B 52 31 B3 31 B0 52  |";R1......R1.1.R|
000008B0: 31 B1 4E A7 99 22 11 49  4E 56 41 4C 49 44 20 53  |1.N..".INVALID S|
000008C0: 54 41 52 54 20 52 45 43  4F 52 44 20 4E 55 4D 42  |TART RECORD NUMB|
000008D0: 45 52 22 3A 89 33 35 36  30 00 01 11 FC 0D 52 32  |ER":.3560.....R2|
000008E0: B2 4E 3A 85 22 11 49 4E  50 55 54 20 45 4E 44 20  |.N:.".INPUT END |
000008F0: 52 45 43 4F 52 44 20 4E  55 4D 42 45 52 22 3B 52  |RECORD NUMBER";R|
00000900: 32 00 0F 11 06 0E 81 20  59 B2 52 31 A4 52 32 00  |2...... Y.R1.R2.|
00000910: 29 11 0B 0E 98 32 2C A3  31 35 29 3B 22 52 45 43  |)....2,.15);"REC|
00000920: 4F 52 44 20 22 3B 59 3A  99 00 50 11 10 0E 81 5A  |ORD ";Y:..P....Z|
00000930: B2 31 A4 46 3A 98 32 2C  41 24 28 5A 29 3B 22 3A  |.1.F:.2,A$(Z);":|
00000940: 22 3B 44 24 28 50 25 28  59 29 2C 5A 29 3A 82 5A  |";D$(P%(Y),Z):.Z|
00000950: 00 62 11 1A 0E A1 52 24  3A 8B 52 24 B2 22 22 A7  |.b....R$:.R$."".|
00000960: 82 59 00 8C 11 24 0E 52  24 B2 22 22 3A 85 22 11  |.Y...$.R$."":.".|
00000970: 41 4E 59 20 4D 4F 52 45  20 52 45 43 4F 52 44 53  |ANY MORE RECORDS|
00000980: 20 54 4F 20 4C 49 53 54  22 3B 52 24 00 9F 11 2E  | TO LIST";R$....|
00000990: 0E 8B 20 52 24 B2 22 4E  22 A7 20 A0 32 3A 8E 00  |.. R$."N". .2:..|
000009A0: B2 11 38 0E 8B 20 52 24  B2 22 59 22 A7 20 33 35  |..8.. R$."Y". 35|
000009B0: 30 35 00 CD 11 42 0E 99  22 11 52 45 50 4C 59 20  |05...B..".REPLY |
000009C0: 59 20 4F 52 20 4E 22 3A  89 33 36 32 30 00 D9 11  |Y OR N":.3620...|
000009D0: A0 0F 99 C7 28 31 34 37  29 00 FF 11 A5 0F 52 24  |....(147).....R$|
000009E0: B2 22 22 3A 85 22 54 4F  54 41 4C 28 54 29 20 4F  |."":."TOTAL(T) O|
000009F0: 52 20 55 50 44 41 54 45  28 55 29 22 3B 52 24 00  |R UPDATE(U)";R$.|
00000A00: 2B 12 AA 0F 8B 52 24 B3  B1 22 55 22 AF 52 24 B3  |+....R$.."U".R$.|
00000A10: B1 22 54 22 A7 99 22 11  52 45 50 4C 59 20 54 20  |."T"..".REPLY T |
00000A20: 4F 52 20 55 22 3A 89 34  30 30 35 00 42 12 AF 0F  |OR U":.4005.B...|
00000A30: 8D 38 35 30 30 3A 8B 52  24 B2 22 55 22 A7 34 30  |.8500:.R$."U".40|
00000A40: 37 30 00 6C 12 B4 0F 53  B2 30 3A 85 22 11 49 4E  |70.l...S.0:.".IN|
00000A50: 50 55 54 20 46 49 45 4C  44 20 4E 55 4D 42 45 52  |PUT FIELD NUMBER|
00000A60: 20 54 4F 20 54 4F 54 41  4C 22 3B 53 00 9B 12 BE  | TO TOTAL";S....|
00000A70: 0F 8B 53 B1 46 20 B0 20  53 B3 30 A7 20 99 22 11  |..S.F . S.0. .".|
00000A80: 49 4E 56 41 4C 49 44 20  46 49 45 4C 44 20 4E 55  |INVALID FIELD NU|
00000A90: 4D 42 45 52 22 3A 89 34  30 32 30 00 CB 12 C8 0F  |MBER":.4020.....|
00000AA0: 8B 43 24 28 53 29 B3 B1  22 4E 22 A7 99 22 11 46  |.C$(S).."N"..".F|
00000AB0: 49 45 4C 44 22 3B 53 3B  22 4E 4F 54 20 4E 55 4D  |IELD";S;"NOT NUM|
00000AC0: 45 52 49 43 22 3A 89 34  30 32 30 00 F0 12 D2 0F  |ERIC":.4020.....|
00000AD0: 54 B2 30 3A 81 59 B2 31  A4 4E 3A 54 B2 54 AA C5  |T.0:.Y.1.N:T.T..|
00000AE0: 28 44 24 28 50 25 28 59  29 2C 53 29 29 3A 82 59  |(D$(P%(Y),S)):.Y|
00000AF0: 00 16 13 DC 0F 99 22 11  54 4F 54 41 4C 20 46 4F  |......".TOTAL FO|
00000B00: 52 20 46 49 45 4C 44 22  3B 53 3B 22 3D 22 3B 54  |R FIELD";S;"=";T|
00000B10: 3A 89 34 33 30 30 00 50  13 E6 0F 99 22 11 49 4E  |:.4300.P....".IN|
00000B20: 50 55 54 20 46 49 45 4C  44 20 4E 55 4D 42 45 52  |PUT FIELD NUMBER|
00000B30: 20 54 4F 20 55 53 45 22  3A 53 B2 30 3A 85 22 49  | TO USE":S.0:."I|
00000B40: 4E 20 43 41 4C 43 55 4C  41 54 49 4F 4E 22 3B 53  |N CALCULATION";S|
00000B50: 00 7D 13 F0 0F 8B 53 B1  46 20 B0 53 B3 31 A7 99  |.}....S.F .S.1..|
00000B60: 22 11 49 4E 56 41 4C 49  44 20 46 49 45 4C 44 20  |".INVALID FIELD |
00000B70: 4E 55 4D 42 45 52 22 3A  89 34 30 37 30 00 AD 13  |NUMBER":.4070...|
00000B80: FA 0F 8B 43 24 28 53 29  B3 B1 22 4E 22 A7 99 22  |...C$(S).."N".."|
00000B90: 11 46 49 45 4C 44 22 3B  53 3B 22 4E 4F 54 20 4E  |.FIELD";S;"NOT N|
00000BA0: 55 4D 45 52 49 43 22 3A  89 34 30 37 30 00 DF 13  |UMERIC":.4070...|
00000BB0: 04 10 57 B2 30 3A 85 22  11 49 4E 50 55 54 20 4E  |..W.0:.".INPUT N|
00000BC0: 55 4D 42 45 52 20 4F 46  20 46 49 45 4C 44 20 54  |UMBER OF FIELD T|
00000BD0: 4F 20 42 45 20 55 50 44  41 54 45 44 22 3B 57 00  |O BE UPDATED";W.|
00000BE0: 0B 14 0E 10 8B 57 B3 31  B0 57 B1 46 A7 99 22 11  |.....W.1.W.F..".|
00000BF0: 49 4E 56 41 4C 49 44 20  46 49 45 4C 44 20 4E 55  |INVALID FIELD NU|
00000C00: 4D 42 45 52 22 3A 89 34  31 30 30 00 3B 14 18 10  |MBER":.4100.;...|
00000C10: 8B 43 24 28 57 29 B3 B1  22 4E 22 A7 99 22 11 46  |.C$(W).."N"..".F|
00000C20: 49 45 4C 44 22 3B 57 3B  22 4E 4F 54 20 4E 55 4D  |IELD";W;"NOT NUM|
00000C30: 45 52 49 43 22 3A 89 34  31 30 30 00 65 14 22 10  |ERIC":.4100.e.".|
00000C40: 52 31 B2 31 3A 85 22 11  49 4E 50 55 54 20 53 54  |R1.1:.".INPUT ST|
00000C50: 41 52 54 20 52 45 43 4F  52 44 20 4E 55 4D 42 45  |ART RECORD NUMBE|
00000C60: 52 22 3B 52 31 00 94 14  2C 10 8B 52 31 B3 31 B0  |R";R1...,..R1.1.|
00000C70: 52 31 B1 4E A7 99 22 11  49 4E 56 41 4C 49 44 20  |R1.N..".INVALID |
00000C80: 52 45 43 4F 52 44 20 4E  55 4D 42 45 52 22 3A 89  |RECORD NUMBER":.|
00000C90: 34 31 33 30 00 BC 14 36  10 52 32 B2 4E 3A 85 22  |4130...6.R2.N:."|
00000CA0: 11 49 4E 50 55 54 20 45  4E 44 20 52 45 43 4F 52  |.INPUT END RECOR|
00000CB0: 44 20 4E 55 4D 42 45 52  22 3B 52 32 00 EC 14 40  |D NUMBER";R2...@|
00000CC0: 10 8B 52 32 B3 52 31 B0  52 32 B1 4E A7 99 22 11  |..R2.R1.R2.N..".|
00000CD0: 49 4E 56 41 4C 49 44 20  52 45 43 4F 52 44 20 4E  |INVALID RECORD N|
00000CE0: 55 4D 42 45 52 22 3A 89  34 31 35 30 00 1E 15 4A  |UMBER":.4150...J|
00000CF0: 10 47 B2 30 3A 85 22 11  49 4E 50 55 54 20 4E 55  |.G.0:.".INPUT NU|
00000D00: 4D 42 45 52 20 4F 46 20  4F 50 45 52 41 54 49 4F  |MBER OF OPERATIO|
00000D10: 4E 53 20 52 45 51 55 49  52 45 44 22 3B 47 00 57  |NS REQUIRED";G.W|
00000D20: 15 54 10 8B 47 B3 31 B0  47 B1 31 30 A7 99 22 11  |.T..G.1.G.10..".|
00000D30: 49 4E 56 41 4C 49 44 20  4E 4F 2E 20 4F 46 20 4F  |INVALID NO. OF O|
00000D40: 50 45 52 41 54 4F 52 53  28 4D 41 58 20 31 30 29  |PERATORS(MAX 10)|
00000D50: 22 3A 89 34 31 37 30 00  62 15 5E 10 81 59 B2 31  |":.4170.b.^..Y.1|
00000D60: A4 47 00 9D 15 68 10 99  22 11 49 4E 50 55 54 20  |.G...h..".INPUT |
00000D70: 4F 50 45 52 41 54 4F 52  22 3B 59 3B 22 2C 56 41  |OPERATOR";Y;",VA|
00000D80: 4C 55 45 20 46 4F 52 20  4F 50 45 52 41 54 4F 52  |LUE FOR OPERATOR|
00000D90: 22 3A 85 4F 24 28 59 29  2C 56 28 59 29 00 D3 15  |":.O$(Y),V(Y)...|
00000DA0: 72 10 8B 4F 24 28 59 29  B2 22 2A 22 B0 4F 24 28  |r..O$(Y)."*".O$(|
00000DB0: 59 29 B2 22 2D 22 B0 4F  24 28 59 29 B2 22 2B 22  |Y)."-".O$(Y)."+"|
00000DC0: B0 4F 24 28 59 29 B2 22  2F 22 A7 82 59 3A 89 34  |.O$(Y)."/"..Y:.4|
00000DD0: 32 34 30 00 FB 15 7C 10  99 22 11 4F 50 45 52 41  |240...|..".OPERA|
00000DE0: 54 4F 52 20 4D 55 53 54  20 42 45 20 2A 2F 2D 20  |TOR MUST BE */- |
00000DF0: 4F 52 20 2B 22 3A 89 34  32 30 30 00 08 16 90 10  |OR +":.4200.....|
00000E00: 81 59 B2 52 31 A4 52 32  00 1D 16 9A 10 54 B2 C5  |.Y.R1.R2.....T..|
00000E10: 28 44 24 28 50 25 28 59  29 2C 53 29 29 00 28 16  |(D$(P%(Y),S)).(.|
00000E20: A4 10 81 5A B2 31 A4 47  00 40 16 AE 10 8B 4F 24  |...Z.1.G.@....O$|
00000E30: 28 5A 29 B2 22 2A 22 A7  54 B2 54 AC 56 28 5A 29  |(Z)."*".T.T.V(Z)|
00000E40: 00 58 16 B3 10 8B 4F 24  28 5A 29 B2 22 2B 22 A7  |.X....O$(Z)."+".|
00000E50: 54 B2 54 AA 56 28 5A 29  00 70 16 B8 10 8B 4F 24  |T.T.V(Z).p....O$|
00000E60: 28 5A 29 B2 22 2F 22 A7  54 B2 54 AD 56 28 5A 29  |(Z)."/".T.T.V(Z)|
00000E70: 00 88 16 BD 10 8B 4F 24  28 5A 29 B2 22 2D 22 A7  |......O$(Z)."-".|
00000E80: 54 B2 54 AB 56 28 5A 29  00 90 16 C2 10 82 20 5A  |T.T.V(Z)...... Z|
00000E90: 00 AD 16 C3 10 54 24 B2  C4 28 54 29 3A 8B 54 B1  |.....T$..(T):.T.|
00000EA0: B2 30 A7 54 24 B2 CA 28  54 24 2C 32 29 00 C3 16  |.0.T$..(T$,2)...|
00000EB0: C4 10 44 24 28 50 25 28  59 29 2C 57 29 B2 54 24  |..D$(P%(Y),W).T$|
00000EC0: 3A 82 59 00 E8 16 CC 10  52 24 B2 22 22 3A 85 22  |:.Y.....R$."":."|
00000ED0: 11 41 4E 4F 54 48 45 52  20 43 41 4C 43 55 4C 41  |.ANOTHER CALCULA|
00000EE0: 54 49 4F 4E 22 3B 52 24  00 FB 16 D6 10 8B 20 52  |TION";R$...... R|
00000EF0: 24 B2 22 59 22 A7 20 34  30 30 30 00 0B 17 E0 10  |$."Y". 4000.....|
00000F00: 8B 20 52 24 B2 22 4E 22  A7 20 8E 00 26 17 EA 10  |. R$."N". ..&...|
00000F10: 99 22 11 52 45 50 4C 59  20 59 20 4F 52 20 4E 22  |.".REPLY Y OR N"|
00000F20: 3A 89 34 33 30 30 00 32  17 94 11 99 C7 28 31 34  |:.4300.2.....(14|
00000F30: 37 29 00 5D 17 9E 11 54  B2 30 3A 85 22 11 49 4E  |7).]...T.0:.".IN|
00000F40: 50 55 54 20 4E 4F 2E 20  4F 46 20 43 52 49 54 45  |PUT NO. OF CRITE|
00000F50: 52 49 41 28 4D 41 58 20  38 29 22 3B 54 00 8C 17  |RIA(MAX 8)";T...|
00000F60: A8 11 8B 54 B3 31 B0 54  B1 38 A7 99 22 11 49 4E  |...T.1.T.8..".IN|
00000F70: 56 41 4C 49 44 20 4E 4F  2E 20 4F 46 20 43 52 49  |VALID NO. OF CRI|
00000F80: 54 45 52 49 41 22 3A 89  34 35 31 30 00 96 17 AD  |TERIA":.4510....|
00000F90: 11 8D 38 35 30 30 00 A1  17 B2 11 81 59 B2 31 A4  |..8500......Y.1.|
00000FA0: 54 00 C8 17 BC 11 4B 28  59 29 B2 30 3A 85 22 11  |T.....K(Y).0:.".|
00000FB0: 45 4E 54 45 52 20 46 49  45 4C 44 20 4E 55 4D 42  |ENTER FIELD NUMB|
00000FC0: 45 52 22 3B 4B 28 59 29  00 FA 17 C6 11 8B 4B 28  |ER";K(Y)......K(|
00000FD0: 59 29 B3 31 B0 4B 28 59  29 B1 46 A7 99 22 11 49  |Y).1.K(Y).F..".I|
00000FE0: 4E 56 41 4C 49 44 20 46  49 45 4C 44 20 4E 55 4D  |NVALID FIELD NUM|
00000FF0: 42 45 52 22 3A 89 34 35  34 30 00 29 18 D0 11 99  |BER":.4540.)....|
00001000: 22 11 49 4E 50 55 54 20  4D 49 4E 20 41 4E 44 20  |".INPUT MIN AND |
00001010: 4D 41 58 20 56 41 4C 55  45 53 20 46 4F 52 20 22  |MAX VALUES FOR "|
00001020: 3B 41 24 28 4B 28 59 29  29 00 40 18 DA 11 8B 43  |;A$(K(Y)).@....C|
00001030: 24 28 4B 28 59 29 29 B2  22 53 22 A7 34 35 38 30  |$(K(Y))."S".4580|
00001040: 00 81 18 DC 11 47 28 59  29 B2 39 45 AA 33 37 3A  |.....G(Y).9E.37:|
00001050: 48 28 59 29 B2 39 45 AA  33 37 3A 85 47 28 59 29  |H(Y).9E.37:.G(Y)|
00001060: 2C 48 28 59 29 3A 8B 47  28 59 29 B2 39 45 AA 33  |,H(Y):.G(Y).9E.3|
00001070: 37 B0 48 28 59 29 B2 39  45 AA 33 37 A7 34 35 36  |7.H(Y).9E.37.456|
00001080: 30 00 8B 18 DD 11 89 34  35 39 30 00 CA 18 E4 11  |0......4590.....|
00001090: 59 24 28 59 29 B2 22 21  22 3A 5A 24 28 59 29 B2  |Y$(Y)."!":Z$(Y).|
000010A0: 22 21 22 3A 85 59 24 28  59 29 2C 5A 24 28 59 29  |"!":.Y$(Y),Z$(Y)|
000010B0: 3A 8B 59 24 28 59 29 B2  22 21 22 B0 5A 24 28 59  |:.Y$(Y)."!".Z$(Y|
000010C0: 29 B2 22 21 22 A7 34 35  36 30 00 D1 18 EE 11 82  |)."!".4560......|
000010D0: 59 00 E1 18 F8 11 99 C7  28 31 34 37 29 3A 57 B2  |Y.......(147):W.|
000010E0: 30 00 EC 18 02 12 81 55  B2 31 A4 4E 00 F7 18 0C  |0......U.1.N....|
000010F0: 12 81 5A B2 31 A4 54 00  0E 19 16 12 8B 43 24 28  |..Z.1.T......C$(|
00001100: 4B 28 5A 29 29 B2 22 53  22 A7 34 36 35 30 00 46  |K(Z))."S".4650.F|
00001110: 19 20 12 8B C5 28 44 24  28 50 25 28 55 29 2C 4B  |. ...(D$(P%(U),K|
00001120: 28 5A 29 29 29 B3 47 28  5A 29 B0 C5 28 44 24 28  |(Z))).G(Z)..(D$(|
00001130: 50 25 28 55 29 2C 4B 28  5A 29 29 29 B1 48 28 5A  |P%(U),K(Z))).H(Z|
00001140: 29 A7 34 37 32 30 00 50  19 25 12 89 34 36 36 30  |).4720.P.%..4660|
00001150: 00 84 19 2A 12 8B 44 24  28 50 25 28 55 29 2C 4B  |...*..D$(P%(U),K|
00001160: 28 5A 29 29 B3 59 24 28  5A 29 B0 44 24 28 50 25  |(Z)).Y$(Z).D$(P%|
00001170: 28 55 29 2C 4B 28 5A 29  29 B1 5A 24 28 5A 29 A7  |(U),K(Z)).Z$(Z).|
00001180: 34 37 32 30 00 8B 19 34  12 82 5A 00 9D 19 3E 12  |4720...4..Z...>.|
00001190: 53 B2 55 3A 8D 37 35 30  30 3A 57 B2 31 00 B1 19  |S.U:.7500:W.1...|
000011A0: 48 12 A1 52 24 3A 8B 52  24 B2 22 22 A7 34 36 38  |H..R$:.R$."".468|
000011B0: 30 00 BF 19 52 12 8B 52  24 B2 22 2A 22 A7 8E 00  |0...R..R$."*"...|
000011C0: C6 19 70 12 82 55 00 E3  19 75 12 8B 57 B2 30 A7  |..p..U...u..W.0.|
000011D0: 99 22 4E 4F 20 52 45 43  4F 52 44 53 20 46 4F 55  |."NO RECORDS FOU|
000011E0: 4E 44 22 00 06 1A 7A 12  52 24 B2 22 22 3A 85 22  |ND"...z.R$."":."|
000011F0: 11 41 4E 4F 54 48 45 52  20 53 45 4C 45 43 54 49  |.ANOTHER SELECTI|
00001200: 4F 4E 22 3B 52 24 00 1A  1A 84 12 8B 20 52 24 B2  |ON";R$...... R$.|
00001210: 22 59 22 20 A7 20 34 35  30 30 00 2B 1A 8E 12 8B  |"Y" . 4500.+....|
00001220: 20 52 24 B2 22 4E 22 20  A7 20 8E 00 46 1A 98 12  | R$."N" . ..F...|
00001230: 99 22 11 52 45 50 4C 59  20 59 20 4F 52 20 4E 22  |.".REPLY Y OR N"|
00001240: 3A 89 34 37 33 30 00 6C  1A 88 13 99 C7 28 31 34  |:.4730.l.....(14|
00001250: 37 29 3B A3 31 31 29 3B  22 9E 52 45 43 4F 52 44  |7);.11);".RECORD|
00001260: 20 41 44 44 49 54 49 4F  4E 11 9A 22 00 8C 1A 92  | ADDITION.."....|
00001270: 13 99 22 49 4E 50 55 54  20 4E 45 57 20 52 45 43  |.."INPUT NEW REC|
00001280: 4F 52 44 20 44 45 54 41  49 4C 53 22 00 A8 1A 9C  |ORD DETAILS"....|
00001290: 13 57 B2 4E AA 31 3A 50  25 28 4E AA 31 29 B2 4E  |.W.N.1:P%(N.1).N|
000012A0: AA 31 3A 8D 37 30 30 30  00 B9 1A AB 13 8B 20 46  |.1:.7000...... F|
000012B0: 24 B2 22 2A 22 20 A7 20  8E 00 C7 1A B0 13 53 B2  |$."*" . ......S.|
000012C0: 57 3A 8D 37 35 30 30 00  EF 1A C4 13 52 24 B2 22  |W:.7500.....R$."|
000012D0: 22 3A 85 22 11 52 45 43  4F 52 44 20 44 45 54 41  |":.".RECORD DETA|
000012E0: 49 4C 53 20 43 4F 52 52  45 43 54 22 3B 52 24 00  |ILS CORRECT";R$.|
000012F0: 19 1B CE 13 8B 52 24 B2  22 59 22 A7 4E B2 4E AA  |.....R$."Y".N.N.|
00001300: 31 3A 99 22 11 52 45 43  4F 52 44 20 53 41 56 45  |1:.".RECORD SAVE|
00001310: 44 22 3A 89 20 35 30 30  30 00 40 1B D8 13 8B 52  |D":. 5000.@....R|
00001320: 24 B2 22 4E 22 A7 99 22  11 52 45 43 4F 52 44 20  |$."N"..".RECORD |
00001330: 4E 4F 54 20 53 41 56 45  44 22 3A 89 35 30 30 30  |NOT SAVED":.5000|
00001340: 00 5B 1B E2 13 99 22 11  52 45 50 4C 59 20 59 20  |.[....".REPLY Y |
00001350: 4F 52 20 4E 22 3A 89 35  30 36 30 00 68 1B B4 14  |OR N":.5060.h...|
00001360: 99 20 C7 28 31 34 37 29  00 98 1B BE 14 53 B2 30  |. .(147).....S.0|
00001370: 3A 85 22 11 49 4E 50 55  54 20 52 45 43 4F 52 44  |:.".INPUT RECORD|
00001380: 20 4E 55 4D 42 45 52 20  54 4F 20 42 45 20 44 45  | NUMBER TO BE DE|
00001390: 4C 45 54 45 44 22 3B 53  00 C6 1B C8 14 8B 53 B3  |LETED";S......S.|
000013A0: 31 B0 53 B1 4E A7 20 99  22 11 49 4E 56 41 4C 49  |1.S.N. .".INVALI|
000013B0: 44 20 52 45 43 4F 52 44  20 4E 55 4D 42 45 52 22  |D RECORD NUMBER"|
000013C0: 3A 89 35 33 31 30 00 D0  1B D2 14 8D 37 35 30 30  |:.5310......7500|
000013D0: 00 EF 1B DC 14 85 22 11  4F 4B 20 54 4F 20 44 45  |......".OK TO DE|
000013E0: 4C 45 54 45 20 52 45 43  4F 52 44 22 3B 52 24 00  |LETE RECORD";R$.|
000013F0: 03 1C E6 14 8B 20 52 24  B2 22 4E 22 20 A7 20 35  |..... R$."N" . 5|
00001400: 34 37 30 00 2B 1C F0 14  8B 20 52 24 B3 B1 22 59  |470.+.... R$.."Y|
00001410: 22 20 A7 20 99 22 11 52  45 50 4C 59 20 59 20 4F  |" . .".REPLY Y O|
00001420: 52 20 4E 22 3A 89 20 35  33 34 30 00 37 1C FA 14  |R N":. 5340.7...|
00001430: 57 B2 50 25 28 53 29 00  44 1C 04 15 81 59 B2 31  |W.P%(S).D....Y.1|
00001440: A4 4E AB 31 00 5C 1C 09  15 8B 59 B1 B2 53 A7 50  |.N.1.\....Y..S.P|
00001450: 25 28 59 29 B2 50 25 28  59 AA 31 29 00 77 1C 0E  |%(Y).P%(Y.1).w..|
00001460: 15 8B 50 25 28 59 29 B1  57 A7 50 25 28 59 29 B2  |..P%(Y).W.P%(Y).|
00001470: 50 25 28 59 29 AB 31 00  7E 1C 18 15 82 59 00 8B  |P%(Y).1.~....Y..|
00001480: 1C 22 15 81 59 B2 57 A4  4E AB 31 00 AB 1C 2C 15  |."..Y.W.N.1...,.|
00001490: 81 5A B2 31 A4 46 3A 44  24 28 59 2C 5A 29 B2 44  |.Z.1.F:D$(Y,Z).D|
000014A0: 24 28 59 AA 31 2C 5A 29  3A 82 5A 00 B2 1C 36 15  |$(Y.1,Z):.Z...6.|
000014B0: 82 59 00 BC 1C 54 15 4E  B2 4E AB 31 00 E3 1C 5E  |.Y...T.N.N.1...^|
000014C0: 15 52 24 B2 22 22 3A 85  22 11 44 45 4C 45 54 45  |.R$."":.".DELETE|
000014D0: 20 41 4E 4F 54 48 45 52  20 52 45 43 4F 52 44 22  | ANOTHER RECORD"|
000014E0: 3B 52 24 00 F4 1C 68 15  8B 20 52 24 B2 22 4E 22  |;R$...h.. R$."N"|
000014F0: 20 A7 20 8E 00 08 1D 72  15 8B 20 52 24 B2 22 59  | . ....r.. R$."Y|
00001500: 22 20 A7 20 35 33 31 30  00 23 1D 7C 15 99 22 11  |" . 5310.#.|..".|
00001510: 52 45 50 4C 59 20 59 20  4F 52 20 4E 22 3A 89 35  |REPLY Y OR N":.5|
00001520: 34 37 30 00 48 1D 44 16  99 20 C7 28 31 34 37 29  |470.H.D.. .(147)|
00001530: 3B A3 31 30 29 3B 22 9E  52 45 43 4F 52 44 20 55  |;.10);".RECORD U|
00001540: 50 44 41 54 45 11 9A 22  00 78 1D 4E 16 53 B2 30  |PDATE..".x.N.S.0|
00001550: 3A 85 22 11 49 4E 50 55  54 20 52 45 43 4F 52 44  |:.".INPUT RECORD|
00001560: 20 4E 55 4D 42 45 52 20  54 4F 20 42 45 20 55 50  | NUMBER TO BE UP|
00001570: 44 41 54 45 44 22 3B 53  00 A5 1D 53 16 8B 53 B3  |DATED";S...S..S.|
00001580: 31 B0 53 B1 4E A7 99 22  11 49 4E 56 41 4C 49 44  |1.S.N..".INVALID|
00001590: 20 52 45 43 4F 52 44 20  4E 55 4D 42 45 52 22 3A  | RECORD NUMBER":|
000015A0: 89 35 37 31 30 00 DB 1D  58 16 8D 37 35 30 30 3A  |.5710...X..7500:|
000015B0: 99 22 11 49 4E 50 55 54  20 52 45 43 4F 52 44 20  |.".INPUT RECORD |
000015C0: 55 50 44 41 54 45 53 28  4F 52 20 48 49 54 20 52  |UPDATES(OR HIT R|
000015D0: 45 54 55 52 4E 29 22 3A  57 B2 53 00 E6 1D 6C 16  |ETURN)":W.S...l.|
000015E0: 8D 20 37 30 30 30 00 F7  1D 76 16 8B 20 46 24 B2  |. 7000...v.. F$.|
000015F0: 22 2A 22 20 A7 20 8E 00  2B 1E 80 16 52 24 B2 22  |"*" . ..+...R$."|
00001600: 22 3A 85 22 11 55 50 44  41 54 45 20 41 4E 4F 54  |":.".UPDATE ANOT|
00001610: 48 45 52 20 52 45 43 4F  52 44 22 3B 52 24 3A 8B  |HER RECORD";R$:.|
00001620: 52 24 B2 22 59 22 A7 35  37 31 30 00 4F 1E 85 16  |R$."Y".5710.O...|
00001630: 8B 52 24 B3 B1 22 4E 22  A7 99 22 11 52 45 50 4C  |.R$.."N"..".REPL|
00001640: 59 20 59 20 4F 52 20 4E  22 3A 89 35 37 36 30 00  |Y Y OR N":.5760.|
00001650: 55 1E 8A 16 8E 00 61 1E  70 17 99 C7 28 31 34 37  |U.....a.p...(147|
00001660: 29 00 92 1E A2 17 53 B2  30 3A 85 22 11 49 4E 50  |).....S.0:.".INP|
00001670: 55 54 20 4E 55 4D 42 45  52 20 4F 46 20 53 4F 52  |UT NUMBER OF SOR|
00001680: 54 20 4B 45 59 53 20 52  45 51 55 49 52 45 44 22  |T KEYS REQUIRED"|
00001690: 3B 53 00 C5 1E AC 17 8B  53 B3 31 B0 53 B1 46 A7  |;S......S.1.S.F.|
000016A0: 99 22 11 49 4E 56 41 4C  49 44 20 4E 55 4D 42 45  |.".INVALID NUMBE|
000016B0: 52 20 4F 46 20 53 4F 52  54 20 4B 45 59 53 22 3A  |R OF SORT KEYS":|
000016C0: 89 36 30 35 30 00 F4 1E  B6 17 52 24 B2 22 22 3A  |.6050.....R$."":|
000016D0: 85 22 11 41 53 43 45 4E  44 49 4E 47 28 41 29 20  |.".ASCENDING(A) |
000016E0: 4F 52 20 44 45 53 43 45  4E 44 49 4E 47 28 44 29  |OR DESCENDING(D)|
000016F0: 22 3B 52 24 00 20 1F C0  17 8B 52 24 B3 B1 22 41  |";R$. ....R$.."A|
00001700: 22 AF 52 24 B3 B1 22 44  22 A7 99 22 11 52 45 50  |".R$.."D"..".REP|
00001710: 4C 59 20 41 20 4F 52 20  44 22 3A 89 36 30 37 30  |LY A OR D":.6070|
00001720: 00 55 1F CA 17 8D 38 35  30 30 3A 99 22 11 11 49  |.U....8500:."..I|
00001730: 4E 50 55 54 20 46 49 45  4C 44 20 4E 55 4D 42 45  |NPUT FIELD NUMBE|
00001740: 52 53 20 57 48 49 43 48  20 59 4F 55 20 57 49 53  |RS WHICH YOU WIS|
00001750: 48 20 54 4F 22 00 7C 1F  D4 17 99 22 53 4F 52 54  |H TO".|...."SORT|
00001760: 20 4F 4E 28 49 4E 20 4F  52 44 45 52 20 4F 46 20  | ON(IN ORDER OF |
00001770: 49 4D 50 4F 52 54 41 4E  43 45 29 22 00 87 1F DE  |IMPORTANCE)"....|
00001780: 17 81 59 B2 31 A4 53 00  AB 1F E3 17 58 B2 30 3A  |..Y.1.S.....X.0:|
00001790: 99 22 11 53 4F 52 54 20  4B 45 59 22 3B 59 3B 22  |.".SORT KEY";Y;"|
000017A0: 2D 46 49 45 4C 44 22 3B  3A 85 58 00 DC 1F E8 17  |-FIELD";:.X.....|
000017B0: 8B 58 B3 31 B0 58 B1 46  A7 99 22 11 49 4E 56 41  |.X.1.X.F..".INVA|
000017C0: 4C 49 44 20 53 4F 52 54  20 46 49 45 4C 44 20 4E  |LID SORT FIELD N|
000017D0: 55 4D 42 45 52 22 3A 89  36 31 31 35 00 EA 1F ED  |UMBER":.6115....|
000017E0: 17 8B 59 B2 31 A7 36 31  36 30 00 F7 1F F2 17 81  |..Y.1.6160......|
000017F0: 5A B2 31 A4 59 AB 31 00  2A 20 FC 17 8B 58 B2 4B  |Z.1.Y.1.* ...X.K|
00001800: 28 5A 29 A7 99 22 11 46  49 45 4C 44 20 41 4C 52  |(Z)..".FIELD ALR|
00001810: 45 41 44 59 20 45 4E 54  45 52 45 44 20 41 53 20  |EADY ENTERED AS |
00001820: 4B 45 59 22 3A 89 36 31  31 35 00 31 20 06 18 82  |KEY":.6115.1 ...|
00001830: 5A 00 40 20 10 18 4B 28  59 29 B2 58 3A 82 20 59  |Z.@ ..K(Y).X:. Y|
00001840: 00 5B 20 24 18 99 C7 28  31 34 37 29 3B 22 53 4F  |.[ $...(147);"SO|
00001850: 52 54 20 42 45 47 49 4E  53 11 22 00 66 20 2E 18  |RT BEGINS.".f ..|
00001860: 81 59 B2 32 A4 4E 00 97  20 42 18 5A B2 59 AB 31  |.Y.2.N.. B.Z.Y.1|
00001870: 3A 81 45 B2 31 A4 53 3A  5A 24 28 45 29 B2 44 24  |:.E.1.S:Z$(E).D$|
00001880: 28 50 25 28 59 29 2C 4B  28 45 29 29 3A 82 45 3A  |(P%(Y),K(E)):.E:|
00001890: 54 B2 50 25 28 59 29 00  9F 20 4C 18 55 B2 31 00  |T.P%(Y).. L.U.1.|
000018A0: B0 20 51 18 8B 52 24 B2  22 44 22 A7 36 32 36 33  |. Q..R$."D".6263|
000018B0: 00 E2 20 56 18 8B 43 24  28 4B 28 55 29 29 B2 22  |.. V..C$(K(U))."|
000018C0: 4E 22 AF C5 28 5A 24 28  55 29 29 B1 C5 28 44 24  |N"..(Z$(U))..(D$|
000018D0: 28 50 25 28 5A 29 2C 4B  28 55 29 29 29 A7 36 33  |(P%(Z),K(U))).63|
000018E0: 30 30 00 0E 21 60 18 8B  43 24 28 4B 28 55 29 29  |00..!`..C$(K(U))|
000018F0: B2 22 53 22 AF 5A 24 28  55 29 B1 44 24 28 50 25  |."S".Z$(U).D$(P%|
00001900: 28 5A 29 2C 4B 28 55 29  29 A7 36 33 30 30 00 2E  |(Z),K(U)).6300..|
00001910: 21 6A 18 8B 5A 24 28 55  29 B3 B1 44 24 28 50 25  |!j..Z$(U)..D$(P%|
00001920: 28 5A 29 2C 4B 28 55 29  29 A7 36 32 37 30 00 49  |(Z),K(U)).6270.I|
00001930: 21 74 18 55 B2 55 AA 31  3A 8B 55 B3 B2 53 A7 36  |!t.U.U.1:.U..S.6|
00001940: 32 33 30 3A 89 36 33 30  30 00 7B 21 77 18 8B 43  |230:.6300.{!w..C|
00001950: 24 28 4B 28 55 29 29 B2  22 4E 22 AF C5 28 5A 24  |$(K(U))."N"..(Z$|
00001960: 28 55 29 29 B3 C5 28 44  24 28 50 25 28 5A 29 2C  |(U))..(D$(P%(Z),|
00001970: 4B 28 55 29 29 29 A7 36  33 30 30 00 A7 21 78 18  |K(U))).6300..!x.|
00001980: 8B 43 24 28 4B 28 55 29  29 B2 22 53 22 AF 5A 24  |.C$(K(U))."S".Z$|
00001990: 28 55 29 B3 44 24 28 50  25 28 5A 29 2C 4B 28 55  |(U).D$(P%(Z),K(U|
000019A0: 29 29 A7 36 33 30 30 00  C7 21 79 18 8B 5A 24 28  |)).6300..!y..Z$(|
000019B0: 55 29 B3 B1 44 24 28 50  25 28 5A 29 2C 4B 28 55  |U)..D$(P%(Z),K(U|
000019C0: 29 29 A7 36 32 37 30 00  E2 21 7A 18 55 B2 55 AA  |)).6270..!z.U.U.|
000019D0: 31 3A 8B 55 B3 B2 53 A7  36 32 36 33 3A 89 36 33  |1:.U..S.6263:.63|
000019E0: 30 30 00 04 22 7E 18 50  25 28 5A AA 31 29 B2 50  |00.."~.P%(Z.1).P|
000019F0: 25 28 5A 29 3A 5A B2 5A  AB 31 3A 8B 5A B1 30 A7  |%(Z):Z.Z.1:.Z.0.|
00001A00: 36 32 32 30 00 1C 22 9C  18 50 25 28 5A AA 31 29  |6220.."..P%(Z.1)|
00001A10: B2 54 3A 99 22 91 22 3B  59 3A 82 59 00 22 22 B0  |.T:.".";Y:.Y."".|
00001A20: 18 8E 00 5B 22 64 19 99  20 C7 28 31 34 37 29 3A  |...["d.. .(147):|
00001A30: 52 24 B2 22 22 3A 85 22  49 4E 50 55 54 20 4E 41  |R$."":."INPUT NA|
00001A40: 4D 45 20 4F 46 20 46 49  4C 45 20 54 4F 20 42 45  |ME OF FILE TO BE|
00001A50: 20 4D 45 52 47 45 44 22  3B 52 24 00 6B 22 6E 19  | MERGED";R$.k"n.|
00001A60: 8B 52 24 B2 22 22 A7 36  35 30 30 00 94 22 73 19  |.R$."".6500.."s.|
00001A70: 8B C3 28 52 24 29 B1 31  36 A7 99 22 46 49 4C 45  |..(R$).16.."FILE|
00001A80: 4E 41 4D 45 20 54 4F 4F  20 4C 4F 4E 47 22 3A 89  |NAME TOO LONG":.|
00001A90: 36 35 30 30 00 B9 22 78  19 9F 31 2C 38 2C 30 2C  |6500.."x..1,8,0,|
00001AA0: 52 24 AA 22 2C 53 2C 52  22 3A 84 31 2C 53 3A 8B  |R$.",S,R":.1,S:.|
00001AB0: 53 B3 B1 46 A7 36 36 31  30 00 C4 22 7D 19 81 59  |S..F.6610.."}..Y|
00001AC0: B2 31 A4 46 00 F4 22 82  19 84 31 2C 5A 24 28 31  |.1.F.."...1,Z$(1|
00001AD0: 29 2C 5A 2C 5A 24 28 32  29 3A 8B 5A B3 B1 42 28  |),Z,Z$(2):.Z..B(|
00001AE0: 59 29 B0 5A 24 28 32 29  B3 B1 43 24 28 59 29 A7  |Y).Z$(2)..C$(Y).|
00001AF0: 36 36 31 30 00 FB 22 8C  19 82 59 00 26 23 96 19  |6610.."...Y.&#..|
00001B00: 84 31 2C 53 3A 8B 53 B2  30 A7 99 22 4E 4F 20 52  |.1,S:.S.0.."NO R|
00001B10: 45 43 4F 52 44 53 20 54  4F 20 4D 45 52 47 45 22  |ECORDS TO MERGE"|
00001B20: 3A 89 36 36 32 30 00 54  23 A0 19 8B 4E AA 53 B1  |:.6620.T#...N.S.|
00001B30: 4D A7 99 22 4E 4F 54 20  45 4E 4F 55 47 48 20 53  |M.."NOT ENOUGH S|
00001B40: 50 41 43 45 20 46 4F 52  20 46 49 4C 45 22 3A 89  |PACE FOR FILE":.|
00001B50: 36 36 32 30 00 5F 23 AA  19 81 59 B2 31 A4 53 00  |6620._#...Y.1.S.|
00001B60: 7A 23 B4 19 81 5A B2 31  A4 46 3A 84 31 2C 44 24  |z#...Z.1.F:.1,D$|
00001B70: 28 4E AA 59 2C 5A 29 3A  82 5A 00 8D 23 BE 19 50  |(N.Y,Z):.Z..#..P|
00001B80: 25 28 4E AA 59 29 B2 4E  AA 59 3A 82 59 00 9D 23  |%(N.Y).N.Y:.Y..#|
00001B90: C8 19 4E B2 4E AA 53 3A  89 36 36 32 30 00 CD 23  |..N.N.S:.6620..#|
00001BA0: D2 19 99 22 46 49 4C 45  20 46 49 45 4C 44 53 20  |..."FILE FIELDS |
00001BB0: 49 4E 43 4F 4D 50 41 54  49 42 4C 45 2D 4D 45 52  |INCOMPATIBLE-MER|
00001BC0: 47 45 20 41 42 41 4E 44  4F 4E 45 44 22 00 D4 23  |GE ABANDONED"..#|
00001BD0: DC 19 A0 31 00 FA 23 E6  19 52 24 B2 22 22 3A 85  |...1..#..R$."":.|
00001BE0: 22 41 4E 4F 54 48 45 52  20 46 49 4C 45 20 54 4F  |"ANOTHER FILE TO|
00001BF0: 20 4D 45 52 47 45 22 3B  52 24 00 0E 24 F0 19 8B  | MERGE";R$..$...|
00001C00: 20 52 24 B2 22 59 22 20  A7 20 36 35 30 30 00 1F  | R$."Y" . 6500..|
00001C10: 24 FA 19 8B 20 52 24 B2  22 4E 22 20 A7 20 8E 00  |$... R$."N" . ..|
00001C20: 39 24 04 1A 99 22 52 45  50 4C 59 20 59 20 4F 52  |9$..."REPLY Y OR|
00001C30: 20 4E 22 3A 89 36 36 33  30 00 3F 24 58 1B 99 00  | N":.6630.?$X...|
00001C40: 4D 24 62 1B 81 20 5A B2  31 20 A4 20 46 00 65 24  |M$b.. Z.1 . F.e$|
00001C50: 6C 1B 99 20 41 24 28 5A  29 3B 3A 46 24 B2 22 22  |l.. A$(Z);:F$.""|
00001C60: 3A 85 20 46 24 00 76 24  71 1B 8B 20 46 24 B2 22  |:. F$.v$q.. F$."|
00001C70: 2A 22 20 A7 20 8E 00 8F  24 76 1B 8B 20 C3 28 46  |*" . ...$v.. .(F|
00001C80: 24 29 B3 B2 42 28 5A 29  20 A7 20 37 30 35 30 00  |$)..B(Z) . 7050.|
00001C90: C8 24 80 1B 99 22 11 49  4E 50 55 54 20 46 49 45  |.$...".INPUT FIE|
00001CA0: 4C 44 20 54 4F 4F 20 4C  4F 4E 47 2D 4D 41 58 22  |LD TOO LONG-MAX"|
00001CB0: 3B 42 28 5A 29 3B 22 43  48 41 52 41 43 54 45 52  |;B(Z);"CHARACTER|
00001CC0: 53 22 3A 89 37 30 32 30  00 00 25 8A 1B 8B C3 28  |S":.7020..%....(|
00001CD0: 46 24 29 B2 30 AF 49 B2  31 31 A7 99 22 91 22 3B  |F$).0.I.11..".";|
00001CE0: A3 28 C3 28 41 24 28 5A  29 29 AA 32 29 29 3B 44  |.(.(A$(Z)).2));D|
00001CF0: 24 28 50 25 28 57 29 2C  5A 29 3A 89 37 31 31 30  |$(P%(W),Z):.7110|
00001D00: 00 17 25 94 1B 8B 20 43  24 28 5A 29 B2 22 53 22  |..%... C$(Z)."S"|
00001D10: 20 A7 20 37 31 30 30 00  3C 25 A8 1B 54 B2 C5 28  | . 7100.<%..T..(|
00001D20: 46 24 29 3A 54 24 B2 C4  28 54 29 3A 8B 54 B1 B2  |F$):T$..(T):.T..|
00001D30: 30 A7 54 24 B2 CA 28 54  24 2C 32 29 00 4C 25 AD  |0.T$..(T$,2).L%.|
00001D40: 1B 8B 54 24 B2 46 24 A7  37 31 30 30 00 71 25 B2  |..T$.F$.7100.q%.|
00001D50: 1B 99 22 11 49 4E 56 41  4C 49 44 20 4E 55 4D 45  |..".INVALID NUME|
00001D60: 52 49 43 20 46 4F 52 4D  41 54 22 3A 89 37 30 32  |RIC FORMAT":.702|
00001D70: 30 00 84 25 BC 1B 44 24  28 50 25 28 57 29 2C 5A  |0..%..D$(P%(W),Z|
00001D80: 29 B2 46 24 00 8C 25 C6  1B 82 20 5A 00 92 25 D0  |).F$..%... Z..%.|
00001D90: 1B 8E 00 B5 25 4C 1D 99  C7 28 31 34 37 29 3B A3  |....%L...(147);.|
00001DA0: 31 35 29 3B 22 9E 52 45  43 4F 52 44 20 22 3B 53  |15);".RECORD ";S|
00001DB0: 3A 99 22 9A 22 00 E4 25  56 1D 81 59 B2 31 A4 46  |:."."..%V..Y.1.F|
00001DC0: 3A 99 22 9C 22 3B 41 24  28 59 29 3B 22 05 3A 1E  |:.".";A$(Y);".:.|
00001DD0: 22 3B 44 24 28 50 25 28  53 29 2C 59 29 3B 22 9A  |";D$(P%(S),Y);".|
00001DE0: 22 3A 82 59 00 EA 25 60  1D 8E 00 16 26 40 1F 99  |":.Y..%`....&@..|
00001DF0: C7 28 31 34 37 29 3B 4E  3B 22 52 45 43 4F 52 44  |.(147);N;"RECORD|
00001E00: 53 20 52 45 41 44 59 20  46 4F 52 20 57 52 49 54  |S READY FOR WRIT|
00001E10: 49 4E 47 22 3A 99 00 3F  26 4A 1F 52 24 B2 22 22  |ING":..?&J.R$.""|
00001E20: 3A 85 22 49 4E 50 55 54  20 46 49 4C 45 4E 41 4D  |:."INPUT FILENAM|
00001E30: 45 20 46 4F 52 20 57 52  49 54 45 22 3B 52 24 00  |E FOR WRITE";R$.|
00001E40: 51 26 54 1F 8B C3 28 52  24 29 B2 30 A7 38 30 31  |Q&T...(R$).0.801|
00001E50: 30 00 7A 26 59 1F 8B C3  28 52 24 29 B1 31 36 A7  |0.z&Y...(R$).16.|
00001E60: 99 22 46 49 4C 45 4E 41  4D 45 20 54 4F 4F 20 4C  |."FILENAME TOO L|
00001E70: 4F 4E 47 22 3A 89 38 30  31 30 00 9A 26 5E 1F 9F  |ONG":.8010..&^..|
00001E80: 31 2C 38 2C 31 2C 22 40  30 3A 22 AA 52 24 AA 22  |1,8,1,"@0:".R$."|
00001E90: 2C 53 2C 57 22 3A 98 31  2C 46 00 A5 26 68 1F 81  |,S,W":.1,F..&h..|
00001EA0: 5A B2 31 A4 46 00 C3 26  72 1F 98 31 2C 41 24 28  |Z.1.F..&r..1,A$(|
00001EB0: 5A 29 3A 98 31 2C 42 28  5A 29 3A 98 31 2C 43 24  |Z):.1,B(Z):.1,C$|
00001EC0: 28 5A 29 00 CA 26 7C 1F  82 5A 00 D3 26 81 1F 98  |(Z)..&|..Z..&...|
00001ED0: 31 2C 4E 00 DE 26 86 1F  81 59 B2 31 A4 4E 00 FB  |1,N..&...Y.1.N..|
00001EE0: 26 90 1F 81 5A B2 31 A4  46 3A 98 31 2C 44 24 28  |&...Z.1.F:.1,D$(|
00001EF0: 50 25 28 59 29 2C 5A 29  3A 82 5A 00 02 27 AE 1F  |P%(Y),Z):.Z..'..|
00001F00: 82 59 00 0B 27 B8 1F A0  31 3A 8E 00 2E 27 34 21  |.Y..'...1:...'4!|
00001F10: 99 C7 28 31 34 37 29 3B  A3 31 32 29 3B 22 9E 46  |..(147);.12);".F|
00001F20: 49 45 4C 44 20 53 55 4D  4D 41 52 59 11 22 00 56  |IELD SUMMARY.".V|
00001F30: 27 3E 21 99 22 11 1E 46  49 45 4C 44 20 4E 4F 2E  |'>!."..FIELD NO.|
00001F40: 22 3B A3 31 32 29 3B 22  96 46 49 45 4C 44 20 4E  |";.12);".FIELD N|
00001F50: 41 4D 45 9A 11 22 00 79  27 48 21 81 5A B2 31 A4  |AME..".y'H!.Z.1.|
00001F60: 46 3A 99 22 1D 1D 22 3B  5A 3B A3 31 32 29 3B 41  |F:."..";Z;.12);A|
00001F70: 24 28 5A 29 3A 82 5A 3A  8E 00 A4 27 AC 26 52 24  |$(Z):.Z:...'.&R$|
00001F80: B2 22 22 3A 85 22 11 11  1D 1D 1D 1D 1D 1D 4F 4B  |."":."........OK|
00001F90: 20 54 4F 20 45 58 49 54  20 50 52 4F 47 52 41 4D  | TO EXIT PROGRAM|
00001FA0: 22 3B 52 24 00 B2 27 B6  26 8B 52 24 B2 22 4E 22  |";R$..'.&.R$."N"|
00001FB0: A7 8E 00 C0 27 C0 26 8B  52 24 B2 22 59 22 A7 80  |....'.&.R$."Y"..|
00001FC0: 00 DA 27 CA 26 99 22 52  45 50 4C 59 20 59 20 4F  |..'.&."REPLY Y O|
00001FD0: 52 20 4E 22 3A 89 39 39  30 30 00 16 28 D4 26 83  |R N":.9900..(.&.|
00001FE0: 20 22 28 41 29 20 41 44  44 20 52 45 43 4F 52 44  | "(A) ADD RECORD|
00001FF0: 53 22 2C 22 28 42 29 20  42 59 54 45 53 20 46 52  |S","(B) BYTES FR|
00002000: 45 45 22 2C 22 28 43 29  20 43 41 4C 43 55 4C 41  |EE","(C) CALCULA|
00002010: 54 49 4F 4E 53 22 00 56  28 DE 26 83 20 22 28 44  |TIONS".V(.&. "(D|
00002020: 29 20 44 45 4C 45 54 45  20 52 45 43 4F 52 44 22  |) DELETE RECORD"|
00002030: 2C 22 28 45 29 20 45 58  49 54 20 50 52 4F 47 52  |,"(E) EXIT PROGR|
00002040: 41 4D 22 2C 22 28 46 29  20 46 49 4E 44 20 52 45  |AM","(F) FIND RE|
00002050: 43 4F 52 44 53 22 00 A1  28 E8 26 83 20 22 28 4C  |CORDS"..(.&. "(L|
00002060: 29 20 4C 49 53 54 20 52  45 43 4F 52 44 53 22 2C  |) LIST RECORDS",|
00002070: 22 28 4D 29 20 4D 45 52  47 45 20 46 49 4C 45 22  |"(M) MERGE FILE"|
00002080: 2C 22 28 50 29 20 50 52  49 4E 54 20 46 49 4C 45  |,"(P) PRINT FILE|
00002090: 22 2C 22 28 53 29 20 53  4F 52 54 20 46 49 4C 45  |","(S) SORT FILE|
000020A0: 22 00 CC 28 F2 26 83 20  22 28 55 29 20 55 50 44  |"..(.&. "(U) UPD|
000020B0: 41 54 45 20 52 45 43 4F  52 44 22 2C 22 28 57 29  |ATE RECORD","(W)|
000020C0: 20 57 52 49 54 45 20 46  49 4C 45 22 00 00 00 09  | WRITE FILE"....|
000020D0: 45                                                |E               |

.......G(147);.10);.1...."......DATABASE
 PROGRAM".C....".....  COPYRIGHT GEMINI 
MARKETING LTD 1983"......"...";.10);"9 S
ALTERTON ROAD,":..10);"EXMOUTH".......10
);"DEVON":..10);"EX8 2BR.".V....I.1.3000
:.R$:.R$.""..I......A$(12),B(12),C$(12),
K(12),Z$(12),Y$(12).!...M$."ABCDEFLMPSUW
":.G(147).J...."INPUT NAME OF DATABASE F
ILE";:. R$.Y.(.. R$."".30...-..C(R$).16.
."FILENAME TOO LONG":.30......15,8,15,"I
0"...2..1,8,0,R$.",S,R":.1,F:S.0...<.. I
.1 . F:.1,A$(I),B(I),C$(I):S.S.B(I):. I.
..F..1,N:T..(X).1024:M..((T.((F.4).2.S).
1.3)).*.P.. P%(M),D$(M,F):.N.0.120.5.Z..
I.1.N.N.D..Y.1.F:.1,D$(I,Y):.Y.].N.P%(I)
.I:.I.D.X. 1......G(147);.15);"...MENU..
":.. ....Z.1.12:. R$:..10);R$:.Z.I....".
........";N;"RECORDS IN DATABASE"... .R$
."":."........INPUT MENU OPTION REQUIRED
.";R$...R..C(R$)..1.130.-....N.0 .R$.."A
".R$.."E".130.A....N.1.R$."S".130._....I
.1.12:.J(M$,I,1).R$.270.F....I.O....130.
.....I.5000,2800,4000,5300,9900,4500,300
0,6500,3500,6000,5700,8000......130.....
.G(147);"BYTES FREE=";.(X):.".";N;"RECOR
DS IN DATABASE"......".MAXIMUM RECORDS A
LLOWED=";M......R$:.R$."".2830.4.....@..
..G(147).C.B.R$."":."FIELD SUMMARY ONLY"
;R$.T.L..R$."N".3130...V..R$.."Y"..".REP
LY Y OR N":.3010......8500:S.0:.".INPUT 
FIELD NUMBER";S......S.1.S.F..".INVALID 
FIELD NUMBER":.3040.....T.0......Y.1.N..
....T.0..G(147);".FIELD SUMMARY OF ";A$(
S);".".^....Y;.6);D$(P%(Y),S):.C(D$(P%(Y
),S)).40.T.T.1.S...T.T.1:.T.23.3120.....
.R$:.R$."".3100...!..R$."*".....&.T.0...
0..Y...5.. 3220.Y.:.R1.1:.".INPUT START 
RECORD NUMBER";R1...D..R1.1.R1.N..".INVA
LID START RECORD NUMBER":.3130.6.N.R2.N:
.".INPUT END RECORD NUMBER";R2.J.X..R2.R
1.R2.N..".INVALID END RECORD NUMBER":.31
50.S.].X.R1...B..X.R1.X.R2.3190...L.S.X:
.7500...V..R$:.R$."".3190......R$."*"...
Q....F(R$).17.X.X.1:.3170......F(R$).29.
X.X.1:.3170.....X.X.1:.3170.%...R$."":."
.ANY MORE RECORDS TO LIST";R$.6.... R$."
N" . ..J.... R$."Y" . 3000.E....".REPLY 
Y OR N":.3220.V....2,4:.G(147).....R$.""
:."FIELD SUMMARY ONLY";R$......R$."N".35
60.N....R$.."Y"..".REPLY Y OR N":.3505..
.J..8500:S.0:.".INPUT FIELD NUMBER";S.!.
O..S.1.S.F..".INVALID FIELD NUMBER":.353
0.B.T..2,"FIELD SUMMARY OF ";A$(S).P....
Y.1.N:.2,Y;.5);D$(P%(Y),S):.R$:.R$.""..Y
.Z....3620.....R1.1:.".INPUT START RECOR
D NUMBER";R1.Y....R1.1.R1.N..".INVALID S
TART RECORD NUMBER":.3560.....R2.N:.".IN
PUT END RECORD NUMBER";R2...... Y.R1.R2.
)....2,.15);"RECORD ";Y:..P....Z.1.F:.2,
A$(Z);":";D$(P%(Y),Z):.Z.B....R$:.R$."".
.Y...$.R$."":.".ANY MORE RECORDS TO LIST
";R$...... R$."N".  2:....8.. R$."Y". 35
05.M.B..".REPLY Y OR N":.3620.Y. ..G(147
).....R$."":."TOTAL(T) OR UPDATE(U)";R$.
+....R$.."U".R$.."T"..".REPLY T OR U":.4
005.B....8500:.R$."U".4070.L...S.0:.".IN
PUT FIELD NUMBER TO TOTAL";S......S.F . 
S.0. .".INVALID FIELD NUMBER":.4020.K.H.
.C$(S).."N"..".FIELD";S;"NOT NUMERIC":.4
020...R.T.0:.Y.1.N:T.T.E(D$(P%(Y),S)):.Y
......".TOTAL FOR FIELD";S;"=";T:.4300.P
....".INPUT FIELD NUMBER TO USE":S.0:."I
N CALCULATION";S.}....S.F .S.1..".INVALI
D FIELD NUMBER":.4070......C$(S).."N".."
.FIELD";S;"NOT NUMERIC":.4070.....W.0:."
.INPUT NUMBER OF FIELD TO BE UPDATED";W.
.....W.1.W.F..".INVALID FIELD NUMBER":.4
100.;....C$(W).."N"..".FIELD";W;"NOT NUM
ERIC":.4100.E.".R1.1:.".INPUT START RECO
RD NUMBER";R1...,..R1.1.R1.N..".INVALID 
RECORD NUMBER":.4130...6.R2.N:.".INPUT E
ND RECORD NUMBER";R2...@..R2.R1.R2.N..".
INVALID RECORD NUMBER":.4150...J.G.0:.".
INPUT NUMBER OF OPERATIONS REQUIRED";G.W
.T..G.1.G.10..".INVALID NO. OF OPERATORS
(MAX 10)":.4170.B.^..Y.1.G...H..".INPUT 
OPERATOR";Y;",VALUE FOR OPERATOR":.O$(Y)
,V(Y).S.R..O$(Y)."*".O$(Y)."-".O$(Y)."+"
.O$(Y)."/"..Y:.4240...|..".OPERATOR MUST
 BE */- OR +":.4200......Y.R1.R2.....T.E
(D$(P%(Y),S)).(....Z.1.G.@....O$(Z)."*".
T.T.V(Z).X....O$(Z)."+".T.T.V(Z).P....O$
(Z)."/".T.T.V(Z)......O$(Z)."-".T.T.V(Z)
...B.. Z...C.T$.D(T):.T..0.T$.J(T$,2).C.
D.D$(P%(Y),W).T$:.Y...L.R$."":.".ANOTHER
 CALCULATION";R$...V.. R$."Y". 4000.....
. R$."N". ..&....".REPLY Y OR N":.4300.2
....G(147).]...T.0:.".INPUT NO. OF CRITE
RIA(MAX 8)";T......T.1.T.8..".INVALID NO
. OF CRITERIA":.4510......8500......Y.1.
T.H...K(Y).0:.".ENTER FIELD NUMBER";K(Y)
...F..K(Y).1.K(Y).F..".INVALID FIELD NUM
BER":.4540.).P..".INPUT MIN AND MAX VALU
ES FOR ";A$(K(Y)).@.Z..C$(K(Y))."S".4580
.....G(Y).9E.37:H(Y).9E.37:.G(Y),H(Y):.G
(Y).9E.37.H(Y).9E.37.4560......4590.J...
Y$(Y)."!":Z$(Y)."!":.Y$(Y),Z$(Y):.Y$(Y).
"!".Z$(Y)."!".4560.Q....Y......G(147):W.
0......U.1.N......Z.1.T......C$(K(Z))."S
".4650.F. ..E(D$(P%(U),K(Z))).G(Z).E(D$(
P%(U),K(Z))).H(Z).4720.P.%..4660...*..D$
(P%(U),K(Z)).Y$(Z).D$(P%(U),K(Z)).Z$(Z).
4720...4..Z...>.S.U:.7500:W.1...H..R$:.R
$."".4680...R..R$."*"...F.P..U...U..W.0.
."NO RECORDS FOUND"...Z.R$."":.".ANOTHER
 SELECTION";R$...... R$."Y" . 4500.+....
 R$."N" . ..F....".REPLY Y OR N":.4730.L
....G(147);.11);".RECORD ADDITION.."....
.."INPUT NEW RECORD DETAILS".....W.N.1:P
%(N.1).N.1:.7000...... F$."*" . ..G...S.
W:.7500...D.R$."":.".RECORD DETAILS CORR
ECT";R$...N..R$."Y".N.N.1:.".RECORD SAVE
D":. 5000.@.X..R$."N"..".RECORD NOT SAVE
D":.5000.[....".REPLY Y OR N":.5060.H...
. G(147).....S.0:.".INPUT RECORD NUMBER 
TO BE DELETED";S.F.H..S.1.S.N. .".INVALI
D RECORD NUMBER":.5310.P.R..7500......".
OK TO DELETE RECORD";R$...... R$."N" . 5
470.+.... R$.."Y" . .".REPLY Y OR N":. 5
340.7...W.P%(S).D....Y.1.N.1.\....Y..S.P
%(Y).P%(Y.1).W....P%(Y).W.P%(Y).P%(Y).1.
~....Y..."..Y.W.N.1...,..Z.1.F:D$(Y,Z).D
$(Y.1,Z):.Z...6..Y...T.N.N.1...^.R$."":.
".DELETE ANOTHER RECORD";R$...H.. R$."N"
 . ....R.. R$."Y" . 5310.#.|..".REPLY Y 
OR N":.5470.H.D.. G(147);.10);".RECORD U
PDATE..".X.N.S.0:.".INPUT RECORD NUMBER 
TO BE UPDATED";S...S..S.1.S.N..".INVALID
 RECORD NUMBER":.5710...X..7500:.".INPUT
 RECORD UPDATES(OR HIT RETURN)":W.S...L.
. 7000...V.. F$."*" . ..+...R$."":.".UPD
ATE ANOTHER RECORD";R$:.R$."Y".5710.O...
.R$.."N"..".REPLY Y OR N":.5760.U.....A.
P..G(147).....S.0:.".INPUT NUMBER OF SOR
T KEYS REQUIRED";S.E....S.1.S.F..".INVAL
ID NUMBER OF SORT KEYS":.6050.....R$."":
.".ASCENDING(A) OR DESCENDING(D)";R$. ..
..R$.."A".R$.."D"..".REPLY A OR D":.6070
.U.J..8500:."..INPUT FIELD NUMBERS WHICH
 YOU WISH TO".|.T.."SORT ON(IN ORDER OF 
IMPORTANCE)"......Y.1.S.....X.0:.".SORT 
KEY";Y;"-FIELD";:.X......X.1.X.F..".INVA
LID SORT FIELD NUMBER":.6115......Y.1.61
60......Z.1.Y.1.* ...X.K(Z)..".FIELD ALR
EADY ENTERED AS KEY":.6115.1 ...Z.@ ..K(
Y).X:. Y.[ $..G(147);"SORT BEGINS.".F ..
.Y.2.N.. B.Z.Y.1:.E.1.S:Z$(E).D$(P%(Y),K
(E)):.E:T.P%(Y).. L.U.1.. Q..R$."D".6263
.. V..C$(K(U))."N".E(Z$(U)).E(D$(P%(Z),K
(U))).6300..!`..C$(K(U))."S".Z$(U).D$(P%
(Z),K(U)).6300..!J..Z$(U)..D$(P%(Z),K(U)
).6270.I!T.U.U.1:.U..S.6230:.6300.{!W..C
$(K(U))."N".E(Z$(U)).E(D$(P%(Z),K(U))).6
300..!X..C$(K(U))."S".Z$(U).D$(P%(Z),K(U
)).6300.G!Y..Z$(U)..D$(P%(Z),K(U)).6270.
.!Z.U.U.1:.U..S.6263:.6300.."~.P%(Z.1).P
%(Z):Z.Z.1:.Z.0.6220.."..P%(Z.1).T:.".";
Y:.Y.""....["D.. G(147):R$."":."INPUT NA
ME OF FILE TO BE MERGED";R$.K"N..R$."".6
500.."S..C(R$).16.."FILENAME TOO LONG":.
6500.."X..1,8,0,R$.",S,R":.1,S:.S..F.661
0.D"}..Y.1.F.."...1,Z$(1),Z,Z$(2):.Z..B(
Y).Z$(2)..C$(Y).6610.."...Y.&#...1,S:.S.
0.."NO RECORDS TO MERGE":.6620.T# ..N.S.
M.."NOT ENOUGH SPACE FOR FILE":.6620._#.
..Y.1.S.Z#...Z.1.F:.1,D$(N.Y,Z):.Z..#..P
%(N.Y).N.Y:.Y..#H.N.N.S:.6620.M#R.."FILE
 FIELDS INCOMPATIBLE-MERGE ABANDONED".T#
.. 1..#..R$."":."ANOTHER FILE TO MERGE";
R$..$... R$."Y" . 6500..$... R$."N" . ..
9$..."REPLY Y OR N":.6630.?$X...M$B.. Z.
1 . F.E$L.. A$(Z);:F$."":. F$.V$Q.. F$."
*" . ...$V.. C(F$)..B(Z) . 7050.H$...".I
NPUT FIELD TOO LONG-MAX";B(Z);"CHARACTER
S":.7020..%...C(F$).0.I.11..".";.(C(A$(Z
)).2));D$(P%(W),Z):.7110..%... C$(Z)."S"
 . 7100.<%..T.E(F$):T$.D(T):.T..0.T$.J(T
$,2).L%...T$.F$.7100.Q%...".INVALID NUME
RIC FORMAT":.7020..%..D$(P%(W),Z).F$..%F
.. Z..%P....%L..G(147);.15);".RECORD ";S
:."."..%V..Y.1.F:.".";A$(Y);".:.";D$(P%(
S),Y);".":.Y..%`....&@..G(147);N;"RECORD
S READY FOR WRITING":..?&J.R$."":."INPUT
 FILENAME FOR WRITE";R$.Q&T..C(R$).0.801
0.Z&Y..C(R$).16.."FILENAME TOO LONG":.80
10..&^..1,8,1,"@0:".R$.",S,W":.1,F..&H..
Z.1.F.C&R..1,A$(Z):.1,B(Z):.1,C$(Z).J&|.
.Z.S&...1,N..&...Y.1.N..&...Z.1.F:.1,D$(
P%(Y),Z):.Z..'...Y..'.. 1:...'4!.G(147);
.12);".FIELD SUMMARY.".V'>!."..FIELD NO.
";.12);".FIELD NAME..".Y'H!.Z.1.F:."..";
Z;.12);A$(Z):.Z:...'.&R$."":."........OK
 TO EXIT PROGRAM";R$..'.&.R$."N"....'.&.
R$."Y"...Z'J&."REPLY Y OR N":.9900..(T&.
 "(A) ADD RECORDS","(B) BYTES FREE","(C)
 CALCULATIONS".V(.&. "(D) DELETE RECORD"
,"(E) EXIT PROGRAM","(F) FIND RECORDS"..
(.&. "(L) LIST RECORDS","(M) MERGE FILE"
,"(P) PRINT FILE","(S) SORT FILE".L(.&. 
"(U) UPDATE RECORD","(W) WRITE FILE"....
E

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL