BETTER FILE
FILE INFORMATION
FILENAME(S): BETTER FILE
FILE TYPE(S): PRG
FILE SIZE: 10.8K
FIRST SEEN: 2025-12-01 01:48:24
APPEARS ON: 1 disk(s)
FILE HASH
d7bc257028b0b638d332057930831470de4107643c8b1d08d4c399c7863aac11
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CCS 64 1 | BETTER FILE | PRG | hedning, Mattias H00r | 21 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 15 08 01 00 8F 2A 42 45 54 54 45 52 20 46 |.......*BETTER F|
00000010: 49 4C 45 2A 2A 00 43 08 02 00 97 20 35 39 34 36 |ILE**.C.... 5946|
00000020: 38 2C 31 32 20 3A 50 B2 30 20 3A 8B C2 28 35 30 |8,12 :P.0 :..(50|
00000030: 30 30 33 29 B3 B1 31 36 30 A7 97 35 33 32 37 32 |003)..160..53272|
00000040: 2C 32 31 00 6B 08 03 00 8F 2A 42 41 53 45 44 20 |,21.k....*BASED |
00000050: 4F 4E 20 44 49 53 4B 20 50 48 4F 4E 4F 2D 50 48 |ON DISK PHONO-PH|
00000060: 49 4C 45 20 28 54 50 55 47 29 2A 00 AC 08 04 00 |ILE (TPUG)*.....|
00000070: 8F 2A 20 52 45 2D 57 52 49 54 54 45 4E 20 42 59 |.* RE-WRITTEN BY|
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 52 2E 45 2E | R.E.|
000000A0: 42 59 45 52 53 20 31 39 38 33 2A 2A 00 D9 08 05 |BYERS 1983**....|
000000B0: 00 8B C2 28 35 30 30 30 33 29 B3 B1 31 36 30 A7 |...(50003)..160.|
000000C0: 38 3A 8F 2A 20 53 4B 49 50 20 20 4D 4C 20 49 46 |8:.* SKIP ML IF|
000000D0: 20 4E 4F 54 20 50 45 54 2A 00 EE 08 06 00 99 22 | NOT PET*......"|
000000E0: 93 11 11 53 54 41 4E 44 20 42 59 2E 22 3B 00 F7 |...STAND BY.";..|
000000F0: 08 07 00 8D 33 39 33 00 3E 09 08 00 4E B2 30 3A |....393.>...N.0:|
00000100: 4A B2 30 3A 46 4C 41 47 B2 30 3A 8F 2A 49 46 20 |J.0:FLAG.0:.*IF |
00000110: 55 53 49 4E 47 20 4F 4E 4C 59 20 4F 4E 20 43 3D |USING ONLY ON C=|
00000120: 36 34 20 4C 49 4E 45 53 20 33 39 30 30 2B 20 4D |64 LINES 3900+ M|
00000130: 41 59 20 42 45 20 44 45 4C 45 54 45 44 2A 00 79 |AY BE DELETED*.y|
00000140: 09 09 00 86 20 46 46 24 28 32 31 35 29 3A 86 5A |.... FF$(215):.Z|
00000150: 49 24 28 31 30 29 3A 8F 20 2A 2A 2A 2A 20 4E 55 |I$(10):. **** NU|
00000160: 4D 42 45 52 20 4F 46 20 41 4C 4C 4F 57 41 42 4C |MBER OF ALLOWABL|
00000170: 45 20 52 45 43 4F 52 44 53 00 90 09 0A 00 42 4C |E RECORDS.....BL|
00000180: 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 22 |$." "|
00000190: 00 D0 09 0B 00 99 22 93 11 11 45 4E 54 45 52 20 |......"...ENTER |
000001A0: 54 4F 2D 44 41 59 27 53 20 44 41 54 45 20 28 4D |TO-DAY'S DATE (M|
000001B0: 4F 4E 2F 44 44 2F 59 29 22 3A 99 22 11 28 4D 41 |ON/DD/Y)":.".(MA|
000001C0: 58 2E 20 39 20 43 48 41 52 41 43 54 45 52 53 29 |X. 9 CHARACTERS)|
000001D0: 00 E6 09 0C 00 5A 4C B2 39 3A 8D 33 32 38 3A 44 |.....ZL.9:.328:D|
000001E0: 54 24 B2 5A 49 24 00 EF 09 0D 00 89 33 35 38 00 |T$.ZI$......358.|
000001F0: FF 09 0E 00 8F 20 2A 2A 2A 2A 20 4D 45 4E 55 00 |..... **** MENU.|
00000200: 29 0A 0F 00 99 22 93 11 11 1D 1D 12 42 45 54 54 |)...."......BETT|
00000210: 45 52 20 46 49 4C 45 20 28 52 2E 45 2E 42 59 45 |ER FILE (R.E.BYE|
00000220: 52 53 20 31 39 38 33 29 22 00 4A 0A 10 00 99 20 |RS 1983)".J.... |
00000230: A3 35 29 20 22 11 11 31 2E 20 41 44 44 20 49 4E |.5) "..1. ADD IN|
00000240: 46 4F 52 4D 41 54 49 4F 4E 22 00 60 0A 11 00 99 |FORMATION".`....|
00000250: 20 A3 35 29 20 22 11 32 2E 20 53 45 41 52 43 48 | .5) ".2. SEARCH|
00000260: 00 80 0A 12 00 99 20 A3 35 29 20 22 11 33 2E 20 |...... .5) ".3. |
00000270: 53 41 56 45 20 49 4E 46 4F 52 4D 41 54 49 4F 4E |SAVE INFORMATION|
00000280: 00 A0 0A 13 00 99 20 A3 35 29 20 22 11 34 2E 20 |...... .5) ".4. |
00000290: 4C 4F 41 44 20 49 4E 46 4F 52 4D 41 54 49 4F 4E |LOAD INFORMATION|
000002A0: 00 BF 0A 14 00 99 20 A3 35 29 20 22 11 35 2E 20 |...... .5) ".5. |
000002B0: 4D 41 4E 49 50 55 4C 41 54 45 2F 53 4F 52 54 00 |MANIPULATE/SORT.|
000002C0: D4 0A 15 00 99 20 A3 35 29 20 22 11 36 2E 20 50 |..... .5) ".6. P|
000002D0: 52 49 4E 54 00 E8 0A 16 00 99 20 A3 35 29 20 22 |RINT...... .5) "|
000002E0: 11 37 2E 20 51 55 49 54 00 F2 0A 17 00 8D 20 32 |.7. QUIT...... 2|
000002F0: 36 35 00 13 0B 18 00 8B 20 4B 45 59 24 B3 22 31 |65...... KEY$."1|
00000300: 22 20 B0 20 4B 45 59 24 B1 22 37 22 20 A7 20 89 |" . KEY$."7" . .|
00000310: 20 32 33 00 29 0B 19 00 8B 20 4B 45 59 24 B2 22 | 23.).... KEY$."|
00000320: 37 22 20 A7 20 89 20 32 38 00 4E 0B 1A 00 91 20 |7" . . 28.N.... |
00000330: C5 28 4B 45 59 24 29 20 8D 20 33 33 2C 35 31 2C |.(KEY$) . 33,51,|
00000340: 38 34 2C 31 30 35 2C 31 32 38 2C 32 34 39 00 57 |84,105,128,249.W|
00000350: 0B 1B 00 89 20 31 35 00 66 0B 1C 00 8B 46 4C 41 |.... 15.f....FLA|
00000360: 47 B2 31 A7 33 31 00 A7 0B 1D 00 99 22 93 11 12 |G.1.31......"...|
00000370: 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 20 53 |DO YOU WISH TO S|
00000380: 41 56 45 20 59 4F 55 52 20 46 49 4C 45 20 46 49 |AVE YOUR FILE FI|
00000390: 52 53 54 20 20 20 20 20 20 28 59 2F 4E 29 3F 20 |RST (Y/N)? |
000003A0: 20 22 3A 8D 32 36 35 00 B8 0B 1E 00 8B 4B 45 59 | ":.265......KEY|
000003B0: 24 B2 22 59 22 A7 31 35 00 BE 0B 1F 00 80 00 C4 |$."Y".15........|
000003C0: 0B 20 00 80 00 DF 0B 21 00 8F 20 2A 2A 2A 2A 20 |. .....!.. **** |
000003D0: 41 44 44 20 49 4E 46 4F 52 4D 41 54 49 4F 4E 00 |ADD INFORMATION.|
000003E0: E9 0B 22 00 4E B2 4E AA 31 00 03 0C 23 00 99 22 |..".N.N.1...#.."|
000003F0: 93 11 12 41 44 44 20 49 4E 46 4F 52 4D 41 54 49 |...ADD INFORMATI|
00000400: 4F 4E 22 00 0D 0C 24 00 8D 20 32 38 33 00 23 0C |ON"...$.. 283.#.|
00000410: 25 00 8B 20 4B 45 59 24 B2 22 59 22 20 A7 20 89 |%.. KEY$."Y" . .|
00000420: 20 34 30 00 2D 0C 26 00 99 22 13 11 22 00 36 0C | 40.-.&.."..".6.|
00000430: 27 00 89 20 33 36 00 4E 0C 28 00 8F 20 2A 2A 2A |'.. 36.N.(.. ***|
00000440: 2A 20 50 52 4F 43 45 53 53 20 4E 41 4D 45 00 54 |* PROCESS NAME.T|
00000450: 0C 29 00 3A 00 71 0C 2A 00 8F 20 55 53 45 20 46 |.).:.q.*.. USE F|
00000460: 49 58 45 44 20 46 49 45 4C 44 20 4C 45 4E 47 54 |IXED FIELD LENGT|
00000470: 48 00 7B 0C 2B 00 8D 20 32 39 37 00 8E 0C 2C 00 |H.{.+.. 297...,.|
00000480: 99 3A 99 20 22 12 22 20 46 46 24 28 4E 29 00 94 |.:. "." FF$(N)..|
00000490: 0C 2D 00 3A 00 C7 0C 2E 00 99 22 12 11 11 11 44 |.-.:......"....D|
000004A0: 4F 20 59 4F 55 20 48 41 56 45 20 46 55 52 54 48 |O YOU HAVE FURTH|
000004B0: 45 52 20 49 4E 46 4F 52 4D 41 54 49 4F 4E 20 54 |ER INFORMATION T|
000004C0: 4F 20 41 44 44 3F 22 00 D1 0C 2F 00 8D 20 32 36 |O ADD?".../.. 26|
000004D0: 35 00 E8 0C 30 00 3A 8B 20 4B 45 59 24 B2 22 4E |5...0.:. KEY$."N|
000004E0: 22 20 A7 20 89 20 35 30 00 FF 0C 31 00 3A 8B 20 |" . . 50...1.:. |
000004F0: 4B 45 59 24 B2 22 59 22 20 A7 20 89 20 33 33 00 |KEY$."Y" . . 33.|
00000500: 05 0D 32 00 8E 00 17 0D 33 00 8F 20 2A 2A 2A 2A |..2.....3.. ****|
00000510: 20 53 45 41 52 43 48 00 28 0D 34 00 99 22 93 11 | SEARCH.(.4.."..|
00000520: 12 53 45 41 52 43 48 22 00 52 0D 35 00 99 22 4F |.SEARCH".R.5.."O|
00000530: 55 54 50 55 54 20 54 4F 20 31 2E 53 43 52 45 45 |UTPUT TO 1.SCREE|
00000540: 4E 20 4F 52 20 32 2E 50 52 49 4E 54 45 52 20 20 |N OR 2.PRINTER |
00000550: 22 3B 00 60 0D 36 00 85 22 31 9D 9D 9D 22 3B 50 |";.`.6.."1...";P|
00000560: 00 88 0D 37 00 99 22 11 59 4F 55 20 4D 41 59 20 |...7..".YOU MAY |
00000570: 4C 4F 4F 4B 20 49 4E 20 46 49 45 4C 44 23 31 2E |LOOK IN FIELD#1.|
00000580: 20 22 3B 45 24 28 31 29 00 B1 0D 38 00 99 22 11 | ";E$(1)...8..".|
00000590: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000005A0: 1D 46 49 45 4C 44 23 32 2E 20 22 3B 45 24 28 32 |.FIELD#2. ";E$(2|
000005B0: 29 00 DA 0D 39 00 99 22 11 1D 1D 1D 1D 1D 1D 1D |)...9.."........|
000005C0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 46 49 45 4C 44 23 |..........FIELD#|
000005D0: 33 2E 20 22 3B 45 24 28 33 29 00 03 0E 3A 00 99 |3. ";E$(3)...:..|
000005E0: 22 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
000005F0: 1D 1D 1D 46 49 45 4C 44 23 34 2E 20 22 3B 45 24 |...FIELD#4. ";E$|
00000600: 28 34 29 00 2C 0E 3B 00 99 22 11 1D 1D 1D 1D 1D |(4).,.;.."......|
00000610: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 46 49 45 4C |............FIEL|
00000620: 44 23 35 2E 20 22 3B 45 24 28 35 29 00 55 0E 3C |D#5. ";E$(5).U.<|
00000630: 00 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
00000640: 1D 1D 1D 1D 1D 46 49 45 4C 44 23 36 2E 20 22 3B |.....FIELD#6. ";|
00000650: 45 24 28 36 29 00 7E 0E 3D 00 99 22 11 1D 1D 1D |E$(6).~.=.."....|
00000660: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 46 49 |..............FI|
00000670: 45 4C 44 23 37 2E 20 22 3B 45 24 28 37 29 00 A7 |ELD#7. ";E$(7)..|
00000680: 0E 3E 00 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |.>.."...........|
00000690: 1D 1D 1D 1D 1D 1D 1D 46 49 45 4C 44 23 38 2E 20 |.......FIELD#8. |
000006A0: 22 3B 45 24 28 38 29 00 D2 0E 3F 00 99 22 11 59 |";E$(8)...?..".Y|
000006B0: 4F 55 20 4D 41 59 20 41 4C 53 4F 20 52 45 54 55 |OU MAY ALSO RETU|
000006C0: 52 4E 20 54 4F 20 54 48 45 20 12 4D 92 45 4E 55 |RN TO THE .M.ENU|
000006D0: 2E 22 00 F7 0E 40 00 99 22 11 12 50 52 45 53 53 |."...@.."..PRESS|
000006E0: 20 41 20 4E 55 4D 42 45 52 28 31 20 54 4F 20 38 | A NUMBER(1 TO 8|
000006F0: 29 4F 52 20 4D 2E 22 00 01 0F 41 00 8D 20 32 36 |)OR M."...A.. 26|
00000700: 35 00 1A 0F 42 00 8F 20 53 45 41 52 43 48 20 46 |5...B.. SEARCH F|
00000710: 4F 52 20 46 49 45 4C 44 23 2E 00 35 0F 43 00 8B |OR FIELD#..5.C..|
00000720: 20 4B 45 59 24 B3 22 31 22 B0 4B 45 59 24 B1 22 | KEY$."1".KEY$."|
00000730: 38 22 A7 38 32 00 5A 0F 44 00 53 45 B2 C5 28 4B |8".82.Z.D.SE..(K|
00000740: 45 59 24 29 3A 8F 2A 53 45 4C 45 43 54 20 46 49 |EY$):.*SELECT FI|
00000750: 45 4C 44 20 50 52 4F 4D 50 54 00 84 0F 45 00 46 |ELD PROMPT...E.F|
00000760: B2 28 53 45 AC 31 32 29 AB 31 31 3A 8F 20 53 45 |.(SE.12).11:. SE|
00000770: 4C 45 43 54 20 46 49 45 4C 44 20 54 4F 20 53 45 |LECT FIELD TO SE|
00000780: 41 52 43 48 00 93 0F 46 00 8B 53 45 B2 38 A7 46 |ARCH...F..SE.8.F|
00000790: B2 37 37 00 B3 0F 47 00 50 52 4F 4D 50 54 24 B2 |.77...G.PROMPT$.|
000007A0: 45 24 28 53 45 29 AA 22 20 54 4F 20 46 49 4E 44 |E$(SE)." TO FIND|
000007B0: 2E 2E 22 00 BC 0F 48 00 8D 32 36 39 00 CB 0F 49 |.."...H..269...I|
000007C0: 00 3A 81 20 49 B2 31 20 A4 20 4E 00 F1 0F 4A 00 |.:. I.1 . N...J.|
000007D0: 3A 20 20 8B 20 41 24 B3 B1 CA 28 46 46 24 28 49 |: . A$...(FF$(I|
000007E0: 29 2C 46 2C C3 28 41 24 29 29 20 A7 20 89 20 38 |),F,.(A$)) . . 8|
000007F0: 30 00 FF 0F 4B 00 3A 20 20 20 20 99 22 93 22 00 |0...K.: .".".|
00000800: 0E 10 4C 00 8B 50 B2 32 20 A7 8D 33 34 38 00 1D |..L..P.2 ..348..|
00000810: 10 4D 00 3A 20 20 20 20 8D 20 32 37 35 00 54 10 |.M.: . 275.T.|
00000820: 4E 00 3A 20 20 20 20 99 22 11 50 52 45 53 53 20 |N.: .".PRESS |
00000830: 41 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 |A KEY TO CONTINU|
00000840: 45 20 4F 52 20 12 4D 92 20 46 4F 52 20 4D 45 4E |E OR .M. FOR MEN|
00000850: 55 45 2E 22 00 70 10 4F 00 3A 20 20 20 20 8D 20 |UE.".p.O.: . |
00000860: 32 36 35 3A 8B 4B 45 59 24 B2 22 4D 22 A7 38 31 |265:.KEY$."M".81|
00000870: 00 79 10 50 00 3A 82 20 49 00 7F 10 51 00 8E 00 |.y.P.:. I...Q...|
00000880: 96 10 52 00 8B 20 4B 45 59 24 B3 B1 22 4D 22 20 |..R.. KEY$.."M" |
00000890: A7 20 89 20 35 32 00 9C 10 53 00 8E 00 BA 10 54 |. . 52...S.....T|
000008A0: 00 8F 20 2A 2A 2A 2A 20 52 45 43 4F 52 44 20 49 |.. **** RECORD I|
000008B0: 4E 46 4F 52 4D 41 54 49 4F 4E 00 DE 10 55 00 99 |NFORMATION...U..|
000008C0: 22 93 11 12 52 45 43 4F 52 44 20 49 4E 46 4F 52 |"...RECORD INFOR|
000008D0: 4D 41 54 49 4F 4E 20 4F 4E 20 44 49 53 4B 00 0B |MATION ON DISK..|
000008E0: 11 56 00 99 22 11 11 50 4C 41 43 45 20 59 4F 55 |.V.."..PLACE YOU|
000008F0: 52 20 44 41 54 41 20 44 49 53 4B 20 49 4E 20 44 |R DATA DISK IN D|
00000900: 49 53 4B 20 44 52 49 56 45 20 30 00 4C 11 57 00 |ISK DRIVE 0.L.W.|
00000910: 99 22 11 50 52 45 53 53 20 12 44 92 20 49 46 20 |.".PRESS .D. IF |
00000920: 59 4F 55 20 57 49 53 48 20 54 4F 20 44 41 54 45 |YOU WISH TO DATE|
00000930: 20 46 49 4C 45 20 57 49 54 48 20 20 20 20 54 4F | FILE WITH TO|
00000940: 2D 44 41 59 27 53 20 44 41 54 45 22 00 8F 11 58 |-DAY'S DATE"...X|
00000950: 00 99 22 11 50 52 45 53 53 20 12 4E 92 20 49 46 |..".PRESS .N. IF|
00000960: 20 59 4F 55 20 57 49 53 48 20 54 4F 20 47 49 56 | YOU WISH TO GIV|
00000970: 45 20 59 4F 55 52 20 46 49 4C 45 20 20 20 53 4F |E YOUR FILE SO|
00000980: 4D 45 20 4F 54 48 45 52 20 4E 41 4D 45 2E 22 00 |ME OTHER NAME.".|
00000990: AB 11 59 00 99 22 11 50 52 45 53 53 20 12 41 92 |..Y..".PRESS .A.|
000009A0: 20 54 4F 20 41 42 4F 52 54 2E 22 00 B5 11 5A 00 | TO ABORT."...Z.|
000009B0: 8D 20 32 36 35 00 CD 11 5B 00 3A 8B 20 4B 45 59 |. 265...[.:. KEY|
000009C0: 24 B2 22 41 22 20 A7 20 89 20 31 30 34 00 04 12 |$."A" . . 104...|
000009D0: 5C 00 8B 4B 45 59 24 B2 22 4E 22 A7 20 99 22 93 |\..KEY$."N". .".|
000009E0: 11 4E 41 4D 45 20 46 4F 52 20 46 49 4C 45 3F 20 |.NAME FOR FILE? |
000009F0: 22 3A 5A 4C B2 31 34 3A 8D 33 32 38 3A 44 54 24 |":ZL.14:.328:DT$|
00000A00: B2 5A 49 24 00 17 12 5D 00 3A 9F 31 35 2C 38 2C |.ZI$...].:.15,8,|
00000A10: 31 35 2C 22 49 30 22 00 23 12 5E 00 3A 20 8D 20 |15,"I0".#.^.: . |
00000A20: 33 32 31 00 41 12 5F 00 3A 9F 20 32 2C 38 2C 32 |321.A._.:. 2,8,2|
00000A30: 2C 22 30 3A 2D 22 AA 44 54 24 AA 22 2C 53 2C 57 |,"0:-".DT$.",S,W|
00000A40: 22 00 5D 12 60 00 81 58 B2 31 A4 38 3A 98 32 2C |".].`..X.1.8:.2,|
00000A50: 45 24 28 58 29 C7 28 31 33 29 3A 82 58 00 6A 12 |E$(X).(13):.X.j.|
00000A60: 61 00 3A 20 20 8D 20 33 32 31 00 7B 12 62 00 3A |a.: . 321.{.b.:|
00000A70: 20 20 81 20 4A B2 31 20 A4 20 4E 00 94 12 63 00 | . J.1 . N...c.|
00000A80: 3A 20 20 20 20 98 32 2C 46 46 24 28 4A 29 C7 28 |: .2,FF$(J).(|
00000A90: 31 33 29 3B 00 9F 12 64 00 3A 20 20 82 20 4A 00 |13);...d.: . J.|
00000AA0: B5 12 65 00 3A 20 20 98 32 2C 22 45 4F 44 22 C7 |..e.: .2,"EOD".|
00000AB0: 28 31 33 29 3B 00 BD 12 66 00 3A A0 32 00 CD 12 |(13);...f.:.2...|
00000AC0: 67 00 3A A0 31 35 3A 46 4C 41 47 B2 31 00 D3 12 |g.:.15:FLAG.1...|
00000AD0: 68 00 8E 00 EF 12 69 00 8F 20 2A 2A 2A 2A 20 52 |h.....i.. **** R|
00000AE0: 45 41 44 20 49 4E 46 4F 52 4D 41 54 49 4F 4E 00 |EAD INFORMATION.|
00000AF0: 1C 13 6A 00 99 22 93 57 48 49 43 48 20 44 49 53 |..j..".WHICH DIS|
00000B00: 4B 20 46 49 4C 45 20 44 4F 20 59 4F 55 20 57 49 |K FILE DO YOU WI|
00000B10: 53 48 20 54 4F 20 52 45 41 44 3F 22 00 45 13 6B |SH TO READ?".E.k|
00000B20: 00 99 22 11 1D 1D 45 47 2E 20 46 45 42 2F 33 2F |.."...EG. FEB/3/|
00000B30: 38 33 22 3A 5A 4C B2 39 3A 8D 33 32 38 3A 44 46 |83":ZL.9:.328:DF|
00000B40: 24 B2 5A 49 24 00 60 13 6C 00 99 22 93 12 11 20 |$.ZI$.`.l.."... |
00000B50: 52 45 41 44 20 49 4E 46 4F 52 4D 41 54 49 4F 4E |READ INFORMATION|
00000B60: 00 8A 13 6D 00 99 22 11 11 50 4C 41 43 45 20 59 |...m.."..PLACE Y|
00000B70: 4F 55 52 20 44 41 54 41 20 44 49 53 4B 20 49 4E |OUR DATA DISK IN|
00000B80: 20 44 52 49 56 45 20 30 2E 22 00 B7 13 6E 00 99 | DRIVE 0."...n..|
00000B90: 22 11 50 52 45 53 53 20 53 50 41 43 45 20 54 4F |".PRESS SPACE TO|
00000BA0: 20 43 4F 4E 54 49 4E 55 45 2E 20 50 52 45 53 53 | CONTINUE. PRESS|
00000BB0: 20 27 41 27 20 54 4F 00 C6 13 6F 00 99 22 11 41 | 'A' TO...o..".A|
00000BC0: 42 4F 52 54 2E 22 00 D0 13 70 00 8D 20 32 36 35 |BORT."...p.. 265|
00000BD0: 00 E8 13 71 00 3A 8B 20 4B 45 59 24 B2 22 41 22 |...q.:. KEY$."A"|
00000BE0: 20 A7 20 89 20 31 32 37 00 FB 13 72 00 3A 9F 31 | . . 127...r.:.1|
00000BF0: 35 2C 38 2C 31 35 2C 22 49 30 22 00 18 14 73 00 |5,8,15,"I0"...s.|
00000C00: 3A 9F 32 2C 38 2C 32 2C 22 30 3A 2D 22 AA 44 46 |:.2,8,2,"0:-".DF|
00000C10: 24 AA 22 2C 53 2C 52 22 00 25 14 74 00 3A 20 20 |$.",S,R".%.t.: |
00000C20: 8D 20 33 32 31 00 38 14 75 00 3A 20 20 99 22 4C |. 321.8.u.: ."L|
00000C30: 4F 41 44 49 4E 47 22 3B 00 4F 14 76 00 81 58 B2 |OADING";.O.v..X.|
00000C40: 31 A4 38 3A 84 32 2C 45 24 28 58 29 3A 82 58 00 |1.8:.2,E$(X):.X.|
00000C50: 5B 14 77 00 3A 20 4E B2 4E AA 31 00 6C 14 78 00 |[.w.: N.N.1.l.x.|
00000C60: 3A 20 20 84 32 2C 46 46 24 28 4E 29 00 79 14 79 |: .2,FF$(N).y.y|
00000C70: 00 3A 20 20 99 22 2E 22 3B 00 97 14 7A 00 3A 20 |.: .".";...z.: |
00000C80: 20 8B 20 46 46 24 28 4E 29 B2 22 45 4F 44 22 20 | . FF$(N)."EOD" |
00000C90: A7 20 89 20 31 32 34 00 A3 14 7B 00 3A 20 89 20 |. . 124...{.: . |
00000CA0: 31 31 39 00 B8 14 7C 00 46 46 24 28 4E 29 B2 22 |119...|.FF$(N)."|
00000CB0: 22 3A 20 4E B2 4E AB 31 00 C0 14 7D 00 3A A0 32 |": N.N.1...}.:.2|
00000CC0: 00 C9 14 7E 00 3A A0 31 35 00 CF 14 7F 00 8E 00 |...~.:.15.......|
00000CD0: EA 14 80 00 8F 20 2A 2A 2A 2A 20 4D 41 4E 49 50 |..... **** MANIP|
00000CE0: 55 4C 41 54 45 2F 53 4F 52 54 00 04 15 81 00 99 |ULATE/SORT......|
00000CF0: 22 93 12 11 20 4D 41 4E 49 50 55 4C 41 54 45 2F |"... MANIPULATE/|
00000D00: 53 4F 52 54 00 26 15 82 00 99 22 11 59 4F 55 20 |SORT.&....".YOU |
00000D10: 4D 41 59 3A 20 12 4C 92 49 53 54 20 49 4E 44 49 |MAY: .L.IST INDI|
00000D20: 56 49 44 55 41 4C 00 48 15 83 00 99 22 11 20 20 |VIDUAL.H....". |
00000D30: 20 20 20 20 20 20 20 4C 49 53 54 20 12 41 92 4C | LIST .A.L|
00000D40: 4C 20 49 54 45 4D 53 22 00 69 15 84 00 99 22 11 |L ITEMS".i....".|
00000D50: 20 20 20 20 20 20 20 20 20 12 44 92 45 4C 45 54 | .D.ELET|
00000D60: 45 20 41 4E 20 49 54 45 4D 00 8A 15 85 00 99 22 |E AN ITEM......"|
00000D70: 11 20 20 20 20 20 20 20 20 20 12 43 92 48 41 4E |. .C.HAN|
00000D80: 47 45 20 41 4E 20 49 54 45 4D 00 AB 15 86 00 99 |GE AN ITEM......|
00000D90: 22 11 20 20 20 20 20 20 20 20 20 12 53 92 4F 52 |". .S.OR|
00000DA0: 54 20 54 48 45 20 49 54 45 4D 53 00 C2 15 87 00 |T THE ITEMS.....|
00000DB0: 99 22 11 20 20 20 20 20 20 20 20 20 12 4D 92 45 |.". .M.E|
00000DC0: 4E 55 00 CC 15 88 00 8D 20 32 36 35 00 E4 15 89 |NU...... 265....|
00000DD0: 00 3A 8B 20 4B 45 59 24 B2 22 4D 22 20 A7 20 89 |.:. KEY$."M" . .|
00000DE0: 20 32 34 38 00 FD 15 8A 00 3A 8B 20 4B 45 59 24 | 248.....:. KEY$|
00000DF0: B3 B1 22 4C 22 20 A7 20 89 20 31 35 36 00 1A 16 |.."L" . . 156...|
00000E00: 8B 00 99 22 93 11 12 4C 49 53 54 20 54 48 45 20 |..."...LIST THE |
00000E10: 44 41 54 41 20 46 49 4C 45 22 00 3B 16 8C 00 99 |DATA FILE".;....|
00000E20: 22 11 54 48 45 52 45 20 41 52 45 20 22 3B 4E 3B |".THERE ARE ";N;|
00000E30: 22 20 52 45 43 4F 52 44 53 2E 22 00 54 16 8D 00 |" RECORDS.".T...|
00000E40: 85 22 53 54 41 52 54 20 41 54 20 52 45 43 4F 52 |."START AT RECOR|
00000E50: 44 22 3B 4B 00 6D 16 8E 00 8B 20 4B B1 30 20 AF |D";K.m.... K.0 .|
00000E60: 20 4B B3 B2 4E 20 A7 20 89 20 31 34 35 00 9B 16 | K..N . . 145...|
00000E70: 8F 00 99 22 49 4C 4C 45 47 41 4C 20 52 45 43 4F |..."ILLEGAL RECO|
00000E80: 52 44 20 4E 55 4D 42 45 52 2E 20 50 4C 45 41 53 |RD NUMBER. PLEAS|
00000E90: 45 20 52 45 2D 45 4E 54 45 52 22 00 A5 16 90 00 |E RE-ENTER".....|
00000EA0: 89 20 31 34 31 00 AD 16 91 00 49 B2 4B 00 DF 16 |. 141.....I.K...|
00000EB0: 92 00 99 22 93 12 3E 92 46 4F 52 57 41 52 44 53 |..."..>.FORWARDS|
00000EC0: 20 20 12 3C 92 42 41 43 4B 57 41 52 44 53 20 12 | .<.BACKWARDS .|
00000ED0: 52 92 45 53 54 41 52 54 20 12 51 92 55 49 54 00 |R.ESTART .Q.UIT.|
00000EE0: E5 16 93 00 99 00 FC 16 94 00 99 22 52 45 43 4F |..........."RECO|
00000EF0: 52 44 20 4E 55 4D 42 45 52 3A 22 4B 00 06 17 95 |RD NUMBER:"K....|
00000F00: 00 8D 20 32 37 35 00 10 17 96 00 8D 20 32 36 35 |.. 275...... 265|
00000F10: 00 28 17 97 00 3A 8B 20 4B 45 59 24 B2 22 3E 22 |.(...:. KEY$.">"|
00000F20: 20 A7 20 4B B2 4B AA 31 00 40 17 98 00 3A 8B 20 | . K.K.1.@...:. |
00000F30: 4B 45 59 24 B2 22 3C 22 20 A7 20 4B B2 4B AB 31 |KEY$."<" . K.K.1|
00000F40: 00 58 17 99 00 3A 8B 20 4B 45 59 24 B2 22 52 22 |.X...:. KEY$."R"|
00000F50: 20 A7 20 89 20 31 33 39 00 70 17 9A 00 3A 8B 20 | . . 139.p...:. |
00000F60: 4B 45 59 24 B2 22 51 22 20 A7 20 89 20 32 34 38 |KEY$."Q" . . 248|
00000F70: 00 7A 17 9B 00 89 20 31 34 32 00 94 17 9C 00 8F |.z.... 142......|
00000F80: 20 2A 2A 2A 2A 20 4C 49 53 54 20 41 4C 4C 20 49 | **** LIST ALL I|
00000F90: 54 45 4D 53 00 AB 17 9D 00 8B 4B 45 59 24 B3 B1 |TEMS......KEY$..|
00000FA0: 22 41 22 20 A7 20 89 20 31 36 39 00 D9 17 9E 00 |"A" . . 169.....|
00000FB0: 99 22 93 11 55 53 45 20 12 53 50 41 43 45 92 20 |."..USE .SPACE. |
00000FC0: 54 4F 20 50 41 55 53 45 2E 20 12 4D 4D 92 20 54 |TO PAUSE. .MM. T|
00000FD0: 4F 20 51 55 49 54 2E 11 22 00 E7 17 9F 00 81 20 |O QUIT.."...... |
00000FE0: 4A B2 31 20 A4 20 4E 00 FE 17 A0 00 3A 20 20 99 |J.1 . N.....: .|
00000FF0: 22 12 22 4A 22 92 22 20 46 46 24 28 4A 29 00 0A |"."J"." FF$(J)..|
00001000: 18 A1 00 3A 20 20 A1 20 41 24 00 1A 18 A2 00 8B |...: . A$......|
00001010: 41 24 B2 22 4D 22 A7 32 34 38 00 33 18 A3 00 3A |A$."M".248.3...:|
00001020: 20 20 20 20 8B 20 41 24 B2 22 22 20 A7 20 89 20 | . A$."" . . |
00001030: 31 36 36 00 3F 18 A4 00 3A 20 20 A1 20 41 24 00 |166.?...: . A$.|
00001040: 56 18 A5 00 3A 20 20 8B 20 41 24 B2 22 22 20 A7 |V...: . A$."" .|
00001050: 20 89 20 31 36 34 00 5C 18 A6 00 82 00 66 18 A7 | . 164.\.....f..|
00001060: 00 8D 20 32 36 35 00 70 18 A8 00 89 20 32 34 38 |.. 265.p.... 248|
00001070: 00 8A 18 A9 00 8F 20 2A 2A 2A 2A 20 44 45 4C 45 |...... **** DELE|
00001080: 54 45 20 41 4E 20 49 54 45 4D 00 A1 18 AA 00 8B |TE AN ITEM......|
00001090: 4B 45 59 24 B3 B1 22 44 22 20 A7 20 89 20 31 38 |KEY$.."D" . . 18|
000010A0: 36 00 C5 18 AB 00 50 52 4F 4D 50 54 24 B2 22 49 |6.....PROMPT$."I|
000010B0: 54 45 4D 20 4E 55 4D 42 45 52 20 54 4F 20 44 45 |TEM NUMBER TO DE|
000010C0: 4C 45 54 45 22 00 CF 18 AC 00 8D 20 32 36 39 00 |LETE"...... 269.|
000010D0: F0 18 AD 00 3A 8B 20 C5 28 41 24 29 B3 31 20 B0 |....:. .(A$).1 .|
000010E0: 20 C5 28 41 24 29 B1 4E 20 A7 20 89 20 31 39 39 | .(A$).N . . 199|
000010F0: 00 02 19 AE 00 3A 99 22 12 44 45 4C 45 54 45 92 |.....:.".DELETE.|
00001100: 3A 22 00 0E 19 AF 00 49 B2 C5 28 41 24 29 00 18 |:".....I..(A$)..|
00001110: 19 B0 00 8D 20 32 37 35 00 39 19 B1 00 99 22 43 |.... 275.9...."C|
00001120: 4F 4E 46 49 52 4D 3A 20 50 52 45 53 53 20 12 59 |ONFIRM: PRESS .Y|
00001130: 92 20 4F 52 20 12 4E 92 22 00 43 19 B2 00 8D 20 |. OR .N.".C.... |
00001140: 32 36 35 00 5A 19 B3 00 8B 20 4B 45 59 24 B2 22 |265.Z.... KEY$."|
00001150: 4E 22 20 A7 20 89 20 32 34 38 00 72 19 B4 00 8B |N" . . 248.r....|
00001160: 20 4B 45 59 24 B3 B1 22 59 22 20 A7 20 89 20 31 | KEY$.."Y" . . 1|
00001170: 37 37 00 84 19 B5 00 46 46 24 28 49 29 B2 46 46 |77.....FF$(I).FF|
00001180: 24 28 4E 29 00 8E 19 B6 00 4E B2 4E AB 31 00 D3 |$(N).....N.N.1..|
00001190: 19 B7 00 99 22 93 11 11 12 4E 4F 54 45 21 92 20 |...."....NOTE!. |
000011A0: 49 4E 20 4F 52 44 45 52 20 54 4F 20 41 56 4F 49 |IN ORDER TO AVOI|
000011B0: 44 20 4C 4F 53 53 20 4F 46 20 44 41 54 41 20 59 |D LOSS OF DATA Y|
000011C0: 4F 55 20 53 48 4F 55 4C 44 20 12 53 4F 52 54 92 |OU SHOULD .SORT.|
000011D0: 20 22 3B 00 FD 19 B8 00 99 22 41 46 54 45 52 20 | ";......"AFTER |
000011E0: 45 41 43 48 20 44 45 4C 45 54 49 4F 4E 2E 22 3A |EACH DELETION.":|
000011F0: 81 20 44 B2 31 A4 31 35 30 30 3A 82 44 00 07 1A |. D.1.1500:.D...|
00001200: B9 00 89 20 32 34 38 00 21 1A BA 00 8F 20 2A 2A |... 248.!.... **|
00001210: 2A 2A 20 43 48 41 4E 47 45 20 41 4E 20 49 54 45 |** CHANGE AN ITE|
00001220: 4D 00 39 1A BB 00 8B 20 4B 45 59 24 B3 B1 22 43 |M.9.... KEY$.."C|
00001230: 22 20 A7 20 89 20 32 30 39 00 5A 1A BC 00 50 52 |" . . 209.Z...PR|
00001240: 4F 4D 50 54 24 B2 22 43 48 41 4E 47 45 20 49 54 |OMPT$."CHANGE IT|
00001250: 45 4D 20 4E 55 4D 42 45 52 22 00 64 1A BD 00 8D |EM NUMBER".d....|
00001260: 20 32 36 39 00 81 1A BE 00 8B 20 C5 28 41 24 29 | 269...... .(A$)|
00001270: B3 31 20 B0 20 C5 28 41 24 29 B1 4E 20 A7 32 30 |.1 . .(A$).N .20|
00001280: 39 00 8D 1A BF 00 49 B2 C5 28 41 24 29 00 A0 1A |9.....I..(A$)...|
00001290: C0 00 99 22 93 12 49 54 45 4D 20 23 92 22 3B 49 |..."..ITEM #.";I|
000012A0: 00 B6 1A C1 00 99 22 13 11 11 11 11 11 11 11 11 |......".........|
000012B0: 11 11 11 11 11 22 00 C0 1A C2 00 8D 20 32 37 35 |....."...... 275|
000012C0: 00 E2 1A C3 00 99 22 11 12 49 53 20 54 48 49 53 |......"..IS THIS|
000012D0: 20 54 48 45 20 43 4F 52 52 45 43 54 20 49 54 45 | THE CORRECT ITE|
000012E0: 4D 3F 00 0F 1B C4 00 99 22 50 52 45 53 53 20 59 |M?......"PRESS Y|
000012F0: 20 46 4F 52 20 59 45 53 3B 20 4E 20 46 4F 52 20 | FOR YES; N FOR |
00001300: 4E 4F 3B 20 41 20 54 4F 20 41 42 4F 52 54 2E 00 |NO; A TO ABORT..|
00001310: 19 1B C5 00 8D 20 32 36 35 00 2F 1B C6 00 3A 8B |..... 265./...:.|
00001320: 20 4B 45 59 24 B2 22 41 22 20 A7 20 32 34 38 00 | KEY$."A" . 248.|
00001330: 47 1B C7 00 3A 8B 20 4B 45 59 24 B2 22 59 22 20 |G...:. KEY$."Y" |
00001340: A7 20 89 20 32 30 32 00 5D 1B C8 00 3A 8B 20 4B |. . 202.]...:. K|
00001350: 45 59 24 B2 22 4E 22 20 A7 20 31 38 38 00 67 1B |EY$."N" . 188.g.|
00001360: C9 00 89 20 31 39 37 00 71 1B CA 00 99 22 13 11 |... 197.q...."..|
00001370: 22 00 80 1B CB 00 8D 32 37 35 3A 99 22 13 11 22 |"......275:.".."|
00001380: 00 8A 1B CC 00 8D 20 33 37 37 00 92 1B CD 00 42 |...... 377.....B|
00001390: B2 4E 00 9A 1B CE 00 4E B2 49 00 A4 1B CF 00 8D |.N.....N.I......|
000013A0: 20 32 39 37 00 AC 1B D0 00 4E B2 42 00 BC 1B D1 | 297.....N.B....|
000013B0: 00 8F 20 2A 2A 2A 2A 20 53 4F 52 54 00 D4 1B D2 |.. **** SORT....|
000013C0: 00 8B 20 4B 45 59 24 B3 B1 22 53 22 20 A7 20 89 |.. KEY$.."S" . .|
000013D0: 20 32 34 38 00 E8 1B D3 00 99 22 93 12 53 4F 52 | 248......"..SOR|
000013E0: 54 20 49 54 45 4D 53 22 00 0A 1C D4 00 99 22 11 |T ITEMS"......".|
000013F0: 11 53 4F 52 54 20 4F 4E 20 20 46 49 45 4C 44 23 |.SORT ON FIELD#|
00001400: 31 2E 20 22 3B 45 24 28 31 29 00 2B 1C D5 00 99 |1. ";E$(1).+....|
00001410: 22 11 20 20 20 20 20 20 20 20 20 46 49 45 4C 44 |". FIELD|
00001420: 23 32 2E 20 22 3B 45 24 28 32 29 00 4C 1C D6 00 |#2. ";E$(2).L...|
00001430: 99 22 11 20 20 20 20 20 20 20 20 20 46 49 45 4C |.". FIEL|
00001440: 44 23 33 2E 20 22 3B 45 24 28 33 29 00 6D 1C D7 |D#3. ";E$(3).m..|
00001450: 00 99 22 11 20 20 20 20 20 20 20 20 20 46 49 45 |..". FIE|
00001460: 4C 44 23 34 2E 20 22 3B 45 24 28 34 29 00 8E 1C |LD#4. ";E$(4)...|
00001470: D8 00 99 22 11 20 20 20 20 20 20 20 20 20 46 49 |...". FI|
00001480: 45 4C 44 23 35 2E 20 22 3B 45 24 28 35 29 00 AF |ELD#5. ";E$(5)..|
00001490: 1C D9 00 99 22 11 20 20 20 20 20 20 20 20 20 46 |....". F|
000014A0: 49 45 4C 44 23 36 2E 20 22 3B 45 24 28 36 29 00 |IELD#6. ";E$(6).|
000014B0: D0 1C DA 00 99 22 11 20 20 20 20 20 20 20 20 20 |.....". |
000014C0: 46 49 45 4C 44 23 37 2E 20 22 3B 45 24 28 37 29 |FIELD#7. ";E$(7)|
000014D0: 00 F1 1C DB 00 99 22 11 20 20 20 20 20 20 20 20 |......". |
000014E0: 20 46 49 45 4C 44 23 38 2E 20 22 3B 45 24 28 38 | FIELD#8. ";E$(8|
000014F0: 29 00 0A 1D DC 00 99 22 11 20 20 20 20 20 20 20 |)......". |
00001500: 20 20 12 40 92 41 42 4F 52 54 00 2D 1D DD 00 99 | .@.ABORT.-....|
00001510: 22 12 54 59 50 45 20 41 20 4E 55 4D 42 45 52 28 |".TYPE A NUMBER(|
00001520: 31 20 54 4F 20 38 29 20 4F 52 20 40 22 00 37 1D |1 TO 8) OR @".7.|
00001530: DE 00 8D 20 32 36 35 00 4D 1D DF 00 8B 20 4B 45 |... 265.M.... KE|
00001540: 59 24 B3 B1 22 31 22 20 A7 20 32 32 38 00 63 1D |Y$.."1" . 228.c.|
00001550: E0 00 8B 20 4B 45 59 24 B2 22 40 22 A7 20 89 20 |... KEY$."@". . |
00001560: 32 34 38 00 88 1D E1 00 8B C2 28 35 30 30 30 33 |248.......(50003|
00001570: 29 B3 B1 31 36 30 A7 42 45 47 49 4E B2 31 3A 4C |)..160.BEGIN.1:L|
00001580: B2 31 32 3A 89 32 32 38 00 A8 1D E2 00 99 22 13 |.12:.228......".|
00001590: 12 53 4F 52 54 49 4E 47 2E 2E 2E 92 20 53 54 41 |.SORTING.... STA|
000015A0: 4E 44 20 42 59 2E 2E 22 00 B1 1D E3 00 9E 53 3A |ND BY.."......S:|
000015B0: 8E 00 C7 1D E4 00 8B 20 4B 45 59 24 B3 B1 22 32 |....... KEY$.."2|
000015C0: 22 20 A7 20 32 33 31 00 D4 1D E5 00 42 45 47 49 |" . 231.....BEGI|
000015D0: 4E B2 31 33 00 DD 1D E6 00 4C B2 31 32 00 F3 1D |N.13.....L.12...|
000015E0: E7 00 8B 20 4B 45 59 24 B3 B1 22 33 22 20 A7 20 |... KEY$.."3" . |
000015F0: 32 33 34 00 00 1E E8 00 42 45 47 49 4E B2 32 35 |234.....BEGIN.25|
00001600: 00 09 1E E9 00 4C B2 31 32 00 1F 1E EA 00 8B 20 |.....L.12...... |
00001610: 4B 45 59 24 B3 B1 22 34 22 20 A7 20 32 33 37 00 |KEY$.."4" . 237.|
00001620: 2C 1E EB 00 42 45 47 49 4E B2 33 37 00 35 1E EC |,...BEGIN.37.5..|
00001630: 00 4C B2 31 32 00 4B 1E ED 00 8B 20 4B 45 59 24 |.L.12.K.... KEY$|
00001640: B3 B1 22 35 22 20 A7 20 32 34 30 00 58 1E EE 00 |.."5" . 240.X...|
00001650: 42 45 47 49 4E B2 34 39 00 61 1E EF 00 4C B2 31 |BEGIN.49.a...L.1|
00001660: 32 00 77 1E F0 00 8B 20 4B 45 59 24 B3 B1 22 36 |2.w.... KEY$.."6|
00001670: 22 20 A7 20 32 34 33 00 84 1E F1 00 42 45 47 49 |" . 243.....BEGI|
00001680: 4E B2 36 31 00 8D 1E F2 00 4C B2 31 32 00 A3 1E |N.61.....L.12...|
00001690: F3 00 8B 20 4B 45 59 24 B3 B1 22 37 22 20 A7 20 |... KEY$.."7" . |
000016A0: 32 34 36 00 B0 1E F4 00 42 45 47 49 4E B2 37 33 |246.....BEGIN.73|
000016B0: 00 B8 1E F5 00 4C B2 34 00 CE 1E F6 00 8B 20 4B |.....L.4...... K|
000016C0: 45 59 24 B2 22 40 22 A7 20 89 20 32 34 38 00 D8 |EY$."@". . 248..|
000016D0: 1E F7 00 8D 20 33 30 38 00 DE 1E F8 00 8E 00 F8 |.... 308........|
000016E0: 1E F9 00 8F 20 2A 2A 2A 2A 20 50 52 49 4E 54 45 |.... **** PRINTE|
000016F0: 52 20 4F 55 54 50 55 54 00 11 1F FA 00 99 22 93 |R OUTPUT......".|
00001700: 12 11 20 50 52 49 4E 54 45 52 20 4F 55 54 50 55 |.. PRINTER OUTPU|
00001710: 54 00 2D 1F FB 00 99 22 11 50 52 45 50 41 52 45 |T.-....".PREPARE|
00001720: 20 54 48 45 20 50 52 49 4E 54 45 52 2E 00 4E 1F | THE PRINTER..N.|
00001730: FC 00 99 22 11 50 52 45 53 53 20 41 20 4B 45 59 |...".PRESS A KEY|
00001740: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 2E 22 00 69 | TO CONTINUE.".i|
00001750: 1F FD 00 99 22 11 50 52 45 53 53 20 27 41 27 20 |....".PRESS 'A' |
00001760: 54 4F 20 41 42 4F 52 54 2E 00 73 1F FE 00 8D 20 |TO ABORT..s.... |
00001770: 32 36 35 00 8A 1F FF 00 8B 20 4B 45 59 24 B2 22 |265...... KEY$."|
00001780: 41 22 20 A7 20 89 20 32 36 34 00 94 1F 00 01 9F |A" . . 264......|
00001790: 20 31 2C 34 00 B3 1F 01 01 81 58 B2 31 A4 38 3A | 1,4......X.1.8:|
000017A0: 98 31 2C C8 28 45 24 28 58 29 AA 42 4C 24 2C 31 |.1,.(E$(X).BL$,1|
000017B0: 30 29 3B 00 C3 1F 02 01 82 58 3A 98 31 3A 98 31 |0);......X:.1:.1|
000017C0: 3A 98 31 00 D1 1F 03 01 81 20 49 B2 31 20 A4 20 |:.1...... I.1 . |
000017D0: 4E 00 E1 1F 04 01 3A 20 98 31 2C 46 46 24 28 49 |N.....: .1,FF$(I|
000017E0: 29 00 E9 1F 05 01 82 20 49 00 F0 1F 06 01 98 31 |)...... I......1|
000017F0: 00 F7 1F 07 01 A0 31 00 FD 1F 08 01 8E 00 12 20 |......1........ |
00001800: 09 01 8F 20 2A 2A 2A 2A 20 47 45 54 20 41 20 4B |... **** GET A K|
00001810: 45 59 00 1D 20 0A 01 A1 20 4B 45 59 24 00 33 20 |EY.. ... KEY$.3 |
00001820: 0B 01 8B 20 4B 45 59 24 B2 22 22 20 A7 20 89 20 |... KEY$."" . . |
00001830: 32 36 36 00 39 20 0C 01 8E 00 51 20 0D 01 8F 20 |266.9 ....Q ... |
00001840: 2A 2A 2A 2A 20 49 4E 50 55 54 20 53 54 52 49 4E |**** INPUT STRIN|
00001850: 47 00 5D 20 0E 01 99 50 52 4F 4D 54 24 00 73 20 |G.] ...PROMT$.s |
00001860: 0F 01 5A 4C B2 31 32 3A 8D 33 32 38 3A 41 24 B2 |..ZL.12:.328:A$.|
00001870: 5A 49 24 00 8A 20 10 01 3A 8B 20 41 24 B3 B1 22 |ZI$.. ..:. A$.."|
00001880: A0 22 20 A7 20 89 20 32 37 34 00 94 20 11 01 89 |." . . 274.. ...|
00001890: 20 32 36 39 00 9A 20 12 01 8E 00 BA 20 13 01 8F | 269.. ..... ...|
000018A0: 20 2A 2A 2A 2A 20 50 52 49 4E 54 20 4E 41 4D 45 | **** PRINT NAME|
000018B0: 2C 20 49 44 2E 23 20 45 54 43 00 DF 20 14 01 99 |, ID.# ETC.. ...|
000018C0: CA 28 46 46 24 28 49 29 2C 31 2C 31 32 29 3A 99 |.(FF$(I),1,12):.|
000018D0: CA 28 46 46 24 28 49 29 2C 31 33 2C 31 32 29 00 |.(FF$(I),13,12).|
000018E0: F4 20 15 01 99 CA 28 46 46 24 28 49 29 2C 32 35 |. ....(FF$(I),25|
000018F0: 2C 31 32 29 00 09 21 16 01 99 CA 28 46 46 24 28 |,12)..!....(FF$(|
00001900: 49 29 2C 33 37 2C 31 32 29 00 1E 21 17 01 99 CA |I),37,12)..!....|
00001910: 28 46 46 24 28 49 29 2C 34 39 2C 31 32 29 00 33 |(FF$(I),49,12).3|
00001920: 21 18 01 99 CA 28 46 46 24 28 49 29 2C 36 31 2C |!....(FF$(I),61,|
00001930: 31 32 29 00 55 21 19 01 99 CA 28 46 46 24 28 49 |12).U!....(FF$(I|
00001940: 29 2C 37 33 2C 34 29 3A 99 CA 28 46 46 24 28 49 |),73,4):..(FF$(I|
00001950: 29 2C 37 37 29 00 5B 21 1A 01 8E 00 7B 21 1B 01 |),77).[!....{!..|
00001960: 8F 20 2A 2A 2A 2A 20 49 4E 50 55 54 20 56 41 52 |. **** INPUT VAR|
00001970: 49 4F 55 53 20 46 49 45 4C 44 53 00 B3 21 1C 01 |IOUS FIELDS..!..|
00001980: 99 22 12 54 59 50 45 20 46 49 45 4C 44 23 31 2E |.".TYPE FIELD#1.|
00001990: 20 92 22 3B 45 24 28 31 29 3B 22 20 22 3B 3A 5A | .";E$(1);" ";:Z|
000019A0: 4C B2 31 32 3A 8D 33 32 38 3A 46 31 24 B2 5A 49 |L.12:.328:F1$.ZI|
000019B0: 24 3A 99 00 E5 21 1D 01 99 22 12 54 59 50 45 20 |$:...!...".TYPE |
000019C0: 46 49 45 4C 44 23 32 2E 20 92 22 3B 45 24 28 32 |FIELD#2. .";E$(2|
000019D0: 29 3B 22 20 22 3B 3A 8D 33 32 38 3A 46 32 24 B2 |);" ";:.328:F2$.|
000019E0: 5A 49 24 3A 99 00 17 22 1E 01 99 22 12 54 59 50 |ZI$:..."...".TYP|
000019F0: 45 20 46 49 45 4C 44 23 33 2E 20 92 22 3B 45 24 |E FIELD#3. .";E$|
00001A00: 28 33 29 3B 22 20 22 3B 3A 8D 33 32 38 3A 46 33 |(3);" ";:.328:F3|
00001A10: 24 B2 5A 49 24 3A 99 00 49 22 1F 01 99 22 12 54 |$.ZI$:..I"...".T|
00001A20: 59 50 45 20 46 49 45 4C 44 23 34 2E 20 92 22 3B |YPE FIELD#4. .";|
00001A30: 45 24 28 34 29 3B 22 20 22 3B 3A 8D 33 32 38 3A |E$(4);" ";:.328:|
00001A40: 46 34 24 B2 5A 49 24 3A 99 00 7B 22 20 01 99 22 |F4$.ZI$:..{" .."|
00001A50: 12 54 59 50 45 20 46 49 45 4C 44 23 35 2E 20 92 |.TYPE FIELD#5. .|
00001A60: 22 3B 45 24 28 35 29 3B 22 20 22 3B 3A 8D 33 32 |";E$(5);" ";:.32|
00001A70: 38 3A 46 35 24 B2 5A 49 24 3A 99 00 AD 22 21 01 |8:F5$.ZI$:..."!.|
00001A80: 99 22 12 54 59 50 45 20 46 49 45 4C 44 23 36 2E |.".TYPE FIELD#6.|
00001A90: 20 92 22 3B 45 24 28 36 29 3B 22 20 22 3B 3A 8D | .";E$(6);" ";:.|
00001AA0: 33 32 38 3A 46 36 24 B2 5A 49 24 3A 99 00 EA 22 |328:F6$.ZI$:..."|
00001AB0: 22 01 99 22 12 54 59 50 45 20 46 49 45 4C 44 23 |"..".TYPE FIELD#|
00001AC0: 37 2E 20 92 22 3B 45 24 28 37 29 3B 22 20 22 3B |7. .";E$(7);" ";|
00001AD0: 3A 5A 4C B2 34 3A 8D 33 32 38 3A 5A 4C B2 31 32 |:ZL.4:.328:ZL.12|
00001AE0: 3A 46 37 24 B2 5A 49 24 3A 99 00 27 23 23 01 99 |:F7$.ZI$:..'##..|
00001AF0: 22 12 54 59 50 45 20 46 49 45 4C 44 23 38 2E 20 |".TYPE FIELD#8. |
00001B00: 92 22 3B 45 24 28 38 29 3B 22 20 22 3B 3A 5A 4C |.";E$(8);" ";:ZL|
00001B10: B2 32 3A 8D 33 32 38 3A 46 38 24 B2 5A 49 24 3A |.2:.328:F8$.ZI$:|
00001B20: 99 3A 5A 4C B2 31 32 00 55 23 24 01 99 22 11 11 |.:ZL.12.U#$.."..|
00001B30: 49 53 20 54 48 41 54 20 49 4E 46 4F 52 4D 41 54 |IS THAT INFORMAT|
00001B40: 49 4F 4E 20 43 4F 52 52 45 43 54 20 28 59 2F 4E |ION CORRECT (Y/N|
00001B50: 29 3F 20 22 3B 00 5F 23 25 01 8D 20 32 36 35 00 |)? ";._#%.. 265.|
00001B60: 7B 23 26 01 8B 20 4B 45 59 24 B2 22 59 22 20 A7 |{#&.. KEY$."Y" .|
00001B70: 20 99 22 9D 9D 9D 20 59 45 53 22 00 98 23 27 01 | ."... YES"..#'.|
00001B80: 8B 20 4B 45 59 24 B2 22 4E 22 20 A7 20 99 22 13 |. KEY$."N" . .".|
00001B90: 11 22 3A 89 20 32 38 33 00 9E 23 28 01 8E 00 C0 |.":. 283..#(....|
00001BA0: 23 29 01 8F 20 2A 2A 2A 2A 20 55 53 45 20 46 49 |#).. **** USE FI|
00001BB0: 58 45 44 20 46 49 45 4C 44 20 4C 45 4E 47 54 48 |XED FIELD LENGTH|
00001BC0: 00 D6 23 2A 01 46 31 24 B2 C8 28 46 31 24 AA 42 |..#*.F1$..(F1$.B|
00001BD0: 4C 24 2C 31 32 29 00 EC 23 2B 01 46 32 24 B2 C8 |L$,12)..#+.F2$..|
00001BE0: 28 46 32 24 AA 42 4C 24 2C 31 32 29 00 02 24 2C |(F2$.BL$,12)..$,|
00001BF0: 01 46 33 24 B2 C8 28 46 33 24 AA 42 4C 24 2C 31 |.F3$..(F3$.BL$,1|
00001C00: 32 29 00 18 24 2D 01 46 34 24 B2 C8 28 46 34 24 |2)..$-.F4$..(F4$|
00001C10: AA 42 4C 24 2C 31 32 29 00 2E 24 2E 01 46 35 24 |.BL$,12)..$..F5$|
00001C20: B2 C8 28 46 35 24 AA 42 4C 24 2C 31 32 29 00 44 |..(F5$.BL$,12).D|
00001C30: 24 2F 01 46 36 24 B2 C8 28 46 36 24 AA 42 4C 24 |$/.F6$..(F6$.BL$|
00001C40: 2C 31 32 29 00 59 24 30 01 46 37 24 B2 C8 28 46 |,12).Y$0.F7$..(F|
00001C50: 37 24 AA 42 4C 24 2C 34 29 00 6E 24 31 01 46 38 |7$.BL$,4).n$1.F8|
00001C60: 24 B2 C8 28 46 38 24 AA 42 4C 24 2C 32 29 00 99 |$..(F8$.BL$,2)..|
00001C70: 24 32 01 46 46 24 28 4E 29 B2 46 31 24 AA 46 32 |$2.FF$(N).F1$.F2|
00001C80: 24 AA 46 33 24 AA 46 34 24 AA 46 35 24 AA 46 36 |$.F3$.F4$.F5$.F6|
00001C90: 24 AA 46 37 24 AA 46 38 24 00 9F 24 33 01 8E 00 |$.F7$.F8$..$3...|
00001CA0: BE 24 34 01 8F 20 2A 2A 2A 2A 20 53 45 4C 45 43 |.$4.. **** SELEC|
00001CB0: 54 20 53 4F 52 54 20 52 4F 55 54 49 4E 45 00 D3 |T SORT ROUTINE..|
00001CC0: 24 35 01 99 22 13 20 20 20 20 20 20 20 20 20 20 |$5..". |
00001CD0: 20 20 22 00 E3 24 36 01 81 20 49 B2 31 20 A4 20 | "..$6.. I.1 . |
00001CE0: 4E AB 31 00 F3 24 37 01 81 20 4A B2 49 AA 31 20 |N.1..$7.. J.I.1 |
00001CF0: A4 20 4E 00 25 25 38 01 8B 20 CA 28 46 46 24 28 |. N.%%8.. .(FF$(|
00001D00: 49 29 2C 42 45 47 49 4E 2C 4C 29 20 B3 B2 20 CA |I),BEGIN,L) .. .|
00001D10: 28 46 46 24 28 4A 29 2C 42 45 47 49 4E 2C 4C 29 |(FF$(J),BEGIN,L)|
00001D20: A7 20 33 31 37 00 34 25 39 01 46 31 24 B2 46 46 |. 317.4%9.F1$.FF|
00001D30: 24 28 49 29 00 46 25 3A 01 46 46 24 28 49 29 B2 |$(I).F%:.FF$(I).|
00001D40: 46 46 24 28 4A 29 00 55 25 3B 01 46 46 24 28 4A |FF$(J).U%;.FF$(J|
00001D50: 29 B2 46 31 24 00 66 25 3C 01 99 22 13 53 4F 52 |).F1$.f%<..".SOR|
00001D60: 54 49 4E 47 22 3B 00 6E 25 3D 01 82 20 4A 00 81 |TING";.n%=.. J..|
00001D70: 25 3E 01 99 22 13 12 53 4F 52 54 49 4E 47 92 22 |%>.."..SORTING."|
00001D80: 3B 00 89 25 3F 01 82 20 49 00 8F 25 40 01 8E 00 |;..%?.. I..%@...|
00001D90: A6 25 41 01 8F 20 2A 2A 2A 2A 20 44 49 53 4B 20 |.%A.. **** DISK |
00001DA0: 53 54 41 54 55 53 00 BB 25 42 01 84 31 35 2C 45 |STATUS..%B..15,E|
00001DB0: 4E 2C 45 4D 24 2C 45 54 2C 45 53 00 C8 25 43 01 |N,EM$,ET,ES..%C.|
00001DC0: 8B 45 4E B2 30 A7 20 8E 00 DE 25 44 01 99 22 20 |.EN.0. ...%D.." |
00001DD0: 45 52 52 4F 52 20 4F 4E 20 44 49 53 4B 22 00 F0 |ERROR ON DISK"..|
00001DE0: 25 45 01 99 45 4E 3B 45 4D 24 3B 45 54 3B 45 53 |%E..EN;EM$;ET;ES|
00001DF0: 00 F7 25 46 01 A0 32 00 FD 25 47 01 90 00 1D 26 |..%F..2..%G....&|
00001E00: 48 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |H..*************|
00001E10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3E 26 |*************.>&|
00001E20: 49 01 5A 49 24 B2 22 22 3A 8F 20 4D 55 4C 54 49 |I.ZI$."":. MULTI|
00001E30: 2D 43 48 41 52 41 43 54 45 52 20 47 45 54 00 49 |-CHARACTER GET.I|
00001E40: 26 4A 01 5A 49 24 B2 22 22 00 5F 26 4B 01 A1 5A |&J.ZI$.""._&K..Z|
00001E50: 47 24 3A 8B 5A 47 24 B3 B1 22 22 A7 33 33 33 00 |G$:.ZG$.."".333.|
00001E60: 6F 26 4C 01 99 22 3E 9D 22 3B 3A 89 33 33 31 00 |o&L..">.";:.331.|
00001E70: 8E 26 4D 01 99 22 20 9D 22 3B 3A 5A 39 B2 C6 28 |.&M.." .";:Z9..(|
00001E80: 5A 47 24 29 3A 5A 38 B2 C3 28 5A 49 24 29 00 9D |ZG$):Z8..(ZI$)..|
00001E90: 26 4E 01 8B 5A 39 B2 32 30 A7 33 34 31 00 AC 26 |&N..Z9.20.341..&|
00001EA0: 4F 01 8B 5A 39 B2 31 33 A7 33 34 36 00 BB 26 50 |O..Z9.13.346..&P|
00001EB0: 01 8B 5A 38 B2 5A 4C A7 33 33 31 00 CB 26 51 01 |..Z8.ZL.331..&Q.|
00001EC0: 8B 5A 39 B2 33 34 A7 20 33 33 31 00 E1 26 52 01 |.Z9.34. 331..&R.|
00001ED0: 8B 5A 39 B1 32 31 38 B0 5A 39 B3 33 32 A7 33 33 |.Z9.218.Z9.32.33|
00001EE0: 31 00 F7 26 53 01 99 5A 47 24 3B 3A 5A 49 24 B2 |1..&S..ZG$;:ZI$.|
00001EF0: 5A 49 24 AA 5A 47 24 00 00 27 54 01 89 33 33 31 |ZI$.ZG$..'T..331|
00001F00: 00 0E 27 55 01 8B 5A 38 B2 30 A7 33 33 31 00 1A |..'U..Z8.0.331..|
00001F10: 27 56 01 99 22 9D 20 9D 22 3B 00 28 27 57 01 8B |'V..". .";.('W..|
00001F20: 5A 38 B2 31 A7 33 33 30 00 3C 27 58 01 5A 49 24 |Z8.1.330.<'X.ZI$|
00001F30: B2 C8 28 5A 49 24 2C 5A 38 AB 31 29 00 45 27 59 |..(ZI$,Z8.1).E'Y|
00001F40: 01 89 33 33 31 00 53 27 5A 01 8B 5A 38 B2 30 A7 |..331.S'Z..Z8.0.|
00001F50: 33 33 31 00 59 27 5B 01 8E 00 78 27 5C 01 8F 20 |331.Y'[...x'\.. |
00001F60: 2A 2A 2A 2A 20 50 52 49 4E 54 20 4E 41 4D 45 2C |**** PRINT NAME,|
00001F70: 20 4B 49 54 2C 45 54 43 00 81 27 5D 01 9F 31 2C | KIT,ETC..']..1,|
00001F80: 34 00 AC 27 5E 01 98 31 2C CA 28 46 46 24 28 49 |4..'^..1,.(FF$(I|
00001F90: 29 2C 31 2C 31 32 29 3B 3A 98 31 2C CA 28 46 46 |),1,12);:.1,.(FF|
00001FA0: 24 28 49 29 2C 31 33 2C 31 32 29 3B 00 C4 27 5F |$(I),13,12);..'_|
00001FB0: 01 98 31 2C CA 28 46 46 24 28 49 29 2C 32 35 2C |..1,.(FF$(I),25,|
00001FC0: 31 32 29 3B 00 DC 27 60 01 98 31 2C CA 28 46 46 |12);..'`..1,.(FF|
00001FD0: 24 28 49 29 2C 33 37 2C 31 32 29 3B 00 F4 27 61 |$(I),37,12);..'a|
00001FE0: 01 98 31 2C CA 28 46 46 24 28 49 29 2C 34 39 2C |..1,.(FF$(I),49,|
00001FF0: 31 32 29 3B 00 0C 28 62 01 98 31 2C CA 28 46 46 |12);..(b..1,.(FF|
00002000: 24 28 49 29 2C 36 31 2C 31 32 29 3B 00 23 28 63 |$(I),61,12);.#(c|
00002010: 01 98 31 2C CA 28 46 46 24 28 49 29 2C 37 33 2C |..1,.(FF$(I),73,|
00002020: 34 29 3B 00 3D 28 64 01 98 31 2C CA 28 46 46 24 |4);.=(d..1,.(FF$|
00002030: 28 49 29 2C 37 37 2C 32 29 3B 3A 98 31 00 46 28 |(I),77,2);:.1.F(|
00002040: 65 01 A0 31 3A 8E 00 73 28 66 01 99 22 93 11 41 |e..1:..s(f.."..A|
00002050: 52 45 20 59 4F 55 20 42 45 47 49 4E 4E 49 4E 47 |RE YOU BEGINNING|
00002060: 20 41 20 4E 45 57 20 46 49 4C 45 28 59 2F 4E 29 | A NEW FILE(Y/N)|
00002070: 3F 22 3B 00 7C 28 67 01 8D 32 36 35 00 8E 28 68 |?";.|(g..265..(h|
00002080: 01 8B 20 4B 45 59 24 B2 22 4E 22 A7 31 34 00 C0 |.. KEY$."N".14..|
00002090: 28 69 01 99 22 93 11 59 4F 55 20 4D 41 59 20 54 |(i.."..YOU MAY T|
000020A0: 49 54 4C 45 20 38 20 44 49 46 46 45 52 45 4E 54 |ITLE 8 DIFFERENT|
000020B0: 20 49 4E 50 55 54 20 46 49 45 4C 44 53 20 22 3B | INPUT FIELDS ";|
000020C0: 00 02 29 6A 01 99 22 20 4F 46 20 55 50 20 54 4F |..)j.." OF UP TO|
000020D0: 20 31 32 20 43 48 41 52 41 43 54 45 52 53 20 45 | 12 CHARACTERS E|
000020E0: 41 43 48 2E 28 34 20 4F 4E 4C 59 20 46 4F 52 20 |ACH.(4 ONLY FOR |
000020F0: 23 37 20 41 4E 44 20 32 20 46 4F 52 20 23 38 29 |#7 AND 2 FOR #8)|
00002100: 2E 22 00 44 29 6B 01 99 22 11 50 4C 45 41 53 45 |.".D)k..".PLEASE|
00002110: 20 44 4F 20 12 4E 4F 54 92 20 55 53 45 20 43 4F | DO .NOT. USE CO|
00002120: 4D 4D 41 53 20 4F 52 20 53 45 4D 49 43 4F 4C 4F |MMAS OR SEMICOLO|
00002130: 4E 53 20 20 49 4E 20 59 4F 55 52 20 49 4E 50 55 |NS IN YOUR INPU|
00002140: 54 53 2E 22 00 72 29 6C 01 99 22 11 49 4E 50 55 |TS.".r)l..".INPU|
00002150: 54 20 54 57 4F 20 41 52 52 4F 57 53 20 28 5F 5F |T TWO ARROWS (__|
00002160: 29 20 49 4E 20 41 4E 59 20 4F 46 20 54 48 45 20 |) IN ANY OF THE |
00002170: 22 3B 00 9C 29 6D 01 99 22 38 20 20 20 46 49 45 |";..)m.."8 FIE|
00002180: 4C 44 53 20 59 4F 55 20 44 4F 20 4E 4F 54 20 57 |LDS YOU DO NOT W|
00002190: 49 53 48 20 54 4F 20 55 53 45 2E 22 00 E0 29 6E |ISH TO USE."..)n|
000021A0: 01 99 22 11 41 4C 4C 20 46 49 45 4C 44 53 20 4D |..".ALL FIELDS M|
000021B0: 41 59 20 42 45 20 55 53 45 44 20 46 4F 52 20 53 |AY BE USED FOR S|
000021C0: 4F 52 54 49 4E 47 20 41 4E 44 20 20 53 45 41 52 |ORTING AND SEAR|
000021D0: 43 48 49 4E 47 20 54 48 45 20 46 49 4C 45 2E 22 |CHING THE FILE."|
000021E0: 00 20 2A 6F 01 99 22 11 12 48 49 4E 54 92 2A 28 |. *o.."..HINT.*(|
000021F0: 4D 41 4B 45 20 59 4F 55 52 20 4C 49 53 54 20 4F |MAKE YOUR LIST O|
00002200: 46 20 38 20 46 49 45 4C 44 53 20 4F 4E 20 20 20 |F 8 FIELDS ON |
00002210: 20 20 50 41 50 45 52 20 46 49 52 53 54 2E 29 22 | PAPER FIRST.)"|
00002220: 00 2C 2A 70 01 81 20 58 B2 31 A4 38 00 76 2A 71 |.,*p.. X.1.8.v*q|
00002230: 01 99 22 11 12 57 48 41 54 20 54 59 50 45 20 4F |.."..WHAT TYPE O|
00002240: 46 20 49 4E 46 4F 52 4D 41 54 49 4F 4E 20 28 45 |F INFORMATION (E|
00002250: 47 2E 53 55 52 4E 41 4D 45 2C 20 20 20 46 49 52 |G.SURNAME, FIR|
00002260: 53 54 20 4E 41 4D 45 2C 53 43 48 4F 4F 4C 2C 54 |ST NAME,SCHOOL,T|
00002270: 4F 57 4E 2C 22 3B 00 BC 2A 72 01 99 22 12 50 48 |OWN,";..*r..".PH|
00002280: 4F 4E 45 20 4E 4F 2E 2C 45 54 43 2E 29 20 20 57 |ONE NO.,ETC.) W|
00002290: 4F 55 4C 44 20 59 4F 55 20 4C 49 4B 45 20 54 4F |OULD YOU LIKE TO|
000022A0: 20 50 4C 41 43 45 20 49 4E 20 46 49 45 4C 44 23 | PLACE IN FIELD#|
000022B0: 22 3B 58 3B 22 9D 20 3F 20 20 20 22 00 D7 2A 73 |";X;". ? "..*s|
000022C0: 01 5A 4C B2 31 30 3A 8D 33 32 38 3A 45 24 28 58 |.ZL.10:.328:E$(X|
000022D0: 29 B2 5A 49 24 3A 99 00 DE 2A 74 01 82 58 00 0A |).ZI$:...*t..X..|
000022E0: 2B 75 01 99 22 93 11 22 3A 81 58 B2 31 A4 38 3A |+u.."..":.X.1.8:|
000022F0: 99 22 46 49 45 4C 44 23 22 3B 58 3B 22 20 3D 20 |."FIELD#";X;" = |
00002300: 22 3B 45 24 28 58 29 3A 82 58 00 2E 2B 76 01 99 |";E$(X):.X..+v..|
00002310: 22 11 49 53 20 54 48 49 53 20 43 4F 52 52 45 43 |".IS THIS CORREC|
00002320: 54 28 59 2F 4E 29 3F 22 3B 3A 8D 32 36 35 00 40 |T(Y/N)?";:.265.@|
00002330: 2B 77 01 8B 4B 45 59 24 B2 22 4E 22 A7 33 36 31 |+w..KEY$."N".361|
00002340: 00 48 2B 78 01 89 31 34 00 6A 2B 79 01 8F 2A 43 |.H+x..14.j+y..*C|
00002350: 48 41 4E 47 45 20 46 49 45 4C 44 53 20 55 53 49 |HANGE FIELDS USI|
00002360: 4E 47 20 49 4E 50 55 54 2A 2A 00 74 2B 7A 01 99 |NG INPUT**.t+z..|
00002370: 22 13 11 22 00 8A 2B 7B 01 85 22 9D 9D 22 3B 5A |".."..+{.."..";Z|
00002380: 49 24 3A 46 31 24 B2 5A 49 24 00 A0 2B 7C 01 85 |I$:F1$.ZI$..+|..|
00002390: 22 9D 9D 22 3B 5A 49 24 3A 46 32 24 B2 5A 49 24 |"..";ZI$:F2$.ZI$|
000023A0: 00 B6 2B 7D 01 85 22 9D 9D 22 3B 5A 49 24 3A 46 |..+}.."..";ZI$:F|
000023B0: 33 24 B2 5A 49 24 00 CC 2B 7E 01 85 22 9D 9D 22 |3$.ZI$..+~..".."|
000023C0: 3B 5A 49 24 3A 46 34 24 B2 5A 49 24 00 E2 2B 7F |;ZI$:F4$.ZI$..+.|
000023D0: 01 85 22 9D 9D 22 3B 5A 49 24 3A 46 35 24 B2 5A |.."..";ZI$:F5$.Z|
000023E0: 49 24 00 F8 2B 80 01 85 22 9D 9D 22 3B 5A 49 24 |I$..+..."..";ZI$|
000023F0: 3A 46 36 24 B2 5A 49 24 00 0E 2C 81 01 85 22 9D |:F6$.ZI$..,...".|
00002400: 9D 22 3B 5A 49 24 3A 46 37 24 B2 5A 49 24 00 24 |.";ZI$:F7$.ZI$.$|
00002410: 2C 82 01 85 22 9D 9D 22 3B 5A 49 24 3A 46 38 24 |,..."..";ZI$:F8$|
00002420: B2 5A 49 24 00 44 2C 83 01 99 22 11 12 49 53 20 |.ZI$.D,..."..IS |
00002430: 54 48 41 54 20 43 4F 52 52 45 43 54 20 28 59 2F |THAT CORRECT (Y/|
00002440: 4E 29 3F 3B 00 4D 2C 84 01 8D 32 36 35 00 62 2C |N)?;.M,...265.b,|
00002450: 85 01 8B 4B 45 59 24 B2 22 59 22 A7 99 22 59 45 |...KEY$."Y".."YE|
00002460: 53 22 00 74 2C 86 01 8B 4B 45 59 24 B2 22 4E 22 |S".t,...KEY$."N"|
00002470: A7 33 37 37 00 7A 2C 87 01 8E 00 A8 2C 88 01 3A |.377.z,.....,..:|
00002480: 8F 20 54 48 49 53 20 50 41 52 54 20 55 53 45 44 |. THIS PART USED|
00002490: 20 4F 4E 4C 59 20 4F 4E 20 50 45 54 20 46 4F 52 | ONLY ON PET FOR|
000024A0: 20 4D 4C 20 53 4F 52 54 00 C2 2C 89 01 53 B2 C2 | ML SORT..,..S..|
000024B0: 28 35 32 29 AA C2 28 35 33 29 AC 32 35 36 AB 33 |(52)..(53).256.3|
000024C0: 32 35 00 EB 2C 8A 01 8F 2A 50 52 49 4E 54 22 53 |25..,...*PRINT"S|
000024D0: 54 41 52 54 49 4E 47 20 28 53 59 53 29 20 41 44 |TARTING (SYS) AD|
000024E0: 44 52 45 53 53 20 49 53 22 3B 53 00 10 2D 8B 01 |DRESS IS";S..-..|
000024F0: 81 49 B2 30 A4 33 32 34 3A 87 41 3A 97 53 AA 49 |.I.0.324:.A:.S.I|
00002500: 2C 41 3A 99 22 2A 22 3B 3A 51 B2 51 AA 41 3A 82 |,A:."*";:Q.Q.A:.|
00002510: 00 3C 2D 8C 01 8B 51 B3 B1 34 31 33 32 36 A7 99 |.<-...Q..41326..|
00002520: 22 45 52 52 4F 52 20 49 4E 20 44 41 54 41 20 53 |"ERROR IN DATA S|
00002530: 54 41 54 45 4D 45 4E 54 53 22 3A 90 00 65 2D 8D |TATEMENTS":..e-.|
00002540: 01 8B C2 28 35 30 30 30 33 29 B2 31 A7 81 4A B2 |...(50003).1..J.|
00002550: 53 AA 32 32 39 A4 53 AA 32 38 32 3A 97 4A 2C 32 |S.229.S.282:.J,2|
00002560: 33 34 3A 82 4A 00 88 2D 8E 01 8F 20 50 52 4F 54 |34:.J..-... PROT|
00002570: 45 43 54 20 50 52 4F 47 52 41 4D 20 46 52 4F 4D |ECT PROGRAM FROM|
00002580: 20 53 54 52 49 4E 47 53 00 B9 2D 8F 01 4D B2 B5 | STRINGS..-..M..|
00002590: 28 53 AD 32 35 36 29 3A 4E B2 53 AB 4D AC 32 35 |(S.256):N.S.M.25|
000025A0: 36 3A 97 35 32 2C 4E 3A 97 35 33 2C 4D 3A 97 34 |6:.52,N:.53,M:.4|
000025B0: 38 2C 4E 3A 97 34 39 2C 4D 00 E5 2D 90 01 83 20 |8,N:.49,M..-... |
000025C0: 31 36 35 2C 34 35 2C 31 39 37 2C 34 37 2C 32 30 |165,45,197,47,20|
000025D0: 38 2C 37 2C 31 36 35 2C 34 34 2C 31 39 37 2C 34 |8,7,165,44,197,4|
000025E0: 36 2C 32 30 38 00 0A 2E 91 01 83 20 31 2C 39 36 |6,208...... 1,96|
000025F0: 2C 31 36 35 2C 34 34 2C 31 33 33 2C 31 2C 31 36 |,165,44,133,1,16|
00002600: 35 2C 34 35 2C 31 33 33 2C 32 00 30 2E 92 01 83 |5,45,133,2.0....|
00002610: 20 31 36 30 2C 30 2C 31 37 37 2C 31 2C 32 30 35 | 160,0,177,1,205|
00002620: 2C 31 36 37 2C 32 2C 32 30 38 2C 38 2C 32 30 30 |,167,2,208,8,200|
00002630: 00 56 2E 93 01 83 20 31 37 37 2C 31 2C 32 30 35 |.V.... 177,1,205|
00002640: 2C 31 36 38 2C 32 2C 32 34 30 2C 33 31 2C 31 36 |,168,2,240,31,16|
00002650: 30 2C 32 2C 32 34 00 79 2E 94 01 83 20 31 37 37 |0,2,24.y.... 177|
00002660: 2C 31 2C 31 30 31 2C 31 2C 37 32 2C 32 30 30 2C |,1,101,1,72,200,|
00002670: 31 37 37 2C 31 2C 31 30 31 00 B0 2E 95 01 83 20 |177,1,101...... |
00002680: 32 2C 31 33 33 2C 32 2C 31 30 34 2C 31 33 33 2C |2,133,2,104,133,|
00002690: 31 2C 31 36 35 2C 32 2C 31 39 37 2C 34 37 2C 31 |1,165,2,197,47,1|
000026A0: 34 34 2C 32 31 35 2C 31 36 35 2C 31 2C 31 39 37 |44,215,165,1,197|
000026B0: 00 D8 2E 96 01 83 20 34 36 2C 31 34 34 2C 32 30 |...... 46,144,20|
000026C0: 39 2C 39 36 2C 31 36 30 2C 35 2C 31 37 37 2C 31 |9,96,160,5,177,1|
000026D0: 2C 31 34 31 2C 31 36 30 00 FE 2E 97 01 83 20 32 |,141,160...... 2|
000026E0: 2C 32 30 30 2C 31 37 37 2C 31 2C 31 34 31 2C 31 |,200,177,1,141,1|
000026F0: 36 31 2C 32 2C 31 36 39 2C 31 2C 31 34 31 00 23 |61,2,169,1,141.#|
00002700: 2F 98 01 83 20 31 36 32 2C 32 2C 31 36 39 2C 30 |/... 162,2,169,0|
00002710: 2C 31 34 31 2C 31 36 33 2C 32 2C 32 34 2C 31 36 |,141,163,2,24,16|
00002720: 35 2C 31 00 4B 2F 99 01 83 20 31 30 35 2C 37 2C |5,1.K/... 105,7,|
00002730: 31 33 33 2C 31 38 37 2C 31 36 35 2C 32 2C 31 30 |133,187,165,2,10|
00002740: 35 2C 30 2C 31 33 33 2C 31 38 38 00 78 2F 9A 01 |5,0,133,188.x/..|
00002750: 83 20 31 36 35 2C 31 38 37 2C 31 33 33 2C 31 37 |. 165,187,133,17|
00002760: 37 2C 31 36 35 2C 31 38 38 2C 31 33 33 2C 31 37 |7,165,188,133,17|
00002770: 38 2C 32 34 2C 31 36 35 00 A2 2F 9B 01 83 20 31 |8,24,165../... 1|
00002780: 37 37 2C 31 30 35 2C 33 2C 31 33 33 2C 31 38 37 |77,105,3,133,187|
00002790: 2C 31 36 35 2C 31 37 38 2C 31 30 35 2C 30 2C 31 |,165,178,105,0,1|
000027A0: 33 33 00 CC 2F 9C 01 83 20 31 38 38 2C 31 36 30 |33../... 188,160|
000027B0: 2C 30 2C 31 37 37 2C 31 37 37 2C 32 30 38 2C 34 |,0,177,177,208,4|
000027C0: 36 2C 32 34 2C 31 37 33 2C 31 36 32 00 F2 2F 9D |6,24,173,162../.|
000027D0: 01 83 20 32 2C 31 30 35 2C 31 2C 31 34 31 2C 31 |.. 2,105,1,141,1|
000027E0: 36 32 2C 32 2C 31 37 33 2C 31 36 33 2C 32 2C 31 |62,2,173,163,2,1|
000027F0: 30 35 00 18 30 9E 01 83 20 30 2C 31 34 31 2C 31 |05..0... 0,141,1|
00002800: 36 33 2C 32 2C 31 37 33 2C 31 36 33 2C 32 2C 32 |63,2,173,163,2,2|
00002810: 30 35 2C 31 36 30 2C 32 00 42 30 9F 01 83 20 31 |05,160,2.B0... 1|
00002820: 34 34 2C 32 30 34 2C 31 37 33 2C 31 36 32 2C 32 |44,204,173,162,2|
00002830: 2C 32 30 35 2C 31 36 31 2C 32 2C 31 34 34 2C 31 |,205,161,2,144,1|
00002840: 39 36 00 69 30 A0 01 83 20 31 37 33 2C 31 36 34 |96.i0... 173,164|
00002850: 2C 32 2C 32 30 38 2C 31 2C 39 36 2C 31 36 39 2C |,2,208,1,96,169,|
00002860: 30 2C 31 34 31 2C 31 36 34 00 93 30 A1 01 83 20 |0,141,164..0... |
00002870: 32 2C 32 34 30 2C 31 36 30 2C 31 34 31 2C 31 36 |2,240,160,141,16|
00002880: 35 2C 32 2C 31 37 37 2C 31 38 37 2C 32 34 30 2C |5,2,177,187,240,|
00002890: 32 33 36 00 BF 30 A2 01 83 20 31 34 31 2C 31 36 |236..0... 141,16|
000028A0: 36 2C 32 2C 32 30 30 2C 31 37 37 2C 31 37 37 2C |6,2,200,177,177,|
000028B0: 31 33 33 2C 31 38 35 2C 31 37 37 2C 31 38 37 00 |133,185,177,187.|
000028C0: ED 30 A3 01 83 20 31 33 33 2C 31 38 39 2C 32 30 |.0... 133,189,20|
000028D0: 30 2C 31 37 37 2C 31 37 37 2C 31 33 33 2C 31 38 |0,177,177,133,18|
000028E0: 36 2C 31 37 37 2C 31 38 37 2C 31 33 33 00 19 31 |6,177,187,133..1|
000028F0: A4 01 83 20 31 39 30 2C 31 36 30 2C 30 2C 31 37 |... 190,160,0,17|
00002900: 37 2C 31 38 35 2C 32 30 39 2C 31 38 39 2C 31 34 |7,185,209,189,14|
00002910: 34 2C 31 37 34 2C 32 34 30 00 42 31 A5 01 83 20 |4,174,240.B1... |
00002920: 32 2C 31 37 36 2C 31 31 2C 32 30 30 2C 32 30 34 |2,176,11,200,204|
00002930: 2C 31 36 35 2C 32 2C 32 34 30 2C 31 36 34 2C 32 |,165,2,240,164,2|
00002940: 30 34 00 6B 31 A6 01 83 20 31 36 36 2C 32 2C 32 |04.k1... 166,2,2|
00002950: 30 38 2C 32 33 35 2C 31 36 30 2C 30 2C 32 34 2C |08,235,160,0,24,|
00002960: 31 36 35 2C 31 38 35 2C 31 30 39 00 95 31 A7 01 |165,185,109..1..|
00002970: 83 20 31 36 35 2C 32 2C 31 33 33 2C 32 31 34 2C |. 165,2,133,214,|
00002980: 31 36 35 2C 31 38 36 2C 31 30 35 2C 30 2C 31 33 |165,186,105,0,13|
00002990: 33 2C 32 31 35 00 C0 31 A8 01 83 20 32 34 2C 31 |3,215..1... 24,1|
000029A0: 36 35 2C 31 38 39 2C 31 30 39 2C 31 36 36 2C 32 |65,189,109,166,2|
000029B0: 2C 31 33 33 2C 32 31 38 2C 31 36 35 2C 31 39 30 |,133,218,165,190|
000029C0: 00 EB 31 A9 01 83 20 31 30 35 2C 30 2C 31 33 33 |..1... 105,0,133|
000029D0: 2C 32 31 39 2C 31 37 37 2C 32 31 34 2C 37 32 2C |,219,177,214,72,|
000029E0: 32 30 30 2C 31 37 37 2C 32 31 34 00 18 32 AA 01 |200,177,214..2..|
000029F0: 83 20 37 32 2C 31 33 36 2C 31 37 37 2C 32 31 38 |. 72,136,177,218|
00002A00: 2C 31 34 35 2C 32 31 34 2C 32 30 30 2C 31 37 37 |,145,214,200,177|
00002A10: 2C 32 31 38 2C 31 34 35 00 44 32 AB 01 83 20 32 |,218,145.D2... 2|
00002A20: 31 34 2C 31 30 34 2C 31 34 35 2C 32 31 38 2C 31 |14,104,145,218,1|
00002A30: 33 36 2C 31 30 34 2C 31 34 35 2C 32 31 38 2C 31 |36,104,145,218,1|
00002A40: 36 30 2C 30 00 6E 32 AC 01 83 20 31 37 33 2C 31 |60,0.n2... 173,1|
00002A50: 36 36 2C 32 2C 31 34 35 2C 31 37 37 2C 31 37 33 |66,2,145,177,173|
00002A60: 2C 31 36 35 2C 32 2C 31 34 35 2C 31 38 37 00 9C |,165,2,145,187..|
00002A70: 32 AD 01 83 20 32 30 30 2C 31 36 35 2C 31 38 39 |2... 200,165,189|
00002A80: 2C 31 34 35 2C 31 37 37 2C 31 36 35 2C 31 38 35 |,145,177,165,185|
00002A90: 2C 31 34 35 2C 31 38 37 2C 32 30 30 00 C8 32 AE |,145,187,200..2.|
00002AA0: 01 83 20 31 36 35 2C 31 39 30 2C 31 34 35 2C 31 |.. 165,190,145,1|
00002AB0: 37 37 2C 31 36 35 2C 31 38 36 2C 31 34 35 2C 31 |77,165,186,145,1|
00002AC0: 38 37 2C 31 36 39 2C 31 00 F0 32 AF 01 83 20 31 |87,169,1..2... 1|
00002AD0: 34 31 2C 31 36 34 2C 32 2C 31 36 39 2C 30 2C 32 |41,164,2,169,0,2|
00002AE0: 34 30 2C 31 35 36 2C 39 35 2C 32 35 35 2C 39 35 |40,156,95,255,95|
00002AF0: 00 17 33 B0 01 8F 20 50 4F 4B 45 20 56 41 52 49 |..3... POKE VARI|
00002B00: 41 42 4C 45 20 4E 41 4D 45 20 41 4E 44 20 53 4F |ABLE NAME AND SO|
00002B10: 52 54 20 4C 49 53 54 00 39 33 B1 01 97 36 37 39 |RT LIST.93...679|
00002B20: 2C C6 28 22 46 22 29 3A 97 36 38 30 2C C6 28 22 |,.("F"):.680,.("|
00002B30: 46 22 29 AA 31 32 38 3A 8E 00 00 00 |F").128:.... |
.......*BETTER FILE**.C.... 59468,12 :P.
0 :.B(50003)..160..53272,21.K....*BASED
ON DISK PHONO-PHILE (TPUG)*......* RE-WR
ITTEN BY R.E.
BYERS 1983**.Y....B(50003)..160.8:.* SKI
P ML IF NOT PET*......"...STAND BY.";..
....393.>...N.0:J.0:FLAG.0:.*IF USING ON
LY ON C=64 LINES 3900+ MAY BE DELETED*.Y
.... FF$(215):.ZI$(10):. **** NUMBER OF
ALLOWABLE RECORDS.....BL$." "
.P...."...ENTER TO-DAY'S DATE (MON/DD/Y)
":.".(MAX. 9 CHARACTERS).....ZL.9:.328:D
T$.ZI$......358...... **** MENU.)...."..
....BETTER FILE (R.E.BYERS 1983)".J....
.5) "..1. ADD INFORMATION".`.... .5) ".2
. SEARCH...... .5) ".3. SAVE INFORMATION
. .... .5) ".4. LOAD INFORMATION...... .
5) ".5. MANIPULATE/SORT.T.... .5) ".6. P
RINT...... .5) ".7. QUIT...... 265......
KEY$."1" . KEY$."7" . . 23.).... KEY$."
7" . . 28.N.... E(KEY$) . 33,51,84,105,1
28,249.W.... 15.F....FLAG.1.31......"...
DO YOU WISH TO SAVE YOUR FILE FIRST
(Y/N)? ":.265......KEY$."Y".15.......D
. .....!.. **** ADD INFORMATION...".N.N.
1...#.."...ADD INFORMATION"...$.. 283.#.
%.. KEY$."Y" . . 40.-.&.."..".6.'.. 36.N
.(.. **** PROCESS NAME.T.).:.Q.*.. USE F
IXED FIELD LENGTH.{.+.. 297...,..:. "."
FF$(N)...-.:.G...."....DO YOU HAVE FURTH
ER INFORMATION TO ADD?".Q./.. 265...0.:.
KEY$."N" . . 50...1.:. KEY$."Y" . . 33.
..2.....3.. **** SEARCH.(.4.."...SEARCH"
.R.5.."OUTPUT TO 1.SCREEN OR 2.PRINTER
";.`.6.."1...";P...7..".YOU MAY LOOK IN
FIELD#1. ";E$(1)...8..".................
.FIELD#2. ";E$(2).Z.9.."................
..FIELD#3. ";E$(3)...:.."...............
...FIELD#4. ";E$(4).,.;.."..............
....FIELD#5. ";E$(5).U.<..".............
.....FIELD#6. ";E$(6).~.=.."............
......FIELD#7. ";E$(7)...>.."...........
.......FIELD#8. ";E$(8).R.?..".YOU MAY A
LSO RETURN TO THE .M.ENU."...@.."..PRESS
A NUMBER(1 TO 8)OR M."...A.. 265...B..
SEARCH FOR FIELD#..5.C.. KEY$."1".KEY$."
8".82.Z.D.SE.E(KEY$):.*SELECT FIELD PROM
PT...E.F.(SE.12).11:. SELECT FIELD TO SE
ARCH...F..SE.8.F.77...G.PROMPT$.E$(SE)."
TO FIND.."...H..269.K.I.:. I.1 . N...J.
: . A$..J(FF$(I),F,C(A$)) . . 80...K.:
."."...L..P.2 ..348...M.: . 275.T.
N.: .".PRESS A KEY TO CONTINUE OR .M.
FOR MENUE.".P.O.: . 265:.KEY$."M".81
.Y.P.:. I..Q.....R.. KEY$.."M" . . 52..
.S.....T.. **** RECORD INFORMATION...U..
"...RECORD INFORMATION ON DISK...V.."..P
LACE YOUR DATA DISK IN DISK DRIVE 0.L.W.
.".PRESS .D. IF YOU WISH TO DATE FILE WI
TH TO-DAY'S DATE"...X..".PRESS .N. IF
YOU WISH TO GIVE YOUR FILE SOME OTHER
NAME."...Y..".PRESS .A. TO ABORT."...Z.
. 265.M.[.:. KEY$."A" . . 104...\..KEY$.
"N". ."..NAME FOR FILE? ":ZL.14:.328:DT$
.ZI$...].:.15,8,15,"I0".#.^.: . 321.A._.
:. 2,8,2,"0:-".DT$.",S,W".].`..X.1.8:.2,
E$(X)G(13):.X.J.A.: . 321.{.B.: . J.1
. N...C.: .2,FF$(J)G(13);...D.: . J.
..E.: .2,"EOD"G(13);...F.: 2.M.G.: 15:F
LAG.1.S.H.....I.. **** READ INFORMATION.
..J..".WHICH DISK FILE DO YOU WISH TO RE
AD?".E.K.."...EG. FEB/3/83":ZL.9:.328:DF
$.ZI$.`.L.."... READ INFORMATION...M..".
.PLACE YOUR DATA DISK IN DRIVE 0."...N..
".PRESS SPACE TO CONTINUE. PRESS 'A' TO.
F.O..".ABORT.".P.P.. 265...Q.:. KEY$."A"
. . 127...R.:.15,8,15,"I0"...S.:.2,8,2,
"0:-".DF$.",S,R".%.T.: . 321.8.U.: ."L
OADING";.O.V..X.1.8:.2,E$(X):.X.[.W.: N.
N.1.L.X.: .2,FF$(N).Y.Y.: .".";...Z.:
. FF$(N)."EOD" . . 124...{.: . 119...|.
FF$(N)."": N.N.1...}.: 2.I.~.: 15.O....
..... **** MANIPULATE/SORT......"... MAN
IPULATE/SORT.&....".YOU MAY: .L.IST INDI
VIDUAL.H....". LIST .A.LL ITEMS"
.I....". .D.ELETE AN ITEM......"
. .C.HANGE AN ITEM......".
.S.ORT THE ITEMS.B....". .M.E
NU.L.... 265.....:. KEY$."M" . . 248....
.:. KEY$.."L" . . 156......"...LIST THE
DATA FILE".;....".THERE ARE ";N;" RECORD
S.".T...."START AT RECORD";K.M.... K.0 .
K..N . . 145......"ILLEGAL RECORD NUMBE
R. PLEASE RE-ENTER"...... 141.....I.K...
..."..>.FORWARDS .<.BACKWARDS .R.ESTART
.Q.UIT............"RECORD NUMBER:"K....
.. 275...... 265.(...:. KEY$.">" . K.K.1
.@...:. KEY$."<" . K.K.1.X...:. KEY$."R"
. . 139.P...:. KEY$."Q" . . 248.Z.... 1
42...... **** LIST ALL ITEMS......KEY$..
"A" . . 169.Y...."..USE .SPACE. TO PAUSE
. .MM. TO QUIT.."...... J.1 . N... .: .
"."J"." FF$(J).....: . A$......A$."M".2
48.3...: . A$."" . . 166.?...: . A$.
V...: . A$."" . . 164.\.....F.... 265.P
.... 248...... **** DELETE AN ITEM......
KEY$.."D" . . 186.E...PROMPT$."ITEM NUMB
ER TO DELETE".O.... 269.....:. E(A$).1 .
E(A$).N . . 199.....:.".DELETE.:".....I
.E(A$)...... 275.9...."CONFIRM: PRESS .Y
. OR .N.".C.... 265.Z.... KEY$."N" . . 2
48.R.... KEY$.."Y" . . 177.....FF$(I).FF
$(N).....N.N.1.S...."....NOTE!. IN ORDER
TO AVOID LOSS OF DATA YOU SHOULD .SORT.
";......"AFTER EACH DELETION.":. D.1.15
00:.D...... 248.!.... **** CHANGE AN ITE
M.9.... KEY$.."C" . . 209.Z...PROMPT$."C
HANGE ITEM NUMBER".D.... 269...... E(A$)
.1 . E(A$).N .209.....I.E(A$). ...."..IT
EM #.";I...A..".............."...B.. 275
...C.."..IS THIS THE CORRECT ITEM?...D..
"PRESS Y FOR YES; N FOR NO; A TO ABORT..
..E.. 265./.F.:. KEY$."A" . 248.G.G.:. K
EY$."Y" . . 202.].H.:. KEY$."N" . 188.G.
I.. 197.Q.J..".."...K..275:.".."...L.. 3
77...M.B.N...N.N.I...O.. 297...P.N.B...Q
.. **** SORT.T.R.. KEY$.."S" . . 248...S
.."..SORT ITEMS"...T.."..SORT ON FIELD#
1. ";E$(1).+.U..". FIELD#2. ";E$
(2).L.V..". FIELD#3. ";E$(3).M.W
..". FIELD#4. ";E$(4)...X..".
FIELD#5. ";E$(5)...Y..". F
IELD#6. ";E$(6).P.Z..". FIELD#7.
";E$(7)......". FIELD#8. ";E$(8
)......". .@.ABORT.-....".TYPE A
NUMBER(1 TO 8) OR @".7.... 265.M.... KE
Y$.."1" . 228.C.... KEY$."@". . 248.....
.B(50003)..160.BEGIN.1:L.12:.228......".
.SORTING.... STAND BY.."......S:..G....
KEY$.."2" . 231.T...BEGIN.13.....L.12...
... KEY$.."3" . 234.....BEGIN.25.....L.1
2...... KEY$.."4" . 237.,...BEGIN.37.5..
.L.12.K.... KEY$.."5" . 240.X...BEGIN.49
.A...L.12.W.... KEY$.."6" . 243.....BEGI
N.61.....L.12...... KEY$.."7" . 246.....
BEGIN.73.....L.4.N.... KEY$."@". . 248.X
.... 308............ **** PRINTER OUTPUT
......"... PRINTER OUTPUT.-....".PREPARE
THE PRINTER..N....".PRESS A KEY TO CONT
INUE.".I....".PRESS 'A' TO ABORT..S....
265...... KEY$."A" . . 264...... 1,4....
..X.1.8:.1,H(E$(X).BL$,10);.C....X:.1:.1
:.1.Q.... I.1 . N.....: .1,FF$(I)......
I......1..... 1........ ... **** GET A K
EY.. ... KEY$.3 ... KEY$."" . . 266.9 ..
..Q ... **** INPUT STRING.] ...PROMT$.S
..ZL.12:.328:A$.ZI$.. ..:. A$.." " . . 2
74.. ... 269.. ..... ... **** PRINT NAME
, ID.# ETC.. ...J(FF$(I),1,12):.J(FF$(I)
,13,12).. ...J(FF$(I),25,12)..!...J(FF$(
I),37,12)..!...J(FF$(I),49,12).3!...J(FF
$(I),61,12).U!...J(FF$(I),73,4):.J(FF$(I
),77).[!....{!... **** INPUT VARIOUS FIE
LDS..!...".TYPE FIELD#1. .";E$(1);" ";:Z
L.12:.328:F1$.ZI$:...!...".TYPE FIELD#2.
.";E$(2);" ";:.328:F2$.ZI$:..."...".TYP
E FIELD#3. .";E$(3);" ";:.328:F3$.ZI$:..
I"...".TYPE FIELD#4. .";E$(4);" ";:.328:
F4$.ZI$:..{" ..".TYPE FIELD#5. .";E$(5);
" ";:.328:F5$.ZI$:..."!..".TYPE FIELD#6.
.";E$(6);" ";:.328:F6$.ZI$:...""..".TYP
E FIELD#7. .";E$(7);" ";:ZL.4:.328:ZL.12
:F7$.ZI$:..'##..".TYPE FIELD#8. .";E$(8)
;" ";:ZL.2:.328:F8$.ZI$:.:ZL.12.U#$.."..
IS THAT INFORMATION CORRECT (Y/N)? ";._#
%.. 265.{#&.. KEY$."Y" . ."... YES"..#'.
. KEY$."N" . ."..":. 283..#(....#).. ***
* USE FIXED FIELD LENGTH.V#*.F1$.H(F1$.B
L$,12)..#+.F2$.H(F2$.BL$,12)..$,.F3$.H(F
3$.BL$,12)..$-.F4$.H(F4$.BL$,12)..$..F5$
.H(F5$.BL$,12).D$/.F6$.H(F6$.BL$,12).Y$0
.F7$.H(F7$.BL$,4).N$1.F8$.H(F8$.BL$,2)..
$2.FF$(N).F1$.F2$.F3$.F4$.F5$.F6$.F7$.F8
$..$3....$4.. **** SELECT SORT ROUTINE.S
$5..". "..$6.. I.1 . N.1..$7.
. J.I.1 . N.%%8.. J(FF$(I),BEGIN,L) .. J
(FF$(J),BEGIN,L). 317.4%9.F1$.FF$(I).F%:
.FF$(I).FF$(J).U%;.FF$(J).F1$.F%<..".SOR
TING";.N%=.. J..%>.."..SORTING.";..%?..
I..%@....%A.. **** DISK STATUS..%B..15,E
N,EM$,ET,ES.H%C..EN.0. ...%D.." ERROR ON
DISK"..%E..EN;EM$;ET;ES..%F. 2..%G....&
H..**************************.>&I.ZI$.""
:. MULTI-CHARACTER GET.I&J.ZI$.""._&K..Z
G$:.ZG$.."".333.O&L..">.";:.331..&M.." .
";:Z9.F(ZG$):Z8.C(ZI$)..&N..Z9.20.341..&
O..Z9.13.346..&P..Z8.ZL.331.K&Q..Z9.34.
331..&R..Z9.218.Z9.32.331..&S..ZG$;:ZI$.
ZI$.ZG$..'T..331..'U..Z8.0.331..'V..". .
";.('W..Z8.1.330.<'X.ZI$.H(ZI$,Z8.1).E'Y
..331.S'Z..Z8.0.331.Y'[...X'\.. **** PRI
NT NAME, KIT,ETC..']..1,4..'^..1,J(FF$(I
),1,12);:.1,J(FF$(I),13,12);.D'_..1,J(FF
$(I),25,12);..'`..1,J(FF$(I),37,12);..'A
..1,J(FF$(I),49,12);..(B..1,J(FF$(I),61,
12);.#(C..1,J(FF$(I),73,4);.=(D..1,J(FF$
(I),77,2);:.1.F(E. 1:..S(F.."..ARE YOU B
EGINNING A NEW FILE(Y/N)?";.|(G..265..(H
.. KEY$."N".14..(I.."..YOU MAY TITLE 8 D
IFFERENT INPUT FIELDS ";..)J.." OF UP TO
12 CHARACTERS EACH.(4 ONLY FOR #7 AND 2
FOR #8).".D)K..".PLEASE DO .NOT. USE CO
MMAS OR SEMICOLONS IN YOUR INPUTS.".R)L
..".INPUT TWO ARROWS (__) IN ANY OF THE
";..)M.."8 FIELDS YOU DO NOT WISH TO U
SE."..)N..".ALL FIELDS MAY BE USED FOR S
ORTING AND SEARCHING THE FILE.". *O..".
.HINT.*(MAKE YOUR LIST OF 8 FIELDS ON
PAPER FIRST.)".,*P.. X.1.8.V*Q.."..WHA
T TYPE OF INFORMATION (EG.SURNAME, FIR
ST NAME,SCHOOL,TOWN,";..*R..".PHONE NO.,
ETC.) WOULD YOU LIKE TO PLACE IN FIELD#
";X;". ? ".W*S.ZL.10:.328:E$(X).ZI$:..
.*T..X..+U.."..":.X.1.8:."FIELD#";X;" =
";E$(X):.X..+V..".IS THIS CORRECT(Y/N)?"
;:.265.@+W..KEY$."N".361.H+X..14.J+Y..*C
HANGE FIELDS USING INPUT**.T+Z..".."..+{
.."..";ZI$:F1$.ZI$. +|.."..";ZI$:F2$.ZI$
..+}.."..";ZI$:F3$.ZI$.L+~.."..";ZI$:F4$
.ZI$..+.."..";ZI$:F5$.ZI$..+..."..";ZI$
:F6$.ZI$..,..."..";ZI$:F7$.ZI$.$,...".."
;ZI$:F8$.ZI$.D,..."..IS THAT CORRECT (Y/
N)?;.M,...265.B,...KEY$."Y".."YES".T,...
KEY$."N".377.Z,.....,..:. THIS PART USED
ONLY ON PET FOR ML SORT.B,..S.B(52).B(5
3).256.325..,...*PRINT"STARTING (SYS) AD
DRESS IS";S..-...I.0.324:.A:.S.I,A:."*";
:Q.Q.A:..<-...Q..41326.."ERROR IN DATA S
TATEMENTS":..E-...B(50003).1..J.S.229.S.
282:.J,234:.J..-... PROTECT PROGRAM FROM
STRINGS..-..M..(S.256):N.S.M.256:.52,N:
.53,M:.48,N:.49,M..-... 165,45,197,47,20
8,7,165,44,197,46,208...... 1,96,165,44,
133,1,165,45,133,2.0.... 160,0,177,1,205
,167,2,208,8,200.V.... 177,1,205,168,2,2
40,31,160,2,24.Y.... 177,1,101,1,72,200,
177,1,101...... 2,133,2,104,133,1,165,2,
197,47,144,215,165,1,197.X.... 46,144,20
9,96,160,5,177,1,141,160...... 2,200,177
,1,141,161,2,169,1,141.#/... 162,2,169,0
,141,163,2,24,165,1.K/... 105,7,133,187,
165,2,105,0,133,188.X/... 165,187,133,17
7,165,188,133,178,24,165../... 177,105,3
,133,187,165,178,105,0,133.L/... 188,160
,0,177,177,208,46,24,173,162../... 2,105
,1,141,162,2,173,163,2,105..0... 0,141,1
63,2,173,163,2,205,160,2.B0... 144,204,1
73,162,2,205,161,2,144,196.I0 .. 173,164
,2,208,1,96,169,0,141,164..0... 2,240,16
0,141,165,2,177,187,240,236..0... 141,16
6,2,200,177,177,133,185,177,187..0... 13
3,189,200,177,177,133,186,177,187,133..1
... 190,160,0,177,185,209,189,144,174,24
0.B1... 2,176,11,200,204,165,2,240,164,2
04.K1... 166,2,208,235,160,0,24,165,185,
109..1... 165,2,133,214,165,186,105,0,13
3,215..1... 24,165,189,109,166,2,133,218
,165,190..1... 105,0,133,219,177,214,72,
200,177,214..2... 72,136,177,218,145,214
,200,177,218,145.D2... 214,104,145,218,1
36,104,145,218,160,0.N2... 173,166,2,145
,177,173,165,2,145,187..2... 200,165,189
,145,177,165,185,145,187,200.H2... 165,1
90,145,177,165,186,145,187,169,1..2... 1
41,164,2,169,0,240,156,95,255,95..3... P
OKE VARIABLE NAME AND SORT LIST.93...679
,F("F"):.680,F("F").128:....
> CLICK IMAGE PREVIEW FOR FULL MODAL