DATAFILE
FILE INFORMATION
FILENAME(S): DATAFILE
FILE TYPE(S): PRG
FILE SIZE: 8.8K
FIRST SEEN: 2025-11-30 18:12:44
APPEARS ON: 1 disk(s)
FILE HASH
53cac6cd0e2479404589d9d442f886b92c792ab87b01552e7d85259c1f0eaf30
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RERUN PROD PAK | DATAFILE | PRG | Sailor, Ganheden | 4 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 21 08 05 00 8B 46 4C B2 30 A7 46 4C B2 31 |..!....FL.0.FL.1|
00000010: 3A 93 22 44 50 5D 20 53 53 4F 52 54 22 2C 38 2C |:."DP] SSORT",8,|
00000020: 31 00 42 08 06 00 8B 46 4C B2 31 A7 46 4C B2 32 |1.B....FL.1.FL.2|
00000030: 3A 93 22 44 50 5D 20 44 4F 53 35 2E 31 22 2C 38 |:."DP] DOS5.1",8|
00000040: 2C 31 00 59 08 07 00 8B 46 4C B2 32 A7 46 4C B2 |,1.Y....FL.2.FL.|
00000050: 33 3A 3A 9E 35 32 32 32 34 00 90 08 08 00 8F 20 |3::.52224...... |
00000060: 53 53 4F 52 54 20 42 59 20 44 41 56 49 44 20 50 |SSORT BY DAVID P|
00000070: 45 54 45 52 53 4F 4E 2C 20 44 4F 53 35 2E 31 20 |ETERSON, DOS5.1 |
00000080: 28 43 29 20 42 59 20 43 4F 4D 4D 4F 44 4F 52 45 |(C) BY COMMODORE|
00000090: 00 BB 08 0A 00 8F 20 44 41 54 41 46 49 4C 45 20 |...... DATAFILE |
000000A0: 33 2E 36 20 28 43 29 31 39 38 36 20 42 59 20 4D |3.6 (C)1986 BY M|
000000B0: 49 4B 45 20 4B 4F 4E 53 48 41 4B 00 E3 08 0C 00 |IKE KONSHAK.....|
000000C0: 97 35 33 32 38 30 2C 30 3A 97 35 33 32 38 31 2C |.53280,0:.53281,|
000000D0: 30 3A 99 22 9E 22 3A 8D 31 36 3A 8D 36 30 30 3A |0:.".":.16:.600:|
000000E0: 89 36 38 00 28 09 10 00 44 24 B2 22 22 3A 4D 52 |.68.(...D$."":MR|
000000F0: 24 B2 44 24 3A 44 52 24 B2 44 24 3A 53 B2 30 3A |$.D$:DR$.D$:S.0:|
00000100: 42 31 24 B2 44 24 3A 50 57 B2 30 3A 43 57 B2 30 |B1$.D$:PW.0:CW.0|
00000110: 3A 42 24 B2 C7 28 33 32 29 3A 46 4C B2 30 3A 4C |:B$..(32):FL.0:L|
00000120: 24 B2 22 22 3A 45 B2 30 00 74 09 12 00 4E 43 B2 |$."":E.0.t...NC.|
00000130: 30 3A 4E 4C B2 30 3A 50 47 B2 30 3A 46 31 B2 30 |0:NL.0:PG.0:F1.0|
00000140: 3A 46 32 B2 30 3A 46 33 B2 30 3A 4C 24 B2 44 24 |:F2.0:F3.0:L$.D$|
00000150: 3A 52 4C B2 30 3A 53 42 24 B2 44 24 3A 43 52 24 |:RL.0:SB$.D$:CR$|
00000160: B2 C7 28 31 33 29 3A 48 4E 24 B2 44 24 3A 49 44 |..(13):HN$.D$:ID|
00000170: 24 B2 44 24 00 C3 09 14 00 41 24 B2 44 24 3A 43 |$.D$.....A$.D$:C|
00000180: 24 B2 44 24 3A 54 25 B2 30 3A 49 24 B2 44 24 3A |$.D$:T%.0:I$.D$:|
00000190: 43 4B B2 30 3A 49 B2 30 3A 4A B2 30 3A 4B B2 30 |CK.0:I.0:J.0:K.0|
000001A0: 3A 4C B2 30 3A 4D B2 30 3A 4E B2 30 3A 52 57 B2 |:L.0:M.0:N.0:RW.|
000001B0: 35 3A 53 46 B2 30 3A 5A B2 30 3A 45 24 B2 22 45 |5:SF.0:Z.0:E$."E|
000001C0: 4F 46 22 00 0B 0A 16 00 45 4E B2 30 3A 45 4D 24 |OF".....EN.0:EM$|
000001D0: B2 44 24 3A 45 54 B2 30 3A 45 53 B2 30 3A 41 31 |.D$:ET.0:ES.0:A1|
000001E0: 24 B2 44 24 3A 41 32 24 B2 44 24 3A 41 33 24 B2 |$.D$:A2$.D$:A3$.|
000001F0: 44 24 3A 53 31 24 B2 44 24 3A 54 53 25 B2 30 3A |D$:S1$.D$:TS%.0:|
00000200: 4D 45 4D B2 32 39 35 30 30 3A 8E 00 23 0A 18 00 |MEM.29500:..#...|
00000210: 86 20 46 24 28 46 AA 31 29 2C 4C 25 28 46 AA 31 |. F$(F.1),L%(F.1|
00000220: 29 3A 8E 00 46 0A 1A 00 86 20 52 45 43 24 28 52 |):..F.... REC$(R|
00000230: AA 31 2C 46 AA 31 29 2C 4B 25 28 52 AA 31 29 2C |.1,F.1),K%(R.1),|
00000240: 53 28 36 29 3A 8E 00 4C 0A 1C 00 3A 00 5E 0A 1E |S(6):..L...:.^..|
00000250: 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 33 30 00 64 |..A$:.A$."".30.d|
00000260: 0A 20 00 8E 00 6A 0A 22 00 3A 00 86 0A 24 00 8B |. ...j.".:...$..|
00000270: 43 4B B3 B1 30 A7 8D 33 39 34 3A 8B 41 24 B3 B1 |CK..0..394:.A$..|
00000280: 22 4E 22 A7 36 38 00 90 0A 25 00 9C 3A 89 34 30 |"N".68...%..:.40|
00000290: 00 C3 0A 26 00 99 22 93 20 12 20 20 20 49 4E 49 |...&..". . INI|
000002A0: 54 49 41 4C 49 5A 45 20 28 43 52 45 41 54 45 29 |TIALIZE (CREATE)|
000002B0: 20 41 20 52 45 43 4F 52 44 20 46 49 4C 45 20 20 | A RECORD FILE |
000002C0: 22 3A 8E 00 FD 0A 28 00 8D 33 38 3A 8D 31 36 3A |":....(..38:.16:|
000002D0: 85 22 11 48 4F 57 20 4D 41 4E 59 20 46 49 45 4C |.".HOW MANY FIEL|
000002E0: 44 53 20 49 4E 20 45 41 43 48 20 52 45 43 4F 52 |DS IN EACH RECOR|
000002F0: 44 9E 3F 20 30 20 9D 9D 9D 9D 22 3B 46 00 09 0B |D.? 0 ....";F...|
00000300: 29 00 8B 46 B2 30 A7 36 38 00 11 0B 2A 00 8D 32 |)..F.0.68...*..2|
00000310: 34 00 1C 0B 2B 00 81 49 B2 31 A4 46 00 51 0B 2C |4...+..I.1.F.Q.,|
00000320: 00 8D 33 38 3A 99 22 11 11 12 99 46 49 45 4C 44 |..38:."....FIELD|
00000330: 20 23 05 22 3B 49 3A 99 22 99 11 54 49 54 4C 45 | #.";I:."..TITLE|
00000340: 9E 20 3F 20 3E 91 22 3A 99 A3 38 29 46 24 28 49 |. ? >.":..8)F$(I|
00000350: 29 00 72 0B 2E 00 99 22 99 4C 45 4E 47 54 48 9E |).r....".LENGTH.|
00000360: 3F 20 30 91 22 3A 99 A3 37 29 4C 25 28 49 29 22 |? 0.":..7)L%(I)"|
00000370: 13 22 00 9E 0B 2F 00 99 22 11 11 11 11 22 3B A3 |.".../.."....";.|
00000380: 36 29 3B 3A 85 46 24 28 49 29 3A 8B 46 24 28 49 |6);:.F$(I):.F$(I|
00000390: 29 B2 22 22 A7 46 24 28 49 29 B2 22 3E 22 00 B7 |)."".F$(I).">"..|
000003A0: 0B 30 00 99 A3 36 29 3B 3A 85 4C 24 3A 8B 4C 24 |.0...6);:.L$:.L$|
000003B0: B2 22 30 22 A7 36 38 00 E7 0B 31 00 8B C5 28 4C |."0".68...1...(L|
000003C0: 24 29 B1 28 37 38 AB C3 28 46 24 28 49 29 29 29 |$).(78..(F$(I)))|
000003D0: B0 C5 28 4C 24 29 B2 30 A7 8D 36 30 32 3A 99 22 |..(L$).0..602:."|
000003E0: 91 91 22 3A 89 34 38 00 FF 0B 32 00 4C 25 28 49 |..":.48...2.L%(I|
000003F0: 29 B2 C5 28 4C 24 29 3A 82 49 3A 52 4C B2 30 00 |)..(L$):.I:RL.0.|
00000400: 05 0C 33 00 3A 00 4B 0C 34 00 81 4A B2 30 A4 46 |..3.:.K.4..J.0.F|
00000410: 3A 52 4C B2 52 4C AA 4C 25 28 4A 29 3A 82 4A 3A |:RL.RL.L%(J):.J:|
00000420: 52 4C B2 52 4C AA 33 AC 28 46 AA 31 29 AA 35 3A |RL.RL.3.(F.1).5:|
00000430: 52 B2 B5 28 28 4D 45 4D AB 31 32 AC 28 46 AA 31 |R..((MEM.12.(F.1|
00000440: 29 AB 32 31 30 30 29 AD 52 4C 29 00 79 0C 36 00 |).2100).RL).y.6.|
00000450: 99 22 11 99 20 59 4F 55 52 20 53 45 4C 45 43 54 |.".. YOUR SELECT|
00000460: 49 4F 4E 53 20 41 4C 4C 4F 57 20 9E 22 52 22 99 |IONS ALLOW ."R".|
00000470: 52 45 43 4F 52 44 53 2E 22 00 B2 0C 38 00 99 22 |RECORDS."...8.."|
00000480: 20 12 05 41 92 99 43 43 45 50 54 20 12 05 43 92 | ..A..CCEPT ..C.|
00000490: 99 48 41 4E 47 45 20 46 49 45 4C 44 20 44 41 54 |.HANGE FIELD DAT|
000004A0: 41 20 4F 52 20 05 12 52 99 92 45 4A 45 43 54 3F |A OR ..R..EJECT?|
000004B0: 9E 22 00 C5 0C 39 00 8D 33 30 3A 8B 41 24 B2 22 |."...9..30:.A$."|
000004C0: 52 22 A7 33 37 00 D4 0C 3A 00 8B 41 24 B2 22 43 |R".37...:..A$."C|
000004D0: 22 A7 34 33 00 ED 0C 3B 00 8B 41 24 B2 22 41 22 |".43...;..A$."A"|
000004E0: A7 8D 32 36 3A 43 4B B2 31 3A 89 36 31 00 FA 0C |..26:CK.1:.61...|
000004F0: 3C 00 8D 36 30 32 3A 89 35 37 00 1E 0D 3D 00 81 |<..602:.57...=..|
00000500: 49 B2 31 A4 46 3A 8B C3 28 46 24 28 49 29 29 B1 |I.1.F:..(F$(I)).|
00000510: 53 31 A7 53 31 B2 C3 28 46 24 28 49 29 29 00 29 |S1.S1..(F$(I)).)|
00000520: 0D 3E 00 82 49 3A 89 36 38 00 2F 0D 40 00 3A 00 |.>..I:.68./.@.:.|
00000530: 61 0D 44 00 99 22 93 9E 20 12 20 44 41 54 41 46 |a.D..".. . DATAF|
00000540: 49 4C 45 20 33 2E 36 20 28 43 29 31 39 38 36 20 |ILE 3.6 (C)1986 |
00000550: 42 59 20 4D 49 4B 45 20 4B 4F 4E 53 48 41 4B 20 |BY MIKE KONSHAK |
00000560: 22 00 92 0D 46 00 99 A3 33 29 22 11 12 05 43 99 |"...F...3)"...C.|
00000570: 92 52 45 41 54 45 20 4E 45 57 20 46 49 4C 45 20 |.REATE NEW FILE |
00000580: 20 20 05 12 51 99 92 55 49 54 20 50 52 4F 47 52 | ..Q..UIT PROGR|
00000590: 41 4D 00 BB 0D 48 00 99 A3 33 29 22 11 12 05 41 |AM...H...3)"...A|
000005A0: 99 92 44 44 20 52 45 43 4F 52 44 20 54 4F 20 43 |..DD RECORD TO C|
000005B0: 55 52 52 45 4E 54 20 46 49 4C 45 00 E7 0D 4A 00 |URRENT FILE...J.|
000005C0: 99 A3 33 29 22 11 12 05 4D 99 92 4F 44 49 46 59 |..3)"...M..ODIFY|
000005D0: 20 52 45 43 4F 52 44 20 49 4E 20 43 55 52 52 45 | RECORD IN CURRE|
000005E0: 4E 54 20 46 49 4C 45 00 13 0E 4C 00 99 A3 33 29 |NT FILE...L...3)|
000005F0: 22 11 12 05 44 99 92 45 4C 45 54 45 20 52 45 43 |"...D..ELETE REC|
00000600: 4F 52 44 20 49 4E 20 43 55 52 52 45 4E 54 20 46 |ORD IN CURRENT F|
00000610: 49 4C 45 00 3D 0E 4E 00 99 A3 33 29 22 11 12 05 |ILE.=.N...3)"...|
00000620: 56 99 92 49 45 57 20 4F 52 20 45 44 49 54 20 46 |V..IEW OR EDIT F|
00000630: 49 4C 45 20 9E 12 22 4E 46 24 22 92 99 00 61 0E |ILE .."NF$"...a.|
00000640: 50 00 99 A3 33 29 22 11 12 05 53 99 92 4F 52 54 |P...3)"...S..ORT|
00000650: 20 52 45 43 4F 52 44 53 20 42 59 20 46 49 45 4C | RECORDS BY FIEL|
00000660: 44 00 95 0E 52 00 99 A3 33 29 22 11 12 05 50 99 |D...R...3)"...P.|
00000670: 92 52 49 4E 54 20 52 45 43 4F 52 44 53 20 55 53 |.RINT RECORDS US|
00000680: 49 4E 47 20 9E 44 46 50 52 49 4E 54 99 2F 9E 44 |ING .DFPRINT./.D|
00000690: 46 43 41 4C 43 00 C2 0E 54 00 99 A3 33 29 22 11 |FCALC...T...3)".|
000006A0: 12 05 52 99 92 45 41 44 20 28 4C 4F 41 44 29 20 |..R..EAD (LOAD) |
000006B0: 4F 4C 44 20 46 49 4C 45 20 46 52 4F 4D 20 44 49 |OLD FILE FROM DI|
000006C0: 53 4B 00 F2 0E 56 00 99 A3 33 29 22 11 12 05 57 |SK...V...3)"...W|
000006D0: 99 92 52 49 54 45 20 28 53 41 56 45 29 20 43 55 |..RITE (SAVE) CU|
000006E0: 52 52 45 4E 54 20 46 49 4C 45 20 54 4F 20 44 49 |RRENT FILE TO DI|
000006F0: 53 4B 00 2B 0F 58 00 99 A3 33 29 22 11 12 05 40 |SK.+.X...3)"...@|
00000700: 99 92 20 44 49 53 4B 20 44 52 49 56 45 20 43 4F |.. DISK DRIVE CO|
00000710: 4D 4D 41 4E 44 53 20 12 05 24 92 20 12 34 92 99 |MMANDS ..$. .4..|
00000720: 20 44 49 52 45 43 54 4F 52 59 22 00 5D 0F 5A 00 | DIRECTORY".].Z.|
00000730: 99 22 9E 11 20 12 20 20 20 20 20 20 50 52 45 53 |.".. . PRES|
00000740: 53 20 54 48 45 20 41 50 50 52 4F 50 52 49 41 54 |S THE APPROPRIAT|
00000750: 45 20 4B 45 59 20 20 20 20 20 20 20 22 00 8A 0F |E KEY "...|
00000760: 5C 00 99 22 99 20 20 54 48 45 52 45 20 41 52 45 |\..". THERE ARE|
00000770: 9E 22 3B 58 3B 22 99 52 45 43 4F 52 44 53 20 49 |.";X;".RECORDS I|
00000780: 4E 20 4D 45 4D 4F 52 59 9E 22 00 BA 0F 5E 00 8B |N MEMORY."...^..|
00000790: 52 B1 30 A7 99 22 99 20 20 53 50 41 43 45 20 46 |R.0..". SPACE F|
000007A0: 4F 52 9E 22 3B 52 AB 58 3B 22 99 4D 4F 52 45 20 |OR.";R.X;".MORE |
000007B0: 52 45 43 4F 52 44 53 91 9E 22 00 D9 0F 60 00 8D |RECORDS.."...`..|
000007C0: 33 30 3A 8B 41 24 B2 22 41 22 A7 8D 33 35 30 3A |30:.A$."A"..350:|
000007D0: 8B 46 4C B2 30 A7 31 32 34 00 F4 0F 62 00 8B 41 |.FL.0.124...b..A|
000007E0: 24 B2 22 4D 22 A7 8D 33 35 34 3A 8B 46 4C B2 30 |$."M"..354:.FL.0|
000007F0: A7 32 34 34 00 0F 10 64 00 8B 41 24 B2 22 44 22 |.244...d..A$."D"|
00000800: A7 8D 33 35 34 3A 8B 46 4C B2 30 A7 32 37 32 00 |..354:.FL.0.272.|
00000810: 1E 10 66 00 8B 41 24 B2 22 43 22 A7 33 36 00 2E |..f..A$."C".36..|
00000820: 10 68 00 8B 41 24 B2 22 52 22 A7 31 37 30 00 3E |.h..A$."R".170.>|
00000830: 10 6A 00 8B 41 24 B2 22 50 22 A7 33 35 38 00 59 |.j..A$."P".358.Y|
00000840: 10 6C 00 8B 41 24 B2 22 56 22 A7 8D 33 35 34 3A |.l..A$."V"..354:|
00000850: 8B 46 4C B2 30 A7 31 39 32 00 74 10 6E 00 8B 41 |.FL.0.192.t.n..A|
00000860: 24 B2 22 57 22 A7 8D 33 35 30 3A 8B 46 4C B2 30 |$."W"..350:.FL.0|
00000870: A7 31 34 34 00 8F 10 70 00 8B 41 24 B2 22 53 22 |.144...p..A$."S"|
00000880: A7 8D 33 35 34 3A 8B 46 4C B2 30 A7 33 30 34 00 |..354:.FL.0.304.|
00000890: 9F 10 72 00 8B 41 24 B2 22 51 22 A7 33 34 32 00 |..r..A$."Q".342.|
000008A0: AF 10 74 00 8B 41 24 B2 22 40 22 A7 34 36 32 00 |..t..A$."@".462.|
000008B0: CB 10 75 00 8B 41 24 B2 22 24 22 B0 41 24 B2 22 |..u..A$."$".A$."|
000008C0: 34 22 A7 8D 34 32 32 3A 89 36 38 00 DF 10 76 00 |4"..422:.68...v.|
000008D0: 8B 46 4C B3 B1 30 A7 46 4C B2 30 3A 89 36 38 00 |.FL..0.FL.0:.68.|
000008E0: EC 10 78 00 8D 36 30 32 3A 89 39 36 00 F2 10 7A |..x..602:.96...z|
000008F0: 00 3A 00 2F 11 7C 00 81 49 B2 58 AA 31 A4 52 3A |.:./.|..I.X.1.R:|
00000900: 99 22 93 99 20 50 52 45 53 53 20 54 48 45 20 05 |.".. PRESS THE .|
00000910: 12 52 45 54 55 52 4E 92 99 20 4B 45 59 20 41 46 |.RETURN.. KEY AF|
00000920: 54 45 52 20 45 41 43 48 20 45 4E 54 52 59 22 00 |TER EACH ENTRY".|
00000930: 64 11 7E 00 99 22 20 50 52 45 53 53 20 12 05 52 |d.~.." PRESS ..R|
00000940: 45 54 55 52 4E 99 92 20 57 49 54 48 4F 55 54 20 |ETURN.. WITHOUT |
00000950: 41 4E 59 20 45 4E 54 52 59 20 54 4F 20 53 54 4F |ANY ENTRY TO STO|
00000960: 50 9E 11 22 00 82 11 80 00 99 22 20 12 52 45 43 |P.."......" .REC|
00000970: 4F 52 44 20 4E 55 4D 42 45 52 20 22 3B 49 3B 22 |ORD NUMBER ";I;"|
00000980: 11 22 00 8D 11 82 00 81 4E B2 31 A4 46 00 BA 11 |."......N.1.F...|
00000990: 84 00 99 46 24 28 4E 29 A6 53 31 AB C3 28 46 24 |...F$(N).S1..(F$|
000009A0: 28 4E 29 29 29 22 20 20 20 3E 9D 9D 9D 22 3B 3A |(N)))" >...";:|
000009B0: 85 52 45 43 24 28 49 2C 4E 29 00 DA 11 85 00 8B |.REC$(I,N)......|
000009C0: 52 45 43 24 28 49 2C 4E 29 B2 22 22 A7 52 45 43 |REC$(I,N)."".REC|
000009D0: 24 28 49 2C 4E 29 B2 22 3E 22 00 FC 11 86 00 8B |$(I,N).">"......|
000009E0: C3 28 52 45 43 24 28 49 2C 4E 29 29 B1 4C 25 28 |.(REC$(I,N)).L%(|
000009F0: 4E 29 A7 8D 31 34 30 3A 89 31 33 32 00 25 12 87 |N)..140:.132.%..|
00000A00: 00 8B 52 45 43 24 28 49 2C 4E 29 B2 22 3D 22 A7 |..REC$(I,N)."=".|
00000A10: 52 45 43 24 28 49 2C 4E 29 B2 52 45 43 24 28 49 |REC$(I,N).REC$(I|
00000A20: AB 31 2C 4E 29 00 48 12 88 00 8B 52 45 43 24 28 |.1,N).H....REC$(|
00000A30: 49 2C 31 29 B2 22 3E 22 A7 20 58 B2 49 AB 31 3A |I,1).">". X.I.1:|
00000A40: 43 4B B2 31 3A 89 36 38 00 67 12 8A 00 82 4E 3A |CK.1:.68.g....N:|
00000A50: 4B 25 28 49 29 B2 49 3A 82 49 3A 58 B2 52 3A 43 |K%(I).I:.I:X.R:C|
00000A60: 4B B2 31 3A 89 36 38 00 9D 12 8C 00 99 22 20 12 |K.1:.68......" .|
00000A70: 96 43 41 4E 4E 4F 54 20 45 58 43 45 45 44 22 C4 |.CANNOT EXCEED".|
00000A80: 28 4C 25 28 4E 29 29 22 20 43 48 41 52 41 43 54 |(L%(N))" CHARACT|
00000A90: 45 52 53 92 9E 22 3A 8D 36 30 32 3A 8E 00 A3 12 |ERS..":.602:....|
00000AA0: 8E 00 3A 00 D3 12 90 00 99 22 93 99 45 4E 54 45 |..:......"..ENTE|
00000AB0: 52 20 4E 41 4D 45 20 4F 46 20 43 55 52 52 45 4E |R NAME OF CURREN|
00000AC0: 54 20 46 49 4C 45 20 54 4F 20 42 45 20 53 41 56 |T FILE TO BE SAV|
00000AD0: 45 44 22 00 02 13 92 00 99 22 28 31 32 20 43 48 |ED"......"(12 CH|
00000AE0: 41 52 41 43 54 45 52 53 20 4D 41 58 29 2E 20 20 |ARACTERS MAX). |
00000AF0: 41 4E 59 20 45 58 49 53 54 49 4E 47 20 46 49 4C |ANY EXISTING FIL|
00000B00: 45 22 00 32 13 94 00 99 22 57 49 54 48 20 54 48 |E".2...."WITH TH|
00000B10: 45 20 53 41 4D 45 20 4E 41 4D 45 20 57 49 4C 4C |E SAME NAME WILL|
00000B20: 20 42 45 20 53 43 52 41 54 43 48 45 44 2E 11 11 | BE SCRATCHED...|
00000B30: 9E 22 00 54 13 96 00 99 22 20 20 22 3B 4E 46 24 |.".T...." ";NF$|
00000B40: 3A 85 22 91 22 3B 4E 46 24 3A 8B 4E 46 24 B2 22 |:.".";NF$:.NF$."|
00000B50: 22 A7 36 38 00 8D 13 98 00 9F 31 35 2C 38 2C 31 |".68......15,8,1|
00000B60: 35 3A 98 31 35 2C 22 53 30 3A 44 46 5D 20 22 AA |5:.15,"S0:DF] ".|
00000B70: C8 28 4E 46 24 2C 38 29 AA 22 2E 42 41 4B 22 3A |.(NF$,8).".BAK":|
00000B80: 8D 34 31 34 3A 8B 45 54 B2 38 A7 36 38 00 C6 13 |.414:.ET.8.68...|
00000B90: 9A 00 98 31 35 2C 22 52 30 3A 44 46 5D 20 22 AA |...15,"R0:DF] ".|
00000BA0: C8 28 4E 46 24 2C 38 29 AA 22 2E 42 41 4B 3D 44 |.(NF$,8).".BAK=D|
00000BB0: 46 5D 20 22 AA 4E 46 24 3A 8D 34 31 34 3A 8B 45 |F] ".NF$:.414:.E|
00000BC0: 54 B2 38 A7 36 38 00 F3 13 9C 00 9F 35 2C 38 2C |T.8.68......5,8,|
00000BD0: 35 2C 22 30 3A 44 46 5D 20 22 AA 4E 46 24 AA 22 |5,"0:DF] ".NF$."|
00000BE0: 2C 53 2C 57 22 3A 8D 34 31 34 3A 8B 45 54 B2 38 |,S,W":.414:.ET.8|
00000BF0: A7 36 38 00 25 14 9E 00 98 35 2C 52 3B 43 52 24 |.68.%....5,R;CR$|
00000C00: 3B 46 3B 43 52 24 3B 58 3A 81 4E B2 31 A4 46 3A |;F;CR$;X:.N.1.F:|
00000C10: 98 35 2C 46 24 28 4E 29 3B 43 52 24 3B 4C 25 28 |.5,F$(N);CR$;L%(|
00000C20: 4E 29 3A 82 4E 00 37 14 9F 00 8D 34 31 34 3A 8B |N):.N.7....414:.|
00000C30: 45 54 B2 38 A7 36 38 00 5E 14 A0 00 81 49 B2 31 |ET.8.68.^....I.1|
00000C40: A4 58 3A 99 22 99 11 20 53 41 56 49 4E 47 20 52 |.X:.".. SAVING R|
00000C50: 45 43 4F 52 44 20 23 9E 22 49 22 91 91 22 00 90 |ECORD #."I".."..|
00000C60: 14 A2 00 81 4E B2 31 A4 46 3A 98 35 2C 52 45 43 |....N.1.F:.5,REC|
00000C70: 24 28 4B 25 28 49 29 2C 4E 29 3A 82 4E 3A 82 49 |$(K%(I),N):.N:.I|
00000C80: 3A 99 3A 8D 34 31 34 3A 8B 45 54 B2 38 A7 36 38 |:.:.414:.ET.8.68|
00000C90: 00 A4 14 A6 00 A0 35 3A A0 31 35 3A 43 4B B2 30 |......5:.15:CK.0|
00000CA0: 3A 89 36 38 00 AA 14 A8 00 3A 00 C6 14 AA 00 8B |:.68.....:......|
00000CB0: 43 4B B3 B1 30 A7 8D 33 39 34 3A 8B 41 24 B3 B1 |CK..0..394:.A$..|
00000CC0: 22 4E 22 A7 36 38 00 F9 14 AB 00 99 22 93 99 20 |"N".68......".. |
00000CD0: 41 56 41 49 4C 41 42 4C 45 20 46 49 4C 45 53 20 |AVAILABLE FILES |
00000CE0: 4F 4E 20 44 49 53 4B 20 41 52 45 3A 9E 22 3A 40 |ON DISK ARE:.":@|
00000CF0: 22 24 30 3A 44 46 5D 2A 22 00 31 15 AC 00 9C 3A |"$0:DF]*".1....:|
00000D00: 8D 31 36 3A 99 22 11 99 20 45 4E 54 45 52 20 4E |.16:.".. ENTER N|
00000D10: 41 4D 45 20 4F 46 20 46 49 4C 45 20 54 4F 20 42 |AME OF FILE TO B|
00000D20: 45 20 4C 4F 41 44 45 44 11 11 9E 22 3A 85 4E 46 |E LOADED...":.NF|
00000D30: 24 00 40 15 AD 00 8B 4E 46 24 B2 22 22 A7 36 38 |$.@....NF$."".68|
00000D40: 00 76 15 AE 00 9F 31 35 2C 38 2C 31 35 3A 9F 35 |.v....15,8,15:.5|
00000D50: 2C 38 2C 35 2C 22 30 3A 44 46 5D 20 22 AA 4E 46 |,8,5,"0:DF] ".NF|
00000D60: 24 AA 22 2C 53 2C 52 22 3A 8D 34 31 34 3A 8B 45 |$.",S,R":.414:.E|
00000D70: 54 B2 38 A7 36 38 00 8A 15 AF 00 8B 45 4E B2 36 |T.8.68......EN.6|
00000D80: 32 A7 8D 34 31 36 3A 89 36 38 00 A5 15 B0 00 84 |2..416:.68......|
00000D90: 35 2C 52 2C 46 2C 58 3A 8D 34 31 34 3A 8B 45 54 |5,R,F,X:.414:.ET|
00000DA0: B2 38 A7 36 38 00 D0 15 B1 00 8D 32 34 3A 8D 32 |.8.68......24:.2|
00000DB0: 36 3A 81 4E B2 31 A4 46 3A 84 35 2C 46 24 28 4E |6:.N.1.F:.5,F$(N|
00000DC0: 29 2C 4C 24 3A 4C 25 28 4E 29 B2 C5 28 4C 24 29 |),L$:L%(N)..(L$)|
00000DD0: 00 E5 15 B2 00 82 4E 3A 8D 34 31 34 3A 8B 45 54 |......N:.414:.ET|
00000DE0: B2 38 A7 36 38 00 14 16 B3 00 81 49 B2 31 A4 58 |.8.68......I.1.X|
00000DF0: 3A 4B 25 28 49 29 B2 49 3A 99 22 99 11 4C 4F 41 |:K%(I).I:."..LOA|
00000E00: 44 49 4E 47 20 52 45 43 4F 52 44 20 23 9E 22 49 |DING RECORD #."I|
00000E10: 22 91 91 22 00 2F 16 B4 00 81 4E B2 31 A4 46 3A |".."./....N.1.F:|
00000E20: 84 35 2C 52 45 43 24 28 49 2C 4E 29 3A 82 4E 00 |.5,REC$(I,N):.N.|
00000E30: 46 16 B6 00 82 49 3A 99 3A 8D 34 31 34 3A 8B 45 |F....I:.:.414:.E|
00000E40: 54 B2 38 A7 36 38 00 59 16 B8 00 53 B2 53 54 3A |T.8.68.Y...S.ST:|
00000E50: 8B 53 B3 B1 30 A7 31 38 38 00 68 16 BC 00 A0 35 |.S..0.188.h....5|
00000E60: 3A A0 31 35 3A 89 36 31 00 6E 16 BE 00 3A 00 76 |:.15:.61.n...:.v|
00000E70: 16 C0 00 49 B2 31 00 83 16 C2 00 8B 49 B2 30 A7 |...I.1......I.0.|
00000E80: 49 B2 58 00 90 16 C4 00 8B 49 B1 58 A7 49 B2 31 |I.X......I.X.I.1|
00000E90: 00 BC 16 C6 00 99 22 93 20 12 52 45 43 4F 52 44 |......". .RECORD|
00000EA0: 20 4E 55 4D 42 45 52 3A 22 C4 28 49 29 22 20 20 | NUMBER:".(I)" |
00000EB0: 46 49 4C 45 3A 22 4E 46 24 22 11 22 00 F2 16 C8 |FILE:"NF$"."....|
00000EC0: 00 81 4E B2 31 A4 46 3A 99 22 99 22 46 24 28 4E |..N.1.F:."."F$(N|
00000ED0: 29 A6 53 31 AB C3 28 46 24 28 4E 29 29 29 22 20 |).S1..(F$(N)))" |
00000EE0: 9E 22 52 45 43 24 28 4B 25 28 49 29 2C 4E 29 3A |."REC$(K%(I),N):|
00000EF0: 82 4E 00 28 17 CA 00 99 22 11 20 05 12 4E 99 92 |.N.(....". ..N..|
00000F00: 45 58 54 20 20 20 20 05 12 4C 99 92 41 53 54 20 |EXT ..L..AST |
00000F10: 20 20 20 05 12 4A 99 92 55 4D 50 20 20 20 20 05 | ..J..UMP .|
00000F20: 12 46 99 92 49 4E 44 22 00 5E 17 CB 00 99 22 20 |.F..IND".^...." |
00000F30: 05 12 4D 99 92 4F 44 49 46 59 20 20 05 12 44 99 |..M..ODIFY ..D.|
00000F40: 92 45 4C 45 54 45 20 20 05 12 50 99 92 52 49 4E |.ELETE ..P..RIN|
00000F50: 54 20 20 20 05 12 45 99 92 58 49 54 9E 22 00 79 |T ..E..XIT.".y|
00000F60: 17 CC 00 8D 33 30 3A 8B 41 24 B2 22 4E 22 A7 49 |....30:.A$."N".I|
00000F70: B2 49 AA 31 3A 89 31 39 34 00 90 17 CE 00 8B 41 |.I.1:.194......A|
00000F80: 24 B2 22 4C 22 A7 49 B2 49 AB 31 3A 89 31 39 34 |$."L".I.I.1:.194|
00000F90: 00 A6 17 CF 00 8B 41 24 B2 22 4D 22 A7 8D 32 35 |......A$."M"..25|
00000FA0: 36 3A 89 31 39 38 00 B6 17 D0 00 8B 41 24 B2 22 |6:.198......A$."|
00000FB0: 4A 22 A7 32 31 36 00 CC 17 D1 00 8B 41 24 B2 22 |J".216......A$."|
00000FC0: 44 22 A7 8D 32 38 34 3A 89 31 39 38 00 DC 17 D2 |D"..284:.198....|
00000FD0: 00 8B 41 24 B2 22 46 22 A7 32 31 38 00 EB 17 D4 |..A$."F".218....|
00000FE0: 00 8B 41 24 B2 22 45 22 A7 36 38 00 20 18 D5 00 |..A$."E".68. ...|
00000FF0: 8B 41 24 B2 22 50 22 A7 9F 34 2C 34 3A 98 34 2C |.A$."P"..4,4:.4,|
00001000: 22 52 45 43 4F 52 44 23 22 49 22 49 4E 20 46 49 |"RECORD#"I"IN FI|
00001010: 4C 45 3A 20 22 4E 46 24 3A 98 34 3A 89 32 31 35 |LE: "NF$:.4:.215|
00001020: 00 2E 18 D6 00 8D 36 30 32 3A 89 32 30 34 00 5B |......602:.204.[|
00001030: 18 D7 00 81 4E B2 31 A4 46 3A 98 34 2C 52 45 43 |....N.1.F:.4,REC|
00001040: 24 28 4B 25 28 49 29 2C 4E 29 3A 82 4E 3A 98 34 |$(K%(I),N):.N:.4|
00001050: 3A 98 34 3A A0 34 3A 89 32 30 34 00 83 18 D8 00 |:.4:.4:.204.....|
00001060: 85 22 11 99 20 4A 55 4D 50 20 54 4F 20 52 45 43 |.".. JUMP TO REC|
00001070: 4F 52 44 20 4E 55 4D 42 45 52 9E 22 3B 49 3A 89 |ORD NUMBER.";I:.|
00001080: 31 39 34 00 B1 18 DA 00 99 22 93 20 20 20 20 12 |194......". .|
00001090: 46 49 4E 44 20 52 45 43 4F 52 44 53 20 57 49 54 |FIND RECORDS WIT|
000010A0: 48 20 43 4F 4D 4D 4F 4E 20 49 54 45 4D 53 20 11 |H COMMON ITEMS .|
000010B0: 22 00 D4 18 DC 00 81 4E B2 31 A4 46 3A 99 22 20 |"......N.1.F:." |
000010C0: 05 12 22 3B 4E 3B 22 99 92 20 22 3B 46 24 28 4E |..";N;".. ";F$(N|
000010D0: 29 3A 82 4E 00 11 19 DE 00 85 22 11 99 20 57 48 |):.N......".. WH|
000010E0: 49 43 48 20 46 49 45 4C 44 20 49 53 20 54 4F 20 |ICH FIELD IS TO |
000010F0: 42 45 20 53 45 41 52 43 48 45 44 9E 3F 20 30 20 |BE SEARCHED.? 0 |
00001100: 9D 9D 9D 9D 22 3B 53 46 3A 8B 53 46 B2 30 A7 36 |....";SF:.SF.0.6|
00001110: 38 00 2C 19 E0 00 8B 53 46 B3 31 B0 53 46 B1 46 |8.,....SF.1.SF.F|
00001120: A7 99 22 91 91 91 22 3A 89 32 32 32 00 73 19 E2 |.."...":.222.s..|
00001130: 00 99 22 99 20 45 4E 54 45 52 20 12 43 4F 4D 4D |..". ENTER .COMM|
00001140: 4F 4E 20 49 54 45 4D 92 20 22 3A 99 22 20 28 54 |ON ITEM. ":." (T|
00001150: 48 45 20 45 4E 54 49 52 45 20 53 54 52 49 4E 47 |HE ENTIRE STRING|
00001160: 20 49 53 20 4E 4F 54 20 52 45 51 55 49 52 45 44 | IS NOT REQUIRED|
00001170: 29 9E 22 00 98 19 E4 00 99 22 11 12 22 3B 46 24 |)."......"..";F$|
00001180: 28 53 46 29 3B 22 92 20 22 3B 3A 85 54 24 3A 8B |(SF);". ";:.T$:.|
00001190: 54 24 B2 44 24 A7 36 38 00 C5 19 E6 00 4A B2 49 |T$.D$.68.....J.I|
000011A0: 3A 81 49 B2 31 A4 58 3A 99 22 99 11 20 53 45 41 |:.I.1.X:.".. SEA|
000011B0: 52 43 48 49 4E 47 20 52 45 43 4F 52 44 53 9E 22 |RCHING RECORDS."|
000011C0: 49 22 91 91 22 00 E9 19 E8 00 8B 54 24 B2 C8 28 |I".."......T$..(|
000011D0: 52 45 43 24 28 4B 25 28 49 29 2C 53 46 29 2C C3 |REC$(K%(I),SF),.|
000011E0: 28 54 24 29 29 A7 32 33 36 00 F2 19 EA 00 89 32 |(T$)).236......2|
000011F0: 34 31 00 0E 1A EC 00 4A B2 49 3A 99 22 93 20 52 |41.....J.I:.". R|
00001200: 45 43 4F 52 44 20 23 22 3B 49 3B 22 11 22 00 44 |ECORD #";I;".".D|
00001210: 1A ED 00 81 4E B2 31 A4 46 3A 99 22 99 22 46 24 |....N.1.F:."."F$|
00001220: 28 4E 29 A6 53 31 AB C3 28 46 24 28 4E 29 29 29 |(N).S1..(F$(N)))|
00001230: 22 20 9E 22 52 45 43 24 28 4B 25 28 49 29 2C 4E |" ."REC$(K%(I),N|
00001240: 29 3A 82 4E 00 89 1A EE 00 99 22 11 20 05 12 4E |):.N......". ..N|
00001250: 99 92 45 58 54 20 20 05 12 4D 99 92 4F 44 49 46 |..EXT ..M..ODIF|
00001260: 59 20 20 05 12 44 99 92 45 4C 45 54 45 20 20 12 |Y ..D..ELETE .|
00001270: 05 45 92 99 58 49 54 9E 22 3A 8D 33 30 3A 8B 41 |.E..XIT.":.30:.A|
00001280: 24 B2 22 45 22 A7 31 39 38 00 9F 1A EF 00 8B 41 |$."E".198......A|
00001290: 24 B2 22 4D 22 A7 8D 32 35 36 3A 89 32 33 36 00 |$."M"..256:.236.|
000012A0: B5 1A F0 00 8B 41 24 B2 22 44 22 A7 8D 32 38 34 |.....A$."D"..284|
000012B0: 3A 89 32 33 36 00 C5 1A F1 00 82 49 3A 49 B2 4A |:.236......I:I.J|
000012C0: 3A 89 31 39 38 00 CB 1A F2 00 3A 00 04 1B F4 00 |:.198.....:.....|
000012D0: 99 22 93 99 20 4D 4F 44 49 46 59 20 57 48 49 43 |.".. MODIFY WHIC|
000012E0: 48 20 52 45 43 4F 52 44 3F 20 45 4E 54 45 52 20 |H RECORD? ENTER |
000012F0: 05 12 23 92 99 20 4F 52 20 05 12 41 99 92 4C 4C |..#.. OR ..A..LL|
00001300: 11 11 9E 22 00 18 1B F5 00 85 4D 52 24 3A 8B 4D |..."......MR$:.M|
00001310: 52 24 B2 44 24 A7 36 38 00 31 1B F6 00 8B 4D 52 |R$.D$.68.1....MR|
00001320: 24 B2 22 41 22 A7 4D 52 24 B2 44 24 3A 89 32 35 |$."A".MR$.D$:.25|
00001330: 34 00 45 1B F8 00 49 B2 C5 28 4D 52 24 29 3A 4D |4.E...I..(MR$):M|
00001340: 52 24 B2 44 24 00 58 1B FA 00 8B 49 B1 58 A7 8D |R$.D$.X....I.X..|
00001350: 33 34 38 3A 89 32 34 34 00 65 1B FC 00 8D 32 35 |348:.244.e....25|
00001360: 36 3A 89 36 38 00 9F 1B FE 00 81 49 B2 31 A4 58 |6:.68......I.1.X|
00001370: 3A 8D 32 35 36 3A 99 22 11 20 12 05 4E 92 99 45 |:.256:.". ..N..E|
00001380: 58 54 20 4F 52 20 12 05 45 99 92 58 49 54 9E 22 |XT OR ..E..XIT."|
00001390: 3A 8D 33 30 3A 8B 41 24 B2 22 45 22 A7 36 38 00 |:.30:.A$."E".68.|
000013A0: AA 1B FF 00 82 49 3A 89 36 38 00 DC 1B 00 01 99 |.....I:.68......|
000013B0: 22 93 99 20 54 4F 20 4D 4F 44 49 46 59 20 52 45 |".. TO MODIFY RE|
000013C0: 43 4F 52 44 20 23 9E 22 3B 49 3B 22 99 2C 20 4D |CORD #.";I;"., M|
000013D0: 41 4B 45 20 43 48 41 4E 47 45 53 22 00 18 1C 02 |AKE CHANGES"....|
000013E0: 01 99 22 20 41 53 20 45 41 43 48 20 46 49 45 4C |.." AS EACH FIEL|
000013F0: 44 20 49 53 20 44 49 53 50 4C 41 59 45 44 2C 20 |D IS DISPLAYED, |
00001400: 54 48 45 4E 20 05 12 52 45 54 55 52 4E 92 11 9E |THEN ..RETURN...|
00001410: 22 3A 81 4E B2 31 A4 46 00 3F 1C 04 01 99 22 99 |":.N.1.F.?....".|
00001420: 22 46 24 28 4E 29 22 20 9E 22 3A 99 22 20 20 20 |"F$(N)" .":." |
00001430: 22 3B 52 45 43 24 28 4B 25 28 49 29 2C 4E 29 00 |";REC$(K%(I),N).|
00001440: 5E 1C 05 01 8B C3 28 52 45 43 24 28 4B 25 28 49 |^.....(REC$(K%(I|
00001450: 29 2C 4E 29 29 B1 33 36 A7 99 22 91 22 3B 00 78 |),N)).36..".";.x|
00001460: 1C 06 01 99 22 91 20 22 3B 3A 85 52 45 43 24 28 |....". ";:.REC$(|
00001470: 4B 25 28 49 29 2C 4E 29 00 9E 1C 08 01 8B C3 28 |K%(I),N).......(|
00001480: 52 45 43 24 28 4B 25 28 49 29 2C 4E 29 29 B1 4C |REC$(K%(I),N)).L|
00001490: 25 28 4E 29 A7 8D 31 34 30 3A 89 32 36 30 00 D3 |%(N)..140:.260..|
000014A0: 1C 09 01 8B 52 45 43 24 28 4B 25 28 49 29 2C 4E |....REC$(K%(I),N|
000014B0: 29 B2 22 3D 22 A7 52 45 43 24 28 4B 25 28 49 29 |)."=".REC$(K%(I)|
000014C0: 2C 4E 29 B2 52 45 43 24 28 4B 25 28 49 AB 31 29 |,N).REC$(K%(I.1)|
000014D0: 2C 4E 29 00 FB 1C 0A 01 8B 52 45 43 24 28 4B 25 |,N)......REC$(K%|
000014E0: 28 49 29 2C 4E 29 B2 22 22 A7 52 45 43 24 28 4B |(I),N)."".REC$(K|
000014F0: 25 28 49 29 2C 4E 29 B2 22 3E 22 00 29 1D 0B 01 |%(I),N).">".)...|
00001500: 8B C8 28 52 45 43 24 28 4B 25 28 49 29 2C 4E 29 |..(REC$(K%(I),N)|
00001510: 2C 31 29 B2 22 3E 22 A7 52 45 43 24 28 4B 25 28 |,1).">".REC$(K%(|
00001520: 49 29 2C 4E 29 B2 22 3E 22 00 37 1D 0C 01 82 4E |I),N).">".7....N|
00001530: 3A 43 4B B2 31 3A 8E 00 3D 1D 0E 01 3A 00 76 1D |:CK.1:..=...:.v.|
00001540: 10 01 99 22 93 99 20 44 45 4C 45 54 45 20 57 48 |...".. DELETE WH|
00001550: 49 43 48 20 52 45 43 4F 52 44 3F 20 45 4E 54 45 |ICH RECORD? ENTE|
00001560: 52 20 05 12 23 99 92 20 4F 52 20 05 12 41 99 92 |R ..#.. OR ..A..|
00001570: 4C 4C 11 11 9E 22 00 8A 1D 12 01 85 44 52 24 3A |LL..."......DR$:|
00001580: 8B 44 52 24 B2 44 24 A7 36 38 00 A3 1D 14 01 8B |.DR$.D$.68......|
00001590: 44 52 24 B2 22 41 22 A7 44 52 24 B2 44 24 3A 89 |DR$."A".DR$.D$:.|
000015A0: 32 38 32 00 C6 1D 16 01 49 B2 C5 28 44 52 24 29 |282.....I..(DR$)|
000015B0: 3A 44 52 24 B2 44 24 3A 8B 49 B1 58 A7 8D 33 34 |:DR$.D$:.I.X..34|
000015C0: 38 3A 89 32 37 34 00 D3 1D 18 01 8D 32 38 34 3A |8:.274......284:|
000015D0: 89 36 38 00 0D 1E 1A 01 81 49 B2 31 A4 58 3A 8D |.68......I.1.X:.|
000015E0: 32 38 34 3A 99 22 11 20 12 05 4E 92 99 45 58 54 |284:.". ..N..EXT|
000015F0: 20 4F 52 20 12 05 45 92 99 58 49 54 9E 22 3A 8D | OR ..E..XIT.":.|
00001600: 33 30 3A 8B 41 24 B2 22 45 22 A7 36 38 00 18 1E |30:.A$."E".68...|
00001610: 1B 01 82 49 3A 89 36 38 00 48 1E 1C 01 99 22 93 |...I:.68.H....".|
00001620: 99 20 54 4F 20 44 45 4C 45 54 45 20 52 45 43 4F |. TO DELETE RECO|
00001630: 52 44 20 4E 55 4D 42 45 52 9E 22 3B 49 3B 22 99 |RD NUMBER.";I;".|
00001640: 2C 20 50 52 45 53 53 22 00 80 1E 1E 01 99 22 20 |, PRESS"......" |
00001650: 05 12 53 48 49 46 54 92 20 12 44 92 99 2C 20 50 |..SHIFT. .D.., P|
00001660: 52 45 53 53 20 05 12 53 50 41 43 45 20 42 41 52 |RESS ..SPACE BAR|
00001670: 92 99 20 54 4F 20 41 44 56 41 4E 43 45 9E 11 22 |.. TO ADVANCE.."|
00001680: 00 B6 1E 20 01 81 4E B2 31 A4 46 3A 99 22 99 22 |... ..N.1.F:."."|
00001690: 46 24 28 4E 29 A6 53 31 AB C3 28 46 24 28 4E 29 |F$(N).S1..(F$(N)|
000016A0: 29 29 22 20 9E 22 52 45 43 24 28 4B 25 28 49 29 |))" ."REC$(K%(I)|
000016B0: 2C 4E 29 3A 82 4E 00 CA 1E 22 01 8D 33 30 3A 8B |,N):.N..."..30:.|
000016C0: 41 24 B2 22 C4 22 A7 32 39 34 00 D5 1E 24 01 43 |A$.".".294...$.C|
000016D0: 4B B2 31 3A 8E 00 15 1F 26 01 99 22 11 11 44 45 |K.1:....&.."..DE|
000016E0: 4C 45 54 49 4E 47 20 52 45 43 4F 52 44 22 3B 49 |LETING RECORD";I|
000016F0: 3A 99 22 11 12 52 45 43 4F 52 44 53 20 4D 41 59 |:."..RECORDS MAY|
00001700: 20 4E 4F 57 20 42 45 20 4F 55 54 20 4F 46 20 4F | NOW BE OUT OF O|
00001710: 52 44 45 52 22 00 48 1F 28 01 81 4E B2 31 A4 46 |RDER".H.(..N.1.F|
00001720: 3A 52 45 43 24 28 4B 25 28 49 29 2C 4E 29 B2 52 |:REC$(K%(I),N).R|
00001730: 45 43 24 28 58 2C 4E 29 3A 52 45 43 24 28 58 2C |EC$(X,N):REC$(X,|
00001740: 4E 29 B2 22 22 3A 82 4E 00 7B 1F 2A 01 81 4A B2 |N)."":.N.{.*..J.|
00001750: 31 A4 58 3A 8B 4B 25 28 4A 29 B2 58 A7 4B 25 28 |1.X:.K%(J).X.K%(|
00001760: 4A 29 B2 4B 25 28 58 29 3A 4B 25 28 58 29 B2 30 |J).K%(X):K%(X).0|
00001770: 3A 58 B2 58 AB 31 3A 89 32 39 32 00 82 1F 2C 01 |:X.X.1:.292...,.|
00001780: 82 4A 00 88 1F 2E 01 3A 00 B9 1F 30 01 99 22 93 |.J.....:...0..".|
00001790: 20 12 20 20 20 53 4F 52 54 20 52 45 43 4F 52 44 | . SORT RECORD|
000017A0: 53 20 49 4E 20 41 53 43 45 4E 44 49 4E 47 20 4F |S IN ASCENDING O|
000017B0: 52 44 45 52 20 20 20 11 22 00 DB 1F 32 01 81 20 |RDER ."...2.. |
000017C0: 4E B2 31 A4 46 3A 99 22 20 12 22 3B 4E 3B 22 92 |N.1.F:." .";N;".|
000017D0: 20 22 3B 46 24 28 4E 29 3A 82 4E 00 F0 1F 34 01 | ";F$(N):.N...4.|
000017E0: 81 4E B2 30 A4 35 3A 53 28 4E 29 B2 30 3A 82 4E |.N.0.5:S(N).0:.N|
000017F0: 00 22 20 36 01 4E B2 30 3A 99 22 11 99 20 45 4E |." 6.N.0:.".. EN|
00001800: 54 45 52 20 12 05 30 92 99 20 54 4F 20 45 58 49 |TER ..0.. TO EXI|
00001810: 54 20 46 49 45 4C 44 20 53 45 4C 45 43 54 49 4F |T FIELD SELECTIO|
00001820: 4E 22 00 35 20 38 01 4E B2 4E AA 31 3A 8B 4E B2 |N".5 8.N.N.1:.N.|
00001830: 36 A7 33 32 30 00 75 20 3A 01 99 22 99 20 23 20 |6.320.u :..". # |
00001840: 12 05 22 4E 22 99 92 46 49 45 4C 44 20 54 4F 20 |.."N"..FIELD TO |
00001850: 42 45 20 53 4F 52 54 45 44 9E 3F 20 30 20 9D 9D |BE SORTED.? 0 ..|
00001860: 9D 9D 22 3B 3A 85 53 28 4E 29 3A 8B 53 28 31 29 |..";:.S(N):.S(1)|
00001870: B2 30 A7 36 38 00 97 20 3C 01 8B 28 53 28 4E 29 |.0.68.. <..(S(N)|
00001880: B1 46 29 B0 28 53 28 4E 29 B3 30 29 A7 99 22 91 |.F).(S(N).0)..".|
00001890: 91 22 3A 89 33 31 34 00 A8 20 3E 01 8B 53 28 4E |.":.314.. >..S(N|
000018A0: 29 B3 B1 30 A7 33 31 32 00 BC 20 40 01 99 22 11 |)..0.312.. @..".|
000018B0: 20 53 4F 52 54 49 4E 47 2E 2E 2E 22 00 FE 20 42 | SORTING...".. B|
000018C0: 01 4C B2 52 AA 31 3A 9E 35 31 35 32 36 2C 4C 2C |.L.R.1:.51526,L,|
000018D0: 58 2C 46 2C 53 28 31 29 2C 53 28 32 29 2C 53 28 |X,F,S(1),S(2),S(|
000018E0: 33 29 2C 53 28 34 29 2C 53 28 35 29 2C 53 28 30 |3),S(4),S(5),S(0|
000018F0: 29 2C 52 45 43 24 28 31 2C 53 28 31 29 29 00 13 |),REC$(1,S(1))..|
00001900: 21 44 01 81 49 B2 31 A4 58 3A 4B 25 28 49 29 B2 |!D..I.1.X:K%(I).|
00001910: 49 3A 82 00 20 21 46 01 43 4B B2 31 3A 89 36 38 |I:.. !F.CK.1:.68|
00001920: 00 26 21 4D 01 3A 00 55 21 4E 01 99 22 93 11 11 |.&!M.:.U!N.."...|
00001930: 20 96 12 59 4F 55 20 48 41 56 45 20 4E 4F 54 20 | ..YOU HAVE NOT |
00001940: 53 41 56 45 44 20 59 4F 55 52 20 43 48 41 4E 47 |SAVED YOUR CHANG|
00001950: 45 53 21 9E 22 00 8A 21 50 01 99 22 11 11 99 20 |ES!."..!P.."... |
00001960: 44 4F 20 59 4F 55 20 52 45 41 4C 4C 59 20 57 41 |DO YOU REALLY WA|
00001970: 4E 54 20 54 4F 20 51 55 49 54 3F 20 96 12 59 99 |NT TO QUIT? ..Y.|
00001980: 92 20 4F 52 20 05 12 4E 92 9E 00 9F 21 52 01 8D |. OR ..N....!R..|
00001990: 33 30 3A 8B 41 24 B2 22 59 22 20 A7 33 34 34 00 |30:.A$."Y" .344.|
000019A0: A7 21 54 01 89 36 38 00 B6 21 56 01 8B 43 4B B3 |.!T..68..!V..CK.|
000019B0: B1 30 A7 33 33 34 00 D6 21 58 01 99 22 93 11 11 |.0.334..!X.."...|
000019C0: 44 41 54 41 46 49 4C 45 20 54 45 52 4D 49 4E 41 |DATAFILE TERMINA|
000019D0: 54 45 44 22 3A 80 00 DC 21 5A 01 3A 00 FE 21 5C |TED":...!Z.:..!\|
000019E0: 01 99 22 20 96 4E 4F 20 53 55 43 48 20 52 45 43 |.." .NO SUCH REC|
000019F0: 4F 52 44 20 45 58 49 53 54 53 9E 22 3A 8E 00 09 |ORD EXISTS.":...|
00001A00: 22 5E 01 8B 52 B1 30 A7 8E 00 3D 22 60 01 99 22 |"^..R.0...="`.."|
00001A10: 13 20 96 12 20 20 20 20 4E 4F 20 52 45 43 4F 52 |. .. NO RECOR|
00001A20: 44 53 20 4F 52 20 46 49 4C 45 53 20 49 4E 20 4D |DS OR FILES IN M|
00001A30: 45 4D 4F 52 59 20 20 20 20 20 9E 92 22 00 54 22 |EMORY ..".T"|
00001A40: 61 01 81 49 B2 31 A4 35 30 30 3A 82 49 3A 46 4C |a..I.1.500:.I:FL|
00001A50: B2 31 3A 8E 00 5F 22 62 01 8B 58 B1 30 A7 8E 00 |.1:.._"b..X.0...|
00001A60: 6A 22 63 01 8D 33 35 32 3A 8E 00 70 22 64 01 3A |j"c..352:..p"d.:|
00001A70: 00 8C 22 66 01 8B 43 4B B3 B1 30 A7 8D 33 39 34 |.."f..CK..0..394|
00001A80: 3A 8B 41 24 B3 B1 22 4E 22 A7 36 38 00 BD 22 68 |:.A$.."N".68.."h|
00001A90: 01 99 22 93 20 12 20 20 20 20 54 52 41 4E 53 46 |..". . TRANSF|
00001AA0: 45 52 20 54 4F 20 50 52 49 4E 54 49 4E 47 20 50 |ER TO PRINTING P|
00001AB0: 52 4F 47 52 41 4D 53 20 20 20 20 20 22 00 F1 22 |ROGRAMS ".."|
00001AC0: 6A 01 99 22 11 99 50 55 54 20 9E 44 41 54 41 46 |j.."..PUT .DATAF|
00001AD0: 49 4C 45 99 20 44 49 53 4B 20 49 4E 20 44 52 49 |ILE. DISK IN DRI|
00001AE0: 56 45 2C 20 54 52 41 4E 53 46 45 52 20 54 4F 3A |VE, TRANSFER TO:|
00001AF0: 22 00 21 23 6C 01 99 A3 36 29 22 11 12 05 50 92 |".!#l...6)"...P.|
00001B00: 9E 20 44 46 50 52 49 4E 54 20 20 99 52 45 50 4F |. DFPRINT .REPO|
00001B10: 52 54 53 2D 4C 41 42 45 4C 53 2D 4C 49 53 54 53 |RTS-LABELS-LISTS|
00001B20: 22 00 4F 23 6E 01 99 A3 36 29 22 11 12 05 43 92 |".O#n...6)"...C.|
00001B30: 9E 20 44 46 43 41 4C 43 20 20 20 99 43 41 4C 43 |. DFCALC .CALC|
00001B40: 55 4C 41 54 45 44 20 52 45 50 4F 52 54 53 22 00 |ULATED REPORTS".|
00001B50: 70 23 70 01 99 A3 36 29 22 11 12 05 45 92 99 58 |p#p...6)"...E..X|
00001B60: 49 54 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 9E |IT TO MAIN MENU.|
00001B70: 00 A1 23 72 01 99 22 11 20 12 20 20 20 20 20 20 |..#r..". . |
00001B80: 50 52 45 53 53 20 54 48 45 20 41 50 50 52 4F 50 |PRESS THE APPROP|
00001B90: 52 49 41 54 45 20 4B 45 59 20 20 20 20 20 20 20 |RIATE KEY |
00001BA0: 22 00 B4 23 74 01 8D 33 30 3A 8B 41 24 B2 22 45 |"..#t..30:.A$."E|
00001BB0: 22 A7 36 38 00 E5 23 76 01 8B 41 24 B2 22 43 22 |".68..#v..A$."C"|
00001BC0: A7 99 22 93 90 4C 4F 41 44 22 C7 28 33 34 29 22 |.."..LOAD".(34)"|
00001BD0: 44 46 43 41 4C 43 22 C7 28 33 34 29 22 2C 38 22 |DFCALC".(34)",8"|
00001BE0: 3A 89 33 38 30 00 17 24 78 01 8B 41 24 B2 22 50 |:.380..$x..A$."P|
00001BF0: 22 A7 99 22 93 90 4C 4F 41 44 22 C7 28 33 34 29 |".."..LOAD".(34)|
00001C00: 22 44 46 50 52 49 4E 54 22 C7 28 33 34 29 22 2C |"DFPRINT".(34)",|
00001C10: 38 22 3A 89 33 38 30 00 25 24 7A 01 8D 36 30 32 |8":.380.%$z..602|
00001C20: 3A 89 33 37 32 00 39 24 7C 01 99 3A 99 3A 99 3A |:.372.9$|..:.:.:|
00001C30: 99 3A 99 22 52 55 4E 9E 22 00 6D 24 7E 01 97 36 |.:."RUN.".m$~..6|
00001C40: 33 31 2C 31 39 3A 97 36 33 32 2C 31 33 3A 97 36 |31,19:.632,13:.6|
00001C50: 33 33 2C 31 33 3A 97 36 33 34 2C 31 33 3A 97 36 |33,13:.634,13:.6|
00001C60: 33 35 2C 31 33 3A 97 36 33 36 2C 31 33 00 7C 24 |35,13:.636,13.|$|
00001C70: 80 01 97 31 39 38 2C 36 3A A2 3A 80 00 82 24 88 |...198,6:.:...$.|
00001C80: 01 3A 00 B5 24 8A 01 99 22 93 11 20 96 12 54 48 |.:..$...".. ..TH|
00001C90: 49 53 20 57 49 4C 4C 20 44 45 53 54 52 4F 59 20 |IS WILL DESTROY |
00001CA0: 54 48 45 20 46 49 4C 45 20 49 4E 20 4D 45 4D 4F |THE FILE IN MEMO|
00001CB0: 52 59 21 9E 22 00 EA 24 8C 01 99 22 11 11 99 20 |RY!."..$..."... |
00001CC0: 53 41 56 45 20 54 48 45 20 46 49 4C 45 20 46 49 |SAVE THE FILE FI|
00001CD0: 52 53 54 3F 20 05 12 59 99 92 20 4F 52 20 96 12 |RST? ..Y.. OR ..|
00001CE0: 4E 9E 92 22 3A 8D 33 30 3A 8E 00 F0 24 90 01 3A |N..":.30:...$..:|
00001CF0: 00 16 25 92 01 99 22 93 11 96 20 54 48 49 53 20 |..%..."... THIS |
00001D00: 57 49 4C 4C 20 45 52 41 53 45 20 54 48 45 20 44 |WILL ERASE THE D|
00001D10: 49 53 4B 21 9E 22 00 3C 25 93 01 99 22 11 99 20 |ISK!.".<%...".. |
00001D20: 41 52 45 20 59 4F 55 20 53 55 52 45 3F 20 96 12 |ARE YOU SURE? ..|
00001D30: 59 92 99 20 4F 52 20 05 12 4E 92 9E 00 4F 25 94 |Y.. OR ..N...O%.|
00001D40: 01 8D 33 30 3A 8B 41 24 B2 22 4E 22 A7 36 38 00 |..30:.A$."N".68.|
00001D50: 5F 25 96 01 8B 41 24 B3 B1 22 59 22 A7 36 38 00 |_%...A$.."Y".68.|
00001D60: 94 25 97 01 99 22 11 99 20 50 52 45 53 53 20 05 |.%...".. PRESS .|
00001D70: 12 52 45 54 55 52 4E 92 99 20 57 49 54 48 4F 55 |.RETURN.. WITHOU|
00001D80: 54 20 41 4E 20 45 4E 54 52 59 20 54 4F 20 45 58 |T AN ENTRY TO EX|
00001D90: 49 54 9E 22 00 BF 25 98 01 85 22 11 20 12 44 49 |IT."..%...". .DI|
00001DA0: 53 4B 20 4E 41 4D 45 2C 49 44 92 22 3B 48 4E 24 |SK NAME,ID.";HN$|
00001DB0: 2C 49 44 24 3A 8B 48 4E 24 B2 44 24 A7 36 38 00 |,ID$:.HN$.D$.68.|
00001DC0: F3 25 9A 01 9F 31 35 2C 38 2C 31 35 3A 98 31 35 |.%...15,8,15:.15|
00001DD0: 2C 22 4E 45 57 30 3A 22 AA 48 4E 24 AA 22 2C 22 |,"NEW0:".HN$.","|
00001DE0: AA 49 44 24 3A 8D 34 31 34 3A 8B 45 54 B2 38 A7 |.ID$:.414:.ET.8.|
00001DF0: 34 36 32 00 00 26 9B 01 A0 31 35 3A 89 34 36 32 |462..&...15:.462|
00001E00: 00 06 26 9C 01 3A 00 33 26 9E 01 84 31 35 2C 45 |..&..:.3&...15,E|
00001E10: 4E 2C 45 4D 24 2C 45 54 2C 45 53 3A 8B 28 45 4E |N,EM$,ET,ES:.(EN|
00001E20: B3 32 30 29 B0 28 45 4E B2 36 32 29 A7 45 54 B2 |.20).(EN.62).ET.|
00001E30: 30 3A 8E 00 67 26 A0 01 99 22 11 20 12 96 44 49 |0:..g&...". ..DI|
00001E40: 53 4B 20 45 52 52 4F 52 92 22 45 4E 22 9D 2C 20 |SK ERROR."EN"., |
00001E50: 22 45 4D 24 22 2C 22 45 54 22 9D 2C 22 45 53 22 |"EM$","ET".,"ES"|
00001E60: 9E 22 3A 45 54 B2 38 00 A3 26 A2 01 99 22 11 99 |.":ET.8..&..."..|
00001E70: 20 50 52 45 53 53 20 05 12 41 4E 59 20 4B 45 59 | PRESS ..ANY KEY|
00001E80: 92 99 20 54 4F 20 52 45 54 55 52 4E 20 54 4F 20 |.. TO RETURN TO |
00001E90: 4D 45 4E 55 9E 22 3A 8D 33 30 3A A0 35 3A A0 31 |MENU.":.30:.5:.1|
00001EA0: 35 3A 8E 00 A9 26 A4 01 3A 00 D6 26 A6 01 99 22 |5:...&..:..&..."|
00001EB0: 93 22 3A 40 22 24 22 3A 99 A3 32 35 29 22 50 52 |.":@"$":..25)"PR|
00001EC0: 45 53 53 20 05 12 41 4E 59 20 4B 45 59 92 99 22 |ESS ..ANY KEY.."|
00001ED0: 3A 8D 33 30 3A 8E 00 DC 26 CC 01 3A 00 0E 27 CE |:.30:...&..:..'.|
00001EE0: 01 99 22 93 9E 20 12 20 20 20 20 20 20 20 20 20 |..".. . |
00001EF0: 44 49 53 4B 20 43 4F 4D 4D 41 4E 44 53 20 4D 45 |DISK COMMANDS ME|
00001F00: 4E 55 20 20 20 20 20 20 20 20 20 20 20 22 00 2E |NU "..|
00001F10: 27 D0 01 99 A3 31 31 29 22 11 12 05 24 99 92 20 |'....11)"...$.. |
00001F20: 44 49 53 4B 20 44 49 52 45 43 54 4F 52 59 00 51 |DISK DIRECTORY.Q|
00001F30: 27 D2 01 99 A3 31 31 29 22 11 12 05 46 99 92 4F |'....11)"...F..O|
00001F40: 52 4D 41 54 20 41 20 42 4C 41 4E 4B 20 44 49 53 |RMAT A BLANK DIS|
00001F50: 4B 00 73 27 D4 01 99 A3 31 31 29 22 11 12 05 53 |K.s'....11)"...S|
00001F60: 99 92 43 52 41 54 43 48 20 41 20 53 45 51 20 46 |..CRATCH A SEQ F|
00001F70: 49 4C 45 00 94 27 D6 01 99 A3 31 31 29 22 11 12 |ILE..'....11)"..|
00001F80: 05 52 99 92 45 4E 41 4D 45 20 41 20 53 45 51 20 |.R..ENAME A SEQ |
00001F90: 46 49 4C 45 00 B3 27 D7 01 99 A3 31 31 29 22 11 |FILE..'....11)".|
00001FA0: 12 05 56 99 92 41 4C 49 44 41 54 45 20 41 20 44 |..V..ALIDATE A D|
00001FB0: 49 53 4B 00 D5 27 D8 01 99 A3 31 31 29 22 11 12 |ISK..'....11)"..|
00001FC0: 05 45 99 92 58 49 54 20 54 4F 20 4D 41 49 4E 20 |.E..XIT TO MAIN |
00001FD0: 4D 45 4E 55 9E 00 06 28 DA 01 99 22 11 20 12 20 |MENU...(...". . |
00001FE0: 20 20 20 20 20 50 52 45 53 53 20 54 48 45 20 41 | PRESS THE A|
00001FF0: 50 50 52 4F 50 52 49 41 54 45 20 4B 45 59 20 20 |PPROPRIATE KEY |
00002000: 20 20 20 20 20 22 00 35 28 DC 01 8D 33 30 3A 4D | ".5(...30:M|
00002010: 52 24 B2 44 24 3A 44 52 24 B2 44 24 3A 8B 41 24 |R$.D$:DR$.D$:.A$|
00002020: B2 22 24 22 B0 41 24 B2 22 34 22 A7 8D 34 32 32 |."$".A$."4"..422|
00002030: 3A 89 34 36 32 00 45 28 DE 01 8B 41 24 B2 22 46 |:.462.E(...A$."F|
00002040: 22 A7 34 30 32 00 5B 28 E0 01 8B 41 24 B2 22 53 |".402.[(...A$."S|
00002050: 22 A7 8D 34 39 38 3A 89 34 38 38 00 6A 28 E2 01 |"..498:.488.j(..|
00002060: 8B 41 24 B2 22 45 22 A7 36 38 00 7B 28 E3 01 8B |.A$."E".68.{(...|
00002070: 41 24 B2 22 56 22 A7 89 35 30 30 00 91 28 E4 01 |A$."V"..500..(..|
00002080: 8B 41 24 B2 22 52 22 A7 8D 34 39 38 3A 89 34 39 |.A$."R"..498:.49|
00002090: 33 00 9F 28 E6 01 8D 36 30 32 3A 89 34 37 36 00 |3..(...602:.476.|
000020A0: CF 28 E8 01 85 22 11 20 99 12 53 43 52 41 54 43 |.(...". ..SCRATC|
000020B0: 48 20 46 49 4C 45 20 4E 41 4D 45 20 9E 92 22 3B |H FILE NAME ..";|
000020C0: 44 52 24 3A 8B 44 52 24 B2 44 24 A7 34 36 32 00 |DR$:.DR$.D$.462.|
000020D0: 02 29 EA 01 9F 31 35 2C 38 2C 31 35 3A 9F 35 2C |.)...15,8,15:.5,|
000020E0: 38 2C 35 2C 22 30 3A 22 AA 44 52 24 AA 22 2C 53 |8,5,"0:".DR$.",S|
000020F0: 2C 52 22 3A 8D 34 31 34 3A 8B 45 54 B2 38 A7 34 |,R":.414:.ET.8.4|
00002100: 36 32 00 20 29 EC 01 A0 35 3A 98 31 35 2C 22 53 |62. )...5:.15,"S|
00002110: 30 3A 22 AA 44 52 24 3A A0 31 35 3A 89 34 36 32 |0:".DR$:.15:.462|
00002120: 00 4E 29 ED 01 85 22 11 20 99 12 52 45 4E 41 4D |.N)...". ..RENAM|
00002130: 45 20 4F 4C 44 20 46 49 4C 45 20 9E 92 22 3B 44 |E OLD FILE ..";D|
00002140: 52 24 3A 8B 44 52 24 B2 44 24 A7 34 36 32 00 7C |R$:.DR$.D$.462.||
00002150: 29 EE 01 85 22 11 20 99 12 20 20 20 20 54 4F 20 |)...". .. TO |
00002160: 4E 45 57 20 46 49 4C 45 20 92 9E 22 3B 4D 52 24 |NEW FILE ..";MR$|
00002170: 3A 8B 4D 52 24 B2 44 24 A7 34 36 32 00 AF 29 EF |:.MR$.D$.462..).|
00002180: 01 9F 31 35 2C 38 2C 31 35 3A 9F 35 2C 38 2C 35 |..15,8,15:.5,8,5|
00002190: 2C 22 30 3A 22 AA 44 52 24 AA 22 2C 53 2C 52 22 |,"0:".DR$.",S,R"|
000021A0: 3A 8D 34 31 34 3A 8B 45 54 B2 38 A7 34 36 32 00 |:.414:.ET.8.462.|
000021B0: E2 29 F0 01 A0 35 3A 98 31 35 2C 22 52 30 3A 22 |.)...5:.15,"R0:"|
000021C0: AA 4D 52 24 AA 22 3D 22 AA 44 52 24 3A 9F 35 2C |.MR$."=".DR$:.5,|
000021D0: 38 2C 35 3A 8D 34 31 34 3A 8B 45 54 B2 38 A7 34 |8,5:.414:.ET.8.4|
000021E0: 36 32 00 F2 29 F1 01 A0 35 3A A0 31 35 3A 89 34 |62..)...5:.15:.4|
000021F0: 36 32 00 1E 2A F2 01 99 22 93 99 20 45 4E 54 45 |62..*...".. ENTE|
00002200: 52 20 46 49 4C 45 20 4E 41 4D 45 53 20 45 58 41 |R FILE NAMES EXA|
00002210: 43 54 4C 59 20 41 53 20 53 48 4F 57 4E 22 00 59 |CTLY AS SHOWN".Y|
00002220: 2A F3 01 99 22 20 4F 4E 20 54 48 45 20 44 49 52 |*..." ON THE DIR|
00002230: 45 43 54 4F 52 59 2C 20 45 58 3A 9E 20 44 46 5D |ECTORY, EX:. DF]|
00002240: 20 4D 41 49 4C 20 4C 49 53 54 11 9E 22 3A 40 22 | MAIL LIST..":@"|
00002250: 24 30 3A 2A 3D 53 22 3A 8E 00 95 2A F4 01 99 22 |$0:*=S":...*..."|
00002260: 93 22 3A 40 22 24 22 3A 99 22 99 56 41 4C 49 44 |.":@"$":.".VALID|
00002270: 41 54 45 20 54 48 49 53 20 44 49 53 4B 3F 20 12 |ATE THIS DISK? .|
00002280: 05 59 92 99 45 53 20 4F 52 20 12 05 4E 92 99 4F |.Y..ES OR ..N..O|
00002290: 22 3A 8D 33 30 00 A6 2A F6 01 8B 41 24 B3 B1 22 |":.30..*...A$.."|
000022A0: 59 22 A7 34 36 32 00 B5 2A F8 01 40 22 56 30 22 |Y".462..*..@"V0"|
000022B0: 3A 89 34 36 32 00 BB 2A FA 01 3A 00 E0 2A 58 02 |:.462..*..:..*X.|
000022C0: 81 45 B2 30 A4 32 34 3A 97 35 34 32 37 32 AA 45 |.E.0.24:.54272.E|
000022D0: 2C 30 3A 82 3A 97 35 34 32 39 36 2C 31 35 3A 8E |,0:.:.54296,15:.|
000022E0: 00 0D 2B 5A 02 97 35 34 32 37 37 2C 35 38 3A 97 |..+Z..54277,58:.|
000022F0: 35 34 32 37 38 2C 31 36 3A 97 35 34 32 37 33 2C |54278,16:.54273,|
00002300: 33 35 3A 97 35 34 32 37 32 2C 31 33 34 00 32 2B |35:.54272,134.2+|
00002310: 5C 02 97 35 34 32 37 36 2C 33 33 3A 81 45 B2 31 |\..54276,33:.E.1|
00002320: A4 31 30 30 3A 82 3A 97 35 34 32 37 36 2C 31 36 |.100:.:.54276,16|
00002330: 3A 8E 00 00 00 |:.... |
..!....FL.0.FL.1:."DP] SSORT",8,1.B....F
L.1.FL.2:."DP] DOS5.1",8,1.Y....FL.2.FL.
3::.52224...... SSORT BY DAVID PETERSON,
DOS5.1 (C) BY COMMODORE...... DATAFILE
3.6 (C)1986 BY MIKE KONSHAK......53280,0
:.53281,0:.".":.16:.600:.68.(...D$."":MR
$.D$:DR$.D$:S.0:B1$.D$:PW.0:CW.0:B$.G(32
):FL.0:L$."":E.0.T...NC.0:NL.0:PG.0:F1.0
:F2.0:F3.0:L$.D$:RL.0:SB$.D$:CR$.G(13):H
N$.D$:ID$.D$.C...A$.D$:C$.D$:T%.0:I$.D$:
CK.0:I.0:J.0:K.0:L.0:M.0:N.0:RW.5:SF.0:Z
.0:E$."EOF".....EN.0:EM$.D$:ET.0:ES.0:A1
$.D$:A2$.D$:A3$.D$:S1$.D$:TS%.0:MEM.2950
0:..#.... F$(F.1),L%(F.1):..F.... REC$(R
.1,F.1),K%(R.1),S(6):..L...:.^....A$:.A$
."".30.D. ...J.".:...$..CK..0..394:.A$..
"N".68...%..:.40.C.&..". . INITIALIZE
(CREATE) A RECORD FILE ":....(..38:.16:
.".HOW MANY FIELDS IN EACH RECORD.? 0 ..
..";F...)..F.0.68...*..24...+..I.1.F.Q.,
..38:."....FIELD #.";I:."..TITLE. ? >.":
..8)F$(I).R....".LENGTH.? 0.":..7)L%(I)"
.".../.."....";.6);:.F$(I):.F$(I)."".F$(
I).">"...0...6);:.L$:.L$."0".68...1..E(L
$).(78.C(F$(I))).E(L$).0..602:."..":.48.
..2.L%(I).E(L$):.I:RL.0...3.:.K.4..J.0.F
:RL.RL.L%(J):.J:RL.RL.3.(F.1).5:R..((MEM
.12.(F.1).2100).RL).Y.6..".. YOUR SELECT
IONS ALLOW ."R".RECORDS."...8.." ..A..CC
EPT ..C..HANGE FIELD DATA OR ..R..EJECT?
.".E.9..30:.A$."R".37.T.:..A$."C".43...;
..A$."A"..26:CK.1:.61...<..602:.57...=..
I.1.F:.C(F$(I)).S1.S1.C(F$(I)).).>..I:.6
8./.@.:.A.D..".. . DATAFILE 3.6 (C)1986
BY MIKE KONSHAK "...F...3)"...C..REATE N
EW FILE ..Q..UIT PROGRAM...H...3)"...A
..DD RECORD TO CURRENT FILE...J...3)"...
M..ODIFY RECORD IN CURRENT FILE...L...3)
"...D..ELETE RECORD IN CURRENT FILE.=.N.
..3)"...V..IEW OR EDIT FILE .."NF$"...A.
P...3)"...S..ORT RECORDS BY FIELD...R...
3)"...P..RINT RECORDS USING .DFPRINT./.D
FCALC.B.T...3)"...R..EAD (LOAD) OLD FILE
FROM DISK...V...3)"...W..RITE (SAVE) CU
RRENT FILE TO DISK.+.X...3)"...@.. DISK
DRIVE COMMANDS ..$. .4.. DIRECTORY".].Z.
.".. . PRESS THE APPROPRIATE KEY
"...\..". THERE ARE.";X;".RECORDS I
N MEMORY."...^..R.0..". SPACE FOR.";R.X
;".MORE RECORDS..".Y.`..30:.A$."A"..350:
.FL.0.124...B..A$."M"..354:.FL.0.244...D
..A$."D"..354:.FL.0.272...F..A$."C".36..
.H..A$."R".170.>.J..A$."P".358.Y.L..A$."
V"..354:.FL.0.192.T.N..A$."W"..350:.FL.0
.144...P..A$."S"..354:.FL.0.304...R..A$.
"Q".342...T..A$."@".462.K.U..A$."$".A$."
4"..422:.68...V..FL..0.FL.0:.68...X..602
:.96...Z.:./.|..I.X.1.R:.".. PRESS THE .
.RETURN.. KEY AFTER EACH ENTRY".D.~.." P
RESS ..RETURN.. WITHOUT ANY ENTRY TO STO
P.."......" .RECORD NUMBER ";I;"."......
N.1.F......F$(N).S1.C(F$(N)))" >...";:
.REC$(I,N).Z....REC$(I,N)."".REC$(I,N)."
>"......C(REC$(I,N)).L%(N)..140:.132.%..
..REC$(I,N)."=".REC$(I,N).REC$(I.1,N).H.
...REC$(I,1).">". X.I.1:CK.1:.68.G....N:
K%(I).I:.I:X.R:CK.1:.68......" ..CANNOT
EXCEED"D(L%(N))" CHARACTERS..":.602:....
..:.S...."..ENTER NAME OF CURRENT FILE T
O BE SAVED"......"(12 CHARACTERS MAX).
ANY EXISTING FILE".2...."WITH THE SAME N
AME WILL BE SCRATCHED....".T...." ";NF$
:.".";NF$:.NF$."".68......15,8,15:.15,"S
0:DF] ".H(NF$,8).".BAK":.414:.ET.8.68.F.
...15,"R0:DF] ".H(NF$,8).".BAK=DF] ".NF$
:.414:.ET.8.68......5,8,5,"0:DF] ".NF$."
,S,W":.414:.ET.8.68.%....5,R;CR$;F;CR$;X
:.N.1.F:.5,F$(N);CR$;L%(N):.N.7....414:.
ET.8.68.^. ..I.1.X:.".. SAVING RECORD #.
"I".."......N.1.F:.5,REC$(K%(I),N):.N:.I
:.:.414:.ET.8.68..... 5: 15:CK.0:.68....
.:.F....CK..0..394:.A$.."N".68......"..
AVAILABLE FILES ON DISK ARE:.":@"$0:DF]*
".1....:.16:.".. ENTER NAME OF FILE TO B
E LOADED...":.NF$.@....NF$."".68.V....15
,8,15:.5,8,5,"0:DF] ".NF$.",S,R":.414:.E
T.8.68......EN.62..416:.68......5,R,F,X:
.414:.ET.8.68.P....24:.26:.N.1.F:.5,F$(N
),L$:L%(N).E(L$)......N:.414:.ET.8.68...
...I.1.X:K%(I).I:."..LOADING RECORD #."I
".."./....N.1.F:.5,REC$(I,N):.N.F....I:.
:.414:.ET.8.68.Y...S.ST:.S..0.188.H... 5
: 15:.61.N...:.V...I.1...B..I.0.I.X...D.
.I.X.I.1...F..". .RECORD NUMBER:"D(I)"
FILE:"NF$"."...H..N.1.F:."."F$(N).S1.C(F
$(N)))" ."REC$(K%(I),N):.N.(.J..". ..N..
EXT ..L..AST ..J..UMP ..F..IND"
.^.K.." ..M..ODIFY ..D..ELETE ..P..RIN
T ..E..XIT.".Y.L..30:.A$."N".I.I.1:.19
4...N..A$."L".I.I.1:.194...O..A$."M"..25
6:.198...P..A$."J".216.L.Q..A$."D"..284:
.198...R..A$."F".218...T..A$."E".68. .U.
.A$."P"..4,4:.4,"RECORD#"I"IN FILE: "NF$
:.4:.215...V..602:.204.[.W..N.1.F:.4,REC
$(K%(I),N):.N:.4:.4: 4:.204...X..".. JUM
P TO RECORD NUMBER.";I:.194...Z..". .
FIND RECORDS WITH COMMON ITEMS .".T....N
.1.F:." ..";N;".. ";F$(N):.N......".. WH
ICH FIELD IS TO BE SEARCHED.? 0 ....";SF
:.SF.0.68.,....SF.1.SF.F.."...":.222.S..
..". ENTER .COMMON ITEM. ":." (THE ENTIR
E STRING IS NOT REQUIRED)."......"..";F$
(SF);". ";:.T$:.T$.D$.68.E...J.I:.I.1.X:
.".. SEARCHING RECORDS."I".."......T$.H(
REC$(K%(I),SF),C(T$)).236......241.....J
.I:.". RECORD #";I;".".D....N.1.F:."."F$
(N).S1.C(F$(N)))" ."REC$(K%(I),N):.N....
..". ..N..EXT ..M..ODIFY ..D..ELETE .
.E..XIT.":.30:.A$."E".198......A$."M"..2
56:.236......A$."D"..284:.236.E....I:I.J
:.198.K...:......".. MODIFY WHICH RECORD
? ENTER ..#.. OR ..A..LL..."......MR$:.M
R$.D$.68.1....MR$."A".MR$.D$:.254.E...I.
E(MR$):MR$.D$.X....I.X..348:.244.E....25
6:.68......I.1.X:.256:.". ..N..EXT OR ..
E..XIT.":.30:.A$."E".68......I:.68......
".. TO MODIFY RECORD #.";I;"., MAKE CHAN
GES"......" AS EACH FIELD IS DISPLAYED,
THEN ..RETURN...":.N.1.F.?...."."F$(N)"
.":." ";REC$(K%(I),N).^....C(REC$(K%(I
),N)).36..".";.X....". ";:.REC$(K%(I),N)
......C(REC$(K%(I),N)).L%(N)..140:.260.S
....REC$(K%(I),N)."=".REC$(K%(I),N).REC$
(K%(I.1),N)......REC$(K%(I),N)."".REC$(K
%(I),N).">".)....H(REC$(K%(I),N),1).">".
REC$(K%(I),N).">".7....N:CK.1:..=...:.V.
...".. DELETE WHICH RECORD? ENTER ..#..
OR ..A..LL..."......DR$:.DR$.D$.68......
DR$."A".DR$.D$:.282.F...I.E(DR$):DR$.D$:
.I.X..348:.274.S....284:.68......I.1.X:.
284:.". ..N..EXT OR ..E..XIT.":.30:.A$."
E".68......I:.68.H....".. TO DELETE RECO
RD NUMBER.";I;"., PRESS"......" ..SHIFT.
.D.., PRESS ..SPACE BAR.. TO ADVANCE.."
... ..N.1.F:."."F$(N).S1.C(F$(N)))" ."RE
C$(K%(I),N):.N.J."..30:.A$."D".294.U.$.C
K.1:....&.."..DELETING RECORD";I:."..REC
ORDS MAY NOW BE OUT OF ORDER".H.(..N.1.F
:REC$(K%(I),N).REC$(X,N):REC$(X,N)."":.N
.{.*..J.1.X:.K%(J).X.K%(J).K%(X):K%(X).0
:X.X.1:.292...,..J.....:...0..". . SOR
T RECORDS IN ASCENDING ORDER ."...2..
N.1.F:." .";N;". ";F$(N):.N...4..N.0.5:S
(N).0:.N." 6.N.0:.".. ENTER ..0.. TO EXI
T FIELD SELECTION".5 8.N.N.1:.N.6.320.U
:..". # .."N"..FIELD TO BE SORTED.? 0 ..
..";:.S(N):.S(1).0.68.. <..(S(N).F).(S(N
).0).."..":.314.. >..S(N)..0.312.. @..".
SORTING...".. B.L.R.1:.51526,L,X,F,S(1)
,S(2),S(3),S(4),S(5),S(0),REC$(1,S(1))..
!D..I.1.X:K%(I).I:.. !F.CK.1:.68.&!M.:.U
!N.."... ..YOU HAVE NOT SAVED YOUR CHANG
ES!."..!P.."... DO YOU REALLY WANT TO QU
IT? ..Y.. OR ..N....!R..30:.A$."Y" .344.
.!T..68..!V..CK..0.334.V!X.."...DATAFILE
TERMINATED":...!Z.:..!\.." .NO SUCH REC
ORD EXISTS.":..."^..R.0...="`..". ..
NO RECORDS OR FILES IN MEMORY ..".T"
A..I.1.500:.I:FL.1:.._"B..X.0...J"C..352
:..P"D.:.."F..CK..0..394:.A$.."N".68.."H
..". . TRANSFER TO PRINTING PROGRAMS
".."J.."..PUT .DATAFILE. DISK IN DRI
VE, TRANSFER TO:".!#L...6)"...P.. DFPRIN
T .REPORTS-LABELS-LISTS".O#N...6)"...C.
. DFCALC .CALCULATED REPORTS".P#P...6)
"...E..XIT TO MAIN MENU...#R..". .
PRESS THE APPROPRIATE KEY "..#T..3
0:.A$."E".68..#V..A$."C".."..LOAD"G(34)"
DFCALC"G(34)",8":.380..$X..A$."P".."..LO
AD"G(34)"DFPRINT"G(34)",8":.380.%$Z..602
:.372.9$|..:.:.:.:."RUN.".M$~..631,19:.6
32,13:.633,13:.634,13:.635,13:.636,13.|$
...198,6:.:...$..:..$...".. ..THIS WILL
DESTROY THE FILE IN MEMORY!."..$..."...
SAVE THE FILE FIRST? ..Y.. OR ..N..":.30
:...$..:..%..."... THIS WILL ERASE THE D
ISK!.".<%...".. ARE YOU SURE? ..Y.. OR .
.N...O%...30:.A$."N".68._%...A$.."Y".68.
.%...".. PRESS ..RETURN.. WITHOUT AN ENT
RY TO EXIT."..%...". .DISK NAME,ID.";HN$
,ID$:.HN$.D$.68..%...15,8,15:.15,"NEW0:"
.HN$.",".ID$:.414:.ET.8.462..&.. 15:.462
..&..:.3&...15,EN,EM$,ET,ES:.(EN.20).(EN
.62).ET.0:..G& ..". ..DISK ERROR."EN".,
"EM$","ET".,"ES".":ET.8..&...".. PRESS .
.ANY KEY.. TO RETURN TO MENU.":.30: 5: 1
5:...&..:.V&...".":@"$":..25)"PRESS ..AN
Y KEY..":.30:...&L.:..'N..".. .
DISK COMMANDS MENU "..'P...11)
"...$.. DISK DIRECTORY.Q'R...11)"...F..O
RMAT A BLANK DISK.S'T...11)"...S..CRATCH
A SEQ FILE..'V...11)"...R..ENAME A SEQ
FILE..'W...11)"...V..ALIDATE A DISK.U'X.
..11)"...E..XIT TO MAIN MENU...(Z..". .
PRESS THE APPROPRIATE KEY ".5
(...30:MR$.D$:DR$.D$:.A$."$".A$."4"..422
:.462.E(...A$."F".402.[(...A$."S"..498:.
488.J(...A$."E".68.{(...A$."V"..500..(..
.A$."R"..498:.493..(...602:.476.O(...".
..SCRATCH FILE NAME ..";DR$:.DR$.D$.462.
.)...15,8,15:.5,8,5,"0:".DR$.",S,R":.414
:.ET.8.462. ).. 5:.15,"S0:".DR$: 15:.462
.N)...". ..RENAME OLD FILE ..";DR$:.DR$.
D$.462.|)...". .. TO NEW FILE ..";MR$
:.MR$.D$.462..)...15,8,15:.5,8,5,"0:".DR
$.",S,R":.414:.ET.8.462..).. 5:.15,"R0:"
.MR$."=".DR$:.5,8,5:.414:.ET.8.462..)..
5: 15:.462..*...".. ENTER FILE NAMES EXA
CTLY AS SHOWN".Y*..." ON THE DIRECTORY,
EX:. DF] MAIL LIST..":@"$0:*=S":...*..."
.":@"$":.".VALIDATE THIS DISK? ..Y..ES O
R ..N..O":.30..*...A$.."Y".462..*..@"V0"
:.462..*..:..*X..E.0.24:.54272.E,0:.:.54
296,15:...+Z..54277,58:.54278,16:.54273,
35:.54272,134.2+\..54276,33:.E.1.100:.:.
54276,16:....
> CLICK IMAGE PREVIEW FOR FULL MODAL