UTILITY 64
FILE INFORMATION
FILENAME(S): UTILITY 64
FILE TYPE(S): PRG
FILE SIZE: 6.3K
FIRST SEEN: 2025-12-02 00:16:57
APPEARS ON: 1 disk(s)
FILE HASH
8ceac2da604f082dd978d43b15ba795a9d841d6d83d0ff6c2e84f0fd295338ff
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PETE WORK DISK | UTILITY 64 | PRG | Maestro | 5 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 20 08 F4 01 97 35 33 32 38 30 2C 36 3A 20 |.. ....53280,6: |
00000010: 97 35 33 32 38 31 2C 36 3A 20 20 99 22 93 9E 22 |.53281,6: .".."|
00000020: 00 43 08 FE 01 99 22 93 1D 1D 1D 1D 1D 1D 1D 1D |.C....".........|
00000030: 1D 1D 1D 50 52 49 4D 41 52 59 20 4F 50 54 49 4F |...PRIMARY OPTIO|
00000040: 4E 53 22 00 6D 08 08 02 99 22 11 11 1D 1D 1D 1D |NS".m...."......|
00000050: 1D 43 52 45 41 54 45 20 46 49 4C 45 2E 2E 2E 2E |.CREATE FILE....|
00000060: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 31 22 00 96 08 |...........1"...|
00000070: 12 02 99 22 11 1D 1D 1D 1D 1D 44 49 53 50 4C 41 |..."......DISPLA|
00000080: 59 20 46 49 4C 45 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |Y FILE..........|
00000090: 2E 2E 2E 2E 32 22 00 BF 08 1C 02 99 22 11 1D 1D |....2"......"...|
000000A0: 1D 1D 1D 4D 4F 44 49 46 59 2F 55 50 44 41 54 45 |...MODIFY/UPDATE|
000000B0: 2F 49 4E 53 45 52 54 2E 2E 2E 2E 2E 2E 33 22 00 |/INSERT......3".|
000000C0: E8 08 26 02 99 22 11 1D 1D 1D 1D 1D 53 45 41 52 |..&.."......SEAR|
000000D0: 43 48 20 46 4F 52 20 44 41 54 41 20 4D 41 54 43 |CH FOR DATA MATC|
000000E0: 48 2E 2E 2E 2E 2E 34 22 00 11 09 30 02 99 22 11 |H.....4"...0..".|
000000F0: 1D 1D 1D 1D 1D 53 41 56 45 20 46 49 4C 45 2E 2E |.....SAVE FILE..|
00000100: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 35 |...............5|
00000110: 22 00 3A 09 3A 02 99 22 11 1D 1D 1D 1D 1D 4C 4F |".:.:.."......LO|
00000120: 41 44 20 46 49 4C 45 2E 2E 2E 2E 2E 2E 2E 2E 2E |AD FILE.........|
00000130: 2E 2E 2E 2E 2E 2E 2E 2E 36 22 00 63 09 44 02 99 |........6".c.D..|
00000140: 22 11 1D 1D 1D 1D 1D 43 4F 4E 54 49 4E 55 45 20 |"......CONTINUE |
00000150: 46 49 4C 45 2E 28 4C 4F 41 44 45 44 29 2E 2E 2E |FILE.(LOADED)...|
00000160: 2E 37 22 00 8C 09 49 02 99 22 11 1D 1D 1D 1D 1D |.7"...I.."......|
00000170: 41 4C 50 48 41 42 45 54 49 43 41 4C 20 53 4F 52 |ALPHABETICAL SOR|
00000180: 54 20 52 4F 55 54 49 4E 45 2E 38 22 00 B5 09 4B |T ROUTINE.8"...K|
00000190: 02 99 22 11 1D 1D 1D 1D 1D 50 52 49 4E 54 4F 55 |.."......PRINTOU|
000001A0: 54 20 4F 46 20 44 41 54 41 2E 2E 2E 2E 2E 2E 2E |T OF DATA.......|
000001B0: 2E 2E 2E 39 22 00 DF 09 4E 02 99 22 11 11 1D 1D |...9"...N.."....|
000001C0: 1D 1D 1D 45 4E 54 45 52 20 44 45 53 49 52 45 44 |...ENTER DESIRED|
000001D0: 20 4F 50 54 49 4F 4E 20 4E 55 4D 42 45 52 22 00 | OPTION NUMBER".|
000001E0: F2 09 50 02 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 35 |..P..K$:.K$."".5|
000001F0: 39 32 00 03 0A 51 02 8B 4B 24 B2 22 31 22 A7 31 |92...Q..K$."1".1|
00000200: 30 30 30 00 14 0A 52 02 8B 4B 24 B2 22 32 22 A7 |000...R..K$."2".|
00000210: 32 30 30 30 00 25 0A 53 02 8B 4B 24 B2 22 33 22 |2000.%.S..K$."3"|
00000220: A7 33 30 30 30 00 36 0A 54 02 8B 4B 24 B2 22 34 |.3000.6.T..K$."4|
00000230: 22 A7 34 30 30 30 00 47 0A 55 02 8B 4B 24 B2 22 |".4000.G.U..K$."|
00000240: 35 22 A7 34 39 39 30 00 58 0A 56 02 8B 4B 24 B2 |5".4990.X.V..K$.|
00000250: 22 36 22 A7 36 30 30 30 00 69 0A 57 02 8B 4B 24 |"6".6000.i.W..K$|
00000260: B2 22 37 22 A7 34 35 30 30 00 7A 0A 58 02 8B 4B |."7".4500.z.X..K|
00000270: 24 B2 22 38 22 A7 39 30 30 30 00 8C 0A 5A 02 8B |$."8".9000...Z..|
00000280: 4B 24 B2 22 39 22 A7 31 30 30 30 30 00 95 0A 62 |K$."9".10000...b|
00000290: 02 89 35 39 32 00 B4 0A E7 03 8F 20 46 49 4C 45 |..592...... FILE|
000002A0: 20 43 52 45 41 54 49 4F 4E 20 4B 4E 4F 57 4E 20 | CREATION KNOWN |
000002B0: 53 49 5A 45 00 BD 0A E8 03 99 22 93 22 00 EC 0A |SIZE......"."...|
000002C0: EC 03 99 22 11 53 41 46 45 54 59 20 43 48 45 43 |...".SAFETY CHEC|
000002D0: 4B 20 59 4F 55 20 4D 41 59 20 44 45 53 54 52 4F |K YOU MAY DESTRO|
000002E0: 59 20 59 4F 55 52 20 46 49 4C 45 22 00 1B 0B ED |Y YOUR FILE"....|
000002F0: 03 99 22 11 50 52 45 53 53 20 27 59 27 20 46 4F |..".PRESS 'Y' FO|
00000300: 52 20 4E 45 57 20 46 49 4C 45 20 27 4E 27 20 52 |R NEW FILE 'N' R|
00000310: 45 54 55 52 4E 2D 4D 45 4E 55 22 00 2F 0B EE 03 |ETURN-MENU"./...|
00000320: A1 4B 24 3A 8B 4B 24 B2 22 22 A7 31 30 30 36 00 |.K$:.K$."".1006.|
00000330: 43 0B EF 03 8B 4B 24 B2 22 59 22 A7 9C 3A 89 31 |C....K$."Y"..:.1|
00000340: 30 31 30 00 53 0B F0 03 8B 4B 24 B2 22 4E 22 A7 |010.S....K$."N".|
00000350: 35 30 30 00 5D 0B F1 03 89 31 30 30 36 00 63 0B |500.]....1006.c.|
00000360: F2 03 8F 00 79 0B F7 03 85 22 11 46 49 4C 45 20 |....y....".FILE |
00000370: 4E 41 4D 45 22 3B 4E 41 24 00 96 0B FC 03 85 22 |NAME";NA$......"|
00000380: 11 1D 1D 48 4F 57 20 4D 41 4E 59 20 52 45 43 4F |...HOW MANY RECO|
00000390: 52 44 53 22 3B 59 00 B2 0B 06 04 85 22 11 1D 1D |RDS";Y......"...|
000003A0: 48 4F 57 20 4D 41 4E 59 20 46 49 45 4C 44 53 22 |HOW MANY FIELDS"|
000003B0: 3B 58 00 C4 0B 0B 04 8B 59 B2 30 B0 58 B2 30 A7 |;X......Y.0.X.0.|
000003C0: 31 30 32 30 00 D9 0B 10 04 86 41 24 28 59 2C 58 |1020......A$(Y,X|
000003D0: 29 2C 46 43 28 59 2C 58 29 00 FD 0B 1A 04 99 22 |),FC(Y,X)......"|
000003E0: 93 4D 41 58 20 46 49 45 4C 44 20 48 45 41 44 49 |.MAX FIELD HEADI|
000003F0: 4E 47 20 4C 45 4E 47 54 48 20 31 35 22 00 08 0C |NG LENGTH 15"...|
00000400: 24 04 81 43 B2 31 A4 58 00 12 0C 2A 04 46 4C B2 |$..C.1.X...*.FL.|
00000410: 31 35 00 24 0C 2E 04 99 22 11 1D 1D 46 49 45 4C |15.$...."...FIEL|
00000420: 44 22 43 3B 00 52 0C 38 04 85 41 24 28 30 2C 43 |D"C;.R.8..A$(0,C|
00000430: 29 3A 8B C3 28 41 24 28 30 2C 43 29 29 B1 46 4C |):..(A$(0,C)).FL|
00000440: A7 99 22 54 4F 4F 20 4C 4F 4E 47 22 3A 89 31 30 |.."TOO LONG":.10|
00000450: 38 30 00 6C 0C 3A 04 46 43 28 30 2C 43 29 B2 46 |80.l.:.FC(0,C).F|
00000460: 4C AB C3 28 41 24 28 30 2C 43 29 29 00 86 0C 3C |L..(A$(0,C))...<|
00000470: 04 81 4C 43 B2 30 A4 46 43 28 30 2C 43 29 3A 43 |..LC.0.FC(0,C):C|
00000480: 43 24 B2 22 2E 22 00 9E 0C 3E 04 41 24 28 30 2C |C$."."...>.A$(0,|
00000490: 43 29 B2 41 24 28 30 2C 43 29 AA 43 43 24 00 A6 |C).A$(0,C).CC$..|
000004A0: 0C 40 04 82 4C 43 00 AD 0C 42 04 82 43 00 BB 0C |.@..LC...B..C...|
000004B0: 4C 04 99 22 93 22 3A 4E 52 B2 31 00 C7 0C 56 04 |L..".":NR.1...V.|
000004C0: 81 52 B2 4E 52 A4 59 00 E7 0C 60 04 99 22 11 1D |.R.NR.Y...`.."..|
000004D0: 45 4E 54 45 52 20 44 41 54 41 20 46 4F 52 20 52 |ENTER DATA FOR R|
000004E0: 45 43 4F 52 44 22 52 00 0C 0D 61 04 99 22 1D 5A |ECORD"R...a..".Z|
000004F0: 5A 5A 20 49 53 20 45 4E 44 20 4F 46 20 46 49 4C |ZZ IS END OF FIL|
00000500: 45 20 49 4E 44 49 43 41 54 4F 52 22 00 17 0D 6A |E INDICATOR"...j|
00000510: 04 81 43 B2 31 A4 58 00 2E 0D 74 04 99 22 1D 45 |..C.1.X...t..".E|
00000520: 4E 54 45 52 20 22 41 24 28 30 2C 43 29 3B 00 3B |NTER "A$(0,C);.;|
00000530: 0D 7E 04 85 41 24 28 52 2C 43 29 00 56 0D 83 04 |.~..A$(R,C).V...|
00000540: 8B 41 24 28 52 2C 43 29 B2 22 5A 5A 5A 22 A7 43 |.A$(R,C)."ZZZ".C|
00000550: B2 58 3A 52 B2 59 00 5D 0D 88 04 82 43 00 64 0D |.X:R.Y.]....C.d.|
00000560: 9C 04 82 52 00 6D 0D A6 04 89 35 30 30 00 80 0D |...R.m....500...|
00000570: CF 07 8F 20 44 49 53 10 4C 41 59 20 46 49 4C 45 |... DIS.LAY FILE|
00000580: 00 89 0D D0 07 99 22 93 22 00 9C 0D DA 07 99 A3 |......".".......|
00000590: 31 36 29 22 4F 50 54 49 4F 4E 53 22 00 AF 0D DF |16)"OPTIONS"....|
000005A0: 07 99 A3 31 36 29 22 A3 A3 A3 A3 A3 A3 A3 22 00 |...16)".......".|
000005B0: D9 0D E4 07 99 22 11 11 1D 1D 1D 1D 1D 53 43 52 |.....".......SCR|
000005C0: 4F 4C 4C 20 45 4E 54 49 52 45 20 46 49 4C 45 2E |OLL ENTIRE FILE.|
000005D0: 2E 2E 2E 2E 2E 2E 2E 31 22 00 02 0E EE 07 99 22 |.......1"......"|
000005E0: 11 1D 1D 1D 1D 1D 44 49 53 50 4C 41 59 20 42 59 |......DISPLAY BY|
000005F0: 20 4B 2F 46 20 43 4F 4E 54 53 2E 2E 2E 2E 2E 2E | K/F CONTS......|
00000600: 32 22 00 2B 0E F8 07 99 22 11 1D 1D 1D 1D 1D 44 |2".+...."......D|
00000610: 49 53 50 4C 41 59 20 42 59 20 52 45 43 20 4E 4F |ISPLAY BY REC NO|
00000620: 2E 2E 2E 2E 2E 2E 2E 2E 2E 33 22 00 54 0E 02 08 |.........3".T...|
00000630: 99 22 11 1D 1D 1D 1D 1D 52 45 54 55 52 4E 20 54 |."......RETURN T|
00000640: 4F 20 50 52 49 4D 41 52 59 20 4F 50 54 49 4F 4E |O PRIMARY OPTION|
00000650: 53 2E 34 22 00 5A 0E 0C 08 99 00 80 0E 16 08 99 |S.4".Z..........|
00000660: 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 4E 54 45 |"...........ENTE|
00000670: 52 20 52 45 51 55 49 52 45 44 20 4E 4F 2E 22 3B |R REQUIRED NO.";|
00000680: 00 94 0E 20 08 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 |... ..K$:.K$."".|
00000690: 32 30 38 30 00 A5 0E 22 08 8B 4B 24 B2 22 31 22 |2080..."..K$."1"|
000006A0: A7 32 31 30 30 00 B6 0E 24 08 8B 4B 24 B2 22 32 |.2100...$..K$."2|
000006B0: 22 A7 32 32 30 30 00 C7 0E 26 08 8B 4B 24 B2 22 |".2200...&..K$."|
000006C0: 33 22 A7 32 33 30 35 00 D7 0E 28 08 8B 4B 24 B2 |3".2305...(..K$.|
000006D0: 22 34 22 A7 35 30 30 00 E1 0E 2A 08 89 32 30 38 |"4".500...*..208|
000006E0: 30 00 FA 0E 33 08 8F 20 53 43 52 4F 4C 4C 20 45 |0...3.. SCROLL E|
000006F0: 4E 54 49 52 45 20 46 49 4C 45 00 0A 0F 34 08 99 |NTIRE FILE...4..|
00000700: 22 93 22 3A 81 52 B2 31 A4 59 00 4E 0F 3E 08 99 |".":.R.1.Y.N.>..|
00000710: 22 93 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D |"...............|
00000720: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000730: 1D 1D 52 45 43 4F 52 44 20 4E 4F 2E 22 3B 52 3A |..RECORD NO.";R:|
00000740: 8B 52 B3 31 A7 52 B2 31 3A 89 32 31 31 30 00 59 |.R.1.R.1:.2110.Y|
00000750: 0F 48 08 81 43 B2 31 A4 58 00 6E 0F 52 08 99 41 |.H..C.1.X.n.R..A|
00000760: 24 28 30 2C 43 29 2C 41 24 28 52 2C 43 29 00 75 |$(0,C),A$(R,C).u|
00000770: 0F 5C 08 82 43 00 A4 0F 66 08 99 22 A4 A4 A4 A4 |.\..C...f.."....|
00000780: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000790: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
000007A0: A4 A4 A4 22 00 D5 0F 70 08 99 22 A5 1D 1D 1D 1D |..."...p..".....|
000007B0: 1D 50 52 45 53 53 20 12 53 50 41 43 45 92 20 46 |.PRESS .SPACE. F|
000007C0: 4F 52 20 4E 45 58 54 20 52 45 43 4F 52 44 20 20 |OR NEXT RECORD |
000007D0: 20 20 20 A7 22 00 08 10 75 08 99 22 A5 12 5F 92 | ."...u..".._.|
000007E0: 20 54 4F 20 47 4F 20 42 41 43 4B 20 4F 4E 45 20 | TO GO BACK ONE |
000007F0: 4F 52 20 12 51 92 20 54 4F 20 4C 45 41 56 45 20 |OR .Q. TO LEAVE |
00000800: 53 43 52 4F 4C 4C A7 22 00 37 10 77 08 99 22 A3 |SCROLL.".7.w..".|
00000810: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000820: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000830: A3 A3 A3 A3 A3 A3 22 00 6A 10 78 08 99 22 12 20 |......".j.x..". |
00000840: 20 20 20 20 20 50 52 45 53 53 20 92 20 50 20 12 | PRESS . P .|
00000850: 46 4F 52 20 53 43 52 45 45 4E 20 48 41 52 44 20 |FOR SCREEN HARD |
00000860: 43 4F 50 59 20 20 20 20 92 22 00 7E 10 7A 08 A1 |COPY .".~.z..|
00000870: 4B 24 3A 8B 4B 24 B2 22 22 A7 32 31 37 30 00 96 |K$:.K$."".2170..|
00000880: 10 7F 08 8B 4B 24 B2 22 5F 22 A7 52 B2 52 AB 32 |....K$."_".R.R.2|
00000890: 3A 89 32 31 39 37 00 AC 10 84 08 8B 4B 24 B2 22 |:.2197......K$."|
000008A0: 51 22 A7 52 B2 59 3A 89 32 31 39 37 00 BD 10 89 |Q".R.Y:.2197....|
000008B0: 08 8B 4B 24 B2 22 20 22 A7 32 31 39 37 00 D0 10 |..K$." ".2197...|
000008C0: 8B 08 8B 4B 24 B2 22 50 22 A7 8D 36 30 30 30 30 |...K$."P"..60000|
000008D0: 00 EB 10 8E 08 8B 4B 24 B2 B3 B1 22 51 22 B0 4B |......K$..."Q".K|
000008E0: 24 B3 B1 22 20 22 A7 32 31 37 30 00 F5 10 93 08 |$.." ".2170.....|
000008F0: 89 32 31 37 30 00 FC 10 95 08 82 52 00 06 11 96 |.2170......R....|
00000900: 08 89 32 30 30 30 00 21 11 97 08 8F 20 44 49 53 |..2000.!.... DIS|
00000910: 50 4C 41 59 20 42 59 20 4B 45 59 20 46 49 45 4C |PLAY BY KEY FIEL|
00000920: 44 00 2A 11 98 08 99 22 93 22 00 5A 11 A2 08 99 |D.*....".".Z....|
00000930: 22 11 11 11 11 11 1D 1D 1D 1D 1D 45 4E 54 45 52 |"..........ENTER|
00000940: 20 49 53 54 20 28 4B 45 59 29 20 46 49 45 4C 44 | IST (KEY) FIELD|
00000950: 20 43 4F 4E 54 45 4E 54 53 22 00 6A 11 AC 08 85 | CONTENTS".j....|
00000960: 22 1D 1D 1D 1D 1D 22 3B 46 24 00 9A 11 B6 08 81 |".....";F$......|
00000970: 52 B2 31 A4 59 3A 99 22 93 1D 1D 1D 1D 1D 1D 1D |R.1.Y:."........|
00000980: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000990: 1D 1D 1D 1D 1D 1D 1D 22 3B 52 00 BB 11 C0 08 8B |.......";R......|
000009A0: 41 24 28 52 2C 31 29 B3 B1 46 24 A7 32 32 37 35 |A$(R,1)..F$.2275|
000009B0: 3A 8F 20 4E 4F 20 4D 41 54 43 48 00 C6 11 CA 08 |:. NO MATCH.....|
000009C0: 81 43 B2 31 A4 58 00 DE 11 D4 08 99 41 24 28 30 |.C.1.X......A$(0|
000009D0: 2C 43 29 A3 31 30 29 41 24 28 52 2C 43 29 00 E5 |,C).10)A$(R,C)..|
000009E0: 11 D9 08 82 43 00 EF 11 DE 08 89 32 32 38 30 00 |....C......2280.|
000009F0: F6 11 E3 08 82 52 00 21 12 E8 08 99 22 11 11 1D |.....R.!...."...|
00000A00: 1D 1D 1D 50 52 45 53 53 20 53 50 41 43 45 20 54 |...PRESS SPACE T|
00000A10: 4F 20 52 45 54 55 52 4E 20 54 4F 20 4D 45 4E 55 |O RETURN TO MENU|
00000A20: 22 00 29 12 ED 08 A1 4B 24 00 39 12 F2 08 8B 4B |".)....K$.9....K|
00000A30: 24 B2 22 22 A7 32 32 38 35 00 4A 12 F7 08 8B 4B |$."".2285.J....K|
00000A40: 24 B2 22 20 22 A7 32 30 30 30 00 54 12 FC 08 89 |$." ".2000.T....|
00000A50: 32 32 38 35 00 70 12 FD 08 8F 20 44 49 53 50 4C |2285.p.... DISPL|
00000A60: 41 59 20 52 45 43 4F 52 44 20 42 59 20 4E 4F 2E |AY RECORD BY NO.|
00000A70: 00 9E 12 01 09 99 22 93 11 11 11 11 11 11 11 11 |......".........|
00000A80: 11 1D 1D 1D 1D 1D 1D 44 49 53 50 4C 41 59 20 42 |.......DISPLAY B|
00000A90: 59 20 52 45 43 4F 52 44 20 4E 4F 2E 11 22 00 DF |Y RECORD NO.."..|
00000AA0: 12 06 09 85 22 1D 1D 1D 1D 1D 1D 45 4E 54 45 52 |...."......ENTER|
00000AB0: 20 52 45 43 4F 52 44 20 4E 4F 2E 22 3B 52 3A 8B | RECORD NO.";R:.|
00000AC0: 52 B1 59 A7 99 22 1D 1D 1D 1D 1D 1D 4F 55 54 20 |R.Y.."......OUT |
00000AD0: 4F 46 20 52 41 4E 47 45 22 3A 89 32 33 31 30 00 |OF RANGE":.2310.|
00000AE0: EA 12 10 09 81 43 B2 31 A4 58 00 FF 12 1A 09 99 |.....C.1.X......|
00000AF0: 41 24 28 30 2C 43 29 2C 41 24 28 52 2C 43 29 00 |A$(0,C),A$(R,C).|
00000B00: 06 13 24 09 82 43 00 0C 13 2E 09 99 00 35 13 38 |..$..C.......5.8|
00000B10: 09 99 22 1D 1D 1D 1D 50 52 45 53 53 20 53 50 41 |.."....PRESS SPA|
00000B20: 43 45 20 54 4F 20 52 45 54 55 52 4E 20 54 4F 20 |CE TO RETURN TO |
00000B30: 4D 45 4E 55 22 00 49 13 42 09 A1 4B 24 3A 8B 4B |MENU".I.B..K$:.K|
00000B40: 24 B2 22 22 A7 32 33 37 30 00 5A 13 4C 09 8B 4B |$."".2370.Z.L..K|
00000B50: 24 B2 22 20 22 A7 32 30 30 30 00 64 13 56 09 89 |$." ".2000.d.V..|
00000B60: 32 33 37 30 00 78 13 B7 0B 8F 20 4D 4F 44 49 46 |2370.x.... MODIF|
00000B70: 59 20 52 45 43 4F 52 44 00 7E 13 B8 0B 8F 00 84 |Y RECORD.~......|
00000B80: 13 BD 0B 8F 00 B9 13 C2 0B 99 22 93 11 11 11 1D |..........".....|
00000B90: 1D 52 45 43 4F 52 44 20 4E 4F 2E 46 4F 52 20 4D |.RECORD NO.FOR M|
00000BA0: 4F 44 2F 55 50 44 41 54 45 22 3B 3A 85 52 3A 8B |OD/UPDATE";:.R:.|
00000BB0: 52 B2 30 A7 89 33 32 30 30 00 EE 13 CC 0B 8B 52 |R.0..3200......R|
00000BC0: B1 59 A7 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |.Y.."...........|
00000BD0: 4F 55 54 20 4F 46 20 52 41 4E 47 45 22 3A 81 54 |OUT OF RANGE":.T|
00000BE0: B2 31 A4 32 30 30 3A 82 3A 89 33 30 30 30 00 1B |.1.200:.:.3000..|
00000BF0: 14 D1 0B 99 22 11 1D 1D 54 4F 20 53 4B 49 50 20 |...."...TO SKIP |
00000C00: 43 4F 52 52 45 43 54 20 45 4E 54 52 59 20 50 52 |CORRECT ENTRY PR|
00000C10: 45 53 53 20 52 45 54 55 52 4E 22 00 26 14 D6 0B |ESS RETURN".&...|
00000C20: 81 43 B2 31 A4 58 00 56 14 F4 0B 99 41 24 28 30 |.C.1.X.V....A$(0|
00000C30: 2C 43 29 A3 31 30 29 41 24 28 52 2C 43 29 3A 82 |,C).10)A$(R,C):.|
00000C40: 3A 8F 20 50 52 49 4E 54 20 45 58 49 53 54 49 4E |:. PRINT EXISTIN|
00000C50: 47 20 44 41 54 41 00 6D 14 FE 0B 8F 20 4E 45 58 |G DATA.m.... NEX|
00000C60: 54 20 43 48 41 4E 47 45 20 44 41 54 41 00 95 14 |T CHANGE DATA...|
00000C70: 08 0C 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 |..."...........E|
00000C80: 4E 54 45 52 20 4E 45 57 20 44 41 54 41 22 3A 81 |NTER NEW DATA":.|
00000C90: 43 B2 31 A4 58 00 AE 14 12 0C 99 41 24 28 30 2C |C.1.X......A$(0,|
00000CA0: 43 29 3B 3A 20 20 85 41 24 28 52 2C 43 29 00 C5 |C);: .A$(R,C)..|
00000CB0: 14 17 0C 8B 41 24 28 52 2C 43 29 B2 22 20 22 A7 |....A$(R,C)." ".|
00000CC0: 43 B2 43 AA 31 00 CB 14 19 0C 82 00 D4 14 1C 0C |C.C.1...........|
00000CD0: 89 35 30 30 00 FF 14 80 0C 99 22 93 11 11 46 49 |.500......"...FI|
00000CE0: 45 4C 44 20 48 45 41 44 49 4E 47 20 41 4D 45 4E |ELD HEADING AMEN|
00000CF0: 44 4D 45 4E 54 20 28 4D 41 58 20 31 35 29 22 00 |DMENT (MAX 15)".|
00000D00: 2F 15 85 0C 46 4C B2 31 35 3A 99 22 11 52 45 54 |/...FL.15:.".RET|
00000D10: 59 50 45 20 41 4C 4C 20 28 45 56 45 4E 20 43 4F |YPE ALL (EVEN CO|
00000D20: 52 52 45 43 54 29 20 45 4E 54 52 49 45 53 22 00 |RRECT) ENTRIES".|
00000D30: 4D 15 8A 0C 81 43 B2 31 A4 58 3A 99 41 24 28 30 |M....C.1.X:.A$(0|
00000D40: 2C 43 29 3A 82 43 3A 81 43 B2 31 A4 58 00 64 15 |,C):.C:.C.1.X.d.|
00000D50: 94 0C 99 41 24 28 30 2C 43 29 3B 3A 85 41 24 28 |...A$(0,C);:.A$(|
00000D60: 30 2C 43 29 00 89 15 9E 0C 8B C3 28 41 24 28 30 |0,C).......(A$(0|
00000D70: 2C 43 29 29 B1 46 4C A7 99 22 54 4F 4F 20 4C 4F |,C)).FL.."TOO LO|
00000D80: 4E 47 22 3A 89 33 32 32 30 00 A3 15 A8 0C 46 43 |NG":.3220.....FC|
00000D90: 28 30 2C 43 29 B2 46 4C AB C3 28 41 24 28 30 2C |(0,C).FL..(A$(0,|
00000DA0: 43 29 29 00 B5 15 B2 0C 81 4C 43 B2 30 A4 46 43 |C))......LC.0.FC|
00000DB0: 28 30 2C 43 29 00 C1 15 BC 0C 43 43 24 B2 22 2E |(0,C).....CC$.".|
00000DC0: 22 00 D9 15 C6 0C 41 24 28 30 2C 43 29 B2 41 24 |".....A$(0,C).A$|
00000DD0: 28 30 2C 43 29 AA 43 43 24 00 E1 15 D0 0C 82 4C |(0,C).CC$......L|
00000DE0: 43 00 E8 15 DA 0C 82 43 00 F1 15 DF 0C 89 35 31 |C......C......51|
00000DF0: 30 00 06 16 9F 0F 8F 20 53 45 41 52 48 20 46 4F |0...... SEARH FO|
00000E00: 52 20 44 41 54 41 00 23 16 A0 0F 99 22 93 11 11 |R DATA.#...."...|
00000E10: 22 3A 81 43 B2 31 A4 58 3A 99 41 24 28 30 2C 43 |":.C.1.X:.A$(0,C|
00000E20: 29 3A 82 00 4F 16 AA 0F 99 22 11 1D 1D 1D 1D 1D |):..O...."......|
00000E30: 1D 1D 1D 57 48 41 54 20 49 53 20 46 49 45 4C 44 |...WHAT IS FIELD|
00000E40: 20 48 45 41 44 49 4E 47 22 3A 46 4C B2 31 35 00 | HEADING":FL.15.|
00000E50: 72 16 AF 0F 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 49 |r....".........I|
00000E60: 47 4E 4F 52 45 20 50 55 4E 43 54 55 41 54 49 4F |GNORE PUNCTUATIO|
00000E70: 4E 22 00 7E 16 B4 0F 85 22 11 22 3B 48 24 00 8E |N".~....".";H$..|
00000E80: 16 B6 0F 46 43 B2 46 4C AB C3 28 48 24 29 00 9B |...FC.FL..(H$)..|
00000E90: 16 B8 0F 81 4C 43 B2 30 A4 46 43 00 A7 16 BA 0F |....LC.0.FC.....|
00000EA0: 43 43 24 B2 22 2E 22 00 B9 16 BC 0F 48 24 B2 48 |CC$.".".....H$.H|
00000EB0: 24 AA 43 43 24 3A 82 4C 43 00 E1 16 BE 0F 99 22 |$.CC$:.LC......"|
00000EC0: 11 1D 1D 1D 1D 1D 1D 1D 57 48 41 54 20 49 53 20 |........WHAT IS |
00000ED0: 44 41 54 41 20 4F 46 20 49 4E 54 45 52 45 53 54 |DATA OF INTEREST|
00000EE0: 22 00 ED 16 C8 0F 85 22 11 22 3B 44 24 00 20 17 |"......".";D$. .|
00000EF0: D2 0F 81 52 B2 31 A4 59 3A 99 22 13 1D 1D 1D 1D |...R.1.Y:.".....|
00000F00: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000F10: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 11 22 3B 52 |.............";R|
00000F20: 00 2B 17 DC 0F 81 43 B2 31 A4 58 00 4D 17 E6 0F |.+....C.1.X.M...|
00000F30: 8B 41 24 28 30 2C 43 29 B3 B1 48 24 B0 41 24 28 |.A$(0,C)..H$.A$(|
00000F40: 52 2C 43 29 B3 B1 44 24 A7 34 30 39 35 00 73 17 |R,C)..D$.4095.s.|
00000F50: F0 0F 99 22 13 11 11 11 11 11 11 22 3A 20 20 20 |...".......": |
00000F60: 20 20 20 20 20 20 20 20 8F 20 4B 45 59 20 46 49 | . KEY FI|
00000F70: 45 4C 44 00 91 17 F5 0F 81 44 B2 31 A4 58 3A 99 |ELD......D.1.X:.|
00000F80: 41 24 28 30 2C 44 29 2C 41 24 28 52 2C 44 29 3A |A$(0,D),A$(R,D):|
00000F90: 82 00 C3 17 F6 0F 99 22 11 11 11 50 52 45 53 53 |......."...PRESS|
00000FA0: 20 12 53 50 41 43 45 92 20 54 4F 20 43 4F 4E 54 | .SPACE. TO CONT|
00000FB0: 49 4E 55 45 20 53 45 41 52 43 48 20 51 2D 51 55 |INUE SEARCH Q-QU|
00000FC0: 49 54 22 00 D9 17 F7 0F A1 53 53 24 3A 8B 53 53 |IT"......SS$:.SS|
00000FD0: 24 B2 22 22 A7 34 30 38 37 00 EB 17 F8 0F 8B 53 |$."".4087......S|
00000FE0: 53 24 B2 22 20 22 A7 34 30 39 35 00 06 18 F9 0F |S$." ".4095.....|
00000FF0: 8B 53 53 24 B2 22 51 22 A7 43 B2 58 3A 52 B2 59 |.SS$."Q".C.X:R.Y|
00001000: 3A 89 34 30 39 35 00 10 18 FA 0F 89 34 30 38 37 |:.4095......4087|
00001010: 00 17 18 FF 0F 82 43 00 24 18 04 10 99 22 93 22 |......C.$...."."|
00001020: 3A 20 82 52 00 65 18 0E 10 99 22 13 11 11 11 11 |: .R.e....".....|
00001030: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001040: 11 11 1D 1D 1D 1D 1D 50 52 45 53 53 20 53 50 41 |.......PRESS SPA|
00001050: 43 45 20 54 4F 20 52 45 54 55 52 4E 20 54 4F 20 |CE TO RETURN TO |
00001060: 4D 45 4E 55 22 00 79 18 18 10 A1 4B 24 3A 8B 4B |MENU".y....K$:.K|
00001070: 24 B2 22 22 A7 34 31 32 30 00 89 18 22 10 8B 4B |$."".4120..."..K|
00001080: 24 B2 22 20 22 A7 35 30 30 00 93 18 2C 10 89 34 |$." ".500...,..4|
00001090: 31 32 30 00 99 18 94 11 8F 00 CA 18 9E 11 99 22 |120............"|
000010A0: 93 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 50 4C 45 |.............PLE|
000010B0: 41 53 45 20 57 41 49 54 20 46 4F 52 20 45 4F 46 |ASE WAIT FOR EOF|
000010C0: 20 50 4F 53 49 54 49 4F 4E 22 00 D5 18 A8 11 81 | POSITION"......|
000010D0: 52 B2 30 A4 59 00 E0 18 AD 11 81 43 B2 31 A4 58 |R.0.Y......C.1.X|
000010E0: 00 F8 18 B2 11 8B 41 24 28 52 2C 43 29 B2 22 5A |......A$(R,C)."Z|
000010F0: 5A 5A 22 A7 43 52 B2 52 00 FF 18 BC 11 82 43 00 |ZZ".CR.R......C.|
00001100: 06 19 C6 11 82 52 00 2C 19 D0 11 99 22 1D 1D 1D |.....R.,...."...|
00001110: 1D 1D 45 4F 46 20 28 5A 5A 5A 29 20 4D 41 52 4B |..EOF (ZZZ) MARK|
00001120: 45 52 20 49 53 20 41 54 22 3B 43 52 00 5B 19 DA |ER IS AT";CR.[..|
00001130: 11 85 22 11 11 45 4E 54 45 52 20 52 45 43 4F 52 |.."..ENTER RECOR|
00001140: 44 20 4E 4F 2E 20 54 4F 20 43 4F 4E 54 49 4E 55 |D NO. TO CONTINU|
00001150: 45 20 46 52 4F 4D 22 3B 4E 52 3A 00 7B 19 E4 11 |E FROM";NR:.{...|
00001160: 8B 4E 52 B1 59 A7 99 22 4F 55 54 20 4F 46 20 52 |.NR.Y.."OUT OF R|
00001170: 41 4E 47 45 22 3A 89 34 35 37 30 00 8A 19 E9 11 |ANGE":.4570.....|
00001180: 52 B2 4E 52 3A 89 31 31 31 30 00 9A 19 7E 13 8F |R.NR:.1110...~..|
00001190: 20 53 41 56 45 20 46 49 4C 45 00 D1 19 80 13 99 | SAVE FILE......|
000011A0: 22 93 11 11 11 11 11 11 11 11 11 1D 1D 53 41 46 |"............SAF|
000011B0: 45 54 59 20 43 48 45 43 4B 20 50 52 45 53 53 20 |ETY CHECK PRESS |
000011C0: 51 20 54 4F 20 52 45 54 55 52 4E 20 4D 45 4E 55 |Q TO RETURN MENU|
000011D0: 22 00 FD 19 82 13 99 22 11 1D 1D 1D 1D 50 52 45 |"......".....PRE|
000011E0: 53 53 20 43 20 54 4F 20 43 4F 4E 54 49 4E 55 45 |SS C TO CONTINUE|
000011F0: 20 53 41 56 45 20 4F 50 54 49 4F 4E 22 00 11 1A | SAVE OPTION"...|
00001200: 84 13 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 34 39 39 |...K$:.K$."".499|
00001210: 36 00 21 1A 85 13 8B 4B 24 B2 22 51 22 A7 35 31 |6.!....K$."Q".51|
00001220: 30 00 32 1A 86 13 8B 4B 24 B2 22 43 22 A7 35 30 |0.2....K$."C".50|
00001230: 30 32 00 3C 1A 87 13 89 34 39 39 36 00 42 1A 88 |02.<....4996.B..|
00001240: 13 8F 00 73 1A 8A 13 99 22 93 11 11 11 11 11 11 |...s....".......|
00001250: 11 11 11 11 11 11 11 11 43 48 41 4E 47 45 20 46 |........CHANGE F|
00001260: 49 4C 45 20 4E 41 4D 45 20 3F 20 59 20 4F 52 20 |ILE NAME ? Y OR |
00001270: 4E 20 22 00 89 1A 8B 13 A1 44 58 24 3A 8B 44 58 |N "......DX$:.DX|
00001280: 24 B2 22 22 A7 35 30 30 33 00 9B 1A 8D 13 8B 44 |$."".5003......D|
00001290: 58 24 B2 22 59 22 A7 35 30 30 38 00 AD 1A 8E 13 |X$."Y".5008.....|
000012A0: 8B 44 58 24 B2 22 4E 22 A7 35 30 31 30 00 B7 1A |.DX$."N".5010...|
000012B0: 8F 13 89 35 30 30 33 00 CC 1A 90 13 85 22 11 4E |...5003......".N|
000012C0: 45 57 20 4E 41 4D 45 22 3B 4E 41 24 00 FF 1A 92 |EW NAME";NA$....|
000012D0: 13 85 22 11 46 49 4C 45 20 4E 4F 2E 28 33 2D 31 |..".FILE NO.(3-1|
000012E0: 34 29 20 20 22 3B 41 3A 9F 41 2C 38 2C 41 2C 22 |4) ";A:.A,8,A,"|
000012F0: 40 30 3A 22 AA 4E 41 24 AA 22 2C 53 2C 57 22 00 |@0:".NA$.",S,W".|
00001300: 09 1B 97 13 98 41 2C 20 59 00 13 1B 9C 13 98 41 |.....A, Y......A|
00001310: 2C 20 58 00 1E 1B A6 13 81 52 B2 30 A4 59 00 29 |, X......R.0.Y.)|
00001320: 1B B0 13 81 43 B2 31 A4 58 00 39 1B BA 13 98 41 |....C.1.X.9....A|
00001330: 2C 20 41 24 28 52 2C 43 29 00 62 1B BF 13 8B 41 |, A$(R,C).b....A|
00001340: 24 28 52 2C 43 29 B2 22 45 4F 46 22 B0 41 24 28 |$(R,C)."EOF".A$(|
00001350: 52 2C 43 29 B2 22 5A 5A 5A 22 A7 43 B2 58 3A 52 |R,C)."ZZZ".C.X:R|
00001360: B2 59 00 69 1B C4 13 82 43 00 70 1B CE 13 82 52 |.Y.i....C.p....R|
00001370: 00 7A 1B D8 13 A0 41 3A A0 41 00 83 1B EC 13 89 |.z....A:.A......|
00001380: 35 30 30 00 93 1B 6F 17 8F 20 4C 4F 41 44 20 46 |500...o.. LOAD F|
00001390: 49 4C 45 00 99 1B 70 17 9C 00 C3 1B 84 17 85 22 |ILE...p........"|
000013A0: 93 11 11 11 11 11 11 11 11 11 11 11 11 57 48 41 |.............WHA|
000013B0: 54 20 49 53 20 46 49 4C 45 20 4E 41 4D 45 22 3B |T IS FILE NAME";|
000013C0: 4E 41 24 00 DE 1B 89 17 85 22 11 11 46 49 4C 45 |NA$......"..FILE|
000013D0: 20 4E 4F 2E 20 28 33 2D 31 34 29 22 3B 41 00 FA | NO. (3-14)";A..|
000013E0: 1B 8E 17 9F 41 2C 38 2C 41 2C 22 40 30 3A 22 AA |....A,8,A,"@0:".|
000013F0: 4E 41 24 AA 22 2C 53 2C 52 22 00 03 1C 98 17 84 |NA$.",S,R"......|
00001400: 41 2C 59 00 0C 1C A2 17 84 41 2C 58 00 19 1C AC |A,Y......A,X....|
00001410: 17 86 41 24 28 59 2C 58 29 00 24 1C B6 17 81 52 |..A$(Y,X).$....R|
00001420: B2 30 A4 59 00 2F 1C C0 17 81 43 B2 31 A4 58 00 |.0.Y./....C.1.X.|
00001430: 3E 1C CA 17 84 41 2C 41 24 28 52 2C 43 29 00 67 |>....A,A$(R,C).g|
00001440: 1C CF 17 8B 41 24 28 52 2C 43 29 B2 22 45 4F 46 |....A$(R,C)."EOF|
00001450: 22 B0 41 24 28 52 2C 43 29 B2 22 5A 5A 5A 22 A7 |".A$(R,C)."ZZZ".|
00001460: 43 B2 58 3A 52 B2 59 00 6E 1C D4 17 82 43 00 75 |C.X:R.Y.n....C.u|
00001470: 1C DE 17 82 52 00 7F 1C E8 17 A0 41 3A A0 41 00 |....R......A:.A.|
00001480: 88 1C F2 17 89 35 30 30 00 D0 1C 28 23 99 22 93 |.....500...(#.".|
00001490: 11 11 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D |................|
000014A0: 1D 1D 53 4F 52 54 49 4E 47 20 50 4C 45 41 53 45 |..SORTING PLEASE|
000014B0: 20 57 41 49 54 22 3A 20 20 20 20 20 8F 20 41 4C | WAIT": . AL|
000014C0: 50 48 41 20 53 4F 52 54 20 52 4F 55 54 49 4E 45 |PHA SORT ROUTINE|
000014D0: 00 EA 1C 32 23 46 B2 30 3A 8F 20 43 4C 45 41 52 |...2#F.0:. CLEAR|
000014E0: 20 46 4C 41 47 20 54 4F 20 30 00 16 1D 3C 23 81 | FLAG TO 0...<#.|
000014F0: 52 B2 31 A4 28 59 AB 31 29 A9 31 3A 8B 41 24 28 |R.1.(Y.1).1:.A$(|
00001500: 52 2C 31 29 B3 22 31 22 A7 41 24 28 52 2C 31 29 |R,1)."1".A$(R,1)|
00001510: B2 22 5A 5A 5A 22 00 33 1D 46 23 8B 41 24 28 52 |."ZZZ".3.F#.A$(R|
00001520: 2C 31 29 B3 B2 41 24 28 52 AA 31 2C 31 29 A7 39 |,1)..A$(R.1,1).9|
00001530: 30 38 30 00 50 1D 48 23 8B 41 24 28 52 2C 31 29 |080.P.H#.A$(R,1)|
00001540: B2 22 5A 5A 5A 22 A7 52 B2 59 3A 89 39 30 38 30 |."ZZZ".R.Y:.9080|
00001550: 00 5B 1D 4B 23 81 43 B2 31 A4 58 00 6A 1D 50 23 |.[.K#.C.1.X.j.P#|
00001560: 42 24 B2 41 24 28 52 2C 43 29 00 80 1D 5A 23 41 |B$.A$(R,C)...Z#A|
00001570: 24 28 52 2C 43 29 B2 41 24 28 52 AA 31 2C 43 29 |$(R,C).A$(R.1,C)|
00001580: 00 91 1D 64 23 41 24 28 52 AA 31 2C 43 29 B2 42 |...d#A$(R.1,C).B|
00001590: 24 00 98 1D 69 23 82 43 00 A0 1D 6E 23 46 B2 31 |$...i#.C...n#F.1|
000015A0: 00 A7 1D 78 23 82 52 00 B5 1D 82 23 8B 46 B2 31 |...x#.R....#.F.1|
000015B0: A7 39 30 31 30 00 C7 1D F0 23 99 22 93 22 3A 20 |.9010....#.".": |
000015C0: 20 20 20 89 35 31 30 00 DD 1D 10 27 8F 20 4F 50 | .510....'. OP|
000015D0: 45 4E 20 54 4F 20 50 52 49 4E 54 45 52 00 07 1E |EN TO PRINTER...|
000015E0: 14 27 99 22 93 11 11 11 11 11 11 11 11 11 11 1D |.'."............|
000015F0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 50 52 |..............PR|
00001600: 49 4E 54 49 4E 47 22 00 14 1E 1A 27 9F 33 2C 34 |INTING"....'.3,4|
00001610: 20 3A 9D 33 00 1D 1E 24 27 98 33 2C 59 00 26 1E | :.3...$'.3,Y.&.|
00001620: 2E 27 98 33 2C 58 00 43 1E 38 27 81 52 B2 31 A4 |.'.3,X.C.8'.R.1.|
00001630: 59 3A 98 33 2C 22 52 45 43 4F 52 44 20 4E 4F 2E |Y:.3,"RECORD NO.|
00001640: 22 3B 52 00 4E 1E 42 27 81 43 B2 31 A4 58 00 67 |";R.N.B'.C.1.X.g|
00001650: 1E 47 27 98 33 2C 41 24 28 30 2C 43 29 3B 22 20 |.G'.3,A$(0,C);" |
00001660: 20 20 20 20 20 22 3B 00 76 1E 4C 27 98 33 2C 41 | ";.v.L'.3,A|
00001670: 24 28 52 2C 43 29 00 9F 1E 51 27 8B 41 24 28 52 |$(R,C)...Q'.A$(R|
00001680: 2C 43 29 B2 22 45 4F 46 22 B0 41 24 28 52 2C 43 |,C)."EOF".A$(R,C|
00001690: 29 B2 22 5A 5A 5A 22 A7 43 B2 58 3A 52 B2 59 00 |)."ZZZ".C.X:R.Y.|
000016A0: B3 1E 56 27 82 43 3A 98 33 2C 22 11 22 3A 20 20 |..V'.C:.3,".": |
000016B0: 20 82 52 00 BA 1E 60 27 A0 33 00 C3 1E 6A 27 89 | .R...`'.3...j'.|
000016C0: 35 31 30 00 D5 1E 60 EA 8F 20 53 43 52 45 45 4E |510...`.. SCREEN|
000016D0: 20 43 4F 50 59 00 F6 1E 6A EA 53 49 24 B2 C7 28 | COPY...j.SI$..(|
000016E0: 31 35 29 3A 42 53 24 B2 C7 28 38 29 3A 50 4F 24 |15):BS$..(8):PO$|
000016F0: B2 C7 28 31 36 29 00 19 1F 74 EA 52 56 24 B2 C7 |..(16)...t.RV$..|
00001700: 28 31 38 29 3A 52 4F 24 B2 C7 28 31 34 36 29 3A |(18):RO$..(146):|
00001710: 51 54 24 B2 C7 28 33 34 29 00 36 1F 7E EA 4D 46 |QT$..(34).6.~.MF|
00001720: 24 B2 C7 28 31 34 35 29 3A 56 52 B2 C2 28 36 34 |$..(145):VR..(64|
00001730: 38 29 AC 32 35 36 00 42 1F 88 EA 9F 34 2C 34 3A |8).256.B....4,4:|
00001740: 98 34 00 65 1F 92 EA 81 43 4C B2 30 A4 32 34 3A |.4.e....CL.0.24:|
00001750: 51 46 B2 30 3A 41 53 24 B2 4D 46 24 3A 81 52 4F |QF.0:AS$.MF$:.RO|
00001760: B2 30 A4 33 39 00 7B 1F 9C EA 53 43 B2 C2 28 56 |.0.39.{...SC..(V|
00001770: 52 AA 34 30 AC 43 4C AA 52 4F 29 00 8E 1F A6 EA |R.40.CL.RO).....|
00001780: 8B 53 43 B2 33 34 A7 51 46 B2 31 AB 51 46 00 A1 |.SC.34.QF.1.QF..|
00001790: 1F B0 EA 8B 53 43 B3 B1 31 36 32 A7 36 30 31 31 |....SC..162.6011|
000017A0: 30 00 CA 1F BA EA 51 46 B2 31 AB 51 46 3A 8B 51 |0.....QF.1.QF:.Q|
000017B0: 46 B2 31 A7 41 53 24 B2 41 53 24 AA 52 56 24 AA |F.1.AS$.AS$.RV$.|
000017C0: 51 54 24 3A 89 36 30 31 37 30 00 EC 1F C4 EA 41 |QT$:.60170.....A|
000017D0: 53 24 B2 41 53 24 AA 51 54 24 AA 52 4F 24 3A 89 |S$.AS$.QT$.RO$:.|
000017E0: 36 30 31 37 30 3A 89 36 30 31 33 30 00 11 20 CE |60170:.60130.. .|
000017F0: EA 8B 51 46 B2 31 AF 28 53 43 B1 B2 31 32 38 29 |..QF.1.(SC..128)|
00001800: A7 53 43 B2 53 43 AB 31 32 38 3A 89 36 30 31 33 |.SC.SC.128:.6013|
00001810: 30 00 39 20 D8 EA 8B 53 43 B1 B2 31 32 38 A7 53 |0.9 ...SC..128.S|
00001820: 43 B2 53 43 AB 31 32 38 3A 52 46 B2 31 3A 41 53 |C.SC.128:RF.1:AS|
00001830: 24 B2 41 53 24 AA 52 56 24 00 5A 20 E2 EA 8B 53 |$.AS$.RV$.Z ...S|
00001840: 43 B3 33 32 B0 53 43 B1 39 35 A7 41 53 B2 53 43 |C.32.SC.95.AS.SC|
00001850: AA 36 34 3A 89 36 30 31 36 30 00 78 20 EC EA 8B |.64:.60160.x ...|
00001860: 53 43 B1 33 31 AF 53 43 B3 36 34 A7 41 53 B2 53 |SC.31.SC.64.AS.S|
00001870: 43 3A 89 36 30 31 36 30 00 99 20 F6 EA 8B 53 43 |C:.60160.. ...SC|
00001880: B1 36 33 AF 53 43 B3 39 36 A7 41 53 B2 53 43 AA |.63.SC.96.AS.SC.|
00001890: 33 32 3A 89 36 30 31 36 30 00 AB 20 00 EB 41 53 |32:.60160.. ..AS|
000018A0: 24 B2 41 53 24 AA C7 28 41 53 29 00 C6 20 0A EB |$.AS$..(AS).. ..|
000018B0: 8B 52 46 B2 31 A7 41 53 24 B2 41 53 24 AA 52 4F |.RF.1.AS$.AS$.RO|
000018C0: 24 3A 52 46 B2 30 00 CE 20 14 EB 82 52 4F 00 F0 |$:RF.0.. ...RO..|
000018D0: 20 1E EB 8B 51 46 B2 30 A7 98 34 2C 53 49 24 50 | ...QF.0..4,SI$P|
000018E0: 4F 24 22 32 30 22 41 53 24 3A 89 36 30 32 31 30 |O$"20"AS$:.60210|
000018F0: 00 0C 21 28 EB 98 34 2C 53 49 24 3B 50 4F 24 3B |..!(..4,SI$;PO$;|
00001900: 22 32 30 22 3B 41 53 24 3B 51 54 24 00 19 21 32 |"20";AS$;QT$..!2|
00001910: EB 82 43 4C 3A A0 34 3A 8E 00 22 21 3C EB 89 35 |..CL:.4:.."!<..5|
00001920: 31 30 00 00 00 |10... |
.. ....53280,6: .53281,6: ."..".C....".
...........PRIMARY OPTIONS".M...."......
.CREATE FILE...............1"......"....
..DISPLAY FILE..............2"......"...
...MODIFY/UPDATE/INSERT......3"...&.."..
....SEARCH FOR DATA MATCH.....4"...0..".
.....SAVE FILE.................5".:.:.."
......LOAD FILE.................6".C.D..
"......CONTINUE FILE.(LOADED)....7"...I.
."......ALPHABETICAL SORT ROUTINE.8"...K
.."......PRINTOUT OF DATA..........9"...
N..".......ENTER DESIRED OPTION NUMBER".
..P..K$:.K$."".592...Q..K$."1".1000...R.
.K$."2".2000.%.S..K$."3".3000.6.T..K$."4
".4000.G.U..K$."5".4990.X.V..K$."6".6000
.I.W..K$."7".4500.Z.X..K$."8".9000...Z..
K$."9".10000...B..592...... FILE CREATIO
N KNOWN SIZE......"."......".SAFETY CHEC
K YOU MAY DESTROY YOUR FILE"......".PRES
S 'Y' FOR NEW FILE 'N' RETURN-MENU"./...
.K$:.K$."".1006.C....K$."Y"..:.1010.S...
.K$."N".500.]....1006.C.....Y....".FILE
NAME";NA$......"...HOW MANY RECORDS";Y..
...."...HOW MANY FIELDS";X.D....Y.0.X.0.
1020.Y....A$(Y,X),FC(Y,X)......".MAX FIE
LD HEADING LENGTH 15"...$..C.1.X...*.FL.
15.$...."...FIELD"C;.R.8..A$(0,C):.C(A$(
0,C)).FL.."TOO LONG":.1080.L.:.FC(0,C).F
L.C(A$(0,C))...<..LC.0.FC(0,C):CC$."."..
.>.A$(0,C).A$(0,C).CC$...@..LC...B..C...
L..".":NR.1.G.V..R.NR.Y...`.."..ENTER DA
TA FOR RECORD"R...A..".ZZZ IS END OF FIL
E INDICATOR"...J..C.1.X...T..".ENTER "A$
(0,C);.;.~..A$(R,C).V....A$(R,C)."ZZZ".C
.X:R.Y.]....C.D....R.M....500...O.. DIS.
LAY FILE...P.."."...Z...16)"OPTIONS"....
...16)".......".Y....".......SCROLL ENTI
RE FILE........1"......"......DISPLAY BY
K/F CONTS......2".+...."......DISPLAY B
Y REC NO.........3".T...."......RETURN T
O PRIMARY OPTIONS.4".Z..........".......
....ENTER REQUIRED NO.";... ..K$:.K$."".
2080..."..K$."1".2100...$..K$."2".2200.G
.&..K$."3".2305.W.(..K$."4".500...*..208
0...3.. SCROLL ENTIRE FILE...4..".":.R.1
.Y.N.>.."...............................
..RECORD NO.";R:.R.1.R.1:.2110.Y.H..C.1.
X.N.R..A$(0,C),A$(R,C).U.\..C...F.."....
...................................".U.P
.."......PRESS .SPACE. FOR NEXT RECORD
."...U..".._. TO GO BACK ONE OR .Q. T
O LEAVE SCROLL.".7.W..".................
......................".J.X..". PRE
SS . P .FOR SCREEN HARD COPY .".~.Z..
K$:.K$."".2170.....K$."_".R.R.2:.2197..
....K$."Q".R.Y:.2197......K$." ".2197.P.
...K$."P"..60000......K$..."Q".K$.." ".2
170......2170......R......2000.!.... DIS
PLAY BY KEY FIELD.*....".".Z....".......
...ENTER IST (KEY) FIELD CONTENTS".J....
".....";F$......R.1.Y:."................
...............";R......A$(R,1)..F$.2275
:. NO MATCH.F.J..C.1.X...T..A$(0,C).10)A
$(R,C)...Y..C......2280......R.!...."...
...PRESS SPACE TO RETURN TO MENU".)....K
$.9....K$."".2285.J....K$." ".2000.T....
2285.P.... DISPLAY RECORD BY NO.......".
...............DISPLAY BY RECORD NO.."..
...."......ENTER RECORD NO.";R:.R.Y.."..
....OUT OF RANGE":.2310......C.1.X......
A$(0,C),A$(R,C)...$..C.......5.8.."....P
RESS SPACE TO RETURN TO MENU".I.B..K$:.K
$."".2370.Z.L..K$." ".2000.D.V..2370.X..
.. MODIFY RECORD.~.............B..".....
.RECORD NO.FOR MOD/UPDATE";:.R:.R.0..320
0...L..R.Y.."...........OUT OF RANGE":.T
.1.200:.:.3000...Q.."...TO SKIP CORRECT
ENTRY PRESS RETURN".&.V..C.1.X.V....A$(0
,C).10)A$(R,C):.:. PRINT EXISTING DATA.M
.... NEXT CHANGE DATA......"...........E
NTER NEW DATA":.C.1.X......A$(0,C);: .A
$(R,C).E....A$(R,C)." ".C.C.1.K.....T...
.500......"...FIELD HEADING AMENDMENT (M
AX 15)"./...FL.15:.".RETYPE ALL (EVEN CO
RRECT) ENTRIES".M....C.1.X:.A$(0,C):.C:.
C.1.X.D....A$(0,C);:.A$(0,C)......C(A$(0
,C)).FL.."TOO LONG":.3220.....FC(0,C).FL
.C(A$(0,C))......LC.0.FC(0,C).A...CC$.".
".Y.F.A$(0,C).A$(0,C).CC$...P..LC...Z..C
......510...... SEARH FOR DATA.#. .."...
":.C.1.X:.A$(0,C):..O....".........WHAT
IS FIELD HEADING":FL.15.R....".........I
GNORE PUNCTUATION".~....".";H$.....FC.FL
.C(H$)......LC.0.FC.....CC$.".".....H$.H
$.CC$:.LC......"........WHAT IS DATA OF
INTEREST"...H..".";D$. .R..R.1.Y:.".....
.............................";R.+....C.
1.X.M....A$(0,C)..H$.A$(R,C)..D$.4095.S.
...".......": . KEY FIELD.....
.D.1.X:.A$(0,D),A$(R,D):..C...."...PRESS
.SPACE. TO CONTINUE SEARCH Q-QUIT".Y...
.SS$:.SS$."".4087......SS$." ".4095.....
.SS$."Q".C.X:R.Y:.4095......4087......C.
$....".": .R.E....".....................
.......PRESS SPACE TO RETURN TO MENU".Y.
...K$:.K$."".4120..."..K$." ".500...,..4
120.......J....".............PLEASE WAIT
FOR EOF POSITION".U....R.0.Y......C.1.X
......A$(R,C)."ZZZ".CR.R......C...F..R.,
.P..".....EOF (ZZZ) MARKER IS AT";CR.[.Z
.."..ENTER RECORD NO. TO CONTINUE FROM";
NR:.{....NR.Y.."OUT OF RANGE":.4570.....
R.NR:.1110...~.. SAVE FILE.Q....".......
.....SAFETY CHECK PRESS Q TO RETURN MENU
"......".....PRESS C TO CONTINUE SAVE OP
TION"......K$:.K$."".4996.!....K$."Q".51
0.2....K$."C".5002.<....4996.B.....S....
"...............CHANGE FILE NAME ? Y OR
N "......DX$:.DX$."".5003......DX$."Y".5
008......DX$."N".5010......5003.L....".N
EW NAME";NA$......".FILE NO.(3-14) ";A:
.A,8,A,"@0:".NA$.",S,W"......A, Y......A
, X......R.0.Y.)....C.1.X.9....A, A$(R,C
).B....A$(R,C)."EOF".A$(R,C)."ZZZ".C.X:R
.Y.I.D..C.P.N..R.Z.X. A: A......500...O.
. LOAD FILE...P...C....".............WHA
T IS FILE NAME";NA$......"..FILE NO. (3-
14)";A......A,8,A,"@0:".NA$.",S,R"......
A,Y......A,X......A$(Y,X).$....R.0.Y./..
..C.1.X.>.J..A,A$(R,C).G.O..A$(R,C)."EOF
".A$(R,C)."ZZZ".C.X:R.Y.N.T..C.U....R..
.. A: A......500.P.(#.".................
..SORTING PLEASE WAIT": . ALPHA SORT
ROUTINE...2#F.0:. CLEAR FLAG TO 0...<#.
R.1.(Y.1).1:.A$(R,1)."1".A$(R,1)."ZZZ".3
.F#.A$(R,1)..A$(R.1,1).9080.P.H#.A$(R,1)
."ZZZ".R.Y:.9080.[.K#.C.1.X.J.P#B$.A$(R,
C)...Z#A$(R,C).A$(R.1,C)...D#A$(R.1,C).B
$...I#.C. .N#F.1...X#.R....#.F.1.9010.G.
.#.".": .510....'. OPEN TO PRINTER...
.'."..........................PRINTING".
...'.3,4 :.3...$'.3,Y.&..'.3,X.C.8'.R.1.
Y:.3,"RECORD NO.";R.N.B'.C.1.X.G.G'.3,A$
(0,C);" ";.V.L'.3,A$(R,C)...Q'.A$(R
,C)."EOF".A$(R,C)."ZZZ".C.X:R.Y...V'.C:.
3,".": .R...`' 3.C.J'.510.U.`.. SCREEN
COPY...J.SI$.G(15):BS$.G(8):PO$.G(16)..
.T.RV$.G(18):RO$.G(146):QT$.G(34).6.~.MF
$.G(145):VR.B(648).256.B....4,4:.4.E....
CL.0.24:QF.0:AS$.MF$:.RO.0.39.{...SC.B(V
R.40.CL.RO)......SC.34.QF.1.QF......SC..
162.60110.J...QF.1.QF:.QF.1.AS$.AS$.RV$.
QT$:.60170...D.AS$.AS$.QT$.RO$:.60170:.6
0130.. N..QF.1.(SC..128).SC.SC.128:.6013
0.9 X..SC..128.SC.SC.128:RF.1:AS$.AS$.RV
$.Z ...SC.32.SC.95.AS.SC.64:.60160.X ...
SC.31.SC.64.AS.SC:.60160.. ...SC.63.SC.9
6.AS.SC.32:.60160.. ..AS$.AS$.G(AS).F ..
.RF.1.AS$.AS$.RO$:RF.0.N ...RO.. ...QF.0
..4,SI$PO$"20"AS$:.60210..!(..4,SI$;PO$;
"20";AS$;QT$..!2..CL: 4:.."!<..510...
> CLICK IMAGE PREVIEW FOR FULL MODAL