HYPERBASE
FILE INFORMATION
FILENAME(S): HYPERBASE
FILE TYPE(S): PRG
FILE SIZE: 15.6K
FIRST SEEN: 2025-11-30 21:22:59
APPEARS ON: 2 disk(s)
FILE HASH
4ece8ab1fe2e917d21378d653042c4e09f75296757c695dd2c8faf938dc7c16c
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 51 1 | HYPERBASE | PRG | DuncanTwain | 7 | 7 | DOWNLOAD FILE |
| C64 SPEL 195 1 | HYPERBASE | PRG | DuncanTwain | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0F 08 00 00 9E 32 30 36 35 20 52 45 58 00 |.......2065 REX.|
00000010: 00 00 82 30 4C 60 46 A9 36 85 01 4C BE 45 73 73 |...0L`F.6..L.Ess|
00000020: 73 24 B2 22 13 22 3A 81 54 B2 31 A4 33 39 3A 55 |s$.".":.T.1.39:U|
00000030: 4C 24 B2 55 4C 24 AA 22 A3 22 3A 53 50 24 B2 53 |L$.UL$.".":SP$.S|
00000040: 50 24 AA 22 20 22 00 8D 08 0F 00 4E 4C 24 B2 C7 |P$." ".....NL$..|
00000050: 28 30 29 3A 43 52 24 B2 C7 28 31 33 29 3A 51 4F |(0):CR$..(13):QO|
00000060: 24 B2 C7 28 33 34 29 3A 43 4F 24 B2 51 4F 24 AA |$..(34):CO$.QO$.|
00000070: 43 52 24 AA 51 4F 24 3A 4D 46 B2 31 30 3A 50 4C |CR$.QO$:MF.10:PL|
00000080: B2 36 32 3A 4C 4E B2 30 3A 53 41 B2 30 00 CA 08 |.62:LN.0:SA.0...|
00000090: 14 00 43 44 24 B2 43 44 24 AA 22 11 22 3A 42 53 |..CD$.CD$.".":BS|
000000A0: 24 B2 42 53 24 AA 22 9D 22 3A 82 3A 99 22 93 9C |$.BS$.".":.:."..|
000000B0: 22 C8 28 43 44 24 2C 31 31 29 A6 31 30 29 22 12 |".(CD$,11).10)".|
000000C0: 22 C8 28 53 50 24 2C 32 33 29 00 09 09 19 00 42 |".(SP$,23).....B|
000000D0: 53 24 B2 22 11 22 AA 42 53 24 3A 86 54 45 24 28 |S$.".".BS$:.TE$(|
000000E0: 4D 46 29 2C 56 54 24 28 4D 46 29 2C 4D 46 25 28 |MF),VT$(MF),MF%(|
000000F0: 54 29 2C 43 48 25 28 4D 46 29 2C 5A 25 28 32 35 |T),CH%(MF),Z%(25|
00000100: 35 29 2C 46 4B 24 28 38 29 00 3F 09 1E 00 99 A6 |5),FK$(8).?.....|
00000110: 31 30 29 22 12 20 48 20 59 20 50 20 45 20 52 20 |10)". H Y P E R |
00000120: 42 20 41 20 53 20 45 20 20 36 34 20 22 3A 99 A6 |B A S E 64 ":..|
00000130: 31 30 29 22 12 22 C8 28 53 50 24 2C 32 33 29 00 |10)".".(SP$,23).|
00000140: 87 09 28 00 99 22 11 1E 22 A6 37 29 3B 3A 41 24 |..(.."..".7);:A$|
00000150: B2 22 57 52 49 54 54 45 4E 20 42 59 20 47 2E 52 |."WRITTEN BY G.R|
00000160: 2E 4C 45 45 43 48 20 20 28 43 29 20 31 39 38 34 |.LEECH (C) 1984|
00000170: 22 3A 8D 31 30 31 32 30 3A 44 4C B2 31 30 30 30 |":.10120:DL.1000|
00000180: 3A 8D 31 30 30 31 30 00 C1 09 3C 00 99 22 93 9A |:.10010...<.."..|
00000190: 11 11 22 3A 41 24 B2 22 50 4C 45 41 53 45 20 45 |..":A$."PLEASE E|
000001A0: 4E 54 45 52 20 53 59 53 54 45 4D 20 43 4F 4E 46 |NTER SYSTEM CONF|
000001B0: 49 47 55 52 41 54 49 4F 4E 22 3A 8D 31 30 31 32 |IGURATION":.1012|
000001C0: 30 00 0E 0A 46 00 99 22 11 9F 20 31 5D 20 53 43 |0...F..".. 1] SC|
000001D0: 52 45 45 4E 22 3A 99 22 20 32 5D 20 43 42 4D 20 |REEN":." 2] CBM |
000001E0: 50 52 49 4E 54 45 52 20 44 45 56 49 43 45 20 23 |PRINTER DEVICE #|
000001F0: 34 22 3A 99 22 20 33 5D 20 43 42 4D 20 50 52 49 |4":." 3] CBM PRI|
00000200: 4E 54 45 52 20 44 45 56 49 43 45 20 23 35 00 53 |NTER DEVICE #5.S|
00000210: 0A 50 00 99 22 20 34 5D 20 31 35 34 31 20 44 49 |.P.." 4] 1541 DI|
00000220: 53 4B 20 44 52 49 56 45 20 44 45 56 49 43 45 20 |SK DRIVE DEVICE |
00000230: 23 38 22 3A 99 22 20 35 5D 20 31 35 34 31 20 44 |#8":." 5] 1541 D|
00000240: 49 53 4B 20 44 52 49 56 45 20 44 45 56 49 43 45 |ISK DRIVE DEVICE|
00000250: 20 23 39 00 7D 0A 5A 00 8D 31 30 31 39 30 3A 42 | #9.}.Z..10190:B|
00000260: B2 36 3A 42 24 B2 43 52 24 AA 22 31 32 33 34 35 |.6:B$.CR$."12345|
00000270: 22 3A 4E 43 B2 35 3A 8D 31 30 31 33 30 00 A2 0A |":NC.5:.10130...|
00000280: 64 00 8B 44 4C B2 30 A7 41 B2 32 3A 8D 31 30 31 |d..DL.0.A.2:.101|
00000290: 35 30 3A 41 B2 34 3A 8D 31 30 31 35 30 3A 89 31 |50:A.4:.10150:.1|
000002A0: 31 30 00 DD 0A 69 00 8B 28 43 48 25 28 31 29 AA |10...i..(CH%(1).|
000002B0: 43 48 25 28 32 29 AA 43 48 25 28 33 29 B3 B1 31 |CH%(2).CH%(3)..1|
000002C0: 29 B0 28 43 48 25 28 33 29 AA 43 48 25 28 34 29 |).(CH%(3).CH%(4)|
000002D0: B3 B1 31 29 B0 44 4C B3 B1 32 A7 36 30 00 F3 0A |..1).DL..2.60...|
000002E0: 6E 00 8D 31 30 31 37 30 3A 8B 41 24 B2 22 4E 22 |n..10170:.A$."N"|
000002F0: A7 36 30 00 39 0B 78 00 50 44 B2 43 48 25 28 31 |.60.9.x.PD.CH%(1|
00000300: 29 AC 33 AA 43 48 25 28 32 29 AC 34 AA 43 48 25 |).3.CH%(2).4.CH%|
00000310: 28 33 29 AC 35 3A 44 44 B2 43 48 25 28 34 29 AC |(3).5:DD.CH%(4).|
00000320: 38 AA 43 48 25 28 35 29 AC 39 3A 9F 31 35 2C 44 |8.CH%(5).9:.15,D|
00000330: 44 2C 31 35 2C 22 55 3B 22 00 76 0B 82 00 99 22 |D,15,"U;".v...."|
00000340: 93 11 11 22 3A 41 24 B2 22 50 4C 45 41 53 45 20 |...":A$."PLEASE |
00000350: 45 4E 54 45 52 20 53 45 52 56 49 43 45 20 52 45 |ENTER SERVICE RE|
00000360: 51 55 49 52 45 44 22 3A 8D 31 30 31 32 30 3A 54 |QUIRED":.10120:T|
00000370: 59 24 B2 22 52 22 00 C2 0B 8C 00 99 22 11 9F 20 |Y$."R"......".. |
00000380: 31 5D 20 43 52 45 41 54 45 20 46 49 4C 45 22 3A |1] CREATE FILE":|
00000390: 99 22 20 32 5D 20 45 44 49 54 20 46 49 4C 45 22 |." 2] EDIT FILE"|
000003A0: 3A 99 22 20 33 5D 20 4F 55 50 55 54 20 46 49 4C |:." 3] OUPUT FIL|
000003B0: 45 22 3A 99 22 20 34 5D 20 44 49 52 45 43 54 4F |E":." 4] DIRECTO|
000003C0: 52 59 00 09 0C 96 00 99 22 20 35 5D 20 44 45 4C |RY......" 5] DEL|
000003D0: 45 54 45 20 46 49 4C 45 22 3A 99 22 20 36 5D 20 |ETE FILE":." 6] |
000003E0: 55 4E 44 45 4C 45 54 45 20 46 49 4C 45 22 3A 99 |UNDELETE FILE":.|
000003F0: 22 20 37 5D 20 44 45 46 49 4E 45 20 46 55 4E 43 |" 7] DEFINE FUNC|
00000400: 54 49 4F 4E 20 4B 45 59 53 00 53 0C A0 00 99 22 |TION KEYS.S...."|
00000410: 20 38 5D 20 52 45 4E 41 4D 45 20 46 49 4C 45 22 | 8] RENAME FILE"|
00000420: 3A 99 22 20 39 5D 20 52 45 53 45 54 20 48 49 50 |:." 9] RESET HIP|
00000430: 45 52 42 41 53 45 22 3A 42 B2 36 3A 4E 43 B2 39 |ERBASE":B.6:NC.9|
00000440: 3A 42 24 B2 43 52 24 AA 22 31 32 33 34 35 36 37 |:B$.CR$."1234567|
00000450: 38 39 22 00 76 0C AA 00 8D 31 30 31 39 30 3A 8D |89".v....10190:.|
00000460: 31 30 31 33 30 3A 8B 44 4C B2 30 A7 41 B2 33 3A |10130:.DL.0.A.3:|
00000470: 8D 31 30 31 35 30 00 A9 0C B4 00 91 4F 50 89 32 |.10150......OP.2|
00000480: 31 30 2C 34 31 30 2C 31 36 38 30 2C 33 30 31 30 |10,410,1680,3010|
00000490: 2C 33 32 31 30 2C 33 33 31 30 2C 33 35 31 30 2C |,3210,3310,3510,|
000004A0: 33 36 36 30 2C 34 30 30 30 00 B2 0C BE 00 89 31 |3660,4000......1|
000004B0: 37 30 00 D6 0C C8 00 8F 20 2A 2A 2A 20 43 52 45 |70...... *** CRE|
000004C0: 41 54 45 20 41 20 46 49 4C 45 20 53 45 43 54 49 |ATE A FILE SECTI|
000004D0: 4F 4E 20 2A 2A 2A 00 08 0D D2 00 99 22 93 22 A6 |ON ***......".".|
000004E0: 36 29 22 11 12 20 43 52 45 41 54 45 20 41 20 4E |6)".. CREATE A N|
000004F0: 45 57 20 46 49 4C 45 20 53 45 43 54 49 4F 4E 20 |EW FILE SECTION |
00000500: 22 3A 8D 31 30 32 30 30 00 1F 0D DC 00 8B 45 52 |":.10200......ER|
00000510: B2 30 A7 54 59 24 B2 22 57 22 3A 89 32 35 30 00 |.0.TY$."W":.250.|
00000520: 36 0D E6 00 8D 31 30 32 32 30 3A 8B 41 24 B2 22 |6....10220:.A$."|
00000530: 59 22 A7 32 31 30 00 46 0D F0 00 8D 31 30 32 36 |Y".210.F....1026|
00000540: 30 3A 89 31 33 30 00 5B 0D FA 00 8D 31 30 32 38 |0:.130.[....1028|
00000550: 30 3A 8B 45 52 B2 30 A7 32 38 30 00 6E 0D 04 01 |0:.ER.0.280.n...|
00000560: A0 32 3A 8B 41 24 B2 22 59 22 A7 32 35 30 00 77 |.2:.A$."Y".250.w|
00000570: 0D 0E 01 89 32 34 30 00 90 0D 18 01 8D 31 30 33 |....240......103|
00000580: 31 30 3A 8D 31 30 33 34 30 3A 50 57 24 B2 41 24 |10:.10340:PW$.A$|
00000590: 00 C0 0D 22 01 99 22 11 45 4E 54 45 52 20 4E 55 |..."..".ENTER NU|
000005A0: 4D 42 45 52 20 4F 46 20 46 49 45 4C 44 53 22 3B |MBER OF FIELDS";|
000005B0: 3A 8D 31 30 30 32 30 3A 4E 46 B2 C5 28 53 24 29 |:.10020:NF..(S$)|
000005C0: 00 EE 0D 2C 01 8B 4E 46 B1 4D 46 20 B0 4E 46 B2 |...,..NF.MF .NF.|
000005D0: 30 A7 99 22 12 20 4D 41 58 49 4D 55 4D 20 46 49 |0..". MAXIMUM FI|
000005E0: 45 4C 44 53 20 3D 22 4D 46 3A 89 32 39 30 00 2B |ELDS ="MF:.290.+|
000005F0: 0E 36 01 99 3A 81 54 B2 31 A4 4E 46 3A 99 22 20 |.6..:.T.1.NF:." |
00000600: 45 4E 54 45 52 20 4E 41 4D 45 20 4F 46 20 46 49 |ENTER NAME OF FI|
00000610: 45 4C 44 20 23 22 54 3B 3A 8D 31 30 30 32 30 3A |ELD #"T;:.10020:|
00000620: 44 46 24 28 54 29 B2 53 24 3A 82 00 62 0E 4A 01 |DF$(T).S$:..b.J.|
00000630: 99 22 11 12 20 41 52 45 20 54 48 45 53 45 20 43 |.".. ARE THESE C|
00000640: 4F 52 52 45 43 54 20 28 59 2F 4E 29 20 22 3B 3A |ORRECT (Y/N) ";:|
00000650: 8D 31 30 31 38 30 3A 8B 41 24 B2 22 4E 22 A7 32 |.10180:.A$."N".2|
00000660: 39 30 00 8F 0E 54 01 8D 31 30 33 32 30 3A 81 54 |90...T..10320:.T|
00000670: B2 31 A4 4E 46 3A 98 32 2C 44 46 24 28 54 29 43 |.1.NF:.2,DF$(T)C|
00000680: 4F 24 3B 3A 82 3A 4E 52 B2 31 3A 4C 46 B2 32 00 |O$;:.:NR.1:LF.2.|
00000690: D5 0E 5E 01 99 22 11 1C 20 53 54 41 52 54 20 45 |..^..".. START E|
000006A0: 4E 54 45 52 49 4E 47 20 52 45 43 4F 52 44 53 22 |NTERING RECORDS"|
000006B0: 3A 99 22 11 9A 45 4E 54 45 52 20 27 58 58 58 27 |:."..ENTER 'XXX'|
000006C0: 20 49 4E 20 31 53 54 20 46 49 45 4C 44 20 54 4F | IN 1ST FIELD TO|
000006D0: 20 45 4E 44 22 00 EE 0E 68 01 8D 31 30 33 39 30 | END"...h..10390|
000006E0: 3A 8B 53 24 B2 22 58 58 58 22 A7 32 34 30 00 F7 |:.S$."XXX".240..|
000006F0: 0E 72 01 89 33 36 30 00 1C 0F 90 01 8F 20 2A 20 |.r..360...... * |
00000700: 45 44 49 54 20 45 58 49 53 54 49 4E 47 20 46 49 |EDIT EXISTING FI|
00000710: 4C 45 20 53 45 43 54 49 4F 4E 20 2A 00 4F 0F 9A |LE SECTION *.O..|
00000720: 01 99 22 93 22 A6 36 29 22 11 12 20 45 44 49 54 |..".".6)".. EDIT|
00000730: 20 45 58 49 53 54 49 4E 47 20 46 49 4C 45 20 53 | EXISTING FILE S|
00000740: 45 43 54 49 4F 4E 20 22 3A 8D 31 30 32 30 30 00 |ECTION ":.10200.|
00000750: 66 0F A4 01 8B 45 52 B2 30 A7 54 59 24 B2 22 52 |f....ER.0.TY$."R|
00000760: 22 3A 89 34 35 30 00 7D 0F AE 01 8D 31 30 32 32 |":.450.}....1022|
00000770: 30 3A 8B 41 24 B2 22 59 22 A7 34 31 30 00 8D 0F |0:.A$."Y".410...|
00000780: B8 01 8D 31 30 32 36 30 3A 89 31 33 30 00 A2 0F |...10260:.130...|
00000790: C2 01 8D 31 30 32 38 30 3A 8B 45 52 B2 30 A7 34 |...10280:.ER.0.4|
000007A0: 38 30 00 B5 0F CC 01 A0 32 3A 8B 41 24 B2 22 59 |80......2:.A$."Y|
000007B0: 22 A7 34 35 30 00 BE 0F D6 01 89 34 34 30 00 DC |".450......440..|
000007C0: 0F E0 01 8D 31 30 33 31 30 3A 8D 31 30 33 33 30 |....10310:.10330|
000007D0: 3A 8B 50 57 24 B2 22 22 A7 35 30 30 00 12 10 EA |:.PW$."".500....|
000007E0: 01 8D 31 30 33 34 30 3A 8B 41 24 B3 B1 50 57 24 |..10340:.A$..PW$|
000007F0: A7 99 22 11 1C 20 12 20 49 4C 4C 45 47 41 4C 20 |..".. . ILLEGAL |
00000800: 50 41 53 53 57 4F 52 44 20 22 3A A0 32 3A 89 32 |PASSWORD ":.2:.2|
00000810: 34 30 00 56 10 F4 01 99 22 11 20 44 41 54 45 20 |40.V....". DATE |
00000820: 43 52 45 41 54 45 44 20 22 44 41 24 3A 99 22 20 |CREATED "DA$:." |
00000830: 4C 41 53 54 20 55 50 44 41 54 45 20 20 22 55 44 |LAST UPDATE "UD|
00000840: 24 3A 99 22 20 4E 4F 2E 20 4F 46 20 46 49 45 4C |$:." NO. OF FIEL|
00000850: 44 53 3D 22 4E 46 00 90 10 FE 01 99 22 11 20 46 |DS="NF......". F|
00000860: 49 45 4C 44 53 20 41 52 45 3A 2D 11 22 3A 81 54 |IELDS ARE:-.":.T|
00000870: B2 31 A4 4E 46 3A 84 32 2C 41 24 3A 99 54 22 5D |.1.NF:.2,A$:.T"]|
00000880: 20 22 41 24 3A 44 46 24 28 54 29 B2 41 24 3A 82 | "A$:DF$(T).A$:.|
00000890: 00 CE 10 08 02 8D 31 30 32 36 30 3A 99 22 93 11 |......10260:."..|
000008A0: 11 22 3A 41 24 B2 22 50 4C 45 41 53 45 20 45 4E |.":A$."PLEASE EN|
000008B0: 54 45 52 20 45 44 49 54 20 54 59 50 45 20 52 45 |TER EDIT TYPE RE|
000008C0: 51 55 49 52 45 44 22 3A 8D 31 30 31 32 30 00 1C |QUIRED":.10120..|
000008D0: 11 12 02 99 22 11 9F 20 31 5D 20 53 45 51 55 45 |....".. 1] SEQUE|
000008E0: 4E 54 49 41 4C 20 45 44 49 54 22 3A 99 22 20 32 |NTIAL EDIT":." 2|
000008F0: 5D 20 53 54 41 52 54 20 41 54 20 52 45 43 4F 52 |] START AT RECOR|
00000900: 44 20 4E 55 4D 42 45 52 22 3A 99 22 20 33 5D 20 |D NUMBER":." 3] |
00000910: 44 45 4C 45 54 45 20 46 49 45 4C 44 00 57 11 1C |DELETE FIELD.W..|
00000920: 02 99 22 20 34 5D 20 41 44 44 20 46 49 45 4C 44 |.." 4] ADD FIELD|
00000930: 22 3A 99 22 20 35 5D 20 41 44 44 20 52 45 43 4F |":." 5] ADD RECO|
00000940: 52 44 22 3A 99 22 20 36 5D 20 44 45 4C 45 54 45 |RD":." 6] DELETE|
00000950: 20 52 45 43 4F 52 44 00 87 11 26 02 99 22 20 37 | RECORD...&.." 7|
00000960: 5D 20 43 48 41 4E 47 45 20 50 41 53 53 57 4F 52 |] CHANGE PASSWOR|
00000970: 44 22 3A 99 22 20 38 5D 20 52 45 54 55 52 4E 20 |D":." 8] RETURN |
00000980: 54 4F 20 4D 45 4E 55 00 B4 11 2B 02 42 B2 36 3A |TO MENU...+.B.6:|
00000990: 4E 43 B2 39 3A 42 24 B2 43 52 24 AA 22 31 32 33 |NC.9:B$.CR$."123|
000009A0: 34 35 36 37 38 22 3A 8D 31 30 31 39 30 3A 8D 31 |45678":.10190:.1|
000009B0: 30 31 33 30 00 C9 11 30 02 8B 44 4C B2 30 A7 41 |0130...0..DL.0.A|
000009C0: B2 31 3A 8D 31 30 31 35 30 00 E1 11 3A 02 8B 4F |.1:.10150...:..O|
000009D0: 50 B2 38 A7 99 22 11 11 22 3A A0 32 3A 89 32 34 |P.8.."..":.2:.24|
000009E0: 30 00 14 12 3F 02 4C 46 B2 33 3A 9F 33 2C 38 2C |0...?.LF.3:.3,8,|
000009F0: 33 2C 22 40 3A 54 45 4D 50 20 44 41 54 41 2C 53 |3,"@:TEMP DATA,S|
00000A00: 2C 57 22 3A 8D 31 30 32 31 30 3A 8B 45 52 B2 30 |,W":.10210:.ER.0|
00000A10: A7 35 38 30 00 36 12 40 02 8D 31 30 32 32 30 3A |.580.6.@..10220:|
00000A20: 8B 41 24 B2 22 59 22 A7 8D 31 30 32 36 30 3A A0 |.A$."Y"..10260:.|
00000A30: 33 3A 89 35 37 35 00 42 12 41 02 A0 33 3A 89 32 |3:.575.B.A..3:.2|
00000A40: 34 30 00 69 12 44 02 91 4F 50 89 36 30 30 2C 37 |40.i.D..OP.600,7|
00000A50: 36 30 2C 38 36 30 2C 39 35 30 2C 31 30 38 30 2C |60,860,950,1080,|
00000A60: 31 34 31 30 2C 31 36 31 30 00 72 12 4E 02 89 35 |1410,1610.r.N..5|
00000A70: 35 35 00 AA 12 58 02 99 22 93 11 20 12 20 45 44 |55...X..".. . ED|
00000A80: 49 54 20 46 49 4C 45 20 53 45 51 55 45 4E 54 49 |IT FILE SEQUENTI|
00000A90: 41 4C 4C 59 20 11 22 3A 8D 31 30 33 36 30 3A 8D |ALLY .":.10360:.|
00000AA0: 31 30 33 37 30 3A 4E 52 B2 31 00 EC 12 62 02 99 |10370:NR.1...b..|
00000AB0: 22 20 55 53 45 20 1E 5B 46 31 5D 20 54 4F 20 53 |" USE .[F1] TO S|
00000AC0: 45 45 20 4E 45 58 54 20 46 49 45 4C 44 22 3A 99 |EE NEXT FIELD":.|
00000AD0: 22 20 05 73 5B 46 33 5D 20 54 4F 20 43 48 41 4E |" .s[F3] TO CHAN|
00000AE0: 47 45 20 41 20 46 49 45 4C 44 00 2B 13 6C 02 99 |GE A FIELD.+.l..|
00000AF0: A6 35 29 22 5B 46 35 5D 20 54 4F 20 53 45 45 20 |.5)"[F5] TO SEE |
00000B00: 4E 45 58 54 20 52 45 43 4F 52 44 22 3A 99 A6 35 |NEXT RECORD":..5|
00000B10: 29 22 5B 46 37 5D 20 54 4F 20 46 49 4E 49 53 48 |)"[F7] TO FINISH|
00000B20: 20 45 44 49 54 49 4E 47 9A 00 4D 13 76 02 84 32 | EDITING..M.v..2|
00000B30: 2C 54 24 3A 8B 54 24 B2 22 58 58 58 22 A7 98 33 |,T$:.T$."XXX"..3|
00000B40: 2C 54 24 51 4F 24 3A 89 37 34 30 00 7B 13 80 02 |,T$QO$:.740.{...|
00000B50: 99 22 11 9A 12 20 52 45 43 4F 52 44 20 23 22 4E |."... RECORD #"N|
00000B60: 52 22 11 1E 22 3A 81 54 B2 31 A4 4E 46 3A 8B 54 |R"..":.T.1.NF:.T|
00000B70: B3 B1 31 A7 84 32 2C 54 24 00 9A 13 94 02 54 45 |..1..2,T$.....TE|
00000B80: 24 28 54 29 B2 54 24 3A 99 44 46 24 28 54 29 22 |$(T).T$:.DF$(T)"|
00000B90: 20 2D 20 22 54 24 3A 82 00 CB 13 9E 02 99 22 11 | - "T$:.......".|
00000BA0: 9F 12 20 45 44 49 54 20 46 49 45 4C 44 20 28 59 |.. EDIT FIELD (Y|
00000BB0: 2F 4E 29 20 22 3B 3A 8D 31 30 31 38 30 3A 8B 41 |/N) ";:.10180:.A|
00000BC0: 24 B2 22 4E 22 A7 37 35 30 00 ED 13 A8 02 81 54 |$."N".750......T|
00000BD0: B2 31 A4 4E 46 3A 99 22 9A 22 44 46 24 28 54 29 |.1.NF:."."DF$(T)|
00000BE0: 22 20 2D 20 22 54 45 24 28 54 29 00 00 14 B2 02 |" - "TE$(T).....|
00000BF0: A1 41 24 3A 8B 41 24 B2 22 22 A7 36 39 30 00 13 |.A$:.A$."".690..|
00000C00: 14 BC 02 8B 41 24 B2 22 85 22 A7 82 3A 89 37 35 |....A$."."..:.75|
00000C10: 30 00 4E 14 C6 02 8B 41 24 B2 22 86 22 A7 99 22 |0.N....A$.".".."|
00000C20: 45 4E 54 45 52 20 12 4E 45 57 92 20 22 44 46 24 |ENTER .NEW. "DF$|
00000C30: 28 54 29 3B 3A 8D 31 30 30 32 30 3A 54 45 24 28 |(T);:.10020:TE$(|
00000C40: 54 29 B2 53 24 3A 82 3A 89 37 35 30 00 5E 14 CB |T).S$:.:.750.^..|
00000C50: 02 8B 41 24 B2 22 87 22 A7 37 35 30 00 6F 14 D0 |..A$.".".750.o..|
00000C60: 02 8B 41 24 B3 B1 22 88 22 A7 36 39 30 00 83 14 |..A$..".".690...|
00000C70: D5 02 99 22 11 12 20 46 49 4E 49 53 48 45 44 20 |...".. FINISHED |
00000C80: 22 00 A6 14 DA 02 84 32 2C 41 24 3A 98 33 2C 41 |"......2,A$:.3,A|
00000C90: 24 43 4F 24 3B 3A 8B 41 24 B3 B1 22 58 58 58 22 |$CO$;:.A$.."XXX"|
00000CA0: A7 37 33 30 00 B5 14 E4 02 A0 33 3A A0 32 3A 89 |.730......3:.2:.|
00000CB0: 38 32 30 00 DE 14 EE 02 4E 52 B2 4E 52 AA 31 3A |820.....NR.NR.1:|
00000CC0: 81 54 B2 31 A4 4E 46 3A 98 33 2C 54 45 24 28 54 |.T.1.NF:.3,TE$(T|
00000CD0: 29 43 4F 24 3B 3A 82 3A 89 36 33 30 00 15 15 F8 |)CO$;:.:.630....|
00000CE0: 02 99 22 93 11 9A 20 12 20 45 44 49 54 20 46 49 |.."... . EDIT FI|
00000CF0: 4C 45 20 42 59 20 46 49 45 4C 44 20 4E 55 4D 42 |LE BY FIELD NUMB|
00000D00: 45 52 20 11 22 3A 8D 31 30 33 36 30 3A 8D 31 30 |ER .":.10360:.10|
00000D10: 33 37 30 00 4F 15 FD 02 99 22 11 20 49 4E 50 55 |370.O....". INPU|
00000D20: 54 20 44 45 53 49 52 45 44 20 52 45 43 4F 52 44 |T DESIRED RECORD|
00000D30: 20 4E 55 4D 42 45 52 22 3B 3A 8D 31 30 30 32 30 | NUMBER";:.10020|
00000D40: 3A 4E 52 B2 30 3A 41 B2 C5 28 53 24 29 00 65 15 |:NR.0:A..(S$).e.|
00000D50: 02 03 4E 52 B2 4E 52 AA 31 3A 8B 41 B2 4E 52 A7 |..NR.NR.1:.A.NR.|
00000D60: 36 31 30 00 87 15 0C 03 84 32 2C 54 24 3A 8B 54 |610......2,T$:.T|
00000D70: 24 B2 22 58 58 58 22 A7 98 33 2C 54 24 51 4F 24 |$."XXX"..3,T$QO$|
00000D80: 3A 89 38 31 30 00 9F 15 16 03 81 54 B2 31 A4 4E |:.810......T.1.N|
00000D90: 46 3A 8B 54 B3 B1 31 A7 84 32 2C 54 24 00 B4 15 |F:.T..1..2,T$...|
00000DA0: 20 03 98 33 2C 54 24 43 4F 24 3B 3A 82 3A 89 37 | ..3,T$CO$;:.:.7|
00000DB0: 37 30 00 F7 15 2A 03 99 22 11 20 4E 55 4D 42 45 |70...*..". NUMBE|
00000DC0: 52 20 4E 4F 54 20 46 4F 55 4E 44 22 3A 99 22 11 |R NOT FOUND":.".|
00000DD0: 20 12 4D 41 58 49 4D 55 4D 20 52 45 43 4F 52 44 | .MAXIMUM RECORD|
00000DE0: 20 4E 55 4D 42 45 52 20 49 53 22 4E 52 AB 31 3A | NUMBER IS"NR.1:|
00000DF0: 89 31 32 38 30 00 1F 16 34 03 98 31 35 2C 22 53 |.1280...4..15,"S|
00000E00: 3A 22 4E 41 24 3A 98 31 35 2C 22 52 3A 22 4E 41 |:"NA$:.15,"R:"NA|
00000E10: 24 22 3D 54 45 4D 50 20 44 41 54 41 22 00 45 16 |$"=TEMP DATA".E.|
00000E20: 3E 03 9F 32 2C 44 44 2C 32 2C 4E 41 24 AA 22 2C |>..2,DD,2,NA$.",|
00000E30: 53 2C 52 22 3A 8D 31 30 32 31 30 3A 8B 45 52 A7 |S,R":.10210:.ER.|
00000E40: 38 34 30 00 65 16 43 03 8D 31 30 33 33 30 3A 81 |840.e.C..10330:.|
00000E50: 54 B2 31 A4 4E 46 3A 84 32 2C 53 24 3A 82 3A 89 |T.1.NF:.2,S$:.:.|
00000E60: 35 32 30 00 7F 16 48 03 A0 32 3A 8D 31 30 32 32 |520...H..2:.1022|
00000E70: 30 3A 8B 41 24 B2 22 59 22 A7 38 33 30 00 88 16 |0:.A$."Y".830...|
00000E80: 52 03 89 32 34 30 00 BE 16 5C 03 99 22 93 11 9A |R..240...\.."...|
00000E90: 20 12 20 44 45 4C 45 54 45 20 41 20 46 49 45 4C | . DELETE A FIEL|
00000EA0: 44 20 11 1C 22 3A 81 54 B2 31 A4 4E 46 3A 99 54 |D ..":.T.1.NF:.T|
00000EB0: 22 5D 20 22 44 46 24 28 54 29 3A 82 00 F6 16 66 |"] "DF$(T):....f|
00000EC0: 03 99 22 11 45 4E 54 45 52 20 4E 55 4D 42 45 52 |..".ENTER NUMBER|
00000ED0: 20 4F 46 20 46 49 45 4C 44 20 54 4F 20 44 45 4C | OF FIELD TO DEL|
00000EE0: 45 54 45 22 3B 3A 8D 31 30 30 32 30 3A 41 B2 C5 |ETE";:.10020:A..|
00000EF0: 28 53 24 29 00 18 17 70 03 8B 41 B3 31 B0 41 B1 |(S$)...p..A.1.A.|
00000F00: 4E 46 A7 99 22 91 22 53 50 24 3A 99 22 91 91 22 |NF.."."SP$:.".."|
00000F10: 3B 3A 89 38 37 30 00 48 17 7A 03 8D 31 30 33 38 |;:.870.H.z..1038|
00000F20: 30 3A 8B 41 24 B2 22 4E 22 A7 A0 33 3A A0 32 3A |0:.A$."N"..3:.2:|
00000F30: 98 31 35 2C 22 53 3A 54 45 4D 50 20 44 41 54 41 |.15,"S:TEMP DATA|
00000F40: 22 3A 89 38 33 30 00 85 17 84 03 4E 46 B2 4E 46 |":.830.....NF.NF|
00000F50: AB 31 3A 81 54 B2 41 A4 4E 46 3A 44 46 24 28 54 |.1:.T.A.NF:DF$(T|
00000F60: 29 B2 44 46 24 28 54 AA 31 29 3A 82 3A 99 22 9F |).DF$(T.1):.:.".|
00000F70: 11 12 20 44 45 4C 45 54 49 4E 47 20 46 49 45 4C |.. DELETING FIEL|
00000F80: 44 20 22 00 97 17 8E 03 8D 31 30 33 36 30 3A 8D |D "......10360:.|
00000F90: 31 30 33 37 30 00 C9 17 98 03 81 54 B2 31 A4 4E |10370......T.1.N|
00000FA0: 46 AA 31 3A 84 32 2C 41 24 3A 8B 41 24 B2 22 58 |F.1:.2,A$:.A$."X|
00000FB0: 58 58 22 A7 98 33 2C 41 24 51 4F 24 3A A0 33 3A |XX"..3,A$QO$:.3:|
00000FC0: A0 32 3A 89 38 32 30 00 DD 17 A2 03 8B 54 B3 B1 |.2:.820......T..|
00000FD0: 41 A7 98 33 2C 41 24 43 4F 24 3B 00 E8 17 AC 03 |A..3,A$CO$;.....|
00000FE0: 82 3A 89 39 32 30 00 27 18 B6 03 99 22 93 11 9A |.:.920.'...."...|
00000FF0: 20 12 20 45 4E 54 45 52 20 4E 45 57 20 46 49 45 | . ENTER NEW FIE|
00001000: 4C 44 20 53 45 43 54 49 4F 4E 20 11 1C 22 3A 81 |LD SECTION ..":.|
00001010: 54 B2 30 A4 4E 46 3A 99 54 22 5D 20 22 44 46 24 |T.0.NF:.T"] "DF$|
00001020: 28 54 29 3A 82 00 6F 18 C0 03 99 22 11 9A 20 41 |(T):..o....".. A|
00001030: 46 54 45 52 20 57 48 41 54 20 4E 55 4D 42 45 52 |FTER WHAT NUMBER|
00001040: 20 46 49 45 4C 44 20 44 4F 45 53 20 54 48 45 20 | FIELD DOES THE |
00001050: 4E 45 57 20 04 73 46 49 45 4C 44 20 4F 43 43 55 |NEW .sFIELD OCCU|
00001060: 52 20 3F 22 3B 3A 8D 31 30 30 32 30 00 AD 18 CA |R ?";:.10020....|
00001070: 03 53 B2 C5 28 53 24 29 3A 8B 53 B3 30 B0 53 B1 |.S..(S$):.S.0.S.|
00001080: 4D 46 AB 31 A7 99 22 11 12 1C 20 4D 41 58 49 4D |MF.1.."... MAXIM|
00001090: 55 4D 20 4E 4F 2E 20 4F 46 20 46 49 45 4C 44 53 |UM NO. OF FIELDS|
000010A0: 20 3D 22 4D 46 3A 89 39 36 30 00 D7 18 D4 03 99 | ="MF:.960......|
000010B0: 22 11 1E 20 45 4E 54 45 52 20 4E 41 4D 45 20 4F |".. ENTER NAME O|
000010C0: 46 20 4E 45 57 20 46 49 45 4C 44 22 3B 3A 8D 31 |F NEW FIELD";:.1|
000010D0: 30 30 32 30 00 10 19 DE 03 81 54 B2 4E 46 AA 31 |0020......T.NF.1|
000010E0: A4 53 AA 31 A9 AB 31 3A 44 46 24 28 54 29 B2 44 |.S.1..1:DF$(T).D|
000010F0: 46 24 28 54 AB 31 29 3A 82 3A 44 46 24 28 53 AA |F$(T.1):.:DF$(S.|
00001100: 31 29 B2 53 24 3A 4E 46 B2 4E 46 AA 31 00 27 19 |1).S$:NF.NF.1.'.|
00001110: E8 03 8D 31 30 33 36 30 3A 8D 31 30 33 37 30 3A |...10360:.10370:|
00001120: 4E 52 B2 31 00 4F 19 F2 03 84 32 2C 54 24 3A 8B |NR.1.O....2,T$:.|
00001130: 54 24 B2 22 58 58 58 22 A7 98 33 2C 54 24 51 4F |T$."XXX"..3,T$QO|
00001140: 24 3A A0 33 3A A0 32 3A 89 38 32 30 00 68 19 FC |$:.3:.2:.820.h..|
00001150: 03 99 22 11 12 9A 20 52 45 43 4F 52 44 20 23 22 |.."... RECORD #"|
00001160: 4E 52 22 11 22 00 87 19 01 04 44 4C B2 30 3A 81 |NR".".....DL.0:.|
00001170: 54 B2 31 A4 4E 46 AB 31 3A 8B 54 B3 B1 31 A7 84 |T.1.NF.1:.T..1..|
00001180: 32 2C 54 24 00 BF 19 03 04 54 45 24 28 54 29 B2 |2,T$.....TE$(T).|
00001190: 54 24 3A 8B 54 B2 53 AA 31 A7 99 44 46 24 28 53 |T$:.T.S.1..DF$(S|
000011A0: AA 31 29 22 20 2D 20 1C 12 20 4E 45 57 20 46 49 |.1)" - .. NEW FI|
000011B0: 45 4C 44 20 92 9A 22 3A 44 4C B2 31 00 D7 19 04 |ELD ..":DL.1....|
000011C0: 04 99 44 46 24 28 54 AA 44 4C 29 22 20 2D 20 22 |..DF$(T.DL)" - "|
000011D0: 54 24 3A 82 00 00 1A 05 04 8B 54 AB 31 B2 53 A7 |T$:.......T.1.S.|
000011E0: 99 44 46 24 28 53 AA 31 29 22 20 2D 20 1C 12 20 |.DF$(S.1)" - .. |
000011F0: 4E 45 57 20 46 49 45 4C 44 20 92 9A 22 00 20 1A |NEW FIELD ..". .|
00001200: 06 04 99 22 11 20 49 4E 50 55 54 20 22 44 46 24 |...". INPUT "DF$|
00001210: 28 53 AA 31 29 3B 3A 8D 31 30 30 32 30 00 51 1A |(S.1);:.10020.Q.|
00001220: 10 04 81 54 B2 4E 46 AA 31 A4 53 AA 31 A9 AB 31 |...T.NF.1.S.1..1|
00001230: 3A 54 45 24 28 54 29 B2 54 45 24 28 54 AB 31 29 |:TE$(T).TE$(T.1)|
00001240: 3A 82 3A 54 45 24 28 53 AA 31 29 B2 53 24 00 7B |:.:TE$(S.1).S$.{|
00001250: 1A 15 04 81 54 B2 31 A4 4E 46 3A 98 33 2C 54 45 |....T.1.NF:.3,TE|
00001260: 24 28 54 29 43 4F 24 3B 3A 82 3A 4E 52 B2 4E 52 |$(T)CO$;:.:NR.NR|
00001270: AA 31 3A 89 31 30 31 30 00 A3 1A 38 04 99 22 93 |.1:.1010...8..".|
00001280: 11 9A 20 12 20 45 4E 54 45 52 20 4E 45 57 20 52 |.. . ENTER NEW R|
00001290: 45 43 4F 52 44 20 53 45 43 54 49 4F 4E 20 11 22 |ECORD SECTION ."|
000012A0: 00 DD 1A 42 04 99 22 11 57 48 45 52 45 20 49 53 |...B..".WHERE IS|
000012B0: 20 4E 45 57 20 52 45 43 4F 52 44 20 3F 1C 22 3A | NEW RECORD ?.":|
000012C0: 99 22 11 20 31 5D 20 42 45 46 4F 52 45 20 46 49 |.". 1] BEFORE FI|
000012D0: 52 53 54 20 52 45 43 4F 52 44 00 14 1B 4C 04 99 |RST RECORD...L..|
000012E0: 22 20 32 5D 20 41 46 54 45 52 20 4C 41 53 54 20 |" 2] AFTER LAST |
000012F0: 52 45 43 4F 52 44 22 3A 99 22 20 33 5D 20 41 54 |RECORD":." 3] AT|
00001300: 20 53 50 45 43 49 46 49 45 44 20 4E 55 4D 42 45 | SPECIFIED NUMBE|
00001310: 52 00 3F 1B 51 04 99 22 20 34 5D 20 4E 4F 54 20 |R.?.Q.." 4] NOT |
00001320: 53 55 52 45 20 28 47 4F 20 54 48 52 4F 55 47 48 |SURE (GO THROUGH|
00001330: 20 57 48 4F 4C 45 20 46 49 4C 45 29 00 68 1B 56 | WHOLE FILE).h.V|
00001340: 04 8D 31 30 31 39 30 3A 42 B2 36 3A 4E 43 B2 34 |..10190:B.6:NC.4|
00001350: 3A 42 24 B2 43 52 24 AA 22 31 32 33 34 22 3A 8D |:B$.CR$."1234":.|
00001360: 31 30 31 33 30 00 7D 1B 60 04 8B 44 4C B2 30 A7 |10130.}.`..DL.0.|
00001370: 41 B2 32 3A 8D 31 30 31 35 30 00 94 1B 6A 04 8D |A.2:.10150...j..|
00001380: 31 30 33 36 30 3A 8D 31 30 33 37 30 3A 4E 52 B2 |10360:.10370:NR.|
00001390: 31 00 B8 1B 74 04 99 22 11 04 73 22 3A 91 4F 50 |1...t.."..s":.OP|
000013A0: 89 31 31 35 30 2C 31 31 39 30 2C 31 33 37 30 2C |.1150,1190,1370,|
000013B0: 31 32 31 30 00 C2 1B 79 04 89 31 31 31 30 00 F9 |1210...y..1110..|
000013C0: 1B 7E 04 8D 31 30 33 39 30 3A 99 22 1E 11 12 20 |.~..10390:."... |
000013D0: 49 4E 53 45 52 54 20 41 4E 4F 54 48 45 52 20 52 |INSERT ANOTHER R|
000013E0: 45 43 4F 52 44 20 28 59 2F 4E 29 20 22 3B 3A 8D |ECORD (Y/N) ";:.|
000013F0: 31 30 31 38 30 00 0A 1C 92 04 8B 41 24 B2 22 4E |10180......A$."N|
00001400: 22 A7 31 33 35 30 00 14 1C 9C 04 89 31 31 35 30 |".1350......1150|
00001410: 00 4B 1C A6 04 81 54 B2 31 A4 4E 46 3A 84 32 2C |.K....T.1.NF:.2,|
00001420: 41 24 3A 8B 41 24 B3 B1 22 58 58 58 22 A7 98 33 |A$:.A$.."XXX"..3|
00001430: 2C 41 24 43 4F 24 3B 3A 82 3A 4E 52 B2 4E 52 AA |,A$CO$;:.:NR.NR.|
00001440: 31 3A 89 31 31 39 30 00 56 1C B0 04 54 B2 4E 46 |1:.1190.V...T.NF|
00001450: 3A 82 00 70 1C B2 04 8D 31 30 33 39 30 3A 8B 53 |:..p....10390:.S|
00001460: 24 B2 22 58 58 58 22 A7 31 32 38 30 00 A0 1C B4 |$."XXX".1280....|
00001470: 04 99 22 1E 11 12 20 49 4E 53 45 52 54 20 41 4E |.."... INSERT AN|
00001480: 4F 54 48 45 52 20 52 45 43 4F 52 44 20 28 59 2F |OTHER RECORD (Y/|
00001490: 4E 29 20 22 3B 3A 8D 31 30 31 38 30 00 BE 1C B6 |N) ";:.10180....|
000014A0: 04 8B 41 24 B2 22 4E 22 A7 98 33 2C 22 58 58 58 |..A$."N"..3,"XXX|
000014B0: 22 51 4F 24 3A 89 31 32 38 30 00 C8 1C B8 04 89 |"QO$:.1280......|
000014C0: 31 32 30 32 00 EB 1C BA 04 84 32 2C 54 24 3A 8B |1202......2,T$:.|
000014D0: 54 24 B2 22 58 58 58 22 A7 98 33 2C 54 24 51 4F |T$."XXX"..3,T$QO|
000014E0: 24 3A 89 31 32 38 30 00 19 1D C4 04 99 22 11 9A |$:.1280......"..|
000014F0: 12 20 52 45 43 4F 52 44 20 23 22 4E 52 22 11 1E |. RECORD #"NR"..|
00001500: 22 3A 81 54 B2 31 A4 4E 46 3A 8B 54 B3 B1 31 A7 |":.T.1.NF:.T..1.|
00001510: 84 32 2C 54 24 00 38 1D CE 04 54 45 24 28 54 29 |.2,T$.8...TE$(T)|
00001520: B2 54 24 3A 99 44 46 24 28 54 29 22 20 2D 20 22 |.T$:.DF$(T)" - "|
00001530: 54 24 3A 82 00 7E 1D D8 04 99 22 11 1C 1D 49 4E |T$:..~...."...IN|
00001540: 53 45 52 54 20 52 45 43 4F 52 44 20 42 45 46 4F |SERT RECORD BEFO|
00001550: 52 45 2C 41 46 54 45 52 2C 4E 4F 20 28 42 2F 41 |RE,AFTER,NO (B/A|
00001560: 2F 4E 29 20 22 3B 3A 42 24 B2 22 42 41 4E 22 3A |/N) ";:B$."BAN":|
00001570: 8D 31 30 30 39 30 3A 99 41 24 00 B0 1D E2 04 8B |.10090:.A$......|
00001580: 41 24 B2 22 4E 22 A7 4E 52 B2 4E 52 AA 31 3A 81 |A$."N".NR.NR.1:.|
00001590: 54 B2 31 A4 4E 46 3A 98 33 2C 54 45 24 28 54 29 |T.1.NF:.3,TE$(T)|
000015A0: 43 4F 24 3B 3A 82 3A 89 31 33 34 30 00 C2 1D EC |CO$;:.:.1340....|
000015B0: 04 8B 41 24 B3 B1 22 41 22 A7 31 32 39 30 00 F5 |..A$.."A".1290..|
000015C0: 1D F6 04 81 54 B2 31 A4 4E 46 3A 98 33 2C 54 45 |....T.1.NF:.3,TE|
000015D0: 24 28 54 29 43 4F 24 3B 3A 82 3A 8D 31 30 33 39 |$(T)CO$;:.:.1039|
000015E0: 30 3A 8B 53 24 B3 B1 22 58 58 58 22 A7 31 33 30 |0:.S$.."XXX".130|
000015F0: 30 00 04 1E 00 05 A0 33 3A A0 32 3A 89 38 32 30 |0......3:.2:.820|
00001600: 00 3F 1E 0A 05 81 54 B2 31 A4 4E 46 3A 56 54 24 |.?....T.1.NF:VT$|
00001610: 28 54 29 B2 54 45 24 28 54 29 3A 82 3A 8D 31 30 |(T).TE$(T):.:.10|
00001620: 33 39 30 3A 81 54 B2 31 A4 4E 46 3A 54 45 24 28 |390:.T.1.NF:TE$(|
00001630: 54 29 B2 56 54 24 28 54 29 3A 82 00 5B 1E 0E 05 |T).VT$(T):..[...|
00001640: 81 54 B2 31 A4 4E 46 3A 98 33 2C 54 45 24 28 54 |.T.1.NF:.3,TE$(T|
00001650: 29 43 4F 24 3B 3A 82 00 91 1E 14 05 99 22 1E 11 |)CO$;:......."..|
00001660: 12 20 49 4E 53 45 52 54 20 41 4E 4F 54 48 45 52 |. INSERT ANOTHER|
00001670: 20 52 45 43 4F 52 44 20 41 46 54 45 52 20 28 59 | RECORD AFTER (Y|
00001680: 2F 4E 29 20 22 3B 3A 8D 31 30 31 38 30 00 AA 1E |/N) ";:.10180...|
00001690: 1E 05 4E 52 B2 4E 52 AA 31 3A 8B 41 24 B2 22 4E |..NR.NR.1:.A$."N|
000016A0: 22 A7 31 33 34 30 00 C4 1E 28 05 8D 31 30 33 39 |".1340...(..1039|
000016B0: 30 3A 8B 53 24 B2 22 58 58 58 22 A7 31 32 38 30 |0:.S$."XXX".1280|
000016C0: 00 CE 1E 32 05 89 31 33 30 30 00 0D 1F 3C 05 99 |...2..1300...<..|
000016D0: 22 11 12 9F 20 49 4E 53 45 52 54 20 41 4E 59 20 |"... INSERT ANY |
000016E0: 4D 4F 52 45 20 52 45 43 4F 52 44 53 20 28 59 2F |MORE RECORDS (Y/|
000016F0: 4E 29 20 22 3B 3A 8D 31 30 31 38 30 3A 8B 41 24 |N) ";:.10180:.A$|
00001700: B2 22 59 22 A7 31 32 31 30 00 31 1F 46 05 84 32 |."Y".1210.1.F..2|
00001710: 2C 41 24 3A 98 33 2C 41 24 43 4F 24 3B 3A 8B 41 |,A$:.3,A$CO$;:.A|
00001720: 24 B3 B1 22 58 58 58 22 A7 31 33 35 30 00 3B 1F |$.."XXX".1350.;.|
00001730: 50 05 89 31 32 38 30 00 67 1F 5A 05 99 22 9A 45 |P..1280.g.Z..".E|
00001740: 4E 54 45 52 20 52 45 43 4F 52 44 20 4E 55 4D 42 |NTER RECORD NUMB|
00001750: 45 52 22 3B 3A 8D 31 30 30 32 30 3A 53 B2 C5 28 |ER";:.10020:S..(|
00001760: 53 24 29 00 86 1F 5F 05 8B 53 B2 30 A7 B2 99 22 |S$)..._..S.0..."|
00001770: 91 22 53 50 24 3A 99 22 91 91 22 3B 3A 89 31 33 |."SP$:."..";:.13|
00001780: 37 30 00 94 1F 64 05 8B 53 B2 31 A7 31 31 35 30 |70...d..S.1.1150|
00001790: 00 C6 1F 6E 05 81 54 B2 31 A4 4E 46 3A 84 32 2C |...n..T.1.NF:.2,|
000017A0: 41 24 3A 98 33 2C 41 24 43 4F 24 3B 3A 8B 41 24 |A$:.3,A$CO$;:.A$|
000017B0: B2 22 58 58 58 22 A7 54 B2 4E 46 3A 82 3A 89 38 |."XXX".T.NF:.:.8|
000017C0: 31 30 00 DF 1F 78 05 82 3A 4E 52 B2 4E 52 AA 31 |10...x..:NR.NR.1|
000017D0: 3A 8B 53 B2 4E 52 A7 31 32 31 30 00 E9 1F 7D 05 |:.S.NR.1210...}.|
000017E0: 89 31 33 39 30 00 10 20 82 05 99 22 93 11 9A 20 |.1390.. ..."... |
000017F0: 12 20 44 45 4C 45 54 45 20 41 20 52 45 43 4F 52 |. DELETE A RECOR|
00001800: 44 20 53 45 43 54 49 4F 4E 20 11 22 00 4E 20 8C |D SECTION .".N .|
00001810: 05 99 22 11 57 48 45 52 45 20 49 53 20 52 45 51 |..".WHERE IS REQ|
00001820: 55 49 52 45 44 20 52 45 43 4F 52 44 3F 1C 22 3A |UIRED RECORD?.":|
00001830: 99 22 11 20 31 5D 20 41 54 20 53 50 45 43 49 46 |.". 1] AT SPECIF|
00001840: 49 45 44 20 4E 55 4D 42 45 52 00 79 20 96 05 99 |IED NUMBER.y ...|
00001850: 22 20 32 5D 20 4E 4F 54 20 53 55 52 45 20 28 47 |" 2] NOT SURE (G|
00001860: 4F 20 54 48 52 4F 55 47 48 20 57 48 4F 4C 45 20 |O THROUGH WHOLE |
00001870: 46 49 4C 45 29 00 A0 20 9B 05 8D 31 30 31 39 30 |FILE).. ...10190|
00001880: 3A 42 B2 36 3A 4E 43 B2 32 3A 42 24 B2 43 52 24 |:B.6:NC.2:B$.CR$|
00001890: AA 22 31 32 22 3A 8D 31 30 31 33 30 00 B5 20 A0 |."12":.10130.. .|
000018A0: 05 8B 44 4C B2 30 A7 41 B2 32 3A 8D 31 30 31 35 |..DL.0.A.2:.1015|
000018B0: 30 00 CB 20 AA 05 99 22 11 11 11 22 3A 8B 4F 50 |0.. ..."...":.OP|
000018C0: B2 32 A7 31 35 32 30 00 F7 20 B4 05 99 22 9A 45 |.2.1520.. ...".E|
000018D0: 4E 54 45 52 20 52 45 43 4F 52 44 20 4E 55 4D 42 |NTER RECORD NUMB|
000018E0: 45 52 22 3B 3A 8D 31 30 30 32 30 3A 53 B2 C5 28 |ER";:.10020:S..(|
000018F0: 53 24 29 00 16 21 BE 05 8B 53 B2 30 A7 B2 99 22 |S$)..!...S.0..."|
00001900: 91 22 53 50 24 3A 99 22 91 91 22 3B 3A 89 31 34 |."SP$:."..";:.14|
00001910: 36 30 00 24 21 C8 05 8B 53 B2 31 A7 31 35 32 30 |60.$!...S.1.1520|
00001920: 00 56 21 D2 05 81 54 B2 31 A4 4E 46 3A 84 32 2C |.V!...T.1.NF:.2,|
00001930: 41 24 3A 98 33 2C 41 24 43 4F 24 3B 3A 8B 41 24 |A$:.3,A$CO$;:.A$|
00001940: B2 22 58 58 58 22 A7 54 B2 4E 46 3A 82 3A 89 38 |."XXX".T.NF:.:.8|
00001950: 31 30 00 6F 21 DC 05 82 3A 4E 52 B2 4E 52 AA 31 |10.o!...:NR.NR.1|
00001960: 3A 8B 53 B2 4E 52 A7 31 35 32 30 00 79 21 E6 05 |:.S.NR.1520.y!..|
00001970: 89 31 34 39 30 00 9C 21 F0 05 84 32 2C 54 24 3A |.1490..!...2,T$:|
00001980: 8B 54 24 B2 22 58 58 58 22 A7 98 33 2C 54 24 51 |.T$."XXX"..3,T$Q|
00001990: 4F 24 3A 89 31 32 38 30 00 CA 21 FA 05 99 22 11 |O$:.1280..!...".|
000019A0: 9A 12 20 52 45 43 4F 52 44 20 23 22 4E 52 22 11 |.. RECORD #"NR".|
000019B0: 1E 22 3A 81 54 B2 31 A4 4E 46 3A 8B 54 B3 B1 31 |.":.T.1.NF:.T..1|
000019C0: A7 84 32 2C 54 24 00 E9 21 04 06 54 45 24 28 54 |..2,T$..!..TE$(T|
000019D0: 29 B2 54 24 3A 99 44 46 24 28 54 29 22 20 2D 20 |).T$:.DF$(T)" - |
000019E0: 22 54 24 3A 82 00 17 22 0E 06 99 22 11 1E 12 20 |"T$:..."..."... |
000019F0: 44 45 4C 45 54 45 20 41 42 4F 56 45 20 52 45 43 |DELETE ABOVE REC|
00001A00: 4F 52 44 20 28 59 2F 4E 29 20 22 3B 3A 8D 31 30 |ORD (Y/N) ";:.10|
00001A10: 31 38 30 00 28 22 18 06 8B 41 24 B2 22 59 22 A7 |180.("...A$."Y".|
00001A20: 31 35 38 30 00 44 22 22 06 81 54 B2 31 A4 4E 46 |1580.D""..T.1.NF|
00001A30: 3A 98 33 2C 54 45 24 28 54 29 43 4F 24 3B 3A 82 |:.3,TE$(T)CO$;:.|
00001A40: 00 8B 22 2C 06 4E 52 B2 4E 52 AA 31 3A 99 22 11 |..",.NR.NR.1:.".|
00001A50: 12 9F 20 44 45 4C 45 54 45 20 41 4E 59 20 4D 4F |.. DELETE ANY MO|
00001A60: 52 45 20 52 45 43 4F 52 44 53 20 28 59 2F 4E 29 |RE RECORDS (Y/N)|
00001A70: 20 22 3B 3A 8D 31 30 31 38 30 3A 8B 41 24 B2 22 | ";:.10180:.A$."|
00001A80: 59 22 A7 31 35 32 30 00 AF 22 36 06 84 32 2C 41 |Y".1520.."6..2,A|
00001A90: 24 3A 98 33 2C 41 24 43 4F 24 3B 3A 8B 41 24 B3 |$:.3,A$CO$;:.A$.|
00001AA0: B1 22 58 58 58 22 A7 31 35 39 30 00 B9 22 40 06 |."XXX".1590.."@.|
00001AB0: 89 31 32 38 30 00 E0 22 4A 06 99 22 93 11 9A 20 |.1280.."J.."... |
00001AC0: 12 20 43 48 41 4E 47 45 20 50 41 53 53 57 4F 52 |. CHANGE PASSWOR|
00001AD0: 44 20 53 45 43 54 49 4F 4E 20 11 22 00 0C 23 54 |D SECTION ."..#T|
00001AE0: 06 99 22 1C 43 55 52 52 45 4E 54 20 50 41 53 53 |..".CURRENT PASS|
00001AF0: 57 4F 52 44 20 49 53 20 2D 20 22 3B 3A 81 54 B2 |WORD IS - ";:.T.|
00001B00: 31 A4 C3 28 50 57 24 29 00 30 23 5E 06 99 C7 28 |1..(PW$).0#^...(|
00001B10: C6 28 CA 28 50 57 24 2C 54 2C 31 29 29 AB 54 29 |.(.(PW$,T,1)).T)|
00001B20: 3B 3A 82 3A 99 43 52 24 22 1E 22 3B 00 75 23 63 |;:.:.CR$".";.u#c|
00001B30: 06 99 22 11 45 4E 54 45 52 20 4E 45 57 20 50 41 |..".ENTER NEW PA|
00001B40: 53 53 57 4F 52 44 20 5B 52 45 54 55 52 4E 20 49 |SSWORD [RETURN I|
00001B50: 46 20 4E 4F 4E 45 5D 22 3A 8D 31 30 30 32 30 3A |F NONE]":.10020:|
00001B60: 41 24 B2 22 22 3A 8B 53 24 B2 22 22 A7 31 36 34 |A$."":.S$."".164|
00001B70: 30 00 80 23 65 06 8D 31 30 33 35 30 00 99 23 68 |0..#e..10350..#h|
00001B80: 06 50 57 24 B2 41 24 3A 8D 31 30 33 36 30 3A 8D |.PW$.A$:.10360:.|
00001B90: 31 30 33 37 30 00 BD 23 72 06 84 32 2C 41 24 3A |10370..#r..2,A$:|
00001BA0: 98 33 2C 41 24 43 4F 24 3B 3A 8B 41 24 B3 B1 22 |.3,A$CO$;:.A$.."|
00001BB0: 58 58 58 22 A7 31 36 35 30 00 C7 23 7C 06 89 31 |XXX".1650..#|..1|
00001BC0: 32 38 30 00 E3 23 86 06 8F 20 2A 2A 20 4F 55 54 |280..#... ** OUT|
00001BD0: 50 55 54 20 41 4E 59 20 46 49 4C 45 20 2A 2A 00 |PUT ANY FILE **.|
00001BE0: 13 24 90 06 99 22 93 22 A6 36 29 22 11 12 20 4F |.$...".".6)".. O|
00001BF0: 55 54 50 55 54 20 41 4E 59 20 46 49 4C 45 20 53 |UTPUT ANY FILE S|
00001C00: 45 43 54 49 4F 4E 20 22 3A 8D 31 30 32 30 30 00 |ECTION ":.10200.|
00001C10: 22 24 9A 06 8B 45 52 B2 30 A7 31 37 32 30 00 3A |"$...ER.0.1720.:|
00001C20: 24 A4 06 8D 31 30 32 32 30 3A 8B 41 24 B2 22 59 |$...10220:.A$."Y|
00001C30: 22 A7 31 36 38 30 00 4A 24 AE 06 8D 31 30 32 36 |".1680.J$...1026|
00001C40: 30 3A 89 31 33 30 00 60 24 B8 06 8D 31 30 32 38 |0:.130.`$...1028|
00001C50: 30 3A 8B 45 52 B2 30 A7 31 37 35 30 00 74 24 C2 |0:.ER.0.1750.t$.|
00001C60: 06 A0 32 3A 8B 41 24 B2 22 59 22 A7 31 37 32 30 |..2:.A$."Y".1720|
00001C70: 00 7E 24 CC 06 89 31 37 31 30 00 96 24 D6 06 8D |.~$...1710..$...|
00001C80: 31 30 33 33 30 3A 8B 50 57 24 B2 22 22 A7 31 37 |10330:.PW$."".17|
00001C90: 37 30 00 CC 24 E0 06 8D 31 30 33 34 30 3A 8B 41 |70..$...10340:.A|
00001CA0: 24 B3 B1 50 57 24 A7 99 22 11 1C 20 12 20 49 4C |$..PW$..".. . IL|
00001CB0: 4C 45 47 41 4C 20 50 41 53 53 57 4F 52 44 20 22 |LEGAL PASSWORD "|
00001CC0: 3A A0 32 3A 89 32 34 30 00 10 25 EA 06 99 22 11 |:.2:.240..%...".|
00001CD0: 20 44 41 54 45 20 43 52 45 41 54 45 44 20 22 44 | DATE CREATED "D|
00001CE0: 41 24 3A 99 22 20 4C 41 53 54 20 55 50 44 41 54 |A$:." LAST UPDAT|
00001CF0: 45 20 20 22 55 44 24 3A 99 22 20 4E 4F 2E 20 4F |E "UD$:." NO. O|
00001D00: 46 20 46 49 45 4C 44 53 3D 22 4E 46 00 4A 25 F4 |F FIELDS="NF.J%.|
00001D10: 06 99 22 11 20 46 49 45 4C 44 53 20 41 52 45 3A |..". FIELDS ARE:|
00001D20: 2D 11 22 3A 81 54 B2 31 A4 4E 46 3A 84 32 2C 41 |-.":.T.1.NF:.2,A|
00001D30: 24 3A 99 54 22 5D 20 22 41 24 3A 44 46 24 28 54 |$:.T"] "A$:DF$(T|
00001D40: 29 B2 41 24 3A 82 00 85 25 FE 06 8D 31 30 32 36 |).A$:...%...1026|
00001D50: 30 3A 99 22 93 11 11 22 3A 41 24 B2 22 50 4C 45 |0:."...":A$."PLE|
00001D60: 41 53 45 20 45 4E 54 45 52 20 4F 55 54 50 55 54 |ASE ENTER OUTPUT|
00001D70: 20 52 45 51 55 49 52 45 44 22 3A 8D 31 30 31 32 | REQUIRED":.1012|
00001D80: 30 00 D1 25 08 07 99 22 11 9F 20 31 5D 20 41 4C |0..%...".. 1] AL|
00001D90: 4C 20 46 49 45 4C 44 53 20 4F 46 20 41 4C 4C 20 |L FIELDS OF ALL |
00001DA0: 52 45 43 4F 52 44 53 22 3A 99 22 20 32 5D 20 53 |RECORDS":." 2] S|
00001DB0: 45 4C 45 43 54 45 44 20 46 49 45 4C 44 53 20 4F |ELECTED FIELDS O|
00001DC0: 46 20 41 4C 4C 20 52 45 43 4F 52 44 53 00 1E 26 |F ALL RECORDS..&|
00001DD0: 12 07 99 22 20 33 5D 20 41 4C 4C 20 52 45 43 4F |..." 3] ALL RECO|
00001DE0: 52 44 53 20 57 49 54 48 20 53 45 4C 45 43 54 45 |RDS WITH SELECTE|
00001DF0: 44 20 57 4F 52 44 53 22 3A 99 22 20 34 5D 20 53 |D WORDS":." 4] S|
00001E00: 45 54 20 50 52 49 4E 54 45 52 20 43 48 41 52 41 |ET PRINTER CHARA|
00001E10: 43 54 45 52 49 53 54 49 43 53 00 52 26 1C 07 99 |CTERISTICS.R&...|
00001E20: 22 20 35 5D 20 41 53 43 49 49 20 44 55 4D 50 20 |" 5] ASCII DUMP |
00001E30: 41 4E 59 20 46 49 4C 45 22 3A 99 22 20 36 5D 20 |ANY FILE":." 6] |
00001E40: 52 45 54 55 52 4E 20 54 4F 20 4D 45 4E 55 00 7D |RETURN TO MENU.}|
00001E50: 26 26 07 42 B2 36 3A 4E 43 B2 36 3A 42 24 B2 43 |&&.B.6:NC.6:B$.C|
00001E60: 52 24 AA 22 31 32 33 34 35 36 22 3A 8D 31 30 31 |R$."123456":.101|
00001E70: 39 30 3A 8D 31 30 31 33 30 00 92 26 30 07 8B 44 |90:.10130..&0..D|
00001E80: 4C B2 30 A7 41 B2 31 3A 8D 31 30 31 35 30 00 A5 |L.0.A.1:.10150..|
00001E90: 26 35 07 99 C8 28 43 44 24 2C 42 AA 4E 43 AA 34 |&5...(CD$,B.NC.4|
00001EA0: 29 00 B7 26 3A 07 8B 4F 50 B2 36 A7 A0 32 3A 89 |)..&:..OP.6..2:.|
00001EB0: 32 34 30 00 C6 26 44 07 8B 4F 50 B1 33 A7 32 37 |240..&D..OP.3.27|
00001EC0: 35 30 00 F9 26 4E 07 99 C8 28 43 44 24 2C 31 36 |50..&N...(CD$,16|
00001ED0: 29 22 9A 12 54 92 41 42 4C 45 20 4F 52 20 12 4C |)"..T.ABLE OR .L|
00001EE0: 92 49 53 54 20 46 4F 52 4D 41 54 20 28 54 2F 4C |.IST FORMAT (T/L|
00001EF0: 29 20 1C 22 3B 00 0D 27 52 07 A1 41 24 3A 8B 41 |) .";..'R..A$:.A|
00001F00: 24 B2 22 22 A7 31 38 37 34 00 20 27 54 07 8B 41 |$."".1874. 'T..A|
00001F10: 24 B2 43 52 24 A7 41 24 B2 22 54 22 00 3A 27 56 |$.CR$.A$."T".:'V|
00001F20: 07 8B 41 24 B3 B1 22 54 22 AF 41 24 B3 B1 22 4C |..A$.."T".A$.."L|
00001F30: 22 A7 31 38 37 34 00 6D 27 58 07 99 41 24 3A 46 |".1874.m'X..A$:F|
00001F40: 54 24 B2 41 24 3A 99 22 11 9A 50 52 49 4E 54 20 |T$.A$:."..PRINT |
00001F50: 4E 41 4D 45 53 20 4F 46 20 46 49 45 4C 44 53 20 |NAMES OF FIELDS |
00001F60: 28 59 2F 4E 29 20 1C 22 3B 00 81 27 5C 07 A1 41 |(Y/N) .";..'\..A|
00001F70: 24 3A 8B 41 24 B2 22 22 A7 31 38 38 34 00 94 27 |$:.A$."".1884..'|
00001F80: 5E 07 8B 41 24 B2 43 52 24 A7 41 24 B2 22 59 22 |^..A$.CR$.A$."Y"|
00001F90: 00 AE 27 60 07 8B 41 24 B3 B1 22 59 22 AF 41 24 |..'`..A$.."Y".A$|
00001FA0: B3 B1 22 4E 22 A7 31 38 38 34 00 D0 27 62 07 50 |.."N".1884..'b.P|
00001FB0: 46 24 B2 41 24 3A 99 41 24 3A 91 4F 50 89 31 39 |F$.A$:.A$:.OP.19|
00001FC0: 39 35 2C 31 39 30 30 2C 31 39 34 30 00 10 28 6C |95,1900,1940..(l|
00001FD0: 07 8D 31 30 32 36 30 3A 99 22 93 11 11 9A 22 3A |..10260:."....":|
00001FE0: 41 24 B2 22 45 4E 54 45 52 20 46 49 45 4C 44 20 |A$."ENTER FIELD |
00001FF0: 4E 55 4D 42 45 52 53 20 54 4F 20 42 45 20 4F 55 |NUMBERS TO BE OU|
00002000: 54 50 55 54 22 3A 8D 31 30 31 32 30 00 43 28 76 |TPUT":.10120.C(v|
00002010: 07 99 22 11 9F 22 3B 3A 81 54 B2 31 A4 4E 46 3A |.."..";:.T.1.NF:|
00002020: 99 54 22 5D 20 22 44 46 24 28 54 29 3A 82 3A 42 |.T"] "DF$(T):.:B|
00002030: B2 36 3A 4E 43 B2 4E 46 3A 42 24 B2 43 52 24 00 |.6:NC.NF:B$.CR$.|
00002040: 74 28 80 07 81 54 B2 31 A4 4E 46 3A 41 24 B2 C4 |t(...T.1.NF:A$..|
00002050: 28 54 29 3A 42 24 B2 42 24 AA C9 28 41 24 2C C3 |(T):B$.B$..(A$,.|
00002060: 28 41 24 29 AB 31 29 3A 82 3A 8D 31 30 31 39 30 |(A$).1):.:.10190|
00002070: 00 8A 28 8A 07 8D 31 30 31 33 30 3A 8B 44 4C B2 |..(...10130:.DL.|
00002080: 30 A7 31 37 39 30 00 A8 28 8F 07 8D 31 30 31 37 |0.1790..(...1017|
00002090: 30 3A 8B 41 24 B2 22 59 22 A7 50 57 B2 32 3A 89 |0:.A$."Y".PW.2:.|
000020A0: 32 30 30 30 00 B2 28 91 07 89 31 39 30 30 00 F4 |2000..(...1900..|
000020B0: 28 94 07 8D 31 30 32 36 30 3A 99 22 93 11 11 9A |(...10260:."....|
000020C0: 22 3A 41 24 B2 22 45 4E 54 45 52 20 46 49 45 4C |":A$."ENTER FIEL|
000020D0: 44 20 4E 55 4D 42 45 52 53 20 54 4F 20 42 45 20 |D NUMBERS TO BE |
000020E0: 53 45 41 52 43 48 45 44 22 3A 8D 31 30 31 32 30 |SEARCHED":.10120|
000020F0: 00 27 29 9E 07 99 22 11 9F 22 3B 3A 81 54 B2 31 |.')..."..";:.T.1|
00002100: A4 4E 46 3A 99 54 22 5D 20 22 44 46 24 28 54 29 |.NF:.T"] "DF$(T)|
00002110: 3A 82 3A 42 B2 36 3A 4E 43 B2 4E 46 3A 42 24 B2 |:.:B.6:NC.NF:B$.|
00002120: 43 52 24 00 58 29 A8 07 81 54 B2 31 A4 4E 46 3A |CR$.X)...T.1.NF:|
00002130: 41 24 B2 C4 28 54 29 3A 42 24 B2 42 24 AA C9 28 |A$..(T):B$.B$..(|
00002140: 41 24 2C C3 28 41 24 29 AB 31 29 3A 82 3A 8D 31 |A$,.(A$).1):.:.1|
00002150: 30 31 39 30 00 6E 29 B2 07 8D 31 30 31 33 30 3A |0190.n)...10130:|
00002160: 8B 44 4C B2 30 A7 31 37 39 30 00 86 29 B7 07 8D |.DL.0.1790..)...|
00002170: 31 30 31 37 30 3A 8B 41 24 B2 22 4E 22 A7 31 39 |10170:.A$."N".19|
00002180: 34 30 00 A1 29 BC 07 81 54 B2 31 A4 4E 46 3A 8B |40..)...T.1.NF:.|
00002190: 43 48 25 28 54 29 B2 30 A7 31 39 39 30 00 D9 29 |CH%(T).0.1990..)|
000021A0: C1 07 99 22 11 53 54 52 49 4E 47 20 46 4F 52 20 |...".STRING FOR |
000021B0: 12 22 44 46 24 28 54 29 22 92 20 46 49 45 4C 44 |."DF$(T)". FIELD|
000021C0: 20 3F 22 3B 3A 8D 31 30 30 32 30 3A 54 45 24 28 | ?";:.10020:TE$(|
000021D0: 54 29 B2 53 24 00 EA 29 C6 07 82 3A 50 57 B2 33 |T).S$..)...:PW.3|
000021E0: 3A 89 32 30 30 30 00 06 2A CB 07 81 54 B2 31 A4 |:.2000..*...T.1.|
000021F0: 4E 46 3A 43 48 25 28 54 29 B2 31 3A 82 3A 50 57 |NF:CH%(T).1:.:PW|
00002200: B2 31 00 21 2A D0 07 9F 34 2C 50 44 2C 53 41 3A |.1.!*...4,PD,SA:|
00002210: 8B 50 46 24 B2 22 4E 22 A7 32 30 34 30 00 4D 2A |.PF$."N".2040.M*|
00002220: E4 07 44 4C B2 30 3A 81 54 B2 31 A4 4E 46 3A 8B |..DL.0:.T.1.NF:.|
00002230: C3 28 44 46 24 28 54 29 29 B1 44 4C A7 44 4C B2 |.(DF$(T)).DL.DL.|
00002240: C3 28 44 46 24 28 54 29 29 00 53 2A EE 07 82 00 |.(DF$(T)).S*....|
00002250: 65 2A F8 07 8B 46 54 24 B2 22 4C 22 A7 32 35 32 |e*...FT$."L".252|
00002260: 35 00 7E 2A 02 08 84 32 2C 41 24 3A 8B 41 24 B2 |5.~*...2,A$:.A$.|
00002270: 22 58 58 58 22 A7 32 30 39 30 00 96 2A 0C 08 81 |"XXX".2090..*...|
00002280: 54 B2 31 A4 4E 46 3A 8B 54 B3 B1 31 A7 84 32 2C |T.1.NF:.T..1..2,|
00002290: 41 24 00 B5 2A 16 08 8B C3 28 41 24 29 B1 4D 46 |A$..*....(A$).MF|
000022A0: 25 28 54 29 A7 4D 46 25 28 54 29 B2 C3 28 41 24 |%(T).MF%(T)..(A$|
000022B0: 29 00 C1 2A 20 08 82 3A 89 32 30 35 30 00 E2 2A |)..* ..:.2050..*|
000022C0: 2A 08 A0 32 3A 9F 32 2C 44 44 2C 32 2C 4E 41 24 |*..2:.2,DD,2,NA$|
000022D0: AA 22 2C 53 2C 52 22 3A 8D 31 30 33 33 30 00 05 |.",S,R":.10330..|
000022E0: 2B 2F 08 8B 50 46 24 B2 22 4E 22 A7 81 54 B2 31 |+/..PF$."N"..T.1|
000022F0: A4 4E 46 3A 84 32 2C 41 24 3A 82 3A 89 32 31 34 |.NF:.2,A$:.:.214|
00002300: 35 00 1F 2B 31 08 98 34 2C A6 35 29 3B 3A 81 54 |5..+1..4,.5);:.T|
00002310: B2 31 A4 4E 46 3A 84 32 2C 41 24 00 48 2B 34 08 |.1.NF:.2,A$.H+4.|
00002320: 41 B2 4D 46 25 28 54 29 3A 42 B2 C3 28 41 24 29 |A.MF%(T):B..(A$)|
00002330: 3A 8B 42 B1 41 A7 41 B2 42 AA 31 3A 4D 46 25 28 |:.B.A.A.B.1:MF%(|
00002340: 54 29 B2 41 00 67 2B 3E 08 8B 43 48 25 28 54 29 |T).A.g+>..CH%(T)|
00002350: B0 50 57 B2 33 A7 98 34 2C 41 24 A6 41 AB 42 AA |.PW.3..4,A$.A.B.|
00002360: 31 29 3B 00 9F 2B 48 08 82 3A 98 34 2C 43 52 24 |1);..+H..:.4,CR$|
00002370: 3B 3A 4E 4C B2 33 3A 98 34 2C A6 35 29 3B 3A 81 |;:NL.3:.4,.5);:.|
00002380: 54 B2 31 A4 4E 46 3A 8B 43 48 25 28 54 29 B2 30 |T.1.NF:.CH%(T).0|
00002390: AF 50 57 B3 B1 33 A7 32 31 34 30 00 CC 2B 52 08 |.PW..3.2140..+R.|
000023A0: 98 34 2C C8 28 55 4C 24 2C C3 28 44 46 24 28 54 |.4,.(UL$,.(DF$(T|
000023B0: 29 29 29 A6 4D 46 25 28 54 29 AB C3 28 44 46 24 |))).MF%(T)..(DF$|
000023C0: 28 54 29 29 AA 31 29 3B 00 DA 2B 5C 08 82 3A 98 |(T)).1);..+\..:.|
000023D0: 34 2C 43 52 24 3B 00 EE 2B 61 08 4E 52 B2 31 3A |4,CR$;..+a.NR.1:|
000023E0: 8B 50 57 B2 33 A7 32 32 32 30 00 07 2C 66 08 84 |.PW.3.2220..,f..|
000023F0: 32 2C 41 24 3A 8B 41 24 B2 22 58 58 58 22 A7 32 |2,A$:.A$."XXX".2|
00002400: 36 30 30 00 32 2C 70 08 81 54 B2 31 A4 4E 46 3A |600.2,p..T.1.NF:|
00002410: 8B 54 B2 31 A7 98 34 2C 4E 52 3B A6 34 AB C3 28 |.T.1..4,NR;.4..(|
00002420: C4 28 4E 52 29 29 29 3B 3A 89 32 31 38 30 00 3C |.(NR)));:.2180.<|
00002430: 2C 7A 08 84 32 2C 41 24 00 5F 2C 84 08 8B 43 48 |,z..2,A$._,...CH|
00002440: 25 28 54 29 A7 98 34 2C 41 24 A6 4D 46 25 28 54 |%(T)..4,A$.MF%(T|
00002450: 29 AB C3 28 41 24 29 AA 31 29 3B 00 87 2C 8E 08 |)..(A$).1);..,..|
00002460: 82 3A 81 54 B2 31 A4 4C 4E 3A 98 34 2C 43 52 24 |.:.T.1.LN:.4,CR$|
00002470: 3B 3A 82 3A 4E 52 B2 4E 52 AA 31 3A 4E 4C B2 4E |;:.:NR.NR.1:NL.N|
00002480: 4C AA 31 00 A4 2C 98 08 8B 4E 4C B1 50 4C A7 98 |L.1..,...NL.PL..|
00002490: 34 2C 43 52 24 43 52 24 43 52 24 3A 4E 4C B2 30 |4,CR$CR$CR$:NL.0|
000024A0: 00 AE 2C A2 08 89 32 31 35 30 00 C7 2C AC 08 84 |..,...2150..,...|
000024B0: 32 2C 54 24 3A 8B 54 24 B2 22 58 58 58 22 A7 32 |2,T$:.T$."XXX".2|
000024C0: 36 30 30 00 DF 2C B6 08 81 54 B2 31 A4 4E 46 3A |600..,...T.1.NF:|
000024D0: 8B 54 B3 B1 31 A7 84 32 2C 54 24 00 EF 2C C0 08 |.T..1..2,T$..,..|
000024E0: 56 54 24 28 54 29 B2 54 24 3A 82 00 0F 2D CA 08 |VT$(T).T$:...-..|
000024F0: 50 57 B2 30 3A 81 54 B2 31 A4 4E 46 3A 8B 43 48 |PW.0:.T.1.NF:.CH|
00002500: 25 28 54 29 B2 30 A7 32 32 39 35 00 40 2D D4 08 |%(T).0.2295.@-..|
00002510: 54 24 B2 56 54 24 28 54 29 3A 41 24 B2 54 45 24 |T$.VT$(T):A$.TE$|
00002520: 28 54 29 3A 81 5A B2 31 A4 C3 28 41 24 29 3A 8B |(T):.Z.1..(A$):.|
00002530: 5A B1 C3 28 54 24 29 A7 32 32 39 30 00 81 2D DE |Z..(T$).2290..-.|
00002540: 08 8B CA 28 41 24 2C 5A 2C 31 29 B3 B1 CA 28 54 |...(A$,Z,1)...(T|
00002550: 24 2C 5A 2C 31 29 AF CA 28 41 24 2C 5A 2C 31 29 |$,Z,1)..(A$,Z,1)|
00002560: B3 B1 22 3F 22 A7 50 57 B2 30 3A 5A B2 C3 28 41 |.."?".PW.0:Z..(A|
00002570: 24 29 3A 54 B2 4E 46 3A 89 32 32 39 30 00 8A 2D |$):T.NF:.2290..-|
00002580: E8 08 50 57 B2 31 00 90 2D F2 08 82 00 AA 2D F7 |..PW.1..-.....-.|
00002590: 08 82 3A 8B 50 57 B2 30 A7 4E 52 B2 4E 52 AA 31 |..:.PW.0.NR.NR.1|
000025A0: 3A 89 32 32 32 30 00 CF 2D FC 08 81 54 B2 31 A4 |:.2220..-...T.1.|
000025B0: 4E 46 3A 8B 54 B2 31 A7 98 34 2C 4E 52 3B A6 34 |NF:.T.1..4,NR;.4|
000025C0: AB C3 28 C4 28 4E 52 29 29 29 3B 00 F4 2D 06 09 |..(.(NR)));..-..|
000025D0: 41 24 B2 56 54 24 28 54 29 3A 98 34 2C 41 24 A6 |A$.VT$(T):.4,A$.|
000025E0: 4D 46 25 28 54 29 AB C3 28 41 24 29 AA 31 29 3B |MF%(T)..(A$).1);|
000025F0: 00 1C 2E 10 09 82 3A 81 54 B2 31 A4 4C 4E 3A 98 |......:.T.1.LN:.|
00002600: 34 2C 43 52 24 3B 3A 82 3A 4E 52 B2 4E 52 AA 31 |4,CR$;:.:NR.NR.1|
00002610: 3A 4E 4C B2 4E 4C AA 31 00 39 2E 1A 09 8B 4E 4C |:NL.NL.1.9....NL|
00002620: B1 50 4C A7 98 34 2C 43 52 24 43 52 24 43 52 24 |.PL..4,CR$CR$CR$|
00002630: 3A 4E 4C B2 30 00 43 2E 24 09 89 32 32 32 30 00 |:NL.0.C.$..2220.|
00002640: 52 2E DD 09 8B 50 57 B2 33 A7 32 36 35 30 00 6B |R....PW.3.2650.k|
00002650: 2E E2 09 84 32 2C 54 24 3A 8B 54 24 B2 22 58 58 |....2,T$:.T$."XX|
00002660: 58 22 A7 32 36 30 30 00 83 2E EC 09 81 54 B2 31 |X".2600......T.1|
00002670: A4 4E 46 3A 8B 54 B3 B1 31 A7 84 32 2C 54 24 00 |.NF:.T..1..2,T$.|
00002680: 96 2E F6 09 8B 43 48 25 28 54 29 B2 30 A7 32 35 |.....CH%(T).0.25|
00002690: 38 30 00 C1 2E 00 0A 8B 50 46 24 B2 22 59 22 A7 |80......PF$."Y".|
000026A0: 98 34 2C 44 46 24 28 54 29 A6 44 4C AB C3 28 44 |.4,DF$(T).DL..(D|
000026B0: 46 24 28 54 29 29 29 22 20 2D 20 22 3B 00 CB 2E |F$(T)))" - ";...|
000026C0: 0A 0A 98 34 2C 54 24 00 E9 2E 14 0A 82 3A 81 54 |...4,T$......:.T|
000026D0: B2 31 A4 4C 4E 3A 98 34 2C 43 52 24 3B 3A 82 3A |.1.LN:.4,CR$;:.:|
000026E0: 89 32 35 33 30 00 26 2F 28 0A 98 34 3A A0 34 3A |.2530.&/(..4:.4:|
000026F0: A0 32 3A 9F 32 2C 44 44 2C 32 2C 4E 41 24 AA 22 |.2:.2,DD,2,NA$."|
00002700: 2C 53 2C 52 22 3A 8D 31 30 33 33 30 3A 81 54 B2 |,S,R":.10330:.T.|
00002710: 31 A4 4E 46 3A 84 32 2C 41 24 3A 82 3A 89 31 37 |1.NF:.2,A$:.:.17|
00002720: 39 30 00 3F 2F 5A 0A 84 32 2C 54 24 3A 8B 54 24 |90.?/Z..2,T$:.T$|
00002730: B2 22 58 58 58 22 A7 32 36 30 30 00 57 2F 64 0A |."XXX".2600.W/d.|
00002740: 81 54 B2 31 A4 4E 46 3A 8B 54 B3 B1 31 A7 84 32 |.T.1.NF:.T..1..2|
00002750: 2C 54 24 00 67 2F 6E 0A 56 54 24 28 54 29 B2 54 |,T$.g/n.VT$(T).T|
00002760: 24 3A 82 00 87 2F 78 0A 50 57 B2 30 3A 81 54 B2 |$:.../x.PW.0:.T.|
00002770: 31 A4 4E 46 3A 8B 43 48 25 28 54 29 B2 30 A7 32 |1.NF:.CH%(T).0.2|
00002780: 37 32 35 00 B8 2F 82 0A 54 24 B2 56 54 24 28 54 |725../..T$.VT$(T|
00002790: 29 3A 41 24 B2 54 45 24 28 54 29 3A 81 5A B2 31 |):A$.TE$(T):.Z.1|
000027A0: A4 C3 28 41 24 29 3A 8B 5A B1 C3 28 54 24 29 A7 |..(A$):.Z..(T$).|
000027B0: 32 37 32 30 00 F9 2F 8C 0A 8B CA 28 41 24 2C 5A |2720../....(A$,Z|
000027C0: 2C 31 29 B3 B1 CA 28 54 24 2C 5A 2C 31 29 AF CA |,1)...(T$,Z,1)..|
000027D0: 28 41 24 2C 5A 2C 31 29 B3 B1 22 3F 22 A7 50 57 |(A$,Z,1).."?".PW|
000027E0: B2 30 3A 5A B2 C3 28 41 24 29 3A 54 B2 4E 46 3A |.0:Z..(A$):T.NF:|
000027F0: 89 32 37 32 30 00 02 30 96 0A 50 57 B2 31 00 08 |.2720..0..PW.1..|
00002800: 30 A0 0A 82 00 22 30 A5 0A 82 3A 8B 50 57 B2 30 |0...."0...:.PW.0|
00002810: A7 4E 52 B2 4E 52 AA 31 3A 89 32 36 35 30 00 55 |.NR.NR.1:.2650.U|
00002820: 30 AA 0A 81 54 B2 31 A4 4E 46 3A 8B 50 46 24 B2 |0...T.1.NF:.PF$.|
00002830: 22 59 22 A7 98 34 2C 44 46 24 28 54 29 A6 44 4C |"Y"..4,DF$(T).DL|
00002840: AB C3 28 44 46 24 28 54 29 29 29 22 20 2D 20 22 |..(DF$(T)))" - "|
00002850: 3B 00 7D 30 B4 0A 98 34 2C 56 54 24 28 54 29 3A |;.}0...4,VT$(T):|
00002860: 82 3A 81 54 B2 31 A4 4C 4E 3A 98 34 2C 43 52 24 |.:.T.1.LN:.4,CR$|
00002870: 3B 3A 82 3A 89 32 36 35 30 00 8C 30 BE 0A 8B 4F |;:.:.2650..0...O|
00002880: 50 B2 35 A7 32 39 31 30 00 CB 30 C3 0A 99 22 93 |P.5.2910..0...".|
00002890: 11 11 9A 22 3A 41 24 B2 22 57 48 49 43 48 20 50 |...":A$."WHICH P|
000028A0: 52 49 4E 54 45 52 20 43 48 41 52 41 43 54 45 52 |RINTER CHARACTER|
000028B0: 49 53 54 49 43 20 54 4F 20 43 48 41 4E 47 45 22 |ISTIC TO CHANGE"|
000028C0: 3A 8D 31 30 31 32 30 00 18 31 C8 0A 99 22 11 9F |:.10120..1..."..|
000028D0: 20 31 5D 20 43 55 52 52 45 4E 54 20 4C 49 4E 45 | 1] CURRENT LINE|
000028E0: 53 20 50 45 52 20 50 41 47 45 20 3D 22 50 4C AA |S PER PAGE ="PL.|
000028F0: 34 3A 99 22 20 32 5D 20 4C 49 4E 45 20 46 45 45 |4:." 2] LINE FEE|
00002900: 44 53 20 41 46 54 45 52 20 52 45 43 4F 52 44 20 |DS AFTER RECORD |
00002910: 3D 22 4C 4E 00 44 31 D2 0A 99 22 20 33 5D 20 53 |="LN.D1..." 3] S|
00002920: 45 43 4F 4E 44 41 52 59 20 41 44 44 52 45 53 53 |ECONDARY ADDRESS|
00002930: 20 4F 46 20 50 52 49 4E 54 45 52 20 3D 22 53 41 | OF PRINTER ="SA|
00002940: 00 6C 31 DC 0A 42 B2 36 3A 4E 43 B2 33 3A 42 24 |.l1..B.6:NC.3:B$|
00002950: B2 43 52 24 AA 22 31 32 33 22 3A 8D 31 30 31 39 |.CR$."123":.1019|
00002960: 30 3A 8D 31 30 31 33 30 00 86 31 E6 0A 99 C8 28 |0:.10130..1....(|
00002970: 43 44 24 2C 31 32 29 3A 8B 44 4C B2 30 A7 31 37 |CD$,12):.DL.0.17|
00002980: 39 30 00 99 31 F0 0A 8B 43 48 25 28 31 29 B2 30 |90..1...CH%(1).0|
00002990: A7 32 38 34 30 00 C4 31 FA 0A 99 22 11 1C 20 45 |.2840..1...".. E|
000029A0: 4E 54 45 52 20 4E 4F 2E 20 4C 49 4E 45 53 20 50 |NTER NO. LINES P|
000029B0: 45 52 20 50 41 47 45 22 3B 3A 8D 31 30 30 32 30 |ER PAGE";:.10020|
000029C0: 00 EE 31 04 0B 50 4C B2 C5 28 53 24 29 AB 34 3A |..1..PL..(S$).4:|
000029D0: 8B 50 4C B3 31 A7 99 22 91 22 53 50 24 3A 99 22 |.PL.1.."."SP$:."|
000029E0: 91 91 22 3B 3A 89 32 38 31 30 00 01 32 18 0B 8B |..";:.2810..2...|
000029F0: 43 48 25 28 32 29 B2 30 A7 32 38 37 30 00 28 32 |CH%(2).0.2870.(2|
00002A00: 22 0B 99 22 11 1C 20 45 4E 54 45 52 20 4E 4F 2E |"..".. ENTER NO.|
00002A10: 20 4C 49 4E 45 20 46 45 45 44 53 22 3B 3A 8D 31 | LINE FEEDS";:.1|
00002A20: 30 30 32 30 00 50 32 2C 0B 4C 4E B2 C5 28 53 24 |0020.P2,.LN..(S$|
00002A30: 29 3A 8B 4C 4E B3 30 A7 99 22 91 22 53 50 24 3A |):.LN.0.."."SP$:|
00002A40: 99 22 91 91 22 3B 3A 89 32 38 35 30 00 63 32 36 |."..";:.2850.c26|
00002A50: 0B 8B 43 48 25 28 33 29 B2 30 A7 31 37 39 30 00 |..CH%(3).0.1790.|
00002A60: 8D 32 40 0B 99 22 11 1C 20 45 4E 54 45 52 20 53 |.2@..".. ENTER S|
00002A70: 45 43 4F 4E 44 41 52 59 20 41 44 44 52 45 53 53 |ECONDARY ADDRESS|
00002A80: 22 3B 3A 8D 31 30 30 32 30 00 BC 32 4A 0B 53 41 |";:.10020..2J.SA|
00002A90: B2 C5 28 53 24 29 3A 8B 53 41 B3 30 B0 53 41 B1 |..(S$):.SA.0.SA.|
00002AA0: 32 35 35 A7 99 22 91 22 53 50 24 3A 99 22 91 91 |255.."."SP$:."..|
00002AB0: 22 3B 3A 89 32 38 38 30 00 C6 32 54 0B 89 31 37 |";:.2880..2T..17|
00002AC0: 39 30 00 F8 32 5E 0B 9F 34 2C 50 44 2C 53 41 3A |90..2^..4,PD,SA:|
00002AD0: 99 22 93 9A 20 12 20 41 53 43 49 49 20 44 55 4D |.".. . ASCII DUM|
00002AE0: 50 20 41 20 48 49 50 45 52 42 41 53 45 20 46 49 |P A HIPERBASE FI|
00002AF0: 4C 45 20 22 00 16 33 68 0B A1 23 32 2C 41 24 3A |LE "..3h..#2,A$:|
00002B00: 8B 53 54 B2 30 A7 98 34 2C 41 24 3B 3A 89 32 39 |.ST.0..4,A$;:.29|
00002B10: 32 30 00 20 33 72 0B 89 32 36 30 30 00 3B 33 B8 |20. 3r..2600.;3.|
00002B20: 0B 8F 20 2A 2A 20 44 49 52 45 43 54 4F 52 59 20 |.. ** DIRECTORY |
00002B30: 44 49 53 4B 20 2A 2A 00 6A 33 C2 0B 99 22 93 22 |DISK **.j3..."."|
00002B40: A6 36 29 22 11 9A 12 20 44 49 52 45 43 54 4F 52 |.6)"... DIRECTOR|
00002B50: 59 20 4F 46 20 41 4E 59 20 44 49 53 4B 20 22 3A |Y OF ANY DISK ":|
00002B60: 8D 31 30 32 30 30 00 79 33 C4 0B 8B 45 52 B2 30 |.10200.y3...ER.0|
00002B70: A7 33 30 32 30 00 91 33 C6 0B 8D 31 30 32 32 30 |.3020..3...10220|
00002B80: 3A 8B 41 24 B2 22 59 22 A7 33 30 31 30 00 9B 33 |:.A$."Y".3010..3|
00002B90: C8 0B 89 31 37 31 30 00 D5 33 CC 0B 99 3A 41 24 |...1710..3...:A$|
00002BA0: B2 22 50 4C 45 41 53 45 20 45 4E 54 45 52 20 44 |."PLEASE ENTER D|
00002BB0: 49 52 45 43 54 4F 52 59 20 53 54 59 4C 45 20 41 |IRECTORY STYLE A|
00002BC0: 4E 44 20 44 45 56 49 43 45 22 3A 8D 31 30 31 32 |ND DEVICE":.1012|
00002BD0: 30 00 0B 34 CE 0B 99 22 11 9F 20 31 5D 20 4C 49 |0..4...".. 1] LI|
00002BE0: 53 54 20 41 4C 4C 20 46 49 4C 45 53 22 3A 99 22 |ST ALL FILES":."|
00002BF0: 20 32 5D 20 4C 49 53 54 20 53 45 51 20 46 49 4C | 2] LIST SEQ FIL|
00002C00: 45 53 20 4F 4E 4C 59 00 3F 34 D0 0B 99 22 20 33 |ES ONLY.?4..." 3|
00002C10: 5D 20 4F 55 54 50 55 54 20 54 4F 20 50 52 49 4E |] OUTPUT TO PRIN|
00002C20: 54 45 52 22 3A 99 22 20 34 5D 20 4F 55 54 50 55 |TER":." 4] OUTPU|
00002C30: 54 20 54 4F 20 53 43 52 45 45 4E 00 68 34 D6 0B |T TO SCREEN.h4..|
00002C40: 42 B2 38 3A 4E 43 B2 34 3A 42 24 B2 43 52 24 AA |B.8:NC.4:B$.CR$.|
00002C50: 22 31 32 33 34 22 3A 8D 31 30 31 39 30 3A 8D 31 |"1234":.10190:.1|
00002C60: 30 31 33 30 00 8E 34 E0 0B 8B 44 4C B2 30 A7 41 |0130..4...DL.0.A|
00002C70: B2 31 3A 8D 31 30 31 35 30 3A 41 B2 34 3A 8D 31 |.1:.10150:A.4:.1|
00002C80: 30 31 35 30 3A 89 33 30 36 30 00 CF 34 EA 0B 8B |0150:.3060..4...|
00002C90: 28 43 48 25 28 31 29 AA 43 48 25 28 32 29 B3 B1 |(CH%(1).CH%(2)..|
00002CA0: 31 29 B0 28 43 48 25 28 33 29 AA 43 48 25 28 34 |1).(CH%(3).CH%(4|
00002CB0: 29 B3 B1 31 29 B0 44 4C B3 B1 32 A7 99 C8 28 43 |)..1).DL..2...(C|
00002CC0: 44 24 2C 37 29 3A 89 33 30 32 32 00 F5 34 F4 0B |D$,7):.3022..4..|
00002CD0: 99 C8 28 43 44 24 2C 31 34 29 3A 8B 43 48 25 28 |..(CD$,14):.CH%(|
00002CE0: 33 29 A7 9F 34 2C 50 44 2C 53 41 3A 89 33 30 37 |3)..4,PD,SA:.307|
00002CF0: 30 00 FE 34 F9 0B 9F 34 2C 33 00 1F 35 FE 0B 4E |0..4...4,3..5..N|
00002D00: 41 24 B2 22 24 22 3A 8B 43 48 25 28 32 29 A7 4E |A$."$":.CH%(2).N|
00002D10: 41 24 B2 22 24 2A 3D 53 45 51 22 00 41 35 08 0C |A$."$*=SEQ".A5..|
00002D20: 9F 31 2C 44 44 2C 30 2C 4E 41 24 3A 8D 31 30 32 |.1,DD,0,NA$:.102|
00002D30: 31 30 3A 8B 45 52 B2 30 A7 33 30 38 35 00 5A 35 |10:.ER.0.3085.Z5|
00002D40: 09 0C 8B 41 24 B2 22 59 22 A7 8D 31 30 32 36 30 |...A$."Y"..10260|
00002D50: 3A 89 33 30 38 30 00 64 35 0A 0C 89 33 31 34 30 |:.3080.d5...3140|
00002D60: 00 79 35 0D 0C A1 23 31 2C 41 24 2C 41 24 3A 98 |.y5...#1,A$,A$:.|
00002D70: 34 2C 43 52 24 00 96 35 12 0C A1 23 31 2C 41 24 |4,CR$..5...#1,A$|
00002D80: 2C 41 24 2C 41 24 2C 42 24 3A 8B 53 54 A7 33 31 |,A$,A$,B$:.ST.31|
00002D90: 34 30 00 B6 35 1C 0C 98 34 2C C6 28 41 24 AA 4E |40..5...4,.(A$.N|
00002DA0: 4C 24 29 AA C6 28 42 24 AA 4E 4C 24 29 AC 32 35 |L$)..(B$.NL$).25|
00002DB0: 36 3B 00 D6 35 26 0C A1 23 31 2C 41 24 3A 8B 41 |6;..5&..#1,A$:.A|
00002DC0: 24 B2 22 22 A7 98 34 2C 43 52 24 3B 3A 89 33 30 |$.""..4,CR$;:.30|
00002DD0: 39 30 00 E3 35 30 0C 8B 53 54 A7 33 31 34 30 00 |90..50..ST.3140.|
00002DE0: F4 35 3A 0C 98 34 2C 41 24 3B 3A 89 33 31 31 30 |.5:..4,A$;:.3110|
00002DF0: 00 11 36 44 0C 98 34 2C 43 52 24 3A A0 31 3A A0 |..6D..4,CR$:.1:.|
00002E00: 34 3A 8D 31 30 32 36 30 3A 89 31 33 30 00 2B 36 |4:.10260:.130.+6|
00002E10: 80 0C 8F 20 2A 2A 20 44 45 4C 45 54 45 20 41 20 |... ** DELETE A |
00002E20: 46 49 4C 45 20 2A 2A 00 5A 36 8A 0C 99 22 93 22 |FILE **.Z6..."."|
00002E30: A6 31 30 29 22 11 9A 12 20 44 45 4C 45 54 45 20 |.10)"... DELETE |
00002E40: 41 4E 59 20 44 49 53 4B 20 46 49 4C 45 20 22 3A |ANY DISK FILE ":|
00002E50: 8D 31 30 32 30 30 00 69 36 8C 0C 8B 45 52 B2 30 |.10200.i6...ER.0|
00002E60: A7 33 32 32 30 00 81 36 8E 0C 8D 31 30 32 32 30 |.3220..6...10220|
00002E70: 3A 8B 41 24 B2 22 59 22 A7 33 32 31 30 00 8B 36 |:.A$."Y".3210..6|
00002E80: 90 0C 89 31 37 31 30 00 A4 36 94 0C 8D 31 30 32 |...1710..6...102|
00002E90: 38 30 3A A0 32 3A 8B 45 52 B2 30 A7 33 32 32 35 |80:.2:.ER.0.3225|
00002EA0: 00 B5 36 95 0C 8B 41 24 B2 22 4E 22 A7 33 32 39 |..6...A$."N".329|
00002EB0: 30 00 BF 36 96 0C 89 33 32 32 30 00 D7 36 99 0C |0..6...3220..6..|
00002EC0: 8D 31 30 33 38 30 3A 8B 41 24 B2 22 4E 22 A7 33 |.10380:.A$."N".3|
00002ED0: 32 39 30 00 01 37 9E 0C 99 22 1E 11 20 44 45 4C |290..7...".. DEL|
00002EE0: 45 54 49 4E 47 20 46 49 4C 45 22 3A 98 31 35 2C |ETING FILE":.15,|
00002EF0: 22 53 3A 22 53 24 3A 8D 31 30 32 31 30 00 1F 37 |"S:"S$:.10210..7|
00002F00: A8 0C 8B 45 52 B1 31 A7 8D 31 30 32 32 30 3A 8B |...ER.1..10220:.|
00002F10: 41 24 B2 22 59 22 A7 33 32 32 30 00 2E 37 B2 0C |A$."Y".3220..7..|
00002F20: 8B 45 52 B1 31 A7 33 32 39 30 00 6D 37 BC 0C 8B |.ER.1.3290.m7...|
00002F30: 54 45 B2 30 A7 99 22 11 1C 2A 20 45 52 52 4F 52 |TE.0.."..* ERROR|
00002F40: 20 2A 20 46 49 4C 45 20 4E 4F 54 20 44 45 4C 45 | * FILE NOT DELE|
00002F50: 54 45 44 20 22 3A 8D 31 30 32 34 30 3A 8B 41 24 |TED ":.10240:.A$|
00002F60: B2 22 59 22 A7 33 32 32 30 00 7C 37 C6 0C 8B 54 |."Y".3220.|7...T|
00002F70: 45 B2 30 A7 33 32 39 30 00 9E 37 D0 0C 99 22 11 |E.0.3290..7...".|
00002F80: 9A 4F 4B 2C 22 53 24 22 20 48 41 53 20 42 45 45 |.OK,"S$" HAS BEE|
00002F90: 4E 20 44 45 4C 45 54 45 44 22 00 AE 37 DA 0C 8D |N DELETED"..7...|
00002FA0: 31 30 32 36 30 3A 89 31 33 30 00 CA 37 E4 0C 8F |10260:.130..7...|
00002FB0: 20 2A 2A 20 55 4E 44 45 4C 45 54 45 20 41 20 46 | ** UNDELETE A F|
00002FC0: 49 4C 45 20 2A 2A 00 FB 37 EE 0C 99 22 93 22 A6 |ILE **..7...".".|
00002FD0: 38 29 22 11 9A 12 20 55 4E 44 45 4C 45 54 45 20 |8)"... UNDELETE |
00002FE0: 41 20 44 45 4C 45 54 45 44 20 46 49 4C 45 20 22 |A DELETED FILE "|
00002FF0: 3A 8D 31 30 32 30 30 00 0A 38 F0 0C 8B 45 52 B2 |:.10200..8...ER.|
00003000: 30 A7 33 33 32 30 00 22 38 F2 0C 8D 31 30 32 32 |0.3320."8...1022|
00003010: 30 3A 8B 41 24 B2 22 59 22 A7 33 33 31 30 00 2C |0:.A$."Y".3310.,|
00003020: 38 F4 0C 89 31 37 31 30 00 6A 38 F8 0C 99 22 9F |8...1710.j8...".|
00003030: 11 20 4C 4F 4F 4B 49 4E 47 20 46 4F 52 20 44 45 |. LOOKING FOR DE|
00003040: 4C 45 54 45 44 20 46 49 4C 45 53 20 2E 2E 2E 22 |LETED FILES ..."|
00003050: 3A 54 B2 31 38 3A 53 B2 30 3A 9F 32 2C 44 44 2C |:T.18:S.0:.2,DD,|
00003060: 32 2C 22 23 32 22 00 90 38 02 0D 98 31 35 2C 22 |2,"#2"..8...15,"|
00003070: 55 31 3A 32 20 30 22 54 3B 53 3A 8D 31 30 32 31 |U1:2 0"T;S:.1021|
00003080: 30 3A 8B 45 52 B2 30 A7 33 33 36 30 00 A4 38 0C |0:.ER.0.3360..8.|
00003090: 0D A0 32 3A 8B 41 24 B2 22 59 22 A7 33 33 31 30 |..2:.A$."Y".3310|
000030A0: 00 AE 38 16 0D 89 33 32 39 30 00 EE 38 20 0D 44 |..8...3290..8 .D|
000030B0: 4C B2 30 3A 98 31 35 2C 22 4D 2D 52 22 4E 4C 24 |L.0:.15,"M-R"NL$|
000030C0: C7 28 35 29 3A A1 23 31 35 2C 41 24 3A 54 54 B2 |.(5):.#15,A$:TT.|
000030D0: C6 28 41 24 AA 4E 4C 24 29 3A 8B 54 54 B2 30 B0 |.(A$.NL$):.TT.0.|
000030E0: 54 54 B1 33 35 A7 33 34 37 30 00 19 39 2A 0D 98 |TT.35.3470..9*..|
000030F0: 31 35 2C 22 4D 2D 52 22 C7 28 31 29 C7 28 35 29 |15,"M-R".(1).(5)|
00003100: 3A A1 23 31 35 2C 41 24 3A 53 53 B2 C6 28 41 24 |:.#15,A$:SS..(A$|
00003110: AA 4E 4C 24 29 00 41 39 34 0D 98 31 35 2C 22 55 |.NL$).A94..15,"U|
00003120: 31 3A 32 20 30 22 54 54 3B 53 53 3A 8D 31 30 32 |1:2 0"TT;SS:.102|
00003130: 31 30 3A 8B 45 52 B2 30 A7 33 34 31 30 00 56 39 |10:.ER.0.3410.V9|
00003140: 3E 0D 8B 41 24 B2 22 4E 22 A7 A0 32 3A 89 33 32 |>..A$."N"..2:.32|
00003150: 39 30 00 60 39 48 0D 89 33 33 38 30 00 86 39 52 |90.`9H..3380..9R|
00003160: 0D 81 50 B2 30 A4 32 35 35 3A A1 23 32 2C 41 24 |..P.0.255:.#2,A$|
00003170: 3A 5A 25 28 50 29 B2 C6 28 41 24 AA 4E 4C 24 29 |:Z%(P)..(A$.NL$)|
00003180: 3A 82 00 A2 39 5C 0D 81 50 B2 32 A4 32 35 35 A9 |:...9\..P.2.255.|
00003190: 33 32 3A 8B 5A 25 28 50 29 A7 33 34 36 30 00 BF |32:.Z%(P).3460..|
000031A0: 39 66 0D 8B 5A 25 28 50 AA 31 29 B2 30 A7 50 B2 |9f..Z%(P.1).0.P.|
000031B0: 32 35 36 3A 82 3A 89 33 34 37 30 00 F3 39 70 0D |256:.:.3470..9p.|
000031C0: 99 22 11 9C 46 4F 55 4E 44 20 2D 20 22 51 4F 24 |."..FOUND - "QO$|
000031D0: 3B 3A 81 5A B2 50 AA 33 A4 50 AA 31 38 3A 99 C7 |;:.Z.P.3.P.18:..|
000031E0: 28 5A 25 28 5A 29 29 3B 3A 82 3A 99 51 4F 24 00 |(Z%(Z));:.:.QO$.|
000031F0: 2A 3A 7A 0D 98 31 35 2C 22 4D 2D 57 22 C7 28 50 |*:z..15,"M-W".(P|
00003200: 29 C7 28 35 29 C7 28 31 29 C7 28 31 32 39 29 3A |).(5).(1).(129):|
00003210: 98 31 35 2C 22 55 32 3A 32 20 30 22 54 54 3B 53 |.15,"U2:2 0"TT;S|
00003220: 53 3A 44 4C B2 31 00 48 3A 84 0D 82 3A 54 54 B2 |S:DL.1.H:...:TT.|
00003230: 5A 25 28 30 29 3A 53 53 B2 5A 25 28 31 29 3A 89 |Z%(0):SS.Z%(1):.|
00003240: 33 33 38 30 00 65 3A 8E 0D 99 22 11 9A 20 4E 4F |3380.e:...".. NO|
00003250: 20 22 3B 3A 8B 44 4C A7 99 22 4D 4F 52 45 20 22 | ";:.DL.."MORE "|
00003260: 3B 00 8F 3A 98 0D 99 22 44 45 4C 45 54 45 44 20 |;..:..."DELETED |
00003270: 46 49 4C 45 53 20 46 4F 55 4E 44 22 3A A0 32 3A |FILES FOUND":.2:|
00003280: 8B 44 4C A7 98 31 35 2C 22 56 22 00 99 3A A2 0D |.DL..15,"V"..:..|
00003290: 89 33 32 39 30 00 BA 3A AC 0D 8F 20 2A 2A 20 44 |.3290..:... ** D|
000032A0: 45 46 49 4E 45 20 46 55 4E 43 54 49 4F 4E 20 4B |EFINE FUNCTION K|
000032B0: 45 59 53 20 2A 2A 00 E3 3A B6 0D 99 22 93 22 A6 |EYS **..:...".".|
000032C0: 38 29 22 11 9A 12 20 44 45 46 49 4E 45 20 38 20 |8)"... DEFINE 8 |
000032D0: 46 55 4E 43 54 49 4F 4E 20 4B 45 59 53 20 22 00 |FUNCTION KEYS ".|
000032E0: 27 3B C0 0D 99 22 11 1E 20 43 55 52 52 45 4E 54 |';...".. CURRENT|
000032F0: 20 57 4F 52 44 53 20 41 52 45 20 3A 2D 11 9F 22 | WORDS ARE :-.."|
00003300: 3A 81 54 B2 31 A4 38 3A 99 22 20 5B 46 22 C9 28 |:.T.1.8:." [F".(|
00003310: C4 28 54 29 2C 31 29 22 5D 20 22 46 4B 24 28 54 |.(T),1)"] "FK$(T|
00003320: 29 3A 82 00 5B 3B CA 0D 8D 31 30 32 36 30 3A 99 |):..[;...10260:.|
00003330: 22 93 11 11 22 3A 41 24 B2 22 45 4E 54 45 52 20 |"...":A$."ENTER |
00003340: 4F 50 54 49 4F 4E 20 52 45 51 55 49 52 45 44 22 |OPTION REQUIRED"|
00003350: 3A 8D 31 30 31 32 30 00 A1 3B D4 0D 99 22 11 9F |:.10120..;..."..|
00003360: 20 31 5D 20 44 45 46 49 4E 45 20 46 55 4E 43 54 | 1] DEFINE FUNCT|
00003370: 49 4F 4E 20 4B 45 59 20 5B 46 31 2D 38 5D 22 3A |ION KEY [F1-8]":|
00003380: 99 22 20 32 5D 20 43 4C 45 41 52 20 41 4C 4C 20 |." 2] CLEAR ALL |
00003390: 46 55 4E 43 54 49 4F 4E 20 4B 45 59 53 00 E1 3B |FUNCTION KEYS..;|
000033A0: DE 0D 99 22 20 33 5D 20 56 49 45 57 20 43 55 52 |..." 3] VIEW CUR|
000033B0: 52 45 4E 54 20 46 55 4E 43 54 49 4F 4E 20 4B 45 |RENT FUNCTION KE|
000033C0: 59 20 57 4F 52 44 53 22 3A 99 22 20 34 5D 20 52 |Y WORDS":." 4] R|
000033D0: 45 54 55 52 4E 20 54 4F 20 4D 45 4E 55 00 1B 3C |ETURN TO MENU..<|
000033E0: E8 0D 42 B2 36 3A 4E 43 B2 34 3A 42 24 B2 43 52 |..B.6:NC.4:B$.CR|
000033F0: 24 AA 22 31 32 33 34 22 3A 8D 31 30 31 39 30 3A |$."1234":.10190:|
00003400: 8D 31 30 31 33 30 3A 8B 44 4C B2 30 A7 41 B2 31 |.10130:.DL.0.A.1|
00003410: 3A 8D 31 30 31 35 30 00 35 3C F2 0D 99 C8 28 43 |:.10150.5<....(C|
00003420: 44 24 2C 31 32 29 3A 8B 4F 50 B2 34 A7 33 32 39 |D$,12):.OP.4.329|
00003430: 30 00 77 3C FC 0D 8B 4F 50 B2 32 A7 99 22 11 1C |0.w<...OP.2.."..|
00003440: 12 20 46 55 4E 43 54 49 4F 4E 20 4B 45 59 53 20 |. FUNCTION KEYS |
00003450: 43 4C 45 41 52 45 44 20 92 22 3A 81 54 B2 31 A4 |CLEARED .":.T.1.|
00003460: 38 3A 46 4B 24 28 54 29 B2 22 22 3A 82 3A 89 33 |8:FK$(T)."":.:.3|
00003470: 35 33 30 00 8E 3C 06 0E 8B 4F 50 B2 33 A7 99 22 |530..<...OP.3.."|
00003480: 93 11 11 22 3A 89 33 35 32 30 00 CC 3C 10 0E 99 |...":.3520..<...|
00003490: 22 11 9A 20 48 49 54 20 46 55 4E 43 54 49 4F 4E |".. HIT FUNCTION|
000034A0: 20 4B 45 59 20 54 4F 20 42 45 20 44 45 46 49 4E | KEY TO BE DEFIN|
000034B0: 45 44 22 3A 42 24 B2 22 85 86 87 88 89 8A 8B 8C |ED":B$."........|
000034C0: 22 3A 8D 31 30 30 39 30 00 F0 3C 15 0E 42 B2 C6 |":.10090..<..B..|
000034D0: 28 41 24 29 AB 31 33 32 3A 8B 42 B3 35 A7 44 4C |(A$).132:.B.5.DL|
000034E0: B2 42 AC 32 AB 31 3A 89 33 36 31 30 00 FD 3C 17 |.B.2.1:.3610..<.|
000034F0: 0E 44 4C B2 42 AC 32 AB 38 00 29 3D 1A 0E 99 22 |.DL.B.2.8.)=..."|
00003500: 11 1E 45 4E 54 45 52 20 5B 46 22 C9 28 C4 28 44 |..ENTER [F".(.(D|
00003510: 4C 29 2C 31 29 22 5D 20 57 4F 52 44 22 3B 3A 8D |L),1)"] WORD";:.|
00003520: 31 30 30 32 30 00 63 3D 24 0E 46 4B 24 28 44 4C |10020.c=$.FK$(DL|
00003530: 29 B2 53 24 3A 99 22 9A 11 12 20 44 45 46 49 4E |).S$:."... DEFIN|
00003540: 45 20 41 4E 59 20 4D 4F 52 45 20 4B 45 59 53 20 |E ANY MORE KEYS |
00003550: 28 59 2F 4E 29 20 22 3B 3A 8D 31 30 31 38 30 00 |(Y/N) ";:.10180.|
00003560: 74 3D 2E 0E 8B 41 24 B2 22 59 22 A7 33 36 30 30 |t=...A$."Y".3600|
00003570: 00 7E 3D 38 0E 89 33 35 33 30 00 9B 3D 42 0E 8F |.~=8..3530..=B..|
00003580: 20 2A 2A 20 52 45 4E 41 4D 45 20 44 49 53 4B 20 | ** RENAME DISK |
00003590: 46 49 4C 45 20 2A 2A 00 CA 3D 4C 0E 99 22 93 22 |FILE **..=L.."."|
000035A0: A6 31 30 29 22 11 9A 12 20 52 45 4E 41 4D 45 20 |.10)"... RENAME |
000035B0: 41 4E 59 20 44 49 53 4B 20 46 49 4C 45 20 22 3A |ANY DISK FILE ":|
000035C0: 8D 31 30 32 30 30 00 D9 3D 4E 0E 8B 45 52 B2 30 |.10200..=N..ER.0|
000035D0: A7 33 36 37 30 00 F1 3D 50 0E 8D 31 30 32 32 30 |.3670..=P..10220|
000035E0: 3A 8B 41 24 B2 22 59 22 A7 33 36 36 30 00 FB 3D |:.A$."Y".3660..=|
000035F0: 52 0E 89 31 37 31 30 00 14 3E 56 0E 8D 31 30 32 |R..1710..>V..102|
00003600: 38 30 3A A0 32 3A 8B 45 52 B2 30 A7 33 36 39 35 |80:.2:.ER.0.3695|
00003610: 00 25 3E 60 0E 8B 41 24 B2 22 4E 22 A7 33 32 39 |.%>`..A$."N".329|
00003620: 30 00 2F 3E 6A 0E 89 33 36 37 30 00 6A 3E 6F 0E |0./>j..3670.j>o.|
00003630: 99 22 11 45 4E 54 45 52 20 12 4E 45 57 92 20 46 |.".ENTER .NEW. F|
00003640: 49 4C 45 20 4E 41 4D 45 22 3B 3A 8D 31 30 30 32 |ILE NAME";:.1002|
00003650: 30 3A 8B 53 24 B2 22 22 A7 53 24 B2 22 43 36 34 |0:.S$."".S$."C64|
00003660: 20 44 41 54 41 22 00 7C 3E 70 0E 8B 53 24 B3 B1 | DATA".|>p..S$..|
00003670: 4E 41 24 A7 33 37 30 30 00 B4 3E 71 0E 99 22 11 |NA$.3700..>q..".|
00003680: 1C 12 20 46 49 4C 45 20 4E 41 4D 45 53 20 41 52 |.. FILE NAMES AR|
00003690: 45 20 54 48 45 20 53 41 4D 45 20 22 3A 8D 31 30 |E THE SAME ":.10|
000036A0: 32 34 30 3A 8B 41 24 B2 22 4E 22 A7 33 32 39 30 |240:.A$."N".3290|
000036B0: 00 BE 3E 72 0E 89 33 36 37 30 00 F9 3E 74 0E 99 |..>r..3670..>t..|
000036C0: 22 1E 11 20 52 45 4E 41 4D 49 4E 47 20 46 49 4C |".. RENAMING FIL|
000036D0: 45 22 3A 98 31 35 2C 22 52 3A 22 53 24 22 3D 22 |E":.15,"R:"S$"="|
000036E0: 4E 41 24 3A 8D 31 30 32 31 30 3A 8B 45 52 B2 30 |NA$:.10210:.ER.0|
000036F0: A7 33 32 39 30 00 11 3F 7E 0E 8D 31 30 32 32 30 |.3290..?~..10220|
00003700: 3A 8B 41 24 B2 22 59 22 A7 33 36 37 30 00 1B 3F |:.A$."Y".3670..?|
00003710: 88 0E 89 33 32 39 30 00 36 3F A0 0F 8F 20 2A 2A |...3290.6?... **|
00003720: 20 52 45 2D 52 55 4E 20 50 52 4F 47 52 41 4D 20 | RE-RUN PROGRAM |
00003730: 2A 2A 00 6E 3F AA 0F 99 22 93 22 A6 31 30 29 22 |**.n?...".".10)"|
00003740: 9A 20 12 20 52 45 53 45 54 20 48 49 50 45 52 42 |. . RESET HIPERB|
00003750: 41 53 45 20 92 11 22 3A 8D 31 30 33 38 30 3A 8B |ASE ..":.10380:.|
00003760: 41 24 B2 22 59 22 A7 9C 3A 8A 00 7E 3F B4 0F 8D |A$."Y"..:..~?...|
00003770: 31 30 32 36 30 3A 89 31 33 30 00 84 3F 0F 27 80 |10260:.130..?.'.|
00003780: 00 9E 3F 10 27 8F 20 2A 2A 2A 20 53 55 42 52 4F |..?.'. *** SUBRO|
00003790: 55 54 49 4E 45 53 20 2A 2A 2A 00 AE 3F 1A 27 81 |UTINES ***..?.'.|
000037A0: 54 B2 31 A4 44 4C 3A 82 3A 8E 00 C9 3F 24 27 97 |T.1.DL:.:...?$'.|
000037B0: 31 39 38 2C 30 3A 53 24 B2 22 22 3A 99 22 20 2D |198,0:S$."":." -|
000037C0: 20 A4 9D 22 3B 00 E8 3F 2E 27 A1 41 24 3A 41 B2 | ..";..?.'.A$:A.|
000037D0: C6 28 41 24 AA 4E 4C 24 29 3A 8B 41 B2 30 A7 31 |.(A$.NL$):.A.0.1|
000037E0: 30 30 33 30 00 F9 3F 38 27 8B 41 B2 31 33 A7 99 |0030..?8'.A.13..|
000037F0: 22 20 22 3A 8E 00 0F 40 42 27 8B 41 B2 32 30 AF |" ":...@B'.A.20.|
00003800: 53 24 B2 22 22 A7 31 30 30 33 30 00 3A 40 4C 27 |S$."".10030.:@L'|
00003810: 8B 41 B2 32 30 A7 53 24 B2 C8 28 53 24 2C C3 28 |.A.20.S$..(S$,.(|
00003820: 53 24 29 AB 31 29 3A 99 41 24 22 A4 9D 22 3B 3A |S$).1):.A$"..";:|
00003830: 89 31 30 30 33 30 00 60 40 51 27 8B 41 B1 31 33 |.10030.`@Q'.A.13|
00003840: 32 AF 41 B3 31 34 31 A7 41 24 B2 46 4B 24 28 41 |2.A.141.A$.FK$(A|
00003850: AB 31 33 32 29 3A 89 31 30 30 38 30 00 75 40 56 |.132):.10080.u@V|
00003860: 27 8B 41 B3 33 32 B0 41 B1 39 35 A7 31 30 30 33 |'.A.32.A.95.1003|
00003870: 30 00 92 40 60 27 53 24 B2 53 24 AA 41 24 3A 99 |0..@`'S$.S$.A$:.|
00003880: 41 24 22 A4 9D 22 3B 3A 89 31 30 30 33 30 00 9D |A$"..";:.10030..|
00003890: 40 6A 27 97 31 39 38 2C 30 00 B2 40 6F 27 A1 41 |@j'.198,0..@o'.A|
000038A0: 24 3A 8B 41 24 B2 22 22 A7 31 30 30 39 35 00 DB |$:.A$."".10095..|
000038B0: 40 74 27 81 54 B2 31 A4 C3 28 42 24 29 3A 8B 41 |@t'.T.1..(B$):.A|
000038C0: 24 B2 CA 28 42 24 2C 54 2C 31 29 A7 54 B2 C3 28 |$..(B$,T,1).T..(|
000038D0: 42 24 29 3A 82 3A 8E 00 E8 40 7E 27 82 3A 89 31 |B$):.:...@~'.:.1|
000038E0: 30 30 39 30 00 0C 41 88 27 41 B2 C3 28 41 24 29 |0090..A.'A..(A$)|
000038F0: 3A 99 41 24 C8 28 42 53 24 2C 41 AA 31 29 C8 28 |:.A$.(BS$,A.1).(|
00003900: 55 4C 24 2C 41 29 3A 8E 00 28 41 92 27 44 4C B2 |UL$,A):..(A.'DL.|
00003910: 30 3A 81 54 B2 31 A4 4E 43 3A 43 48 25 28 54 29 |0:.T.1.NC:CH%(T)|
00003920: B2 30 3A 82 00 3D 41 97 27 8D 31 30 30 39 30 3A |.0:..=A.'.10090:|
00003930: 8B 41 24 B2 43 52 24 A7 8E 00 5F 41 9C 27 41 B2 |.A$.CR$..._A.'A.|
00003940: C5 28 41 24 29 3A 8D 31 30 31 35 30 3A 44 4C B2 |.(A$):.10150:DL.|
00003950: 44 4C AA 31 3A 89 31 30 31 33 35 00 82 41 A6 27 |DL.1:.10135..A.'|
00003960: 99 C8 28 43 44 24 2C 41 AA 42 29 22 3E 22 3A 8B |..(CD$,A.B)">":.|
00003970: 43 48 25 28 41 29 A7 44 4C B2 44 4C AB 31 00 96 |CH%(A).DL.DL.1..|
00003980: 41 B0 27 43 48 25 28 41 29 B2 31 3A 4F 50 B2 41 |A.'CH%(A).1:OP.A|
00003990: 3A 8E 00 C6 41 BA 27 99 C8 28 43 44 24 2C 42 AA |:...A.'..(CD$,B.|
000039A0: 4E 43 AA 34 29 22 12 20 41 52 45 20 54 48 45 53 |NC.4)". ARE THES|
000039B0: 45 20 43 4F 52 52 45 43 54 20 28 59 2F 4E 29 20 |E CORRECT (Y/N) |
000039C0: 22 3B 00 DF 41 C4 27 42 24 B2 22 59 4E 22 3A 8D |";..A.'B$."YN":.|
000039D0: 31 30 30 39 30 3A 99 41 24 3A 8E 00 12 42 CE 27 |10090:.A$:...B.'|
000039E0: 99 22 11 9A 45 4E 54 45 52 20 4F 50 54 49 4F 4E |."..ENTER OPTION|
000039F0: 20 4E 55 4D 42 45 52 53 20 26 20 52 45 54 55 52 | NUMBERS & RETUR|
00003A00: 4E 20 54 4F 20 46 49 4E 49 53 48 22 3A 8E 00 50 |N TO FINISH":..P|
00003A10: 42 D8 27 99 22 11 9C 49 4E 53 45 52 54 20 44 41 |B.'."..INSERT DA|
00003A20: 54 41 20 44 49 53 4B 20 49 4E 54 4F 20 44 52 49 |TA DISK INTO DRI|
00003A30: 56 45 2C 48 49 54 20 41 20 4B 45 59 22 3A 8D 31 |VE,HIT A KEY":.1|
00003A40: 30 32 35 30 3A 98 31 35 2C 22 49 22 00 67 42 E2 |0250:.15,"I".gB.|
00003A50: 27 84 31 35 2C 45 52 2C 45 52 24 2C 54 45 2C 53 |'.15,ER,ER$,TE,S|
00003A60: 45 3A 8E 00 99 42 EC 27 99 22 11 1C 2A 20 44 49 |E:...B.'."..* DI|
00003A70: 53 4B 20 45 52 52 4F 52 20 2A 20 23 22 45 52 3B |SK ERROR * #"ER;|
00003A80: 45 52 24 3B 3A 8B 54 45 A7 99 22 20 4F 4E 22 54 |ER$;:.TE.." ON"T|
00003A90: 45 3B 53 45 3B 00 A3 42 F6 27 99 43 52 24 3B 00 |E;SE;..B.'.CR$;.|
00003AA0: C9 42 00 28 99 22 11 9A 12 20 54 52 59 20 41 47 |.B.(."... TRY AG|
00003AB0: 41 49 4E 20 28 59 2F 4E 29 20 22 3B 3A 8D 31 30 |AIN (Y/N) ";:.10|
00003AC0: 31 38 30 3A 8E 00 E4 42 0A 28 97 31 39 38 2C 30 |180:...B.(.198,0|
00003AD0: 3A 92 31 39 38 2C 31 3A 97 31 39 38 2C 30 3A 8E |:.198,1:.198,0:.|
00003AE0: 00 0D 43 14 28 99 A6 35 29 22 9A 12 11 20 50 52 |..C.(..5)"... PR|
00003AF0: 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 |ESS ANY KEY TO C|
00003B00: 4F 4E 54 49 4E 55 45 20 22 00 1A 43 1E 28 8D 31 |ONTINUE "..C.(.1|
00003B10: 30 32 35 30 3A 8E 00 4F 43 28 28 99 22 11 45 4E |0250:..OC((.".EN|
00003B20: 54 45 52 20 46 49 4C 45 20 4E 41 4D 45 22 3B 3A |TER FILE NAME";:|
00003B30: 8D 31 30 30 32 30 3A 8B 53 24 B2 22 22 A7 53 24 |.10020:.S$."".S$|
00003B40: B2 22 43 36 34 20 44 41 54 41 22 00 7E 43 32 28 |."C64 DATA".~C2(|
00003B50: 4E 41 24 B2 53 24 3A 9F 32 2C 44 44 2C 32 2C 53 |NA$.S$:.2,DD,2,S|
00003B60: 24 AA 22 2C 53 2C 22 AA 54 59 24 3A 8D 31 30 32 |$.",S,".TY$:.102|
00003B70: 31 30 3A 8B 45 52 B2 30 A7 8E 00 8B 43 3C 28 8D |10:.ER.0....C<(.|
00003B80: 31 30 32 32 30 3A 8E 00 B7 43 46 28 99 22 11 45 |10220:...CF(.".E|
00003B90: 4E 54 45 52 20 43 55 52 52 45 4E 54 20 44 41 54 |NTER CURRENT DAT|
00003BA0: 45 22 3B 3A 8D 31 30 30 32 30 3A 45 44 24 B2 53 |E";:.10020:ED$.S|
00003BB0: 24 3A 8E 00 E2 43 50 28 98 32 2C 51 4F 24 45 44 |$:...CP(.2,QO$ED|
00003BC0: 24 43 4F 24 45 44 24 43 4F 24 50 57 24 51 4F 24 |$CO$ED$CO$PW$QO$|
00003BD0: 43 52 24 C7 28 4E 46 29 51 4F 24 3B 3A 8E 00 07 |CR$.(NF)QO$;:...|
00003BE0: 44 5A 28 84 32 2C 44 41 24 2C 55 44 24 2C 50 57 |DZ(.2,DA$,UD$,PW|
00003BF0: 24 3A A1 23 32 2C 41 24 3A 4E 46 B2 C6 28 41 24 |$:.#2,A$:NF..(A$|
00003C00: 29 3A 8E 00 46 44 64 28 99 22 11 45 4E 54 45 52 |):..FDd(.".ENTER|
00003C10: 20 50 41 53 53 57 4F 52 44 20 5B 52 45 54 55 52 | PASSWORD [RETUR|
00003C20: 4E 20 49 46 20 4E 4F 4E 45 5D 22 3B 3A 8D 31 30 |N IF NONE]";:.10|
00003C30: 30 32 30 3A 41 24 B2 22 22 3A 8B 53 24 B2 22 22 |020:A$."":.S$.""|
00003C40: A7 8E 00 71 44 6E 28 81 54 B2 31 A4 C3 28 53 24 |...qDn(.T.1..(S$|
00003C50: 29 3A 41 24 B2 41 24 AA C7 28 C6 28 CA 28 53 24 |):A$.A$..(.(.(S$|
00003C60: 2C 54 2C 31 29 29 AA 54 29 3A 82 3A 8E 00 9C 44 |,T,1)).T):.:...D|
00003C70: 78 28 98 33 2C 51 4F 24 44 41 24 43 4F 24 45 44 |x(.3,QO$DA$CO$ED|
00003C80: 24 43 4F 24 50 57 24 51 4F 24 43 52 24 C7 28 4E |$CO$PW$QO$CR$.(N|
00003C90: 46 29 51 4F 24 3B 3A 8E 00 BA 44 82 28 81 54 B2 |F)QO$;:...D.(.T.|
00003CA0: 31 A4 4E 46 3A 98 33 2C 44 46 24 28 54 29 43 4F |1.NF:.3,DF$(T)CO|
00003CB0: 24 3B 3A 82 3A 8E 00 E3 44 8C 28 99 22 11 12 1C |$;:.:...D.(."...|
00003CC0: 20 41 52 45 20 59 4F 55 20 53 55 52 45 20 28 59 | ARE YOU SURE (Y|
00003CD0: 2F 4E 29 20 22 3B 3A 8D 31 30 31 38 30 3A 8E 00 |/N) ";:.10180:..|
00003CE0: 22 45 96 28 99 22 11 9A 12 20 45 4E 54 45 52 20 |"E.(."... ENTER |
00003CF0: 52 45 43 4F 52 44 20 23 22 4E 52 22 11 22 3A 81 |RECORD #"NR".":.|
00003D00: 54 B2 31 A4 4E 46 3A 99 22 45 4E 54 45 52 20 22 |T.1.NF:."ENTER "|
00003D10: 44 46 24 28 54 29 3B 3A 8D 31 30 30 32 30 00 4A |DF$(T);:.10020.J|
00003D20: 45 A0 28 8B 54 B2 31 AF 53 24 B2 22 58 58 58 22 |E.(.T.1.S$."XXX"|
00003D30: A7 98 4C 46 2C 53 24 51 4F 24 3A 54 B2 4E 46 3A |..LF,S$QO$:T.NF:|
00003D40: 82 3A A0 32 3A 8E 00 85 45 AA 28 54 45 24 28 54 |.:.2:...E.(TE$(T|
00003D50: 29 B2 53 24 3A 82 3A 99 22 11 9F 41 52 45 20 41 |).S$:.:."..ARE A|
00003D60: 4C 4C 20 46 49 45 4C 44 53 20 43 4F 52 52 45 43 |LL FIELDS CORREC|
00003D70: 54 20 28 59 2F 4E 29 20 22 3B 3A 8D 31 30 31 38 |T (Y/N) ";:.1018|
00003D80: 30 00 97 45 B4 28 8B 41 24 B2 22 4E 22 A7 31 30 |0..E.(.A$."N".10|
00003D90: 33 39 30 00 BE 45 BE 28 81 54 B2 31 A4 4E 46 3A |390..E.(.T.1.NF:|
00003DA0: 98 4C 46 2C 54 45 24 28 54 29 43 4F 24 3B 3A 82 |.LF,TE$(T)CO$;:.|
00003DB0: 3A 4E 52 B2 4E 52 AA 31 3A 8E 00 00 00 52 53 78 |:NR.NR.1:....RSx|
00003DC0: A2 0A A0 00 86 14 84 15 A2 BD A0 45 86 FC 84 FD |...........E....|
00003DD0: A0 00 A2 7B BD DE 45 9D 33 03 CA D0 F7 4C 84 03 |...{..E.3....L..|
00003DE0: 46 08 0A 00 97 35 33 32 38 31 2C 31 3A 97 35 33 |F....53281,1:.53|
00003DF0: 32 38 30 2C 31 3A 97 36 35 30 2C 30 3A 43 44 88 |280,1:.650,0:CD.|
00003E00: C0 FF D0 02 C6 FD B1 FC 85 FF 88 C0 FF D0 02 C6 |................|
00003E10: FD B1 FC C9 73 F0 2F 9D C1 45 CA E0 FF D0 06 CE |....s./..E......|
00003E20: 6D 03 CE 8C 03 C6 FF D0 EE 88 C0 FF D0 02 C6 FD |m...............|
00003E30: B1 FC C9 73 F0 C9 9D C1 45 CA E0 FF D0 EB CE 6D |...s....E......m|
00003E40: 03 CE 8C 03 D0 E3 A2 1F BD 33 03 9D 00 08 CA D0 |.........3......|
00003E50: F7 A9 73 A9 37 85 01 58 4C BC A8 43 C4 28 98 92 |..s.7..XL..C.(..|
00003E60: 00 A5 2D 18 65 2E C9 D6 F0 06 4C 00 23 4C 80 46 |..-.e.....L.#L.F|
00003E70: AD 0B 08 18 6D 0C 08 6D 0D 08 C9 EF F0 EF 4C 00 |....m..m......L.|
00003E80: 23 20 53 E4 4C 16 08 A2 00 8E 20 D0 4C 00 23 C0 |# S.L..... .L.#.|
00003E90: 92 |. |
.......2065 REX....0L`F.6..L.ESSS$.".":.
T.1.39:UL$.UL$.".":SP$.SP$." ".....NL$.G
(0):CR$.G(13):QO$.G(34):CO$.QO$.CR$.QO$:
MF.10:PL.62:LN.0:SA.0.J...CD$.CD$.".":BS
$.BS$.".":.:.".."H(CD$,11).10)"."H(SP$,2
3).....BS$.".".BS$:.TE$(MF),VT$(MF),MF%(
T),CH%(MF),Z%(255),FK$(8).?.....10)". H
Y P E R B A S E 64 ":..10)"."H(SP$,23).
..(.."..".7);:A$."WRITTEN BY G.R.LEECH
(C) 1984":.10120:DL.1000:.10010.A.<.."..
..":A$."PLEASE ENTER SYSTEM CONFIGURATIO
N":.10120...F..".. 1] SCREEN":." 2] CBM
PRINTER DEVICE #4":." 3] CBM PRINTER DEV
ICE #5.S.P.." 4] 1541 DISK DRIVE DEVICE
#8":." 5] 1541 DISK DRIVE DEVICE #9.}.Z.
.10190:B.6:B$.CR$."12345":NC.5:.10130...
D..DL.0.A.2:.10150:A.4:.10150:.110...I..
(CH%(1).CH%(2).CH%(3)..1).(CH%(3).CH%(4)
..1).DL..2.60...N..10170:.A$."N".60.9.X.
PD.CH%(1).3.CH%(2).4.CH%(3).5:DD.CH%(4).
8.CH%(5).9:.15,DD,15,"U;".V...."...":A$.
"PLEASE ENTER SERVICE REQUIRED":.10120:T
Y$."R".B....".. 1] CREATE FILE":." 2] ED
IT FILE":." 3] OUPUT FILE":." 4] DIRECTO
RY......" 5] DELETE FILE":." 6] UNDELETE
FILE":." 7] DEFINE FUNCTION KEYS.S. .."
8] RENAME FILE":." 9] RESET HIPERBASE":
B.6:NC.9:B$.CR$."123456789".V....10190:.
10130:.DL.0.A.3:.10150......OP.210,410,1
680,3010,3210,3310,3510,3660,4000......1
70.V.H.. *** CREATE A FILE SECTION ***..
.R..".".6)".. CREATE A NEW FILE SECTION
":.10200......ER.0.TY$."W":.250.6....102
20:.A$."Y".210.F....10260:.130.[....1028
0:.ER.0.280.N... 2:.A$."Y".250.W....240.
.....10310:.10340:PW$.A$..."..".ENTER NU
MBER OF FIELDS";:.10020:NF.E(S$)...,..NF
.MF .NF.0..". MAXIMUM FIELDS ="MF:.290.+
.6..:.T.1.NF:." ENTER NAME OF FIELD #"T;
:.10020:DF$(T).S$:..B.J..".. ARE THESE C
ORRECT (Y/N) ";:.10180:.A$."N".290...T..
10320:.T.1.NF:.2,DF$(T)CO$;:.:NR.1:LF.2.
U.^..".. START ENTERING RECORDS":."..ENT
ER 'XXX' IN 1ST FIELD TO END"...H..10390
:.S$."XXX".240...R..360...... * EDIT EXI
STING FILE SECTION *.O....".".6)".. EDIT
EXISTING FILE SECTION ":.10200.F....ER.
0.TY$."R":.450.}....10220:.A$."Y".410...
...10260:.130...B..10280:.ER.0.480...L.
2:.A$."Y".450...V..440......10310:.10330
:.PW$."".500......10340:.A$..PW$..".. .
ILLEGAL PASSWORD ": 2:.240.V....". DATE
CREATED "DA$:." LAST UPDATE "UD$:." NO.
OF FIELDS="NF......". FIELDS ARE:-.":.T
.1.NF:.2,A$:.T"] "A$:DF$(T).A$:..N....10
260:."...":A$."PLEASE ENTER EDIT TYPE RE
QUIRED":.10120......".. 1] SEQUENTIAL ED
IT":." 2] START AT RECORD NUMBER":." 3]
DELETE FIELD.W...." 4] ADD FIELD":." 5]
ADD RECORD":." 6] DELETE RECORD...&.." 7
] CHANGE PASSWORD":." 8] RETURN TO MENU.
..+.B.6:NC.9:B$.CR$."12345678":.10190:.1
0130.I.0..DL.0.A.1:.10150...:..OP.8.."..
": 2:.240...?.LF.3:.3,8,3,"@:TEMP DATA,S
,W":.10210:.ER.0.580.6.@..10220:.A$."Y".
.10260: 3:.575.B.A. 3:.240.I.D..OP.600,7
60,860,950,1080,1410,1610.R.N..555...X..
".. . EDIT FILE SEQUENTIALLY .":.10360:.
10370:NR.1...B.." USE .[F1] TO SEE NEXT
FIELD":." .S[F3] TO CHANGE A FIELD.+.L..
.5)"[F5] TO SEE NEXT RECORD":..5)"[F7] T
O FINISH EDITING..M.V..2,T$:.T$."XXX"..3
,T$QO$:.740.{...."... RECORD #"NR"..":.T
.1.NF:.T..1..2,T$.....TE$(T).T$:.DF$(T)"
- "T$:..K...."... EDIT FIELD (Y/N) ";:.
10180:.A$."N".750......T.1.NF:."."DF$(T)
" - "TE$(T)......A$:.A$."".690......A$."
."..:.750.N.F..A$.".".."ENTER .NEW. "DF$
(T);:.10020:TE$(T).S$:.:.750.^.K..A$."."
.750.O.P..A$..".".690...U..".. FINISHED
"...Z..2,A$:.3,A$CO$;:.A$.."XXX".730....
. 3: 2:.820.....NR.NR.1:.T.1.NF:.3,TE$(T
)CO$;:.:.630......"... . EDIT FILE BY FI
ELD NUMBER .":.10360:.10370.O....". INPU
T DESIRED RECORD NUMBER";:.10020:NR.0:A.
E(S$).E...NR.NR.1:.A.NR.610......2,T$:.T
$."XXX"..3,T$QO$:.810......T.1.NF:.T..1.
.2,T$... ..3,T$CO$;:.:.770...*..". NUMBE
R NOT FOUND":.". .MAXIMUM RECORD NUMBER
IS"NR.1:.1280...4..15,"S:"NA$:.15,"R:"NA
$"=TEMP DATA".E.>..2,DD,2,NA$.",S,R":.10
210:.ER.840.E.C..10330:.T.1.NF:.2,S$:.:.
520..H. 2:.10220:.A$."Y".830...R..240..
.\.."... . DELETE A FIELD ..":.T.1.NF:.T
"] "DF$(T):....F..".ENTER NUMBER OF FIEL
D TO DELETE";:.10020:A.E(S$)...P..A.1.A.
NF.."."SP$:."..";:.870.H.Z..10380:.A$."N
". 3: 2:.15,"S:TEMP DATA":.830.....NF.NF
.1:.T.A.NF:DF$(T).DF$(T.1):.:."... DELET
ING FIELD "......10360:.10370.I....T.1.N
F.1:.2,A$:.A$."XXX"..3,A$QO$: 3: 2:.820.
.....T..A..3,A$CO$;......:.920.'...."...
. ENTER NEW FIELD SECTION ..":.T.0.NF:.
T"] "DF$(T):..O....".. AFTER WHAT NUMBER
FIELD DOES THE NEW .SFIELD OCCUR ?";:.1
0020...J.S.E(S$):.S.0.S.MF.1.."... MAXIM
UM NO. OF FIELDS ="MF:.960.W.T..".. ENTE
R NAME OF NEW FIELD";:.10020......T.NF.1
.S.1..1:DF$(T).DF$(T.1):.:DF$(S.1).S$:NF
.NF.1.'....10360:.10370:NR.1.O....2,T$:.
T$."XXX"..3,T$QO$: 3: 2:.820.H...."... R
ECORD #"NR".".....DL.0:.T.1.NF.1:.T..1..
2,T$.....TE$(T).T$:.T.S.1..DF$(S.1)" - .
. NEW FIELD ..":DL.1.W....DF$(T.DL)" - "
T$:.......T.1.S..DF$(S.1)" - .. NEW FIEL
D ..". ....". INPUT "DF$(S.1);:.10020.Q.
...T.NF.1.S.1..1:TE$(T).TE$(T.1):.:TE$(S
.1).S$.{....T.1.NF:.3,TE$(T)CO$;:.:NR.NR
.1:.1010...8.."... . ENTER NEW RECORD SE
CTION ."...B..".WHERE IS NEW RECORD ?.":
.". 1] BEFORE FIRST RECORD...L.." 2] AFT
ER LAST RECORD":." 3] AT SPECIFIED NUMBE
R.?.Q.." 4] NOT SURE (GO THROUGH WHOLE F
ILE).H.V..10190:B.6:NC.4:B$.CR$."1234":.
10130.}.`..DL.0.A.2:.10150...J..10360:.1
0370:NR.1...T.."..S":.OP.1150,1190,1370,
1210.B.Y..1110...~..10390:."... INSERT A
NOTHER RECORD (Y/N) ";:.10180......A$."N
".1350......1150.K....T.1.NF:.2,A$:.A$..
"XXX"..3,A$CO$;:.:NR.NR.1:.1190.V...T.NF
:..P....10390:.S$."XXX".1280. ...."... I
NSERT ANOTHER RECORD (Y/N) ";:.10180....
..A$."N"..3,"XXX"QO$:.1280.H....1202....
..2,T$:.T$."XXX"..3,T$QO$:.1280...D.."..
. RECORD #"NR"..":.T.1.NF:.T..1..2,T$.8.
N.TE$(T).T$:.DF$(T)" - "T$:..~.X.."...IN
SERT RECORD BEFORE,AFTER,NO (B/A/N) ";:B
$."BAN":.10090:.A$......A$."N".NR.NR.1:.
T.1.NF:.3,TE$(T)CO$;:.:.1340.B....A$.."A
".1290......T.1.NF:.3,TE$(T)CO$;:.:.1039
0:.S$.."XXX".1300..... 3: 2:.820.?....T.
1.NF:VT$(T).TE$(T):.:.10390:.T.1.NF:TE$(
T).VT$(T):..[....T.1.NF:.3,TE$(T)CO$;:..
....."... INSERT ANOTHER RECORD AFTER (Y
/N) ";:.10180.....NR.NR.1:.A$."N".1340.D
.(..10390:.S$."XXX".1280.N.2..1300...<..
"... INSERT ANY MORE RECORDS (Y/N) ";:.1
0180:.A$."Y".1210.1.F..2,A$:.3,A$CO$;:.A
$.."XXX".1350.;.P..1280.G.Z..".ENTER REC
ORD NUMBER";:.10020:S.E(S$)..._..S.0..."
."SP$:."..";:.1370...D..S.1.1150.F.N..T.
1.NF:.2,A$:.3,A$CO$;:.A$."XXX".T.NF:.:.8
10...X..:NR.NR.1:.S.NR.1210...}..1390..
..."... . DELETE A RECORD SECTION .".N .
..".WHERE IS REQUIRED RECORD?.":.". 1] A
T SPECIFIED NUMBER.Y ..." 2] NOT SURE (G
O THROUGH WHOLE FILE). ...10190:B.6:NC.
2:B$.CR$."12":.10130.. ..DL.0.A.2:.1015
0.K ..."...":.OP.2.1520.. ...".ENTER REC
ORD NUMBER";:.10020:S.E(S$)..!...S.0..."
."SP$:."..";:.1460.$!H..S.1.1520.V!R..T.
1.NF:.2,A$:.3,A$CO$;:.A$."XXX".T.NF:.:.8
10.O!...:NR.NR.1:.S.NR.1520.Y!...1490..!
...2,T$:.T$."XXX"..3,T$QO$:.1280.J!...".
.. RECORD #"NR"..":.T.1.NF:.T..1..2,T$..
!..TE$(T).T$:.DF$(T)" - "T$:..."..."...
DELETE ABOVE RECORD (Y/N) ";:.10180.("..
.A$."Y".1580.D""..T.1.NF:.3,TE$(T)CO$;:.
..",.NR.NR.1:."... DELETE ANY MORE RECOR
DS (Y/N) ";:.10180:.A$."Y".1520.."6..2,A
$:.3,A$CO$;:.A$.."XXX".1590.."@..1280.."
J.."... . CHANGE PASSWORD SECTION ."..#T
..".CURRENT PASSWORD IS - ";:.T.1.C(PW$)
.0#^..G(F(J(PW$,T,1)).T);:.:.CR$".";.U#C
..".ENTER NEW PASSWORD [RETURN IF NONE]"
:.10020:A$."":.S$."".1640..#E..10350..#H
.PW$.A$:.10360:.10370..#R..2,A$:.3,A$CO$
;:.A$.."XXX".1650.G#|..1280..#... ** OUT
PUT ANY FILE **..$...".".6)".. OUTPUT AN
Y FILE SECTION ":.10200."$...ER.0.1720.:
$...10220:.A$."Y".1680.J$...10260:.130.`
$...10280:.ER.0.1750.T$B. 2:.A$."Y".1720
.~$L..1710..$V..10330:.PW$."".1770.L$...
10340:.A$..PW$..".. . ILLEGAL PASSWORD "
: 2:.240..%...". DATE CREATED "DA$:." LA
ST UPDATE "UD$:." NO. OF FIELDS="NF.J%.
..". FIELDS ARE:-.":.T.1.NF:.2,A$:.T"] "
A$:DF$(T).A$:...%...10260:."...":A$."PLE
ASE ENTER OUTPUT REQUIRED":.10120.Q%..."
.. 1] ALL FIELDS OF ALL RECORDS":." 2] S
ELECTED FIELDS OF ALL RECORDS..&..." 3]
ALL RECORDS WITH SELECTED WORDS":." 4] S
ET PRINTER CHARACTERISTICS.R&..." 5] ASC
II DUMP ANY FILE":." 6] RETURN TO MENU.}
&&.B.6:NC.6:B$.CR$."123456":.10190:.1013
0..&0..DL.0.A.1:.10150..&5..H(CD$,B.NC.4
)..&:..OP.6. 2:.240.F&D..OP.3.2750..&N..
H(CD$,16)"..T.ABLE OR .L.IST FORMAT (T/L
) .";..'R..A$:.A$."".1874. 'T..A$.CR$.A$
."T".:'V..A$.."T".A$.."L".1874.M'X..A$:F
T$.A$:."..PRINT NAMES OF FIELDS (Y/N) ."
;..'\..A$:.A$."".1884..'^..A$.CR$.A$."Y"
..'`..A$.."Y".A$.."N".1884.P'B.PF$.A$:.A
$:.OP.1995,1900,1940..(L..10260:."....":
A$."ENTER FIELD NUMBERS TO BE OUTPUT":.1
0120.C(V.."..";:.T.1.NF:.T"] "DF$(T):.:B
.6:NC.NF:B$.CR$.T(...T.1.NF:A$.D(T):B$.B
$.I(A$,C(A$).1):.:.10190..(...10130:.DL.
0.1790..(...10170:.A$."Y".PW.2:.2000..(.
..1900..(...10260:."....":A$."ENTER FIEL
D NUMBERS TO BE SEARCHED":.10120.')...".
.";:.T.1.NF:.T"] "DF$(T):.:B.6:NC.NF:B$.
CR$.X)...T.1.NF:A$.D(T):B$.B$.I(A$,C(A$)
.1):.:.10190.N)...10130:.DL.0.1790..)...
10170:.A$."N".1940..)...T.1.NF:.CH%(T).0
.1990.Y)A..".STRING FOR ."DF$(T)". FIELD
?";:.10020:TE$(T).S$..)F..:PW.3:.2000..
*K..T.1.NF:CH%(T).1:.:PW.1.!*P..4,PD,SA:
.PF$."N".2040.M*..DL.0:.T.1.NF:.C(DF$(T)
).DL.DL.C(DF$(T)).S*....E*...FT$."L".252
5.~*...2,A$:.A$."XXX".2090..*...T.1.NF:.
T..1..2,A$..*...C(A$).MF%(T).MF%(T).C(A$
).A* ..:.2050..**. 2:.2,DD,2,NA$.",S,R":
.10330..+/..PF$."N"..T.1.NF:.2,A$:.:.214
5..+1..4,.5);:.T.1.NF:.2,A$.H+4.A.MF%(T)
:B.C(A$):.B.A.A.B.1:MF%(T).A.G+>..CH%(T)
.PW.3..4,A$.A.B.1);..+H..:.4,CR$;:NL.3:.
4,.5);:.T.1.NF:.CH%(T).0.PW..3.2140.L+R.
.4,H(UL$,C(DF$(T))).MF%(T).C(DF$(T)).1);
.Z+\..:.4,CR$;..+A.NR.1:.PW.3.2220..,F..
2,A$:.A$."XXX".2600.2,P..T.1.NF:.T.1..4,
NR;.4.C(D(NR)));:.2180.<,Z..2,A$._,...CH
%(T)..4,A$.MF%(T).C(A$).1);..,...:.T.1.L
N:.4,CR$;:.:NR.NR.1:NL.NL.1..,...NL.PL..
4,CR$CR$CR$:NL.0..,...2150.G,...2,T$:.T$
."XXX".2600..,...T.1.NF:.T..1..2,T$..,..
VT$(T).T$:...-J.PW.0:.T.1.NF:.CH%(T).0.2
295.@-T.T$.VT$(T):A$.TE$(T):.Z.1.C(A$):.
Z.C(T$).2290..-...J(A$,Z,1)..J(T$,Z,1).J
(A$,Z,1).."?".PW.0:Z.C(A$):T.NF:.2290..-
..PW.1..-.....-...:.PW.0.NR.NR.1:.2220.O
-...T.1.NF:.T.1..4,NR;.4.C(D(NR)));..-..
A$.VT$(T):.4,A$.MF%(T).C(A$).1);......:.
T.1.LN:.4,CR$;:.:NR.NR.1:NL.NL.1.9....NL
.PL..4,CR$CR$CR$:NL.0.C.$..2220.R....PW.
3.2650.K....2,T$:.T$."XXX".2600......T.1
.NF:.T..1..2,T$......CH%(T).0.2580.A....
PF$."Y"..4,DF$(T).DL.C(DF$(T)))" - ";.K.
...4,T$......:.T.1.LN:.4,CR$;:.:.2530.&/
(..4: 4: 2:.2,DD,2,NA$.",S,R":.10330:.T.
1.NF:.2,A$:.:.1790.?/Z..2,T$:.T$."XXX".2
600.W/D..T.1.NF:.T..1..2,T$.G/N.VT$(T).T
$:.../X.PW.0:.T.1.NF:.CH%(T).0.2725../..
T$.VT$(T):A$.TE$(T):.Z.1.C(A$):.Z.C(T$).
2720../...J(A$,Z,1)..J(T$,Z,1).J(A$,Z,1)
.."?".PW.0:Z.C(A$):T.NF:.2720..0..PW.1..
0 ..."0...:.PW.0.NR.NR.1:.2650.U0...T.1.
NF:.PF$."Y"..4,DF$(T).DL.C(DF$(T)))" - "
;.}0...4,VT$(T):.:.T.1.LN:.4,CR$;:.:.265
0..0...OP.5.2910.K0C.."....":A$."WHICH P
RINTER CHARACTERISTIC TO CHANGE":.10120.
.1H..".. 1] CURRENT LINES PER PAGE ="PL.
4:." 2] LINE FEEDS AFTER RECORD ="LN.D1R
.." 3] SECONDARY ADDRESS OF PRINTER ="SA
.L1..B.6:NC.3:B$.CR$."123":.10190:.10130
..1...H(CD$,12):.DL.0.1790..1...CH%(1).0
.2840.D1...".. ENTER NO. LINES PER PAGE"
;:.10020..1..PL.E(S$).4:.PL.1.."."SP$:."
..";:.2810..2...CH%(2).0.2870.(2"..".. E
NTER NO. LINE FEEDS";:.10020.P2,.LN.E(S$
):.LN.0.."."SP$:."..";:.2850.C26..CH%(3)
.0.1790..2@..".. ENTER SECONDARY ADDRESS
";:.10020..2J.SA.E(S$):.SA.0.SA.255.."."
SP$:."..";:.2880.F2T..1790..2^..4,PD,SA:
.".. . ASCII DUMP A HIPERBASE FILE "..3H
..#2,A$:.ST.0..4,A$;:.2920. 3R..2600.;3.
.. ** DIRECTORY DISK **.J3B..".".6)"...
DIRECTORY OF ANY DISK ":.10200.Y3D..ER.0
.3020..3F..10220:.A$."Y".3010..3H..1710.
U3L..:A$."PLEASE ENTER DIRECTORY STYLE A
ND DEVICE":.10120..4N..".. 1] LIST ALL F
ILES":." 2] LIST SEQ FILES ONLY.?4P.." 3
] OUTPUT TO PRINTER":." 4] OUTPUT TO SCR
EEN.H4V.B.8:NC.4:B$.CR$."1234":.10190:.1
0130..4...DL.0.A.1:.10150:A.4:.10150:.30
60.O4...(CH%(1).CH%(2)..1).(CH%(3).CH%(4
)..1).DL..2..H(CD$,7):.3022..4...H(CD$,1
4):.CH%(3)..4,PD,SA:.3070..4...4,3..5..N
A$."$":.CH%(2).NA$."$*=SEQ".A5...1,DD,0,
NA$:.10210:.ER.0.3085.Z5...A$."Y"..10260
:.3080.D5...3140.Y5...#1,A$,A$:.4,CR$..5
...#1,A$,A$,A$,B$:.ST.3140..5...4,F(A$.N
L$).F(B$.NL$).256;.V5&..#1,A$:.A$.""..4,
CR$;:.3090..50..ST.3140..5:..4,A$;:.3110
..6D..4,CR$: 1: 4:.10260:.130.+6... ** D
ELETE A FILE **.Z6...".".10)"... DELETE
ANY DISK FILE ":.10200.I6...ER.0.3220..6
...10220:.A$."Y".3210..6...1710..6...102
80: 2:.ER.0.3225..6...A$."N".3290..6...3
220.W6...10380:.A$."N".3290..7...".. DEL
ETING FILE":.15,"S:"S$:.10210..7...ER.1.
.10220:.A$."Y".3220..7...ER.1.3290.M7...
TE.0.."..* ERROR * FILE NOT DELETED ":.1
0240:.A$."Y".3220.|7F..TE.0.3290..7P..".
.OK,"S$" HAS BEEN DELETED"..7Z..10260:.1
30.J7... ** UNDELETE A FILE **..7...".".
8)"... UNDELETE A DELETED FILE ":.10200.
.8...ER.0.3320."8...10220:.A$."Y".3310.,
8...1710.J8...".. LOOKING FOR DELETED FI
LES ...":T.18:S.0:.2,DD,2,"#2"..8...15,"
U1:2 0"T;S:.10210:.ER.0.3360..8.. 2:.A$.
"Y".3310..8...3290..8 .DL.0:.15,"M-R"NL$
G(5):.#15,A$:TT.F(A$.NL$):.TT.0.TT.35.34
70..9*..15,"M-R"G(1)G(5):.#15,A$:SS.F(A$
.NL$).A94..15,"U1:2 0"TT;SS:.10210:.ER.0
.3410.V9>..A$."N". 2:.3290.`9H..3380..9R
..P.0.255:.#2,A$:Z%(P).F(A$.NL$):...9\..
P.2.255.32:.Z%(P).3460..9F..Z%(P.1).0.P.
256:.:.3470..9P.."..FOUND - "QO$;:.Z.P.3
.P.18:.G(Z%(Z));:.:.QO$.*:Z..15,"M-W"G(P
)G(5)G(1)G(129):.15,"U2:2 0"TT;SS:DL.1.H
:...:TT.Z%(0):SS.Z%(1):.3380.E:...".. NO
";:.DL.."MORE ";..:..."DELETED FILES FO
UND": 2:.DL..15,"V"..:...3290..:... ** D
EFINE FUNCTION KEYS **..:...".".8)"... D
EFINE 8 FUNCTION KEYS ".';...".. CURRENT
WORDS ARE :-..":.T.1.8:." [F"I(D(T),1)"
] "FK$(T):..[;J..10260:."...":A$."ENTER
OPTION REQUIRED":.10120..;T..".. 1] DEFI
NE FUNCTION KEY [F1-8]":." 2] CLEAR ALL
FUNCTION KEYS..;..." 3] VIEW CURRENT FUN
CTION KEY WORDS":." 4] RETURN TO MENU..<
..B.6:NC.4:B$.CR$."1234":.10190:.10130:.
DL.0.A.1:.10150.5<...H(CD$,12):.OP.4.329
0.W<...OP.2.."... FUNCTION KEYS CLEARED
.":.T.1.8:FK$(T)."":.:.3530..<...OP.3.."
...":.3520.L<...".. HIT FUNCTION KEY TO
BE DEFINED":B$."........":.10090..<..B.F
(A$).132:.B.5.DL.B.2.1:.3610..<..DL.B.2.
8.)=..."..ENTER [F"I(D(DL),1)"] WORD";:.
10020.C=$.FK$(DL).S$:."... DEFINE ANY MO
RE KEYS (Y/N) ";:.10180.T=...A$."Y".3600
.~=8..3530..=B.. ** RENAME DISK FILE **.
J=L..".".10)"... RENAME ANY DISK FILE ":
.10200.Y=N..ER.0.3670..=P..10220:.A$."Y"
.3660..=R..1710..>V..10280: 2:.ER.0.3695
.%>`..A$."N".3290./>J..3670.J>O..".ENTER
.NEW. FILE NAME";:.10020:.S$."".S$."C64
DATA".|>P..S$..NA$.3700..>Q.."... FILE
NAMES ARE THE SAME ":.10240:.A$."N".3290
..>R..3670..>T..".. RENAMING FILE":.15,"
R:"S$"="NA$:.10210:.ER.0.3290..?~..10220
:.A$."Y".3670..?...3290.6? .. ** RE-RUN
PROGRAM **.N?...".".10)". . RESET HIPERB
ASE ..":.10380:.A$."Y"..:..~?...10260:.1
30..?.'...?.'. *** SUBROUTINES ***..?.'.
T.1.DL:.:..I?$'.198,0:S$."":." - ..";..?
.'.A$:A.F(A$.NL$):.A.0.10030..?8'.A.13..
" ":...@B'.A.20.S$."".10030.:@L'.A.20.S$
.H(S$,C(S$).1):.A$"..";:.10030.`@Q'.A.13
2.A.141.A$.FK$(A.132):.10080.U@V'.A.32.A
.95.10030..@`'S$.S$.A$:.A$"..";:.10030..
@J'.198,0..@O'.A$:.A$."".10095..@T'.T.1.
C(B$):.A$.J(B$,T,1).T.C(B$):.:...@~'.:.1
0090..A.'A.C(A$):.A$H(BS$,A.1)H(UL$,A):.
.(A.'DL.0:.T.1.NC:CH%(T).0:..=A.'.10090:
.A$.CR$..._A.'A.E(A$):.10150:DL.DL.1:.10
135..A.'.H(CD$,A.B)">":.CH%(A).DL.DL.1..
A.'CH%(A).1:OP.A:..FA.'.H(CD$,B.NC.4)".
ARE THESE CORRECT (Y/N) ";..AD'B$."YN":.
10090:.A$:...BN'."..ENTER OPTION NUMBERS
& RETURN TO FINISH":..PBX'."..INSERT DA
TA DISK INTO DRIVE,HIT A KEY":.10250:.15
,"I".GB.'.15,ER,ER$,TE,SE:...B.'."..* DI
SK ERROR * #"ER;ER$;:.TE.." ON"TE;SE;..B
.'.CR$;.IB.(."... TRY AGAIN (Y/N) ";:.10
180:...B.(.198,0:.198,1:.198,0:...C.(..5
)"... PRESS ANY KEY TO CONTINUE "..C.(.1
0250:..OC((.".ENTER FILE NAME";:.10020:.
S$."".S$."C64 DATA".~C2(NA$.S$:.2,DD,2,S
$.",S,".TY$:.10210:.ER.0....C<(.10220:..
.CF(.".ENTER CURRENT DATE";:.10020:ED$.S
$:...CP(.2,QO$ED$CO$ED$CO$PW$QO$CR$G(NF)
QO$;:...DZ(.2,DA$,UD$,PW$:.#2,A$:NF.F(A$
):..FDD(.".ENTER PASSWORD [RETURN IF NON
E]";:.10020:A$."":.S$.""...QDN(.T.1.C(S$
):A$.A$.G(F(J(S$,T,1)).T):.:...DX(.3,QO$
DA$CO$ED$CO$PW$QO$CR$G(NF)QO$;:...D.(.T.
1.NF:.3,DF$(T)CO$;:.:...D.(."... ARE YOU
SURE (Y/N) ";:.10180:.."E.(."... ENTER
RECORD #"NR".":.T.1.NF:."ENTER "DF$(T);:
.10020.JE (.T.1.S$."XXX"..LF,S$QO$:T.NF:
.: 2:...E.(TE$(T).S$:.:."..ARE ALL FIELD
S CORRECT (Y/N) ";:.10180..E.(.A$."N".10
390..E.(.T.1.NF:.LF,TE$(T)CO$;:.:NR.NR.1
:....RSX.. ....... E.... ..{..E.3.JP.L..
F....53281,1:.53280,1:.650,0:CD...P.F...
.....P.F...IS./.AEJ..P.NM.N..F.P....P.F.
..IS.I.AEJ..P.NM.N..P....3....JP..S.7..X
L..CD(....-.E.IV..L.#L.F....M..M..I...L.
# S.L..... PL.#..
> CLICK IMAGE PREVIEW FOR FULL MODAL