TURBOBASE'D
FILE INFORMATION
FILENAME(S): TURBOBASE'D
FILE TYPE(S): PRG
FILE SIZE: 5.3K
FIRST SEEN: 2025-11-30 21:11:26
APPEARS ON: 1 disk(s)
FILE HASH
9921c378dad9d5b559efa819bf10c48ad3bff0b4ed0b0e869bcaf072b1aba8a6
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C16 KINGSIZED | TURBOBASE'D | PRG | DuncanTwain | 28 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 10 18 10 64 00 E7 30 2C 32 3A E7 34 2C 32 2C |....d..0,2:.4,2,|
00000010: 34 3A E7 31 2C 33 2C 31 00 22 10 65 00 D7 20 31 |4:.1,3,1.".e.. 1|
00000020: 30 33 00 2B 10 66 00 89 31 30 34 00 33 10 67 00 |03.+.f..104.3.g.|
00000030: D6 20 82 00 50 10 68 00 99 C7 28 33 31 29 3A 86 |. ..P.h...(31):.|
00000040: 41 24 28 32 30 30 2C 35 29 3A 99 C7 28 31 34 29 |A$(200,5):..(14)|
00000050: 00 6A 10 69 00 4C 50 24 B2 22 93 12 C4 C1 D4 C1 |.j.i.LP$."......|
00000060: 20 C9 CE D0 D5 D4 92 20 3A 22 00 94 10 6A 00 99 | ...... :"...j..|
00000070: 22 93 22 A3 37 29 22 AF AF AF AF AF AF AF AF AF |".".7)".........|
00000080: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................|
00000090: AF AF AF 22 00 BC 10 6B 00 99 A3 37 29 22 12 20 |..."...k...7)". |
000000A0: 20 20 20 20 C3 31 36 2F D0 CC D5 D3 34 20 D4 D5 | .16/....4 ..|
000000B0: D2 C2 CF C2 C1 D3 C5 20 20 20 20 22 00 E3 10 6C |....... "...l|
000000C0: 00 99 A3 37 29 22 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |...7)"..........|
000000D0: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
000000E0: B7 B7 22 00 10 11 6D 00 99 22 13 11 11 11 11 11 |.."...m.."......|
000000F0: 20 20 20 20 20 20 20 20 20 20 20 C4 49 53 4B 20 | .ISK |
00000100: 4F 52 20 D4 41 50 45 20 3F 20 28 C4 2F D4 29 22 |OR .APE ? (./.)"|
00000110: 00 18 11 6E 00 A1 41 24 00 2E 11 6F 00 8B 41 24 |...n..A$...o..A$|
00000120: B2 22 44 22 A7 44 4E B2 38 3A 89 31 31 34 00 44 |."D".DN.8:.114.D|
00000130: 11 70 00 8B 41 24 B2 22 54 22 A7 44 4E B2 31 3A |.p..A$."T".DN.1:|
00000140: 89 31 31 34 00 4D 11 71 00 89 31 31 30 00 62 11 |.114.M.q..110.b.|
00000150: 72 00 99 22 11 11 20 20 20 20 20 20 20 CD C5 CE |r..".. ...|
00000160: D5 22 00 84 11 73 00 99 22 11 20 20 20 20 20 20 |."...s..". |
00000170: 20 31 2E 20 C3 52 45 41 54 45 20 4E 45 57 20 46 | 1. .REATE NEW F|
00000180: 49 4C 45 22 00 A0 11 74 00 99 22 11 20 20 20 20 |ILE"...t..". |
00000190: 20 20 20 32 2E 20 CC 4F 41 44 20 46 49 4C 45 22 | 2. .OAD FILE"|
000001A0: 00 B9 11 75 00 99 22 20 20 20 20 20 20 20 11 12 |...u.." ..|
000001B0: D7 48 49 43 48 20 3F 20 22 00 CE 11 76 00 A1 5A |.HICH ? "...v..Z|
000001C0: 5A 24 3A 8B 5A 5A 24 B2 22 22 A7 31 31 38 00 E8 |Z$:.ZZ$."".118..|
000001D0: 11 77 00 41 B2 C5 28 5A 5A 24 29 3A 8B 41 B3 31 |.w.A..(ZZ$):.A.1|
000001E0: B0 41 B1 32 A7 31 31 38 00 F5 11 78 00 8B 41 B2 |.A.2.118...x..A.|
000001F0: 31 A7 31 33 34 00 0A 12 79 00 85 22 93 C6 49 4C |1.134...y.."..IL|
00000200: 45 4E 41 4D 45 20 22 3B 42 24 00 2F 12 7A 00 9F |ENAME ";B$./.z..|
00000210: 31 2C 44 4E 2C 30 2C 42 24 3A 99 22 11 CC 4F 41 |1,DN,0,B$:."..OA|
00000220: 44 49 4E 47 20 C6 49 4C 45 20 3A 20 22 42 24 00 |DING .ILE : "B$.|
00000230: 38 12 7B 00 84 31 2C 4E 00 41 12 7C 00 84 31 2C |8.{..1,N.A.|..1,|
00000240: 4D 00 4C 12 7D 00 81 58 B2 30 A4 4E 00 57 12 7E |M.L.}..X.0.N.W.~|
00000250: 00 81 59 B2 30 A4 4D 00 61 12 7F 00 84 31 2C 43 |..Y.0.M.a....1,C|
00000260: 24 00 70 12 80 00 41 24 28 58 2C 59 29 B2 43 24 |$.p...A$(X,Y).C$|
00000270: 00 81 12 81 00 8B 28 53 54 29 AF 36 34 A7 31 33 |......(ST).64.13|
00000280: 32 00 A3 12 82 00 8B 28 53 54 29 AF 31 36 A7 99 |2......(ST).16..|
00000290: 22 93 12 D2 C5 C1 C4 A0 C5 D2 D2 CF D2 22 3A 89 |"............":.|
000002A0: 31 35 33 00 AC 12 83 00 82 59 2C 58 00 B3 12 84 |153......Y,X....|
000002B0: 00 A0 31 00 BC 12 85 00 89 31 35 33 00 C4 12 86 |..1......153....|
000002C0: 00 58 B2 30 00 ED 12 87 00 99 22 93 12 C3 52 45 |.X.0......"...RE|
000002D0: 41 54 45 20 4E 45 57 20 46 49 4C 45 20 3A 20 D2 |ATE NEW FILE : .|
000002E0: 45 43 4F 52 44 2D 4C 41 59 4F 55 54 22 00 17 13 |ECORD-LAYOUT"...|
000002F0: 88 00 99 22 11 36 20 46 49 45 4C 44 53 20 41 52 |...".6 FIELDS AR|
00000300: 45 20 41 56 41 49 4C 41 42 4C 45 20 50 45 52 20 |E AVAILABLE PER |
00000310: 52 45 43 4F 52 44 22 00 55 13 89 00 99 22 11 D4 |RECORD".U...."..|
00000320: 59 50 45 20 2A 20 54 4F 20 43 4F 52 52 45 43 54 |YPE * TO CORRECT|
00000330: 20 26 20 27 53 54 4F 50 27 20 57 48 45 4E 20 59 | & 'STOP' WHEN Y|
00000340: 4F 55 22 3A 99 22 11 41 52 45 20 52 45 41 44 59 |OU":.".ARE READY|
00000350: 22 3A 99 3A 99 00 60 13 8A 00 81 59 B2 30 A4 35 |":.:..`....Y.0.5|
00000360: 00 87 13 8B 00 99 22 C6 49 45 4C 44 20 23 20 22 |......".IELD # "|
00000370: 3B 59 AA 31 3B 3A 85 41 24 28 58 2C 59 29 3A 8B |;Y.1;:.A$(X,Y):.|
00000380: 59 B2 30 A7 31 34 31 00 AA 13 8C 00 8B 41 24 28 |Y.0.141......A$(|
00000390: 58 2C 59 29 B2 22 2A 22 A7 59 B2 59 AB 31 3A 99 |X,Y)."*".Y.Y.1:.|
000003A0: 22 91 91 22 3B 3A 89 31 33 39 00 C9 13 8D 00 8B |"..";:.139......|
000003B0: 41 24 28 58 2C 59 29 B2 22 53 54 4F 50 22 A7 59 |A$(X,Y)."STOP".Y|
000003C0: B2 59 AB 31 3A 89 31 34 34 00 E8 13 8E 00 41 24 |.Y.1:.144.....A$|
000003D0: 28 58 2C 59 29 B2 C4 28 59 AA 31 29 AA 22 20 22 |(X,Y)..(Y.1)." "|
000003E0: AA 41 24 28 58 2C 59 29 00 F5 13 8F 00 82 59 3A |.A$(X,Y)......Y:|
000003F0: 59 B2 59 AB 31 00 00 14 90 00 8B 59 B3 30 A7 8A |Y.Y.1......Y.0..|
00000400: 00 08 14 91 00 4D B2 59 00 2B 14 92 00 99 22 93 |.....M.Y.+....".|
00000410: 12 D4 48 49 53 20 49 53 20 59 4F 55 20 53 45 4C |..HIS IS YOU SEL|
00000420: 45 43 54 49 4F 4E 22 3A 99 3A 99 00 36 14 93 00 |ECTION":.:..6...|
00000430: 81 59 B2 30 A4 4D 00 46 14 94 00 99 41 24 28 58 |.Y.0.M.F....A$(X|
00000440: 2C 59 29 3A 82 59 00 5C 14 95 00 99 22 11 12 C7 |,Y):.Y.\...."...|
00000450: 4F 4F 44 20 28 59 2F 4E 29 20 3F 22 00 71 14 96 |OOD (Y/N) ?".q..|
00000460: 00 A1 5A 5A 24 3A 8B 5A 5A 24 B2 22 22 A7 31 35 |..ZZ$:.ZZ$."".15|
00000470: 30 00 AA 14 97 00 8B 5A 5A 24 B2 22 4E 22 A7 99 |0......ZZ$."N"..|
00000480: 22 11 11 12 D4 48 45 4E 20 53 54 41 52 54 20 41 |"....HEN START A|
00000490: 47 41 49 4E 2E 2E 2E 22 3A 81 59 B2 30 A4 32 30 |GAIN...":.Y.0.20|
000004A0: 30 30 3A 82 59 3A 89 31 33 34 00 BC 14 98 00 8B |00:.Y:.134......|
000004B0: 5A 5A 24 B3 B1 22 59 22 A7 31 35 30 00 DF 14 99 |ZZ$.."Y".150....|
000004C0: 00 85 22 11 12 D3 C5 CC C5 C3 D4 C9 CF CE 92 1D |..".............|
000004D0: 1D C8 20 20 20 9D 9D 9D 9D 9D 9D 22 3B 41 24 00 |.. ......";A$.|
000004E0: EF 14 9A 00 8B 41 24 B2 22 31 22 A7 31 36 37 00 |.....A$."1".167.|
000004F0: FF 14 9B 00 8B 41 24 B2 22 32 22 A7 31 38 33 00 |.....A$."2".183.|
00000500: 0F 15 9C 00 8B 41 24 B2 22 34 22 A7 32 31 31 00 |.....A$."4".211.|
00000510: 1F 15 9D 00 8B 41 24 B2 22 35 22 A7 32 33 34 00 |.....A$."5".234.|
00000520: 2F 15 9E 00 8B 41 24 B2 22 C8 22 A7 32 34 37 00 |/....A$.".".247.|
00000530: 45 15 9F 00 8B 41 24 B2 22 C5 22 A7 99 22 93 22 |E....A$.".".."."|
00000540: 3A 89 33 36 36 00 55 15 A0 00 8B 41 24 B2 22 33 |:.366.U....A$."3|
00000550: 22 A7 32 36 30 00 65 15 A1 00 8B 41 24 B2 22 37 |".260.e....A$."7|
00000560: 22 A7 32 36 37 00 75 15 A2 00 8B 41 24 B2 22 39 |".267.u....A$."9|
00000570: 22 A7 32 37 35 00 85 15 A3 00 8B 41 24 B2 22 38 |".275......A$."8|
00000580: 22 A7 32 39 33 00 95 15 A4 00 8B 41 24 B2 22 36 |".293......A$."6|
00000590: 22 A7 33 31 31 00 B0 15 A5 00 99 22 12 11 C3 CF |".311......"....|
000005A0: CD CD C1 CE C4 A0 CE CF D4 A0 CB CE CF D7 CE 22 |..............."|
000005B0: 00 B9 15 A6 00 89 31 35 33 00 C4 15 A7 00 99 4C |......153......L|
000005C0: 50 24 3A 99 00 D8 15 A8 00 8B 41 24 28 31 2C 30 |P$:.......A$(1,0|
000005D0: 29 B2 22 22 A7 31 37 30 00 00 16 A9 00 99 22 11 |)."".170......".|
000005E0: 11 12 20 C4 41 54 41 20 41 4C 52 45 41 44 59 20 |.. .ATA ALREADY |
000005F0: 50 52 45 53 45 4E 54 21 21 20 22 3A 89 31 35 33 |PRESENT!! ":.153|
00000600: 00 0D 16 AA 00 81 58 B2 31 A4 32 30 30 00 28 16 |......X.1.200.(.|
00000610: AB 00 99 22 11 D2 45 43 4F 52 44 20 4E 52 2E 28 |..."..ECORD NR.(|
00000620: 22 3B 58 3B 22 29 11 22 00 33 16 AC 00 81 59 B2 |";X;").".3....Y.|
00000630: 30 A4 4D 00 45 16 AD 00 4E 4C B2 C3 28 41 24 28 |0.M.E...NL..(A$(|
00000640: 30 2C 59 29 29 00 64 16 AE 00 99 41 24 28 30 2C |0,Y)).d....A$(0,|
00000650: 59 29 A3 31 35 29 22 3A 20 22 3B 3A 85 41 24 28 |Y).15)": ";:.A$(|
00000660: 58 2C 59 29 00 87 16 AF 00 8B 41 24 28 58 2C 59 |X,Y)......A$(X,Y|
00000670: 29 B2 22 2A 22 A7 59 B2 59 AB 31 3A 99 22 91 91 |)."*".Y.Y.1:."..|
00000680: 22 3B 3A 89 31 37 34 00 9F 16 B0 00 8B 41 24 28 |";:.174......A$(|
00000690: 58 2C 59 29 B2 22 53 54 4F 50 22 A7 31 38 30 00 |X,Y)."STOP".180.|
000006A0: A6 16 B1 00 82 59 00 C1 16 B2 00 8B 58 AD 32 B2 |.....Y......X.2.|
000006B0: B5 28 58 AD 32 29 A7 99 4C 50 24 3A 99 22 11 11 |.(X.2)..LP$:."..|
000006C0: 22 00 C8 16 B3 00 82 58 00 D2 16 B4 00 4E B2 58 |"......X.....N.X|
000006D0: AB 31 00 EF 16 B5 00 99 22 11 22 3B 4E 3B 22 D2 |.1......".";N;".|
000006E0: C5 C3 CF D2 C4 D3 20 D0 D2 C5 D3 C5 CE D4 22 00 |...... .......".|
000006F0: F8 16 B6 00 89 31 35 33 00 14 17 B7 00 99 22 93 |.....153......".|
00000700: 12 D3 C8 CF D7 A0 C6 C9 CC C5 A0 C3 CF CE D4 C5 |................|
00000710: CE D4 D3 22 00 3B 17 B8 00 99 22 11 11 CC 49 53 |...".;...."...IS|
00000720: 54 20 4F 4E 20 D0 52 49 4E 54 45 52 20 4F 52 20 |T ON .RINTER OR |
00000730: 4F 4E 20 D3 43 52 45 45 4E 3F 22 00 50 17 B9 00 |ON .CREEN?".P...|
00000740: 99 22 11 31 20 3D 20 D0 52 49 4E 54 45 52 2E 22 |.".1 = .RINTER."|
00000750: 00 64 17 BA 00 99 22 11 32 20 3D 20 D3 43 52 45 |.d....".2 = .CRE|
00000760: 45 4E 2E 22 00 7A 17 BB 00 A1 20 5A 5A 24 3A 8B |EN.".z.... ZZ$:.|
00000770: 5A 5A 24 B2 22 22 A7 31 38 37 00 96 17 BC 00 8B |ZZ$."".187......|
00000780: 5A 5A 24 B2 22 31 22 A7 51 4D B2 31 3A A0 31 3A |ZZ$."1".QM.1:.1:|
00000790: 9F 31 2C 34 2C 37 00 C2 17 BD 00 99 22 11 11 D7 |.1,4,7......"...|
000007A0: 48 49 43 48 20 52 45 43 4F 52 44 28 53 29 20 44 |HICH RECORD(S) D|
000007B0: 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 53 45 |O YOU WANT TO SE|
000007C0: 45 22 00 EA 17 BE 00 99 22 11 11 31 2E 20 C1 4C |E"......"..1. .L|
000007D0: 4C 22 3A 99 22 11 32 2E 20 CF 4E 45 22 3A 99 22 |L":.".2. .NE":."|
000007E0: 11 33 2E 20 D2 41 4E 47 45 22 00 FA 17 BF 00 99 |.3. .ANGE"......|
000007F0: 22 11 D7 48 49 43 48 20 3F 22 00 0F 18 C0 00 A1 |"..HICH ?"......|
00000800: 5A 5A 24 3A 8B 5A 5A 24 B2 22 22 A7 31 39 32 00 |ZZ$:.ZZ$."".192.|
00000810: 2D 18 C1 00 41 B2 C5 28 5A 5A 24 29 3A 8B 41 B2 |-...A..(ZZ$):.A.|
00000820: 31 B0 41 B2 32 B0 41 B2 33 A7 31 39 35 00 36 18 |1.A.2.A.3.195.6.|
00000830: C2 00 89 31 39 32 00 49 18 C3 00 91 41 8D 32 30 |...192.I....A.20|
00000840: 37 2C 32 30 38 2C 32 31 30 00 63 18 C4 00 99 22 |7,208,210.c...."|
00000850: 93 22 3B 3A 8B 51 4D B2 31 A7 98 31 2C C7 28 31 |.";:.QM.1..1,.(1|
00000860: 33 29 3B 00 6E 18 C5 00 81 58 B2 41 A4 42 00 A9 |3);.n....X.A.B..|
00000870: 18 C6 00 99 22 D2 45 43 2E 20 4E 52 2E 20 28 22 |....".EC. NR. ("|
00000880: 3B 58 3B 22 29 11 22 3A 8B 51 4D B2 31 A7 98 31 |;X;").":.QM.1..1|
00000890: 2C 22 D2 45 43 2E 20 4E 52 2E 20 28 22 3B 58 3B |,".EC. NR. (";X;|
000008A0: 22 29 22 2C C7 28 31 33 29 00 B4 18 C7 00 81 59 |")",.(13)......Y|
000008B0: B2 30 A4 4D 00 F2 18 C8 00 99 41 24 28 30 2C 59 |.0.M......A$(0,Y|
000008C0: 29 A3 31 35 29 22 3A 20 22 3B 41 24 28 58 2C 59 |).15)": ";A$(X,Y|
000008D0: 29 3A 8B 51 4D B2 31 A7 98 31 2C 41 24 28 30 2C |):.QM.1..1,A$(0,|
000008E0: 59 29 A3 31 35 29 22 3A 20 22 3B 41 24 28 58 2C |Y).15)": ";A$(X,|
000008F0: 59 29 00 F9 18 C9 00 82 59 00 26 19 CA 00 99 22 |Y)......Y.&...."|
00000900: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000910: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000920: 2D 2D 2D 2D 2D 22 00 5B 19 CB 00 8B 51 4D B2 31 |-----".[....QM.1|
00000930: A7 98 31 2C 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |..1,"-----------|
00000940: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000950: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 70 19 CC 00 |----------".p...|
00000960: A1 5A 5A 24 3A 8B 5A 5A 24 B2 22 22 A7 32 30 34 |.ZZ$:.ZZ$."".204|
00000970: 00 77 19 CD 00 82 58 00 80 19 CE 00 89 31 35 33 |.w....X......153|
00000980: 00 8E 19 CF 00 41 B2 31 3A 42 B2 4E 3A 8E 00 AA |.....A.1:B.N:...|
00000990: 19 D0 00 85 22 11 D7 48 49 43 48 20 D2 45 43 4F |...."..HICH .ECO|
000009A0: 52 44 20 4E 52 2E 20 22 3B 41 00 B4 19 D1 00 42 |RD NR. ";A.....B|
000009B0: B2 41 3A 8E 00 DD 19 D2 00 85 22 11 D3 54 41 52 |.A:......."..TAR|
000009C0: 54 20 52 45 43 2E 4E 52 2C 20 C5 4E 44 20 52 45 |T REC.NR, .ND RE|
000009D0: 43 2E 4E 52 2E 20 22 3B 41 2C 42 3A 8E 00 EF 19 |C.NR. ";A,B:....|
000009E0: D3 00 99 22 93 12 C3 C8 C1 CE C7 C5 D3 11 22 00 |..."..........".|
000009F0: 2B 1A D4 00 99 22 31 2E 20 C1 44 44 20 52 45 43 |+...."1. .DD REC|
00000A00: 4F 52 44 53 22 3A 99 22 11 32 2E 20 43 48 41 4E |ORDS":.".2. CHAN|
00000A10: 47 45 20 52 45 43 4F 52 44 53 22 3A 99 22 11 20 |GE RECORDS":.". |
00000A20: 20 20 D7 48 49 43 48 20 3F 22 3B 00 40 1A D5 00 | .HICH ?";.@...|
00000A30: A1 5A 5A 24 3A 8B 5A 5A 24 B2 22 22 A7 32 31 33 |.ZZ$:.ZZ$."".213|
00000A40: 00 5A 1A D6 00 41 B2 C5 28 5A 5A 24 29 3A 8B 41 |.Z...A..(ZZ$):.A|
00000A50: B3 31 B0 41 B1 32 A7 32 31 33 00 6A 1A D7 00 99 |.1.A.2.213.j....|
00000A60: 41 3A 8B 41 B2 32 A7 32 32 37 00 79 1A D8 00 81 |A:.A.2.227.y....|
00000A70: 58 B2 4E AA 31 A4 32 30 30 00 8A 1A D9 00 99 22 |X.N.1.200......"|
00000A80: 11 28 22 3B 58 3B 22 29 11 22 00 95 1A DA 00 81 |.(";X;")."......|
00000A90: 59 B2 30 A4 4D 00 AB 1A DB 00 99 41 24 28 30 2C |Y.0.M......A$(0,|
00000AA0: 59 29 A3 31 35 29 22 3A 20 22 3B 00 B8 1A DC 00 |Y).15)": ";.....|
00000AB0: 85 41 24 28 58 2C 59 29 00 DB 1A DD 00 8B 41 24 |.A$(X,Y)......A$|
00000AC0: 28 58 2C 59 29 B2 22 2A 22 A7 59 B2 59 AB 31 3A |(X,Y)."*".Y.Y.1:|
00000AD0: 99 22 91 91 22 3B 3A 89 32 31 39 00 F3 1A DE 00 |."..";:.219.....|
00000AE0: 8B 41 24 28 58 2C 59 29 B2 22 53 54 4F 50 22 A7 |.A$(X,Y)."STOP".|
00000AF0: 32 32 34 00 FC 1A DF 00 82 59 2C 58 00 06 1B E0 |224......Y,X....|
00000B00: 00 4E B2 58 AB 31 00 29 1B E1 00 99 22 11 D4 4F |.N.X.1.)...."..O|
00000B10: 54 41 4C 20 4E 55 4D 42 45 52 20 4F 46 20 52 45 |TAL NUMBER OF RE|
00000B20: 43 4F 52 44 53 20 22 3B 4E 00 32 1B E2 00 89 31 |CORDS ";N.2....1|
00000B30: 35 33 00 3B 1B E3 00 8D 33 35 31 00 64 1B E4 00 |53.;....351.d...|
00000B40: 85 22 11 C3 48 41 4E 47 45 20 57 48 49 43 48 20 |."..HANGE WHICH |
00000B50: 46 49 45 4C 44 20 28 30 3D 53 54 4F 50 29 20 22 |FIELD (0=STOP) "|
00000B60: 3B 59 3A 99 00 71 1B E5 00 8B 59 B2 30 A7 31 35 |;Y:..q....Y.0.15|
00000B70: 33 00 8D 1B E6 00 8B 59 B3 30 B0 59 B1 4D AA 31 |3......Y.0.Y.M.1|
00000B80: A7 99 22 91 91 91 22 3B 3A 89 32 32 38 00 B9 1B |.."...";:.228...|
00000B90: E7 00 99 41 24 28 30 2C 59 AB 31 29 A3 31 35 29 |...A$(0,Y.1).15)|
00000BA0: 22 3A 20 20 20 22 41 24 28 58 2C 59 AB 31 29 3A |": "A$(X,Y.1):|
00000BB0: 99 22 91 22 A3 31 37 29 3B 00 C8 1B E8 00 85 41 |.".".17);......A|
00000BC0: 24 28 58 2C 59 AB 31 29 00 D1 1B E9 00 89 32 32 |$(X,Y.1)......22|
00000BD0: 38 00 E5 1B EA 00 99 22 93 12 D3 45 41 52 43 48 |8......"...EARCH|
00000BE0: 22 3A 43 B2 30 00 EE 1B EB 00 8D 33 34 32 00 1C |":C.0......342..|
00000BF0: 1C EC 00 85 22 11 D3 45 41 52 43 48 20 46 4F 52 |...."..EARCH FOR|
00000C00: 22 3B 41 24 3A 99 22 93 22 41 24 22 20 53 45 41 |";A$:."."A$" SEA|
00000C10: 52 43 48 49 4E 47 2E 2E 2E 22 3A 99 00 27 1C ED |RCHING...":..'..|
00000C20: 00 81 58 B2 31 A4 4E 00 4B 1C EE 00 8B C8 28 41 |..X.1.N.K.....(A|
00000C30: 24 28 58 2C 59 AB 31 29 2C C3 28 41 24 29 29 B2 |$(X,Y.1),.(A$)).|
00000C40: 41 24 A7 43 B2 31 3A 8D 32 34 32 00 52 1C EF 00 |A$.C.1:.242.R...|
00000C50: 82 58 00 6C 1C F0 00 8B 43 B2 30 A7 99 41 24 22 |.X.l....C.0..A$"|
00000C60: 20 12 CE CF D4 20 C6 CF D5 CE C4 22 00 75 1C F1 | .... .....".u..|
00000C70: 00 89 31 35 33 00 86 1C F2 00 99 22 11 28 22 3B |..153......".(";|
00000C80: 58 3B 22 29 11 22 00 91 1C F3 00 81 41 B2 30 A4 |X;")."......A.0.|
00000C90: 4D 00 AB 1C F4 00 99 41 24 28 30 2C 41 29 3B 22 |M......A$(0,A);"|
00000CA0: 3A 20 22 3B 41 24 28 58 2C 41 29 00 B2 1C F5 00 |: ";A$(X,A).....|
00000CB0: 82 41 00 B8 1C F6 00 8E 00 C7 1C F7 00 99 22 93 |.A............".|
00000CC0: 12 CD C5 CE D5 92 22 00 ED 1C F8 00 99 22 11 12 |......"......"..|
00000CD0: 31 92 20 20 C9 4E 50 55 54 20 44 41 54 41 20 49 |1. .NPUT DATA I|
00000CE0: 4E 20 41 20 4E 45 57 20 46 49 4C 45 22 00 0E 1D |N A NEW FILE"...|
00000CF0: F9 00 99 22 11 12 32 92 20 20 D3 45 45 20 52 45 |..."..2. .EE RE|
00000D00: 43 4F 52 44 20 43 4F 4E 54 45 4E 54 53 22 00 2A |CORD CONTENTS".*|
00000D10: 1D FA 00 99 22 11 12 33 92 20 20 CC 49 53 54 20 |...."..3. .IST |
00000D20: 50 45 52 20 46 49 45 4C 44 22 00 4D 1D FB 00 99 |PER FIELD".M....|
00000D30: 22 11 12 34 92 20 20 C3 48 41 4E 47 45 20 4F 52 |"..4. .HANGE OR|
00000D40: 20 41 44 44 20 52 45 43 4F 52 44 53 22 00 6C 1D | ADD RECORDS".l.|
00000D50: FC 00 99 22 11 12 35 92 20 20 D3 45 41 52 43 48 |..."..5. .EARCH|
00000D60: 20 4F 4E 20 41 20 46 49 45 4C 44 22 00 94 1D FD | ON A FIELD"....|
00000D70: 00 99 22 11 12 36 92 20 20 D3 4F 52 54 28 41 4C |.."..6. .ORT(AL|
00000D80: 50 48 41 42 45 54 49 43 29 20 50 45 52 20 46 49 |PHABETIC) PER FI|
00000D90: 45 4C 44 22 00 B3 1D FE 00 99 22 11 12 37 92 20 |ELD"......"..7. |
00000DA0: 20 C6 49 45 4C 44 20 43 41 4C 43 55 4C 41 54 49 | .IELD CALCULATI|
00000DB0: 4F 4E 22 00 CF 1D FF 00 99 22 11 12 38 92 20 20 |ON"......"..8. |
00000DC0: C4 45 4C 45 54 45 20 52 45 43 4F 52 44 53 22 00 |.ELETE RECORDS".|
00000DD0: E6 1D 00 01 99 22 11 12 39 92 20 20 D3 41 56 45 |....."..9. .AVE|
00000DE0: 20 46 49 4C 45 22 00 0B 1E 01 01 99 22 11 12 C8 | FILE"......"...|
00000DF0: 92 20 20 C8 45 4C 50 20 2D 20 4C 49 53 54 20 4F |. .ELP - LIST O|
00000E00: 46 20 43 4F 4D 4D 41 4E 44 53 22 00 1D 1E 02 01 |F COMMANDS".....|
00000E10: 99 22 11 12 C5 92 20 20 D3 54 4F 50 22 00 26 1E |.".... .TOP".&.|
00000E20: 03 01 89 31 35 33 00 34 1E 04 01 99 22 93 CC C9 |...153.4...."...|
00000E30: D3 D4 11 22 00 6B 1E 05 01 8D 33 34 32 3A 99 22 |...".k....342:."|
00000E40: 93 CC 49 53 54 20 4F 4E 20 22 3B 3A 4C 52 24 B2 |..IST ON ";:LR$.|
00000E50: C9 28 41 24 28 30 2C 41 AB 31 29 2C C3 28 41 24 |.(A$(0,A.1),.(A$|
00000E60: 28 30 2C 41 AB 31 29 29 AB 33 29 00 76 1E 06 01 |(0,A.1)).3).v...|
00000E70: 99 4C 52 24 3A 99 00 81 1E 07 01 81 58 B2 31 A4 |.LR$:.......X.1.|
00000E80: 4E 00 96 1E 08 01 99 58 3B 22 3A 22 3B 41 24 28 |N......X;":";A$(|
00000E90: 58 2C 59 AB 31 29 00 CA 1E 09 01 5A 5A B2 5A 5A |X,Y.1).....ZZ.ZZ|
00000EA0: AA 31 3A 8B 5A 5A B2 32 30 A7 5A 5A B2 30 3A 8D |.1:.ZZ.20.ZZ.0:.|
00000EB0: 33 36 33 3A 99 22 93 CC 49 53 54 20 4F 4E 20 22 |363:."..IST ON "|
00000EC0: 4C 52 24 3A 99 3A 89 32 36 36 00 DB 1E 0A 01 82 |LR$:.:.266......|
00000ED0: 58 3A 5A 5A B2 30 3A 89 31 35 33 00 EA 1E 0B 01 |X:ZZ.0:.153.....|
00000EE0: 99 22 93 CF D2 C4 C5 D2 11 22 00 F3 1E 0C 01 8D |."......."......|
00000EF0: 33 34 32 00 FB 1E 0D 01 41 B2 30 00 06 1F 0E 01 |342.....A.0.....|
00000F00: 81 58 B2 31 A4 4E 00 1B 1F 0F 01 41 B2 41 AA C5 |.X.1.N.....A.A..|
00000F10: 28 41 24 28 58 2C 59 AB 31 29 29 00 22 1F 10 01 |(A$(X,Y.1))."...|
00000F20: 82 58 00 37 1F 11 01 99 3A 99 22 11 D4 CF D4 C1 |.X.7....:.".....|
00000F30: CC A0 3A 20 22 3B 41 00 40 1F 12 01 89 31 35 33 |..: ";A.@....153|
00000F40: 00 58 1F 13 01 99 22 93 11 12 D3 C1 D6 C5 22 3A |.X....".......":|
00000F50: 51 24 B2 C7 28 33 34 29 00 6E 1F 14 01 85 22 11 |Q$..(34).n....".|
00000F60: C6 49 4C 45 20 4E 41 4D 45 20 22 3B 42 24 00 8D |.ILE NAME ";B$..|
00000F70: 1F 15 01 9F 31 2C 44 4E 2C 31 2C 42 24 3A 99 22 |....1,DN,1,B$:."|
00000F80: D3 41 56 49 4E 47 20 3A 20 22 3B 42 24 00 96 1F |.AVING : ";B$...|
00000F90: 16 01 98 31 2C 4E 00 9F 1F 17 01 98 31 2C 4D 00 |...1,N......1,M.|
00000FA0: AA 1F 18 01 81 58 B2 30 A4 4E 00 B5 1F 19 01 81 |.....X.0.N......|
00000FB0: 59 B2 30 A4 4D 00 D0 1F 1A 01 41 24 B2 41 24 28 |Y.0.M.....A$.A$(|
00000FC0: 58 2C 59 29 3A 98 31 2C 51 24 AA 41 24 AA 51 24 |X,Y):.1,Q$.A$.Q$|
00000FD0: 00 D9 1F 1B 01 82 59 2C 58 00 E0 1F 1C 01 A0 31 |......Y,X......1|
00000FE0: 00 E9 1F 1D 01 89 31 35 33 00 F7 1F 1E 01 84 31 |......153......1|
00000FF0: 2C 4E 3A 84 31 2C 4D 00 0F 20 1F 01 81 58 B2 30 |,N:.1,M.. ...X.0|
00001000: A4 4E 3A 81 59 B2 30 A4 4D 3A 84 31 2C 41 24 00 |.N:.Y.0.M:.1,A$.|
00001010: 20 20 20 01 8B 28 53 54 29 AF 36 34 A7 32 39 32 | ..(ST).64.292|
00001020: 00 5C 20 21 01 8B 41 24 28 58 2C 59 29 B3 B1 41 |.\ !..A$(X,Y)..A|
00001030: 24 A7 99 22 11 12 D7 D2 C9 D4 C5 A0 C5 D2 D2 CF |$.."............|
00001040: D2 92 2C 20 D0 CC C5 C1 D3 C5 A0 D3 C1 D6 C5 A0 |.., ............|
00001050: C1 C7 C1 C9 CE 22 20 3A 89 32 39 32 00 65 20 22 |....." :.292.e "|
00001060: 01 82 59 2C 58 00 76 20 23 01 99 22 C6 C9 CC C5 |..Y,X.v #.."....|
00001070: 20 CF 2E CB 2E 22 00 82 20 24 01 A0 31 3A 89 31 | ....".. $..1:.1|
00001080: 35 33 00 92 20 25 01 99 22 93 C4 C5 CC C5 D4 C5 |53.. %..".......|
00001090: 11 22 00 C1 20 26 01 85 22 11 CF 4E 45 20 52 45 |.".. &.."..NE RE|
000010A0: 43 4F 52 44 20 28 31 29 2C 20 D3 45 56 45 52 41 |CORD (1), .EVERA|
000010B0: 4C 20 52 45 43 4F 52 44 53 20 28 32 29 20 22 3B |L RECORDS (2) ";|
000010C0: 41 00 CE 20 27 01 8B 41 B2 32 A7 33 30 38 00 DB |A.. '..A.2.308..|
000010D0: 20 28 01 8B 41 B2 31 A7 32 39 38 00 E9 20 29 01 | (..A.1.298.. ).|
000010E0: 99 22 93 22 3A 89 32 39 33 00 F2 20 2A 01 8D 33 |.".":.293.. *..3|
000010F0: 35 31 00 02 21 2B 01 41 B2 58 3A 42 B2 58 3A 43 |51..!+.A.X:B.X:C|
00001100: B2 31 00 0F 21 2C 01 81 58 B2 41 A4 4E AB 31 00 |.1..!,..X.A.N.1.|
00001110: 19 21 2D 01 42 B2 42 AA 31 00 24 21 2E 01 81 59 |.!-.B.B.1.$!...Y|
00001120: B2 30 A4 4D 00 38 21 2F 01 41 24 28 58 2C 59 29 |.0.M.8!/.A$(X,Y)|
00001130: B2 41 24 28 42 2C 59 29 00 3F 21 30 01 82 59 00 |.A$(B,Y).?!0..Y.|
00001140: 46 21 31 01 82 58 00 50 21 32 01 4E B2 4E AB 43 |F!1..X.P!2.N.N.C|
00001150: 00 59 21 33 01 89 31 35 33 00 79 21 34 01 85 22 |.Y!3..153.y!4.."|
00001160: 11 D2 45 43 4F 52 44 20 3A 20 D3 54 41 52 54 2C |..ECORD : .TART,|
00001170: 20 C5 4E 44 22 3B 41 2C 42 00 85 21 35 01 43 B2 | .ND";A,B..!5.C.|
00001180: 42 AB 41 AA 31 00 8E 21 36 01 89 33 30 30 00 9D |B.A.1..!6..300..|
00001190: 21 37 01 99 22 93 12 D3 CF D2 D4 11 22 00 A6 21 |!7.."......."..!|
000011A0: 38 01 8D 33 34 32 00 B0 21 39 01 59 B2 59 AB 31 |8..342..!9.Y.Y.1|
000011B0: 00 CD 21 3A 01 99 22 11 C6 49 4C 45 20 49 53 20 |..!:.."..ILE IS |
000011C0: 42 45 49 4E 47 20 53 4F 52 54 45 44 22 00 FD 21 |BEING SORTED"..!|
000011D0: 3B 01 89 33 32 33 3A 8B CA 28 41 24 28 30 2C 41 |;..323:..(A$(0,A|
000011E0: AB 31 29 2C C3 28 41 24 28 30 2C 41 AB 31 29 29 |.1),.(A$(0,A.1))|
000011F0: AB 31 2C 31 29 B2 22 41 22 A7 33 32 33 00 05 22 |.1,1)."A".323.."|
00001200: 3C 01 43 B2 30 00 12 22 3D 01 81 58 B2 31 A4 4E |<.C.0.."=..X.1.N|
00001210: AB 31 00 34 22 3E 01 8B C5 28 41 24 28 58 2C 59 |.1.4">...(A$(X,Y|
00001220: 29 29 B3 B2 C5 28 41 24 28 58 AA 31 2C 59 29 29 |))...(A$(X.1,Y))|
00001230: A7 33 32 30 00 3D 22 3F 01 8D 33 33 31 00 44 22 |.320.="?..331.D"|
00001240: 40 01 82 58 00 51 22 41 01 8B 43 B2 31 A7 33 31 |@..X.Q"A..C.1.31|
00001250: 36 00 5A 22 42 01 89 33 32 39 00 62 22 43 01 43 |6.Z"B..329.b"C.C|
00001260: B2 30 00 6F 22 44 01 81 58 B2 31 A4 4E AB 31 00 |.0.o"D..X.1.N.1.|
00001270: 8B 22 45 01 8B 41 24 28 58 2C 59 29 B2 B3 41 24 |."E..A$(X,Y)..A$|
00001280: 28 58 AA 31 2C 59 29 A7 33 32 37 00 94 22 46 01 |(X.1,Y).327.."F.|
00001290: 8D 33 33 31 00 9B 22 47 01 82 58 00 A8 22 48 01 |.331.."G..X.."H.|
000012A0: 8B 43 B2 31 A7 33 32 33 00 C6 22 49 01 99 22 11 |.C.1.323.."I..".|
000012B0: 12 C6 49 4C 45 20 48 41 53 20 42 45 45 4E 20 53 |..ILE HAS BEEN S|
000012C0: 4F 52 54 45 44 22 00 CF 22 4A 01 89 31 35 33 00 |ORTED".."J..153.|
000012D0: DA 22 4B 01 81 42 B2 30 A4 4D 00 EC 22 4C 01 42 |."K..B.0.M.."L.B|
000012E0: 24 28 42 29 B2 41 24 28 58 2C 42 29 00 F3 22 4D |$(B).A$(X,B).."M|
000012F0: 01 82 42 00 FE 22 4E 01 81 42 B2 30 A4 4D 00 14 |..B.."N..B.0.M..|
00001300: 23 4F 01 41 24 28 58 2C 42 29 B2 41 24 28 58 AA |#O.A$(X,B).A$(X.|
00001310: 31 2C 42 29 00 1B 23 50 01 82 42 00 26 23 51 01 |1,B)..#P..B.&#Q.|
00001320: 81 42 B2 30 A4 4D 00 3A 23 52 01 41 24 28 58 AA |.B.0.M.:#R.A$(X.|
00001330: 31 2C 42 29 B2 42 24 28 42 29 00 41 23 53 01 82 |1,B).B$(B).A#S..|
00001340: 42 00 49 23 54 01 43 B2 31 00 4F 23 55 01 8E 00 |B.I#T.C.1.O#U...|
00001350: 82 23 56 01 99 22 11 D4 48 45 53 45 20 41 52 45 |.#V.."..HESE ARE|
00001360: 20 54 48 45 20 46 49 45 4C 44 53 20 3A 11 22 3A | THE FIELDS :.":|
00001370: 81 59 B2 30 A4 4D 3A 99 41 24 28 30 2C 59 29 3A |.Y.0.M:.A$(0,Y):|
00001380: 82 59 00 98 23 57 01 85 22 11 CF 4E 20 57 48 49 |.Y..#W.."..N WHI|
00001390: 43 48 20 22 3B 41 3A 99 00 A7 23 58 01 99 41 24 |CH ";A:...#X..A$|
000013A0: 28 30 2C 41 AB 31 29 00 BE 23 59 01 99 22 11 C3 |(0,A.1)..#Y.."..|
000013B0: 4F 52 52 45 43 54 20 28 59 2F 4E 29 20 22 00 D1 |ORRECT (Y/N) "..|
000013C0: 23 5A 01 A1 41 24 3A 8B 41 24 B2 22 22 A7 33 34 |#Z..A$:.A$."".34|
000013D0: 36 00 E8 23 5B 01 8B 41 24 B2 22 4E 22 A7 99 22 |6..#[..A$."N".."|
000013E0: 93 22 3B 3A 89 33 34 32 00 F9 23 5C 01 8B 41 24 |.";:.342..#\..A$|
000013F0: B3 B1 22 59 22 A7 33 34 36 00 01 24 5D 01 59 B2 |.."Y".346..$].Y.|
00001400: 41 00 07 24 5E 01 8E 00 2C 24 5F 01 85 22 11 D7 |A..$^...,$_.."..|
00001410: 48 49 43 48 20 52 45 43 4F 52 44 20 4E 52 2E 20 |HICH RECORD NR. |
00001420: 28 30 3D 53 54 4F 50 29 20 22 3B 58 00 39 24 60 |(0=STOP) ";X.9$`|
00001430: 01 8B 58 B2 30 A7 31 35 33 00 52 24 61 01 8B 58 |..X.0.153.R$a..X|
00001440: B3 31 B0 58 B1 4E A7 99 22 91 91 22 3B 3A 89 33 |.1.X.N.."..";:.3|
00001450: 35 31 00 63 24 62 01 99 22 11 28 22 3B 58 3B 22 |51.c$b..".(";X;"|
00001460: 29 11 22 00 6E 24 63 01 81 59 B2 30 A4 4D 00 88 |).".n$c..Y.0.M..|
00001470: 24 64 01 99 41 24 28 30 2C 59 29 3B 22 3A 20 22 |$d..A$(0,Y);": "|
00001480: 3B 41 24 28 58 2C 59 29 00 8F 24 65 01 82 59 00 |;A$(X,Y)..$e..Y.|
00001490: AF 24 66 01 99 22 11 C9 53 20 54 48 49 53 20 54 |.$f.."..S THIS T|
000014A0: 48 45 20 4F 4E 45 20 28 59 2F 4E 29 20 3F 22 00 |HE ONE (Y/N) ?".|
000014B0: C2 24 67 01 A1 41 24 3A 8B 41 24 B2 22 22 A7 33 |.$g..A$:.A$."".3|
000014C0: 35 39 00 D2 24 68 01 8B 41 24 B2 22 4E 22 A7 33 |59..$h..A$."N".3|
000014D0: 35 31 00 E3 24 69 01 8B 41 24 B3 B1 22 59 22 A7 |51..$i..A$.."Y".|
000014E0: 33 35 39 00 E9 24 6A 01 8E 00 01 25 6B 01 99 22 |359..$j....%k.."|
000014F0: 11 12 20 D0 52 45 53 53 20 41 4E 59 20 4B 45 59 |.. .RESS ANY KEY|
00001500: 22 00 16 25 6C 01 A1 5A 5A 24 3A 8B 5A 5A 24 B2 |"..%l..ZZ$:.ZZ$.|
00001510: 22 22 A7 33 36 34 00 1C 25 6D 01 8E 00 39 25 6E |"".364..%m...9%n|
00001520: 01 81 42 45 B2 30 A4 32 30 30 30 30 3A 97 34 30 |..BE.0.20000:.40|
00001530: 39 36 AA 42 45 2C 30 3A 82 00 44 25 6F 01 99 22 |96.BE,0:..D%o.."|
00001540: 93 22 3A A2 00 00 00 |.":.... |
....D..0,2:.4,2,4:.1,3,1.".E.W 103.+.F..
104.3.G.V ..P.H..G(31):.A$(200,5):.G(14)
.J.I.LP$."..DATA INPUT. :"...J..".".7)".
..........................."...K...7)".
C16/PLUS4 TURBOBASE "...L...7)"..
.........................."...M.."......
DISK OR TAPE ? (D/T)"...N..A$
...O..A$."D".DN.8:.114.D.P..A$."T".DN.1:
.114.M.Q..110.B.R..".. MENU"...S..
". 1. CREATE NEW FILE". .T..".
2. LOAD FILE"...U.." ..WHICH ?
".N.V..ZZ$:.ZZ$."".118...W.A.E(ZZ$):.A.1
.A.2.118...X..A.1.134...Y..".FILENAME ";
B$./.Z..1,DN,0,B$:.".LOADING FILE : "B$.
8.{..1,N.A.|..1,M.L.}..X.0.N.W.~..Y.0.M.
A...1,C$.P...A$(X,Y).C$......(ST).64.13
2......(ST).16.."..READ ERROR":.153.....
.Y,X..... 1......153.D...X.0......"..CRE
ATE NEW FILE : RECORD-LAYOUT"......".6 F
IELDS ARE AVAILABLE PER RECORD".U....".T
YPE * TO CORRECT & 'STOP' WHEN YOU":.".A
RE READY":.:..`....Y.0.5......"FIELD # "
;Y.1;:.A$(X,Y):.Y.0.141......A$(X,Y)."*"
.Y.Y.1:."..";:.139.I....A$(X,Y)."STOP".Y
.Y.1:.144.....A$(X,Y).D(Y.1)." ".A$(X,Y)
......Y:Y.Y.1......Y.0.......M.Y.+....".
.THIS IS YOU SELECTION":.:..6....Y.0.M.F
....A$(X,Y):.Y.\...."..GOOD (Y/N) ?".Q..
..ZZ$:.ZZ$."".150......ZZ$."N".."...THEN
START AGAIN...":.Y.0.2000:.Y:.134......
ZZ$.."Y".150......"..SELECTION...H ...
...";A$......A$."1".167......A$."2".183.
.....A$."4".211......A$."5".234./....A$.
"H".247.E....A$."E"..".":.366.U. ..A$."3
".260.E....A$."7".267.U....A$."9".275...
...A$."8".293......A$."6".311......"..CO
MMAND NOT KNOWN"......153.D....LP$:..X..
..A$(1,0)."".170......"... DATA ALREADY
PRESENT!! ":.153......X.1.200.(....".REC
ORD NR.(";X;").".3....Y.0.M.E...NL.C(A$(
0,Y)).D....A$(0,Y).15)": ";:.A$(X,Y)....
..A$(X,Y)."*".Y.Y.1:."..";:.174......A$(
X,Y)."STOP".180......Y.A....X.2..(X.2)..
LP$:."..".H....X.R...N.X.1......".";N;"R
ECORDS PRESENT"......153......"..SHOW FI
LE CONTENTS".;...."..LIST ON PRINTER OR
ON SCREEN?".P....".1 = PRINTER.".D....".
2 = SCREEN.".Z.... ZZ$:.ZZ$."".187......
ZZ$."1".QM.1: 1:.1,4,7.B...."..WHICH REC
ORD(S) DO YOU WANT TO SEE"......"..1. AL
L":.".2. ONE":.".3. RANGE"......".WHICH
?"......ZZ$:.ZZ$."".192.-.A.A.E(ZZ$):.A.
1.A.2.A.3.195.6.B..192.I.C..A.207,208,21
0.C.D..".";:.QM.1..1,G(13);.N.E..X.A.B..
.F.."REC. NR. (";X;").":.QM.1..1,"REC. N
R. (";X;")",G(13)...G..Y.0.M...H..A$(0,Y
).15)": ";A$(X,Y):.QM.1..1,A$(0,Y).15)":
";A$(X,Y)...I..Y.&.J.."----------------
---------------------".[.K..QM.1..1,"---
----------------------------------".P.L.
.ZZ$:.ZZ$."".204.W.M..X...N..153...O.A.1
:B.N:....P..".WHICH RECORD NR. ";A...Q.B
.A:....R..".START REC.NR, END REC.NR. ";
A,B:....S.."..CHANGES.".+.T.."1. ADD REC
ORDS":.".2. CHANGE RECORDS":.". WHICH
?";.@.U..ZZ$:.ZZ$."".213.Z.V.A.E(ZZ$):.A
.1.A.2.213.J.W..A:.A.2.227.Y.X..X.N.1.20
0...Y..".(";X;")."...Z..Y.0.M......A$(0,
Y).15)": ";......A$(X,Y)......A$(X,Y)."*
".Y.Y.1:."..";:.219......A$(X,Y)."STOP".
224......Y,X.....N.X.1.)....".TOTAL NUMB
ER OF RECORDS ";N.2....153.;....351.D...
.".CHANGE WHICH FIELD (0=STOP) ";Y:..Q..
..Y.0.153......Y.0.Y.M.1.."...";:.228...
...A$(0,Y.1).15)": "A$(X,Y.1):.".".17)
;.H....A$(X,Y.1).Q....228......"..SEARCH
":C.0......342......".SEARCH FOR";A$:.".
"A$" SEARCHING...":..'....X.1.N.K....H(A
$(X,Y.1),C(A$)).A$.C.1:.242.R....X.L....
C.0..A$" .NOT FOUND".U....153......".(";
X;")."......A.0.M......A$(0,A);": ";A$(X
,A)......A.......G...."..MENU."......"..
1. INPUT DATA IN A NEW FILE"......"..2.
SEE RECORD CONTENTS".*...."..3. LIST
PER FIELD".M...."..4. CHANGE OR ADD REC
ORDS".L...."..5. SEARCH ON A FIELD"....
.."..6. SORT(ALPHABETIC) PER FIELD"....
.."..7. FIELD CALCULATION".O...."..8.
DELETE RECORDS"......"..9. SAVE FILE"..
...."..H. HELP - LIST OF COMMANDS".....
."..E. STOP".&....153.4....".LIST.".K..
..342:.".LIST ON ";:LR$.I(A$(0,A.1),C(A$
(0,A.1)).3).V....LR$:.......X.1.N......X
;":";A$(X,Y.1).J...ZZ.ZZ.1:.ZZ.20.ZZ.0:.
363:.".LIST ON "LR$:.:.266......X:ZZ.0:.
153......".ORDER."......342.....A.0.....
.X.1.N.....A.A.E(A$(X,Y.1))."....X.7....
:.".TOTAL : ";A.@....153.X...."...SAVE":
Q$.G(34).N....".FILE NAME ";B$......1,DN
,1,B$:."SAVING : ";B$......1,N......1,M.
.....X.0.N......Y.0.M.P...A$.A$(X,Y):.1,
Q$.A$.Q$.Y....Y,X..... 1......153......1
,N:.1,M.. ...X.0.N:.Y.0.M:.1,A$. ..(ST
).64.292.\ !..A$(X,Y)..A$.."..WRITE ERRO
R., PLEASE SAVE AGAIN" :.292.E "..Y,X.V
#.."FILE O.K.".. $. 1:.153.. %..".DELETE
.".A &..".ONE RECORD (1), SEVERAL RECORD
S (2) ";A.N '..A.2.308.. (..A.1.298.. ).
.".":.293.. *..351..!+.A.X:B.X:C.1..!,..
X.A.N.1..!-.B.B.1.$!...Y.0.M.8!/.A$(X,Y)
.A$(B,Y).?!0..Y.F!1..X.P!2.N.N.C.Y!3..15
3.Y!4..".RECORD : START, END";A,B..!5.C.
B.A.1..!6..300..!7.."..SORT."..!8..342..
!9.Y.Y.1.M!:..".FILE IS BEING SORTED"..!
;..323:.J(A$(0,A.1),C(A$(0,A.1)).1,1)."A
".323.."<.C.0.."=..X.1.N.1.4">..E(A$(X,Y
))..E(A$(X.1,Y)).320.="?..331.D"@..X.Q"A
..C.1.316.Z"B..329.B"C.C.0.O"D..X.1.N.1.
."E..A$(X,Y)..A$(X.1,Y).327.."F..331.."G
..X.."H..C.1.323.F"I.."..FILE HAS BEEN S
ORTED".O"J..153.Z"K..B.0.M.."L.B$(B).A$(
X,B).."M..B.."N..B.0.M..#O.A$(X,B).A$(X.
1,B)..#P..B.&#Q..B.0.M.:#R.A$(X.1,B).B$(
B).A#S..B.I#T.C.1.O#U....#V..".THESE ARE
THE FIELDS :.":.Y.0.M:.A$(0,Y):.Y..#W..
".ON WHICH ";A:...#X..A$(0,A.1)..#Y..".C
ORRECT (Y/N) ".Q#Z..A$:.A$."".346..#[..A
$."N"..".";:.342..#\..A$.."Y".346..$].Y.
A..$^...,$_..".WHICH RECORD NR. (0=STOP)
";X.9$`..X.0.153.R$A..X.1.X.N.."..";:.3
51.C$B..".(";X;").".N$C..Y.0.M..$D..A$(0
,Y);": ";A$(X,Y)..$E..Y..$F..".IS THIS T
HE ONE (Y/N) ?".B$G..A$:.A$."".359.R$H..
A$."N".351..$I..A$.."Y".359..$J....%K.."
.. PRESS ANY KEY"..%L..ZZ$:.ZZ$."".364..
%M...9%N..BE.0.20000:.4096.BE,0:..D%O.."
.":....
> CLICK IMAGE PREVIEW FOR FULL MODAL