FILE MANAGER

00000000: 01 08 1C 08 01 00 9C 3A  4D 52 B2 31 30 30 3A 4D  |.......:MR.100:M|
00000010: 46 B2 35 3A 97 35 33 32  38 31 2C 31 00 3D 08 05  |F.5:.53281,1.=..|
00000020: 00 58 B2 31 30 30 3A 8B  C2 28 35 38 36 33 30 29  |.X.100:..(58630)|
00000030: B2 34 30 A7 57 B2 39 3A  58 B2 32 32 35 00 48 08  |.40.W.9:X.225.H.|
00000040: 07 00 97 38 30 38 2C 58  00 62 08 0A 00 99 22 93  |...808,X.b....".|
00000050: 22 3A 99 A3 37 AA 57 29  22 90 56 41 4C 4F 52 55  |":..7.W)".VALORU|
00000060: 4D 22 00 7C 08 0B 00 99  A3 34 AA 57 29 22 46 49  |M".|.....4.W)"FI|
00000070: 4C 45 20 20 4D 41 4E 41  47 45 52 22 00 90 08 0C  |LE  MANAGER"....|
00000080: 00 99 A3 37 AA 57 29 22  56 20 20 30 2E 36 38 22  |...7.W)"V  0.68"|
00000090: 00 B9 08 0D 00 99 A3 32  AA 57 29 22 43 4F 50 59  |.......2.W)"COPY|
000000A0: 52 49 47 48 54 20 28 43  29 20 31 39 38 33 1F 22  |RIGHT (C) 1983."|
000000B0: 3A 99 3A 99 3A 89 31 30  30 00 E1 08 10 00 43 B2  |:.:.:.100.....C.|
000000C0: 30 3A 46 B2 30 3A 85 22  45 4E 54 45 52 20 46 49  |0:F.0:."ENTER FI|
000000D0: 45 4C 44 20 4E 4F 2E 22  3B 46 3A 8B 46 B2 30 A7  |ELD NO.";F:.F.0.|
000000E0: 8E 00 F2 08 11 00 8B 46  B3 31 B0 46 B1 46 43 A7  |.......F.1.F.FC.|
000000F0: 31 36 00 17 09 12 00 99  3A 99 22 45 4E 54 45 52  |16......:."ENTER|
00000100: 20 54 45 53 54 20 45 58  50 52 45 53 53 49 4F 4E  | TEST EXPRESSION|
00000110: 22 3A 85 43 24 3A 8E 00  34 09 14 00 99 3A 99 22  |":.C$:..4....:."|
00000120: 44 41 54 41 20 43 4F 52  52 45 43 54 20 28 59 2F  |DATA CORRECT (Y/|
00000130: 4E 29 22 3B 00 53 09 1E  00 41 24 B2 22 22 3A 85  |N)";.S...A$."":.|
00000140: 41 24 3A 8B 41 24 B2 22  59 22 B0 41 24 B2 22 4E  |A$:.A$."Y".A$."N|
00000150: 22 A7 8E 00 71 09 28 00  99 3A 99 22 52 45 50 4C  |"...q.(..:."REPL|
00000160: 59 20 27 59 27 20 4F 52  20 27 4E 27 22 3A 89 33  |Y 'Y' OR 'N'":.3|
00000170: 30 00 99 09 32 00 43 B2  30 3A 99 3A 85 22 45 4E  |0...2.C.0:.:."EN|
00000180: 54 45 52 20 59 4F 55 52  20 43 48 4F 49 43 45 22  |TER YOUR CHOICE"|
00000190: 3B 43 3A 99 22 93 22 3A  8E 00 B8 09 3C 00 99 3A  |;C:.".":....<..:|
000001A0: 85 22 50 52 45 53 53 20  52 45 54 55 52 4E 22 3B  |."PRESS RETURN";|
000001B0: 58 3A 99 22 93 22 3A 8E  00 C3 09 46 00 81 49 B2  |X:.".":....F..I.|
000001C0: 41 A4 42 00 EF 09 48 00  99 22 93 22 3A 99 22 46  |A.B...H..".":."F|
000001D0: 49 4C 45 20 4E 41 4D 45  3A 22 3B 46 24 3A 99 52  |ILE NAME:";F$:.R|
000001E0: 24 3B 49 AB 31 3B 22 4F  46 22 3B 52 43 AB 31 00  |$;I.1;"OF";RC.1.|
000001F0: 19 0A 4C 00 44 24 B2 22  41 43 54 49 56 45 22 3A  |..L.D$."ACTIVE":|
00000200: 8B 44 24 28 49 2C 30 29  B2 22 44 22 A7 44 24 B2  |.D$(I,0)."D".D$.|
00000210: 22 44 45 4C 45 54 45 44  22 00 2D 0A 4E 00 99 22  |"DELETED".-.N.."|
00000220: 53 54 41 54 55 53 3A 22  3B 44 24 3A 99 00 52 0A  |STATUS:";D$:..R.|
00000230: 52 00 81 4A B2 31 A4 46  43 3A 99 4A 3B 44 24 28  |R..J.1.FC:.J;D$(|
00000240: 30 2C 4A 29 3B 22 3A 22  3B 44 24 28 49 2C 4A 29  |0,J);":";D$(I,J)|
00000250: 3A 82 00 92 0A 55 00 58  24 B2 22 22 3A 8B 41 B3  |:....U.X$."":.A.|
00000260: B1 42 A7 99 3A 99 22 50  52 45 53 53 20 52 45 54  |.B..:."PRESS RET|
00000270: 55 52 4E 20 54 4F 20 43  4F 4E 54 49 4E 55 45 2C  |URN TO CONTINUE,|
00000280: 20 90 41 1F 20 54 4F 20  41 42 4F 52 54 22 3A 85  | .A. TO ABORT":.|
00000290: 58 24 00 A0 0A 56 00 8B  58 24 B2 22 41 22 A7 8E  |X$...V..X$."A"..|
000002A0: 00 A6 0A 58 00 82 00 AE  0A 5A 00 99 3A 8E 00 C9  |...X.....Z..:...|
000002B0: 0A 5F 00 81 49 B2 31 A4  46 43 3A 50 46 24 28 49  |._..I.1.FC:PF$(I|
000002C0: 29 B2 22 59 22 3A 82 3A  8E 00 16 0B 64 00 52 24  |)."Y":.:....d.R$|
000002D0: B2 22 52 45 43 4F 52 44  20 4E 4F 2E 22 3A 45 24  |."RECORD NO.":E$|
000002E0: B2 22 45 4E 54 45 52 20  22 3A 53 24 B2 22 50 52  |."ENTER ":S$."PR|
000002F0: 49 4E 54 20 46 52 45 45  20 53 50 41 43 45 20 28  |INT FREE SPACE (|
00000300: 59 2F 4E 29 22 3A 57 24  B2 22 50 4C 45 41 53 45  |Y/N)":W$."PLEASE|
00000310: 20 57 41 49 54 22 00 61  0B 6F 00 4D 24 B2 22 54  | WAIT".a.o.M$."T|
00000320: 4F 4F 20 4D 41 4E 59 20  22 3A 50 24 B2 22 50 52  |OO MANY ":P$."PR|
00000330: 49 4E 54 20 22 3A 4C 24  B2 22 49 4E 53 45 52 54  |INT ":L$."INSERT|
00000340: 20 54 41 50 45 20 4F 52  20 44 49 53 4B 22 3A 4B  | TAPE OR DISK":K|
00000350: 24 B2 22 43 4F 44 45 20  31 35 20 4F 52 20 32 30  |$."CODE 15 OR 20|
00000360: 22 00 8A 0B 78 00 86 4B  25 28 4D 52 2C 4D 46 29  |"...x..K%(MR,MF)|
00000370: 2C 44 24 28 4D 52 2C 4D  46 29 2C 46 54 24 28 4D  |,D$(MR,MF),FT$(M|
00000380: 46 29 2C 50 46 24 28 4D  46 29 00 A2 0B 79 00 81  |F),PF$(MF)...y..|
00000390: 49 B2 31 A4 4D 52 3A 4B  25 28 49 2C 30 29 B2 31  |I.1.MR:K%(I,0).1|
000003A0: 3A 82 00 C0 0B C8 00 99  A3 34 AA 57 29 22 90 53  |:........4.W)".S|
000003B0: 54 41 52 54 20 55 50 20  4D 45 4E 55 1F 22 3A 99  |TART UP MENU.":.|
000003C0: 00 DE 0B D2 00 99 3A 99  22 3C 31 3E 53 45 54 20  |......:."<1>SET |
000003D0: 55 50 20 41 20 4E 45 57  20 46 49 4C 45 22 00 FA  |UP A NEW FILE"..|
000003E0: 0B D7 00 99 3A 99 22 3C  32 3E 47 45 54 20 41 4E  |....:."<2>GET AN|
000003F0: 20 4F 4C 44 20 46 49 4C  45 22 00 1C 0C D8 00 99  | OLD FILE"......|
00000400: 3A 99 22 3C 33 3E 43 48  47 20 4D 41 58 20 52 45  |:."<3>CHG MAX RE|
00000410: 43 20 4F 52 20 46 4C 44  53 22 3A 99 00 31 0C DC  |C OR FLDS":..1..|
00000420: 00 8D 35 30 3A 8B 43 B3  31 B0 43 B1 33 A7 32 30  |..50:.C.1.C.3.20|
00000430: 30 00 5D 0C E1 00 8B 43  B2 33 A7 9C 3A 85 22 45  |0.]....C.3..:."E|
00000440: 4E 54 45 52 20 4D 52 22  3B 4D 52 3A 85 22 45 4E  |NTER MR";MR:."EN|
00000450: 54 45 52 20 4D 46 22 3B  4D 46 3A 89 35 00 74 0C  |TER MF";MF:.5.t.|
00000460: E6 00 91 43 8D 31 33 30  30 30 2C 39 30 30 30 3A  |...C.13000,9000:|
00000470: 89 35 30 30 00 AC 0C 2C  01 99 A3 34 AA 57 29 22  |.500...,...4.W)"|
00000480: 90 53 54 4F 52 41 47 45  20 4D 45 54 48 4F 44 1F  |.STORAGE METHOD.|
00000490: 22 3A 99 3A 99 3A 99 22  3C 31 3E 54 41 50 45 22  |":.:.:."<1>TAPE"|
000004A0: 3A 99 3A 99 22 3C 32 3E  44 49 53 4B 00 C3 0C 36  |:.:."<2>DISK...6|
000004B0: 01 99 3A 8D 35 30 3A 8B  43 B3 31 B0 43 B1 32 A7  |..:.50:.C.1.C.2.|
000004C0: 33 30 30 00 C9 0C 4A 01  8E 00 EA 0C F4 01 99 22  |300...J........"|
000004D0: 93 22 3A 99 A3 36 AA 57  29 22 90 4D 41 49 4E 20  |.":..6.W)".MAIN |
000004E0: 4D 45 4E 55 1F 22 3A 99  3A 99 00 FF 0C FE 01 99  |MENU.":.:.......|
000004F0: 22 3C 31 3E 4D 41 49 4E  54 41 49 4E 22 3A 99 00  |"<1>MAINTAIN":..|
00000500: 10 0D 03 02 99 22 3C 32  3E 53 4F 52 54 22 3A 99  |....."<2>SORT":.|
00000510: 00 22 0D 08 02 99 22 3C  33 3E 50 52 49 4E 54 22  |."...."<3>PRINT"|
00000520: 3A 99 00 36 0D 0E 02 99  22 3C 34 3E 41 4E 41 4C  |:..6...."<4>ANAL|
00000530: 59 5A 45 22 3A 99 00 4E  0D 12 02 99 22 3C 35 3E  |YZE":..N...."<5>|
00000540: 52 45 43 4F 4E 46 49 47  55 52 45 22 3A 99 00 5F  |RECONFIGURE":.._|
00000550: 0D 1C 02 99 22 3C 36 3E  53 41 56 45 22 3A 99 00  |...."<6>SAVE":..|
00000560: 71 0D 26 02 99 22 3C 37  3E 43 4C 45 41 52 22 3A  |q.&.."<7>CLEAR":|
00000570: 99 00 82 0D 2B 02 99 22  3C 38 3E 51 55 49 54 22  |....+.."<8>QUIT"|
00000580: 3A 99 00 97 0D 30 02 8D  35 30 3A 8B 43 B3 31 B0  |:....0..50:.C.1.|
00000590: 43 B1 38 89 35 30 30 00  A5 0D 35 02 8B 43 B2 35  |C.8.500...5..C.5|
000005A0: A7 43 46 B2 31 00 DF 0D  3A 02 91 43 8D 32 36 30  |.CF.1...:..C.260|
000005B0: 30 30 2C 31 30 38 30 2C  32 34 30 30 30 2C 31 36  |00,1080,24000,16|
000005C0: 30 30 30 2C 31 33 30 38  30 2C 38 30 30 30 2C 32  |000,13080,8000,2|
000005D0: 30 30 30 30 2C 32 30 30  30 30 3A 89 35 30 30 00  |0000,20000:.500.|
000005E0: F3 0D E8 03 81 49 B2 52  43 AA 31 A4 52 43 AA 31  |.....I.RC.1.RC.1|
000005F0: 30 30 30 00 0C 0E EC 03  99 22 93 22 3A 99 A3 39  |000......".":..9|
00000600: AA 57 29 22 90 41 44 44  1F 22 3A 99 00 37 0E F9  |.W)".ADD.":..7..|
00000610: 03 99 45 24 3B 52 24 3B  49 AB 31 3A 99 22 28 54  |..E$;R$;I.1:."(T|
00000620: 4F 20 45 4E 44 20 49 4E  50 55 54 20 45 4E 54 45  |O END INPUT ENTE|
00000630: 52 20 2A 29 22 3A 99 00  67 0E FC 03 81 4A B2 31  |R *)":..g....J.1|
00000640: A4 46 43 3A 44 24 28 49  2C 4A 29 B2 22 22 3A 99  |.FC:D$(I,J)."":.|
00000650: 4A 3B 44 24 28 30 2C 4A  29 3B 22 3A 22 3B 3A 85  |J;D$(0,J);":";:.|
00000660: 44 24 28 49 2C 4A 29 00  7F 0E 06 04 8B 4E 43 B2  |D$(I,J)......NC.|
00000670: 30 AF 44 24 28 49 2C 4A  29 B2 22 2A 22 A7 8E 00  |0.D$(I,J)."*"...|
00000680: 95 0E 07 04 8B 44 24 28  49 2C 4A 29 B2 22 2A 22  |.....D$(I,J)."*"|
00000690: A7 31 30 36 30 00 DA 0E  08 04 43 56 B2 30 3A 8B  |.1060.....CV.0:.|
000006A0: C3 28 44 24 28 49 2C 4A  29 29 B1 4B 25 28 30 2C  |.(D$(I,J)).K%(0,|
000006B0: 4A 29 A7 99 22 45 4E 54  52 59 20 54 4F 4F 20 4C  |J).."ENTRY TOO L|
000006C0: 4F 4E 47 20 20 20 22 3A  99 3A 4A B2 4A AB 31 3A  |ONG   ":.:J.J.1:|
000006D0: 43 56 B2 31 3A 89 31 30  33 37 00 FD 0E 09 04 8B  |CV.1:.1037......|
000006E0: 46 54 24 28 4A 29 B2 22  53 22 B0 C5 28 44 24 28  |FT$(J)."S"..(D$(|
000006F0: 49 2C 4A 29 29 B3 B1 30  A7 31 30 33 37 00 1E 0F  |I,J))..0.1037...|
00000700: 0B 04 8B 44 24 28 49 2C  4A 29 B2 22 30 22 B0 44  |...D$(I,J)."0".D|
00000710: 24 28 49 2C 4A 29 B2 22  22 A7 31 30 33 37 00 44  |$(I,J)."".1037.D|
00000720: 0F 0C 04 99 22 45 4E 54  52 59 20 4E 4F 54 20 4E  |...."ENTRY NOT N|
00000730: 55 4D 45 52 49 43 22 3A  99 3A 4A B2 4A AB 31 3A  |UMERIC":.:J.J.1:|
00000740: 43 56 B2 31 00 50 0F 0D  04 8B 43 48 B2 31 A7 8E  |CV.1.P....CH.1..|
00000750: 00 56 0F 0E 04 82 00 74  0F 0F 04 8D 32 30 3A 8B  |.V.....t....20:.|
00000760: 41 24 B2 22 59 22 A7 52  43 B2 52 43 AA 31 3A 89  |A$."Y".RC.RC.1:.|
00000770: 31 30 34 35 00 9D 0F 10  04 99 3A 99 45 24 3B 22  |1045......:.E$;"|
00000780: 46 49 45 4C 44 20 4E 4F  2E 22 3B 3A 85 46 3A 8B  |FIELD NO.";:.F:.|
00000790: 46 B3 31 B0 46 B1 46 43  A7 31 30 34 30 00 CE 0F  |F.1.F.FC.1040...|
000007A0: 11 04 41 B2 49 3A 42 B2  49 3A 8D 37 30 3A 49 B2  |..A.I:B.I:.70:I.|
000007B0: 49 AB 31 3A 99 3A 99 46  3B 44 24 28 30 2C 46 29  |I.1:.:.F;D$(0,F)|
000007C0: 3B 22 3A 22 3B 3A 85 44  24 28 49 2C 46 29 00 F6  |;":";:.D$(I,F)..|
000007D0: 0F 12 04 4A B2 46 3A 43  48 B2 31 3A 8D 31 30 33  |...J.F:CH.1:.103|
000007E0: 32 3A 43 48 B2 30 3A 8B  43 56 B2 31 A7 8D 36 30  |2:CH.0:.CV.1..60|
000007F0: 3A 89 31 30 34 31 00 00  10 13 04 89 31 30 33 39  |:.1041......1039|
00000800: 00 34 10 15 04 8B B5 28  49 AD 31 30 29 AC 31 30  |.4.....(I.10).10|
00000810: B2 49 A7 99 22 93 22 3A  99 53 24 3A 8D 33 30 3A  |.I..".":.S$:.30:|
00000820: 8B 41 24 B2 22 59 22 A7  99 57 24 3B B8 28 30 29  |.A$."Y"..W$;.(0)|
00000830: 3A 8D 36 30 00 3A 10 1A  04 82 00 40 10 24 04 8E  |:.60.:.....@.$..|
00000840: 00 76 10 38 04 99 22 93  22 3A 99 A3 38 AA 57 29  |.v.8..".":..8.W)|
00000850: 22 90 53 4F 52 54 1F 22  3A 99 3A 99 3A 4A B2 30  |".SORT.":.:.:J.0|
00000860: 3A 85 22 45 4E 54 45 52  20 53 4F 52 54 20 46 49  |:."ENTER SORT FI|
00000870: 45 4C 44 22 3B 4A 00 81  10 39 04 8B 4A B2 30 A7  |ELD";J...9..J.0.|
00000880: 8E 00 94 10 3B 04 8B 4A  B3 31 B0 4A B1 46 43 A7  |....;..J.1.J.FC.|
00000890: 31 30 38 30 00 AC 10 3D  04 81 49 B2 31 A4 52 43  |1080...=..I.1.RC|
000008A0: 3A 4B 25 28 49 2C 4A 29  B2 30 3A 82 00 B8 10 3E  |:K%(I,J).0:....>|
000008B0: 04 81 49 B2 32 A4 52 43  00 D8 10 42 04 99 22 93  |..I.2.RC...B..".|
000008C0: 22 3A 99 22 53 4F 52 54  49 4E 47 20 22 3B 52 24  |":."SORTING ";R$|
000008D0: 3B 49 AB 31 3A 47 B2 31  00 E4 10 6A 04 81 4B B2  |;I.1:G.1...j..K.|
000008E0: 31 A4 52 43 00 2C 11 74  04 8B 46 54 24 28 4A 29  |1.RC.,.t..FT$(J)|
000008F0: B2 22 4E 22 A7 8B C5 28  44 24 28 49 2C 4A 29 29  |."N"...(D$(I,J))|
00000900: B2 B3 C5 28 44 24 28 47  2C 4A 29 29 A7 4B 25 28  |...(D$(G,J)).K%(|
00000910: 49 2C 4A 29 B2 47 3A 4B  25 28 46 4D 2C 4A 29 B2  |I,J).G:K%(FM,J).|
00000920: 49 3A 4B B2 52 43 3A 89  31 31 38 30 00 41 11 77  |I:K.RC:.1180.A.w|
00000930: 04 8B 46 54 24 28 4A 29  B2 22 4E 22 A7 31 31 35  |..FT$(J)."N".115|
00000940: 30 00 77 11 79 04 8B 44  24 28 49 2C 4A 29 B3 B2  |0.w.y..D$(I,J)..|
00000950: 44 24 28 47 2C 4A 29 A7  4B 25 28 49 2C 4A 29 B2  |D$(G,J).K%(I,J).|
00000960: 47 3A 4B 25 28 46 4D 2C  4A 29 B2 49 3A 4B B2 52  |G:K%(FM,J).I:K.R|
00000970: 43 3A 89 31 31 38 30 00  A5 11 7E 04 8B 4B 25 28  |C:.1180...~..K%(|
00000980: 47 2C 4A 29 B2 30 A7 4B  25 28 49 2C 4A 29 B2 30  |G,J).0.K%(I,J).0|
00000990: 3A 4B 25 28 47 2C 4A 29  B2 49 3A 4B B2 52 43 3A  |:K%(G,J).I:K.RC:|
000009A0: 89 31 31 38 30 00 B8 11  88 04 46 4D B2 47 3A 47  |.1180.....FM.G:G|
000009B0: B2 4B 25 28 47 2C 4A 29  00 C1 11 9C 04 82 4B 2C  |.K%(G,J)......K,|
000009C0: 49 00 C7 11 C4 04 8E 00  F8 11 D0 07 99 22 53 41  |I............"SA|
000009D0: 56 45 20 53 45 4C 45 43  54 45 44 20 46 49 45 4C  |VE SELECTED FIEL|
000009E0: 44 53 20 20 28 59 2F 4E  29 22 3A 8D 33 30 3A 8B  |DS  (Y/N)":.30:.|
000009F0: 41 24 B2 22 4E 22 A7 8E  00 08 12 DA 07 54 B2 30  |A$."N".......T.0|
00000A00: 3A 81 49 B2 31 A4 46 43  00 3C 12 E4 07 99 22 46  |:.I.1.FC.<...."F|
00000A10: 49 45 4C 44 22 3B 49 3B  22 28 59 2F 4E 29 22 3B  |IELD";I;"(Y/N)";|
00000A20: 3A 8D 33 30 3A 50 46 24  28 49 29 B2 41 24 3A 8B  |:.30:PF$(I).A$:.|
00000A30: 41 24 B2 22 59 22 A7 54  B2 54 AA 31 00 42 12 EE  |A$."Y".T.T.1.B..|
00000A40: 07 82 00 48 12 F8 07 8E  00 70 12 B8 0B 99 3A 99  |...H.....p....:.|
00000A50: 22 52 45 41 44 59 20 50  52 49 4E 54 45 52 22 3A  |"READY PRINTER":|
00000A60: 8D 36 30 3A 9F 34 2C 34  3A 9D 34 3A 58 B2 36 34  |.60:.4,4:.4:X.64|
00000A70: 00 89 12 EA 0B 8B 50 43  24 B2 22 59 22 A7 99 C7  |......PC$."Y"...|
00000A80: 28 56 29 3A 58 B2 31 30  35 00 A2 12 FE 0B 46 50  |(V):X.105.....FP|
00000A90: B2 31 3A 47 B2 31 3A 8D  31 35 30 30 30 3A 46 50  |.1:G.1:.15000:FP|
00000AA0: B2 30 00 AD 12 08 0C 81  49 B2 41 A4 42 00 C8 12  |.0......I.A.B...|
00000AB0: 1C 0C 47 B2 4B 25 28 47  2C 46 29 3A 8B 53 52 24  |..G.K%(G,F):.SR$|
00000AC0: B2 22 4E 22 A7 47 B2 49  00 DA 12 21 0C 8B 50 44  |."N".G.I...!..PD|
00000AD0: 24 B2 22 59 22 A7 33 31  31 35 00 F0 12 26 0C 8B  |$."Y".3115...&..|
00000AE0: 44 24 28 47 2C 30 29 B2  22 44 22 A7 33 32 32 30  |D$(G,0)."D".3220|
00000AF0: 00 04 13 2B 0C 8B 4B 25  28 47 2C 30 29 B2 30 A7  |...+..K%(G,0).0.|
00000B00: 33 32 32 30 00 2C 13 30  0C 5A B2 31 3A 81 4A B2  |3220.,.0.Z.1:.J.|
00000B10: 31 A4 46 43 3A 8B 50 46  24 28 4A 29 B2 22 4E 22  |1.FC:.PF$(J)."N"|
00000B20: A7 5A B2 5A AA 31 3A 89  33 31 38 32 00 5C 13 6C  |.Z.Z.1:.3182.\.l|
00000B30: 0C 99 A6 4B 25 28 30 2C  4A AB 5A 29 AB C3 28 44  |...K%(0,J.Z)..(D|
00000B40: 24 28 47 2C 4A AB 5A 29  29 AA 31 29 44 24 28 47  |$(G,J.Z)).1)D$(G|
00000B50: 2C 4A 29 3B 3A 5A B2 31  3A 54 B2 4A 00 63 13 6E  |,J);:Z.1:T.J.c.n|
00000B60: 0C 82 4A 00 8B 13 71 0C  8B 50 52 24 B2 22 59 22  |..J...q..PR$."Y"|
00000B70: A7 99 A6 4B 25 28 30 2C  54 29 AB C3 28 44 24 28  |...K%(0,T)..(D$(|
00000B80: 47 2C 54 29 29 AA 31 29  47 AB 31 00 9C 13 72 0C  |G,T)).1)G.1...r.|
00000B90: 8B 50 52 24 B2 22 4E 22  A7 99 22 22 00 B6 13 76  |.PR$."N"..""...v|
00000BA0: 0C 4C 43 B2 4C 43 AA 31  3A 8B 4C 43 B1 35 35 A7  |.LC.LC.1:.LC.55.|
00000BB0: 8D 31 35 30 30 30 00 BC  13 94 0C 82 00 D4 13 9E  |.15000..........|
00000BC0: 0C 81 49 B2 31 A4 52 43  3A 4B 25 28 49 2C 30 29  |..I.1.RC:K%(I,0)|
00000BD0: B2 31 3A 82 00 E5 13 A3  0C 99 C7 28 31 38 29 3A  |.1:........(18):|
00000BE0: 98 34 3A A0 34 00 EB 13  A8 0C 8E 00 07 14 A0 0F  |.4:.4...........|
00000BF0: 99 22 93 22 3A 99 A3 38  AA 57 29 22 90 43 48 41  |.".":..8.W)".CHA|
00000C00: 4E 47 45 1F 22 3A 99 00  21 14 B4 0F 52 B2 30 3A  |NGE.":..!...R.0:|
00000C10: 99 45 24 3B 52 24 3B 3A  85 52 3A 8B 52 B2 30 A7  |.E$;R$;:.R:.R.0.|
00000C20: 8E 00 3A 14 CD 0F 52 B2  52 AA 31 3A 8B 52 B3 32  |..:...R.R.1:.R.2|
00000C30: B0 52 B1 52 43 A7 34 30  30 30 00 6E 14 DC 0F 41  |.R.RC.4000.n...A|
00000C40: B2 52 3A 42 B2 52 3A 8D  37 30 3A 46 B2 AB 31 3A  |.R:B.R:.70:F..1:|
00000C50: 99 45 24 3B 22 46 49 45  4C 44 20 4E 4F 2E 22 3B  |.E$;"FIELD NO.";|
00000C60: 3A 85 46 3A 8B 46 B2 AB  31 A7 34 30 30 30 00 81  |:.F:.F..1.4000..|
00000C70: 14 EB 0F 8B 46 B3 30 B0  46 B1 46 43 A7 34 30 36  |....F.0.F.FC.406|
00000C80: 30 00 9D 14 04 10 99 3A  99 22 4E 4F 57 20 52 45  |0......:."NOW RE|
00000C90: 41 44 53 22 3A 99 44 24  28 52 2C 46 29 00 D1 14  |ADS":.D$(R,F)...|
00000CA0: 0E 10 99 3A 99 22 53 48  4F 55 4C 44 20 42 45 22  |...:."SHOULD BE"|
00000CB0: 3A 85 44 24 28 52 2C 46  29 3A 49 B2 52 3A 4A B2  |:.D$(R,F):I.R:J.|
00000CC0: 46 3A 43 48 B2 31 3A 8D  31 30 33 32 3A 43 48 B2  |F:CH.1:.1032:CH.|
00000CD0: 30 00 EB 14 18 10 8B 43  56 B2 31 A7 99 22 91 91  |0......CV.1.."..|
00000CE0: 91 91 91 91 22 3A 89 34  31 31 30 00 F5 14 4A 10  |....":.4110...J.|
00000CF0: 89 34 30 36 30 00 11 15  88 13 99 22 93 22 3A 99  |.4060......".":.|
00000D00: A3 38 AA 57 29 22 90 44  45 4C 45 54 45 1F 22 3A  |.8.W)".DELETE.":|
00000D10: 99 00 2B 15 8D 13 52 B2  30 3A 99 45 24 3B 52 24  |..+...R.0:.E$;R$|
00000D20: 3B 3A 85 52 3A 8B 52 B2  30 A7 8E 00 44 15 92 13  |;:.R:.R.0...D...|
00000D30: 52 B2 52 AA 31 3A 8B 52  B3 32 B0 52 B1 52 43 A7  |R.R.1:.R.2.R.RC.|
00000D40: 35 30 30 30 00 7D 15 97  13 41 B2 52 3A 42 B2 52  |5000.}...A.R:B.R|
00000D50: 3A 8D 37 30 3A 99 22 44  45 4C 45 54 45 20 52 45  |:.70:."DELETE RE|
00000D60: 43 4F 52 44 20 28 59 2F  4E 29 22 3B 3A 8D 33 30  |CORD (Y/N)";:.30|
00000D70: 3A 8B 41 24 B2 22 4E 22  A7 35 30 30 30 00 93 15  |:.A$."N".5000...|
00000D80: 9C 13 44 24 28 52 2C 30  29 B2 22 44 22 3A 89 35  |..D$(R,0)."D":.5|
00000D90: 30 30 30 00 A9 15 70 17  99 A3 38 AA 57 29 22 90  |000...p...8.W)".|
00000DA0: 50 55 52 47 45 1F 22 3A  99 00 D1 15 75 17 99 3A  |PURGE.":....u..:|
00000DB0: 99 22 57 41 52 4E 49 4E  47 3A 20 50 55 52 47 45  |."WARNING: PURGE|
00000DC0: 20 52 45 4D 4F 56 45 53  20 52 45 43 4F 52 44 53  | REMOVES RECORDS|
00000DD0: 22 00 09 16 77 17 99 3A  99 22 3C 31 3E 43 4F 4E  |"...w..:."<1>CON|
00000DE0: 54 49 4E 55 45 22 3A 99  3A 99 22 3C 32 3E 43 41  |TINUE":.:."<2>CA|
00000DF0: 4E 43 45 4C 22 3A 99 3A  8D 35 30 3A 8B 43 B3 31  |NCEL":.:.50:.C.1|
00000E00: B0 43 B1 32 A7 36 30 30  30 00 14 16 78 17 8B 43  |.C.2.6000...x..C|
00000E10: B2 32 A7 8E 00 20 16 8E  17 81 49 B2 32 A4 52 43  |.2... ....I.2.RC|
00000E20: 00 37 16 98 17 8B 44 24  28 49 2C 30 29 B3 B1 22  |.7....D$(I,0).."|
00000E30: 44 22 89 36 31 32 30 00  58 16 9B 17 99 22 93 22  |D".6120.X...."."|
00000E40: 3A 99 22 50 55 52 47 49  4E 47 20 22 3B 52 24 3B  |:."PURGING ";R$;|
00000E50: 49 AB 31 3A 46 4C B2 30  00 7D 16 9D 17 8B 44 24  |I.1:FL.0.}....D$|
00000E60: 28 52 43 2C 30 29 B2 22  44 22 A7 52 43 B2 52 43  |(RC,0)."D".RC.RC|
00000E70: AB 31 3A 46 4C B2 31 3A  89 36 30 34 35 00 9D 16  |.1:FL.1:.6045...|
00000E80: A2 17 81 4A B2 30 A4 46  43 3A 44 24 28 49 2C 4A  |...J.0.FC:D$(I,J|
00000E90: 29 B2 44 24 28 52 43 2C  4A 29 3A 82 4A 00 B0 16  |).D$(RC,J):.J...|
00000EA0: D4 17 8B 46 4C B3 B1 31  A7 52 43 B2 52 43 AB 31  |...FL..1.RC.RC.1|
00000EB0: 00 B6 16 E8 17 82 00 BC  16 38 18 8E 00 D4 16 58  |.........8.....X|
00000EC0: 1B 81 49 B2 31 A4 52 43  3A 4B 25 28 49 2C 30 29  |..I.1.RC:K%(I,0)|
00000ED0: B2 30 3A 82 00 E4 16 62  1B 8D 31 36 3A 4C B2 C3  |.0:....b..16:L..|
00000EE0: 28 43 24 29 00 F0 16 80  1B 81 49 B2 32 A4 52 43  |(C$)......I.2.RC|
00000EF0: 00 08 17 8A 1B 81 4A B2  31 A4 C3 28 44 24 28 49  |......J.1..(D$(I|
00000F00: 2C 46 29 29 AB 4C AA 31  00 30 17 8E 1B 8B 46 54  |,F)).L.1.0....FT|
00000F10: 24 28 46 29 B2 22 4E 22  A7 8B C5 28 43 24 29 B3  |$(F)."N"...(C$).|
00000F20: B1 C5 28 44 24 28 49 2C  46 29 29 A7 37 30 39 30  |..(D$(I,F)).7090|
00000F30: 00 45 17 90 1B 8B 46 54  24 28 46 29 B2 22 4E 22  |.E....FT$(F)."N"|
00000F40: A7 37 30 37 30 00 62 17  94 1B 8B 43 24 B3 B1 CA  |.7070.b....C$...|
00000F50: 28 44 24 28 49 2C 46 29  2C 4A 2C 4C 29 A7 37 30  |(D$(I,F),J,L).70|
00000F60: 39 30 00 76 17 9E 1B 8B  43 B3 B1 32 A7 4B 25 28  |90.v....C..2.K%(|
00000F70: 49 2C 30 29 B2 31 00 80  17 A8 1B 89 37 31 31 30  |I,0).1......7110|
00000F80: 00 87 17 B2 1B 82 4A 00  9A 17 BC 1B 8B 43 B2 32  |......J......C.2|
00000F90: A7 4B 25 28 49 2C 30 29  B2 30 00 A1 17 C6 1B 82  |.K%(I,0).0......|
00000FA0: 49 00 CF 17 D0 1B 99 22  3C 31 3E 45 4E 44 20 20  |I......"<1>END  |
00000FB0: 3C 32 3E 41 4E 44 20 20  3C 33 3E 4F 52 22 3A 85  |<2>AND  <3>OR":.|
00000FC0: 43 3A 8B 43 B3 31 B0 43  B1 33 A7 37 31 32 30 00  |C:.C.1.C.3.7120.|
00000FD0: DA 17 DA 1B 8B 43 B2 31  A7 8E 00 E4 17 E4 1B 89  |.....C.1........|
00000FE0: 37 30 31 30 00 03 18 40  1F 8D 33 30 30 3A 99 A3  |7010...@..300:..|
00000FF0: 36 AA 57 29 22 90 53 41  56 45 20 46 49 4C 45 1F  |6.W)".SAVE FILE.|
00001000: 22 3A 99 00 25 18 41 1F  99 22 43 48 41 4E 47 45  |":..%.A.."CHANGE|
00001010: 20 46 49 4C 45 20 4E 41  4D 45 20 28 59 2F 4E 29  | FILE NAME (Y/N)|
00001020: 22 3A 8D 33 30 00 53 18  43 1F 54 B2 46 43 3A 8D  |":.30.S.C.T.FC:.|
00001030: 39 35 3A 8B 41 24 B2 22  59 22 A7 99 45 24 3B 22  |95:.A$."Y"..E$;"|
00001040: 4E 45 57 20 4E 41 4D 45  22 3A 85 46 24 3A 8D 32  |NEW NAME":.F$:.2|
00001050: 30 30 30 00 7B 18 45 1F  99 4C 24 3A 8D 36 30 3A  |000.{.E..L$:.60:|
00001060: 5A 24 B2 22 2C 22 3A 8B  43 B2 31 A7 9F 31 2C 31  |Z$.",":.C.1..1,1|
00001070: 2C 32 2C 46 24 3A 89 38  30 31 37 00 95 18 4A 1F  |,2,F$:.8017...J.|
00001080: 9F 43 2C 38 2C 32 2C 22  40 30 3A 22 AA 46 24 AA  |.C,8,2,"@0:".F$.|
00001090: 22 53 2C 57 22 00 AA 18  51 1F 98 43 2C 46 24 3B  |"S,W"...Q..C,F$;|
000010A0: 5A 24 3B 52 43 3B 5A 24  3B 54 00 C7 18 52 1F 81  |Z$;RC;Z$;T...R..|
000010B0: 49 B2 31 A4 46 43 3A 8B  50 46 24 28 49 29 B2 22  |I.1.FC:.PF$(I)."|
000010C0: 4E 22 A7 38 30 32 35 00  D5 18 54 1F 98 43 2C 46  |N".8025...T..C,F|
000010D0: 54 24 28 49 29 00 DB 18  59 1F 82 00 E7 18 5E 1F  |T$(I)...Y.....^.|
000010E0: 81 49 B2 30 A4 52 43 00  04 19 63 1F 81 4A B2 30  |.I.0.RC...c..J.0|
000010F0: A4 46 43 3A 8B 50 46 24  28 4A 29 B2 22 4E 22 A7  |.FC:.PF$(J)."N".|
00001100: 38 30 34 30 00 1E 19 65  1F 98 43 2C 4B 25 28 49  |8040...e..C,K%(I|
00001110: 2C 4A 29 3B 5A 24 3B 44  24 28 49 2C 4A 29 00 2C  |,J);Z$;D$(I,J).,|
00001120: 19 68 1F 82 4A 2C 49 3A  A0 43 3A 8E 00 4D 19 28  |.h..J,I:.C:..M.(|
00001130: 23 8D 33 30 30 3A 99 A3  36 AA 57 29 22 90 4C 4F  |#.300:..6.W)".LO|
00001140: 41 44 20 46 49 4C 45 1F  22 3A 99 3A 99 00 65 19  |AD FILE.":.:..e.|
00001150: 2B 23 99 45 24 3B 22 46  49 4C 45 20 4E 41 4D 45  |+#.E$;"FILE NAME|
00001160: 22 3A 85 46 24 00 8D 19  2D 23 99 3A 99 4C 24 3A  |":.F$...-#.:.L$:|
00001170: 8D 36 30 3A 45 52 B2 30  3A 8B 43 B2 31 A7 9F 31  |.60:ER.0:.C.1..1|
00001180: 2C 31 2C 30 2C 46 24 3A  89 39 30 31 31 00 A6 19  |,1,0,F$:.9011...|
00001190: 32 23 9F 43 2C 38 2C 32  2C 22 30 3A 22 AA 46 24  |2#.C,8,2,"0:".F$|
000011A0: AA 22 53 2C 52 22 00 D8  19 33 23 84 43 2C 46 24  |."S,R"...3#.C,F$|
000011B0: 2C 52 43 2C 46 43 3A 8B  52 43 B2 30 A7 99 22 42  |,RC,FC:.RC.0.."B|
000011C0: 41 44 20 46 49 4C 45 20  4E 41 4D 45 22 3A 45 52  |AD FILE NAME":ER|
000011D0: B2 31 3A 89 39 30 35 30  00 FC 19 34 23 8B 52 43  |.1:.9050...4#.RC|
000011E0: B1 4D 52 A7 99 4D 24 3B  22 52 45 43 4F 52 44 53  |.MR..M$;"RECORDS|
000011F0: 22 3A 45 52 B2 31 3A 89  39 30 35 30 00 1F 1A 35  |":ER.1:.9050...5|
00001200: 23 8B 46 43 B1 4D 46 A7  99 4D 24 3B 22 46 49 45  |#.FC.MF..M$;"FIE|
00001210: 4C 44 53 22 3A 45 52 B2  31 3A 89 39 30 35 30 00  |LDS":ER.1:.9050.|
00001220: 37 1A 37 23 81 49 B2 31  A4 46 43 3A 84 43 2C 46  |7.7#.I.1.FC:.C,F|
00001230: 54 24 28 49 29 3A 82 00  63 1A 50 23 81 49 B2 30  |T$(I):..c.P#.I.0|
00001240: A4 52 43 3A 81 4A B2 30  A4 46 43 3A 84 43 2C 4B  |.RC:.J.0.FC:.C,K|
00001250: 25 28 49 2C 4A 29 2C 44  24 28 49 2C 4A 29 3A 82  |%(I,J),D$(I,J):.|
00001260: 4A 2C 49 00 79 1A 5A 23  A0 43 3A 8B 45 52 B2 31  |J,I.y.Z#.C:.ER.1|
00001270: A7 8D 36 30 3A 89 32 30  30 00 7F 1A 6E 23 8E 00  |..60:.200...n#..|
00001280: 96 1A 10 27 99 A3 37 AA  57 29 22 90 52 45 56 49  |...'..7.W)".REVI|
00001290: 45 57 1F 22 3A 99 00 BE  1A 1A 27 52 B2 31 3A 43  |EW.":.....'R.1:C|
000012A0: B2 31 3A 99 45 24 3B 22  53 54 41 52 54 49 4E 47  |.1:.E$;"STARTING|
000012B0: 20 22 3B 52 24 3A 85 52  3A 52 B2 52 AA 31 00 CE  | ";R$:.R:R.R.1..|
000012C0: 1A 1B 27 41 B2 52 3A 42  B2 52 3A 8D 37 30 00 FE  |..'A.R:B.R:.70..|
000012D0: 1A 42 27 99 22 31 3E 4E  45 58 54 20 32 3E 42 41  |.B'."1>NEXT 2>BA|
000012E0: 43 4B 20 33 3E 52 45 54  55 52 4E 22 3A 85 43 3A  |CK 3>RETURN":.C:|
000012F0: 8B 43 B3 31 B0 43 B1 33  A7 31 30 30 35 30 00 19  |.C.1.C.3.10050..|
00001300: 1B 4D 27 8B 43 B2 31 AF  52 B3 52 43 A7 52 B2 52  |.M'.C.1.R.RC.R.R|
00001310: AA 31 3A 89 31 30 30 31  31 00 33 1B 5B 27 8B 43  |.1:.10011.3.['.C|
00001320: B2 32 AF 52 B1 32 A7 52  B2 52 AB 31 3A 89 31 30  |.2.R.2.R.R.1:.10|
00001330: 30 31 31 00 3E 1B 60 27  8B 43 B2 33 A7 8E 00 5A  |011.>.`'.C.3...Z|
00001340: 1B 6A 27 99 22 45 4E 44  20 4F 46 20 46 49 4C 45  |.j'."END OF FILE|
00001350: 22 3A 99 3A 89 31 30 30  35 30 00 87 1B C8 32 99  |":.:.10050....2.|
00001360: A3 32 AA 57 29 22 90 53  45 54 20 55 50 20 41 20  |.2.W)".SET UP A |
00001370: 4E 45 57 20 46 49 4C 45  1F 22 3A 99 3A 52 43 B2  |NEW FILE.":.:RC.|
00001380: 31 3A 99 57 24 3A 99 00  93 1B D2 32 81 49 B2 30  |1:.W$:.....2.I.0|
00001390: A4 4D 52 00 9F 1B DC 32  81 4A B2 30 A4 4D 46 00  |.MR....2.J.0.MF.|
000013A0: C5 1B F0 32 44 24 28 49  2C 4A 29 B2 22 22 3A 8B  |...2D$(I,J)."":.|
000013B0: 4A B3 B1 30 A7 4B 25 28  49 2C 4A 29 B2 30 3A 89  |J..0.K%(I,J).0:.|
000013C0: 31 33 30 35 30 00 D3 1B  F5 32 4B 25 28 49 2C 4A  |13050....2K%(I,J|
000013D0: 29 B2 31 00 DC 1B FA 32  82 4A 2C 49 00 0A 1C 18  |).1....2.J,I....|
000013E0: 33 8B 43 46 B2 31 A7 99  22 93 22 3A 99 A3 33 AA  |3.CF.1..".":..3.|
000013F0: 57 29 22 90 52 45 43 4F  4E 46 49 47 55 52 45 20  |W)".RECONFIGURE |
00001400: 46 49 4C 45 1F 22 3A 99  3A 99 00 38 1C 36 33 42  |FILE.":.:..8.63B|
00001410: 24 B2 22 22 3A 99 45 24  3B 22 46 49 4C 45 20 4E  |$."":.E$;"FILE N|
00001420: 41 4D 45 22 3A 85 42 24  3A 99 3A 43 46 B2 30 3A  |AME":.B$:.:CF.0:|
00001430: 8B 42 24 B2 22 22 A7 8E  00 7A 1C 40 33 46 24 B2  |.B$.""...z.@3F$.|
00001440: 42 24 3A 99 45 24 3B 22  4E 55 4D 42 45 52 20 4F  |B$:.E$;"NUMBER O|
00001450: 46 20 46 49 45 4C 44 53  20 50 45 52 20 52 45 43  |F FIELDS PER REC|
00001460: 4F 52 44 22 3A 85 46 43  3A 8B 46 43 B3 31 B0 46  |ORD":.FC:.FC.1.F|
00001470: 43 B1 4D 46 A7 31 33 31  32 30 00 86 1C 54 33 81  |C.MF.13120...T3.|
00001480: 49 B2 31 A4 46 43 00 A0  1C 5E 33 99 22 93 22 3A  |I.1.FC...^3.".":|
00001490: 99 22 46 49 45 4C 44 20  4E 4F 2E 22 3B 49 3A 99  |."FIELD NO.";I:.|
000014A0: 00 C0 1C 63 33 99 45 24  3B 22 46 49 45 4C 44 20  |...c3.E$;"FIELD |
000014B0: 4E 41 4D 45 22 3A 85 44  24 28 30 2C 49 29 3A 99  |NAME":.D$(0,I):.|
000014C0: 00 DE 1C 64 33 99 45 24  3B 22 46 49 45 4C 44 20  |...d3.E$;"FIELD |
000014D0: 53 49 5A 45 22 3A 85 4B  25 28 30 2C 49 29 00 03  |SIZE":.K%(0,I)..|
000014E0: 1D 68 33 99 3A 99 45 24  3B 22 46 49 45 4C 44 20  |.h3.:.E$;"FIELD |
000014F0: 54 59 50 45 20 28 4E 2F  53 29 22 3A 85 46 54 24  |TYPE (N/S)":.FT$|
00001500: 28 49 29 00 26 1D 6A 33  8B 46 54 24 28 49 29 B3  |(I).&.j3.FT$(I).|
00001510: B1 22 4E 22 AF 46 54 24  28 49 29 B3 B1 22 53 22  |."N".FT$(I).."S"|
00001520: A7 31 33 31 36 30 00 3C  1D 6D 33 8D 32 30 3A 8B  |.13160.<.m3.20:.|
00001530: 41 24 B2 22 4E 22 A7 31  33 31 35 30 00 42 1D 72  |A$."N".13150.B.r|
00001540: 33 82 00 48 1D 7C 33 8E  00 5E 1D 98 3A 8B 46 50  |3..H.|3..^..:.FP|
00001550: B2 31 A7 50 4E B2 30 3A  89 31 35 30 35 30 00 6D  |.1.PN.0:.15050.m|
00001560: 1D A2 3A 81 51 B2 31 A4  36 3A 99 3A 82 00 9B 1D  |..:.Q.1.6:.:....|
00001570: CA 3A 50 4E B2 50 4E AA  31 3A 54 B2 28 58 AB C3  |.:PN.PN.1:T.(X..|
00001580: 28 46 24 29 29 AD 32 3A  99 22 50 41 47 45 20 22  |(F$)).2:."PAGE "|
00001590: 3B 50 4E 3B A3 54 29 46  24 3A 99 00 C4 1D CF 3A  |;PN;.T)F$:.....:|
000015A0: 5A B2 31 3A 81 4A B2 31  A4 46 43 3A 8B 50 46 24  |Z.1:.J.1.FC:.PF$|
000015B0: 28 4A 29 B2 22 4E 22 A7  5A B2 5A AA 31 3A 89 31  |(J)."N".Z.Z.1:.1|
000015C0: 35 30 39 30 00 04 1E D4  3A 4B B2 4B 25 28 30 2C  |5090....:K.K%(0,|
000015D0: 4A AB 5A 29 3A 44 24 B2  C8 28 44 24 28 30 2C 4A  |J.Z):D$..(D$(0,J|
000015E0: AB 5A 29 2C 4B 29 3A 43  24 B2 C8 28 44 24 28 30  |.Z),K):C$..(D$(0|
000015F0: 2C 4A 29 2C 4B 25 28 30  2C 4A 29 29 3A 5A B2 31  |,J),K%(0,J)):Z.1|
00001600: 3A 54 B2 4A 00 18 1E DE  3A 99 A6 4B AB C3 28 44  |:T.J....:..K..(D|
00001610: 24 29 AA 31 29 43 24 3B  00 1E 1E F2 3A 82 00 43  |$).1)C$;....:..C|
00001620: 1E F7 3A 8B 50 52 24 B2  22 59 22 A7 99 A6 4B 25  |..:.PR$."Y"...K%|
00001630: 28 30 2C 54 29 AB C3 28  43 24 29 AA 31 29 22 52  |(0,T)..(C$).1)"R|
00001640: 45 43 22 00 50 1E FC 3A  99 3A 4C 43 B2 30 3A 8E  |EC".P..:.:LC.0:.|
00001650: 00 6D 1E 80 3E 99 22 93  22 3A 99 A3 37 AA 57 29  |.m..>.".":..7.W)|
00001660: 22 90 41 4E 41 4C 59 5A  45 1F 22 3A 99 00 92 1E  |".ANALYZE.":....|
00001670: 8C 3E 46 B2 30 3A 99 3A  99 45 24 3B 22 46 49 45  |.>F.0:.:.E$;"FIE|
00001680: 4C 44 20 4E 4F 2E 22 3B  3A 85 46 3A 8B 46 B2 30  |LD NO.";:.F:.F.0|
00001690: A7 8E 00 A2 1E 8E 3E 8B  46 B1 46 43 A7 31 36 30  |......>.F.FC.160|
000016A0: 30 30 00 B8 1E 8F 3E 8B  46 54 24 28 46 29 B2 22  |00....>.FT$(F)."|
000016B0: 53 22 A7 31 36 30 30 30  00 FA 1E 9E 3E 53 B2 30  |S".16000....>S.0|
000016C0: 3A 53 53 B2 30 3A 47 B2  31 3A 81 52 B2 32 A4 52  |:SS.0:G.1:.R.2.R|
000016D0: 43 3A 58 B2 C5 28 44 24  28 52 2C 46 29 29 3A 53  |C:X..(D$(R,F)):S|
000016E0: B2 53 AA 58 3A 53 53 B2  53 53 AA 58 AC 58 3A 47  |.S.X:SS.SS.X.X:G|
000016F0: B2 4B 25 28 47 2C 46 29  3A 82 00 16 1F AD 3E 4E  |.K%(G,F):.....>N|
00001700: B2 52 43 AB 31 3A 4D B2  53 AD 4E 3A 56 B2 53 53  |.RC.1:M.S.N:V.SS|
00001710: AD 4E AB 4D AC 4D 00 38  1F B2 3E 99 3A 99 22 4E  |.N.M.M.8..>.:."N|
00001720: 55 4D 42 45 52 20 3D 22  3B 4E 3A 99 22 53 55 4D  |UMBER =";N:."SUM|
00001730: 20 20 20 20 3D 22 3B 53  00 69 1F B7 3E 99 22 4D  |    =";S.i..>."M|
00001740: 45 41 4E 20 20 20 3D 22  3B 4D 3A 99 22 56 41 52  |EAN   =";M:."VAR|
00001750: 20 20 20 20 3D 22 3B 56  3A 99 22 53 54 44 20 44  |    =";V:."STD D|
00001760: 45 56 3D 22 3B BA 28 56  29 00 9D 1F B9 3E 99 22  |EV=";.(V)....>."|
00001770: 4D 49 4E 20 20 20 20 3D  20 22 3B 44 24 28 4B 25  |MIN    = ";D$(K%|
00001780: 28 31 2C 46 29 2C 46 29  3A 99 22 4D 41 58 20 20  |(1,F),F):."MAX  |
00001790: 20 20 3D 20 22 3B 44 24  28 47 2C 46 29 00 D3 1F  |  = ";D$(G,F)...|
000017A0: BC 3E 99 3A 99 22 41 4E  4F 54 48 45 52 20 46 49  |.>.:."ANOTHER FI|
000017B0: 45 4C 44 20 28 59 2F 4E  29 22 3B 3A 8D 33 30 3A  |ELD (Y/N)";:.30:|
000017C0: 8B 41 24 B2 22 59 22 A7  99 22 93 22 3A 89 31 36  |.A$."Y"..".":.16|
000017D0: 30 30 30 00 D9 1F EE 3E  8E 00 0A 20 20 4E 99 22  |000....>...  N."|
000017E0: 44 49 44 20 59 4F 55 20  53 41 56 45 20 54 48 45  |DID YOU SAVE THE|
000017F0: 20 46 49 4C 45 20 28 59  2F 4E 29 22 3A 8D 33 30  | FILE (Y/N)":.30|
00001800: 3A 8B 41 24 B2 22 4E 22  A7 8E 00 15 20 3E 4E 8B  |:.A$."N".... >N.|
00001810: 43 B2 37 A7 31 00 20 20  48 4E 8B 43 B2 38 A7 80  |C.7.1.  HN.C.8..|
00001820: 00 3D 20 C0 5D 99 A3 36  AA 57 29 22 90 50 52 49  |.= .]..6.W)".PRI|
00001830: 4E 54 20 4D 45 4E 55 1F  22 3A 99 3A 99 00 4F 20  |NT MENU.":.:..O |
00001840: CA 5D 99 22 3C 31 3E 56  49 44 45 4F 22 3A 99 00  |.]."<1>VIDEO":..|
00001850: 63 20 CB 5D 99 22 3C 32  3E 50 52 49 4E 54 45 52  |c .]."<2>PRINTER|
00001860: 22 3A 99 00 7A 20 DE 5D  8D 35 30 3A 8B 43 B3 30  |":..z .].50:.C.0|
00001870: B0 43 B1 32 A7 32 34 30  30 30 00 85 20 E0 5D 8B  |.C.2.24000.. .].|
00001880: 43 B2 30 A7 8E 00 98 20  E3 5D 51 B2 43 3A 8B 43  |C.0.... .]Q.C:.C|
00001890: B2 31 A7 32 35 30 38 37  00 C1 20 A8 61 99 22 93  |.1.25087.. .a.".|
000018A0: 22 3A 99 A3 35 AA 57 29  22 90 50 52 49 4E 54 20  |":..5.W)".PRINT |
000018B0: 4F 50 54 49 4F 4E 53 1F  22 3A 99 3A 99 3A 8D 39  |OPTIONS.":.:.:.9|
000018C0: 35 00 EC 20 BC 61 99 50  24 3B 22 52 45 43 4F 52  |5.. .a.P$;"RECOR|
000018D0: 44 20 4E 55 4D 42 45 52  53 20 20 28 59 2F 4E 29  |D NUMBERS  (Y/N)|
000018E0: 22 3A 8D 33 30 3A 50 52  24 B2 41 24 00 17 21 C6  |":.30:PR$.A$..!.|
000018F0: 61 99 50 24 3B 22 44 45  4C 45 54 45 44 20 52 45  |a.P$;"DELETED RE|
00001900: 43 4F 52 44 53 20 28 59  2F 4E 29 22 3A 8D 33 30  |CORDS (Y/N)":.30|
00001910: 3A 50 44 24 B2 41 24 00  51 21 E4 61 99 50 24 3B  |:PD$.A$.Q!.a.P$;|
00001920: 22 53 45 4C 45 43 54 45  44 20 52 45 43 4F 52 44  |"SELECTED RECORD|
00001930: 53 20 28 59 2F 4E 29 22  3A 8D 33 30 3A 50 53 24  |S (Y/N)":.30:PS$|
00001940: B2 41 24 3A 8B 41 24 B2  22 59 22 A7 8D 37 30 30  |.A$:.A$."Y"..700|
00001950: 30 00 83 21 EE 61 99 50  24 3B 22 53 45 4C 45 43  |0..!.a.P$;"SELEC|
00001960: 54 45 44 20 46 49 45 4C  44 53 20 28 59 2F 4E 29  |TED FIELDS (Y/N)|
00001970: 22 3A 8D 33 30 3A 8B 41  24 B2 22 59 22 A7 8D 32  |":.30:.A$."Y"..2|
00001980: 30 31 30 00 C5 21 F0 61  99 50 24 3B 22 49 4E 20  |010..!.a.P$;"IN |
00001990: 43 4F 4E 44 45 4E 53 45  44 20 20 20 20 4D 4F 44  |CONDENSED    MOD|
000019A0: 45 20 28 59 2F 4E 29 22  3A 8D 33 30 3A 50 43 24  |E (Y/N)":.30:PC$|
000019B0: B2 41 24 3A 8B 41 24 B2  22 59 22 A7 99 45 24 3B  |.A$:.A$."Y"..E$;|
000019C0: 4B 24 3A 85 56 00 03 22  FA 61 99 50 24 3B 22 49  |K$:.V..".a.P$;"I|
000019D0: 4E 20 53 4F 52 54 45 44  20 4F 52 44 45 52 20 28  |N SORTED ORDER (|
000019E0: 59 2F 4E 29 22 3A 8D 33  30 3A 53 52 24 B2 41 24  |Y/N)":.30:SR$.A$|
000019F0: 3A 8B 41 24 B2 22 4E 22  A7 46 B2 31 3A 89 32 35  |:.A$."N".F.1:.25|
00001A00: 30 38 37 00 3A 22 FD 61  99 22 45 4E 54 45 52 20  |087.:".a."ENTER |
00001A10: 53 4F 52 54 20 46 49 45  4C 44 20 4E 4F 2E 2C 20  |SORT FIELD NO., |
00001A20: 31 20 2D 22 3B 46 43 3A  85 46 3A 8B 46 B3 31 B0  |1 -";FC:.F:.F.1.|
00001A30: 46 B1 46 43 A7 32 35 30  38 35 00 56 22 FE 61 8B  |F.FC.25085.V".a.|
00001A40: 53 52 24 B2 22 59 22 A7  41 B2 32 3A 42 B2 52 43  |SR$."Y".A.2:B.RC|
00001A50: 3A 89 33 30 30 30 00 8A  22 FF 61 41 B2 31 3A 99  |:.3000..".aA.1:.|
00001A60: 45 24 3B 22 53 54 41 52  54 49 4E 47 20 22 3B 52  |E$;"STARTING ";R|
00001A70: 24 3A 85 41 3A 41 B2 41  AA 31 3A 8B 41 B3 32 B0  |$:.A:A.A.1:.A.2.|
00001A80: 41 B1 52 43 A7 32 35 30  38 37 00 BF 22 01 62 42  |A.RC.25087..".bB|
00001A90: B2 52 43 AB 31 3A 99 45  24 3B 22 45 4E 44 49 4E  |.RC.1:.E$;"ENDIN|
00001AA0: 47 20 22 3B 52 24 3A 85  42 3A 42 B2 42 AA 31 3A  |G ";R$:.B:B.B.1:|
00001AB0: 8B 42 B3 41 B0 42 B1 52  43 A7 32 35 30 38 39 00  |.B.A.B.RC.25089.|
00001AC0: CE 22 02 62 91 51 89 37  30 2C 33 30 30 30 00 F3  |.".b.Q.70,3000..|
00001AD0: 22 90 65 99 22 93 22 3A  99 A3 35 AA 57 29 22 90  |".e.".":..5.W)".|
00001AE0: 4D 41 49 4E 54 41 49 4E  20 4D 45 4E 55 1F 22 3A  |MAINTAIN MENU.":|
00001AF0: 99 3A 99 00 03 23 9A 65  99 22 3C 31 3E 41 44 44  |.:...#.e."<1>ADD|
00001B00: 22 3A 99 00 16 23 A4 65  99 22 3C 32 3E 43 48 41  |":...#.e."<2>CHA|
00001B10: 4E 47 45 22 3A 99 00 29  23 AA 65 99 22 3C 33 3E  |NGE":..)#.e."<3>|
00001B20: 44 45 4C 45 54 45 22 3A  99 00 3C 23 AC 65 99 22  |DELETE":..<#.e."|
00001B30: 3C 34 3E 53 45 41 52 43  48 22 3A 99 00 4F 23 AE  |<4>SEARCH":..O#.|
00001B40: 65 99 22 3C 35 3E 52 45  56 49 45 57 22 3A 99 00  |e."<5>REVIEW":..|
00001B50: 61 23 B8 65 99 22 3C 36  3E 50 55 52 47 45 22 3A  |a#.e."<6>PURGE":|
00001B60: 99 00 78 23 C5 65 8D 35  30 3A 8B 43 B3 30 B0 43  |..x#.e.50:.C.0.C|
00001B70: B1 36 89 32 36 30 30 30  00 83 23 C6 65 8B 43 B2  |.6.26000..#.e.C.|
00001B80: 30 A7 8E 00 B1 23 CC 65  91 43 8D 31 30 30 30 2C  |0....#.e.C.1000,|
00001B90: 34 30 30 30 2C 35 30 30  30 2C 32 37 30 30 30 2C  |4000,5000,27000,|
00001BA0: 31 30 30 30 30 2C 36 30  30 30 3A 89 32 36 30 30  |10000,6000:.2600|
00001BB0: 30 00 CD 23 78 69 99 22  93 22 3A 99 A3 37 AA 57  |0..#xi.".":..7.W|
00001BC0: 29 22 90 53 45 41 52 43  48 1F 22 3A 99 00 E0 23  |)".SEARCH.":...#|
00001BD0: 82 69 4B B2 30 3A 8D 31  36 3A 8B 46 B2 30 A7 8E  |.iK.0:.16:.F.0..|
00001BE0: 00 19 24 87 69 99 3A 99  22 53 45 41 52 43 48 20  |..$.i.:."SEARCH |
00001BF0: 52 45 4C 41 54 49 4F 4E  22 3A 99 3A 99 22 3C 31  |RELATION":.:."<1|
00001C00: 3E 45 51 55 41 4C 22 3A  99 3A 99 22 3C 32 3E 4E  |>EQUAL":.:."<2>N|
00001C10: 4F 54 20 45 51 55 41 4C  22 00 57 24 89 69 99 3A  |OT EQUAL".W$.i.:|
00001C20: 99 22 3C 33 3E 4C 45 53  53 20 54 48 41 4E 22 3A  |."<3>LESS THAN":|
00001C30: 99 3A 99 22 3C 34 3E 47  52 45 41 54 45 52 20 54  |.:."<4>GREATER T|
00001C40: 48 41 4E 22 3A 8D 35 30  3A 8B 43 B3 31 B0 43 B1  |HAN":.50:.C.1.C.|
00001C50: 34 A7 32 37 30 31 35 00  63 24 8C 69 81 52 B2 32  |4.27015.c$.i.R.2|
00001C60: A4 52 43 00 82 24 91 69  91 43 89 32 37 30 33 30  |.RC..$.i.C.27030|
00001C70: 2C 32 37 30 33 32 2C 32  37 30 33 34 2C 32 37 30  |,27032,27034,270|
00001C80: 33 36 00 99 24 96 69 8B  44 24 28 52 2C 46 29 B3  |36..$.i.D$(R,F).|
00001C90: B1 43 24 A7 32 37 30 35  30 00 A4 24 97 69 89 32  |.C$.27050..$.i.2|
00001CA0: 37 30 34 30 00 BA 24 98  69 8B 44 24 28 52 2C 46  |7040..$.i.D$(R,F|
00001CB0: 29 B2 43 24 A7 32 37 30  35 30 00 C5 24 99 69 89  |).C$.27050..$.i.|
00001CC0: 32 37 30 34 30 00 E2 24  9A 69 8B C5 28 44 24 28  |27040..$.i..(D$(|
00001CD0: 52 2C 46 29 29 B1 B2 C5  28 43 24 29 A7 32 37 30  |R,F))...(C$).270|
00001CE0: 35 30 00 ED 24 9B 69 89  32 37 30 34 30 00 0A 25  |50..$.i.27040..%|
00001CF0: 9C 69 8B C5 28 44 24 28  52 2C 46 29 29 B3 B2 C5  |.i..(D$(R,F))...|
00001D00: 28 43 24 29 A7 32 37 30  35 30 00 24 25 A0 69 41  |(C$).27050.$%.iA|
00001D10: B2 52 3A 42 B2 52 3A 4B  B2 4B AA 31 3A 8D 37 30  |.R:B.R:K.K.1:.70|
00001D20: 3A 8D 36 30 00 2A 25 AA  69 82 00 4E 25 B4 69 99  |:.60.*%.i..N%.i.|
00001D30: 3A 99 4B 3B 22 52 45 43  4F 52 44 53 20 46 4F 55  |:.K;"RECORDS FOU|
00001D40: 4E 44 22 3A 8D 36 30 3A  89 32 37 30 30 30 00 00  |ND":.60:.27000..|
00001D50: 00                                                |.               |

.......:MR.100:MF.5:.53281,1.=...X.100:.
B(58630).40.W.9:X.225.H....808,X.B....".
":..7.W)".VALORUM".|.....4.W)"FILE  MANA
GER".......7.W)"V  0.68".......2.W)"COPY
RIGHT (C) 1983.":.:.:.100.....C.0:F.0:."
ENTER FIELD NO.";F:.F.0........F.1.F.FC.
16......:."ENTER TEST EXPRESSION":.C$:..
4....:."DATA CORRECT (Y/N)";.S...A$."":.
A$:.A$."Y".A$."N"...Q.(..:."REPLY 'Y' OR
 'N'":.30...2.C.0:.:."ENTER YOUR CHOICE"
;C:.".":....<..:."PRESS RETURN";X:.".":.
.C.F..I.A.B...H..".":."FILE NAME:";F$:.R
$;I.1;"OF";RC.1...L.D$."ACTIVE":.D$(I,0)
."D".D$."DELETED".-.N.."STATUS:";D$:..R.
R..J.1.FC:.J;D$(0,J);":";D$(I,J):....U.X
$."":.A..B..:."PRESS RETURN TO CONTINUE,
 .A. TO ABORT":.X$. .V..X$."A".....X....
.Z..:..I._..I.1.FC:PF$(I)."Y":.:....D.R$
."RECORD NO.":E$."ENTER ":S$."PRINT FREE
 SPACE (Y/N)":W$."PLEASE WAIT".A.O.M$."T
OO MANY ":P$."PRINT ":L$."INSERT TAPE OR
 DISK":K$."CODE 15 OR 20"...X..K%(MR,MF)
,D$(MR,MF),FT$(MF),PF$(MF)...Y..I.1.MR:K
%(I,0).1:....H...4.W)".START UP MENU.":.
...R..:."<1>SET UP A NEW FILE"...W..:."<
2>GET AN OLD FILE"...X..:."<3>CHG MAX RE
C OR FLDS":..1....50:.C.1.C.3.200.]....C
.3..:."ENTER MR";MR:."ENTER MF";MF:.5.T.
...C.13000,9000:.500...,...4.W)".STORAGE
 METHOD.":.:.:."<1>TAPE":.:."<2>DISK.C.6
..:.50:.C.1.C.2.300.I.J........".":..6.W
)".MAIN MENU.":.:......."<1>MAINTAIN":..
....."<2>SORT":.."...."<3>PRINT":..6....
"<4>ANALYZE":..N...."<5>RECONFIGURE":.._
...."<6>SAVE":..Q.&.."<7>CLEAR":....+.."
<8>QUIT":....0..50:.C.1.C.8.500...5..C.5
.CF.1...:..C.26000,1080,24000,16000,1308
0,8000,20000,20000:.500......I.RC.1.RC.1
000......".":..9.W)".ADD.":..7....E$;R$;
I.1:."(TO END INPUT ENTER *)":..G....J.1
.FC:D$(I,J)."":.J;D$(0,J);":";:.D$(I,J).
....NC.0.D$(I,J)."*"........D$(I,J)."*"
.1060.Z...CV.0:.C(D$(I,J)).K%(0,J).."ENT
RY TOO LONG   ":.:J.J.1:CV.1:.1037......
FT$(J)."S".E(D$(I,J))..0.1037......D$(I,
J)."0".D$(I,J)."".1037.D...."ENTRY NOT N
UMERIC":.:J.J.1:CV.1.P....CH.1...V.....T
....20:.A$."Y".RC.RC.1:.1045......:.E$;"
FIELD NO.";:.F:.F.1.F.FC.1040.N...A.I:B.
I:.70:I.I.1:.:.F;D$(0,F);":";:.D$(I,F)..
...J.F:CH.1:.1032:CH.0:.CV.1..60:.1041..
....1039.4.....(I.10).10.I..".":.S$:.30:
.A$."Y"..W$;.(0):.60.:.....@.$...V.8..".
":..8.W)".SORT.":.:.:J.0:."ENTER SORT FI
ELD";J...9..J.0.....;..J.1.J.FC.1080...=
..I.1.RC:K%(I,J).0:....>..I.2.RC.X.B..".
":."SORTING ";R$;I.1:G.1...J..K.1.RC.,.T
..FT$(J)."N"..E(D$(I,J))..E(D$(G,J)).K%(
I,J).G:K%(FM,J).I:K.RC:.1180.A.W..FT$(J)
."N".1150.W.Y..D$(I,J)..D$(G,J).K%(I,J).
G:K%(FM,J).I:K.RC:.1180...~..K%(G,J).0.K
%(I,J).0:K%(G,J).I:K.RC:.1180.....FM.G:G
.K%(G,J).A....K,I.G.D.....P.."SAVE SELEC
TED FIELDS  (Y/N)":.30:.A$."N".....Z.T.0
:.I.1.FC.<...."FIELD";I;"(Y/N)";:.30:PF$
(I).A$:.A$."Y".T.T.1.B.....H.....P....:.
"READY PRINTER":.60:.4,4:.4:X.64......PC
$."Y"..G(V):X.105.....FP.1:G.1:.15000:FP
.0......I.A.B.H...G.K%(G,F):.SR$."N".G.I
.Z.!..PD$."Y".3115...&..D$(G,0)."D".3220
...+..K%(G,0).0.3220.,.0.Z.1:.J.1.FC:.PF
$(J)."N".Z.Z.1:.3182.\.L...K%(0,J.Z).C(D
$(G,J.Z)).1)D$(G,J);:Z.1:T.J.C.N..J...Q.
.PR$."Y"...K%(0,T).C(D$(G,T)).1)G.1...R.
.PR$."N"..""...V.LC.LC.1:.LC.55..15000..
.....T....I.1.RC:K%(I,0).1:.......G(18):
.4: 4......... ..".":..8.W)".CHANGE.":..
!...R.0:.E$;R$;:.R:.R.0...:.M.R.R.1:.R.2
.R.RC.4000.N...A.R:B.R:.70:F..1:.E$;"FIE
LD NO.";:.F:.F..1.4000......F.0.F.FC.406
0......:."NOW READS":.D$(R,F).Q....:."SH
OULD BE":.D$(R,F):I.R:J.F:CH.1:.1032:CH.
0......CV.1.."......":.4110...J..4060...
...".":..8.W)".DELETE.":..+...R.0:.E$;R$
;:.R:.R.0...D...R.R.1:.R.2.R.RC.5000.}..
.A.R:B.R:.70:."DELETE RECORD (Y/N)";:.30
:.A$."N".5000.....D$(R,0)."D":.5000...P.
..8.W)".PURGE.":..Q.U..:."WARNING: PURGE
 REMOVES RECORDS"...W..:."<1>CONTINUE":.
:."<2>CANCEL":.:.50:.C.1.C.2.6000...X..C
.2... ....I.2.RC.7....D$(I,0).."D".6120.
X....".":."PURGING ";R$;I.1:FL.0.}....D$
(RC,0)."D".RC.RC.1:FL.1:.6045......J.0.F
C:D$(I,J).D$(RC,J):.J...T..FL..1.RC.RC.1
.........8...T.X..I.1.RC:K%(I,0).0:....B
..16:L.C(C$)......I.2.RC......J.1.C(D$(I
,F)).L.1.0....FT$(F)."N"..E(C$)..E(D$(I,
F)).7090.E....FT$(F)."N".7070.B....C$..J
(D$(I,F),J,L).7090.V....C..2.K%(I,0).1..
....7110......J......C.2.K%(I,0).0...F..
I.O.P.."<1>END  <2>AND  <3>OR":.C:.C.1.C
.3.7120.Z.Z..C.1........7010...@..300:..
6.W)".SAVE FILE.":..%.A.."CHANGE FILE NA
ME (Y/N)":.30.S.C.T.FC:.95:.A$."Y"..E$;"
NEW NAME":.F$:.2000.{.E..L$:.60:Z$.",":.
C.1..1,1,2,F$:.8017...J..C,8,2,"@0:".F$.
"S,W"...Q..C,F$;Z$;RC;Z$;T.G.R..I.1.FC:.
PF$(I)."N".8025.U.T..C,FT$(I)...Y.....^.
.I.0.RC...C..J.0.FC:.PF$(J)."N".8040...E
..C,K%(I,J);Z$;D$(I,J).,.H..J,I: C:..M.(
#.300:..6.W)".LOAD FILE.":.:..E.+#.E$;"F
ILE NAME":.F$...-#.:.L$:.60:ER.0:.C.1..1
,1,0,F$:.9011...2#.C,8,2,"0:".F$."S,R".X
.3#.C,F$,RC,FC:.RC.0.."BAD FILE NAME":ER
.1:.9050...4#.RC.MR..M$;"RECORDS":ER.1:.
9050...5#.FC.MF..M$;"FIELDS":ER.1:.9050.
7.7#.I.1.FC:.C,FT$(I):..C.P#.I.0.RC:.J.0
.FC:.C,K%(I,J),D$(I,J):.J,I.Y.Z# C:.ER.1
..60:.200..N#.....'..7.W)".REVIEW.":...
..'R.1:C.1:.E$;"STARTING ";R$:.R:R.R.1.N
..'A.R:B.R:.70...B'."1>NEXT 2>BACK 3>RET
URN":.C:.C.1.C.3.10050...M'.C.1.R.RC.R.R
.1:.10011.3.['.C.2.R.2.R.R.1:.10011.>.`'
.C.3...Z.J'."END OF FILE":.:.10050...H2.
.2.W)".SET UP A NEW FILE.":.:RC.1:.W$:..
..R2.I.0.MR....2.J.0.MF.E..2D$(I,J)."":.
J..0.K%(I,J).0:.13050.S..2K%(I,J).1....2
.J,I....3.CF.1..".":..3.W)".RECONFIGURE 
FILE.":.:..8.63B$."":.E$;"FILE NAME":.B$
:.:CF.0:.B$.""...Z.@3F$.B$:.E$;"NUMBER O
F FIELDS PER RECORD":.FC:.FC.1.FC.MF.131
20...T3.I.1.FC. .^3.".":."FIELD NO.";I:.
...C3.E$;"FIELD NAME":.D$(0,I):....D3.E$
;"FIELD SIZE":.K%(0,I)...H3.:.E$;"FIELD 
TYPE (N/S)":.FT$(I).&.J3.FT$(I).."N".FT$
(I).."S".13160.<.M3.20:.A$."N".13150.B.R
3..H.|3..^..:.FP.1.PN.0:.15050.M..:.Q.1.
6:.:....J:PN.PN.1:T.(X.C(F$)).2:."PAGE "
;PN;.T)F$:..D.O:Z.1:.J.1.FC:.PF$(J)."N".
Z.Z.1:.15090...T:K.K%(0,J.Z):D$.H(D$(0,J
.Z),K):C$.H(D$(0,J),K%(0,J)):Z.1:T.J....
:..K.C(D$).1)C$;....:..C..:.PR$."Y"...K%
(0,T).C(C$).1)"REC".P..:.:LC.0:..M..>.".
":..7.W)".ANALYZE.":.....>F.0:.:.E$;"FIE
LD NO.";:.F:.F.0......>.F.FC.16000....>.
FT$(F)."S".16000....>S.0:SS.0:G.1:.R.2.R
C:X.E(D$(R,F)):S.S.X:SS.SS.X.X:G.K%(G,F)
:.....>N.RC.1:M.S.N:V.SS.N.M.M.8..>.:."N
UMBER =";N:."SUM    =";S.I..>."MEAN   ="
;M:."VAR    =";V:."STD DEV=";.(V)....>."
MIN    = ";D$(K%(1,F),F):."MAX    = ";D$
(G,F).S..>.:."ANOTHER FIELD (Y/N)";:.30:
.A$."Y"..".":.16000.Y..>...  N."DID YOU 
SAVE THE FILE (Y/N)":.30:.A$."N".... >N.
C.7.1.  HN.C.8...= .]..6.W)".PRINT MENU.
":.:..O J]."<1>VIDEO":..C K]."<2>PRINTER
":..Z .].50:.C.0.C.2.24000.. .].C.0.... 
.]Q.C:.C.1.25087.A .A.".":..5.W)".PRINT 
OPTIONS.":.:.:.95.. .A.P$;"RECORD NUMBER
S  (Y/N)":.30:PR$.A$..!FA.P$;"DELETED RE
CORDS (Y/N)":.30:PD$.A$.Q!.A.P$;"SELECTE
D RECORDS (Y/N)":.30:PS$.A$:.A$."Y"..700
0..!.A.P$;"SELECTED FIELDS (Y/N)":.30:.A
$."Y"..2010.E!.A.P$;"IN CONDENSED    MOD
E (Y/N)":.30:PC$.A$:.A$."Y"..E$;K$:.V.."
.A.P$;"IN SORTED ORDER (Y/N)":.30:SR$.A$
:.A$."N".F.1:.25087.:".A."ENTER SORT FIE
LD NO., 1 -";FC:.F:.F.1.F.FC.25085.V".A.
SR$."Y".A.2:B.RC:.3000..".AA.1:.E$;"STAR
TING ";R$:.A:A.A.1:.A.2.A.RC.25087..".BB
.RC.1:.E$;"ENDING ";R$:.B:B.B.1:.B.A.B.R
C.25089.N".B.Q.70,3000..".E.".":..5.W)".
MAINTAIN MENU.":.:...#.E."<1>ADD":...#.E
."<2>CHANGE":..)#.E."<3>DELETE":..<#.E."
<4>SEARCH":..O#.E."<5>REVIEW":..A#.E."<6
>PURGE":..X#EE.50:.C.0.C.6.26000..#FE.C.
0....#LE.C.1000,4000,5000,27000,10000,60
00:.26000.M#XI.".":..7.W)".SEARCH.":...#
.IK.0:.16:.F.0....$.I.:."SEARCH RELATION
":.:."<1>EQUAL":.:."<2>NOT EQUAL".W$.I.:
."<3>LESS THAN":.:."<4>GREATER THAN":.50
:.C.1.C.4.27015.C$.I.R.2.RC..$.I.C.27030
,27032,27034,27036..$.I.D$(R,F)..C$.2705
0..$.I.27040..$.I.D$(R,F).C$.27050.E$.I.
27040..$.I.E(D$(R,F))..E(C$).27050..$.I.
27040..%.I.E(D$(R,F))..E(C$).27050.$% IA
.R:B.R:K.K.1:.70:.60.*%.I..N%.I.:.K;"REC
ORDS FOUND":.60:.27000...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL