DELETE.P
FILE INFORMATION
FILENAME(S): DELETE.P
FILE TYPE(S): SEQ
FILE SIZE: 4.2K
FIRST SEEN: 2025-11-30 21:21:27
APPEARS ON: 1 disk(s)
FILE HASH
aa242b0baa37ae2e217a2ef98e1a7ac7f239f5d5660af676aac78a911f673703
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SUPERBASE 128 | DELETE.P | SEQ | DuncanTwain | 11 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 53 42 31 29 1C 14 00 8F 20 C3 4F 50 59 52 49 47 |SB1).... .OPYRIG| 00000010: 48 54 20 D0 52 45 43 49 53 49 4F 4E 20 D3 4F 46 |HT .RECISION .OF| 00000020: 54 57 41 52 45 20 31 39 38 34 00 32 1C 28 00 89 |TWARE 1984.2.(..| 00000030: 32 30 30 00 72 1C 3C 00 43 4C 24 B2 22 C4 C9 D3 |200.r.<.CL$."...| 00000040: CB 20 C8 CF D5 D3 C5 CB C5 C5 D0 C9 CE C7 20 D3 |. ............ .| 00000050: C5 D2 D6 C9 C3 C5 20 56 31 31 30 33 38 36 22 3A |...... V110386":| 00000060: 21 59 41 3A 43 B2 30 3A 21 39 41 B2 38 30 A7 43 |!YA:C.0:!9A.80.C| 00000070: B2 32 30 00 A3 1C 50 00 53 50 24 B2 22 20 20 20 |.20...P.SP$." | 00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000A0: 20 20 20 22 00 DF 1C 64 00 21 39 43 B2 30 A7 43 | "...d.!9C.0.C| 000000B0: 4C 24 B2 43 4C 24 AA C7 28 31 33 29 AA 22 C3 4F |L$.CL$..(13).".O| 000000C0: 50 59 52 49 47 48 54 20 D0 52 45 43 49 53 49 4F |PYRIGHT .RECISIO| 000000D0: 4E 20 D3 4F 46 54 57 41 52 45 20 31 39 38 35 22 |N .OFTWARE 1985"| 000000E0: 00 26 1D 78 00 21 39 43 B2 32 30 A7 43 4C 24 B2 |.&.x.!9C.20.CL$.| 000000F0: 43 4C 24 AA C7 28 31 33 29 AA C8 28 53 50 24 2C |CL$..(13)..(SP$,| 00000100: 32 30 29 AA 22 C3 4F 50 59 52 49 47 48 54 20 D0 |20).".OPYRIGHT .| 00000110: 52 45 43 49 53 49 4F 4E 20 D3 4F 46 54 57 41 52 |RECISION .OFTWAR| 00000120: 45 20 31 39 38 35 22 00 52 1D 8C 00 43 4C 24 B2 |E 1985".R...CL$.| 00000130: 22 44 49 53 50 4C 41 59 20 43 48 52 24 28 31 34 |"DISPLAY CHR$(14| 00000140: 37 29 40 31 2B 43 2C 32 22 AA C7 28 33 34 29 AA |7)@1+C,2"..(34).| 00000150: 43 4C 24 00 80 1D A0 00 55 24 B2 22 A3 A3 A3 A3 |CL$.....U$."....| 00000160: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................| 00000170: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................| 00000180: 22 00 86 1D B4 00 8E 00 99 1D C8 00 8D 36 30 3A |"............60:| 00000190: 8D 33 38 30 3A 89 32 33 30 30 00 B9 1D DC 00 81 |.380:.2300......| 000001A0: 54 B2 58 A4 59 3A 21 15 40 30 40 31 AA 43 2C 54 |T.X.Y:!.@0@1.C,T| 000001B0: 3B 53 50 24 40 30 3A 82 3A 8E 00 D2 1D F0 00 46 |;SP$@0:.:......F| 000001C0: 54 24 B2 C7 28 33 34 29 AA 46 24 AA C7 28 33 34 |T$..(34).F$..(34| 000001D0: 29 3A 8E 00 FF 1D 04 01 41 24 B2 22 4D 41 49 4E |):......A$."MAIN| 000001E0: 54 41 49 4E 4F 22 AA C7 28 33 34 29 AA 22 53 30 |TAINO"..(34)."S0| 000001F0: 3A 22 AA 46 24 AA C7 28 33 34 29 3A 21 51 41 24 |:".F$..(34):!QA$| 00000200: 00 32 1E 18 01 41 24 B2 22 35 31 31 31 20 20 20 |.2...A$."5111 | 00000210: 20 20 20 20 22 AA 46 54 24 AA 22 20 52 45 4D 4F | ".FT$." REMO| 00000220: 56 45 44 20 46 52 4F 4D 20 C4 49 52 45 43 54 4F |VED FROM .IRECTO| 00000230: 52 59 22 00 48 1E 2C 01 8D 34 36 30 3A 81 49 B2 |RY".H.,..460:.I.| 00000240: 31 A4 34 30 30 3A 82 3A 8E 00 6D 1E 40 01 41 B2 |1.400:.:..m.@.A.| 00000250: 30 3A 21 39 41 24 B2 22 4E 22 B0 41 24 B2 22 4E |0:!9A$."N".A$."N| 00000260: 22 A7 41 B2 31 3A 41 24 B2 22 4E 22 3A 8E 00 92 |".A.1:A$."N":...| 00000270: 1E 54 01 41 B2 30 3A 21 39 41 24 B2 22 D9 22 B0 |.T.A.0:!9A$.".".| 00000280: 41 24 B2 22 59 22 A7 41 B2 31 3A 41 24 B2 22 59 |A$."Y".A.1:A$."Y| 00000290: 22 3A 8E 00 9D 1E 68 01 8D 34 30 30 3A 8E 00 B8 |":....h..400:...| 000002A0: 1E 7C 01 21 15 3A 21 19 3A 21 35 3A 21 31 3A 21 |.|.!.:!.:!5:!1:!| 000002B0: 38 3A 21 32 3A 21 33 3A 8E 00 F4 1E 90 01 21 15 |8:!2:!3:......!.| 000002C0: C7 28 37 29 40 30 40 31 AA 43 2C 34 53 50 24 3B |.(7)@0@1.C,4SP$;| 000002D0: 40 30 40 31 AA 43 2C 34 40 AA 22 C9 4E 43 4F 52 |@0@1.C,4@.".NCOR| 000002E0: 52 45 43 54 20 D2 45 53 50 4F 4E 53 45 2C 20 D2 |RECT .ESPONSE, .| 000002F0: 45 54 52 59 22 00 13 1F A4 01 81 46 B2 31 A4 33 |ETRY"......F.1.3| 00000300: 30 30 3A 82 3A 21 15 40 30 40 31 AA 43 2C 34 53 |00:.:!.@0@1.C,4S| 00000310: 50 24 3A 8E 00 1D 1F B8 01 21 51 43 4C 24 00 4E |P$:......!QCL$.N| 00000320: 1F CC 01 54 B2 C5 28 C8 28 41 24 2C 31 29 29 3A |...T..(.(A$,1)):| 00000330: 58 B2 43 AA C5 28 CA 28 41 24 2C 32 2C 31 29 29 |X.C..(.(A$,2,1))| 00000340: 3A 59 B2 C5 28 CA 28 41 24 2C 33 2C 32 29 29 00 |:Y..(.(A$,3,2)).| 00000350: 7F 1F E0 01 56 B2 C5 28 CA 28 41 24 2C 35 2C 32 |....V..(.(A$,5,2| 00000360: 29 29 3A 44 B2 C5 28 CA 28 41 24 2C 37 2C 32 29 |)):D..(.(A$,7,2)| 00000370: 29 3A 52 B2 C5 28 CA 28 41 24 2C 39 2C 33 29 29 |):R..(.(A$,9,3))| 00000380: 00 AB 1F F4 01 21 15 40 30 40 58 2C 59 3B 53 50 |.....!.@0@X,Y;SP| 00000390: 24 3B 40 30 40 58 2C 59 3B CA 28 41 24 2C 31 31 |$;@0@X,Y;.(A$,11| 000003A0: 29 3B 40 30 3A 21 39 54 B2 35 A7 8E 00 D5 1F 08 |);@0:!9T.5......| 000003B0: 02 21 39 54 B2 31 AF 56 B1 30 A7 21 3A 26 56 40 |.!9T.1.V.0.!:&V@| 000003C0: 58 AA 28 C3 28 41 24 29 AB 31 32 29 2C 59 3B 41 |X.(.(A$).12),Y;A| 000003D0: 24 3A 89 35 36 30 00 07 20 1C 02 21 3A 26 56 40 |$:.560.. ..!:&V@| 000003E0: 58 AA 28 C3 28 41 24 29 AB 31 32 29 2C 59 3B 41 |X.(.(A$).12),Y;A| 000003F0: 3A 21 39 28 41 B3 44 29 B0 28 41 B1 52 29 A7 8D |:!9(A.D).(A.R)..| 00000400: 34 30 30 3A 89 34 36 30 00 17 20 30 02 21 39 41 |400:.460.. 0.!9A| 00000410: 24 B2 22 2A 22 A7 21 12 00 1D 20 44 02 8E 00 32 |$."*".!... D...2| 00000420: 20 58 02 8D 32 34 30 3A 21 39 43 B2 32 30 A7 21 | X..240:!9C.20.!| 00000430: 35 32 32 00 5B 20 6C 02 21 16 3A 21 35 3A 21 15 |522.[ l.!.:!5:!.| 00000440: 40 30 40 31 AA 43 2C 32 3B CA 28 43 4C 24 2C 32 |@0@1.C,2;.(CL$,2| 00000450: 35 29 3B 40 31 AA 43 2C 34 53 50 24 00 87 20 80 |5);@1.C,4SP$.. .| 00000460: 02 41 24 B2 22 31 31 35 20 31 30 20 20 20 20 C5 |.A$."115 10 .| 00000470: 4E 54 45 52 20 C6 49 4C 45 20 CE 41 4D 45 20 3A |NTER .ILE .AME :| 00000480: 20 20 22 3A 8D 34 36 30 00 A0 20 94 02 46 24 B2 | ":.460.. ..F$.| 00000490: 41 24 3A 21 0A 46 24 3A 8D 36 30 3A 21 51 43 4C |A$:!.F$:.60:!QCL| 000004A0: 24 00 D1 20 A8 02 8D 32 34 30 3A 41 24 B2 22 35 |$.. ...240:A$."5| 000004B0: 31 35 20 20 20 20 20 20 20 C6 49 4C 45 20 D3 45 |15 .ILE .E| 000004C0: 4C 45 43 54 45 44 20 3D 22 AA 46 54 24 3A 8D 34 |LECTED =".FT$:.4| 000004D0: 36 30 00 09 21 BC 02 41 24 B2 22 35 31 37 20 20 |60..!..A$."517 | 000004E0: 20 20 20 20 20 C4 4F 20 59 4F 55 20 57 49 53 48 | .O YOU WISH| 000004F0: 20 54 4F 20 44 45 4C 45 54 45 20 46 52 4F 4D 20 | TO DELETE FROM | 00000500: 41 20 20 20 22 3A 8D 34 36 30 00 47 21 D0 02 41 |A ":.460.G!..A| 00000510: 24 B2 22 31 31 38 20 31 20 20 20 20 20 53 45 4C |$."118 1 SEL| 00000520: 45 43 54 20 4C 49 53 54 20 20 20 20 20 20 20 20 |ECT LIST | 00000530: 28 59 2F 4E 29 3F 20 20 20 20 3A 4E 20 22 3A 8D |(Y/N)? :N ":.| 00000540: 34 36 30 3A 8D 33 32 30 00 55 21 E4 02 21 39 41 |460:.320.U!..!9A| 00000550: B2 30 A7 37 30 30 00 67 21 F8 02 21 39 41 24 B2 |.0.700.g!..!9A$.| 00000560: 22 4E 22 A7 31 30 38 30 00 9E 21 0C 03 41 24 B2 |"N".1080..!..A$.| 00000570: 22 31 31 35 20 31 30 20 20 20 20 C5 4E 54 45 52 |"115 10 .NTER| 00000580: 20 4C 49 53 54 20 54 4F 20 44 45 4C 45 54 45 20 | LIST TO DELETE | 00000590: 46 52 4F 4D 20 20 3A 20 20 22 3A 8D 34 36 30 00 |FROM : ":.460.| 000005A0: A9 21 20 03 53 4C 24 B2 41 24 00 E7 21 34 03 41 |.! .SL$.A$..!4.A| 000005B0: 24 B2 22 35 31 38 20 20 20 20 20 20 20 C1 4C 4C |$."518 .LL| 000005C0: 20 52 45 43 4F 52 44 53 20 49 4E 20 20 22 AA C7 | RECORDS IN "..| 000005D0: 28 33 34 29 AA 53 4C 24 AA C7 28 33 34 29 3A 56 |(34).SL$..(34):V| 000005E0: B2 31 34 3A 8D 34 34 30 00 13 22 48 03 41 24 B2 |.14:.440.."H.A$.| 000005F0: 22 35 31 39 20 20 20 20 20 20 20 57 49 4C 4C 20 |"519 WILL | 00000600: 42 45 20 44 45 53 54 52 4F 59 45 44 20 20 22 3A |BE DESTROYED ":| 00000610: 8D 34 36 30 00 50 22 5C 03 41 24 B2 22 31 31 31 |.460.P"\.A$."111| 00000620: 31 31 20 20 20 20 20 C1 52 45 20 59 4F 55 20 53 |11 .RE YOU S| 00000630: 55 52 45 20 20 20 20 20 20 20 20 28 59 2F 4E 29 |URE (Y/N)| 00000640: 3F 20 20 3A 59 20 22 3A 8D 34 36 30 3A 8D 33 32 |? :Y ":.460:.32| 00000650: 30 00 62 22 70 03 53 B2 30 3A 21 39 41 B2 30 A7 |0.b"p.S.0:!9A.0.| 00000660: 38 36 30 00 72 22 84 03 21 39 41 24 B2 22 4E 22 |860.r"..!9A$."N"| 00000670: A7 21 28 00 9E 22 98 03 41 24 B2 22 35 31 35 20 |.!(.."..A$."515 | 00000680: 20 20 20 20 20 20 C6 49 4C 45 20 D3 45 4C 45 43 | .ILE .ELEC| 00000690: 54 45 44 20 3D 22 AA 46 54 24 3A 8D 34 34 30 00 |TED =".FT$:.440.| 000006A0: DC 22 AC 03 41 24 B2 22 35 31 36 20 20 20 20 20 |."..A$."516 | 000006B0: 20 20 CC 49 53 54 20 54 4F 20 44 45 4C 45 54 45 | .IST TO DELETE| 000006C0: 20 46 52 4F 4D 20 3D 22 AA C7 28 33 34 29 AA 53 | FROM ="..(34).S| 000006D0: 4C 24 AA C7 28 33 34 29 3A 8D 34 34 30 00 F0 22 |L$..(34):.440.."| 000006E0: C0 03 21 02 21 1D 53 4C 24 3A 21 48 89 31 36 34 |..!.!.SL$:!H.164| 000006F0: 30 00 1C 23 D4 03 41 24 B2 22 35 31 38 20 20 20 |0..#..A$."518 | 00000700: 20 20 20 20 52 45 43 4F 52 44 53 20 52 45 4D 4F | RECORDS REMO| 00000710: 56 45 44 20 20 20 3D 22 3A 8D 34 36 30 00 4E 23 |VED =":.460.N#| 00000720: E8 03 41 24 B2 22 35 31 32 30 20 20 20 20 20 20 |..A$."5120 | 00000730: D0 D2 C5 D3 D3 20 D2 D5 CE 2F D3 D4 CF D0 20 D4 |..... .../.... .| 00000740: CF 20 C1 C2 CF D2 D4 20 20 22 3A 8D 34 36 30 00 |. ..... ":.460.| 00000750: 6E 23 FC 03 21 02 44 3A 53 B2 53 AA 31 3A 21 15 |n#..!.D:S.S.1:!.| 00000760: 40 30 40 32 30 AA 43 2C 38 26 34 2C 30 3B 53 00 |@0@20.C,8&4,0;S.| 00000770: 82 23 10 04 21 02 21 1D 53 4C 24 3A 21 48 89 31 |.#..!.!.SL$:!H.1| 00000780: 36 34 30 00 8C 23 24 04 89 31 30 32 30 00 C4 23 |640..#$..1020..#| 00000790: 38 04 41 24 B2 22 35 31 37 20 20 20 20 20 20 20 |8.A$."517 | 000007A0: C4 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 52 |.O YOU WANT TO R| 000007B0: 45 4D 4F 56 45 20 54 48 45 20 46 49 4C 45 20 22 |EMOVE THE FILE "| 000007C0: 3A 8D 34 36 30 00 02 24 4C 04 41 24 B2 22 31 31 |:.460..$L.A$."11| 000007D0: 38 20 31 20 20 20 20 20 C6 52 4F 4D 20 54 48 45 |8 1 .ROM THE| 000007E0: 20 C3 41 54 41 4C 4F 47 20 20 20 28 59 2F 4E 29 | .ATALOG (Y/N)| 000007F0: 3F 20 20 20 20 3A 4E 20 22 3A 8D 34 36 30 3A 8D |? :N ":.460:.| 00000800: 33 32 30 00 18 24 60 04 43 41 24 B2 41 24 3A 21 |320..$`.CA$.A$:!| 00000810: 39 41 B2 30 A7 31 30 38 30 00 2A 24 74 04 21 39 |9A.0.1080.*$t.!9| 00000820: 41 24 B2 22 4E 22 A7 31 32 32 30 00 62 24 88 04 |A$."N".1220.b$..| 00000830: 41 24 B2 22 35 31 31 30 20 20 20 20 20 20 D2 45 |A$."5110 .E| 00000840: 4D 4F 56 45 20 C6 49 4C 45 20 C4 45 46 49 4E 49 |MOVE .ILE .EFINI| 00000850: 54 49 4F 4E 20 46 52 4F 4D 20 20 20 20 22 3A 8D |TION FROM ":.| 00000860: 34 36 30 00 A0 24 9C 04 41 24 B2 22 31 31 31 31 |460..$..A$."1111| 00000870: 31 20 20 20 20 20 C4 49 53 4B 20 44 49 52 45 43 |1 .ISK DIREC| 00000880: 54 4F 52 59 20 20 20 20 20 28 59 2F 4E 29 3F 20 |TORY (Y/N)? | 00000890: 20 20 20 3A 4E 20 22 3A 8D 34 36 30 3A 8D 33 32 | :N ":.460:.32| 000008A0: 30 00 B6 24 B0 04 46 44 24 B2 41 24 3A 21 39 41 |0..$..FD$.A$:!9A| 000008B0: B2 30 A7 31 31 38 30 00 E7 24 C4 04 41 24 B2 22 |.0.1180..$..A$."| 000008C0: 35 31 38 20 20 20 20 20 20 20 C1 4C 4C 20 52 45 |518 .LL RE| 000008D0: 43 4F 52 44 53 20 49 4E 20 22 AA 46 54 24 3A 56 |CORDS IN ".FT$:V| 000008E0: B2 31 34 3A 8D 34 34 30 00 13 25 D8 04 41 24 B2 |.14:.440..%..A$.| 000008F0: 22 35 31 39 20 20 20 20 20 20 20 57 49 4C 4C 20 |"519 WILL | 00000900: 42 45 20 44 45 53 54 52 4F 59 45 44 20 20 22 3A |BE DESTROYED ":| 00000910: 8D 34 36 30 00 50 25 EC 04 41 24 B2 22 31 31 31 |.460.P%..A$."111| 00000920: 31 31 20 20 20 20 20 C1 52 45 20 59 4F 55 20 53 |11 .RE YOU S| 00000930: 55 52 45 20 20 20 20 20 20 20 20 28 59 2F 4E 29 |URE (Y/N)| 00000940: 3F 20 20 3A 59 20 22 3A 8D 34 36 30 3A 8D 33 32 |? :Y ":.460:.32| 00000950: 30 00 5F 25 00 05 21 39 41 B2 30 A7 31 32 36 30 |0._%..!9A.0.1260| 00000960: 00 6F 25 14 05 21 39 41 24 B2 22 4E 22 A7 21 28 |.o%..!9A$."N".!(| 00000970: 00 9B 25 28 05 41 24 B2 22 35 31 35 20 20 20 20 |..%(.A$."515 | 00000980: 20 20 20 C6 49 4C 45 20 D3 45 4C 45 43 54 45 44 | .ILE .ELECTED| 00000990: 20 3D 22 AA 46 54 24 3A 8D 34 34 30 00 AB 25 3C | =".FT$:.440..%<| 000009A0: 05 21 02 46 3A 21 47 89 31 36 30 30 00 D7 25 50 |.!.F:!G.1600..%P| 000009B0: 05 41 24 B2 22 35 31 38 20 20 20 20 20 20 20 52 |.A$."518 R| 000009C0: 45 43 4F 52 44 53 20 52 45 4D 4F 56 45 44 20 20 |ECORDS REMOVED | 000009D0: 20 3D 22 3A 8D 34 36 30 00 09 26 64 05 41 24 B2 | =":.460..&d.A$.| 000009E0: 22 35 31 32 30 20 20 20 20 20 20 D0 D2 C5 D3 D3 |"5120 .....| 000009F0: 20 D2 D5 CE 2F D3 D4 CF D0 20 D4 CF 20 C1 C2 CF | .../.... .. ...| 00000A00: D2 D4 20 20 22 3A 8D 34 36 30 00 19 26 78 05 21 |.. ":.460..&x.!| 00000A10: 02 46 3A 21 47 89 31 34 36 30 00 39 26 8C 05 21 |.F:!G.1460.9&..!| 00000A20: 02 44 3A 53 B2 53 AA 31 3A 21 15 40 30 40 32 30 |.D:S.S.1:!.@0@20| 00000A30: AA 43 2C 38 26 34 2C 30 3B 53 00 43 26 A0 05 89 |.C,8&4,0;S.C&...| 00000A40: 31 34 30 30 00 5E 26 B4 05 21 39 46 44 24 B2 22 |1400.^&..!9FD$."| 00000A50: 4E 22 B0 43 41 24 B2 22 4E 22 A7 31 36 34 30 00 |N".CA$."N".1640.| 00000A60: 67 26 C8 05 8D 32 36 30 00 7A 26 DC 05 21 39 43 |g&...260.z&..!9C| 00000A70: 41 24 B2 22 4E 22 A7 31 36 34 30 00 AD 26 F0 05 |A$."N".1640..&..| 00000A80: 41 24 B2 22 35 31 31 32 20 20 20 20 20 20 C3 41 |A$."5112 .A| 00000A90: 54 41 4C 4F 47 20 D5 50 44 41 54 45 20 4E 4F 57 |TALOG .PDATE NOW| 00000AA0: 20 46 4F 4C 4C 4F 57 53 22 3A 8D 34 34 30 00 DF | FOLLOWS":.440..| 00000AB0: 26 04 06 41 24 B2 22 35 31 31 33 20 20 20 20 20 |&..A$."5113 | 00000AC0: 20 D4 4F 20 43 4F 4E 54 49 4E 55 45 20 20 C8 CF | .O CONTINUE ..| 00000AD0: D5 D3 C5 CB C5 C5 D0 C9 CE C7 22 3A 8D 34 36 30 |..........":.460| 00000AE0: 00 11 27 18 06 41 24 B2 22 35 31 31 34 20 20 20 |..'..A$."5114 | 00000AF0: 20 20 20 41 46 54 45 52 20 50 52 45 53 53 49 4E | AFTER PRESSIN| 00000B00: 47 20 D2 C5 D4 D5 D2 CE 20 20 20 20 22 3A 8D 34 |G ...... ":.4| 00000B10: 36 30 00 44 27 2C 06 41 24 B2 22 35 31 31 35 20 |60.D',.A$."5115 | 00000B20: 20 20 20 20 20 53 45 4C 45 43 54 20 C5 D8 C5 C3 | SELECT ....| 00000B30: D5 D4 C5 20 46 52 4F 4D 20 CD C5 CE D5 20 31 22 |... FROM .... 1"| 00000B40: 3A 8D 34 36 30 00 76 27 40 06 41 24 B2 22 35 31 |:.460.v'@.A$."51| 00000B50: 32 30 20 20 20 20 20 20 D0 D2 C5 D3 D3 20 D2 C5 |20 ..... ..| 00000B60: D4 D5 D2 CE 20 D4 CF 20 C3 CF CE D4 C9 CE D5 C5 |.... .. ........| 00000B70: 20 22 3A 8D 34 36 30 00 89 27 54 06 81 49 B2 31 | ":.460..'T..I.1| 00000B80: A4 31 30 30 3A 82 3A 21 02 44 00 B9 27 68 06 41 |.100:.:!.D..'h.A| 00000B90: 24 B2 22 35 31 31 30 20 20 20 20 20 20 C4 4F 20 |$."5110 .O | 00000BA0: 59 4F 55 20 57 49 53 48 20 54 4F 20 50 52 4F 43 |YOU WISH TO PROC| 00000BB0: 45 53 53 20 22 3A 8D 34 34 30 00 E8 27 7C 06 41 |ESS ":.440..'|.A| 00000BC0: 24 B2 22 35 31 31 31 20 20 20 20 20 20 C1 4E 59 |$."5111 .NY| 00000BD0: 20 4D 4F 52 45 20 46 49 4C 45 53 20 49 4E 22 3A | MORE FILES IN":| 00000BE0: 8D 34 36 30 3A 8D 33 32 30 00 25 28 90 06 41 24 |.460:.320.%(..A$| 00000BF0: B2 22 31 31 31 32 31 20 20 20 20 20 D4 48 49 53 |."11121 .HIS| 00000C00: 20 44 41 54 41 42 41 53 45 20 20 20 20 20 20 20 | DATABASE | 00000C10: 28 59 2F 4E 29 3F 20 20 3A 59 20 22 3A 8D 34 36 |(Y/N)? :Y ":.46| 00000C20: 30 3A 8D 33 32 30 00 34 28 A4 06 21 39 41 B2 30 |0:.320.4(..!9A.0| 00000C30: A7 31 36 38 30 00 44 28 B8 06 21 39 41 24 B2 22 |.1680.D(..!9A$."| 00000C40: 4E 22 A7 21 28 00 55 28 CC 06 21 39 41 24 B2 22 |N".!(.U(..!9A$."| 00000C50: 59 22 A7 36 30 30 00 5B 28 E0 06 8F 00 87 28 F4 |Y".600.[(.....(.| 00000C60: 06 41 24 B2 22 31 31 35 20 31 35 20 20 20 20 C5 |.A$."115 15 .| 00000C70: 4E 54 45 52 20 C8 45 4C 50 20 CE 41 4D 45 20 3A |NTER .ELP .AME :| 00000C80: 20 20 22 3A 8D 34 34 30 00 A0 28 08 07 46 24 B2 | ":.440..(..F$.| 00000C90: 41 24 3A 46 24 B2 22 48 22 AA 46 24 3A 8D 32 34 |A$:F$."H".F$:.24| 00000CA0: 30 00 C6 28 1C 07 41 24 B2 22 35 31 35 20 20 20 |0..(..A$."515 | 00000CB0: 20 20 20 20 C8 45 4C 50 20 C6 49 4C 45 22 AA 46 | .ELP .ILE".F| 00000CC0: 54 24 3A 8D 34 36 30 00 EE 28 30 07 41 24 B2 22 |T$:.460..(0.A$."| 00000CD0: 35 31 36 20 20 20 20 20 20 20 57 49 4C 4C 20 42 |516 WILL B| 00000CE0: 45 20 44 45 4C 45 54 45 44 22 3A 8D 34 36 30 00 |E DELETED":.460.| 00000CF0: 2B 29 44 07 41 24 B2 22 31 31 31 31 31 20 20 20 |+)D.A$."11111 | 00000D00: 20 20 C1 52 45 20 59 4F 55 20 53 55 52 45 20 20 | .RE YOU SURE | 00000D10: 20 20 20 20 20 20 28 59 2F 4E 29 3F 20 20 3A 59 | (Y/N)? :Y| 00000D20: 20 22 3A 8D 34 36 30 3A 8D 33 32 30 00 3B 29 58 | ":.460:.320.;)X| 00000D30: 07 21 39 41 24 B2 22 4E 22 A7 21 28 00 4A 29 6C |.!9A$."N".!(.J)l| 00000D40: 07 21 39 41 B2 30 A7 31 38 36 30 00 56 29 80 07 |.!9A.0.1860.V)..| 00000D50: 8D 32 36 30 3A 21 28 00 85 29 94 07 41 24 B2 22 |.260:!(..)..A$."| 00000D60: 31 31 35 20 31 34 20 20 20 20 C5 4E 54 45 52 20 |115 14 .NTER | 00000D70: D0 52 4F 47 52 41 4D 20 CE 41 4D 45 20 3A 20 20 |.ROGRAM .AME : | 00000D80: 22 3A 8D 34 34 30 00 8F 29 A8 07 46 24 B2 41 24 |":.440..)..F$.A$| 00000D90: 00 98 29 BC 07 8D 32 34 30 00 C2 29 D0 07 41 24 |..)...240..)..A$| 00000DA0: B2 22 35 31 35 20 20 20 20 20 20 20 D0 52 4F 47 |."515 .ROG| 00000DB0: 52 41 4D 20 46 49 4C 45 20 22 AA 46 54 24 3A 8D |RAM FILE ".FT$:.| 00000DC0: 34 36 30 00 EA 29 E4 07 41 24 B2 22 35 31 36 20 |460..)..A$."516 | 00000DD0: 20 20 20 20 20 20 57 49 4C 4C 20 42 45 20 44 45 | WILL BE DE| 00000DE0: 4C 45 54 45 44 22 3A 8D 34 36 30 00 27 2A F8 07 |LETED":.460.'*..| 00000DF0: 41 24 B2 22 31 31 31 31 31 20 20 20 20 20 C1 52 |A$."11111 .R| 00000E00: 45 20 59 4F 55 20 53 55 52 45 20 20 20 20 20 20 |E YOU SURE | 00000E10: 20 20 28 59 2F 4E 29 3F 20 20 3A 59 20 22 3A 8D | (Y/N)? :Y ":.| 00000E20: 34 36 30 3A 8D 33 32 30 00 37 2A 0C 08 21 39 41 |460:.320.7*..!9A| 00000E30: 24 B2 22 4E 22 A7 21 28 00 46 2A 20 08 21 39 41 |$."N".!(.F* .!9A| 00000E40: B2 30 A7 32 30 34 30 00 65 2A 34 08 21 39 C9 28 |.0.2040.e*4.!9.(| 00000E50: 46 24 2C 32 29 B3 B1 22 2E 50 22 A7 46 24 B2 46 |F$,2)..".P".F$.F| 00000E60: 24 AA 22 2E 50 22 00 74 2A 48 08 8D 32 36 30 3A |$.".P".t*H..260:| 00000E70: 89 32 33 30 30 00 AB 2A 5C 08 41 24 B2 22 31 31 |.2300..*\.A$."11| 00000E80: 35 20 31 34 20 20 20 20 C5 4E 54 45 52 20 CD 45 |5 14 .NTER .E| 00000E90: 4D 4F 20 CE 41 4D 45 20 3A 20 20 22 3A 8D 34 34 |MO .AME : ":.44| 00000EA0: 30 3A 46 24 B2 41 24 3A 8D 32 34 30 00 D2 2A 70 |0:F$.A$:.240..*p| 00000EB0: 08 41 24 B2 22 35 31 35 20 20 20 20 20 20 20 CD |.A$."515 .| 00000EC0: 45 4D 4F 20 46 49 4C 45 20 22 AA 46 54 24 3A 8D |EMO FILE ".FT$:.| 00000ED0: 34 36 30 00 FA 2A 84 08 41 24 B2 22 35 31 36 20 |460..*..A$."516 | 00000EE0: 20 20 20 20 20 20 57 49 4C 4C 20 42 45 20 44 45 | WILL BE DE| 00000EF0: 4C 45 54 45 44 22 3A 8D 34 36 30 00 37 2B 98 08 |LETED":.460.7+..| 00000F00: 41 24 B2 22 31 31 31 31 31 20 20 20 20 20 C1 52 |A$."11111 .R| 00000F10: 45 20 59 4F 55 20 53 55 52 45 20 20 20 20 20 20 |E YOU SURE | 00000F20: 20 20 28 59 2F 4E 29 3F 20 20 3A 59 20 22 3A 8D | (Y/N)? :Y ":.| 00000F30: 34 36 30 3A 8D 33 32 30 00 47 2B AC 08 21 39 41 |460:.320.G+..!9A| 00000F40: 24 B2 22 4E 22 A7 21 28 00 56 2B C0 08 21 39 41 |$."N".!(.V+..!9A| 00000F50: B2 30 A7 32 32 30 30 00 65 2B D4 08 8D 32 36 30 |.0.2200.e+...260| 00000F60: 3A 89 32 33 30 30 00 6B 2B E8 08 8F 00 B4 2B FC |:.2300.k+.....+.| 00000F70: 08 21 15 40 30 40 31 AA 43 2C 34 3B 53 50 24 3A |.!.@0@1.C,4;SP$:| 00000F80: 8F 20 50 45 52 46 4F 52 4D 20 22 44 49 53 50 4C |. PERFORM "DISPL| 00000F90: 41 59 40 30 3B 40 31 2B 43 22 2B 4D 49 44 24 28 |AY@0;@1+C"+MID$(| 00000FA0: 43 4C 24 2C 32 34 29 2B 4C 45 46 54 24 28 53 50 |CL$,24)+LEFT$(SP| 00000FB0: 24 2C 32 31 29 00 CD 2B 10 09 41 24 B2 22 35 31 |$,21)..+..A$."51| 00000FC0: 34 20 20 20 20 20 20 20 22 3A 8D 34 36 30 00 F6 |4 ":.460..| 00000FD0: 2B 24 09 41 24 B2 22 35 31 37 20 20 20 20 20 20 |+$.A$."517 | 00000FE0: 20 C3 48 4F 4F 53 45 20 C6 49 4C 45 20 54 59 50 | .HOOSE .ILE TYP| 00000FF0: 45 22 3A 8D 34 34 30 00 2F 2C 38 09 41 24 B2 22 |E":.440./,8.A$."| 00001000: 35 31 38 20 20 20 20 20 20 20 44 3D 44 41 54 41 |518 D=DATA| 00001010: 42 41 53 45 20 46 49 4C 45 2C 20 20 20 4D 3D 4D |BASE FILE, M=M| 00001020: 45 4D 4F 2C 20 22 3A 56 B2 31 34 3A 8D 34 36 30 |EMO, ":V.14:.460| 00001030: 00 6D 2C 4C 09 41 24 B2 22 31 31 39 20 31 20 20 |.m,L.A$."119 1 | 00001040: 20 20 20 48 3D 48 45 4C 50 20 53 43 52 45 45 4E | H=HELP SCREEN| 00001050: 2C 20 20 20 20 20 50 3D 20 50 52 4F 47 52 41 4D |, P= PROGRAM| 00001060: 20 20 20 20 20 3A 44 20 22 3A 8D 34 36 30 00 9A | :D ":.460..| 00001070: 2C 60 09 21 39 41 24 B2 22 44 22 A7 41 24 B2 22 |,`.!9A$."D".A$."| 00001080: C5 4E 54 45 52 20 46 49 4C 45 20 4E 41 4D 45 20 |.NTER FILE NAME | 00001090: 20 3A 20 20 20 22 3A 89 36 30 30 00 AC 2C 74 09 | : ":.600..,t.| 000010A0: 21 39 41 24 B2 22 48 22 A7 31 37 36 30 00 BE 2C |!9A$."H".1760..,| 000010B0: 88 09 21 39 41 24 B2 22 50 22 A7 31 39 34 30 00 |..!9A$."P".1940.| 000010C0: D1 2C 9C 09 21 39 41 24 B2 22 4D 22 A7 32 31 34 |.,..!9A$."M".214| 000010D0: 30 22 00 E0 2C B0 09 8D 34 30 30 3A 89 32 33 34 |0"..,...400:.234| 000010E0: 30 00 ED 2C C4 09 21 2A 3A 21 0E 31 30 30 00 00 |0..,..!*:!.100..| 000010F0: 00 |. |
SB1).... COPYRIGHT PRECISION SOFTWARE 19
84.2.(..200.R.<.CL$."DISK HOUSEKEEPING S
ERVICE V110386":!YA:C.0:!9A.80.C.20...P.
SP$."
"...D.!9C.0.CL$.CL$.G(13)."COPYRIGHT
PRECISION SOFTWARE 1985".&.X.!9C.20.CL$.
CL$.G(13).H(SP$,20)."COPYRIGHT PRECISION
SOFTWARE 1985".R...CL$."DISPLAY CHR$(14
7)@1+C,2".G(34).CL$... .U$."............
........................".........H..60:
.380:.2300......T.X.Y:!.@0@1.C,T;SP$@0:.
:..R...FT$.G(34).F$.G(34):......A$."MAIN
TAINO".G(34)."S0:".F$.G(34):!QA$.2...A$.
"5111 ".FT$." REMOVED FROM DIRECTO
RY".H.,..460:.I.1.400:.:..M.@.A.0:!9A$."
N".A$."N".A.1:A$."N":....T.A.0:!9A$."Y".
A$."Y".A.1:A$."Y":....H..400:....|.!.:!.
:!5:!1:!8:!2:!3:......!.G(7)@0@1.C,4SP$;
@0@1.C,4@."INCORRECT RESPONSE, RETRY"...
...F.1.300:.:!.@0@1.C,4SP$:......!QCL$.N
.L.T.E(H(A$,1)):X.C.E(J(A$,2,1)):Y.E(J(A
$,3,2))....V.E(J(A$,5,2)):D.E(J(A$,7,2)
):R.E(J(A$,9,3)).....!.@0@X,Y;SP$;@0@X,Y
;J(A$,11);@0:!9T.5...U...!9T.1.V.0.!:&V@
X.(C(A$).12),Y;A$:.560.. ..!:&V@X.(C(A$)
.12),Y;A:!9(A.D).(A.R)..400:.460.. 0.!9A
$."*".!... D...2 X..240:!9C.20.!522.[ L.
!.:!5:!.@0@1.C,2;J(CL$,25);@1.C,4SP$.. .
.A$."115 10 ENTER FILE NAME : ":.460
. ..F$.A$:!.F$:.60:!QCL$.Q ...240:A$."5
15 FILE SELECTED =".FT$:.460..!..A
$."517 DO YOU WISH TO DELETE FROM
A ":.460.G!P.A$."118 1 SELECT LIST
(Y/N)? :N ":.460:.320.U!..!9A
.0.700.G!..!9A$."N".1080..!..A$."115 10
ENTER LIST TO DELETE FROM : ":.460.
.! .SL$.A$..!4.A$."518 ALL RECORDS
IN ".G(34).SL$.G(34):V.14:.440.."H.A$.
"519 WILL BE DESTROYED ":.460.P"\
.A$."11111 ARE YOU SURE (Y/N)
? :Y ":.460:.320.B"P.S.0:!9A.0.860.R"..
!9A$."N".!(.."..A$."515 FILE SELEC
TED =".FT$:.440.."..A$."516 LIST T
O DELETE FROM =".G(34).SL$.G(34):.440.."
..!.!.SL$:!H.1640..#T.A$."518 RECO
RDS REMOVED =":.460.N#..A$."5120
PRESS RUN/STOP TO ABORT ":.460.N#..!.D:
S.S.1:!.@0@20.C,8&4,0;S..#..!.!.SL$:!H.1
640..#$..1020.D#8.A$."517 DO YOU W
ANT TO REMOVE THE FILE ":.460..$L.A$."11
8 1 FROM THE CATALOG (Y/N)? :N
":.460:.320..$`.CA$.A$:!9A.0.1080.*$T.!9
A$."N".1220.B$..A$."5110 REMOVE FIL
E DEFINITION FROM ":.460. $..A$."1111
1 DISK DIRECTORY (Y/N)? :N ":
.460:.320..$..FD$.A$:!9A.0.1180..$D.A$."
518 ALL RECORDS IN ".FT$:V.14:.440
..%X.A$."519 WILL BE DESTROYED ":
.460.P%..A$."11111 ARE YOU SURE
(Y/N)? :Y ":.460:.320._%..!9A.0.1260
.O%..!9A$."N".!(..%(.A$."515 FILE
SELECTED =".FT$:.440..%<.!.F:!G.1600.W%P
.A$."518 RECORDS REMOVED =":.460
..&D.A$."5120 PRESS RUN/STOP TO ABO
RT ":.460..&X.!.F:!G.1460.9&..!.D:S.S.1
:!.@0@20.C,8&4,0;S.C& ..1400.^&..!9FD$."
N".CA$."N".1640.G&H..260.Z&..!9CA$."N".1
640..&..A$."5112 CATALOG UPDATE NOW
FOLLOWS":.440..&..A$."5113 TO CONT
INUE HOUSEKEEPING":.460..'..A$."5114
AFTER PRESSING RETURN ":.460.D',.A
$."5115 SELECT EXECUTE FROM MENU 1"
:.460.V'@.A$."5120 PRESS RETURN TO
CONTINUE ":.460..'T..I.1.100:.:!.D..'H.A
$."5110 DO YOU WISH TO PROCESS ":.4
40..'|.A$."5111 ANY MORE FILES IN":
.460:.320.%(..A$."11121 THIS DATABAS
E (Y/N)? :Y ":.460:.320.4(..!9A.0
.1680.D(..!9A$."N".!(.U(L.!9A$."Y".600.[
(.....(..A$."115 15 ENTER HELP NAME :
":.440. (..F$.A$:F$."H".F$:.240.F(..A$
."515 HELP FILE".FT$:.460..(0.A$."
516 WILL BE DELETED":.460.+)D.A$."
11111 ARE YOU SURE (Y/N)? :Y
":.460:.320.;)X.!9A$."N".!(.J)L.!9A.0.1
860.V)...260:!(..)..A$."115 14 ENTER
PROGRAM NAME : ":.440..)..F$.A$..)...24
0.B)P.A$."515 PROGRAM FILE ".FT$:.
460..)..A$."516 WILL BE DELETED":.
460.'*..A$."11111 ARE YOU SURE
(Y/N)? :Y ":.460:.320.7*..!9A$."N".!(
.F* .!9A.0.2040.E*4.!9I(F$,2)..".P".F$.F
$.".P".T*H..260:.2300..*\.A$."115 14
ENTER MEMO NAME : ":.440:F$.A$:.240.R*P
.A$."515 MEMO FILE ".FT$:.460..*..
A$."516 WILL BE DELETED":.460.7+..
A$."11111 ARE YOU SURE (Y/N)?
:Y ":.460:.320.G+..!9A$."N".!(.V+..!9A
.0.2200.E+T..260:.2300.K+.....+..!.@0@1.
C,4;SP$:. PERFORM "DISPLAY@0;@1+C"+MID$(
CL$,24)+LEFT$(SP$,21).M+..A$."514
":.460..+$.A$."517 CHOOSE FILE TYP
E":.440./,8.A$."518 D=DATABASE FIL
E, M=MEMO, ":V.14:.460.M,L.A$."119 1
H=HELP SCREEN, P= PROGRAM :D
":.460..,`.!9A$."D".A$."ENTER FILE NAME
: ":.600..,T.!9A$."H".1760..,..!9A$."
P".1940.Q,..!9A$."M".2140"..,...400:.234
0..,D.!*:!.100...
> CLICK IMAGE PREVIEW FOR FULL MODAL