DELETE.P
FILE INFORMATION
FILENAME(S): DELETE.P
FILE TYPE(S): SEQ
FILE SIZE: 4.2K
FIRST SEEN: 2025-11-30 21:27:16
APPEARS ON: 1 disk(s)
FILE HASH
ff559c38008461c3351fe7c2063ad7a89a678eecc814bb3d456e5d16b8fd65e3
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SUPERBASE 128 | DELETE.P | SEQ | DuncanTwain | 24 | 0 | 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 6D 1C 3C 00 43 4C 24 B2 22 20 20 20 |200.m.<.CL$." |
00000040: C4 C9 D3 CB 20 C8 CF D5 D3 C5 CB C5 C5 D0 C9 CE |.... ...........|
00000050: C7 20 D3 C5 D2 D6 C9 C3 C5 22 3A 21 59 41 3A 43 |. .......":!YA:C|
00000060: B2 30 3A 21 39 41 B2 38 30 A7 43 B2 32 30 00 9E |.0:!9A.80.C.20..|
00000070: 1C 50 00 53 50 24 B2 22 20 20 20 20 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 22 00 | ".|
000000A0: DA 1C 64 00 21 39 43 B2 30 A7 43 4C 24 B2 43 4C |..d.!9C.0.CL$.CL|
000000B0: 24 AA C7 28 31 33 29 AA 22 C3 4F 50 59 52 49 47 |$..(13).".OPYRIG|
000000C0: 48 54 20 D0 52 45 43 49 53 49 4F 4E 20 D3 4F 46 |HT .RECISION .OF|
000000D0: 54 57 41 52 45 20 31 39 38 35 22 00 21 1D 78 00 |TWARE 1985".!.x.|
000000E0: 21 39 43 B2 32 30 A7 43 4C 24 B2 43 4C 24 AA C7 |!9C.20.CL$.CL$..|
000000F0: 28 31 33 29 AA C8 28 53 50 24 2C 32 30 29 AA 22 |(13)..(SP$,20)."|
00000100: C3 4F 50 59 52 49 47 48 54 20 D0 52 45 43 49 53 |.OPYRIGHT .RECIS|
00000110: 49 4F 4E 20 D3 4F 46 54 57 41 52 45 20 31 39 38 |ION .OFTWARE 198|
00000120: 35 22 00 4D 1D 8C 00 43 4C 24 B2 22 44 49 53 50 |5".M...CL$."DISP|
00000130: 4C 41 59 20 43 48 52 24 28 31 34 37 29 40 31 2B |LAY CHR$(147)@1+|
00000140: 43 2C 32 22 AA C7 28 33 34 29 AA 43 4C 24 00 7B |C,2"..(34).CL$.{|
00000150: 1D A0 00 55 24 B2 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 |...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 22 00 81 1D B4 |..........."....|
00000180: 00 8E 00 94 1D C8 00 8D 36 30 3A 8D 33 38 30 3A |........60:.380:|
00000190: 89 32 33 30 30 00 B4 1D DC 00 81 54 B2 58 A4 59 |.2300......T.X.Y|
000001A0: 3A 21 15 40 30 40 31 AA 43 2C 54 3B 53 50 24 40 |:!.@0@1.C,T;SP$@|
000001B0: 30 3A 82 3A 8E 00 CD 1D F0 00 46 54 24 B2 C7 28 |0:.:......FT$..(|
000001C0: 33 34 29 AA 46 24 AA C7 28 33 34 29 3A 8E 00 FA |34).F$..(34):...|
000001D0: 1D 04 01 41 24 B2 22 4D 41 49 4E 54 41 49 4E 4F |...A$."MAINTAINO|
000001E0: 22 AA C7 28 33 34 29 AA 22 53 30 3A 22 AA 46 24 |"..(34)."S0:".F$|
000001F0: AA C7 28 33 34 29 3A 21 51 41 24 00 2D 1E 18 01 |..(34):!QA$.-...|
00000200: 41 24 B2 22 35 31 31 31 20 20 20 20 20 20 20 22 |A$."5111 "|
00000210: AA 46 54 24 AA 22 20 52 45 4D 4F 56 45 44 20 46 |.FT$." REMOVED F|
00000220: 52 4F 4D 20 C4 49 52 45 43 54 4F 52 59 22 00 43 |ROM .IRECTORY".C|
00000230: 1E 2C 01 8D 34 36 30 3A 81 49 B2 31 A4 34 30 30 |.,..460:.I.1.400|
00000240: 3A 82 3A 8E 00 68 1E 40 01 41 B2 30 3A 21 39 41 |:.:..h.@.A.0:!9A|
00000250: 24 B2 22 4E 22 B0 41 24 B2 22 4E 22 A7 41 B2 31 |$."N".A$."N".A.1|
00000260: 3A 41 24 B2 22 4E 22 3A 8E 00 8D 1E 54 01 41 B2 |:A$."N":....T.A.|
00000270: 30 3A 21 39 41 24 B2 22 D9 22 B0 41 24 B2 22 59 |0:!9A$.".".A$."Y|
00000280: 22 A7 41 B2 31 3A 41 24 B2 22 59 22 3A 8E 00 98 |".A.1:A$."Y":...|
00000290: 1E 68 01 8D 34 30 30 3A 8E 00 B3 1E 7C 01 21 15 |.h..400:....|.!.|
000002A0: 3A 21 19 3A 21 35 3A 21 31 3A 21 38 3A 21 32 3A |:!.:!5:!1:!8:!2:|
000002B0: 21 33 3A 8E 00 EF 1E 90 01 21 15 C7 28 37 29 40 |!3:......!..(7)@|
000002C0: 30 40 31 AA 43 2C 34 53 50 24 3B 40 30 40 31 AA |0@1.C,4SP$;@0@1.|
000002D0: 43 2C 34 40 AA 22 C9 4E 43 4F 52 52 45 43 54 20 |C,4@.".NCORRECT |
000002E0: D2 45 53 50 4F 4E 53 45 2C 20 D2 45 54 52 59 22 |.ESPONSE, .ETRY"|
000002F0: 00 0E 1F A4 01 81 46 B2 31 A4 33 30 30 3A 82 3A |......F.1.300:.:|
00000300: 21 15 40 30 40 31 AA 43 2C 34 53 50 24 3A 8E 00 |!.@0@1.C,4SP$:..|
00000310: 18 1F B8 01 21 51 43 4C 24 00 49 1F CC 01 54 B2 |....!QCL$.I...T.|
00000320: C5 28 C8 28 41 24 2C 31 29 29 3A 58 B2 43 AA C5 |.(.(A$,1)):X.C..|
00000330: 28 CA 28 41 24 2C 32 2C 31 29 29 3A 59 B2 C5 28 |(.(A$,2,1)):Y..(|
00000340: CA 28 41 24 2C 33 2C 32 29 29 00 7A 1F E0 01 56 |.(A$,3,2)).z...V|
00000350: B2 C5 28 CA 28 41 24 2C 35 2C 32 29 29 3A 44 B2 |..(.(A$,5,2)):D.|
00000360: C5 28 CA 28 41 24 2C 37 2C 32 29 29 3A 52 B2 C5 |.(.(A$,7,2)):R..|
00000370: 28 CA 28 41 24 2C 39 2C 33 29 29 00 A6 1F F4 01 |(.(A$,9,3)).....|
00000380: 21 15 40 30 40 58 2C 59 3B 53 50 24 3B 40 30 40 |!.@0@X,Y;SP$;@0@|
00000390: 58 2C 59 3B CA 28 41 24 2C 31 31 29 3B 40 30 3A |X,Y;.(A$,11);@0:|
000003A0: 21 39 54 B2 35 A7 8E 00 D0 1F 08 02 21 39 54 B2 |!9T.5.......!9T.|
000003B0: 31 AF 56 B1 30 A7 21 3A 26 56 40 58 AA 28 C3 28 |1.V.0.!:&V@X.(.(|
000003C0: 41 24 29 AB 31 32 29 2C 59 3B 41 24 3A 89 35 36 |A$).12),Y;A$:.56|
000003D0: 30 00 02 20 1C 02 21 3A 26 56 40 58 AA 28 C3 28 |0.. ..!:&V@X.(.(|
000003E0: 41 24 29 AB 31 32 29 2C 59 3B 41 3A 21 39 28 41 |A$).12),Y;A:!9(A|
000003F0: B3 44 29 B0 28 41 B1 52 29 A7 8D 34 30 30 3A 89 |.D).(A.R)..400:.|
00000400: 34 36 30 00 12 20 30 02 21 39 41 24 B2 22 2A 22 |460.. 0.!9A$."*"|
00000410: A7 21 12 00 18 20 44 02 8E 00 2D 20 58 02 8D 32 |.!... D...- X..2|
00000420: 34 30 3A 21 39 43 B2 32 30 A7 21 35 32 32 00 56 |40:!9C.20.!522.V|
00000430: 20 6C 02 21 16 3A 21 35 3A 21 15 40 30 40 31 AA | l.!.:!5:!.@0@1.|
00000440: 43 2C 32 3B CA 28 43 4C 24 2C 32 35 29 3B 40 31 |C,2;.(CL$,25);@1|
00000450: AA 43 2C 34 53 50 24 00 82 20 80 02 41 24 B2 22 |.C,4SP$.. ..A$."|
00000460: 31 31 35 20 31 30 20 20 20 20 C5 4E 54 45 52 20 |115 10 .NTER |
00000470: C6 49 4C 45 20 CE 41 4D 45 20 3A 20 20 22 3A 8D |.ILE .AME : ":.|
00000480: 34 36 30 00 9B 20 94 02 46 24 B2 41 24 3A 21 0A |460.. ..F$.A$:!.|
00000490: 46 24 3A 8D 36 30 3A 21 51 43 4C 24 00 CC 20 A8 |F$:.60:!QCL$.. .|
000004A0: 02 8D 32 34 30 3A 41 24 B2 22 35 2F 91 FF FF FF |..240:A$."5/....|
000004B0: FF FF FF FF 26 9B FF FF FF FB FF 54 F4 54 27 FF |....&......T.T'.|
000004C0: FF FF FF FF FF 63 F3 FF FF E2 5C FF FF A2 22 FF |.....c....\...".|
000004D0: 2E B0 FF FF 36 FF FF FF FF FF FF FF FF FF FF FF |....6...........|
000004E0: 23 13 FF 23 E1 F1 FF 23 DB 61 FF FF 23 B3 FF 23 |#..#...#.a..#..#|
000004F0: 33 3B 31 3B B3 FF 46 52 4F 4D 20 41 20 20 20 22 |3;1;..FROM A "|
00000500: 3A 8D 34 36 30 00 42 21 D0 02 41 24 B2 22 31 31 |:.460.B!..A$."11|
00000510: 38 20 31 20 20 20 20 20 53 45 4C 45 43 54 20 4C |8 1 SELECT L|
00000520: 49 53 54 20 20 20 20 20 20 20 20 28 59 2F 4E 29 |IST (Y/N)|
00000530: 3F 20 20 20 20 3A 4E 20 22 3A 8D 34 36 30 3A 8D |? :N ":.460:.|
00000540: 33 32 30 00 50 21 E4 02 21 39 41 B2 30 A7 37 30 |320.P!..!9A.0.70|
00000550: 30 00 62 21 F8 02 21 39 41 24 B2 22 4E 22 A7 31 |0.b!..!9A$."N".1|
00000560: 30 38 30 00 99 21 0C 03 41 24 B2 22 31 31 35 20 |080..!..A$."115 |
00000570: 31 30 20 20 20 20 C5 4E 54 45 52 20 4C 49 53 54 |10 .NTER LIST|
00000580: 20 54 4F 20 44 45 4C 45 54 45 20 46 52 4F 4D 20 | TO DELETE FROM |
00000590: 20 3A 20 20 22 3A 8D 34 36 30 00 A4 21 20 03 53 | : ":.460..! .S|
000005A0: 4C 24 B2 41 24 00 E2 21 34 03 41 24 B2 22 35 31 |L$.A$..!4.A$."51|
000005B0: 38 20 20 20 20 20 20 20 C1 4C 4C 20 52 45 43 4F |8 .LL RECO|
000005C0: 52 44 53 20 49 4E 20 20 22 AA C7 28 33 34 29 AA |RDS IN "..(34).|
000005D0: 53 4C 24 AA C7 28 33 34 29 3A 56 B2 31 34 3A 8D |SL$..(34):V.14:.|
000005E0: 34 34 30 00 0E 22 48 03 41 24 B2 22 35 31 39 20 |440.."H.A$."519 |
000005F0: 20 20 20 20 20 20 57 49 4C 4C 20 42 45 20 44 45 | WILL BE DE|
00000600: 53 54 52 4F 59 45 44 20 20 22 3A 8D 34 36 30 00 |STROYED ":.460.|
00000610: 4B 22 5C 03 41 24 B2 22 31 31 31 31 31 20 20 20 |K"\.A$."11111 |
00000620: 20 20 C1 52 45 20 59 4F 55 20 53 55 52 45 20 20 | .RE YOU SURE |
00000630: 20 20 20 20 20 20 28 59 2F 4E 29 3F 20 20 3A 59 | (Y/N)? :Y|
00000640: 20 22 3A 8D 34 36 30 3A 8D 33 32 30 00 5D 22 70 | ":.460:.320.]"p|
00000650: 03 53 B2 30 3A 21 39 41 B2 30 A7 38 36 30 00 6D |.S.0:!9A.0.860.m|
00000660: 22 84 03 21 39 41 24 B2 22 4E 22 A7 21 28 00 99 |"..!9A$."N".!(..|
00000670: 22 98 03 41 24 B2 22 35 31 35 20 20 20 20 20 20 |"..A$."515 |
00000680: 20 C6 49 4C 45 20 D3 45 4C 45 43 54 45 44 20 3D | .ILE .ELECTED =|
00000690: 22 AA 46 54 24 3A 8D 34 34 30 00 D7 22 AC 03 41 |".FT$:.440.."..A|
000006A0: 24 B2 22 35 31 36 20 20 20 20 20 20 20 CC 49 53 |$."516 .IS|
000006B0: 54 20 54 4F 20 44 45 4C 45 54 45 20 46 52 4F 4D |T TO DELETE FROM|
000006C0: 20 3D 22 AA C7 28 33 34 29 AA 53 4C 24 AA C7 28 | ="..(34).SL$..(|
000006D0: 33 34 29 3A 8D 34 34 30 00 EB 22 C0 03 21 02 21 |34):.440.."..!.!|
000006E0: 1D 53 4C 24 3A 21 48 89 31 36 34 30 00 17 23 D4 |.SL$:!H.1640..#.|
000006F0: 03 41 24 B2 22 35 31 38 20 20 20 20 20 20 20 52 |.A$."518 R|
00000700: 45 43 4F 52 44 53 20 52 45 4D 4F 56 45 44 20 20 |ECORDS REMOVED |
00000710: 20 3D 22 3A 8D 34 36 30 00 49 23 E8 03 41 24 B2 | =":.460.I#..A$.|
00000720: 22 35 31 32 30 20 20 20 20 20 20 D0 D2 C5 D3 D3 |"5120 .....|
00000730: 20 D2 D5 CE 2F D3 D4 CF D0 20 D4 CF 20 C1 C2 CF | .../.... .. ...|
00000740: D2 D4 20 20 22 3A 8D 34 36 30 00 69 23 FC 03 21 |.. ":.460.i#..!|
00000750: 02 44 3A 53 B2 53 AA 31 3A 21 15 40 30 40 32 30 |.D:S.S.1:!.@0@20|
00000760: AA 43 2C 38 26 34 2C 30 3B 53 00 7D 23 10 04 21 |.C,8&4,0;S.}#..!|
00000770: 02 21 1D 53 4C 24 3A 21 48 89 31 36 34 30 00 87 |.!.SL$:!H.1640..|
00000780: 23 24 04 89 31 30 32 30 00 BF 23 38 04 41 24 B2 |#$..1020..#8.A$.|
00000790: 22 35 31 37 20 20 20 20 20 20 20 C4 4F 20 59 4F |"517 .O YO|
000007A0: 55 20 57 41 4E 54 20 54 4F 20 52 45 4D 4F 56 45 |U WANT TO REMOVE|
000007B0: 20 54 48 45 20 46 49 4C 45 20 22 3A 8D 34 36 30 | THE FILE ":.460|
000007C0: 00 FD 23 4C 04 41 24 B2 22 31 31 38 20 31 20 20 |..#L.A$."118 1 |
000007D0: 20 20 20 C6 52 4F 4D 20 54 48 45 20 1F 41 54 41 | .ROM THE .ATA|
000007E0: 4F 4F FF FF FF FF FF FF 2F 4E 2A 3F 20 20 20 20 |OO....../N*? |
000007F0: 3A 4E 20 22 3A 8D 34 36 30 3A 8D 33 32 30 00 13 |:N ":.460:.320..|
00000800: 24 60 04 43 41 24 B2 41 24 3A 21 39 41 B2 30 A7 |$`.CA$.A$:!9A.0.|
00000810: 31 30 38 30 00 25 24 74 04 21 39 41 24 B2 22 4E |1080.%$t.!9A$."N|
00000820: 22 A7 31 32 32 30 00 5D 24 88 04 41 24 B2 22 35 |".1220.]$..A$."5|
00000830: 31 31 30 20 20 20 20 20 20 D2 45 4D 4F 56 45 20 |110 .EMOVE |
00000840: C6 49 4C 45 20 C4 45 46 49 4E 49 54 49 4F 4E 20 |.ILE .EFINITION |
00000850: 46 52 4F 4D 20 20 20 20 22 3A 8D 34 36 30 00 9B |FROM ":.460..|
00000860: 24 9C 04 41 24 B2 22 31 31 31 31 31 20 20 20 20 |$..A$."11111 |
00000870: 20 C4 49 53 4B 20 44 49 52 45 43 54 4F 52 59 20 | .ISK DIRECTORY |
00000880: 20 20 20 20 28 59 2F 4E 29 3F 20 20 20 20 3A 4E | (Y/N)? :N|
00000890: 20 22 3A 8D 34 36 30 3A 8D 33 32 30 00 B1 24 B0 | ":.460:.320..$.|
000008A0: 04 46 44 24 B2 41 24 3A 21 39 41 B2 30 A7 31 31 |.FD$.A$:!9A.0.11|
000008B0: 38 30 00 E2 24 C4 04 41 24 B2 22 35 31 38 20 20 |80..$..A$."518 |
000008C0: 20 20 20 20 20 C1 4C 4C 20 52 45 43 4F 52 44 53 | .LL RECORDS|
000008D0: 20 49 4E 20 22 AA 46 54 24 3A 56 B2 31 34 3A 8D | IN ".FT$:V.14:.|
000008E0: 34 34 30 00 0E 25 D8 04 41 24 B2 22 35 31 39 20 |440..%..A$."519 |
000008F0: 20 20 20 20 20 20 57 49 4C 4C 20 42 45 20 44 45 | WILL BE DE|
00000900: 53 54 52 4F 59 45 44 20 20 22 3A 8D 34 36 30 00 |STROYED ":.460.|
00000910: 4B 25 EC 04 41 24 B2 22 31 31 31 31 31 20 20 20 |K%..A$."11111 |
00000920: 20 20 C1 52 45 20 59 4F 55 20 53 55 52 45 20 20 | .RE YOU SURE |
00000930: 20 20 20 20 20 20 28 59 2F 4E 29 3F 20 20 3A 59 | (Y/N)? :Y|
00000940: 20 22 3A 8D 34 36 30 3A 8D 33 32 30 00 5A 25 00 | ":.460:.320.Z%.|
00000950: 05 21 39 41 B2 30 A7 31 32 36 30 00 6A 25 14 05 |.!9A.0.1260.j%..|
00000960: 21 39 41 24 B2 22 4E 22 A7 21 28 00 96 25 28 05 |!9A$."N".!(..%(.|
00000970: 41 24 B2 22 35 31 35 20 20 20 20 20 20 20 C6 49 |A$."515 .I|
00000980: 4C 45 20 D3 45 4C 45 43 54 45 44 20 3D 22 AA 46 |LE .ELECTED =".F|
00000990: 54 24 3A 8D 34 34 30 00 A6 25 3C 05 21 02 46 3A |T$:.440..%<.!.F:|
000009A0: 21 47 89 31 36 30 30 00 D2 25 50 05 41 24 B2 22 |!G.1600..%P.A$."|
000009B0: 35 31 38 20 20 20 20 20 20 20 52 45 43 4F 52 44 |518 RECORD|
000009C0: 53 20 52 45 4D 4F 56 45 44 20 20 20 3D 22 3A 8D |S REMOVED =":.|
000009D0: 34 36 30 00 04 26 64 05 41 24 B2 22 35 31 32 30 |460..&d.A$."5120|
000009E0: 20 20 20 20 20 20 D0 D2 C5 D3 D3 20 D2 D5 CE 2F | ..... .../|
000009F0: D3 D4 CF D0 20 D4 CF 20 C1 C2 CF D2 D4 20 20 22 |.... .. ..... "|
00000A00: 3A 8D 34 36 30 00 14 26 78 05 21 02 46 3A 21 47 |:.460..&x.!.F:!G|
00000A10: 89 8F 91 FF FF 88 00 FF FF FF FF 6F FF FF FF FF |...........o....|
00000A20: FF FF FF FF FF 66 FF FF FF FF FF FF FF FF FF FF |.....f..........|
00000A30: FF FF FF FF FF FF FF FF FF FF E3 FF FF FF FF FF |................|
00000A40: FF FF C6 FF FF FF 2D FF FF D7 FF FF FF FF FF FF |......-.........|
00000A50: FF D7 FF FF FF FF FF FF FF FF FF FC FF FF FF E3 |................|
00000A60: FF FF FF FF F4 FF CA FF FF FF 2D FF FF D7 FF FF |..........-.....|
00000A70: FF FF FF FF FF FF FF FF FF C0 FF FF FF D7 FF FF |................|
00000A80: FF FF FF FF FF FF FF FF FF FF FF 6E FF FF AD 0D |...........n....|
00000A90: FF FA EE FF FF 6E FF FF FF FF FF FF FF FF FF FF |.....n..........|
00000AA0: AD FF FF FF FF FF FF FF FF FF FB FF FF FF FF FF |................|
00000AB0: D7 FF FF FF FF FF FF FF FF FF FF FF FA FF FF FF |................|
00000AC0: FF 0D FF FF 2D FF FF 72 02 00 FF AE 7E F1 1B 4B |....-..r....~..K|
00000AD0: 1B FF 03 41 53 FF FF E2 FF FF FF A2 22 FF FA A0 |...AS......."...|
00000AE0: F3 FF 36 FF FF FF FF FF FF FF 20 20 20 20 41 46 |..6....... AF|
00000AF0: 54 45 52 20 50 52 45 53 53 49 4E 47 20 D2 C5 D4 |TER PRESSING ...|
00000B00: D5 D2 CE 20 20 20 20 22 3A 8D 34 36 30 00 3F 27 |... ":.460.?'|
00000B10: 2C 06 41 24 B2 22 35 31 31 35 20 20 20 20 20 20 |,.A$."5115 |
00000B20: 53 45 4C 45 43 54 20 C5 D8 C5 C3 D5 D4 C5 20 46 |SELECT ....... F|
00000B30: 52 4F 4D 20 CD C5 CE D5 20 31 22 3A 8D 34 36 30 |ROM .... 1":.460|
00000B40: 00 71 27 40 06 41 24 B2 22 35 31 32 30 20 20 20 |.q'@.A$."5120 |
00000B50: 20 20 20 D0 D2 C5 D3 D3 20 D2 C5 D4 D5 D2 CE 20 | ..... ...... |
00000B60: D4 CF 20 C3 CF CE D4 C9 CE D5 C5 20 22 3A 8D 34 |.. ........ ":.4|
00000B70: 36 30 00 84 27 54 06 81 49 B2 31 A4 31 30 30 3A |60..'T..I.1.100:|
00000B80: 82 3A 21 02 44 00 B4 27 68 06 41 24 B2 22 35 31 |.:!.D..'h.A$."51|
00000B90: 31 30 20 20 20 20 20 20 C4 4F 20 59 4F 55 20 57 |10 .O YOU W|
00000BA0: 49 53 48 20 54 4F 20 50 52 4F 43 45 53 53 20 22 |ISH TO PROCESS "|
00000BB0: 3A 8D 34 34 30 00 E3 27 7C 06 41 24 B2 22 35 31 |:.440..'|.A$."51|
00000BC0: 31 31 20 20 20 20 20 20 C1 4E 59 20 4D 4F 52 45 |11 .NY MORE|
00000BD0: 20 46 49 4C 45 53 20 49 4E 22 3A 8D 34 36 30 3A | FILES IN":.460:|
00000BE0: 8D 33 32 30 00 20 28 90 06 41 24 B2 22 31 31 31 |.320. (..A$."111|
00000BF0: 32 31 20 20 20 20 20 D4 48 49 53 20 44 41 54 41 |21 .HIS DATA|
00000C00: 42 41 53 45 20 20 20 20 20 20 20 28 59 2F 4E 29 |BASE (Y/N)|
00000C10: 3F 20 20 3A 59 20 22 3A 8D 34 36 30 3A 8D 33 32 |? :Y ":.460:.32|
00000C20: 30 00 2F 28 A4 06 21 39 41 B2 30 A7 31 36 38 30 |0./(..!9A.0.1680|
00000C30: 00 3F 28 B8 06 21 39 41 24 B2 22 4E 22 A7 21 28 |.?(..!9A$."N".!(|
00000C40: 00 50 28 CC 06 21 39 41 24 B2 22 59 22 A7 36 30 |.P(..!9A$."Y".60|
00000C50: 30 00 56 28 E0 06 8F 00 82 28 F4 06 41 24 B2 22 |0.V(.....(..A$."|
00000C60: 31 31 35 20 31 35 20 20 20 20 C5 4E 54 45 52 20 |115 15 .NTER |
00000C70: C8 45 4C 50 20 CE 41 4D 45 20 3A 20 20 22 3A 8D |.ELP .AME : ":.|
00000C80: 34 34 30 00 9B 28 08 07 46 24 B2 41 24 3A 46 24 |440..(..F$.A$:F$|
00000C90: B2 22 48 22 AA 46 24 3A 8D 32 34 30 00 C1 28 1C |."H".F$:.240..(.|
00000CA0: 07 41 24 B2 22 35 31 35 20 20 20 20 20 20 20 C8 |.A$."515 .|
00000CB0: 45 4C 50 20 C6 49 4C 45 22 AA 46 54 24 3A 8D 34 |ELP .ILE".FT$:.4|
00000CC0: 36 30 00 E9 28 30 07 41 24 B2 22 35 31 36 20 20 |60..(0.A$."516 |
00000CD0: 20 20 20 20 20 57 49 4C 4C 20 42 45 20 44 45 4C | WILL BE DEL|
00000CE0: 45 54 45 44 22 3A 8D 34 36 30 00 26 29 44 07 41 |ETED":.460.&)D.A|
00000CF0: 24 B2 22 31 31 31 31 31 20 20 20 20 20 C1 52 45 |$."11111 .RE|
00000D00: 20 59 4F 55 20 53 55 52 45 20 20 20 20 20 20 20 | YOU SURE |
00000D10: 20 28 59 2F 4E 29 3F 20 20 3A 59 20 22 3A 8D 34 | (Y/N)? :Y ":.4|
00000D20: 36 30 3A 8D 33 32 30 00 36 29 58 07 21 39 41 24 |60:.320.6)X.!9A$|
00000D30: B2 22 4E 22 A7 21 28 00 45 29 6C 07 21 39 41 B2 |."N".!(.E)l.!9A.|
00000D40: 30 A7 31 38 36 30 00 51 29 80 07 8D 32 36 30 3A |0.1860.Q)...260:|
00000D50: 21 28 00 80 29 94 07 41 24 B2 22 31 31 35 20 31 |!(..)..A$."115 1|
00000D60: 34 20 20 20 20 C5 4E 54 45 52 20 D0 52 4F 47 52 |4 .NTER .ROGR|
00000D70: 41 4D 20 CE 41 4D 45 20 3A 20 20 22 3A 8D 34 34 |AM .AME : ":.44|
00000D80: 30 00 8A 29 A8 07 46 24 B2 41 24 00 93 29 BC 07 |0..)..F$.A$..)..|
00000D90: 8D 32 34 30 00 BD 29 D0 07 41 24 B2 22 35 31 35 |.240..)..A$."515|
00000DA0: 20 20 20 20 20 20 20 D0 52 4F 47 52 41 4D 20 46 | .ROGRAM F|
00000DB0: 49 4C 45 20 22 AA 46 54 24 3A 8D 34 36 30 00 E5 |ILE ".FT$:.460..|
00000DC0: 29 E4 07 41 24 B2 22 35 31 36 20 20 20 20 20 20 |)..A$."516 |
00000DD0: 20 57 49 4C 4C 20 42 45 20 44 45 4C 45 54 45 44 | WILL BE DELETED|
00000DE0: 22 3A 8D 34 36 30 00 22 2A F8 07 41 24 B2 22 31 |":.460."*..A$."1|
00000DF0: 31 31 31 31 20 20 20 20 20 C1 52 45 20 59 4F 55 |1111 .RE YOU|
00000E00: 20 53 55 52 45 20 20 20 20 20 20 20 20 28 59 2F | SURE (Y/|
00000E10: 4E 29 3F 20 20 3A 59 20 22 3A 8D 34 36 30 3A 8D |N)? :Y ":.460:.|
00000E20: 33 32 30 00 32 2A 0C 08 21 39 41 24 B2 22 4E 22 |320.2*..!9A$."N"|
00000E30: A7 21 28 00 41 2A 20 08 21 39 41 B2 30 A7 32 30 |.!(.A* .!9A.0.20|
00000E40: 34 30 00 60 2A 34 08 21 39 C9 28 46 24 2C 32 29 |40.`*4.!9.(F$,2)|
00000E50: B3 B1 22 2E 50 22 A7 46 24 B2 46 24 AA 22 2E 50 |..".P".F$.F$.".P|
00000E60: 22 00 6F 2A 48 08 8D 32 36 30 3A 89 32 33 30 30 |".o*H..260:.2300|
00000E70: 00 A6 2A 5C 08 41 24 B2 22 31 31 35 20 31 34 20 |..*\.A$."115 14 |
00000E80: 20 20 20 C5 4E 54 45 52 20 CD 45 4D 4F 20 CE 41 | .NTER .EMO .A|
00000E90: 4D 45 20 3A 20 20 22 3A 8D 34 34 30 3A 46 24 B2 |ME : ":.440:F$.|
00000EA0: 41 24 3A 8D 32 34 30 00 CD 2A 70 08 41 24 B2 22 |A$:.240..*p.A$."|
00000EB0: 35 31 35 20 20 20 20 20 20 20 CD 45 4D 4F 20 46 |515 .EMO F|
00000EC0: 49 4C 45 20 22 AA 46 54 24 3A 8D 34 36 30 00 F5 |ILE ".FT$:.460..|
00000ED0: 2A 84 08 41 24 B2 22 35 31 36 20 20 20 20 20 20 |*..A$."516 |
00000EE0: 20 57 49 4C 4C 20 42 45 20 44 45 4C 45 54 45 44 | WILL BE DELETED|
00000EF0: 22 3A 8D 34 36 30 00 32 2B 98 08 41 24 B2 22 31 |":.460.2+..A$."1|
00000F00: 31 31 31 31 20 20 20 20 20 C1 52 45 20 59 4F 55 |1111 .RE YOU|
00000F10: 20 53 55 52 45 20 20 20 20 20 20 20 20 28 59 2F | SURE (Y/|
00000F20: 4E 29 3F 20 20 3A 59 20 22 3A 8D 34 36 30 3A 8D |N)? :Y ":.460:.|
00000F30: 33 32 30 00 42 2B AC 08 21 39 41 24 B2 22 4E 22 |320.B+..!9A$."N"|
00000F40: A7 21 28 00 51 2B C0 08 21 39 41 B2 30 A7 32 32 |.!(.Q+..!9A.0.22|
00000F50: 30 30 00 60 2B D4 08 8D 32 36 30 3A 89 32 33 30 |00.`+...260:.230|
00000F60: 30 00 66 2B E8 08 8F 00 AF 2B FC 08 21 15 40 30 |0.f+.....+..!.@0|
00000F70: 40 31 AA 43 2C 34 3B 53 50 24 3A 8F 20 50 45 52 |@1.C,4;SP$:. PER|
00000F80: 46 4F 52 4D 20 22 44 49 53 50 4C 41 59 40 30 3B |FORM "DISPLAY@0;|
00000F90: 40 31 2B 43 22 2B 4D 49 44 24 28 43 4C 24 2C 32 |@1+C"+MID$(CL$,2|
00000FA0: 34 29 2B 4C 45 46 54 24 28 53 50 24 2C 32 31 29 |4)+LEFT$(SP$,21)|
00000FB0: 00 C8 2B 10 09 41 24 B2 22 35 31 34 20 20 20 20 |..+..A$."514 |
00000FC0: 20 20 20 22 3A 8D 34 36 30 00 F1 2B 24 09 41 24 | ":.460..+$.A$|
00000FD0: B2 22 35 31 37 20 20 20 20 20 20 20 C3 48 4F 4F |."517 .HOO|
00000FE0: 53 45 20 C6 49 4C 45 20 54 59 50 45 22 3A 8D 34 |SE .ILE TYPE":.4|
00000FF0: 34 30 00 2A 2C 38 09 41 24 B2 22 35 31 38 20 20 |40.*,8.A$."518 |
00001000: 20 20 20 20 20 44 3D 44 41 54 41 42 41 53 45 20 | D=DATABASE |
00001010: 46 49 4C 45 2C 20 20 20 4D 3D 4D 45 4D 4F 2C 20 |FILE, M=MEMO, |
00001020: 22 3A 56 B2 31 34 3A 8D 34 36 30 00 68 2C 4C 09 |":V.14:.460.h,L.|
00001030: 41 24 B2 22 31 31 39 20 31 20 20 20 20 20 48 3D |A$."119 1 H=|
00001040: 48 45 4C 50 20 53 43 52 45 45 4E 2C 20 20 20 20 |HELP SCREEN, |
00001050: 20 50 3D 20 50 52 4F 47 52 41 4D 20 20 20 20 20 | P= PROGRAM |
00001060: 3A 44 20 22 3A 8D 34 36 30 00 95 2C 60 09 21 39 |:D ":.460..,`.!9|
00001070: 41 24 B2 22 44 22 A7 41 24 B2 22 C5 4E 54 45 52 |A$."D".A$.".NTER|
00001080: 20 46 49 4C 45 20 4E 41 4D 45 20 20 3A 20 20 20 | FILE NAME : |
00001090: 22 3A 89 36 30 30 00 A7 2C 74 09 21 39 41 24 B2 |":.600..,t.!9A$.|
000010A0: 22 48 22 A7 31 37 36 30 00 B9 2C 88 09 21 39 41 |"H".1760..,..!9A|
000010B0: 24 B2 22 50 22 A7 31 39 34 30 00 CC 2C 9C 09 21 |$."P".1940..,..!|
000010C0: 39 41 24 B2 22 4D 22 A7 32 31 34 30 22 00 DB 2C |9A$."M".2140"..,|
000010D0: B0 09 8D 34 30 30 3A 89 32 33 34 30 00 E8 2C C4 |...400:.2340..,.|
000010E0: 09 21 2A 3A 21 0E 31 30 30 00 00 00 |.!*:!.100... |
SB1).... COPYRIGHT PRECISION SOFTWARE 19
84.2.(..200.M.<.CL$." DISK HOUSEKEEPIN
G SERVICE":!YA:C.0:!9A.80.C.20...P.SP$."
".
Z.D.!9C.0.CL$.CL$.G(13)."COPYRIGHT PRECI
SION SOFTWARE 1985".!.X.!9C.20.CL$.CL$.G
(13).H(SP$,20)."COPYRIGHT PRECISION SOFT
WARE 1985".M...CL$."DISPLAY CHR$(147)@1+
C,2".G(34).CL$.{. .U$.".................
...................".........H..60:.380:
.2300......T.X.Y:!.@0@1.C,T;SP$@0:.:..M.
..FT$.G(34).F$.G(34):......A$."MAINTAINO
".G(34)."S0:".F$.G(34):!QA$.-...A$."5111
".FT$." REMOVED FROM DIRECTORY".C
.,..460:.I.1.400:.:..H.@.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$.I.L.T.
E(H(A$,1)):X.C.E(J(A$,2,1)):Y.E(J(A$,3,2
)).Z...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...P...!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...- X..240:!9C.20.!522.V L.!.:!5
:!.@0@1.C,2;J(CL$,25);@1.C,4SP$.. ..A$."
115 10 ENTER FILE NAME : ":.460.. ..
F$.A$:!.F$:.60:!QCL$.L ...240:A$."5/....
....&......T.T'......C....\...".....6...
........#..#...#.A..#..#3;1;..FROM A "
:.460.B!P.A$."118 1 SELECT LIST
(Y/N)? :N ":.460:.320.P!..!9A.0.70
0.B!..!9A$."N".1080..!..A$."115 10 EN
TER LIST TO DELETE FROM : ":.460..! .S
L$.A$..!4.A$."518 ALL RECORDS IN
".G(34).SL$.G(34):V.14:.440.."H.A$."519
WILL BE DESTROYED ":.460.K"\.A$."
11111 ARE YOU SURE (Y/N)? :Y
":.460:.320.]"P.S.0:!9A.0.860.M"..!9A$.
"N".!(.."..A$."515 FILE SELECTED =
".FT$:.440.W"..A$."516 LIST TO DEL
ETE FROM =".G(34).SL$.G(34):.440.."..!.!
.SL$:!H.1640..#T.A$."518 RECORDS R
EMOVED =":.460.I#..A$."5120 PRESS
RUN/STOP TO ABORT ":.460.I#..!.D:S.S.1
:!.@0@20.C,8&4,0;S.}#..!.!.SL$:!H.1640..
#$..1020..#8.A$."517 DO YOU WANT T
O REMOVE THE FILE ":.460..#L.A$."118 1
FROM THE .ATAOO....../N*? :N ":.46
0:.320..$`.CA$.A$:!9A.0.1080.%$T.!9A$."N
".1220.]$..A$."5110 REMOVE FILE DEF
INITION FROM ":.460..$..A$."11111
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.
K%..A$."11111 ARE YOU SURE (Y
/N)? :Y ":.460:.320.Z%..!9A.0.1260.J%..
!9A$."N".!(..%(.A$."515 FILE SELEC
TED =".FT$:.440..%<.!.F:!G.1600.R%P.A$."
518 RECORDS REMOVED =":.460..&D.
A$."5120 PRESS RUN/STOP TO ABORT "
:.460..&X.!.F:!G...........O.........F..
..........................F...-..W......
.W....................J...-..W..........
.....W.............N.........N..........
................W...................-..R
....~..K...AS.......".. ..6....... AF
TER PRESSING RETURN ":.460.?',.A$."51
15 SELECT EXECUTE FROM MENU 1":.460
.Q'@.A$."5120 PRESS RETURN TO CONTI
NUE ":.460..'T..I.1.100:.:!.D..'H.A$."51
10 DO YOU WISH TO PROCESS ":.440..'
|.A$."5111 ANY MORE FILES IN":.460:
.320. (..A$."11121 THIS DATABASE
(Y/N)? :Y ":.460:.320./(..!9A.0.1680
.?(..!9A$."N".!(.P(L.!9A$."Y".600.V(....
.(..A$."115 15 ENTER HELP NAME : ":.
440..(..F$.A$:F$."H".F$:.240.A(..A$."515
HELP FILE".FT$:.460..(0.A$."516
WILL BE DELETED":.460.&)D.A$."11111
ARE YOU SURE (Y/N)? :Y ":.4
60:.320.6)X.!9A$."N".!(.E)L.!9A.0.1860.Q
)...260:!(..)..A$."115 14 ENTER PROGR
AM NAME : ":.440..)..F$.A$..)...240..)P
.A$."515 PROGRAM FILE ".FT$:.460..
)..A$."516 WILL BE DELETED":.460."
*..A$."11111 ARE YOU SURE (Y/
N)? :Y ":.460:.320.2*..!9A$."N".!(.A* .
!9A.0.2040.`*4.!9I(F$,2)..".P".F$.F$.".P
".O*H..260:.2300..*\.A$."115 14 ENTER
MEMO NAME : ":.440:F$.A$:.240.M*P.A$."
515 MEMO FILE ".FT$:.460..*..A$."5
16 WILL BE DELETED":.460.2+..A$."1
1111 ARE YOU SURE (Y/N)? :Y
":.460:.320.B+..!9A$."N".!(.Q+..!9A.0.22
00.`+T..260:.2300.F+.....+..!.@0@1.C,4;S
P$:. PERFORM "DISPLAY@0;@1+C"+MID$(CL$,2
4)+LEFT$(SP$,21).H+..A$."514 ":.46
0..+$.A$."517 CHOOSE FILE TYPE":.4
40.*,8.A$."518 D=DATABASE FILE,
M=MEMO, ":V.14:.460.H,L.A$."119 1 H=
HELP SCREEN, P= PROGRAM :D ":.46
0..,`.!9A$."D".A$."ENTER FILE NAME :
":.600..,T.!9A$."H".1760..,..!9A$."P".19
40.L,..!9A$."M".2140"..,...400:.2340..,D
.!*:!.100...
> CLICK IMAGE PREVIEW FOR FULL MODAL