DATAKEEPER
FILE INFORMATION
FILENAME(S): DATAKEEPER
FILE TYPE(S): PRG
FILE SIZE: 15.2K
FIRST SEEN: 2025-11-30 21:12:23
APPEARS ON: 2 disk(s)
FILE HASH
47669535fbb3bae56ecf2495b1036bb1599e174f6c5e1ddf65e4a2e60434fd07
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LISTINGS | DATAKEEPER | PRG | DuncanTwain | 8 | 0 | DOWNLOAD FILE |
| LISTINGS | DATAKEEPER | PRG | DuncanTwain | 8 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 26 08 01 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |..&....*********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 00 4B 08 02 00 8F 2A 20 20 20 |******.K....* |
00000030: 57 52 49 54 54 45 4E 20 42 59 20 53 2E 4B 2E 20 |WRITTEN BY S.K. |
00000040: 49 42 52 41 48 49 4D 20 20 20 2A 00 70 08 03 00 |IBRAHIM *.p...|
00000050: 8F 2A 20 20 20 53 49 4D 50 4C 45 20 44 41 54 41 |.* SIMPLE DATA|
00000060: 42 41 53 45 20 50 52 4F 47 20 20 20 20 20 20 2A |BASE PROG *|
00000070: 00 95 08 04 00 8F 2A 20 20 20 44 41 54 41 4B 45 |......* DATAKE|
00000080: 45 50 45 52 20 20 20 20 20 20 20 20 20 20 20 20 |EPER |
00000090: 20 20 20 20 2A 00 BA 08 05 00 8F 2A 20 20 20 28 | *......* (|
000000A0: 43 29 31 39 38 34 20 20 20 20 20 20 20 20 20 20 |C)1984 |
000000B0: 20 20 20 20 20 20 20 20 20 2A 00 DF 08 06 00 8F | *......|
000000C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000000E0: F5 08 07 00 8F 2A 49 4E 49 54 49 41 4C 49 53 41 |.....*INITIALISA|
000000F0: 54 49 4F 4E 2A 00 19 09 08 00 8F 2A 2A 2A 2A 2A |TION*......*****|
00000100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3D 09 09 00 8F 2A |*********.=....*|
00000120: 53 50 45 43 49 46 59 20 53 49 5A 45 20 4F 46 20 |SPECIFY SIZE OF |
00000130: 46 49 4C 45 3A 53 45 54 20 44 49 4D 2A 00 61 09 |FILE:SET DIM*.a.|
00000140: 0A 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...*************|
00000150: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000160: 2A 00 7A 09 0B 00 86 20 46 49 24 28 38 2C 31 35 |*.z.... FI$(8,15|
00000170: 30 29 2C 53 45 28 31 35 30 29 00 A0 09 0C 00 8F |0),SE(150)......|
00000180: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000190: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001A0: 00 C6 09 0D 00 8F 2A 53 45 54 20 55 50 20 43 4F |......*SET UP CO|
000001B0: 4C 4F 55 52 20 4F 46 20 42 4F 52 44 45 52 2F 53 |LOUR OF BORDER/S|
000001C0: 43 52 45 45 4E 2A 00 EC 09 0E 00 8F 2A 2A 2A 2A |CREEN*......****|
000001D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 06 0A 0F |************....|
000001F0: 00 97 20 35 33 32 38 30 2C 31 31 3A 97 20 35 33 |.. 53280,11:. 53|
00000200: 32 38 31 2C 31 31 00 29 0A 10 00 8F 2A 2A 2A 2A |281,11.)....****|
00000210: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000220: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 4C 0A 11 00 8F 2A |*********.L....*|
00000230: 53 50 45 43 49 46 59 20 50 52 49 4E 54 20 43 4F |SPECIFY PRINT CO|
00000240: 4C 4F 55 52 28 57 48 49 54 45 29 2A 00 6F 0A 12 |LOUR(WHITE)*.o..|
00000250: 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************|
00000260: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000270: 78 0A 13 00 99 22 05 22 00 9B 0A 14 00 8F 2A 2A |x...."."......**|
00000280: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000290: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 BE 0A 15 00 |***********.....|
000002A0: 8F 2A 49 4E 49 54 49 41 4C 4C 59 20 4E 30 20 46 |.*INITIALLY N0 F|
000002B0: 49 4C 45 20 49 4E 20 4D 45 4D 4F 52 59 2A 00 E1 |ILE IN MEMORY*..|
000002C0: 0A 16 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |....************|
000002D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000002E0: 2A 00 EE 0A 17 00 46 49 4C 45 24 B2 22 22 00 05 |*.....FILE$.""..|
000002F0: 0B 18 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |....************|
00000300: 2A 2A 2A 2A 2A 00 1C 0B 19 00 8F 2A 44 41 54 41 |*****......*DATA|
00000310: 4B 45 45 50 45 52 20 4D 45 4E 55 2A 00 33 0B 1A |KEEPER MENU*.3..|
00000320: 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************|
00000330: 2A 2A 2A 00 54 0B 1B 00 99 22 93 12 1D 1D 1D 1D |***.T...."......|
00000340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000350: 20 20 20 22 00 74 0B 1C 00 99 22 12 1D 1D 1D 1D | ".t....".....|
00000360: 20 20 4D 45 4E 55 3A 44 41 54 41 4B 45 45 50 45 | MENU:DATAKEEPE|
00000370: 52 20 20 22 00 94 0B 1D 00 99 22 12 1D 1D 1D 1D |R "......".....|
00000380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000390: 20 20 20 22 00 AF 0B 1E 00 99 22 11 1D 1D 1D 28 | "......"....(|
000003A0: 31 29 43 52 45 41 54 45 20 46 49 4C 45 22 3B 00 |1)CREATE FILE";.|
000003B0: CB 0B 1F 00 99 22 1D 1D 1D 28 32 29 41 44 44 20 |....."...(2)ADD |
000003C0: 4E 45 57 20 52 45 43 4F 52 44 22 00 E8 0B 20 00 |NEW RECORD"... .|
000003D0: 99 22 11 1D 1D 1D 28 33 29 56 49 45 57 20 41 20 |."....(3)VIEW A |
000003E0: 52 45 43 4F 52 44 22 3B 00 03 0C 21 00 99 22 1D |RECORD";...!..".|
000003F0: 28 34 29 54 41 50 45 20 4F 50 45 52 41 54 49 4F |(4)TAPE OPERATIO|
00000400: 4E 53 22 00 21 0C 22 00 99 22 11 1D 1D 1D 28 35 |NS".!.".."....(5|
00000410: 29 44 49 53 4B 20 4F 50 45 52 41 54 49 4F 4E 53 |)DISK OPERATIONS|
00000420: 22 00 42 0C 23 00 99 22 11 1D 1D 1D 28 36 29 50 |".B.#.."....(6)P|
00000430: 52 49 4E 54 20 52 45 43 4F 52 44 2F 4C 41 42 45 |RINT RECORD/LABE|
00000440: 4C 22 00 63 0C 24 00 99 22 11 1D 1D 1D 28 37 29 |L".c.$.."....(7)|
00000450: 4D 4F 44 49 46 59 20 52 45 43 4F 52 44 2F 46 49 |MODIFY RECORD/FI|
00000460: 4C 45 22 00 8F 0C 25 00 99 22 11 1D 1D 1D 28 38 |LE"...%.."....(8|
00000470: 29 53 45 41 52 43 48 20 46 4F 52 20 41 20 52 45 |)SEARCH FOR A RE|
00000480: 43 4F 52 44 2F 53 4F 52 54 20 46 49 4C 45 22 00 |CORD/SORT FILE".|
00000490: A9 0C 26 00 99 22 11 1D 1D 1D 28 39 29 45 4E 44 |..&.."....(9)END|
000004A0: 20 50 52 4F 47 52 41 4D 22 00 CF 0C 27 00 8B 20 | PROGRAM"...'.. |
000004B0: 41 44 46 49 4C 45 B1 30 20 A7 99 22 11 1D 1D 1D |ADFILE.0 .."....|
000004C0: 44 41 54 41 20 49 4E 20 4D 45 4D 4F 52 59 22 00 |DATA IN MEMORY".|
000004D0: F5 0C 28 00 99 22 11 1D 1D 1D 50 4C 45 41 53 45 |..(.."....PLEASE|
000004E0: 20 54 59 50 45 20 49 4E 20 41 20 4E 4F 2E 20 28 | TYPE IN A NO. (|
000004F0: 31 2D 39 29 22 00 13 0D 29 00 8F 2A 2A 2A 2A 2A |1-9)"...)..*****|
00000500: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000510: 2A 2A 2A 00 31 0D 2A 00 8F 2A 43 48 45 43 4B 20 |***.1.*..*CHECK |
00000520: 55 53 45 52 20 52 45 51 55 49 52 45 4D 45 4E 54 |USER REQUIREMENT|
00000530: 2A 00 4F 0D 2B 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |*.O.+..*********|
00000540: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000550: 74 0D 2C 00 A1 20 4D 45 24 3A 4D 45 B2 C5 28 4D |t.,.. ME$:ME..(M|
00000560: 45 24 29 3A 8B 20 4D 45 B3 31 B0 4D 45 B1 39 20 |E$):. ME.1.ME.9 |
00000570: A7 20 34 34 00 85 0D 2D 00 8B 20 4D 45 B2 39 20 |. 44...-.. ME.9 |
00000580: A7 20 36 31 34 00 9D 0D 2E 00 8F 2A 2A 2A 2A 2A |. 614......*****|
00000590: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B5 0D |*************...|
000005A0: 2F 00 8F 2A 43 41 4C 4C 20 53 55 42 52 4F 55 54 |/..*CALL SUBROUT|
000005B0: 49 4E 45 53 2A 00 CD 0D 30 00 8F 2A 2A 2A 2A 2A |INES*...0..*****|
000005C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F6 0D |*************...|
000005D0: 31 00 91 20 4D 45 20 8D 20 35 31 2C 37 32 2C 31 |1.. ME . 51,72,1|
000005E0: 30 30 2C 31 32 34 2C 31 34 30 2C 33 34 37 2C 34 |00,124,140,347,4|
000005F0: 32 35 2C 34 38 32 00 FF 0D 32 00 89 20 32 37 00 |25,482...2.. 27.|
00000600: 17 0E 33 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..3..***********|
00000610: 2A 2A 2A 2A 2A 2A 2A 00 2F 0E 34 00 8F 2A 43 52 |*******./.4..*CR|
00000620: 45 41 54 45 20 4E 45 57 20 46 49 4C 45 53 2A 00 |EATE NEW FILES*.|
00000630: 47 0E 35 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |G.5..***********|
00000640: 2A 2A 2A 2A 2A 2A 2A 00 62 0E 36 00 99 22 93 43 |*******.b.6..".C|
00000650: 52 45 41 54 49 4E 47 20 4E 45 57 20 46 49 4C 45 |REATING NEW FILE|
00000660: 53 22 00 8C 0E 37 00 99 22 11 11 48 4F 57 20 4D |S"...7.."..HOW M|
00000670: 41 4E 59 20 46 49 45 4C 44 53 20 52 45 51 55 49 |ANY FIELDS REQUI|
00000680: 52 45 44 3F 20 4D 41 58 2E 20 38 22 00 A7 0E 38 |RED? MAX. 8"...8|
00000690: 00 99 22 11 53 50 41 43 45 20 42 41 52 20 54 4F |..".SPACE BAR TO|
000006A0: 20 41 42 4F 52 54 22 00 C0 0E 39 00 A1 20 54 46 | ABORT"...9.. TF|
000006B0: 49 24 3A 8B 20 54 46 49 24 B2 22 22 A7 20 35 37 |I$:. TFI$."". 57|
000006C0: 00 D3 0E 3A 00 8B 20 54 46 49 24 B2 22 20 22 20 |...:.. TFI$." " |
000006D0: A7 20 8E 00 E3 0E 3B 00 54 46 49 B2 C5 28 54 46 |. ....;.TFI..(TF|
000006E0: 49 24 29 00 FC 0E 3C 00 8B 20 54 46 49 B3 31 20 |I$)...<.. TFI.1 |
000006F0: B0 20 54 46 49 B1 38 20 A7 20 35 37 00 07 0F 3D |. TFI.8 . 57...=|
00000700: 00 46 49 B2 54 46 49 00 1B 0F 3E 00 8F 2A 43 4C |.FI.TFI...>..*CL|
00000710: 45 41 52 20 46 49 45 4C 44 53 2A 00 67 0F 3F 00 |EAR FIELDS*.g.?.|
00000720: 50 24 28 31 29 B2 22 22 3A 50 24 28 32 29 B2 22 |P$(1)."":P$(2)."|
00000730: 22 3A 50 24 28 33 29 B2 22 22 3A 50 24 28 34 29 |":P$(3)."":P$(4)|
00000740: B2 22 22 3A 50 24 28 35 29 B2 22 22 3A 50 24 28 |."":P$(5)."":P$(|
00000750: 36 29 B2 22 22 3A 50 24 28 37 29 B2 22 22 3A 50 |6)."":P$(7)."":P|
00000760: 24 28 38 29 B2 22 22 00 7D 0F 40 00 8F 2A 47 45 |$(8)."".}.@..*GE|
00000770: 54 20 4E 45 57 20 46 49 45 4C 44 53 2A 00 AE 0F |T NEW FIELDS*...|
00000780: 41 00 99 22 93 50 4C 45 41 53 45 20 54 59 50 45 |A..".PLEASE TYPE|
00000790: 20 49 4E 20 46 49 45 4C 44 53 2C 55 50 20 54 4F | IN FIELDS,UP TO|
000007A0: 20 39 20 43 48 41 52 41 43 54 45 52 53 22 00 CA | 9 CHARACTERS"..|
000007B0: 0F 42 00 81 20 41 B2 31 20 A4 20 46 49 3A 99 22 |.B.. A.1 . FI:."|
000007C0: 46 49 45 4C 44 20 22 3B 41 3B 00 D4 0F 43 00 85 |FIELD ";A;...C..|
000007D0: 20 54 50 24 00 EE 0F 44 00 54 50 B2 C3 28 54 50 | TP$...D.TP..(TP|
000007E0: 24 29 3A 8B 20 54 50 B1 39 20 A7 20 36 37 00 03 |$):. TP.9 . 67..|
000007F0: 10 45 00 50 24 28 41 29 B2 54 50 24 3A 54 50 24 |.E.P$(A).TP$:TP$|
00000800: B2 22 22 00 0B 10 46 00 82 20 41 00 11 10 47 00 |.""...F.. A...G.|
00000810: 8E 00 27 10 48 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |..'.H..*********|
00000820: 2A 2A 2A 2A 2A 2A 2A 00 3D 10 49 00 8F 2A 41 44 |*******.=.I..*AD|
00000830: 44 20 4E 45 57 20 52 45 43 4F 52 44 2A 00 53 10 |D NEW RECORD*.S.|
00000840: 4A 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |J..*************|
00000850: 2A 2A 2A 00 65 10 4B 00 8F 2A 43 48 45 43 4B 20 |***.e.K..*CHECK |
00000860: 46 49 4C 45 2A 00 75 10 4C 00 8B 20 46 49 B1 30 |FILE*.u.L.. FI.0|
00000870: 20 A7 20 38 30 00 9C 10 4D 00 99 22 93 46 49 4C | . 80...M..".FIL|
00000880: 45 20 48 41 53 20 4E 4F 54 20 42 45 45 4E 20 42 |E HAS NOT BEEN B|
00000890: 45 45 4E 20 43 52 45 41 54 45 44 22 00 B0 10 4E |EEN CREATED"...N|
000008A0: 00 81 20 41 B2 31 20 A4 20 32 30 30 30 3A 82 41 |.. A.1 . 2000:.A|
000008B0: 00 B6 10 4F 00 8E 00 CA 10 50 00 41 44 46 49 4C |...O.....P.ADFIL|
000008C0: 45 B2 41 44 46 49 4C 45 AA 31 00 F6 10 51 00 8B |E.ADFILE.1...Q..|
000008D0: 20 41 44 46 49 4C 45 B1 31 35 30 20 A7 20 99 22 | ADFILE.150 . ."|
000008E0: 11 1D 1D 1D 4E 4F 20 4D 4F 52 45 20 52 4F 4F 4D |....NO MORE ROOM|
000008F0: 22 3A 89 20 39 34 00 1B 11 52 00 99 22 93 11 11 |":. 94...R.."...|
00000900: 1D 1D 1D 1D 1D 1D 1D 52 45 43 4F 52 44 20 4E 4F |.......RECORD NO|
00000910: 2E 3A 2D 22 3B 41 44 46 49 4C 45 00 40 11 53 00 |.:-";ADFILE.@.S.|
00000920: 81 20 41 B2 31 A4 46 49 3A 99 22 11 1D 1D 22 3B |. A.1.FI:."...";|
00000930: 50 24 28 41 29 A3 31 31 29 C7 28 35 38 29 3A 82 |P$(A).11).(58):.|
00000940: 00 59 11 54 00 81 20 42 B2 31 20 A4 20 46 49 3A |.Y.T.. B.1 . FI:|
00000950: 99 22 91 91 91 22 3A 82 42 00 76 11 55 00 81 41 |."...":.B.v.U..A|
00000960: B2 31 A4 46 49 3A 46 49 24 28 41 2C 41 44 46 49 |.1.FI:FI$(A,ADFI|
00000970: 4C 45 29 B2 22 22 00 9C 11 56 00 99 22 11 1D 1D |LE).""...V.."...|
00000980: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 3A 85 20 46 |..........";:. F|
00000990: 49 24 28 41 2C 41 44 46 49 4C 45 29 00 C6 11 57 |I$(A,ADFILE)...W|
000009A0: 00 8B 20 46 49 24 28 41 2C 41 44 46 49 4C 45 29 |.. FI$(A,ADFILE)|
000009B0: B2 22 22 A7 20 46 49 24 28 41 2C 41 44 46 49 4C |."". FI$(A,ADFIL|
000009C0: 45 29 B2 22 3C 22 00 EB 11 58 00 8F 2A 53 55 4D |E)."<"...X..*SUM|
000009D0: 20 55 50 20 41 53 43 49 49 20 43 4F 44 45 53 20 | UP ASCII CODES |
000009E0: 2B 20 53 45 45 20 32 31 33 30 2A 00 06 12 59 00 |+ SEE 2130*...Y.|
000009F0: 41 53 B2 41 53 AA C6 28 46 49 24 28 41 2C 41 44 |AS.AS..(FI$(A,AD|
00000A00: 46 49 4C 45 29 29 00 0E 12 5A 00 82 20 41 00 35 |FILE))...Z.. A.5|
00000A10: 12 5B 00 8F 2A 49 46 20 41 4C 4C 20 46 49 45 4C |.[..*IF ALL FIEL|
00000A20: 44 53 3D 22 3C 22 2C 44 45 4C 45 54 45 20 52 45 |DS="<",DELETE RE|
00000A30: 43 4F 52 44 2A 00 56 12 5C 00 8B 20 41 53 B2 46 |CORD*.V.\.. AS.F|
00000A40: 49 AC 36 30 20 A7 20 41 44 46 49 4C 45 B2 41 44 |I.60 . ADFILE.AD|
00000A50: 46 49 4C 45 AB 31 00 5F 12 5D 00 41 53 B2 30 00 |FILE.1._.].AS.0.|
00000A60: 84 12 5E 00 99 22 11 11 1D 1D 54 4F 20 43 4F 4E |..^.."....TO CON|
00000A70: 54 49 4E 55 45 20 50 52 45 53 53 20 41 4E 59 20 |TINUE PRESS ANY |
00000A80: 4B 45 59 22 00 AA 12 5F 00 99 22 11 1D 1D 53 50 |KEY"..._.."...SP|
00000A90: 41 43 45 20 42 41 52 20 54 4F 20 52 45 54 55 52 |ACE BAR TO RETUR|
00000AA0: 4E 20 54 4F 20 4D 45 4E 55 22 00 C1 12 60 00 A1 |N TO MENU"...`..|
00000AB0: 20 41 51 24 3A 8B 20 41 51 24 B2 22 22 A7 20 39 | AQ$:. AQ$."". 9|
00000AC0: 36 00 D2 12 61 00 8B 20 41 51 24 B2 22 20 22 A7 |6...a.. AQ$." ".|
00000AD0: 20 8E 00 DB 12 62 00 89 20 38 30 00 E1 12 63 00 | ....b.. 80...c.|
00000AE0: 8E 00 F6 12 64 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |....d..*********|
00000AF0: 2A 2A 2A 2A 2A 2A 00 0B 13 65 00 8F 2A 56 49 45 |******...e..*VIE|
00000B00: 57 20 41 20 52 45 43 4F 52 44 2A 00 20 13 66 00 |W A RECORD*. .f.|
00000B10: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00000B20: 00 3A 13 67 00 8F 2A 41 53 4B 20 46 4F 52 20 52 |.:.g..*ASK FOR R|
00000B30: 45 43 4F 52 44 20 4E 4F 2E 2A 00 57 13 68 00 85 |ECORD NO.*.W.h..|
00000B40: 22 93 57 48 49 43 48 20 52 45 43 4F 52 44 20 4E |".WHICH RECORD N|
00000B50: 4F 2E 22 3B 57 52 24 00 72 13 69 00 57 52 B2 C5 |O.";WR$.r.i.WR..|
00000B60: 28 57 52 24 29 3A 8B 20 57 52 B3 31 20 A7 20 31 |(WR$):. WR.1 . 1|
00000B70: 30 34 00 8F 13 6A 00 8B 20 57 52 B2 30 20 B0 20 |04...j.. WR.0 . |
00000B80: 57 52 B1 41 44 46 49 4C 45 20 A7 20 31 31 32 00 |WR.ADFILE . 112.|
00000B90: AB 13 6B 00 8F 2A 50 52 49 4E 54 20 52 45 43 4F |..k..*PRINT RECO|
00000BA0: 52 44 20 44 45 54 41 49 4C 53 2A 00 C9 13 6C 00 |RD DETAILS*...l.|
00000BB0: 99 22 93 1D 1D 1D 1D 1D 1D 52 45 43 4F 52 44 20 |.".......RECORD |
00000BC0: 4E 4F 2E 3A 2D 22 3B 57 52 00 E9 13 6D 00 81 20 |NO.:-";WR...m.. |
00000BD0: 41 B2 31 20 A4 20 46 49 3A 41 54 45 4D 50 24 B2 |A.1 . FI:ATEMP$.|
00000BE0: 46 49 24 28 41 2C 57 52 29 00 06 14 6E 00 8B 20 |FI$(A,WR)...n.. |
00000BF0: 41 54 45 4D 50 24 B2 22 3C 22 20 A7 20 41 54 45 |ATEMP$."<" . ATE|
00000C00: 4D 50 24 B2 22 22 00 3B 14 6F 00 99 22 11 1D 1D |MP$."".;.o.."...|
00000C10: 22 3B 50 24 28 41 29 A3 31 31 29 C7 28 35 38 29 |";P$(A).11).(58)|
00000C20: 3A 99 22 91 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |:.".............|
00000C30: 1D 22 3B 41 54 45 4D 50 24 3A 82 00 63 14 70 00 |.";ATEMP$:..c.p.|
00000C40: 99 22 11 1D 1D 1D 1D 50 52 45 53 53 20 53 50 41 |.".....PRESS SPA|
00000C50: 43 45 20 42 41 52 20 54 4F 20 43 4F 4E 54 49 4E |CE BAR TO CONTIN|
00000C60: 55 45 22 00 AB 14 71 00 99 22 1D 1D 1D 1D 2B 20 |UE"...q.."....+ |
00000C70: 54 4F 20 53 43 52 4F 4C 4C 20 46 4F 52 57 41 52 |TO SCROLL FORWAR|
00000C80: 44 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |D...............|
00000C90: 1D 1D 1D 1D 1D 1D 2D 20 54 4F 20 53 43 52 4F 4C |......- TO SCROL|
00000CA0: 4C 20 42 41 43 4B 57 41 52 44 22 00 E3 14 72 00 |L BACKWARD"...r.|
00000CB0: 99 22 1D 1D 1D 1D 4F 54 48 45 52 57 49 53 45 20 |."....OTHERWISE |
00000CC0: 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F |PRESS ANY KEY TO|
00000CD0: 20 43 4F 4E 54 49 4E 55 45 20 1D 1D 1D 1D 56 49 | CONTINUE ....VI|
00000CE0: 45 57 22 00 FB 14 73 00 A1 20 41 51 24 3A 8B 20 |EW"...s.. AQ$:. |
00000CF0: 41 51 24 B2 22 22 A7 20 31 31 35 00 0C 15 74 00 |AQ$."". 115...t.|
00000D00: 8B 20 41 51 24 B2 22 20 22 A7 20 8E 00 2C 15 75 |. AQ$." ". ..,.u|
00000D10: 00 8B 20 41 51 24 B3 B1 22 2B 22 20 AF 20 41 51 |.. AQ$.."+" . AQ|
00000D20: 24 B3 B1 22 2D 22 20 A7 20 31 30 34 00 50 15 76 |$.."-" . 104.P.v|
00000D30: 00 8B 20 41 51 24 B2 22 2B 22 AF 20 57 52 B3 28 |.. AQ$."+". WR.(|
00000D40: 41 44 46 49 4C 45 29 A7 20 57 52 B2 57 52 AA 31 |ADFILE). WR.WR.1|
00000D50: 00 6E 15 77 00 8B 20 41 51 24 B2 22 2D 22 AF 20 |.n.w.. AQ$."-". |
00000D60: 57 52 B1 31 20 A7 20 57 52 B2 57 52 AB 31 00 8A |WR.1 . WR.WR.1..|
00000D70: 15 78 00 8B 20 57 52 B1 41 44 46 49 4C 45 20 A7 |.x.. WR.ADFILE .|
00000D80: 20 57 52 B2 41 44 46 49 4C 45 00 9F 15 79 00 8B | WR.ADFILE...y..|
00000D90: 20 41 44 46 49 4C 45 B2 30 20 A7 20 31 31 35 00 | ADFILE.0 . 115.|
00000DA0: A9 15 7A 00 89 20 31 30 38 00 AF 15 7B 00 8E 00 |..z.. 108...{...|
00000DB0: C6 15 7C 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..|..***********|
00000DC0: 2A 2A 2A 2A 2A 2A 00 DD 15 7D 00 8F 2A 54 41 50 |******...}..*TAP|
00000DD0: 45 20 4F 50 45 52 41 54 49 4F 4E 53 2A 00 F4 15 |E OPERATIONS*...|
00000DE0: 7E 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |~..*************|
00000DF0: 2A 2A 2A 2A 00 00 16 7F 00 8F 2A 4D 45 4E 55 2A |****......*MENU*|
00000E00: 00 1C 16 80 00 99 22 93 1D 1D 1D 1D 54 41 50 45 |......".....TAPE|
00000E10: 20 4F 50 45 52 41 54 49 4F 4E 53 22 00 3C 16 81 | OPERATIONS".<..|
00000E20: 00 99 22 11 1D 1D 1D 28 31 29 53 41 56 45 2F 52 |.."....(1)SAVE/R|
00000E30: 45 50 4C 41 43 45 20 46 49 4C 45 22 00 54 16 82 |EPLACE FILE".T..|
00000E40: 00 99 22 11 1D 1D 1D 28 32 29 4C 4F 41 44 20 46 |.."....(2)LOAD F|
00000E50: 49 4C 45 22 00 76 16 83 00 99 22 11 1D 1D 1D 28 |ILE".v...."....(|
00000E60: 33 29 52 45 54 55 52 4E 20 54 4F 20 4D 41 49 4E |3)RETURN TO MAIN|
00000E70: 20 4D 45 4E 55 22 00 9C 16 84 00 8B 20 41 44 46 | MENU"...... ADF|
00000E80: 49 4C 45 B1 30 20 A7 99 22 11 1D 1D 1D 44 41 54 |ILE.0 .."....DAT|
00000E90: 41 20 49 4E 20 4D 45 4D 4F 52 59 22 00 C1 16 85 |A IN MEMORY"....|
00000EA0: 00 99 22 11 1D 1D 1D 50 4C 45 41 53 45 20 54 59 |.."....PLEASE TY|
00000EB0: 50 45 20 49 4E 20 41 20 4E 4F 2E 28 31 2D 33 29 |PE IN A NO.(1-3)|
00000EC0: 22 00 EE 16 86 00 A1 20 4D 45 54 24 3A 4D 45 54 |"...... MET$:MET|
00000ED0: B2 C5 28 4D 45 54 24 29 3A 8B 20 4D 45 54 B3 31 |..(MET$):. MET.1|
00000EE0: 20 B0 20 4D 45 54 B1 33 20 A7 20 31 33 34 00 FE | . MET.3 . 134..|
00000EF0: 16 87 00 8B 20 4D 45 54 B2 33 20 A7 20 8E 00 13 |.... MET.3 . ...|
00000F00: 17 88 00 8F 2A 47 45 54 20 46 49 4C 45 20 4E 41 |....*GET FILE NA|
00000F10: 4D 45 2A 00 1D 17 89 00 8D 20 36 30 35 00 31 17 |ME*...... 605.1.|
00000F20: 8A 00 91 20 4D 45 54 20 8D 20 31 36 33 2C 32 30 |... MET . 163,20|
00000F30: 33 00 3B 17 8B 00 89 20 31 32 38 00 52 17 8C 00 |3.;.... 128.R...|
00000F40: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00000F50: 2A 2A 00 69 17 8D 00 8F 2A 44 49 53 4B 20 4F 50 |**.i....*DISK OP|
00000F60: 45 52 41 54 49 4F 4E 53 2A 00 80 17 8E 00 8F 2A |ERATIONS*......*|
00000F70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000F80: 00 8C 17 8F 00 8F 2A 4D 45 4E 55 2A 00 A8 17 90 |......*MENU*....|
00000F90: 00 99 22 93 1D 1D 1D 1D 44 49 53 4B 20 4F 50 45 |..".....DISK OPE|
00000FA0: 52 41 54 49 4F 4E 53 22 00 C9 17 91 00 99 22 11 |RATIONS"......".|
00000FB0: 1D 1D 1D 28 31 29 53 41 56 45 2F 52 45 50 4C 41 |...(1)SAVE/REPLA|
00000FC0: 43 45 20 46 49 4C 45 22 3B 00 DE 17 92 00 99 22 |CE FILE";......"|
00000FD0: 1D 28 32 29 4C 4F 41 44 20 46 49 4C 45 22 00 00 |.(2)LOAD FILE"..|
00000FE0: 18 93 00 99 22 11 1D 1D 1D 28 33 29 52 45 41 44 |...."....(3)READ|
00000FF0: 20 44 49 53 4B 20 44 49 52 45 43 54 4F 52 59 22 | DISK DIRECTORY"|
00001000: 00 22 18 94 00 99 22 11 1D 1D 1D 28 34 29 52 45 |."...."....(4)RE|
00001010: 4E 41 4D 45 20 46 49 4C 45 20 4F 4E 20 44 49 53 |NAME FILE ON DIS|
00001020: 4B 22 00 3E 18 95 00 99 22 11 1D 1D 1D 28 35 29 |K".>...."....(5)|
00001030: 56 41 4C 49 44 41 54 45 20 44 49 53 4B 22 00 60 |VALIDATE DISK".`|
00001040: 18 96 00 99 22 11 1D 1D 1D 28 36 29 44 45 4C 45 |...."....(6)DELE|
00001050: 54 45 20 46 49 4C 45 20 4F 4E 20 44 49 53 4B 22 |TE FILE ON DISK"|
00001060: 00 81 18 97 00 99 22 11 1D 1D 1D 28 37 29 46 4F |......"....(7)FO|
00001070: 52 4D 41 54 2F 52 45 4E 41 4D 45 20 44 49 53 4B |RMAT/RENAME DISK|
00001080: 22 00 A3 18 98 00 99 22 11 1D 1D 1D 28 38 29 52 |"......"....(8)R|
00001090: 45 54 55 52 4E 20 54 4F 20 4D 41 49 4E 20 4D 45 |ETURN TO MAIN ME|
000010A0: 4E 55 22 00 C9 18 99 00 8B 20 41 44 46 49 4C 45 |NU"...... ADFILE|
000010B0: B1 30 20 A7 99 22 11 1D 1D 1D 44 41 54 41 20 49 |.0 .."....DATA I|
000010C0: 4E 20 4D 45 4D 4F 52 59 22 00 EF 18 9A 00 99 22 |N MEMORY"......"|
000010D0: 11 1D 1D 1D 50 4C 45 41 53 45 20 54 59 50 45 20 |....PLEASE TYPE |
000010E0: 49 4E 20 41 20 4E 4F 2E 20 28 31 2D 38 29 22 00 |IN A NO. (1-8)".|
000010F0: 1C 19 9B 00 A1 20 4D 45 44 24 3A 4D 45 44 B2 C5 |..... MED$:MED..|
00001100: 28 4D 45 44 24 29 3A 8B 20 4D 45 44 B3 31 20 B0 |(MED$):. MED.1 .|
00001110: 20 4D 45 44 B1 38 20 A7 20 31 35 35 00 2C 19 9C | MED.8 . 155.,..|
00001120: 00 8B 20 4D 45 44 B2 38 20 A7 20 8E 00 40 19 9D |.. MED.8 . ..@..|
00001130: 00 8B 20 4D 45 44 B3 33 20 A7 20 8D 20 36 30 35 |.. MED.3 . . 605|
00001140: 00 68 19 9E 00 91 20 4D 45 44 20 8D 20 31 37 32 |.h.... MED . 172|
00001150: 2C 32 31 32 2C 32 31 34 2C 33 30 36 2C 33 31 35 |,212,214,306,315|
00001160: 2C 33 32 31 2C 33 32 38 00 72 19 9F 00 89 20 31 |,321,328.r.... 1|
00001170: 34 34 00 8C 19 A0 00 8F 2A 2A 2A 2A 2A 2A 2A 2A |44......********|
00001180: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A6 19 A1 |************....|
00001190: 00 8F 2A 57 52 49 54 45 20 54 4F 20 44 49 53 4B |..*WRITE TO DISK|
000011A0: 2F 54 41 50 45 2A 00 C0 19 A2 00 8F 2A 2A 2A 2A |/TAPE*......****|
000011B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000011C0: 00 D5 19 A3 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |......**********|
000011D0: 2A 2A 2A 2A 2A 00 EA 19 A4 00 8F 2A 57 52 49 54 |*****......*WRIT|
000011E0: 45 20 54 4F 20 54 41 50 45 2A 00 FF 19 A5 00 8F |E TO TAPE*......|
000011F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00001200: 34 1A A6 00 99 22 93 49 4E 53 45 52 54 20 44 41 |4....".INSERT DA|
00001210: 54 41 20 54 41 50 45 11 22 3A 99 22 50 52 45 53 |TA TAPE.":."PRES|
00001220: 53 20 41 20 4B 45 59 20 57 48 45 4E 20 52 45 41 |S A KEY WHEN REA|
00001230: 44 59 11 22 00 50 1A A7 00 99 22 53 50 41 43 45 |DY.".P...."SPACE|
00001240: 20 42 41 52 20 54 4F 20 41 42 4F 52 54 11 11 22 | BAR TO ABORT.."|
00001250: 00 67 1A A8 00 A1 20 41 51 24 3A 8B 41 51 24 B2 |.g.... AQ$:.AQ$.|
00001260: 22 22 A7 20 31 36 38 00 79 1A A9 00 8B 20 41 51 |"". 168.y.... AQ|
00001270: 24 B2 22 20 22 20 A7 20 8E 00 8B 1A AA 00 9F 20 |$." " . ....... |
00001280: 31 2C 31 2C 31 2C 46 49 4C 45 24 00 97 1A AB 00 |1,1,1,FILE$.....|
00001290: 89 20 36 35 35 33 35 00 AC 1A AC 00 8F 2A 2A 2A |. 65535......***|
000012A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C1 1A AD |************....|
000012B0: 00 8F 2A 57 52 49 54 45 20 54 4F 20 44 49 53 4B |..*WRITE TO DISK|
000012C0: 2A 00 D6 1A AE 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |*......*********|
000012D0: 2A 2A 2A 2A 2A 2A 00 FA 1A AF 00 99 22 93 49 4E |******......".IN|
000012E0: 53 45 52 54 20 44 41 54 41 20 44 49 53 4B 20 49 |SERT DATA DISK I|
000012F0: 4E 54 4F 20 44 52 49 56 45 22 00 1B 1B B0 00 99 |NTO DRIVE"......|
00001300: 22 11 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 |".PRESS ANY KEY |
00001310: 57 48 45 4E 20 52 45 41 44 59 22 00 36 1B B1 00 |WHEN READY".6...|
00001320: 99 22 11 53 50 41 43 45 20 42 41 52 20 54 4F 20 |.".SPACE BAR TO |
00001330: 41 42 4F 52 54 22 00 4E 1B B2 00 A1 20 41 51 24 |ABORT".N.... AQ$|
00001340: 3A 8B 20 41 51 24 B2 22 22 A7 20 31 37 38 00 5F |:. AQ$."". 178._|
00001350: 1B B3 00 8B 20 41 51 24 B2 22 20 22 A7 20 8E 00 |.... AQ$." ". ..|
00001360: 7E 1B B4 00 9F 20 31 2C 38 2C 32 2C 22 40 30 3A |~.... 1,8,2,"@0:|
00001370: 22 AA 46 49 4C 45 24 AA 22 2C 53 2C 57 22 00 99 |".FILE$.",S,W"..|
00001380: 1B B5 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |....************|
00001390: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B4 1B B6 00 8F 2A |*********......*|
000013A0: 57 52 49 54 45 20 43 4F 4D 4D 4F 4E 20 54 4F 20 |WRITE COMMON TO |
000013B0: 44 26 54 2A 00 CF 1B B7 00 8F 2A 2A 2A 2A 2A 2A |D&T*......******|
000013C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000013D0: ED 1B B8 00 8F 2A 57 52 49 54 45 20 4E 4F 2E 20 |.....*WRITE NO. |
000013E0: 4F 46 20 46 49 45 4C 44 53 2C 46 49 2A 00 FE 1B |OF FIELDS,FI*...|
000013F0: B9 00 98 31 2C 46 49 3B C7 28 31 33 29 3B 00 12 |...1,FI;.(13);..|
00001400: 1C BA 00 8F 2A 57 52 49 54 45 20 46 49 45 4C 44 |....*WRITE FIELD|
00001410: 53 2A 00 2E 1C BB 00 81 20 41 B2 31 20 A4 20 46 |S*...... A.1 . F|
00001420: 49 3A 41 54 45 4D 50 24 B2 50 24 28 41 29 00 4B |I:ATEMP$.P$(A).K|
00001430: 1C BC 00 8B 20 41 54 45 4D 50 24 B2 22 22 20 A7 |.... ATEMP$."" .|
00001440: 20 41 54 45 4D 50 24 B2 22 3C 22 00 60 1C BD 00 | ATEMP$."<".`...|
00001450: 98 31 2C 41 54 45 4D 50 24 3B C7 28 31 33 29 3B |.1,ATEMP$;.(13);|
00001460: 00 68 1C BE 00 82 20 41 00 8C 1C BF 00 8F 2A 57 |.h.... A......*W|
00001470: 52 49 54 45 20 4E 4F 2E 20 4F 46 20 52 45 43 4F |RITE NO. OF RECO|
00001480: 52 44 53 20 49 4E 20 46 49 4C 45 2A 00 A1 1C C0 |RDS IN FILE*....|
00001490: 00 98 31 2C 41 44 46 49 4C 45 3B C7 28 31 33 29 |..1,ADFILE;.(13)|
000014A0: 3B 00 B3 1C C1 00 8F 2A 57 52 49 54 45 20 44 41 |;......*WRITE DA|
000014B0: 54 41 2A 00 C6 1C C2 00 81 20 42 B2 31 20 A4 20 |TA*...... B.1 . |
000014C0: 41 44 46 49 4C 45 00 D5 1C C3 00 81 20 41 B2 31 |ADFILE...... A.1|
000014D0: 20 A4 20 46 49 00 EC 1C C4 00 98 31 2C 46 49 24 | . FI......1,FI$|
000014E0: 28 41 2C 42 29 3B C7 28 31 33 29 3B 00 F5 1C C5 |(A,B);.(13);....|
000014F0: 00 82 41 2C 42 00 FE 1C C6 00 A0 31 3A 8E 00 19 |..A,B......1:...|
00001500: 1D C7 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |....************|
00001510: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 34 1D C8 00 8F 2A |*********.4....*|
00001520: 52 45 41 44 20 46 52 4F 4D 20 44 49 53 4B 2F 54 |READ FROM DISK/T|
00001530: 41 50 45 2A 00 4F 1D C9 00 8F 2A 2A 2A 2A 2A 2A |APE*.O....******|
00001540: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00001550: 65 1D CA 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |e....***********|
00001560: 2A 2A 2A 2A 2A 00 7B 1D CB 00 8F 2A 52 45 41 44 |*****.{....*READ|
00001570: 20 46 52 4F 4D 20 54 41 50 45 2A 00 91 1D CC 00 | FROM TAPE*.....|
00001580: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00001590: 2A 00 C6 1D CD 00 99 22 93 49 4E 53 45 52 54 20 |*......".INSERT |
000015A0: 44 41 54 41 20 54 41 50 45 11 22 3A 99 22 50 52 |DATA TAPE.":."PR|
000015B0: 45 53 53 20 41 20 4B 45 59 20 57 48 45 4E 20 52 |ESS A KEY WHEN R|
000015C0: 45 41 44 59 11 22 00 E2 1D CE 00 99 22 53 50 41 |EADY."......"SPA|
000015D0: 43 45 20 42 41 52 20 54 4F 20 41 42 4F 52 54 11 |CE BAR TO ABORT.|
000015E0: 11 22 00 F9 1D CF 00 A1 20 41 51 24 3A 8B 41 51 |."...... AQ$:.AQ|
000015F0: 24 B2 22 22 A7 20 32 30 37 00 0B 1E D0 00 8B 20 |$."". 207...... |
00001600: 41 51 24 B2 22 20 22 20 A7 20 8E 00 1D 1E D1 00 |AQ$." " . ......|
00001610: 9F 20 31 2C 31 2C 30 2C 46 49 4C 45 24 00 27 1E |. 1,1,0,FILE$.'.|
00001620: D2 00 89 20 32 32 36 00 3D 1E D3 00 8F 2A 2A 2A |... 226.=....***|
00001630: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 53 1E |*************.S.|
00001640: D4 00 8F 2A 52 45 41 44 20 46 52 4F 4D 20 44 49 |...*READ FROM DI|
00001650: 53 4B 2A 00 69 1E D5 00 8F 2A 2A 2A 2A 2A 2A 2A |SK*.i....*******|
00001660: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 8D 1E D6 00 99 22 |*********......"|
00001670: 93 49 4E 53 45 52 54 20 44 41 54 41 20 44 49 53 |.INSERT DATA DIS|
00001680: 4B 20 49 4E 54 4F 20 44 52 49 56 45 22 00 AE 1E |K INTO DRIVE"...|
00001690: D7 00 99 22 11 50 52 45 53 53 20 41 4E 59 20 4B |...".PRESS ANY K|
000016A0: 45 59 20 57 48 45 4E 20 52 45 41 44 59 22 00 C9 |EY WHEN READY"..|
000016B0: 1E D8 00 99 22 11 53 50 41 43 45 20 42 41 52 20 |....".SPACE BAR |
000016C0: 54 4F 20 41 42 4F 52 54 22 00 E1 1E D9 00 A1 20 |TO ABORT"...... |
000016D0: 41 51 24 3A 8B 20 41 51 24 B2 22 22 A7 20 32 31 |AQ$:. AQ$."". 21|
000016E0: 37 00 F2 1E DA 00 8B 20 41 51 24 B2 22 20 22 A7 |7...... AQ$." ".|
000016F0: 20 8E 00 04 1F DB 00 8B 20 4D 45 44 B2 33 20 A7 | ....... MED.3 .|
00001700: 20 32 35 31 00 16 1F DC 00 8B 20 4D 45 44 B2 34 | 251...... MED.4|
00001710: 20 A7 20 33 31 32 00 28 1F DD 00 8B 20 4D 45 44 | . 312.(.... MED|
00001720: B2 35 20 A7 20 33 31 37 00 3A 1F DE 00 8B 20 4D |.5 . 317.:.... M|
00001730: 45 44 B2 36 20 A7 20 33 32 35 00 4C 1F DF 00 8B |ED.6 . 325.L....|
00001740: 20 4D 45 44 B2 37 20 A7 20 33 34 31 00 6A 1F E0 | MED.7 . 341.j..|
00001750: 00 9F 20 31 2C 38 2C 32 2C 22 30 3A 22 AA 46 49 |.. 1,8,2,"0:".FI|
00001760: 4C 45 24 AA 22 2C 53 2C 52 22 00 84 1F E1 00 8F |LE$.",S,R"......|
00001770: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001780: 2A 2A 2A 2A 00 9E 1F E2 00 8F 2A 52 45 41 44 20 |****......*READ |
00001790: 43 4F 4D 4D 4F 4E 20 54 4F 20 44 26 54 2A 00 B8 |COMMON TO D&T*..|
000017A0: 1F E3 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |....************|
000017B0: 2A 2A 2A 2A 2A 2A 2A 2A 00 C5 1F E4 00 41 B2 30 |********.....A.0|
000017C0: 3A 46 49 B2 30 00 DF 1F E5 00 8F 2A 52 45 41 44 |:FI.0......*READ|
000017D0: 20 4E 4F 2E 20 4F 46 20 46 49 45 4C 44 53 2A 00 | NO. OF FIELDS*.|
000017E0: E9 1F E6 00 84 31 2C 46 49 00 FF 1F E7 00 8F 2A |.....1,FI......*|
000017F0: 52 45 41 44 20 49 4E 20 46 49 45 4C 44 53 2A 00 |READ IN FIELDS*.|
00001800: 09 20 E8 00 41 B2 41 AA 31 00 2D 20 E9 00 84 31 |. ..A.A.1.- ...1|
00001810: 2C 50 24 28 41 29 3A 8B 20 50 24 28 41 29 B2 22 |,P$(A):. P$(A)."|
00001820: 3C 22 20 A7 20 50 24 28 41 29 B2 22 22 00 41 20 |<" . P$(A)."".A |
00001830: EA 00 8B 20 53 54 B3 B1 30 20 A7 20 A0 20 31 3A |... ST..0 . . 1:|
00001840: 8E 00 52 20 EB 00 8B 20 41 B3 46 49 20 A7 20 32 |..R ... A.FI . 2|
00001850: 33 32 00 70 20 EC 00 8F 2A 52 45 41 44 20 49 4E |32.p ...*READ IN|
00001860: 20 4E 4F 2E 20 4F 46 20 52 45 43 4F 52 44 53 2A | NO. OF RECORDS*|
00001870: 00 7E 20 ED 00 84 31 2C 41 44 46 49 4C 45 00 92 |.~ ...1,ADFILE..|
00001880: 20 EE 00 8F 2A 52 45 41 44 20 49 4E 20 44 41 54 | ...*READ IN DAT|
00001890: 41 2A 00 9A 20 EF 00 42 B2 30 00 A4 20 F0 00 42 |A*.. ..B.0.. ..B|
000018A0: B2 42 AA 31 00 AC 20 F1 00 41 B2 30 00 B6 20 F2 |.B.1.. ..A.0.. .|
000018B0: 00 41 B2 41 AA 31 00 C6 20 F3 00 84 31 2C 46 49 |.A.A.1.. ...1,FI|
000018C0: 24 28 41 2C 42 29 00 D9 20 F4 00 8B 20 53 54 B3 |$(A,B).. ... ST.|
000018D0: B1 30 20 A7 20 A0 31 3A 8E 00 EA 20 F5 00 8B 20 |.0 . .1:... ... |
000018E0: 41 B3 46 49 20 A7 20 32 34 32 00 FF 20 F6 00 8B |A.FI . 242.. ...|
000018F0: 20 42 B3 41 44 46 49 4C 45 20 A7 20 32 34 30 00 | B.ADFILE . 240.|
00001900: 08 21 F7 00 A0 31 3A 8E 00 1F 21 F8 00 8F 2A 2A |.!...1:...!...**|
00001910: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00001920: 36 21 F9 00 8F 2A 44 49 53 4B 20 44 49 52 20 52 |6!...*DISK DIR R|
00001930: 45 41 44 45 52 2A 00 4D 21 FA 00 8F 2A 2A 2A 2A |EADER*.M!...****|
00001940: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 61 21 |*************.a!|
00001950: FB 00 9F 20 31 2C 38 2C 32 2C 22 24 2C 53 2C 52 |... 1,8,2,"$,S,R|
00001960: 22 00 70 21 FC 00 81 20 4C B2 31 20 A4 20 37 31 |".p!... L.1 . 71|
00001970: 00 7E 21 FD 00 A1 23 31 2C 41 24 2C 41 24 00 A3 |.~!...#1,A$,A$..|
00001980: 21 FE 00 8B 20 53 54 B3 B1 30 20 A7 20 A0 31 3A |!... ST..0 . .1:|
00001990: 99 22 44 49 53 4B 20 45 52 52 4F 52 22 3A 89 20 |."DISK ERROR":. |
000019A0: 32 39 32 00 AB 21 FF 00 82 20 4C 00 DF 21 00 01 |292..!... L..!..|
000019B0: 54 24 28 31 29 B2 22 53 45 51 22 3A 54 24 28 32 |T$(1)."SEQ":T$(2|
000019C0: 29 B2 22 50 52 47 22 3A 54 24 28 33 29 B2 22 55 |)."PRG":T$(3)."U|
000019D0: 53 52 22 3A 54 24 28 34 29 B2 22 52 45 4C 22 00 |SR":T$(4)."REL".|
000019E0: F4 21 01 01 8F 2A 47 45 54 20 44 49 53 4B 20 4E |.!...*GET DISK N|
000019F0: 41 4D 45 2A 00 03 22 02 01 49 B2 31 37 3A 8D 20 |AME*.."..I.17:. |
00001A00: 32 39 38 00 14 22 03 01 44 4E 41 4D 45 24 B2 54 |298.."..DNAME$.T|
00001A10: 45 4D 50 24 00 27 22 04 01 8F 2A 47 45 54 20 44 |EMP$.'"...*GET D|
00001A20: 49 53 4B 20 49 44 2A 00 35 22 05 01 49 B2 32 3A |ISK ID*.5"..I.2:|
00001A30: 8D 20 32 39 38 00 44 22 06 01 44 49 44 24 B2 54 |. 298.D"..DID$.T|
00001A40: 45 4D 50 24 00 59 22 07 01 8F 2A 47 45 54 20 4F |EMP$.Y"...*GET O|
00001A50: 50 20 53 59 53 54 45 4D 2A 00 67 22 08 01 49 B2 |P SYSTEM*.g"..I.|
00001A60: 32 3A 8D 20 32 39 38 00 75 22 09 01 4F 53 24 B2 |2:. 298.u"..OS$.|
00001A70: 54 45 4D 50 24 00 97 22 0A 01 8F 2A 47 45 54 20 |TEMP$.."...*GET |
00001A80: 52 45 53 54 20 4F 46 20 42 4C 4F 43 4B 2C 4E 4F |REST OF BLOCK,NO|
00001A90: 54 20 55 53 45 44 2A 00 B3 22 0B 01 81 20 4C B2 |T USED*.."... L.|
00001AA0: 31 20 A4 20 34 34 3A A1 23 31 2C 41 24 2C 41 24 |1 . 44:.#1,A$,A$|
00001AB0: 3A 82 4C 00 DF 22 0C 01 99 22 93 44 49 53 4B 20 |:.L.."...".DISK |
00001AC0: 4E 41 4D 45 3A 22 44 4E 41 4D 45 24 2C 22 49 44 |NAME:"DNAME$,"ID|
00001AD0: 3A 22 44 49 44 24 2C 22 4F 53 3A 22 4F 53 24 00 |:"DID$,"OS:"OS$.|
00001AE0: E8 22 0D 01 4C 54 B2 30 00 03 23 0E 01 8F 2A 47 |."..LT.0..#...*G|
00001AF0: 45 54 20 44 45 54 41 49 4C 53 20 4F 46 20 46 49 |ET DETAILS OF FI|
00001B00: 4C 45 2A 00 1D 23 0F 01 8F 2A 47 45 54 20 46 49 |LE*..#...*GET FI|
00001B10: 4C 45 20 54 59 50 45 20 2C 54 59 24 2A 00 39 23 |LE TYPE ,TY$*.9#|
00001B20: 10 01 81 20 41 B2 31 20 A4 20 38 3A A1 23 31 2C |... A.1 . 8:.#1,|
00001B30: 54 59 24 2C 41 24 2C 41 24 00 51 23 11 01 8B 20 |TY$,A$,A$.Q#... |
00001B40: 53 54 B3 B1 30 20 A7 20 A0 20 31 3A 89 20 32 39 |ST..0 . . 1:. 29|
00001B50: 31 00 64 23 12 01 8B 20 54 59 24 B3 B1 22 22 A7 |1.d#... TY$.."".|
00001B60: 20 32 37 37 00 7E 23 13 01 81 20 4C B2 31 20 A4 | 277.~#... L.1 .|
00001B70: 20 32 37 3A A1 23 31 2C 41 24 3A 82 20 4C 00 88 | 27:.#1,A$:. L..|
00001B80: 23 14 01 89 20 32 38 37 00 9D 23 15 01 8F 2A 47 |#... 287..#...*G|
00001B90: 45 54 20 46 49 4C 45 20 4E 41 4D 45 2A 00 AC 23 |ET FILE NAME*..#|
00001BA0: 16 01 49 B2 31 35 3A 8D 20 32 39 38 00 B9 23 17 |..I.15:. 298..#.|
00001BB0: 01 4E 24 B2 54 45 4D 50 24 00 D0 23 18 01 8F 2A |.N$.TEMP$..#...*|
00001BC0: 47 45 54 20 46 49 4C 45 20 4C 45 4E 47 54 48 2A |GET FILE LENGTH*|
00001BD0: 00 E7 23 19 01 81 20 4C B2 31 20 A4 20 39 3A A1 |..#... L.1 . 9:.|
00001BE0: 23 31 2C 41 24 3A 82 00 F5 23 1A 01 A1 23 31 2C |#1,A$:...#...#1,|
00001BF0: 4C 24 2C 48 24 00 21 24 1B 01 4C B2 C6 28 4C 24 |L$,H$.!$..L..(L$|
00001C00: AA C7 28 30 29 29 AA 32 35 36 AC C6 28 48 24 AA |..(0)).256..(H$.|
00001C10: C7 28 30 29 29 3A 8B 20 4C B2 30 20 A7 20 32 38 |.(0)):. L.0 . 28|
00001C20: 37 00 2D 24 1C 01 4C 54 B2 4C 54 AA 4C 00 42 24 |7.-$..LT.LT.L.B$|
00001C30: 1D 01 8F 2A 50 52 49 4E 54 20 44 45 54 41 49 4C |...*PRINT DETAIL|
00001C40: 53 2A 00 5F 24 1E 01 99 20 4E 24 A3 32 30 29 54 |S*._$... N$.20)T|
00001C50: 24 28 C6 28 54 59 24 29 AB 31 32 38 29 2C 4C 00 |$(.(TY$).128),L.|
00001C60: 75 24 1F 01 8B 20 41 B3 38 20 A7 20 A1 23 31 2C |u$... A.8 . .#1,|
00001C70: 41 24 2C 41 24 00 7D 24 20 01 82 20 41 00 96 24 |A$,A$.}$ .. A..$|
00001C80: 21 01 8F 2A 43 4F 4E 54 49 4E 55 45 20 57 49 54 |!..*CONTINUE WIT|
00001C90: 48 20 44 49 52 2A 00 A0 24 22 01 89 20 32 37 30 |H DIR*..$".. 270|
00001CA0: 00 C3 24 23 01 99 22 11 4E 4F 2E 20 4F 46 20 42 |..$#..".NO. OF B|
00001CB0: 4C 4F 43 4B 53 20 46 52 45 45 3A 22 3B 36 36 34 |LOCKS FREE:";664|
00001CC0: AB 4C 54 00 F1 24 24 01 99 22 11 11 54 4F 20 52 |.LT..$$.."..TO R|
00001CD0: 45 41 44 20 44 49 53 4B 20 44 49 52 20 41 47 41 |EAD DISK DIR AGA|
00001CE0: 49 4E 20 50 52 45 53 53 20 41 4E 59 20 4B 45 59 |IN PRESS ANY KEY|
00001CF0: 22 00 15 25 25 01 99 22 11 53 50 41 43 45 20 42 |"..%%..".SPACE B|
00001D00: 41 52 20 54 4F 20 52 45 54 55 52 4E 20 54 4F 20 |AR TO RETURN TO |
00001D10: 4D 45 4E 55 22 00 2E 25 26 01 A1 20 41 51 24 3A |MENU"..%&.. AQ$:|
00001D20: 8B 20 41 51 24 B2 22 22 20 A7 20 32 39 34 00 40 |. AQ$."" . 294.@|
00001D30: 25 27 01 8B 20 41 51 24 B2 22 20 22 20 A7 20 8E |%'.. AQ$." " . .|
00001D40: 00 4A 25 28 01 89 20 32 35 31 00 64 25 29 01 8F |.J%(.. 251.d%)..|
00001D50: 2A 53 54 52 49 4E 47 20 43 4F 4E 53 54 52 55 43 |*STRING CONSTRUC|
00001D60: 54 4F 52 2A 00 71 25 2A 01 54 45 4D 50 24 B2 22 |TOR*.q%*.TEMP$."|
00001D70: 22 00 7F 25 2B 01 81 20 42 B2 30 20 A4 20 49 00 |"..%+.. B.0 . I.|
00001D80: A7 25 2C 01 A1 23 31 2C 42 24 3A 8B 20 42 24 B3 |.%,..#1,B$:. B$.|
00001D90: B1 C7 28 31 36 30 29 A7 20 54 45 4D 50 24 B2 54 |..(160). TEMP$.T|
00001DA0: 45 4D 50 24 AA 42 24 00 AF 25 2D 01 82 20 42 00 |EMP$.B$..%-.. B.|
00001DB0: B5 25 2E 01 8E 00 C5 25 2F 01 8F 2A 2A 2A 2A 2A |.%.....%/..*****|
00001DC0: 2A 2A 2A 2A 2A 00 D5 25 30 01 8F 2A 44 49 53 4B |*****..%0..*DISK|
00001DD0: 20 43 4D 44 2A 00 E5 25 31 01 8F 2A 2A 2A 2A 2A | CMD*..%1..*****|
00001DE0: 2A 2A 2A 2A 2A 00 00 26 32 01 8F 2A 52 45 4E 41 |*****..&2..*RENA|
00001DF0: 4D 45 20 46 49 4C 45 20 4F 4E 20 44 49 53 4B 2A |ME FILE ON DISK*|
00001E00: 00 1E 26 33 01 99 22 93 52 45 4E 41 4D 49 4E 47 |..&3..".RENAMING|
00001E10: 20 46 49 4C 45 20 4F 4E 20 44 49 53 4B 22 00 45 | FILE ON DISK".E|
00001E20: 26 34 01 85 22 11 50 4C 45 41 53 45 20 54 59 50 |&4..".PLEASE TYP|
00001E30: 45 20 49 4E 20 4F 4C 44 20 4E 41 4D 45 22 3B 4F |E IN OLD NAME";O|
00001E40: 4C 4E 41 4D 24 00 5D 26 35 01 85 22 11 4E 45 57 |LNAM$.]&5..".NEW|
00001E50: 20 4E 41 4D 45 22 3B 4E 45 4E 41 4D 24 00 90 26 | NAME";NENAM$..&|
00001E60: 36 01 41 B2 C3 28 4E 45 4E 41 4D 24 29 3A 8B 20 |6.A..(NENAM$):. |
00001E70: 41 B1 31 36 20 A7 20 99 22 11 4E 41 4D 45 20 54 |A.16 . .".NAME T|
00001E80: 4F 4F 20 4C 4F 4E 47 21 21 22 3A 89 20 33 30 39 |OO LONG!!":. 309|
00001E90: 00 9A 26 37 01 89 20 32 31 34 00 C4 26 38 01 9F |..&7.. 214..&8..|
00001EA0: 20 31 35 2C 38 2C 31 35 3A 98 31 35 2C 22 52 30 | 15,8,15:.15,"R0|
00001EB0: 3A 22 AA 4E 45 4E 41 4D 24 AA 22 3D 22 AA 4F 4C |:".NENAM$."=".OL|
00001EC0: 4E 41 4D 24 00 CD 26 39 01 A0 20 31 35 00 D3 26 |NAM$..&9.. 15..&|
00001ED0: 3A 01 8E 00 E8 26 3B 01 8F 2A 56 41 4C 49 44 41 |:....&;..*VALIDA|
00001EE0: 54 45 20 44 49 53 4B 2A 00 F2 26 3C 01 89 20 32 |TE DISK*..&<.. 2|
00001EF0: 31 34 00 0A 27 3D 01 99 22 93 56 41 4C 49 44 41 |14..'=..".VALIDA|
00001F00: 54 49 4E 47 20 44 49 53 4B 22 00 20 27 3E 01 9F |TING DISK". '>..|
00001F10: 20 31 35 2C 38 2C 31 35 3A 98 31 35 2C 22 56 22 | 15,8,15:.15,"V"|
00001F20: 00 29 27 3F 01 A0 20 31 35 00 2F 27 40 01 8E 00 |.)'?.. 15./'@...|
00001F30: 4A 27 41 01 8F 2A 44 45 4C 45 54 45 20 46 49 4C |J'A..*DELETE FIL|
00001F40: 45 20 4F 4E 20 44 49 53 4B 2A 00 62 27 42 01 99 |E ON DISK*.b'B..|
00001F50: 22 93 44 45 4C 45 54 49 4E 47 20 41 20 46 49 4C |".DELETING A FIL|
00001F60: 45 22 00 7E 27 43 01 85 22 11 4E 41 4D 45 20 4F |E".~'C..".NAME O|
00001F70: 46 20 46 49 4C 45 22 3B 44 46 49 4C 45 24 00 88 |F FILE";DFILE$..|
00001F80: 27 44 01 89 20 32 31 34 00 A7 27 45 01 9F 20 31 |'D.. 214..'E.. 1|
00001F90: 35 2C 38 2C 31 35 3A 98 31 35 2C 22 53 30 3A 22 |5,8,15:.15,"S0:"|
00001FA0: AA 44 46 49 4C 45 24 00 B0 27 46 01 A0 20 31 35 |.DFILE$..'F.. 15|
00001FB0: 00 B6 27 47 01 8E 00 D0 27 48 01 8F 2A 46 4F 52 |..'G....'H..*FOR|
00001FC0: 4D 41 54 2F 52 45 4E 41 4D 45 20 44 49 53 4B 2A |MAT/RENAME DISK*|
00001FD0: 00 FC 27 49 01 99 22 93 46 4F 52 4D 41 54 54 49 |..'I..".FORMATTI|
00001FE0: 4E 47 28 31 29 20 4F 52 20 52 45 4E 41 4D 49 4E |NG(1) OR RENAMIN|
00001FF0: 47 28 32 29 20 44 49 53 4B 20 3F 22 00 39 28 4A |G(2) DISK ?".9(J|
00002000: 01 99 22 11 57 41 52 4E 49 4E 47 2D 41 42 4F 56 |..".WARNING-ABOV|
00002010: 45 20 43 4F 4D 4D 41 4E 44 53 20 45 52 41 53 45 |E COMMANDS ERASE|
00002020: 53 20 46 49 4C 45 53 20 4F 4E 20 20 20 20 20 20 |S FILES ON |
00002030: 20 20 20 20 44 49 53 4B 22 00 4F 28 4B 01 A1 20 | DISK".O(K.. |
00002040: 51 24 3A 8B 20 51 24 B2 22 22 A7 20 33 33 31 00 |Q$:. Q$."". 331.|
00002050: 6D 28 4C 01 51 B2 C5 28 51 24 29 3A 8B 20 51 B3 |m(L.Q..(Q$):. Q.|
00002060: 31 20 B0 20 51 B1 32 20 A7 20 33 33 31 00 88 28 |1 . Q.2 . 331..(|
00002070: 4D 01 85 22 11 4E 41 4D 45 20 4F 46 20 44 49 53 |M..".NAME OF DIS|
00002080: 4B 22 3B 44 4E 41 4D 24 00 BE 28 4E 01 44 4E 4C |K";DNAM$..(N.DNL|
00002090: B2 C3 28 44 4E 41 4D 24 29 3A 8B 20 44 4E 4C B1 |..(DNAM$):. DNL.|
000020A0: 31 36 20 A7 20 99 22 11 4E 41 4D 45 20 54 4F 4F |16 . .".NAME TOO|
000020B0: 20 4C 4F 4E 47 21 21 22 3A 89 20 33 33 33 00 DC | LONG!!":. 333..|
000020C0: 28 4F 01 8B 20 44 4E 4C B3 31 20 A7 20 99 22 11 |(O.. DNL.1 . .".|
000020D0: 4E 41 4D 45 3F 21 22 3A 89 33 33 33 00 EC 28 50 |NAME?!":.333..(P|
000020E0: 01 8B 20 51 B2 32 20 A7 20 33 34 30 00 04 29 51 |.. Q.2 . 340..)Q|
000020F0: 01 85 22 11 49 44 20 4F 46 20 44 49 53 4B 22 3B |..".ID OF DISK";|
00002100: 44 49 44 24 00 37 29 52 01 44 49 44 4C B2 C3 28 |DID$.7)R.DIDL..(|
00002110: 44 49 44 24 29 3A 8B 20 44 49 44 4C B1 32 20 A7 |DID$):. DIDL.2 .|
00002120: 20 99 22 11 49 44 20 54 4F 4F 20 4C 4F 4E 47 21 | .".ID TOO LONG!|
00002130: 21 22 3A 89 33 33 37 00 54 29 53 01 8B 20 44 49 |!":.337.T)S.. DI|
00002140: 44 4C B3 31 20 A7 20 99 22 11 49 44 3F 21 22 3A |DL.1 . .".ID?!":|
00002150: 89 33 33 37 00 5E 29 54 01 89 20 32 31 34 00 6C |.337.^)T.. 214.l|
00002160: 29 55 01 9F 20 31 35 2C 38 2C 31 35 00 7C 29 56 |)U.. 15,8,15.|)V|
00002170: 01 8B 20 51 B2 32 20 A7 20 33 34 35 00 99 29 57 |.. Q.2 . 345..)W|
00002180: 01 98 31 35 2C 22 4E 30 3A 22 AA 44 4E 41 4D 24 |..15,"N0:".DNAM$|
00002190: AA 22 2C 22 AA 44 49 44 24 00 A4 29 58 01 A0 20 |.",".DID$..)X.. |
000021A0: 31 35 3A 8E 00 B8 29 59 01 98 31 35 2C 22 4E 30 |15:...)Y..15,"N0|
000021B0: 3A 22 AA 44 4E 41 4D 24 00 C3 29 5A 01 A0 20 31 |:".DNAM$..)Z.. 1|
000021C0: 35 3A 8E 00 DD 29 5B 01 8F 2A 2A 2A 2A 2A 2A 2A |5:...)[..*******|
000021D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F7 29 |*************..)|
000021E0: 5C 01 8F 2A 50 52 49 4E 54 20 52 45 43 4F 52 44 |\..*PRINT RECORD|
000021F0: 2F 4C 41 42 45 4C 2A 00 11 2A 5D 01 8F 2A 2A 2A |/LABEL*..*]..***|
00002200: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002210: 2A 00 41 2A 5E 01 8B 20 46 49 B2 30 20 A7 20 37 |*.A*^.. FI.0 . 7|
00002220: 37 3A 8F 20 49 46 20 4E 4F 20 46 49 4C 45 53 20 |7:. IF NO FILES |
00002230: 48 41 56 45 20 42 45 45 4E 20 43 52 45 41 54 45 |HAVE BEEN CREATE|
00002240: 44 00 4D 2A 5F 01 8F 2A 4D 45 4E 55 2A 00 68 2A |D.M*_..*MENU*.h*|
00002250: 60 01 99 22 93 1D 1D 1D 1D 50 52 49 4E 54 45 52 |`..".....PRINTER|
00002260: 20 4F 55 54 50 55 54 22 00 8D 2A 61 01 99 22 11 | OUTPUT"..*a..".|
00002270: 1D 1D 1D 28 31 29 50 52 49 4E 54 20 52 45 43 4F |...(1)PRINT RECO|
00002280: 52 44 20 53 45 4C 45 43 54 49 56 45 22 00 AD 2A |RD SELECTIVE"..*|
00002290: 62 01 99 22 11 1D 1D 1D 28 32 29 50 52 49 4E 54 |b.."....(2)PRINT|
000022A0: 20 41 4C 4C 20 52 45 43 4F 52 44 53 22 00 D1 2A | ALL RECORDS"..*|
000022B0: 63 01 99 22 11 1D 1D 1D 28 33 29 50 52 49 4E 54 |c.."....(3)PRINT|
000022C0: 20 4C 41 42 45 4C 20 53 45 4C 45 43 54 49 56 45 | LABEL SELECTIVE|
000022D0: 22 00 F0 2A 64 01 99 22 11 1D 1D 1D 28 34 29 50 |"..*d.."....(4)P|
000022E0: 52 49 4E 54 20 41 4C 4C 20 4C 41 42 45 4C 53 22 |RINT ALL LABELS"|
000022F0: 00 12 2B 65 01 99 22 11 1D 1D 1D 28 35 29 52 45 |..+e.."....(5)RE|
00002300: 54 55 52 4E 20 54 4F 20 4D 41 49 4E 20 4D 45 4E |TURN TO MAIN MEN|
00002310: 55 22 00 36 2B 66 01 99 22 11 11 50 4C 45 41 53 |U".6+f.."..PLEAS|
00002320: 45 20 54 59 50 45 20 49 4E 20 41 20 4E 4F 2E 20 |E TYPE IN A NO. |
00002330: 28 31 2D 35 29 22 00 61 2B 67 01 99 22 11 2A 20 |(1-5)".a+g..".* |
00002340: 50 4C 45 41 53 45 20 45 4E 53 55 52 45 20 54 48 |PLEASE ENSURE TH|
00002350: 41 54 20 50 52 49 4E 54 45 52 20 49 53 20 4F 4E |AT PRINTER IS ON|
00002360: 22 00 87 2B 68 01 99 22 1D 1D 41 4E 44 20 54 48 |"..+h.."..AND TH|
00002370: 41 54 20 50 41 50 45 52 20 49 53 20 49 4E 20 50 |AT PAPER IS IN P|
00002380: 52 49 4E 54 45 52 22 00 B4 2B 69 01 A1 20 4D 45 |RINTER"..+i.. ME|
00002390: 50 24 3A 4D 45 50 B2 C5 28 4D 45 50 24 29 3A 8B |P$:MEP..(MEP$):.|
000023A0: 20 4D 45 50 B3 31 20 B0 20 4D 45 50 B1 35 20 A7 | MEP.1 . MEP.5 .|
000023B0: 20 33 36 31 00 C4 2B 6A 01 8B 20 4D 45 50 B2 35 | 361..+j.. MEP.5|
000023C0: 20 A7 20 8E 00 E0 2B 6B 01 91 20 4D 45 50 20 8D | . ...+k.. MEP .|
000023D0: 20 33 36 36 2C 33 37 36 2C 33 38 35 2C 33 39 34 | 366,376,385,394|
000023E0: 00 EA 2B 6C 01 89 20 33 35 32 00 08 2C 6D 01 8F |..+l.. 352..,m..|
000023F0: 2A 50 52 49 4E 54 20 52 45 43 4F 52 44 20 53 45 |*PRINT RECORD SE|
00002400: 4C 45 43 54 49 56 45 2A 00 30 2C 6E 01 85 22 93 |LECTIVE*.0,n..".|
00002410: 50 52 49 4E 54 20 52 45 43 4F 52 44 20 4E 4F 2E |PRINT RECORD NO.|
00002420: 28 30 20 54 4F 20 53 54 4F 50 29 22 3B 57 52 24 |(0 TO STOP)";WR$|
00002430: 00 55 2C 6F 01 57 52 B2 C5 28 57 52 24 29 3A 8B |.U,o.WR..(WR$):.|
00002440: 20 57 52 B3 31 20 B0 20 57 52 B1 41 44 46 49 4C | WR.1 . WR.ADFIL|
00002450: 45 20 A7 20 8E 00 5F 2C 70 01 8D 20 34 30 36 00 |E . .._,p.. 406.|
00002460: 69 2C 71 01 89 20 33 36 36 00 73 2C 72 01 9F 20 |i,q.. 366.s,r.. |
00002470: 34 2C 34 00 8A 2C 73 01 81 20 57 B2 31 20 A4 20 |4,4..,s.. W.1 . |
00002480: 32 3A 98 34 2C 22 20 22 3A 82 00 AD 2C 74 01 98 |2:.4," ":...,t..|
00002490: 34 2C C7 28 31 34 29 3B A6 36 29 22 46 49 4C 45 |4,.(14);.6)"FILE|
000024A0: 20 4E 41 4D 45 3A 22 3B 46 49 4C 45 24 00 C7 2C | NAME:";FILE$..,|
000024B0: 75 01 98 34 2C A6 36 29 22 52 45 43 4F 52 44 20 |u..4,.6)"RECORD |
000024C0: 4E 4F 2E 22 3B 57 52 00 D4 2C 76 01 98 34 2C C7 |NO.";WR..,v..4,.|
000024D0: 28 31 35 29 00 ED 2C 77 01 8F 2A 50 52 49 4E 54 |(15)..,w..*PRINT|
000024E0: 20 41 4C 4C 20 52 45 43 4F 52 44 53 2A 00 0A 2D | ALL RECORDS*..-|
000024F0: 78 01 99 22 93 50 52 49 4E 54 49 4E 47 20 41 4C |x..".PRINTING AL|
00002500: 4C 20 52 45 43 4F 52 44 53 22 00 22 2D 79 01 99 |L RECORDS"."-y..|
00002510: 22 11 50 52 45 53 53 20 53 20 54 4F 20 53 54 4F |".PRESS S TO STO|
00002520: 50 22 00 36 2D 7A 01 81 20 57 52 B2 31 20 A4 20 |P".6-z.. WR.1 . |
00002530: 41 44 46 49 4C 45 00 56 2D 7B 01 8D 20 34 30 36 |ADFILE.V-{.. 406|
00002540: 3A 8F 20 47 4F 20 54 4F 20 50 52 49 4E 54 20 52 |:. GO TO PRINT R|
00002550: 4F 55 54 49 4E 45 00 74 2D 7C 01 A1 20 41 24 3A |OUTINE.t-|.. A$:|
00002560: 8B 20 41 24 B2 22 53 22 20 A7 20 57 52 B2 41 44 |. A$."S" . WR.AD|
00002570: 46 49 4C 45 00 7D 2D 7D 01 82 20 57 52 00 94 2D |FILE.}-}.. WR..-|
00002580: 7E 01 8E 3A 8F 20 52 45 54 55 52 4E 20 54 4F 20 |~..:. RETURN TO |
00002590: 4D 45 4E 55 00 9E 2D 7F 01 89 20 33 35 32 00 B1 |MENU..-... 352..|
000025A0: 2D 80 01 8F 2A 50 52 49 4E 54 20 4C 41 42 45 4C |-...*PRINT LABEL|
000025B0: 2A 00 D9 2D 81 01 85 22 93 50 52 49 4E 54 20 52 |*..-...".PRINT R|
000025C0: 45 43 4F 52 44 20 4E 4F 2E 28 30 20 54 4F 20 53 |ECORD NO.(0 TO S|
000025D0: 54 4F 50 29 22 3B 57 52 24 00 FE 2D 82 01 57 52 |TOP)";WR$..-..WR|
000025E0: B2 C5 28 57 52 24 29 3A 8B 20 57 52 B3 31 20 B0 |..(WR$):. WR.1 .|
000025F0: 20 57 52 B1 41 44 46 49 4C 45 20 A7 20 8E 00 28 | WR.ADFILE . ..(|
00002600: 2E 83 01 99 22 11 48 4F 57 20 4D 41 4E 59 20 46 |....".HOW MANY F|
00002610: 49 45 4C 44 53 20 54 4F 20 50 52 49 4E 54 2C 31 |IELDS TO PRINT,1|
00002620: 2D 22 3B 46 49 22 3F 22 00 3A 2E 84 01 99 22 11 |-";FI"?".:....".|
00002630: 30 20 54 4F 20 53 54 4F 50 22 00 53 2E 85 01 A1 |0 TO STOP".S....|
00002640: 20 41 51 24 3A 8B 20 41 51 24 B2 22 22 20 A7 20 | AQ$:. AQ$."" . |
00002650: 33 38 39 00 70 2E 86 01 42 B2 C5 28 41 51 24 29 |389.p...B..(AQ$)|
00002660: 3A 8B 20 42 B3 31 20 B0 42 B1 46 49 20 A7 20 8E |:. B.1 .B.FI . .|
00002670: 00 90 2E 87 01 8D 20 34 31 39 3A 8F 20 47 4F 20 |...... 419:. GO |
00002680: 54 4F 20 50 52 49 4E 54 20 52 4F 55 54 49 4E 45 |TO PRINT ROUTINE|
00002690: 00 9A 2E 88 01 89 20 33 38 35 00 B2 2E 89 01 8F |...... 385......|
000026A0: 2A 50 52 49 4E 54 20 41 4C 4C 20 4C 41 42 45 4C |*PRINT ALL LABEL|
000026B0: 53 2A 00 CE 2E 8A 01 99 22 93 50 52 49 4E 54 49 |S*......".PRINTI|
000026C0: 4E 47 20 41 4C 4C 20 4C 41 42 45 4C 53 22 00 F9 |NG ALL LABELS"..|
000026D0: 2E 8B 01 99 22 11 48 4F 57 20 4D 41 4E 59 20 46 |....".HOW MANY F|
000026E0: 49 45 4C 44 53 20 54 4F 20 50 52 49 4E 54 2C 31 |IELDS TO PRINT,1|
000026F0: 2D 22 3B 46 49 3B 22 3F 22 00 0C 2F 8C 01 99 22 |-";FI;"?"../..."|
00002700: 11 30 20 54 4F 20 41 42 4F 52 54 22 00 25 2F 8D |.0 TO ABORT".%/.|
00002710: 01 A1 20 41 51 24 3A 8B 20 41 51 24 B2 22 22 20 |.. AQ$:. AQ$."" |
00002720: A7 20 33 39 37 00 43 2F 8E 01 42 B2 C5 28 41 51 |. 397.C/..B..(AQ|
00002730: 24 29 3A 8B 20 42 B3 31 20 B0 20 42 B1 46 49 20 |$):. B.1 . B.FI |
00002740: A7 20 8E 00 5B 2F 8F 01 99 22 11 50 52 45 53 53 |. ..[/...".PRESS|
00002750: 20 53 20 54 4F 20 53 54 4F 50 22 00 6F 2F 90 01 | S TO STOP".o/..|
00002760: 81 20 57 52 B2 31 20 A4 20 41 44 46 49 4C 45 00 |. WR.1 . ADFILE.|
00002770: 8F 2F 91 01 8D 20 34 31 39 3A 8F 20 47 4F 20 54 |./... 419:. GO T|
00002780: 4F 20 50 52 49 4E 54 20 52 4F 55 54 49 4E 45 00 |O PRINT ROUTINE.|
00002790: AC 2F 92 01 A1 20 41 24 3A 8B 20 41 24 B2 22 53 |./... A$:. A$."S|
000027A0: 22 A7 20 57 52 B2 41 44 46 49 4C 45 00 B5 2F 93 |". WR.ADFILE../.|
000027B0: 01 82 20 57 52 00 CC 2F 94 01 8E 3A 8F 20 52 45 |.. WR../...:. RE|
000027C0: 54 55 52 4E 20 54 4F 20 4D 45 4E 55 00 E0 2F 95 |TURN TO MENU../.|
000027D0: 01 8F 2A 50 52 49 4E 54 20 52 45 43 4F 52 44 2A |..*PRINT RECORD*|
000027E0: 00 EA 2F 96 01 9F 20 34 2C 34 00 01 30 97 01 81 |../... 4,4..0...|
000027F0: 20 57 B2 31 20 A4 20 32 3A 98 34 2C 22 20 22 3A | W.1 . 2:.4," ":|
00002800: 82 00 24 30 98 01 98 34 2C C7 28 31 34 29 3B A6 |..$0...4,.(14);.|
00002810: 36 29 22 46 49 4C 45 20 4E 41 4D 45 3A 22 3B 46 |6)"FILE NAME:";F|
00002820: 49 4C 45 24 00 3E 30 99 01 98 34 2C A6 36 29 22 |ILE$.>0...4,.6)"|
00002830: 52 45 43 4F 52 44 20 4E 4F 2E 22 3B 57 52 00 4B |RECORD NO.";WR.K|
00002840: 30 9A 01 98 34 2C C7 28 31 35 29 00 62 30 9B 01 |0...4,.(15).b0..|
00002850: 81 20 57 B2 31 20 A4 20 32 3A 98 34 2C 22 20 22 |. W.1 . 2:.4," "|
00002860: 3A 82 00 8D 30 9C 01 81 20 41 B2 31 20 A4 20 46 |:...0... A.1 . F|
00002870: 49 3A 41 54 45 4D 50 24 B2 46 49 24 28 41 2C 57 |I:ATEMP$.FI$(A,W|
00002880: 52 29 3A 42 B2 C3 28 50 24 28 41 29 29 00 AA 30 |R):B..(P$(A))..0|
00002890: 9D 01 8B 20 41 54 45 4D 50 24 B2 22 3C 22 20 A7 |... ATEMP$."<" .|
000028A0: 20 41 54 45 4D 50 24 B2 22 22 00 CB 30 9E 01 98 | ATEMP$.""..0...|
000028B0: 34 2C A6 33 29 50 24 28 41 29 A6 31 35 AB 42 29 |4,.3)P$(A).15.B)|
000028C0: 41 54 45 4D 50 24 C7 28 31 30 29 00 D1 30 9F 01 |ATEMP$.(10)..0..|
000028D0: 82 00 E8 30 A0 01 81 20 57 B2 31 20 A4 20 33 3A |...0... W.1 . 3:|
000028E0: 98 34 2C 22 20 22 3A 82 00 F4 30 A1 01 98 34 3A |.4," ":...0...4:|
000028F0: A0 34 3A 8E 00 0F 31 A2 01 8F 2A 50 52 49 4E 54 |.4:...1...*PRINT|
00002900: 20 4C 41 42 45 4C 20 52 4F 55 54 49 4E 45 2A 00 | LABEL ROUTINE*.|
00002910: 1F 31 A3 01 9F 34 2C 34 3A 98 34 2C 22 20 22 00 |.1...4,4:.4," ".|
00002920: 56 31 A4 01 81 20 41 B2 31 20 A4 20 42 3A 41 54 |V1... A.1 . B:AT|
00002930: 45 4D 50 24 B2 46 49 24 28 41 2C 57 52 29 3A 8B |EMP$.FI$(A,WR):.|
00002940: 20 41 54 45 4D 50 24 B2 22 3C 22 A7 20 41 54 45 | ATEMP$."<". ATE|
00002950: 4D 50 24 B2 22 22 00 67 31 A5 01 98 34 2C A6 32 |MP$."".g1...4,.2|
00002960: 29 41 54 45 4D 50 24 00 6F 31 A6 01 82 20 41 00 |)ATEMP$.o1... A.|
00002970: 7A 31 A7 01 98 34 2C 22 20 22 00 86 31 A8 01 98 |z1...4," "..1...|
00002980: 34 3A A0 34 3A 8E 00 A2 31 A9 01 8F 2A 2A 2A 2A |4:.4:...1...****|
00002990: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000029A0: 2A 2A 00 BE 31 AA 01 8F 2A 4D 4F 44 49 46 59 2F |**..1...*MODIFY/|
000029B0: 44 45 4C 45 54 45 20 52 45 43 4F 52 44 2A 00 DA |DELETE RECORD*..|
000029C0: 31 AB 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |1...************|
000029D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E6 31 AC 01 8F |**********..1...|
000029E0: 2A 4D 45 4E 55 2A 00 00 32 AD 01 99 22 93 1D 1D |*MENU*..2..."...|
000029F0: 1D 1D 4D 4F 44 49 46 59 2F 44 45 4C 45 54 45 22 |..MODIFY/DELETE"|
00002A00: 00 1C 32 AE 01 99 22 11 1D 1D 1D 28 31 29 4D 4F |..2..."....(1)MO|
00002A10: 44 49 46 59 20 52 45 43 4F 52 44 22 00 3A 32 AF |DIFY RECORD".:2.|
00002A20: 01 99 22 11 1D 1D 1D 28 32 29 44 45 4C 45 54 45 |.."....(2)DELETE|
00002A30: 20 41 20 52 45 43 4F 52 44 22 00 5B 32 B0 01 99 | A RECORD".[2...|
00002A40: 22 11 1D 1D 1D 28 33 29 44 45 4C 45 54 45 20 41 |"....(3)DELETE A|
00002A50: 4C 4C 20 52 45 43 4F 52 44 53 22 00 78 32 B1 01 |LL RECORDS".x2..|
00002A60: 99 22 11 1D 1D 1D 28 34 29 44 45 4C 45 54 45 20 |."....(4)DELETE |
00002A70: 41 20 46 49 45 4C 44 22 00 9A 32 B2 01 99 22 11 |A FIELD"..2...".|
00002A80: 1D 1D 1D 28 35 29 52 45 54 55 52 4E 20 54 4F 20 |...(5)RETURN TO |
00002A90: 4D 41 49 4E 20 4D 45 4E 55 22 00 BF 32 B3 01 99 |MAIN MENU"..2...|
00002AA0: 22 11 1D 1D 1D 50 4C 45 41 53 45 20 54 59 50 45 |"....PLEASE TYPE|
00002AB0: 20 49 4E 20 41 20 4E 4F 2E 28 31 2D 35 29 22 00 | IN A NO.(1-5)".|
00002AC0: EC 32 B4 01 A1 20 4D 45 4D 24 3A 4D 45 4D B2 C5 |.2... MEM$:MEM..|
00002AD0: 28 4D 45 4D 24 29 3A 8B 20 4D 45 4D B3 31 20 B0 |(MEM$):. MEM.1 .|
00002AE0: 20 4D 45 4D B1 35 20 A7 20 34 33 36 00 FC 32 B5 | MEM.5 . 436..2.|
00002AF0: 01 8B 20 4D 45 4D B2 35 20 A7 20 8E 00 18 33 B6 |.. MEM.5 . ...3.|
00002B00: 01 91 20 4D 45 4D 20 8D 20 34 34 31 2C 34 35 39 |.. MEM . 441,459|
00002B10: 2C 34 37 30 2C 34 37 33 00 22 33 B7 01 89 20 34 |,470,473."3... 4|
00002B20: 32 39 00 37 33 B8 01 8F 2A 4D 4F 44 49 46 59 20 |29.73...*MODIFY |
00002B30: 52 45 43 4F 52 44 2A 00 50 33 B9 01 99 22 93 53 |RECORD*.P3...".S|
00002B40: 54 41 54 45 20 52 45 43 4F 52 44 20 4E 4F 2E 22 |TATE RECORD NO."|
00002B50: 00 73 33 BA 01 99 22 11 30 20 54 4F 20 52 45 54 |.s3...".0 TO RET|
00002B60: 55 52 4E 20 54 4F 20 4D 45 4E 55 11 22 3A 85 20 |URN TO MENU.":. |
00002B70: 57 52 24 00 84 33 BB 01 8B 20 57 52 24 B2 22 30 |WR$..3... WR$."0|
00002B80: 22 A7 20 8E 00 AB 33 BC 01 57 52 B2 C5 28 57 52 |". ...3..WR..(WR|
00002B90: 24 29 3A 8B 20 57 52 B3 31 20 B0 20 57 52 B1 41 |$):. WR.1 . WR.A|
00002BA0: 44 46 49 4C 45 20 A7 20 34 34 31 00 C7 33 BD 01 |DFILE . 441..3..|
00002BB0: 99 22 93 1D 1D 1D 1D 1D 1D 52 45 43 4F 52 44 20 |.".......RECORD |
00002BC0: 4E 4F 2E 22 3B 57 52 00 E5 33 BE 01 81 20 41 B2 |NO.";WR..3... A.|
00002BD0: 31 A4 46 49 3A 41 54 45 4D 50 24 B2 46 49 24 28 |1.FI:ATEMP$.FI$(|
00002BE0: 41 2C 57 52 29 00 01 34 BF 01 8B 20 41 54 45 4D |A,WR)..4... ATEM|
00002BF0: 50 24 B2 22 3C 22 A7 20 41 54 45 4D 50 24 B2 22 |P$."<". ATEMP$."|
00002C00: 22 00 2B 34 C0 01 99 22 11 1D 1D 22 3B 50 24 28 |".+4..."...";P$(|
00002C10: 41 29 3A 99 22 91 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |A):."...........|
00002C20: 1D 1D 1D 22 3B 41 54 45 4D 50 24 00 31 34 C1 01 |...";ATEMP$.14..|
00002C30: 82 00 49 34 C2 01 81 20 41 B2 31 A4 46 49 3A 99 |..I4... A.1.FI:.|
00002C40: 22 91 91 91 22 3A 82 20 41 00 70 34 C3 01 81 20 |"...":. A.p4... |
00002C50: 41 B2 31 A4 46 49 3A 85 22 11 1D 1D 1D 1D 1D 1D |A.1.FI:.".......|
00002C60: 1D 1D 1D 1D 1D 22 3B 46 49 24 28 41 2C 57 52 29 |.....";FI$(A,WR)|
00002C70: 00 76 34 C4 01 82 00 9B 34 C5 01 99 22 11 11 1D |.v4.....4..."...|
00002C80: 1D 54 4F 20 43 4F 4E 54 49 4E 55 45 20 50 52 45 |.TO CONTINUE PRE|
00002C90: 53 53 20 41 4E 59 20 4B 45 59 22 00 C1 34 C6 01 |SS ANY KEY"..4..|
00002CA0: 99 22 11 1D 1D 53 50 41 43 45 20 42 41 52 20 54 |."...SPACE BAR T|
00002CB0: 4F 20 52 45 54 55 52 4E 20 54 4F 20 4D 45 4E 55 |O RETURN TO MENU|
00002CC0: 22 00 D9 34 C7 01 A1 20 41 51 24 3A 8B 20 41 51 |"..4... AQ$:. AQ|
00002CD0: 24 B2 22 22 A7 20 34 35 35 00 EA 34 C8 01 8B 20 |$."". 455..4... |
00002CE0: 41 51 24 B2 22 20 22 A7 20 8E 00 F4 34 C9 01 89 |AQ$." ". ...4...|
00002CF0: 20 34 34 31 00 0B 35 CA 01 8F 2A 44 45 4C 45 54 | 441..5...*DELET|
00002D00: 45 20 41 20 52 45 43 4F 52 44 2A 00 37 35 CB 01 |E A RECORD*.75..|
00002D10: 85 22 93 44 45 4C 45 54 45 20 57 48 49 43 48 20 |.".DELETE WHICH |
00002D20: 52 45 43 4F 52 44 28 30 20 54 4F 20 41 42 4F 52 |RECORD(0 TO ABOR|
00002D30: 54 29 22 3B 57 52 24 00 5C 35 CC 01 57 52 B2 C5 |T)";WR$.\5..WR..|
00002D40: 28 57 52 24 29 3A 8B 20 57 52 B3 31 20 B0 20 57 |(WR$):. WR.1 . W|
00002D50: 52 B1 41 44 46 49 4C 45 20 A7 20 8E 00 81 35 CD |R.ADFILE . ...5.|
00002D60: 01 8F 2A 4D 4F 56 45 20 55 50 20 41 4C 4C 20 52 |..*MOVE UP ALL R|
00002D70: 45 43 4F 52 44 53 20 41 46 54 45 52 20 57 52 24 |ECORDS AFTER WR$|
00002D80: 2A 00 97 35 CE 01 8B 20 57 52 B2 41 44 46 49 4C |*..5... WR.ADFIL|
00002D90: 45 20 A7 20 34 36 37 00 AF 35 CF 01 81 20 42 B2 |E . 467..5... B.|
00002DA0: 57 52 20 A4 20 28 41 44 46 49 4C 45 AB 31 29 00 |WR . (ADFILE.1).|
00002DB0: BE 35 D0 01 81 20 41 B2 31 20 A4 20 46 49 00 D6 |.5... A.1 . FI..|
00002DC0: 35 D1 01 46 49 24 28 41 2C 42 29 B2 46 49 24 28 |5..FI$(A,B).FI$(|
00002DD0: 41 2C 42 AA 31 29 00 E0 35 D2 01 82 20 41 2C 42 |A,B.1)..5... A,B|
00002DE0: 00 F4 35 D3 01 41 44 46 49 4C 45 B2 41 44 46 49 |..5..ADFILE.ADFI|
00002DF0: 4C 45 AB 31 00 FE 35 D4 01 89 20 34 35 39 00 18 |LE.1..5... 459..|
00002E00: 36 D5 01 8F 2A 44 45 4C 45 54 45 20 41 4C 4C 20 |6...*DELETE ALL |
00002E10: 52 45 43 4F 52 44 53 2A 00 4A 36 D6 01 85 22 93 |RECORDS*.J6...".|
00002E20: 44 45 4C 45 54 45 20 41 4C 4C 20 52 45 43 4F 52 |DELETE ALL RECOR|
00002E30: 44 53 3F 20 59 2F 4E 22 3B 41 51 24 3A 8B 20 41 |DS? Y/N";AQ$:. A|
00002E40: 51 24 B2 22 4E 22 20 A7 20 8E 00 59 36 D7 01 41 |Q$."N" . ..Y6..A|
00002E50: 44 46 49 4C 45 B2 30 3A 8E 00 6D 36 D8 01 8F 2A |DFILE.0:..m6...*|
00002E60: 44 45 4C 45 54 45 20 46 49 45 4C 44 2A 00 95 36 |DELETE FIELD*..6|
00002E70: D9 01 85 22 93 44 45 4C 45 54 49 4E 47 20 46 49 |...".DELETING FI|
00002E80: 45 4C 44 3A 57 48 49 43 48 20 52 45 43 4F 52 44 |ELD:WHICH RECORD|
00002E90: 22 3B 57 52 24 00 BA 36 DA 01 57 52 B2 C5 28 57 |";WR$..6..WR..(W|
00002EA0: 52 24 29 3A 8B 20 57 52 B3 31 20 B0 20 57 52 B1 |R$):. WR.1 . WR.|
00002EB0: 41 44 46 49 4C 45 20 A7 20 8E 00 DA 36 DB 01 81 |ADFILE . ...6...|
00002EC0: 20 41 B2 31 20 A4 20 46 49 3A 99 22 11 22 3B 41 | A.1 . FI:.".";A|
00002ED0: 3B 50 24 28 41 29 3A 82 20 41 00 F2 36 DC 01 99 |;P$(A):. A..6...|
00002EE0: 22 11 46 49 45 4C 44 20 54 4F 20 44 45 4C 45 54 |".FIELD TO DELET|
00002EF0: 45 22 00 05 37 DD 01 99 22 11 30 20 54 4F 20 41 |E"..7...".0 TO A|
00002F00: 42 4F 52 54 22 00 1D 37 DE 01 A1 20 41 51 24 3A |BORT"..7... AQ$:|
00002F10: 8B 20 41 51 24 B2 22 22 A7 20 34 37 38 00 3E 37 |. AQ$."". 478.>7|
00002F20: DF 01 41 51 B2 C5 28 41 51 24 29 3A 8B 20 41 51 |..AQ..(AQ$):. AQ|
00002F30: B3 31 20 B0 20 41 51 B1 46 49 20 A7 20 8E 00 51 |.1 . AQ.FI . ..Q|
00002F40: 37 E0 01 46 49 24 28 41 51 2C 57 52 29 B2 22 3C |7..FI$(AQ,WR)."<|
00002F50: 22 00 5B 37 E1 01 89 20 34 37 33 00 80 37 E2 01 |".[7... 473..7..|
00002F60: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00002F70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002F80: 00 A5 37 E3 01 8F 2A 53 45 41 52 43 48 20 46 4F |..7...*SEARCH FO|
00002F90: 52 20 41 20 52 45 43 4F 52 44 2F 53 4F 52 54 20 |R A RECORD/SORT |
00002FA0: 46 49 4C 45 2A 00 CA 37 E4 01 8F 2A 2A 2A 2A 2A |FILE*..7...*****|
00002FB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002FC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 DA 37 E5 01 8B |**********..7...|
00002FD0: 20 46 49 B2 30 20 A7 20 37 37 00 02 38 E6 01 99 | FI.0 . 77..8...|
00002FE0: 22 93 53 45 41 52 43 48 49 4E 47 28 31 29 20 4F |".SEARCHING(1) O|
00002FF0: 52 20 53 4F 52 54 49 4E 47 28 32 29 3F 20 31 2F |R SORTING(2)? 1/|
00003000: 32 22 00 26 38 E7 01 99 22 11 53 50 41 43 45 20 |2".&8...".SPACE |
00003010: 42 41 52 20 54 4F 20 52 45 54 55 52 4E 20 54 4F |BAR TO RETURN TO|
00003020: 20 4D 45 4E 55 22 00 3F 38 E8 01 A1 20 20 41 51 | MENU".?8... AQ|
00003030: 24 3A 8B 20 41 51 24 B2 22 22 A7 20 34 38 38 00 |$:. AQ$."". 488.|
00003040: 50 38 E9 01 8B 20 41 51 24 B2 22 20 22 A7 20 8E |P8... AQ$." ". .|
00003050: 00 63 38 EA 01 8B 20 41 51 24 B2 22 32 22 A7 20 |.c8... AQ$."2". |
00003060: 35 34 38 00 77 38 EB 01 8B 20 41 51 24 B3 B1 22 |548.w8... AQ$.."|
00003070: 31 22 A7 20 34 38 38 00 92 38 EC 01 8F 2A 41 53 |1". 488..8...*AS|
00003080: 4B 20 46 4F 52 20 49 4E 46 4F 52 4D 41 54 49 4F |K FOR INFORMATIO|
00003090: 4E 2A 00 A2 38 ED 01 49 4E 24 B2 22 22 3A 99 22 |N*..8..IN$."":."|
000030A0: 93 22 00 BE 38 EE 01 81 20 41 B2 31 A4 46 49 3A |."..8... A.1.FI:|
000030B0: 99 22 11 22 3B 41 3B 50 24 28 41 29 3A 82 00 E1 |.".";A;P$(A):...|
000030C0: 38 EF 01 99 22 11 1D 1D 1D 57 48 49 43 48 20 44 |8..."....WHICH D|
000030D0: 4F 20 59 4F 55 20 4B 4E 4F 57 A0 31 2D 22 3B 46 |O YOU KNOW.1-";F|
000030E0: 49 00 F9 38 F0 01 A1 20 41 51 24 3A 8B 20 41 51 |I..8... AQ$:. AQ|
000030F0: 24 B2 22 22 A7 20 34 39 36 00 1C 39 F1 01 41 51 |$."". 496..9..AQ|
00003100: B2 C5 28 41 51 24 29 3A 8B 20 41 51 B3 31 20 B0 |..(AQ$):. AQ.1 .|
00003110: 20 41 51 B1 46 49 20 A7 20 34 39 36 00 46 39 F2 | AQ.FI . 496.F9.|
00003120: 01 99 22 11 1D 1D 1D 57 48 41 54 20 49 53 20 59 |.."....WHAT IS Y|
00003130: 4F 55 52 20 49 4E 46 4F 52 4D 41 54 49 4F 4E 22 |OUR INFORMATION"|
00003140: 3A 85 20 49 4E 24 00 5F 39 F3 01 8F 2A 47 45 54 |:. IN$._9...*GET|
00003150: 20 4C 45 4E 47 54 48 20 4F 46 20 49 4E 24 2A 00 | LENGTH OF IN$*.|
00003160: 72 39 F4 01 49 4E 4C B2 C3 28 49 4E 24 29 3A 42 |r9..INL..(IN$):B|
00003170: B2 30 00 AB 39 F5 01 8B 41 44 46 49 4C 45 B2 30 |.0..9...ADFILE.0|
00003180: A7 99 22 93 4E 4F 20 52 45 43 4F 52 44 53 20 49 |..".NO RECORDS I|
00003190: 4E 20 4D 45 4D 4F 52 59 21 21 22 3A 81 41 B2 31 |N MEMORY!!":.A.1|
000031A0: 20 A4 20 31 30 30 30 3A 82 3A 8E 00 D7 39 F6 01 | . 1000:.:...9..|
000031B0: 99 22 93 46 49 58 45 44 20 53 45 41 52 43 48 28 |.".FIXED SEARCH(|
000031C0: 31 29 20 4F 52 20 46 4C 45 58 49 2D 53 45 41 52 |1) OR FLEXI-SEAR|
000031D0: 43 48 28 32 29 3F 22 00 ED 39 F7 01 A1 20 51 24 |CH(2)?"..9... Q$|
000031E0: 3A 8B 20 51 24 B2 22 22 A7 20 35 30 33 00 0D 3A |:. Q$."". 503..:|
000031F0: F8 01 51 B2 C5 28 51 24 29 3A 8B 20 51 B3 B1 31 |..Q..(Q$):. Q..1|
00003200: 20 AF 20 51 B3 B1 32 20 A7 20 35 30 33 00 3A 3A | . Q..2 . 503.::|
00003210: F9 01 99 22 11 11 11 53 45 41 52 43 48 49 4E 47 |..."...SEARCHING|
00003220: 20 54 48 52 4F 55 47 48 20 46 49 4C 45 22 3A 8B | THROUGH FILE":.|
00003230: 20 51 B2 32 20 A7 20 35 38 39 00 4E 3A FA 01 8F | Q.2 . 589.N:...|
00003240: 2A 46 49 58 45 44 20 53 45 41 52 43 48 2A 00 72 |*FIXED SEARCH*.r|
00003250: 3A FB 01 81 20 53 B2 31 20 A4 20 41 44 46 49 4C |:... S.1 . ADFIL|
00003260: 45 3A 41 24 B2 46 49 24 28 41 51 2C 53 29 3A 41 |E:A$.FI$(AQ,S):A|
00003270: B2 31 00 86 3A FC 01 58 24 28 31 29 B2 CA 28 41 |.1..:..X$(1)..(A|
00003280: 24 2C 41 2C 31 29 00 9B 3A FD 01 58 24 28 32 29 |$,A,1)..:..X$(2)|
00003290: B2 CA 28 49 4E 24 2C 41 2C 31 29 00 B0 3A FE 01 |..(IN$,A,1)..:..|
000032A0: 58 31 B2 C6 28 58 24 28 31 29 AA C7 28 30 29 29 |X1..(X$(1)..(0))|
000032B0: 00 C5 3A FF 01 58 32 B2 C6 28 58 24 28 32 29 AA |..:..X2..(X$(2).|
000032C0: C7 28 30 29 29 00 D8 3A 00 02 8B 20 58 31 B3 B1 |.(0))..:... X1..|
000032D0: 58 32 20 A7 20 35 32 30 00 EC 3A 01 02 8B 20 58 |X2 . 520..:... X|
000032E0: 31 B2 58 32 20 A7 20 41 B2 41 AA 31 00 0B 3B 02 |1.X2 . A.A.1..;.|
000032F0: 02 8F 2A 57 48 45 4E 20 46 49 4E 49 53 48 45 44 |..*WHEN FINISHED|
00003300: 20 43 4F 4D 50 41 52 49 4E 47 2A 00 2A 3B 03 02 | COMPARING*.*;..|
00003310: 8F 2A 52 45 54 55 52 4E 20 20 20 20 20 20 20 20 |.*RETURN |
00003320: 20 20 20 20 20 20 20 20 20 2A 00 3C 3B 04 02 8B | *.<;...|
00003330: 20 41 B1 49 4E 4C 20 A7 20 35 31 38 00 46 3B 05 | A.INL . 518.F;.|
00003340: 02 89 20 35 30 38 00 50 3B 06 02 42 B2 42 AA 31 |.. 508.P;..B.B.1|
00003350: 00 5C 3B 07 02 53 45 28 42 29 B2 53 00 64 3B 08 |.\;..SE(B).S.d;.|
00003360: 02 82 20 53 00 8D 3B 09 02 99 22 93 54 48 45 52 |.. S..;...".THER|
00003370: 45 20 41 52 45 22 3B 42 3B 22 52 45 43 4F 52 44 |E ARE";B;"RECORD|
00003380: 53 20 43 4F 4E 54 41 49 4E 49 4E 47 22 00 A6 3B |S CONTAINING"..;|
00003390: 0A 02 99 20 49 4E 24 3A 99 22 11 22 3A 8B 42 B2 |... IN$:.".":.B.|
000033A0: 30 A7 20 35 32 39 00 BC 3B 0B 02 81 20 41 B2 31 |0. 529..;... A.1|
000033B0: 20 A4 20 42 20 A9 20 39 3A 44 B2 30 00 DA 3B 0C | . B . 9:D.0..;.|
000033C0: 02 81 20 43 B2 41 20 A4 20 41 AA 38 3A 8B 20 43 |.. C.A . A.8:. C|
000033D0: B1 31 35 30 20 A7 20 35 32 37 00 E9 3B 0D 02 99 |.150 . 527..;...|
000033E0: A3 44 29 53 45 28 43 29 3B 00 F3 3B 0E 02 44 B2 |.D)SE(C);..;..D.|
000033F0: 44 AA 34 00 03 3C 0F 02 82 20 43 3A 99 3A 82 20 |D.4..<... C:.:. |
00003400: 41 3A 99 00 26 3C 10 02 99 22 11 57 48 49 43 48 |A:..&<...".WHICH|
00003410: 20 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 | DO YOU WANT TO |
00003420: 56 49 45 57 3F 22 00 5B 3C 11 02 99 22 30 20 20 |VIEW?".[<..."0 |
00003430: 54 4F 20 52 45 54 55 52 4E 20 54 4F 20 4D 45 4E |TO RETURN TO MEN|
00003440: 55 22 3A 99 22 53 20 20 54 4F 20 44 4F 20 53 45 |U":."S TO DO SE|
00003450: 41 52 43 48 20 41 47 41 49 4E 22 00 72 3C 12 02 |ARCH AGAIN".r<..|
00003460: 99 22 50 20 54 4F 20 50 52 49 4E 54 20 4C 49 53 |."P TO PRINT LIS|
00003470: 54 22 00 89 3C 13 02 85 20 57 52 24 3A 8B 20 57 |T"..<... WR$:. W|
00003480: 52 24 B2 22 30 22 A7 20 8E 00 9C 3C 14 02 8B 20 |R$."0". ...<... |
00003490: 57 52 24 B2 22 53 22 A7 20 34 39 33 00 B0 3C 15 |WR$."S". 493..<.|
000034A0: 02 8B 20 57 52 24 B2 22 50 22 20 A7 20 35 33 38 |.. WR$."P" . 538|
000034B0: 00 BA 3C 16 02 8D 20 31 30 35 00 C4 3C 17 02 89 |..<... 105..<...|
000034C0: 20 35 32 31 00 CA 3C 18 02 8E 00 E1 3C 19 02 8F | 521..<.....<...|
000034D0: 2A 4C 49 53 54 20 54 4F 20 50 52 49 4E 54 45 52 |*LIST TO PRINTER|
000034E0: 2A 00 EB 3C 1A 02 9F 20 34 2C 34 00 FD 3C 1B 02 |*..<... 4,4..<..|
000034F0: 81 20 41 B2 31 20 A4 20 42 20 A9 20 36 00 1B 3D |. A.1 . B . 6..=|
00003500: 1C 02 81 20 43 B2 41 20 A4 20 41 AA 35 3A 8B 20 |... C.A . A.5:. |
00003510: 43 B1 31 35 30 20 A7 20 35 34 32 00 29 3D 1D 02 |C.150 . 542.)=..|
00003520: 98 34 2C 53 45 28 43 29 2C 00 3E 3D 1E 02 82 20 |.4,SE(C),.>=... |
00003530: 43 3A 98 34 2C C7 28 31 33 29 3A 82 20 41 00 45 |C:.4,.(13):. A.E|
00003540: 3D 1F 02 A0 34 00 4F 3D 20 02 89 20 35 33 31 00 |=...4.O= .. 531.|
00003550: 7E 3D 21 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |~=!..***********|
00003560: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003570: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 AC |**************..|
00003580: 3D 22 02 8F 2A 53 4F 52 54 20 46 49 4C 45 20 41 |="..*SORT FILE A|
00003590: 4C 50 48 41 42 45 54 49 43 41 4C 2F 4E 55 4D 45 |LPHABETICAL/NUME|
000035A0: 52 49 43 41 4C 20 4F 52 44 45 52 2A 00 DB 3D 23 |RICAL ORDER*..=#|
000035B0: 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************|
000035C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000035D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 09 3E 24 02 |***********..>$.|
000035E0: 99 22 93 57 48 49 43 48 20 46 49 45 4C 44 20 54 |.".WHICH FIELD T|
000035F0: 4F 20 55 53 45 20 57 48 45 4E 20 53 4F 52 54 49 |O USE WHEN SORTI|
00003600: 4E 47 3F 31 2D 22 3B 46 49 00 1F 3E 25 02 A1 20 |NG?1-";FI..>%.. |
00003610: 41 51 24 3A 8B 41 51 24 B2 22 22 A7 35 34 39 00 |AQ$:.AQ$."".549.|
00003620: 42 3E 26 02 41 51 B2 C5 28 41 51 24 29 3A 8B 20 |B>&.AQ..(AQ$):. |
00003630: 41 51 B3 31 20 B0 20 41 51 B1 46 49 20 A7 20 35 |AQ.1 . AQ.FI . 5|
00003640: 34 39 00 54 3E 27 02 81 20 43 B2 31 20 A4 20 32 |49.T>'.. C.1 . 2|
00003650: 3A 59 B2 31 00 5D 3E 28 02 42 B2 41 51 00 72 3E |:Y.1.]>(.B.AQ.r>|
00003660: 29 02 99 22 93 53 4F 52 54 49 4E 47 20 46 49 4C |)..".SORTING FIL|
00003670: 45 22 00 97 3E 2A 02 8F 2A 43 4F 4D 50 41 52 45 |E"..>*..*COMPARE|
00003680: 20 54 57 4F 20 52 45 43 4F 52 44 53 20 41 54 20 | TWO RECORDS AT |
00003690: 41 20 54 49 4D 45 2A 00 AE 3E 2B 02 81 20 53 B2 |A TIME*..>+.. S.|
000036A0: 31 20 A4 20 28 41 44 46 49 4C 45 AB 59 29 00 C7 |1 . (ADFILE.Y)..|
000036B0: 3E 2C 02 41 B2 31 3A 52 31 B2 53 3A 52 32 B2 53 |>,.A.1:R1.S:R2.S|
000036C0: AA 31 3A 45 58 B2 30 00 F1 3E 2D 02 8F 2A 47 45 |.1:EX.0..>-..*GE|
000036D0: 54 20 43 48 41 52 41 43 54 45 52 20 46 52 4F 4D |T CHARACTER FROM|
000036E0: 20 53 50 45 43 49 46 49 45 44 20 46 49 45 4C 44 | SPECIFIED FIELD|
000036F0: 2A 00 05 3F 2E 02 41 24 28 31 29 B2 46 49 24 28 |*..?..A$(1).FI$(|
00003700: 42 2C 52 31 29 00 19 3F 2F 02 41 24 28 32 29 B2 |B,R1)..?/.A$(2).|
00003710: 46 49 24 28 42 2C 52 32 29 00 30 3F 30 02 4E 24 |FI$(B,R2).0?0.N$|
00003720: 28 31 29 B2 CA 28 41 24 28 31 29 2C 41 2C 31 29 |(1)..(A$(1),A,1)|
00003730: 00 47 3F 31 02 4E 24 28 32 29 B2 CA 28 41 24 28 |.G?1.N$(2)..(A$(|
00003740: 32 29 2C 41 2C 31 29 00 5C 3F 32 02 4E 31 B2 C6 |2),A,1).\?2.N1..|
00003750: 28 4E 24 28 31 29 AA C7 28 30 29 29 00 71 3F 33 |(N$(1)..(0)).q?3|
00003760: 02 4E 32 B2 C6 28 4E 24 28 32 29 AA C7 28 30 29 |.N2..(N$(2)..(0)|
00003770: 29 00 83 3F 34 02 8B 20 4E 31 B1 4E 32 20 A7 20 |)..?4.. N1.N2 . |
00003780: 35 37 34 00 95 3F 35 02 8B 20 4E 31 B3 4E 32 20 |574..?5.. N1.N2 |
00003790: A7 20 35 38 31 00 B9 3F 36 02 8F 2A 49 46 20 43 |. 581..?6..*IF C|
000037A0: 48 41 52 41 43 54 45 52 53 20 20 54 48 45 20 53 |HARACTERS THE S|
000037B0: 41 4D 45 20 54 48 45 4E 2A 00 DD 3F 37 02 8F 2A |AME THEN*..?7..*|
000037C0: 47 45 54 20 4E 45 58 54 20 4F 4E 45 53 20 20 20 |GET NEXT ONES |
000037D0: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 E7 3F | *..?|
000037E0: 38 02 41 B2 41 AA 31 00 0A 40 39 02 8F 2A 49 46 |8.A.A.1..@9..*IF|
000037F0: 20 41 3E 46 49 45 4C 44 20 4C 45 4E 47 54 48 20 | A>FIELD LENGTH |
00003800: 2C 4E 45 58 54 20 53 45 54 2A 00 2D 40 3A 02 8F |,NEXT SET*.-@:..|
00003810: 2A 4F 46 20 52 45 43 4F 52 44 53 20 20 20 20 20 |*OF RECORDS |
00003820: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 3E 40 | *.>@|
00003830: 3B 02 8B 20 41 B1 32 34 20 A7 20 35 38 31 00 48 |;.. A.24 . 581.H|
00003840: 40 3C 02 89 20 35 36 30 00 62 40 3D 02 8F 2A 53 |@<.. 560.b@=..*S|
00003850: 57 41 50 20 52 45 43 4F 52 44 53 20 52 4F 55 4E |WAP RECORDS ROUN|
00003860: 44 2A 00 6B 40 3E 02 45 58 B2 31 00 7A 40 3F 02 |D*.k@>.EX.1.z@?.|
00003870: 81 20 58 B2 31 20 A4 20 46 49 00 8F 40 40 02 41 |. X.1 . FI..@@.A|
00003880: 54 45 4D 50 24 B2 46 49 24 28 58 2C 52 31 29 00 |TEMP$.FI$(X,R1).|
00003890: A7 40 41 02 46 49 24 28 58 2C 52 31 29 B2 46 49 |.@A.FI$(X,R1).FI|
000038A0: 24 28 58 2C 52 32 29 00 BC 40 42 02 46 49 24 28 |$(X,R2)..@B.FI$(|
000038B0: 58 2C 52 32 29 B2 41 54 45 4D 50 24 00 C4 40 43 |X,R2).ATEMP$..@C|
000038C0: 02 82 20 58 00 DE 40 44 02 8F 2A 43 4F 4E 54 49 |.. X..@D..*CONTI|
000038D0: 4E 55 45 20 57 49 54 48 20 53 4F 52 54 2A 00 E6 |NUE WITH SORT*..|
000038E0: 40 45 02 82 20 53 00 08 41 46 02 59 B2 59 AA 31 |@E.. S..AF.Y.Y.1|
000038F0: 3A 8B 20 59 B1 41 44 46 49 4C 45 20 AF 20 45 58 |:. Y.ADFILE . EX|
00003900: B2 31 20 A7 20 59 B2 31 00 1B 41 47 02 8B 20 59 |.1 . Y.1..AG.. Y|
00003910: B1 41 44 46 49 4C 45 20 A7 20 8E 00 39 41 48 02 |.ADFILE . ..9AH.|
00003920: 8F 2A 44 4F 20 53 4F 52 54 20 52 55 4E 20 41 47 |.*DO SORT RUN AG|
00003930: 41 49 4E 20 4F 4E 4C 59 2A 00 57 41 49 02 8F 2A |AIN ONLY*.WAI..*|
00003940: 49 46 20 45 58 3D 31 20 53 45 45 20 31 34 37 31 |IF EX=1 SEE 1471|
00003950: 30 20 20 20 20 20 2A 00 68 41 4A 02 8B 20 45 58 |0 *.hAJ.. EX|
00003960: B2 31 20 A7 20 35 35 35 00 70 41 4B 02 82 20 43 |.1 . 555.pAK.. C|
00003970: 00 76 41 4C 02 8E 00 8A 41 4D 02 8F 2A 2A 2A 2A |.vAL....AM..****|
00003980: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 9E 41 4E 02 8F |**********..AN..|
00003990: 2A 46 4C 45 58 49 2D 53 45 41 52 43 48 2A 00 B2 |*FLEXI-SEARCH*..|
000039A0: 41 4F 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |AO..************|
000039B0: 2A 2A 00 BA 41 50 02 43 B2 30 00 E7 41 51 02 81 |**..AP.C.0..AQ..|
000039C0: 20 53 B2 31 20 A4 20 41 44 46 49 4C 45 3A 41 24 | S.1 . ADFILE:A$|
000039D0: B2 46 49 24 28 41 51 2C 53 29 3A 41 B2 31 3A 46 |.FI$(AQ,S):A.1:F|
000039E0: 4C B2 C3 28 41 24 29 00 FC 41 52 02 42 B2 31 3A |L..(A$)..AR.B.1:|
000039F0: 8B 20 41 B1 46 4C 20 A7 20 36 30 33 00 21 42 53 |. A.FL . 603.!BS|
00003A00: 02 58 24 28 31 29 B2 CA 28 41 24 2C 41 2C 31 29 |.X$(1)..(A$,A,1)|
00003A10: 3A 58 24 28 32 29 B2 CA 28 49 4E 24 2C 42 2C 31 |:X$(2)..(IN$,B,1|
00003A20: 29 00 47 42 54 02 58 31 B2 C6 28 58 24 28 31 29 |).GBT.X1..(X$(1)|
00003A30: AA C7 28 30 29 29 3A 58 32 B2 C6 28 58 24 28 32 |..(0)):X2..(X$(2|
00003A40: 29 AA C7 28 30 29 29 00 62 42 55 02 8B 20 58 31 |)..(0)).bBU.. X1|
00003A50: B3 B1 58 32 20 A7 20 41 B2 41 AA 31 3A 89 20 35 |..X2 . A.A.1:. 5|
00003A60: 39 34 00 72 42 56 02 41 B2 41 AA 31 3A 42 B2 42 |94.rBV.A.A.1:B.B|
00003A70: AA 31 00 84 42 57 02 8B 20 42 B1 49 4E 4C 20 A7 |.1..BW.. B.INL .|
00003A80: 20 36 30 32 00 95 42 58 02 8B 20 41 B1 46 4C 20 | 602..BX.. A.FL |
00003A90: A7 20 36 30 33 00 9F 42 59 02 89 20 35 39 35 00 |. 603..BY.. 595.|
00003AA0: B1 42 5A 02 43 B2 43 AA 31 3A 53 45 28 43 29 B2 |.BZ.C.C.1:SE(C).|
00003AB0: 53 00 B9 42 5B 02 82 20 53 00 C7 42 5C 02 42 B2 |S..B[.. S..B\.B.|
00003AC0: 43 3A 89 20 35 32 31 00 E8 42 5D 02 8F 2A 2A 2A |C:. 521..B]..***|
00003AD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003AE0: 2A 2A 2A 2A 2A 2A 2A 2A 00 09 43 5E 02 8F 2A 20 |********..C^..* |
00003AF0: 46 49 4C 45 20 4E 41 4D 45 20 46 4F 52 20 52 45 |FILE NAME FOR RE|
00003B00: 41 44 2F 57 52 49 54 45 2A 00 2A 43 5F 02 8F 2A |AD/WRITE*.*C_..*|
00003B10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003B20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 6D 43 60 02 99 |**********.mC`..|
00003B30: 22 93 50 4C 45 41 53 45 20 54 59 50 45 20 49 4E |".PLEASE TYPE IN|
00003B40: 20 4E 41 4D 45 20 4F 46 20 46 49 4C 45 22 3A 99 | NAME OF FILE":.|
00003B50: 22 11 28 55 50 20 54 4F 20 31 36 20 43 48 41 52 |".(UP TO 16 CHAR|
00003B60: 41 43 54 45 52 53 20 4C 4F 4E 47 29 22 00 7A 43 |ACTERS LONG)".zC|
00003B70: 61 02 85 20 22 11 22 3B 41 24 00 97 43 62 02 8B |a.. ".";A$..Cb..|
00003B80: 20 41 24 B2 22 22 20 B0 20 C3 28 41 24 29 B1 31 | A$."" . .(A$).1|
00003B90: 36 20 A7 20 36 30 38 00 A6 43 63 02 46 49 4C 45 |6 . 608..Cc.FILE|
00003BA0: 24 B2 41 24 3A 8E 00 AC 43 64 02 8E 00 BC 43 65 |$.A$:...Cd....Ce|
00003BB0: 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 CC 43 66 |..**********..Cf|
00003BC0: 02 8F 2A 45 4E 44 20 50 52 4F 47 2A 00 DC 43 67 |..*END PROG*..Cg|
00003BD0: 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 23 44 68 |..**********.#Dh|
00003BE0: 02 99 22 93 1D 1D 1D 1D 1D 1D 41 52 45 20 59 4F |..".......ARE YO|
00003BF0: 55 20 53 55 52 45 3F 59 2F 4E 22 3A 99 22 11 1D |U SURE?Y/N":."..|
00003C00: 1D 1D 1D 1D 1D 48 41 56 45 20 59 4F 55 20 53 41 |.....HAVE YOU SA|
00003C10: 56 45 44 2F 52 45 50 4C 41 43 45 44 20 44 41 54 |VED/REPLACED DAT|
00003C20: 41 3F 22 00 3B 44 69 02 A1 20 41 51 24 3A 8B 20 |A?".;Di.. AQ$:. |
00003C30: 41 51 24 B2 22 4E 22 20 A7 32 37 00 4F 44 6A 02 |AQ$."N" .27.ODj.|
00003C40: 8B 20 41 51 24 B3 B1 22 59 22 A7 20 36 31 36 00 |. AQ$.."Y". 616.|
00003C50: 9C 44 6B 02 97 35 33 32 37 32 2C 32 31 3A 99 22 |.Dk..53272,21:."|
00003C60: 93 45 4E 44 20 4F 46 20 53 49 44 45 20 31 2E 20 |.END OF SIDE 1. |
00003C70: 54 55 52 4E 20 54 41 50 45 20 4F 56 45 52 2C 20 |TURN TAPE OVER, |
00003C80: 52 45 57 49 4E 44 2C 20 20 54 48 45 4E 20 54 55 |REWIND, THEN TU|
00003C90: 52 4E 20 4F 46 46 20 41 4E 44 22 3B 00 C7 44 6C |RN OFF AND";..Dl|
00003CA0: 02 99 22 20 4F 4E 20 41 4E 44 20 12 53 48 49 46 |.." ON AND .SHIF|
00003CB0: 54 2F 52 55 4E 92 20 46 4F 52 20 20 53 49 44 45 |T/RUN. FOR SIDE|
00003CC0: 20 54 57 4F 22 3A 80 00 00 00 | TWO":.... |
..&....*******************************.K
....* WRITTEN BY S.K. IBRAHIM *.P...
.* SIMPLE DATABASE PROG *......*
DATAKEEPER *......* (
C)1984 *......********
***********************......*INITIALISA
TION*......*****************************
*.=....*SPECIFY SIZE OF FILE:SET DIM*.A.
...******************************.Z....
FI$(8,150),SE(150). ....****************
****************.F....*SET UP COLOUR OF
BORDER/SCREEN*......********************
************...... 53280,11:. 53281,11.)
....*****************************.L....*
SPECIFY PRINT COLOUR(WHITE)*.O....******
***********************.X...."."......**
***************************......*INITIA
LLY N0 FILE IN MEMORY*......************
*****************.....FILE$.""......****
*************......*DATAKEEPER MENU*.3..
..*****************.T...."......
".T...."..... MENU:DATAKEEPE
R "......"..... "....
.."....(1)CREATE FILE";.K...."...(2)ADD
NEW RECORD"... .."....(3)VIEW A RECORD";
...!..".(4)TAPE OPERATIONS".!.".."....(5
)DISK OPERATIONS".B.#.."....(6)PRINT REC
ORD/LABEL".C.$.."....(7)MODIFY RECORD/FI
LE"...%.."....(8)SEARCH FOR A RECORD/SOR
T FILE"...&.."....(9)END PROGRAM".O.'..
ADFILE.0 .."....DATA IN MEMORY"...(.."..
..PLEASE TYPE IN A NO. (1-9)"...)..*****
*******************.1.*..*CHECK USER REQ
UIREMENT*.O.+..************************.
T.,.. ME$:ME.E(ME$):. ME.1.ME.9 . 44...-
.. ME.9 . 614......******************...
/..*CALL SUBROUTINES*.M.0..*************
*****...1.. ME . 51,72,100,124,140,347,4
25,482...2.. 27...3..******************.
/.4..*CREATE NEW FILES*.G.5..***********
*******.B.6..".CREATING NEW FILES"...7..
"..HOW MANY FIELDS REQUIRED? MAX. 8"...8
..".SPACE BAR TO ABORT"...9.. TFI$:. TFI
$."". 57.S.:.. TFI$." " . ....;.TFI.E(TF
I$)...<.. TFI.1 . TFI.8 . 57...=.FI.TFI.
..>..*CLEAR FIELDS*.G.?.P$(1)."":P$(2)."
":P$(3)."":P$(4)."":P$(5)."":P$(6)."":P$
(7)."":P$(8)."".}.@..*GET NEW FIELDS*...
A..".PLEASE TYPE IN FIELDS,UP TO 9 CHARA
CTERS".J.B.. A.1 . FI:."FIELD ";A;.T.C..
TP$...D.TP.C(TP$):. TP.9 . 67...E.P$(A)
.TP$:TP$.""...F.. A...G...'.H..*********
*******.=.I..*ADD NEW RECORD*.S.J..*****
***********.E.K..*CHECK FILE*.U.L.. FI.0
. 80...M..".FILE HAS NOT BEEN BEEN CREA
TED"...N.. A.1 . 2000:.A...O...J.P.ADFIL
E.ADFILE.1...Q.. ADFILE.150 . ."....NO M
ORE ROOM":. 94...R.."..........RECORD NO
.:-";ADFILE.@.S.. A.1.FI:."...";P$(A).11
)G(58):..Y.T.. B.1 . FI:."...":.B.V.U..A
.1.FI:FI$(A,ADFILE).""...V.."...........
..";:. FI$(A,ADFILE).F.W.. FI$(A,ADFILE)
."". FI$(A,ADFILE)."<"...X..*SUM UP ASCI
I CODES + SEE 2130*...Y.AS.AS.F(FI$(A,AD
FILE))...Z.. A.5.[..*IF ALL FIELDS="<",D
ELETE RECORD*.V.\.. AS.FI.60 . ADFILE.AD
FILE.1._.].AS.0...^.."....TO CONTINUE PR
ESS ANY KEY"..._.."...SPACE BAR TO RETUR
N TO MENU".A.`.. AQ$:. AQ$."". 96.R.A..
AQ$." ". ....B.. 80...C.....D..*********
******...E..*VIEW A RECORD*. .F..*******
********.:.G..*ASK FOR RECORD NO.*.W.H..
".WHICH RECORD NO.";WR$.R.I.WR.E(WR$):.
WR.1 . 104...J.. WR.0 . WR.ADFILE . 112.
..K..*PRINT RECORD DETAILS*.I.L.."......
.RECORD NO.:-";WR...M.. A.1 . FI:ATEMP$.
FI$(A,WR)...N.. ATEMP$."<" . ATEMP$."".;
.O.."...";P$(A).11)G(58):.".............
.";ATEMP$:..C.P..".....PRESS SPACE BAR T
O CONTINUE"...Q.."....+ TO SCROLL FORWAR
D.....................- TO SCROLL BACKWA
RD"...R.."....OTHERWISE PRESS ANY KEY TO
CONTINUE ....VIEW"...S.. AQ$:. AQ$."".
115...T.. AQ$." ". ..,.U.. AQ$.."+" . AQ
$.."-" . 104.P.V.. AQ$."+". WR.(ADFILE).
WR.WR.1.N.W.. AQ$."-". WR.1 . WR.WR.1..
.X.. WR.ADFILE . WR.ADFILE...Y.. ADFILE.
0 . 115...Z.. 108...{...F.|..***********
******...}..*TAPE OPERATIONS*...~..*****
************.....*MENU*......".....TAPE
OPERATIONS".<...."....(1)SAVE/REPLACE F
ILE".T...."....(2)LOAD FILE".V...."....(
3)RETURN TO MAIN MENU"...... ADFILE.0 ..
"....DATA IN MEMORY".A...."....PLEASE TY
PE IN A NO.(1-3)"...... MET$:MET.E(MET$)
:. MET.1 . MET.3 . 134...... MET.3 . ...
....*GET FILE NAME*...... 605.1.... MET
. 163,203.;.... 128.R....***************
**.I....*DISK OPERATIONS*......*********
********......*MENU*......".....DISK OPE
RATIONS".I...."....(1)SAVE/REPLACE FILE"
;......".(2)LOAD FILE"......"....(3)READ
DISK DIRECTORY"."...."....(4)RENAME FIL
E ON DISK".>...."....(5)VALIDATE DISK".`
...."....(6)DELETE FILE ON DISK"......".
...(7)FORMAT/RENAME DISK"......"....(8)R
ETURN TO MAIN MENU".I.... ADFILE.0 .."..
..DATA IN MEMORY"......"....PLEASE TYPE
IN A NO. (1-8)"...... MED$:MED.E(MED$):.
MED.1 . MED.8 . 155.,.... MED.8 . ..@..
.. MED.3 . . 605.H.... MED . 172,212,214
,306,315,321,328.R.... 144... ..********
************......*WRITE TO DISK/TAPE*..
....********************.U....**********
*****......*WRITE TO TAPE*......********
*******.4....".INSERT DATA TAPE.":."PRES
S A KEY WHEN READY.".P...."SPACE BAR TO
ABORT..".G.... AQ$:.AQ$."". 168.Y.... AQ
$." " . ....... 1,1,1,FILE$...... 65535.
.....***************.A....*WRITE TO DISK
*.V....***************......".INSERT DAT
A DISK INTO DRIVE"......".PRESS ANY KEY
WHEN READY".6....".SPACE BAR TO ABORT".N
.... AQ$:. AQ$."". 178._.... AQ$." ". ..
~.... 1,8,2,"@0:".FILE$.",S,W"......****
*****************......*WRITE COMMON TO
D&T*.O....*********************......*WR
ITE NO. OF FIELDS,FI*......1,FI;G(13);..
....*WRITE FIELDS*...... A.1 . FI:ATEMP$
.P$(A).K.... ATEMP$."" . ATEMP$."<".`...
.1,ATEMP$;G(13);.H.... A......*WRITE NO.
OF RECORDS IN FILE*......1,ADFILE;G(13)
;...A..*WRITE DATA*.F.B.. B.1 . ADFILE.U
.C.. A.1 . FI...D..1,FI$(A,B);G(13);...E
..A,B...F. 1:....G..********************
*.4.H..*READ FROM DISK/TAPE*.O.I..******
***************.E.J..****************.{.
K..*READ FROM TAPE*...L..***************
*.F.M..".INSERT DATA TAPE.":."PRESS A KE
Y WHEN READY."...N.."SPACE BAR TO ABORT.
."...O.. AQ$:.AQ$."". 207...P.. AQ$." "
. ....Q.. 1,1,0,FILE$.'.R.. 226.=.S..***
*************.S.T..*READ FROM DISK*.I.U.
.****************...V..".INSERT DATA DIS
K INTO DRIVE"...W..".PRESS ANY KEY WHEN
READY".I.X..".SPACE BAR TO ABORT"...Y..
AQ$:. AQ$."". 217...Z.. AQ$." ". .......
MED.3 . 251...... MED.4 . 312.(.... MED
.5 . 317.:.... MED.6 . 325.L.... MED.7 .
341.J.... 1,8,2,"0:".FILE$.",S,R"......
********************......*READ COMMON T
O D&T*......********************.E...A.0
:FI.0......*READ NO. OF FIELDS*......1,F
I......*READ IN FIELDS*.. ..A.A.1.- ...1
,P$(A):. P$(A)."<" . P$(A)."".A ... ST..
0 . 1:..R ... A.FI . 232.P ...*READ IN
NO. OF RECORDS*.~ ...1,ADFILE.. ...*REA
D IN DATA*.. ..B.0.. ..B.B.1.. ..A.0.. .
.A.A.1.F ...1,FI$(A,B).Y ... ST..0 . 1:
... ... A.FI . 242.. ... B.ADFILE . 240.
.!.. 1:...!...*****************.6!...*DI
SK DIR READER*.M!...*****************.A!
... 1,8,2,"$,S,R".P!... L.1 . 71.~!...#1
,A$,A$..!... ST..0 . 1:."DISK ERROR":.
292..!... L..!..T$(1)."SEQ":T$(2)."PRG":
T$(3)."USR":T$(4)."REL"..!...*GET DISK N
AME*.."..I.17:. 298.."..DNAME$.TEMP$.'".
..*GET DISK ID*.5"..I.2:. 298.D"..DID$.T
EMP$.Y"...*GET OP SYSTEM*.G"..I.2:. 298.
U"..OS$.TEMP$.."...*GET REST OF BLOCK,NO
T USED*.."... L.1 . 44:.#1,A$,A$:.L.."..
.".DISK NAME:"DNAME$,"ID:"DID$,"OS:"OS$.
."..LT.0..#...*GET DETAILS OF FILE*..#..
.*GET FILE TYPE ,TY$*.9#... A.1 . 8:.#1,
TY$,A$,A$.Q#... ST..0 . 1:. 291.D#...
TY$.."". 277.~#... L.1 . 27:.#1,A$:. L..
#... 287..#...*GET FILE NAME*..#..I.15:.
298..#..N$.TEMP$.P#...*GET FILE LENGTH*
..#... L.1 . 9:.#1,A$:...#...#1,L$,H$.!$
..L.F(L$.G(0)).256.F(H$.G(0)):. L.0 . 28
7.-$..LT.LT.L.B$...*PRINT DETAILS*._$...
N$.20)T$(F(TY$).128),L.U$... A.8 . .#1,
A$,A$.}$ .. A..$!..*CONTINUE WITH DIR*.
$".. 270.C$#..".NO. OF BLOCKS FREE:";664
.LT..$$.."..TO READ DISK DIR AGAIN PRESS
ANY KEY"..%%..".SPACE BAR TO RETURN TO
MENU"..%&.. AQ$:. AQ$."" . 294.@%'.. AQ$
." " . ..J%(.. 251.D%)..*STRING CONSTRUC
TOR*.Q%*.TEMP$."".%+.. B.0 . I..%,..#1,
B$:. B$..G(160). TEMP$.TEMP$.B$..%-.. B.
.%....E%/..**********.U%0..*DISK CMD*..%
1..**********..&2..*RENAME FILE ON DISK*
..&3..".RENAMING FILE ON DISK".E&4..".PL
EASE TYPE IN OLD NAME";OLNAM$.]&5..".NEW
NAME";NENAM$..&6.A.C(NENAM$):. A.16 . .
".NAME TOO LONG!!":. 309..&7.. 214.D&8..
15,8,15:.15,"R0:".NENAM$."=".OLNAM$.M&9
. 15.S&:....&;..*VALIDATE DISK*..&<.. 2
14..'=..".VALIDATING DISK". '>.. 15,8,15
:.15,"V".)'?. 15./'@...J'A..*DELETE FIL
E ON DISK*.B'B..".DELETING A FILE".~'C..
".NAME OF FILE";DFILE$..'D.. 214..'E.. 1
5,8,15:.15,"S0:".DFILE$..'F. 15..'G...P
'H..*FORMAT/RENAME DISK*..'I..".FORMATTI
NG(1) OR RENAMING(2) DISK ?".9(J..".WARN
ING-ABOVE COMMANDS ERASES FILES ON
DISK".O(K.. Q$:. Q$."". 331.M(L.Q.E(
Q$):. Q.1 . Q.2 . 331..(M..".NAME OF DIS
K";DNAM$..(N.DNL.C(DNAM$):. DNL.16 . .".
NAME TOO LONG!!":. 333..(O.. DNL.1 . .".
NAME?!":.333..(P.. Q.2 . 340..)Q..".ID O
F DISK";DID$.7)R.DIDL.C(DID$):. DIDL.2 .
.".ID TOO LONG!!":.337.T)S.. DIDL.1 . .
".ID?!":.337.^)T.. 214.L)U.. 15,8,15.|)V
.. Q.2 . 345..)W..15,"N0:".DNAM$.",".DID
$..)X. 15:...)Y..15,"N0:".DNAM$.C)Z. 1
5:...)[..********************..)\..*PRIN
T RECORD/LABEL*..*]..*******************
*.A*^.. FI.0 . 77:. IF NO FILES HAVE BEE
N CREATED.M*_..*MENU*.H*`..".....PRINTER
OUTPUT"..*A.."....(1)PRINT RECORD SELEC
TIVE"..*B.."....(2)PRINT ALL RECORDS".Q*
C.."....(3)PRINT LABEL SELECTIVE"..*D.."
....(4)PRINT ALL LABELS"..+E.."....(5)RE
TURN TO MAIN MENU".6+F.."..PLEASE TYPE I
N A NO. (1-5)".A+G..".* PLEASE ENSURE TH
AT PRINTER IS ON"..+H.."..AND THAT PAPER
IS IN PRINTER"..+I.. MEP$:MEP.E(MEP$):.
MEP.1 . MEP.5 . 361.D+J.. MEP.5 . ...+K
.. MEP . 366,376,385,394..+L.. 352..,M..
*PRINT RECORD SELECTIVE*.0,N..".PRINT RE
CORD NO.(0 TO STOP)";WR$.U,O.WR.E(WR$):.
WR.1 . WR.ADFILE . .._,P.. 406.I,Q.. 36
6.S,R.. 4,4..,S.. W.1 . 2:.4," ":...,T..
4,G(14);.6)"FILE NAME:";FILE$.G,U..4,.6)
"RECORD NO.";WR.T,V..4,G(15)..,W..*PRINT
ALL RECORDS*..-X..".PRINTING ALL RECORD
S"."-Y..".PRESS S TO STOP".6-Z.. WR.1 .
ADFILE.V-{.. 406:. GO TO PRINT ROUTINE.T
-|.. A$:. A$."S" . WR.ADFILE.}-}.. WR..-
~..:. RETURN TO MENU..-.. 352..-...*PRI
NT LABEL*.Y-...".PRINT RECORD NO.(0 TO S
TOP)";WR$..-..WR.E(WR$):. WR.1 . WR.ADFI
LE . ..(....".HOW MANY FIELDS TO PRINT,1
-";FI"?".:....".0 TO STOP".S.... AQ$:. A
Q$."" . 389.P...B.E(AQ$):. B.1 .B.FI . .
...... 419:. GO TO PRINT ROUTINE...... 3
85......*PRINT ALL LABELS*.N....".PRINTI
NG ALL LABELS"......".HOW MANY FIELDS TO
PRINT,1-";FI;"?"../...".0 TO ABORT".%/.
.. AQ$:. AQ$."" . 397.C/..B.E(AQ$):. B.1
. B.FI . ..[/...".PRESS S TO STOP".O/..
. WR.1 . ADFILE../... 419:. GO TO PRINT
ROUTINE../... A$:. A$."S". WR.ADFILE../.
.. WR.L/...:. RETURN TO MENU../...*PRINT
RECORD*../... 4,4..0... W.1 . 2:.4," ":
..$0...4,G(14);.6)"FILE NAME:";FILE$.>0.
..4,.6)"RECORD NO.";WR.K0...4,G(15).B0..
. W.1 . 2:.4," ":...0... A.1 . FI:ATEMP$
.FI$(A,WR):B.C(P$(A))..0... ATEMP$."<" .
ATEMP$."".K0...4,.3)P$(A).15.B)ATEMP$G(
10).Q0.....0 .. W.1 . 3:.4," ":...0...4:
4:...1...*PRINT LABEL ROUTINE*..1...4,4
:.4," ".V1... A.1 . B:ATEMP$.FI$(A,WR):.
ATEMP$."<". ATEMP$."".G1...4,.2)ATEMP$.
O1... A.Z1...4," "..1...4: 4:...1...****
******************..1...*MODIFY/DELETE R
ECORD*.Z1...**********************..1...
*MENU*..2...".....MODIFY/DELETE"..2...".
...(1)MODIFY RECORD".:2..."....(2)DELETE
A RECORD".[2..."....(3)DELETE ALL RECOR
DS".X2..."....(4)DELETE A FIELD"..2...".
...(5)RETURN TO MAIN MENU"..2..."....PLE
ASE TYPE IN A NO.(1-5)"..2... MEM$:MEM.E
(MEM$):. MEM.1 . MEM.5 . 436..2... MEM.5
. ...3... MEM . 441,459,470,473."3... 4
29.73...*MODIFY RECORD*.P3...".STATE REC
ORD NO.".S3...".0 TO RETURN TO MENU.":.
WR$..3... WR$."0". ...3..WR.E(WR$):. WR.
1 . WR.ADFILE . 441.G3...".......RECORD
NO.";WR..3... A.1.FI:ATEMP$.FI$(A,WR)..4
... ATEMP$."<". ATEMP$."".+4..."...";P$(
A):."..............";ATEMP$.14A...I4B..
A.1.FI:."...":. A.P4C.. A.1.FI:.".......
.....";FI$(A,WR).V4D....4E.."....TO CONT
INUE PRESS ANY KEY".A4F.."...SPACE BAR T
O RETURN TO MENU".Y4G.. AQ$:. AQ$."". 45
5..4H.. AQ$." ". ...4I.. 441..5J..*DELET
E A RECORD*.75K..".DELETE WHICH RECORD(0
TO ABORT)";WR$.\5L.WR.E(WR$):. WR.1 . W
R.ADFILE . ...5M..*MOVE UP ALL RECORDS A
FTER WR$*..5N.. WR.ADFILE . 467..5O.. B.
WR . (ADFILE.1)..5P.. A.1 . FI.V5Q.FI$(A
,B).FI$(A,B.1)..5R.. A,B..5S.ADFILE.ADFI
LE.1..5T.. 459..6U..*DELETE ALL RECORDS*
.J6V..".DELETE ALL RECORDS? Y/N";AQ$:. A
Q$."N" . ..Y6W.ADFILE.0:..M6X..*DELETE F
IELD*..6Y..".DELETING FIELD:WHICH RECORD
";WR$..6Z.WR.E(WR$):. WR.1 . WR.ADFILE .
..Z6... A.1 . FI:.".";A;P$(A):. A..6...
".FIELD TO DELETE"..7...".0 TO ABORT"..7
... AQ$:. AQ$."". 478.>7..AQ.E(AQ$):. AQ
.1 . AQ.FI . ..Q7..FI$(AQ,WR)."<".[7...
473..7...*******************************
..7...*SEARCH FOR A RECORD/SORT FILE*.J7
...*******************************.Z7...
FI.0 . 77..8...".SEARCHING(1) OR SORTIN
G(2)? 1/2".&8...".SPACE BAR TO RETURN TO
MENU".?8... AQ$:. AQ$."". 488.P8... AQ
$." ". ..C8... AQ$."2". 548.W8... AQ$.."
1". 488..8...*ASK FOR INFORMATION*..8..I
N$."":."."..8... A.1.FI:.".";A;P$(A):...
8..."....WHICH DO YOU KNOW 1-";FI..8...
AQ$:. AQ$."". 496..9..AQ.E(AQ$):. AQ.1 .
AQ.FI . 496.F9..."....WHAT IS YOUR INFO
RMATION":. IN$._9...*GET LENGTH OF IN$*.
R9..INL.C(IN$):B.0..9...ADFILE.0..".NO R
ECORDS IN MEMORY!!":.A.1 . 1000:.:..W9..
.".FIXED SEARCH(1) OR FLEXI-SEARCH(2)?".
.9... Q$:. Q$."". 503..:..Q.E(Q$):. Q..1
. Q..2 . 503.::..."...SEARCHING THROUGH
FILE":. Q.2 . 589.N:...*FIXED SEARCH*.R
:... S.1 . ADFILE:A$.FI$(AQ,S):A.1..:..X
$(1).J(A$,A,1)..:..X$(2).J(IN$,A,1)..:..
X1.F(X$(1).G(0)).E:..X2.F(X$(2).G(0)).X:
... X1..X2 . 520..:... X1.X2 . A.A.1..;.
..*WHEN FINISHED COMPARING*.*;...*RETURN
*.<;... A.INL . 518.F;.
.. 508.P;..B.B.1.\;..SE(B).S.D;... S..;.
..".THERE ARE";B;"RECORDS CONTAINING"..;
... IN$:.".":.B.0. 529..;... A.1 . B . 9
:D.0.Z;... C.A . A.8:. C.150 . 527..;...
.D)SE(C);..;..D.D.4..<... C:.:. A:..&<..
.".WHICH DO YOU WANT TO VIEW?".[<..."0
TO RETURN TO MENU":."S TO DO SEARCH AGA
IN".R<..."P TO PRINT LIST"..<... WR$:. W
R$."0". ...<... WR$."S". 493..<... WR$."
P" . 538..<... 105.D<... 521.J<.....<...
*LIST TO PRINTER*..<... 4,4..<... A.1 .
B . 6..=... C.A . A.5:. C.150 . 542.)=..
.4,SE(C),.>=... C:.4,G(13):. A.E=.. 4.O=
.. 531.~=!..***************************
**************..="..*SORT FILE ALPHABETI
CAL/NUMERICAL ORDER*..=#..**************
***************************..>$..".WHICH
FIELD TO USE WHEN SORTING?1-";FI..>%..
AQ$:.AQ$."".549.B>&.AQ.E(AQ$):. AQ.1 . A
Q.FI . 549.T>'.. C.1 . 2:Y.1.]>(.B.AQ.R>
)..".SORTING FILE"..>*..*COMPARE TWO REC
ORDS AT A TIME*..>+.. S.1 . (ADFILE.Y).G
>,.A.1:R1.S:R2.S.1:EX.0..>-..*GET CHARAC
TER FROM SPECIFIED FIELD*..?..A$(1).FI$(
B,R1)..?/.A$(2).FI$(B,R2).0?0.N$(1).J(A$
(1),A,1).G?1.N$(2).J(A$(2),A,1).\?2.N1.F
(N$(1).G(0)).Q?3.N2.F(N$(2).G(0))..?4..
N1.N2 . 574..?5.. N1.N2 . 581..?6..*IF C
HARACTERS THE SAME THEN*..?7..*GET NEXT
ONES *..?8.A.A.1..@9..*IF
A>FIELD LENGTH ,NEXT SET*.-@:..*OF RECO
RDS *.>@;.. A.24 . 581.H
@<.. 560.B@=..*SWAP RECORDS ROUND*.K@>.E
X.1.Z@?.. X.1 . FI..@@.ATEMP$.FI$(X,R1).
.@A.FI$(X,R1).FI$(X,R2)..@B.FI$(X,R2).AT
EMP$.D@C.. X..@D..*CONTINUE WITH SORT*..
@E.. S..AF.Y.Y.1:. Y.ADFILE . EX.1 . Y.1
..AG.. Y.ADFILE . ..9AH..*DO SORT RUN AG
AIN ONLY*.WAI..*IF EX=1 SEE 14710 *.
HAJ.. EX.1 . 555.PAK.. C.VAL....AM..****
**********..AN..*FLEXI-SEARCH*..AO..****
**********..AP.C.0..AQ.. S.1 . ADFILE:A$
.FI$(AQ,S):A.1:FL.C(A$)..AR.B.1:. A.FL .
603.!BS.X$(1).J(A$,A,1):X$(2).J(IN$,B,1
).GBT.X1.F(X$(1).G(0)):X2.F(X$(2).G(0)).
BBU.. X1..X2 . A.A.1:. 594.RBV.A.A.1:B.B
.1..BW.. B.INL . 602..BX.. A.FL . 603..B
Y.. 595..BZ.C.C.1:SE(C).S..B[.. S.GB\.B.
C:. 521..B]..***************************
..C^..* FILE NAME FOR READ/WRITE*.*C_..*
**************************.MC`..".PLEASE
TYPE IN NAME OF FILE":.".(UP TO 16 CHAR
ACTERS LONG)".ZCA.. ".";A$..CB.. A$."" .
C(A$).16 . 608..CC.FILE$.A$:...CD....CE
..**********.LCF..*END PROG*..CG..******
****.#DH..".......ARE YOU SURE?Y/N":."..
.....HAVE YOU SAVED/REPLACED DATA?".;DI.
. AQ$:. AQ$."N" .27.ODJ.. AQ$.."Y". 616.
.DK..53272,21:.".END OF SIDE 1. TURN TAP
E OVER, REWIND, THEN TURN OFF AND";.GDL
.." ON AND .SHIFT/RUN. FOR SIDE TWO":..
..
> CLICK IMAGE PREVIEW FOR FULL MODAL