MF64.MAIN
FILE INFORMATION
FILENAME(S): MF64.MAIN
FILE TYPE(S): PRG
FILE SIZE: 12.4K
FIRST SEEN: 2025-11-30 21:12:23
APPEARS ON: 1 disk(s)
FILE HASH
0735d5025b59b64526d0c278d8a27bc42eac5d51f25e021a00bd8cce41f9e620
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| YC JUNE 86 | MF64.MAIN | PRG | DuncanTwain | 17 | 17 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1C 08 00 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |....... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 37 08 01 |************.7..|
00000020: 00 8F 20 2A 20 20 20 4D 49 43 52 4F 46 49 4C 45 |.. * MICROFILE|
00000030: 36 34 20 20 20 20 2A 00 52 08 03 00 8F 20 2A 20 |64 *.R.... * |
00000040: 20 4D 41 49 4E 20 20 50 52 4F 47 52 41 4D 20 20 | MAIN PROGRAM |
00000050: 20 2A 00 6D 08 04 00 8F 20 2A 20 28 43 29 31 39 | *.m.... * (C)19|
00000060: 38 36 20 47 2E 54 48 4F 4D 41 53 20 2A 00 88 08 |86 G.THOMAS *...|
00000070: 05 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
00000080: 2A 2A 2A 2A 2A 2A 2A 2A 00 8E 08 06 00 3A 00 94 |********.....:..|
00000090: 08 0F 00 3A 00 DE 08 11 00 99 22 93 11 11 11 11 |...:......".....|
000000A0: 05 22 A3 39 29 22 2A 2A 2A 20 CD C9 C3 D2 CF C6 |.".9)"*** ......|
000000B0: C9 CC C5 36 34 20 2A 2A 2A 22 3A 99 A3 35 29 22 |...64 ***":..5)"|
000000C0: 11 11 1E 56 45 52 34 2E 32 28 43 29 31 39 38 36 |...VER4.2(C)1986|
000000D0: 20 C7 41 52 45 54 48 20 D4 48 4F 4D 41 53 00 18 | .ARETH .HOMAS..|
000000E0: 09 14 00 99 A3 38 29 22 11 11 11 12 9E 20 C1 CE |.....8)"..... ..|
000000F0: D9 A0 CB C5 D9 A0 D4 CF A0 C3 CF CE D4 C9 CE D5 |................|
00000100: C5 20 22 3A 41 54 B2 35 32 30 33 38 3A 92 31 39 |. ":AT.52038:.19|
00000110: 38 2C 31 3A 52 43 B2 31 00 1E 09 19 00 3A 00 2E |8,1:RC.1.....:..|
00000120: 09 1A 00 8F 20 4D 41 49 4E 20 4C 4F 4F 50 00 43 |.... MAIN LOOP.C|
00000130: 09 1E 00 8D 39 35 30 30 3A 8B 57 B2 38 A7 9C 3A |....9500:.W.8..:|
00000140: 57 B2 38 00 7B 09 23 00 91 57 AA 31 8D 36 30 30 |W.8.{.#..W.1.600|
00000150: 30 2C 31 30 30 2C 33 30 2C 31 38 30 30 2C 32 35 |0,100,30,1800,25|
00000160: 30 30 2C 33 31 30 30 2C 33 35 30 30 2C 38 30 30 |00,3100,3500,800|
00000170: 30 2C 34 34 39 30 2C 35 38 32 35 00 90 09 28 00 |0,4490,5825...(.|
00000180: 8B 57 B2 39 AF 52 46 B2 30 A7 9C 3A 52 43 B2 31 |.W.9.RF.0..:RC.1|
00000190: 00 98 09 32 00 89 33 30 00 9E 09 37 00 3A 00 B1 |...2..30...7.:..|
000001A0: 09 38 00 8F 20 44 41 54 41 20 49 2F 4F 20 53 2F |.8.. DATA I/O S/|
000001B0: 52 00 F7 09 64 00 99 A3 31 32 29 22 C4 C1 D4 C1 |R...d...12)"....|
000001C0: A0 C9 2F CF A0 CD C5 CE D5 22 3A 99 A3 31 32 29 |../......":..12)|
000001D0: 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 3A |".............":|
000001E0: 99 A3 39 29 22 11 31 20 2D 20 D3 41 56 45 20 54 |..9)".1 - .AVE T|
000001F0: 4F 20 44 49 53 4B 2E 00 2E 0A 78 00 99 A3 39 29 |O DISK....x...9)|
00000200: 22 11 32 20 2D 20 CC 4F 41 44 20 46 52 4F 4D 20 |".2 - .OAD FROM |
00000210: 44 49 53 4B 2E 22 3A 99 A3 39 29 22 11 33 20 2D |DISK.":..9)".3 -|
00000220: 20 D3 41 56 45 20 54 4F 20 54 41 50 45 2E 00 60 | .AVE TO TAPE..`|
00000230: 0A 8C 00 99 A3 39 29 22 11 34 20 2D 20 CC 4F 41 |.....9)".4 - .OA|
00000240: 44 20 46 52 4F 4D 20 54 41 50 45 2E 22 3A 99 A3 |D FROM TAPE.":..|
00000250: 39 29 22 11 35 20 2D 20 C5 58 49 54 2E 11 11 11 |9)".5 - .XIT....|
00000260: 00 7D 0A 96 00 8D 35 38 30 30 3A 8B 47 24 B3 22 |.}....5800:.G$."|
00000270: 31 22 B0 47 24 B1 22 35 22 A7 31 35 30 00 8B 0A |1".G$."5".150...|
00000280: A0 00 8B 47 24 B2 22 35 22 A7 8E 00 C1 0A AA 00 |...G$."5".......|
00000290: 99 22 93 11 1D C5 4E 54 45 52 20 27 C5 27 20 54 |."....NTER '.' T|
000002A0: 4F 20 45 58 49 54 11 11 22 3A 85 22 1D C5 4E 54 |O EXIT..":."..NT|
000002B0: 45 52 20 46 49 4C 45 4E 41 4D 45 2E 2E 22 3B 46 |ER FILENAME..";F|
000002C0: 24 00 D9 0A AF 00 8B 46 24 B2 22 22 B0 C3 28 46 |$......F$.""..(F|
000002D0: 24 29 B1 31 36 A7 31 37 30 00 EF 0A B0 00 8B 46 |$).16.170......F|
000002E0: 24 B2 22 45 22 A7 99 22 93 22 3A 89 31 30 30 00 |$."E"..".":.100.|
000002F0: 22 0B BE 00 99 22 93 22 3A 91 C5 28 47 24 29 8D |"....".":..(G$).|
00000300: 31 30 30 30 2C 31 31 31 30 2C 31 32 30 30 2C 31 |1000,1110,1200,1|
00000310: 33 30 30 2C 31 34 30 30 3A 99 22 93 22 3A 89 31 |300,1400:.".":.1|
00000320: 30 30 00 28 0B C8 00 3A 00 42 0B 84 03 8F 20 4F |00.(...:.B.... O|
00000330: 55 54 50 55 54 20 46 49 4C 45 20 54 4F 20 44 49 |UTPUT FILE TO DI|
00000340: 53 4B 00 7C 0B E8 03 9F 31 35 2C 38 2C 31 35 2C |SK.|....15,8,15,|
00000350: 22 49 30 22 3A 9F 32 2C 38 2C 32 2C 22 30 3A 22 |"I0":.2,8,2,"0:"|
00000360: AA 46 24 AA 22 2C 53 2C 57 22 3A 8D 31 33 35 30 |.F$.",S,W":.1350|
00000370: 3A 8B 45 49 B2 36 33 A7 31 30 30 30 00 86 0B ED |:.EI.63.1000....|
00000380: 03 8B 45 49 A7 8E 00 96 0B F2 03 8D 31 36 30 30 |..EI........1600|
00000390: 3A A0 31 35 3A 8E 00 9C 0B FC 03 3A 00 B7 0B 06 |:.15:......:....|
000003A0: 04 8F 20 49 4E 50 55 54 20 46 49 4C 45 20 46 52 |.. INPUT FILE FR|
000003B0: 4F 4D 20 44 49 53 4B 00 EB 0B 56 04 9F 31 35 2C |OM DISK...V..15,|
000003C0: 38 2C 31 35 2C 22 49 30 22 3A 9F 32 2C 38 2C 32 |8,15,"I0":.2,8,2|
000003D0: 2C 22 30 3A 22 AA 46 24 AA 22 2C 53 2C 52 22 3A |,"0:".F$.",S,R":|
000003E0: 8D 31 33 35 30 3A 8B 45 49 A7 8E 00 FB 0B 60 04 |.1350:.EI.....`.|
000003F0: 8D 31 37 30 30 3A A0 31 35 3A 8E 00 01 0C 6A 04 |.1700:.15:....j.|
00000400: 3A 00 1B 0C 74 04 8F 20 4F 55 54 50 55 54 20 46 |:...t.. OUTPUT F|
00000410: 49 4C 45 20 54 4F 20 54 41 50 45 00 31 0C B0 04 |ILE TO TAPE.1...|
00000420: 9F 32 2C 31 2C 31 2C 46 24 3A 8D 31 36 30 30 3A |.2,1,1,F$:.1600:|
00000430: 8E 00 37 0C BA 04 3A 00 52 0C C4 04 8F 20 49 4E |..7...:.R.... IN|
00000440: 50 55 54 20 46 49 4C 45 20 46 52 4F 4D 20 54 41 |PUT FILE FROM TA|
00000450: 50 45 00 68 0C 14 05 9F 32 2C 31 2C 30 2C 46 24 |PE.h....2,1,0,F$|
00000460: 3A 8D 31 37 30 30 3A 8E 00 6E 0C 1E 05 3A 00 8B |:.1700:..n...:..|
00000470: 0C 28 05 8F 20 52 45 41 44 20 44 49 53 4B 20 45 |.(.. READ DISK E|
00000480: 52 52 4F 52 20 53 54 41 54 55 53 00 A7 0C 46 05 |RROR STATUS...F.|
00000490: 84 31 35 2C 45 49 2C 4D 24 3A 8B 45 49 B3 32 30 |.15,EI,M$:.EI.20|
000004A0: A7 45 49 B2 30 3A 8E 00 D5 0C 5A 05 99 A3 36 29 |.EI.0:....Z...6)|
000004B0: 22 11 12 20 C4 49 53 4B 20 45 52 52 4F 52 20 11 |".. .ISK ERROR .|
000004C0: 11 22 3A 99 A3 35 29 45 49 22 2D 20 22 4D 24 3A |.":..5)EI"- "M$:|
000004D0: 8D 39 38 30 30 00 F1 0C 64 05 8B 45 49 B3 B1 36 |.9800...d..EI..6|
000004E0: 33 A7 A0 32 3A A0 31 35 3A 92 31 39 38 2C 31 3A |3..2:.15:.198,1:|
000004F0: 8E 00 12 0D 6E 05 8F 20 49 46 20 46 49 4C 45 20 |....n.. IF FILE |
00000500: 45 58 49 54 53 20 43 4F 4E 46 49 52 4D 20 53 41 |EXITS CONFIRM SA|
00000510: 56 45 00 41 0D 78 05 99 22 11 11 27 D2 27 54 4F |VE.A.x.."..'.'TO|
00000520: 20 52 45 50 4C 41 43 45 20 4F 52 20 27 C3 27 54 | REPLACE OR '.'T|
00000530: 4F 20 43 48 41 4E 47 45 20 46 49 4C 45 4E 41 4D |O CHANGE FILENAM|
00000540: 45 00 56 0D 82 05 A1 47 24 3A 8B 47 24 B2 22 52 |E.V....G$:.G$."R|
00000550: 22 A7 31 34 35 30 00 68 0D 8C 05 8B 47 24 B3 B1 |".1450.h....G$..|
00000560: 22 43 22 A7 31 34 31 30 00 81 0D 96 05 8D 31 35 |"C".1410......15|
00000570: 30 30 3A 8B 46 24 B2 22 45 22 A7 45 49 B2 31 3A |00:.F$."E".EI.1:|
00000580: 8E 00 8E 0D A0 05 A0 32 3A A0 31 35 3A 8E 00 A5 |.......2:.15:...|
00000590: 0D A1 05 8F 20 53 43 52 41 54 43 48 20 4F 4C 44 |.... SCRATCH OLD|
000005A0: 20 46 49 4C 45 00 BF 0D AA 05 98 31 35 2C 22 53 | FILE......15,"S|
000005B0: 30 3A 22 AA 46 24 3A A0 32 3A A0 31 35 3A 8E 00 |0:".F$:.2:.15:..|
000005C0: C5 0D AB 05 3A 00 D6 0D FA 05 8F 20 53 41 56 45 |....:...... SAVE|
000005D0: 20 46 49 4C 45 53 00 E9 0D FF 05 8F 20 47 45 54 | FILES...... GET|
000005E0: 20 44 41 54 41 54 59 50 45 00 08 0E 40 06 8D 39 | DATATYPE...@..9|
000005F0: 38 30 30 3A 99 22 11 11 1D C6 4F 52 4D 41 54 20 |800:."....ORMAT |
00000600: 4F 52 20 44 41 54 41 3F 00 1D 0E 41 06 A1 47 24 |OR DATA?...A..G$|
00000610: 3A 8B 47 24 B2 22 44 22 A7 31 36 33 30 00 2F 0E |:.G$."D".1630./.|
00000620: 42 06 8B 47 24 B3 B1 22 46 22 A7 31 36 30 31 00 |B..G$.."F".1601.|
00000630: 41 0E 43 06 8F 20 53 41 56 45 20 46 4F 52 4D 41 |A.C.. SAVE FORMA|
00000640: 54 00 52 0E 49 06 98 32 2C 46 44 3A 98 32 2C 22 |T.R.I..2,FD:.2,"|
00000650: 46 22 00 7D 0E 4A 06 81 47 B2 30 A4 36 3A 81 48 |F".}.J..G.0.6:.H|
00000660: B2 30 A4 46 44 3A 8B 42 24 28 47 2C 48 29 B2 22 |.0.FD:.B$(G,H)."|
00000670: 22 A7 42 24 28 47 2C 48 29 B2 22 20 22 00 90 0E |".B$(G,H)." "...|
00000680: 4F 06 98 32 2C 42 24 28 47 2C 48 29 3A 82 3A 82 |O..2,B$(G,H):.:.|
00000690: 00 A9 0E 54 06 8F 20 53 41 56 45 20 53 43 52 45 |...T.. SAVE SCRE|
000006A0: 45 4E 20 4C 41 59 4F 55 54 00 E5 0E 55 06 53 43 |EN LAYOUT...U.SC|
000006B0: B2 34 39 31 35 32 3A 43 4F B2 35 32 32 32 39 3A |.49152:CO.52229:|
000006C0: 81 49 B2 53 43 A4 53 43 AA 39 31 39 3A 98 32 2C |.I.SC.SC.919:.2,|
000006D0: C7 28 C2 28 49 29 29 C7 28 C2 28 43 4F AA 49 AB |.(.(I)).(.(CO.I.|
000006E0: 53 43 29 29 3B 00 F0 0E 56 06 82 3A A0 32 3A 8E |SC));...V..:.2:.|
000006F0: 00 F6 0E 57 06 3A 00 06 0F 58 06 8F 20 53 41 56 |...W.:...X.. SAV|
00000700: 45 20 44 41 54 41 00 17 0F 5E 06 98 32 2C 22 44 |E DATA...^..2,"D|
00000710: 22 3A 98 32 2C 52 43 00 41 0F 5F 06 81 47 B2 31 |":.2,RC.A._..G.1|
00000720: A4 52 43 AB 31 3A 81 48 B2 30 A4 46 44 3A 98 32 |.RC.1:.H.0.FD:.2|
00000730: 2C 41 24 28 48 2C 47 29 3A 82 3A 82 3A A0 32 3A |,A$(H,G):.:.:.2:|
00000740: 8E 00 47 0F 60 06 3A 00 59 0F 61 06 8F 20 49 4E |..G.`.:.Y.a.. IN|
00000750: 50 55 54 20 46 49 4C 45 53 00 66 0F A4 06 8B 52 |PUT FILES.f....R|
00000760: 46 A7 31 37 32 30 00 78 0F A5 06 8F 20 53 41 56 |F.1720.x.... SAV|
00000770: 45 20 46 4F 52 4D 41 54 00 88 0F AD 06 84 32 2C |E FORMAT......2,|
00000780: 46 44 3A 84 32 2C 4D 24 00 C1 0F AF 06 8B 4D 24 |FD:.2,M$......M$|
00000790: B3 B1 22 46 22 A7 99 22 11 11 11 1D 2A 20 2A C4 |.."F".."....* *.|
000007A0: 41 54 41 20 54 59 50 45 20 4D 49 53 4D 41 54 43 |ATA TYPE MISMATC|
000007B0: 48 2A 20 2A 22 3A 92 31 39 38 2C 31 3A A0 32 3A |H* *":.198,1:.2:|
000007C0: 8E 00 E9 0F B0 06 8D 39 39 38 30 3A 81 47 B2 30 |.......9980:.G.0|
000007D0: A4 36 3A 81 48 B2 30 A4 46 44 3A 84 32 2C 42 24 |.6:.H.0.FD:.2,B$|
000007E0: 28 47 2C 48 29 3A 82 3A 82 00 03 10 B3 06 8F 20 |(G,H):.:....... |
000007F0: 49 4E 50 55 54 20 53 43 52 45 45 4E 20 4C 41 59 |INPUT SCREEN LAY|
00000800: 4F 55 54 00 3C 10 B4 06 53 43 B2 34 39 31 35 32 |OUT.<...SC.49152|
00000810: 3A 43 4F B2 35 32 32 32 39 3A 81 49 B2 53 43 A4 |:CO.52229:.I.SC.|
00000820: 53 43 AA 39 31 39 3A A1 23 32 2C 41 24 3A 8B 41 |SC.919:.#2,A$:.A|
00000830: 24 B2 22 22 A7 41 24 B2 C7 28 30 29 00 5F 10 B5 |$."".A$..(0)._..|
00000840: 06 97 49 2C C6 28 41 24 29 3A A1 23 32 2C 41 24 |..I,.(A$):.#2,A$|
00000850: 3A 8B 41 24 B2 22 22 A7 41 24 B2 C7 28 30 29 00 |:.A$."".A$..(0).|
00000860: 7E 10 B6 06 97 43 4F AA 49 AB 53 43 2C C6 28 41 |~....CO.I.SC,.(A|
00000870: 24 29 3A 82 3A 52 46 B2 31 3A A0 32 3A 8E 00 8F |$):.:RF.1:.2:...|
00000880: 10 B7 06 8F 20 49 4E 50 55 54 20 44 41 54 41 00 |.... INPUT DATA.|
00000890: 99 10 B8 06 84 32 2C 4D 24 00 D7 10 B9 06 8B 4D |.....2,M$......M|
000008A0: 24 B3 B1 22 44 22 A7 99 22 11 11 11 20 2A 20 2A |$.."D".."... * *|
000008B0: C4 41 54 41 20 54 59 50 45 20 4D 49 53 4D 41 54 |.ATA TYPE MISMAT|
000008C0: 43 48 2A 20 2A 22 3A 92 31 39 38 2C 31 3A 52 43 |CH* *":.198,1:RC|
000008D0: B2 31 3A A0 32 3A 8E 00 07 11 BA 06 84 32 2C 52 |.1:.2:.......2,R|
000008E0: 43 3A 81 47 B2 31 A4 52 43 AB 31 3A 81 48 B2 30 |C:.G.1.RC.1:.H.0|
000008F0: A4 46 44 3A 84 32 2C 41 24 28 48 2C 47 29 3A 82 |.FD:.2,A$(H,G):.|
00000900: 3A 82 3A A0 32 3A 8E 00 0D 11 BB 06 3A 00 1E 11 |:.:.2:......:...|
00000910: BC 06 8F 20 55 50 44 41 54 45 20 53 2F 52 00 5F |... UPDATE S/R._|
00000920: 11 08 07 99 22 93 22 3A 45 46 B2 30 3A 8B 52 43 |....".":EF.0:.RC|
00000930: B2 32 30 30 A7 9E 41 54 2C 36 2C 31 32 3A 99 22 |.200..AT,6,12:."|
00000940: CE 4F 20 4D 4F 52 45 20 52 4F 4F 4D 20 46 4F 52 |.O MORE ROOM FOR|
00000950: 20 44 41 54 41 22 3A 92 31 39 38 2C 31 3A 8E 00 | DATA":.198,1:..|
00000960: A4 11 12 07 99 22 13 9A 12 20 05 46 31 2D C5 58 |....."... .F1-.X|
00000970: 49 54 9A 20 20 05 46 33 2D D2 45 44 4F 9A 20 20 |IT. .F3-.EDO. |
00000980: 05 46 35 2D CD 45 4D 4F 52 59 9A 3A D2 45 43 4F |.F5-.EMORY.:.ECO|
00000990: 52 44 22 C4 28 52 43 29 22 20 20 20 22 3A 9E 35 |RD".(RC)" ":.5|
000009A0: 32 31 35 36 00 BF 11 1C 07 81 49 B2 30 A4 46 44 |2156......I.0.FD|
000009B0: 3A 8D 32 30 30 30 3A 8B 50 B2 31 33 33 A7 8E 00 |:.2000:.P.133...|
000009C0: E3 11 21 07 8B 41 24 28 49 2C 52 43 29 B2 22 22 |..!..A$(I,RC).""|
000009D0: A7 41 24 28 49 2C 52 43 29 B2 22 20 22 3A 89 31 |.A$(I,RC)." ":.1|
000009E0: 38 35 30 00 FD 11 22 07 8F 20 52 45 4D 4F 56 45 |850...".. REMOVE|
000009F0: 20 45 58 54 52 41 20 53 50 41 43 45 53 00 3A 12 | EXTRA SPACES.:.|
00000A00: 26 07 43 4F B2 30 3A 81 54 B2 30 A4 AB 31 A9 30 |&.CO.0:.T.0..1.0|
00000A10: 3A 43 4F B2 43 4F AA 31 3A 54 B2 28 C9 28 41 24 |:CO.CO.1:T.(.(A$|
00000A20: 28 49 2C 52 43 29 2C 43 4F 29 B3 B1 22 20 22 29 |(I,RC),CO).." ")|
00000A30: 3A 82 3A 43 4F B2 43 4F AB 31 00 62 12 30 07 41 |:.:CO.CO.1.b.0.A|
00000A40: 24 28 49 2C 52 43 29 B2 C8 28 41 24 28 49 2C 52 |$(I,RC)..(A$(I,R|
00000A50: 43 29 2C C3 28 41 24 28 49 2C 52 43 29 29 AB 43 |C),.(A$(I,RC)).C|
00000A60: 4F 29 00 76 12 3A 07 82 3A 52 43 B2 52 43 AA 31 |O).v.:..:RC.RC.1|
00000A70: 3A 89 31 38 31 30 00 7C 12 44 07 3A 00 91 12 4E |:.1810.|.D.:...N|
00000A80: 07 8F 20 4D 41 49 4E 20 49 4E 50 55 54 20 53 2F |.. MAIN INPUT S/|
00000A90: 52 00 C0 12 58 07 8F 20 53 45 54 20 55 50 20 5A |R...X.. SET UP Z|
00000AA0: 45 52 4F 2D 50 41 47 45 20 4C 4F 43 41 54 49 4F |ERO-PAGE LOCATIO|
00000AB0: 4E 53 20 46 4F 52 20 4D 2F 43 20 49 4E 50 55 54 |NS FOR M/C INPUT|
00000AC0: 00 01 13 D0 07 59 B2 C5 28 42 24 28 30 2C 49 29 |.....Y..(B$(0,I)|
00000AD0: 29 3A 58 B2 C5 28 42 24 28 31 2C 49 29 29 3A 9E |):X..(B$(1,I)):.|
00000AE0: 41 54 2C 58 AB 33 2C 59 AB 36 3A 97 32 35 31 2C |AT,X.3,Y.6:.251,|
00000AF0: 30 3A 97 32 35 32 2C C5 28 42 24 28 33 2C 49 29 |0:.252,.(B$(3,I)|
00000B00: 29 00 1A 13 DA 07 97 32 35 33 2C C5 28 C8 28 42 |)......253,.(.(B|
00000B10: 24 28 34 2C 49 29 2C 31 29 29 00 44 13 DB 07 8F |$(4,I),1)).D....|
00000B20: 20 50 52 49 4E 54 20 43 55 52 53 4F 52 20 41 4E | PRINT CURSOR AN|
00000B30: 44 20 53 45 54 20 49 4E 50 55 54 20 50 4F 53 49 |D SET INPUT POSI|
00000B40: 54 49 4F 4E 00 82 13 E4 07 99 22 B9 91 22 3A 9E |TION......"..":.|
00000B50: 41 54 2C 58 AB 32 2C 59 AB 36 3A 49 24 B2 22 22 |AT,X.2,Y.6:I$.""|
00000B60: 3A 81 54 B2 30 A4 31 A9 30 3A 9E 35 31 38 38 35 |:.T.0.1.0:.51885|
00000B70: 3A 50 B2 C2 28 32 35 34 29 3A 8B 45 46 A7 32 30 |:P..(254):.EF.20|
00000B80: 33 35 00 9B 13 E5 07 8B 50 B2 31 33 35 A7 8D 39 |35......P.135..9|
00000B90: 38 30 30 3A 8D 32 34 30 30 3A 82 00 C4 13 E9 07 |800:.2400:......|
00000BA0: 8B 50 B2 31 33 34 AF 49 A7 49 24 B2 49 24 AA 22 |.P.134.I.I$.I$."|
00000BB0: 20 22 3A 8D 32 34 32 30 3A 54 B2 31 3A 82 3A 89 | ":.2420:T.1:.:.|
00000BC0: 32 30 30 30 00 D7 13 EE 07 8B 50 B2 31 33 33 A7 |2000......P.133.|
00000BD0: 54 B2 31 3A 82 3A 8E 00 EA 13 EF 07 8F 20 44 45 |T.1:.:....... DE|
00000BE0: 4C 45 54 45 20 43 48 41 52 53 00 06 14 F3 07 8B |LETE CHARS......|
00000BF0: 50 B2 32 30 A7 49 24 B2 C8 28 49 24 2C C2 28 32 |P.20.I$..(I$,.(2|
00000C00: 35 31 29 29 3A 82 00 1E 14 F8 07 8B 50 B3 B1 31 |51)):.......P..1|
00000C10: 33 A7 49 24 B2 49 24 AA C7 28 50 29 3A 82 00 38 |3.I$.I$..(P):..8|
00000C20: 14 F9 07 8F 20 43 48 45 43 4B 20 46 4F 52 20 45 |.... CHECK FOR E|
00000C30: 44 49 54 20 46 4C 41 47 00 50 14 FD 07 8B 45 46 |DIT FLAG.P....EF|
00000C40: AF 47 24 B3 B1 22 4F 22 A7 54 B2 31 3A 82 3A 8E |.G$.."O".T.1:.:.|
00000C50: 00 7C 14 02 08 41 24 28 49 2C 52 43 29 B2 49 24 |.|...A$(I,RC).I$|
00000C60: 3A 8B C8 28 42 24 28 34 2C 49 29 2C 31 29 B3 B1 |:..(B$(4,I),1)..|
00000C70: 22 33 22 A7 99 C7 28 32 30 29 3A 8E 00 82 14 0C |"3"...(20):.....|
00000C80: 08 3A 00 A3 14 16 08 8F 20 43 48 45 43 4B 20 49 |.:...... CHECK I|
00000C90: 46 20 49 4E 50 55 54 20 49 53 20 49 4E 20 52 41 |F INPUT IS IN RA|
00000CA0: 4E 47 45 00 D6 14 FC 08 56 4C B2 C5 28 41 24 28 |NGE.....VL..(A$(|
00000CB0: 49 2C 52 43 29 29 3A 4B 24 B2 CA 28 42 24 28 34 |I,RC)):K$..(B$(4|
00000CC0: 2C 49 29 2C 32 2C 32 29 3A 56 41 B2 C5 28 42 24 |,I),2,2):VA..(B$|
00000CD0: 28 35 2C 49 29 29 00 03 15 06 09 8B 28 4B 24 B2 |(5,I))......(K$.|
00000CE0: 22 3C 22 AF 56 4C B1 B2 56 41 29 B0 28 4B 24 B2 |"<".VL..VA).(K$.|
00000CF0: 22 3E 22 AF 56 4C B3 B2 56 41 29 A7 8D 39 38 30 |">".VL..VA)..980|
00000D00: 30 3A 82 00 2D 15 1A 09 8B 4B 24 B2 22 42 22 AF |0:..-....K$."B".|
00000D10: 28 56 4C B3 56 41 B0 56 4C B1 C5 28 42 24 28 36 |(VL.VA.VL..(B$(6|
00000D20: 2C 49 29 29 29 A7 8D 39 38 30 30 3A 82 00 5A 15 |,I)))..9800:..Z.|
00000D30: 24 09 8B 28 4B 24 B2 22 3C 3D 22 AF 56 4C B1 56 |$..(K$."<=".VL.V|
00000D40: 41 29 B0 28 4B 24 B2 22 3E 3D 22 AF 56 4C B3 56 |A).(K$.">=".VL.V|
00000D50: 41 29 A7 8D 39 38 30 30 3A 82 00 73 15 38 09 41 |A)..9800:..s.8.A|
00000D60: 24 28 49 2C 52 43 29 B2 49 24 3A 99 C7 28 32 30 |$(I,RC).I$:..(20|
00000D70: 29 3A 8E 00 79 15 42 09 3A 00 92 15 4C 09 8F 20 |):..y.B.:...L.. |
00000D80: 46 52 45 45 20 42 59 54 45 53 20 52 4F 55 54 49 |FREE BYTES ROUTI|
00000D90: 4E 45 00 D5 15 60 09 50 24 B2 C4 28 B8 28 30 29 |NE...`.P$..(.(0)|
00000DA0: 29 AA 22 20 42 59 54 45 53 20 46 52 45 45 22 3A |)." BYTES FREE":|
00000DB0: 4C 4E B2 C3 28 50 24 29 3A 81 50 B2 31 A4 4C 4E |LN..(P$):.P.1.LN|
00000DC0: 3A 97 31 39 39 30 AA 50 2C C6 28 CA 28 50 24 2C |:.1990.P,.(.(P$,|
00000DD0: 50 2C 31 29 29 00 0B 16 6A 09 97 35 36 32 36 32 |P,1))...j..56262|
00000DE0: AA 50 2C 31 3A 82 3A 97 31 39 38 2C 30 3A 92 31 |.P,1:.:.198,0:.1|
00000DF0: 39 38 2C 31 3A 81 50 B2 31 A4 4C 4E 3A 97 31 39 |98,1:.P.1.LN:.19|
00000E00: 39 30 AA 50 2C 33 32 3A 82 3A 8E 00 11 16 6F 09 |90.P,32:.:....o.|
00000E10: 3A 00 20 16 70 09 8F 20 52 45 44 4F 20 53 2F 52 |:. .p.. REDO S/R|
00000E20: 00 5A 16 74 09 41 24 28 49 2C 52 43 29 B2 49 24 |.Z.t.A$(I,RC).I$|
00000E30: 3A 44 B2 49 3A 45 52 B2 52 43 3A 8D 32 39 37 30 |:D.I:ER.RC:.2970|
00000E40: 3A 99 4C 24 3A 49 B2 49 AB 31 3A 44 B2 49 3A 8D |:.L$:I.I.1:D.I:.|
00000E50: 32 39 37 30 3A 99 4C 24 3A 8E 00 60 16 7E 09 3A |2970:.L$:..`.~.:|
00000E60: 00 6F 16 88 09 8F 20 45 44 49 54 20 53 2F 52 00 |.o.... EDIT S/R.|
00000E70: AD 16 C4 09 99 A3 31 33 29 22 C5 C4 C9 D4 A0 CD |......13)"......|
00000E80: C5 CE D5 22 3A 99 A3 31 33 29 22 A3 A3 A3 A3 A3 |...":..13)".....|
00000E90: A3 A3 A3 A3 22 3A 99 A3 38 29 22 11 31 20 2D 20 |....":..8)".1 - |
00000EA0: C5 44 49 54 20 52 45 43 4F 52 44 53 2E 00 E9 16 |.DIT RECORDS....|
00000EB0: E2 09 99 A3 38 29 22 11 32 20 2D 20 D3 45 41 52 |....8)".2 - .EAR|
00000EC0: 43 48 20 26 20 52 45 50 4C 41 43 45 2E 22 3A 99 |CH & REPLACE.":.|
00000ED0: A3 38 29 22 11 33 20 2D 20 D3 45 41 52 43 48 20 |.8)".3 - .EARCH |
00000EE0: 26 20 44 45 4C 45 54 45 2E 00 19 17 F6 09 99 A3 |& DELETE........|
00000EF0: 38 29 22 11 34 20 2D 20 C2 4C 4F 43 4B 20 44 45 |8)".4 - .LOCK DE|
00000F00: 4C 45 54 45 2E 22 3A 99 A3 38 29 22 11 35 20 2D |LETE.":..8)".5 -|
00000F10: 20 C5 58 49 54 2E 11 11 11 00 37 17 1E 0A 8D 35 | .XIT.....7....5|
00000F20: 38 30 30 3A 8B 47 24 B3 22 31 22 B0 47 24 B1 22 |800:.G$."1".G$."|
00000F30: 35 22 A7 32 35 39 30 00 45 17 28 0A 8B 47 24 B2 |5".2590.E.(..G$.|
00000F40: 22 35 22 A7 8E 00 7A 17 32 0A 99 22 93 22 3A 91 |"5"...z.2..".":.|
00000F50: C5 28 47 24 29 8D 32 36 32 30 2C 33 30 30 30 2C |.(G$).2620,3000,|
00000F60: 33 30 39 33 2C 32 38 39 30 3A 99 22 93 05 22 3A |3093,2890:."..":|
00000F70: 8B 52 43 B1 31 A7 32 35 30 30 00 B1 17 37 0A 9E |.RC.1.2500...7..|
00000F80: 41 54 2C 38 2C 31 30 3A 99 22 12 20 CE 4F 20 52 |AT,8,10:.". .O R|
00000F90: 45 43 4F 52 44 53 20 52 45 4D 41 49 4E 49 4E 47 |ECORDS REMAINING|
00000FA0: 20 22 3A 8D 39 38 30 30 3A 92 31 39 38 2C 31 3A | ":.9800:.198,1:|
00000FB0: 8E 00 E2 17 3C 0A 9E 41 54 2C 31 30 2C 38 3A 85 |....<..AT,10,8:.|
00000FC0: 22 D2 45 43 4F 52 44 20 4E 4F 2E 22 3B 45 52 3A |".ECORD NO.";ER:|
00000FD0: 8B 45 52 B3 31 B0 45 52 B1 52 43 AB 31 A7 32 36 |.ER.1.ER.RC.1.26|
00000FE0: 32 30 00 26 18 46 0A 4D 24 B2 22 9A 12 20 05 3C |20.&.F.M$.".. .<|
00000FF0: 2D C2 41 43 4B 9A 20 05 3E 2D C6 4F 52 57 41 52 |-.ACK. .>-.ORWAR|
00001000: 44 9A 20 05 C1 2D C1 4C 54 45 52 9A 20 05 C4 2D |D. ..-.LTER. ..-|
00001010: C4 45 4C 9A 20 05 C5 2D C5 58 49 54 9A 20 13 22 |.EL. ..-.XIT. ."|
00001020: 3A 8D 33 34 32 30 00 37 18 47 0A 8B 47 24 B2 22 |:.3420.7.G..G$."|
00001030: 41 22 A7 32 36 34 30 00 45 18 4B 0A 8B 47 24 B2 |A".2640.E.K..G$.|
00001040: 22 45 22 A7 8E 00 6A 18 4C 0A 8D 32 38 33 30 3A |"E"...j.L..2830:|
00001050: 8B 52 43 B1 31 A7 97 31 39 38 2C 31 3A 97 36 33 |.RC.1..198,1:.63|
00001060: 31 2C 36 30 3A 89 32 36 33 30 00 70 18 4D 0A 8E |1,60:.2630.p.M..|
00001070: 00 AA 18 50 0A 8D 39 38 30 30 3A 99 22 13 12 9A |...P..9800:."...|
00001080: 20 20 20 20 20 05 20 D3 45 4C 45 43 54 20 44 41 | . .ELECT DA|
00001090: 54 41 20 41 4E 44 20 50 52 45 53 53 20 D2 C5 D4 |TA AND PRESS ...|
000010A0: D5 D2 CE 20 9A 20 20 20 20 22 00 E8 18 5A 0A 9E |... . "...Z..|
000010B0: 41 54 2C 30 2C 32 34 3A 99 22 9A 12 20 05 D5 53 |AT,0,24:.".. ..S|
000010C0: 45 20 43 55 52 53 4F 52 20 4B 45 59 20 54 4F 20 |E CURSOR KEY TO |
000010D0: 4D 4F 56 45 20 55 50 2F 44 4F 57 4E 9A 20 05 C5 |MOVE UP/DOWN. ..|
000010E0: 2D C5 58 49 54 9A 20 13 00 F6 18 5F 0A 44 B2 30 |-.XIT. ...._.D.0|
000010F0: 3A 8D 32 39 38 30 00 0B 19 64 0A A1 47 24 3A 8B |:.2980...d..G$:.|
00001100: 47 24 B2 22 45 22 A7 32 36 33 30 00 30 19 78 0A |G$."E".2630.0.x.|
00001110: 8B 47 24 B2 22 91 22 A7 8D 32 39 38 35 3A 44 B2 |.G$."."..2985:D.|
00001120: 44 AB 31 3A 8B 44 B3 B1 AB 31 A7 8D 32 39 38 30 |D.1:.D...1..2980|
00001130: 00 44 19 82 0A 8B 44 B3 30 A7 44 B2 46 44 3A 8D |.D....D.0.D.FD:.|
00001140: 32 39 38 30 00 6B 19 8C 0A 8B 47 24 B2 22 11 22 |2980.k....G$."."|
00001150: A7 8D 32 39 38 35 3A 44 B2 44 AA 31 3A 8B 44 B3 |..2985:D.D.1:.D.|
00001160: B1 46 44 AA 31 A7 8D 32 39 38 30 00 7A 19 96 0A |.FD.1..2980.z...|
00001170: 8B 44 B1 46 44 A7 32 36 35 35 00 8E 19 A0 0A 8B |.D.FD.2655......|
00001180: 47 24 B3 B1 C7 28 31 33 29 A7 32 36 36 30 00 C8 |G$...(13).2660..|
00001190: 19 AA 0A 8D 39 38 30 30 3A 99 22 13 12 9A 20 20 |....9800:."... |
000011A0: 20 20 05 20 D3 45 4C 45 43 54 20 45 44 49 54 20 | . .ELECT EDIT |
000011B0: 4F 50 54 49 4F 4E 2D 20 20 20 20 20 20 20 20 20 |OPTION- |
000011C0: 20 20 9A 20 20 20 20 22 00 07 1A B4 0A 9E 41 54 | . "......AT|
000011D0: 2C 30 2C 32 34 3A 99 22 9A 12 20 20 05 20 CF 2D |,0,24:.".. . .-|
000011E0: CF 56 45 52 57 52 49 54 45 20 9A 20 20 05 20 C4 |.VERWRITE . . .|
000011F0: 2D C4 45 4C 45 54 45 20 9A 20 05 20 C5 2D C5 58 |-.ELETE . . .-.X|
00001200: 49 54 20 9A 20 20 13 00 23 1A BE 0A A1 47 24 3A |IT . ..#....G$:|
00001210: 8B 47 24 B2 22 45 22 A7 8D 34 34 30 30 3A 89 32 |.G$."E"..4400:.2|
00001220: 36 34 30 00 36 1A C8 0A 8F 20 44 45 4C 45 54 45 |640.6.... DELETE|
00001230: 20 46 49 45 4C 44 00 5B 1A D2 0A 8B 47 24 B2 22 | FIELD.[....G$."|
00001240: 44 22 A7 41 24 28 44 2C 45 52 29 B2 22 20 22 3A |D".A$(D,ER)." ":|
00001250: 8D 34 34 30 30 3A 89 32 36 34 30 00 6D 1A DC 0A |.4400:.2640.m...|
00001260: 8B 47 24 B3 B1 22 4F 22 A7 32 37 35 30 00 BB 1A |.G$.."O".2750...|
00001270: DD 0A 8F 20 4F 56 45 52 57 52 49 54 45 20 46 49 |... OVERWRITE FI|
00001280: 45 4C 44 2D 43 41 4C 4C 20 49 4E 50 55 54 20 53 |ELD-CALL INPUT S|
00001290: 2F 52 20 57 49 54 48 20 45 44 49 54 20 46 4C 41 |/R WITH EDIT FLA|
000012A0: 47 20 53 45 54 20 26 20 53 41 56 45 20 4D 41 49 |G SET & SAVE MAI|
000012B0: 4E 20 56 41 52 49 41 42 4C 45 53 00 DB 1A E6 0A |N VARIABLES.....|
000012C0: 8D 32 39 37 30 3A 45 43 B2 52 43 3A 52 43 B2 45 |.2970:EC.RC:RC.E|
000012D0: 52 3A 49 B2 44 3A 8D 32 30 30 30 00 F3 1A F0 0A |R:I.D:.2000.....|
000012E0: 8B 49 24 B2 22 22 A7 41 24 28 44 2C 45 52 29 B2 |.I$."".A$(D,ER).|
000012F0: 22 20 22 00 09 1B FA 0A 52 43 B2 45 43 3A 8D 34 |" ".....RC.EC:.4|
00001300: 34 30 30 3A 89 32 36 34 30 00 44 1B 0E 0B 9E 41 |400:.2640.D....A|
00001310: 54 2C 30 2C 32 34 3A 99 22 9A 12 20 20 20 20 20 |T,0,24:.".. |
00001320: 20 05 20 20 20 C1 52 45 20 59 4F 55 20 53 55 52 | . .RE YOU SUR|
00001330: 45 3F 20 20 20 20 9A 20 20 20 20 20 20 20 20 20 |E? . |
00001340: 20 20 20 13 00 56 1B 18 0B A1 47 24 3A 8B 47 24 | ..V....G$:.G$|
00001350: B2 22 4E 22 A7 8E 00 68 1B 2C 0B 8B 47 24 B3 B1 |."N"...h.,..G$..|
00001360: 22 59 22 A7 32 38 34 30 00 A1 1B 36 0B 9E 41 54 |"Y".2840...6..AT|
00001370: 2C 30 2C 32 34 3A 99 22 9A 12 20 20 20 20 20 20 |,0,24:.".. |
00001380: 20 20 05 20 20 20 20 20 C4 45 4C 45 54 49 4E 47 | . .ELETING|
00001390: 20 44 41 54 41 2E 2E 20 20 20 20 9A 20 20 20 20 | DATA.. . |
000013A0: 13 00 CB 1B 37 0B 8F 20 4D 4F 56 45 20 52 45 43 |....7.. MOVE REC|
000013B0: 4F 52 44 53 20 41 42 4F 56 45 20 44 45 4C 45 54 |ORDS ABOVE DELET|
000013C0: 45 44 20 4F 4E 45 20 44 4F 57 4E 00 00 1C 40 0B |ED ONE DOWN...@.|
000013D0: 81 43 B2 45 52 A4 52 43 3A 81 46 B2 30 A4 46 44 |.C.ER.RC:.F.0.FD|
000013E0: 3A 41 24 28 46 2C 43 29 B2 41 24 28 46 2C 43 AA |:A$(F,C).A$(F,C.|
000013F0: 31 29 3A 82 3A 82 3A 52 43 B2 52 43 AB 31 3A 8E |1):.:.:RC.RC.1:.|
00001400: 00 06 1C 41 0B 3A 00 1D 1C 42 0B 8F 20 42 4C 4F |...A.:...B.. BLO|
00001410: 43 4B 20 44 45 4C 45 54 45 20 53 2F 52 00 50 1C |CK DELETE S/R.P.|
00001420: 4A 0B 9E 41 54 2C 35 2C 36 3A 85 22 C4 45 4C 45 |J..AT,5,6:.".ELE|
00001430: 54 45 20 46 52 4F 4D 2E 2E 22 3B 44 46 3A 8B 44 |TE FROM..";DF:.D|
00001440: 46 B3 31 B0 44 46 B1 52 43 AB 32 A7 32 38 39 30 |F.1.DF.RC.2.2890|
00001450: 00 98 1C 4F 0B 45 52 B2 44 46 3A 4D 24 B2 22 12 |...O.ER.DF:M$.".|
00001460: 9A 20 20 20 20 20 20 20 20 20 05 20 C1 52 45 20 |. . .RE |
00001470: 59 4F 55 20 53 55 52 45 28 59 2F 4E 29 3F 20 9A |YOU SURE(Y/N)? .|
00001480: 20 20 20 20 20 20 20 20 20 20 13 22 3A 8D 39 38 | .":.98|
00001490: 30 30 3A 8D 34 33 39 30 00 B3 1C 50 0B A1 47 24 |00:.4390...P..G$|
000014A0: 3A 8B 47 24 B2 22 4E 22 A7 99 22 93 22 3A 89 32 |:.G$."N"..".":.2|
000014B0: 38 39 30 00 C5 1C 51 0B 8B 47 24 B3 B1 22 59 22 |890...Q..G$.."Y"|
000014C0: A7 32 38 39 36 00 01 1D 54 0B 99 22 93 22 3A 9E |.2896...T..".":.|
000014D0: 41 54 2C 35 2C 31 30 3A 85 22 C4 45 4C 45 54 45 |AT,5,10:.".ELETE|
000014E0: 20 54 4F 2E 2E 2E 2E 22 3B 44 54 3A 8B 44 54 B3 | TO....";DT:.DT.|
000014F0: B2 44 46 20 B0 44 54 B1 52 43 AB 31 A7 32 39 30 |.DF .DT.RC.1.290|
00001500: 30 00 17 1D 56 0B 45 52 B2 44 54 3A 8D 39 38 30 |0...V.ER.DT:.980|
00001510: 30 3A 8D 34 33 39 30 00 32 1D 57 0B A1 47 24 3A |0:.4390.2.W..G$:|
00001520: 8B 47 24 B2 22 4E 22 A7 99 22 93 22 3A 89 32 39 |.G$."N"..".":.29|
00001530: 30 30 00 44 1D 58 0B 8B 47 24 B3 B1 22 59 22 A7 |00.D.X..G$.."Y".|
00001540: 32 39 30 33 00 87 1D 59 0B 9E 41 54 2C 30 2C 32 |2903...Y..AT,0,2|
00001550: 34 3A 99 22 12 9A 20 05 20 C4 4F 20 59 4F 55 20 |4:.".. . .O YOU |
00001560: 57 49 53 48 20 54 48 45 20 44 45 4C 45 54 45 20 |WISH THE DELETE |
00001570: 54 4F 20 47 4F 20 41 48 45 41 44 3F 20 9A 20 13 |TO GO AHEAD? . .|
00001580: 22 3A 8D 39 38 30 30 00 99 1D 5A 0B A1 47 24 3A |":.9800...Z..G$:|
00001590: 8B 47 24 B2 22 4E 22 A7 8E 00 AB 1D 5B 0B 8B 47 |.G$."N".....[..G|
000015A0: 24 B3 B1 22 59 22 A7 32 39 30 36 00 D0 1D 5E 0B |$.."Y".2906...^.|
000015B0: 99 22 93 22 3A 9E 41 54 2C 39 2C 31 34 3A 99 22 |.".":.AT,9,14:."|
000015C0: 2A 20 2A 20 C4 C5 CC C5 D4 C9 CE C7 20 2A 20 2A |* * ........ * *|
000015D0: 00 F8 1D 5F 0B 8F 20 4D 4F 56 45 20 52 45 43 4F |..._.. MOVE RECO|
000015E0: 52 44 53 20 44 4F 57 4E 20 54 4F 20 44 45 4C 45 |RDS DOWN TO DELE|
000015F0: 54 45 20 42 4C 4F 43 4B 00 2F 1E 68 0B 81 44 B2 |TE BLOCK./.h..D.|
00001600: 44 54 AA 31 A4 52 43 AB 31 3A 81 46 B2 30 A4 46 |DT.1.RC.1:.F.0.F|
00001610: 44 3A 41 24 28 46 2C 44 46 AB 31 AA 28 44 AB 44 |D:A$(F,DF.1.(D.D|
00001620: 54 29 29 B2 41 24 28 46 2C 44 29 3A 82 3A 82 00 |T)).A$(F,D):.:..|
00001630: 45 1E 72 0B 52 43 B2 52 43 AB 28 44 54 AB 44 46 |E.r.RC.RC.(DT.DF|
00001640: AA 31 29 3A 8E 00 4B 1E 7C 0B 3A 00 75 1E 86 0B |.1):..K.|.:.u...|
00001650: 8F 20 44 45 4C 45 54 45 20 44 41 54 41 20 4F 4E |. DELETE DATA ON|
00001660: 20 53 43 52 45 45 4E 20 46 4F 52 20 4F 56 45 52 | SCREEN FOR OVER|
00001670: 57 52 49 54 45 00 A8 1E 9A 0B 4C 24 B2 22 22 3A |WRITE.....L$."":|
00001680: 81 4C B2 31 A4 C3 28 41 24 28 44 2C 45 52 29 29 |.L.1..(A$(D,ER))|
00001690: 3A 4C 24 B2 4C 24 AA 22 20 22 3A 82 3A 8D 32 39 |:L$.L$." ":.:.29|
000016A0: 39 35 3A 99 4C 24 3A 8E 00 AE 1E 9F 0B 3A 00 DB |95:.L$:......:..|
000016B0: 1E A0 0B 8F 20 53 2F 52 20 54 4F 20 48 49 47 48 |.... S/R TO HIGH|
000016C0: 4C 49 47 48 54 20 43 55 52 52 45 4E 54 20 46 49 |LIGHT CURRENT FI|
000016D0: 45 4C 44 20 54 4F 20 45 44 49 54 00 F4 1E A4 0B |ELD TO EDIT.....|
000016E0: 8D 32 39 39 35 3A 99 22 12 22 41 24 28 44 2C 45 |.2995:."."A$(D,E|
000016F0: 52 29 3A 8E 00 0A 1F A9 0B 8D 32 39 39 35 3A 99 |R):.......2995:.|
00001700: 41 24 28 44 2C 45 52 29 3A 8E 00 49 1F AE 0B 9E |A$(D,ER):..I....|
00001710: 41 54 2C 30 2C 32 34 3A 99 22 9A 12 20 05 46 31 |AT,0,24:.".. .F1|
00001720: 2D C4 45 4C 45 54 45 20 9A 20 05 20 46 33 2D CF |-.ELETE . . F3-.|
00001730: 56 45 52 57 52 49 54 45 20 9A 20 05 20 46 35 2D |VERWRITE . . F5-|
00001740: C5 58 49 54 20 9A 20 20 13 00 5E 1F AF 0B 8F 20 |.XIT . ..^.... |
00001750: 43 55 52 53 4F 52 20 53 45 54 20 53 2F 52 00 82 |CURSOR SET S/R..|
00001760: 1F B3 0B 9E 41 54 2C C5 28 42 24 28 31 2C 44 29 |....AT,.(B$(1,D)|
00001770: 29 AB 33 2C C5 28 42 24 28 30 2C 44 29 29 AB 36 |).3,.(B$(0,D)).6|
00001780: 3A 8E 00 88 1F B4 0B 3A 00 A3 1F B5 0B 8F 20 53 |:......:...... S|
00001790: 45 41 52 43 48 20 26 20 52 45 50 4C 41 43 45 20 |EARCH & REPLACE |
000017A0: 53 2F 52 00 DF 1F B8 0B 45 46 B2 31 3A 49 53 B2 |S/R.....EF.1:IS.|
000017B0: 30 3A 8D 34 33 35 30 3A 85 22 11 1D 1D C6 49 45 |0:.4350:."....IE|
000017C0: 4C 44 20 4E 4F 2E 28 2D 31 20 54 4F 20 45 58 49 |LD NO.(-1 TO EXI|
000017D0: 54 29 22 3B 53 49 3A 8B 53 49 B2 AB 31 A7 8E 00 |T)";SI:.SI..1...|
000017E0: F6 1F C2 0B 8B 53 49 B3 31 B0 53 49 B1 46 44 AA |.....SI.1.SI.FD.|
000017F0: 31 A7 33 30 30 30 00 2F 20 CC 0B 53 24 B2 22 22 |1.3000./ ..S$.""|
00001800: 3A 53 49 B2 53 49 AB 31 3A 9E 41 54 2C 32 2C 31 |:SI.SI.1:.AT,2,1|
00001810: 36 3A 85 22 D3 45 41 52 43 48 20 44 41 54 41 22 |6:.".EARCH DATA"|
00001820: 3B 53 24 3A 8B 53 24 B2 22 22 A7 33 30 30 30 00 |;S$:.S$."".3000.|
00001830: 68 20 D1 0B 9E 41 54 2C 32 2C 31 38 3A 99 22 D2 |h ...AT,2,18:.".|
00001840: 45 50 4C 41 43 45 20 44 41 54 41 3F 22 3A 58 B2 |EPLACE DATA?":X.|
00001850: 31 38 3A 59 B2 32 34 3A 9E 41 54 2C 31 35 2C 31 |18:Y.24:.AT,15,1|
00001860: 38 3A 97 32 35 31 2C 30 00 AA 20 D2 0B 8F 20 43 |8:.251,0.. ... C|
00001870: 41 4C 4C 20 49 4E 50 55 54 20 52 4F 55 54 49 4E |ALL INPUT ROUTIN|
00001880: 45 20 54 4F 20 4D 41 4B 45 20 53 55 52 45 20 44 |E TO MAKE SURE D|
00001890: 41 54 41 20 43 4F 4E 46 4F 52 4D 53 20 54 4F 20 |ATA CONFORMS TO |
000018A0: 46 49 45 4C 44 20 54 59 50 45 00 DB 20 D6 0B 97 |FIELD TYPE.. ...|
000018B0: 32 35 32 2C C5 28 42 24 28 33 2C 53 49 29 29 3A |252,.(B$(3,SI)):|
000018C0: 97 32 35 33 2C C5 28 C8 28 42 24 28 34 2C 53 49 |.253,.(.(B$(4,SI|
000018D0: 29 2C 31 29 29 3A 8D 32 30 32 30 00 F1 20 D7 0B |),1)):.2020.. ..|
000018E0: 8F 20 43 41 4C 4C 20 53 45 41 52 43 48 20 53 2F |. CALL SEARCH S/|
000018F0: 52 00 1E 21 E0 0B 49 54 24 B2 C8 28 53 24 2C 31 |R..!..IT$..(S$,1|
00001900: 29 3A 4C 4E B2 C3 28 53 24 29 AB 31 3A 53 24 B2 |):LN..(S$).1:S$.|
00001910: C9 28 53 24 2C 4C 4E 29 3A 8D 33 35 39 39 00 2F |.(S$,LN):.3599./|
00001920: 21 EA 0B 8B 43 50 24 B2 22 22 A7 33 30 30 30 00 |!...CP$."".3000.|
00001930: 68 21 F4 0B 99 A3 31 30 29 22 11 11 D2 45 50 4C |h!....10)"...EPL|
00001940: 41 43 49 4E 47 2E 2E 20 11 11 11 22 3A 81 44 B2 |ACING.. ...":.D.|
00001950: 31 A4 C3 28 43 50 24 29 3A 50 B2 C6 28 CA 28 43 |1..(CP$):P..(.(C|
00001960: 50 24 2C 44 2C 31 29 29 00 88 21 FE 0B 8B 49 54 |P$,D,1))..!...IT|
00001970: 24 B3 B1 22 40 22 A7 41 24 28 53 49 2C 50 29 B2 |$.."@".A$(SI,P).|
00001980: 49 24 3A 89 33 30 39 32 00 C2 21 03 0C 8F 20 43 |I$:.3092..!... C|
00001990: 48 45 43 4B 20 4C 45 4E 47 54 48 20 4F 46 20 53 |HECK LENGTH OF S|
000019A0: 54 52 49 4E 47 20 44 4F 45 53 20 4E 4F 54 20 45 |TRING DOES NOT E|
000019B0: 58 43 45 45 44 20 46 49 45 4C 44 20 4C 45 4E 47 |XCEED FIELD LENG|
000019C0: 54 48 00 EE 21 08 0C 8B C3 28 41 24 28 53 49 2C |TH..!....(A$(SI,|
000019D0: 50 29 29 AB 4C 4E AA C3 28 49 24 29 B3 B2 C5 28 |P)).LN..(I$)...(|
000019E0: 42 24 28 33 2C 53 49 29 29 A7 33 30 39 31 00 23 |B$(3,SI)).3091.#|
000019F0: 22 12 0C 99 A3 33 29 22 91 2A 20 2A 20 D3 54 52 |"....3)".* * .TR|
00001A00: 49 4E 47 20 54 4F 4F 20 4C 4F 4E 47 20 49 4E 22 |ING TOO LONG IN"|
00001A10: 50 22 20 2A 20 2A 22 3A 8D 39 38 30 30 3A 89 33 |P" * *":.9800:.3|
00001A20: 30 39 32 00 66 22 13 0C 41 24 28 53 49 2C 50 29 |092.f"..A$(SI,P)|
00001A30: B2 C8 28 41 24 28 53 49 2C 50 29 2C 50 53 AB 31 |..(A$(SI,P),PS.1|
00001A40: 29 AA 49 24 AA C9 28 41 24 28 53 49 2C 50 29 2C |).I$..(A$(SI,P),|
00001A50: C3 28 41 24 28 53 49 2C 50 29 29 AB 28 50 53 AB |.(A$(SI,P)).(PS.|
00001A60: 31 AA 4C 4E 29 29 00 74 22 14 0C 82 3A 8D 39 38 |1.LN)).t"...:.98|
00001A70: 30 30 3A 8E 00 B1 22 15 0C 45 46 B2 31 3A 49 53 |00:..."..EF.1:IS|
00001A80: B2 30 3A 8D 34 33 35 30 3A 85 22 11 11 1D 1D C6 |.0:.4350:.".....|
00001A90: 49 45 4C 44 20 4E 4F 2E 28 2D 31 20 54 4F 20 45 |IELD NO.(-1 TO E|
00001AA0: 58 49 54 29 22 3B 53 49 3A 8B 53 49 B2 AB 31 A7 |XIT)";SI:.SI..1.|
00001AB0: 8E 00 C8 22 16 0C 8B 53 49 B3 31 B0 53 49 B1 46 |..."...SI.1.SI.F|
00001AC0: 44 AA 31 A7 33 30 39 33 00 F6 22 17 0C 53 49 B2 |D.1.3093.."..SI.|
00001AD0: 53 49 AB 31 3A 85 22 11 11 1D 1D D3 45 41 52 43 |SI.1:.".....EARC|
00001AE0: 48 20 44 41 54 41 22 3B 53 24 3A 8B 53 24 B2 22 |H DATA";S$:.S$."|
00001AF0: 22 A7 33 30 39 33 00 30 23 18 0C 49 54 24 B2 C8 |".3093.0#..IT$..|
00001B00: 28 53 24 2C 31 29 3A 4C 4E B2 C3 28 53 24 29 AB |(S$,1):LN..(S$).|
00001B10: 31 3A 53 24 B2 C9 28 53 24 2C 4C 4E 29 3A 8D 33 |1:S$..(S$,LN):.3|
00001B20: 35 39 39 3A 8B 43 50 24 B2 22 22 A7 33 30 39 33 |599:.CP$."".3093|
00001B30: 00 66 23 19 0C 99 A3 39 29 22 11 11 12 20 C4 45 |.f#....9)"... .E|
00001B40: 4C 45 54 49 4E 47 2E 2E 20 22 3A 81 44 B2 31 A4 |LETING.. ":.D.1.|
00001B50: C3 28 43 50 24 29 3A 50 B2 C6 28 CA 28 43 50 24 |.(CP$):P..(.(CP$|
00001B60: 2C 44 2C 31 29 29 00 85 23 1A 0C 8B 49 54 24 B3 |,D,1))..#...IT$.|
00001B70: B1 22 40 22 A7 41 24 28 53 49 2C 50 29 B2 22 20 |."@".A$(SI,P)." |
00001B80: 22 3A 82 3A 8E 00 C5 23 1B 0C 41 24 28 53 49 2C |":.:...#..A$(SI,|
00001B90: 50 29 B2 C8 28 41 24 28 53 49 2C 50 29 2C 50 53 |P)..(A$(SI,P),PS|
00001BA0: AB 31 29 AA CA 28 41 24 28 53 49 2C 50 29 2C 50 |.1)..(A$(SI,P),P|
00001BB0: 53 AA 4C 4E 2C C3 28 41 24 28 53 49 2C 50 29 29 |S.LN,.(A$(SI,P))|
00001BC0: 29 3A 82 3A 8E 00 F7 23 1C 0C 99 22 93 05 11 11 |):.:...#..."....|
00001BD0: 11 1D 1D D0 52 45 53 53 3B 22 3A 99 A3 35 29 22 |....RESS;":..5)"|
00001BE0: 11 11 31 20 2D 20 D4 4F 20 56 49 45 57 20 41 20 |..1 - .O VIEW A |
00001BF0: 52 45 43 4F 52 44 2E 00 2D 24 1D 0C 99 A3 35 29 |RECORD..-$....5)|
00001C00: 22 11 11 32 20 2D 20 D4 4F 20 56 49 45 57 20 41 |"..2 - .O VIEW A|
00001C10: 4C 4C 20 52 45 43 4F 52 44 53 2E 22 3A 99 A3 35 |LL RECORDS.":..5|
00001C20: 29 22 11 11 33 20 2D 20 C5 58 49 54 2E 00 42 24 |)"..3 - .XIT..B$|
00001C30: 1E 0C A1 47 24 3A 8B 47 24 B2 22 32 22 A7 33 31 |...G$:.G$."2".31|
00001C40: 32 30 00 50 24 1F 0C 8B 47 24 B2 22 33 22 A7 8E |20.P$...G$."3"..|
00001C50: 00 62 24 20 0C 8B 47 24 B3 B1 22 31 22 A7 33 31 |.b$ ..G$.."1".31|
00001C60: 30 32 00 6A 24 21 0C 99 22 93 00 9A 24 22 0C 9E |02.j$!.."...$"..|
00001C70: 41 54 2C 34 2C 38 3A 85 22 D2 45 43 4F 52 44 20 |AT,4,8:.".ECORD |
00001C80: 4E 4F 2E 22 3B 45 52 3A 8B 45 52 B3 31 B0 45 52 |NO.";ER:.ER.1.ER|
00001C90: B1 52 43 AB 31 A7 33 31 30 36 00 D6 24 24 0C 4D |.RC.1.3106..$$.M|
00001CA0: 24 B2 22 12 9A 20 20 20 20 20 20 20 05 20 D0 52 |$.".. . .R|
00001CB0: 45 53 53 20 41 20 4B 45 59 20 54 4F 20 45 58 49 |ESS A KEY TO EXI|
00001CC0: 54 20 9A 20 20 20 20 20 20 20 20 20 20 20 13 22 |T . ."|
00001CD0: 3A 8D 34 33 39 30 00 E7 24 25 0C 92 31 39 38 2C |:.4390..$%..198,|
00001CE0: 31 3A 89 33 31 30 30 00 15 25 30 0C 99 22 93 11 |1:.3100..%0.."..|
00001CF0: 11 11 11 1D 1D 1D 1D C1 CE D9 20 CB C5 D9 20 54 |.......... ... T|
00001D00: 4F 20 53 43 52 4F 4C 4C 20 27 C5 27 54 4F 20 45 |O SCROLL '.'TO E|
00001D10: 58 49 54 11 11 00 48 25 4E 0C 9E 41 54 2C 36 2C |XIT...H%N..AT,6,|
00001D20: 31 30 3A 85 22 D2 45 43 4F 52 44 20 4E 4F 2E 28 |10:.".ECORD NO.(|
00001D30: 2D 31 20 54 4F 20 45 58 49 54 29 22 3B 53 50 3A |-1 TO EXIT)";SP:|
00001D40: 8B 53 50 B2 AB 31 A7 8E 00 5F 25 58 0C 8B 53 50 |.SP..1..._%X..SP|
00001D50: B3 31 B0 53 50 B1 52 43 AB 31 A7 33 31 35 30 00 |.1.SP.RC.1.3150.|
00001D60: 80 25 5D 0C 8F 20 44 49 53 50 4C 41 59 20 46 49 |.%].. DISPLAY FI|
00001D70: 4C 45 53 20 42 59 20 53 43 52 4F 4C 4C 49 4E 47 |LES BY SCROLLING|
00001D80: 00 88 25 62 0C 99 22 93 00 C4 25 94 0C 81 50 B2 |..%b.."...%...P.|
00001D90: 53 50 A4 52 43 AB 31 3A 99 22 12 20 D2 45 43 4F |SP.RC.1:.". .ECO|
00001DA0: 52 44 20 22 50 3A 81 53 52 B2 30 A4 46 44 3A 99 |RD "P:.SR.0.FD:.|
00001DB0: 42 24 28 32 2C 53 52 29 22 3A 20 22 41 24 28 53 |B$(2,SR)": "A$(S|
00001DC0: 52 2C 50 29 00 D9 25 9E 0C A1 47 24 3A 8B 47 24 |R,P)..%...G$:.G$|
00001DD0: B2 22 45 22 A7 33 31 30 30 00 0C 26 A8 0C 82 3A |."E".3100..&...:|
00001DE0: 99 22 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 |."- - - - - - - |
00001DF0: 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 |- - - - - - - - |
00001E00: 2D 20 2D 20 2D 20 2D 20 2D 20 91 91 00 35 26 BC |- - - - - ...5&.|
00001E10: 0C 92 31 39 38 2C 31 3A 82 3A 92 31 39 37 2C 36 |..198,1:.:.197,6|
00001E20: 34 3A 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A |4:.198,0:.198,1:|
00001E30: 89 33 31 30 30 00 65 26 48 0D 9E 41 54 2C 37 2C |.3100.e&H..AT,7,|
00001E40: 33 3A 85 22 D2 45 43 4F 52 44 20 4E 4F 2E 22 3B |3:.".ECORD NO.";|
00001E50: 45 52 3A 8B 45 52 B3 31 B0 45 52 B1 52 43 AB 31 |ER:.ER.1.ER.RC.1|
00001E60: A7 33 34 30 30 00 9E 26 57 0D 4D 24 B2 22 9A 12 |.3400..&W.M$."..|
00001E70: 20 20 20 20 05 20 3C 2D C2 41 43 4B 20 9A 20 20 | . <-.ACK . |
00001E80: 05 20 3E 2D C6 4F 52 57 41 52 44 20 9A 20 20 05 |. >-.ORWARD . .|
00001E90: 20 C5 2D C5 58 49 54 20 9A 20 20 20 20 13 00 E1 | .-.XIT . ...|
00001EA0: 26 58 0D 8F 20 53 2F 52 20 54 4F 20 44 49 53 50 |&X.. S/R TO DISP|
00001EB0: 4C 41 59 20 52 45 43 4F 52 44 53 20 57 49 54 48 |LAY RECORDS WITH|
00001EC0: 4F 55 54 20 53 43 52 4F 4C 4C 49 4E 47 20 55 53 |OUT SCROLLING US|
00001ED0: 49 4E 47 20 53 43 52 45 45 4E 20 4C 41 59 4F 55 |ING SCREEN LAYOU|
00001EE0: 54 00 22 27 5C 0D 81 54 B2 30 A4 31 A9 30 3A 99 |T."'\..T.0.1.0:.|
00001EF0: 22 13 9A 12 20 20 D2 45 43 4F 52 44 20 22 C4 28 |"... .ECORD ".(|
00001F00: 45 52 29 22 20 20 20 20 20 20 20 20 20 20 20 20 |ER)" |
00001F10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001F20: 20 22 00 2C 27 66 0D 8D 34 34 30 30 00 52 27 7A | ".,'f..4400.R'z|
00001F30: 0D A1 47 24 3A 8B 47 24 B2 22 45 22 B0 47 24 B2 |..G$:.G$."E".G$.|
00001F40: 22 44 22 B0 47 24 B2 22 41 22 A7 54 B2 31 3A 82 |"D".G$."A".T.1:.|
00001F50: 3A 8E 00 64 27 8E 0D 8B 47 24 B3 B1 22 2C 22 A7 |:..d'...G$..",".|
00001F60: 33 34 38 30 00 7E 27 93 0D 45 52 B2 45 52 AB 31 |3480.~'..ER.ER.1|
00001F70: 3A 8B 45 52 B2 30 A7 45 52 B2 52 43 AB 31 00 84 |:.ER.0.ER.RC.1..|
00001F80: 27 96 0D 82 00 96 27 98 0D 8B 47 24 B3 B1 22 2E |'.....'...G$..".|
00001F90: 22 A7 33 34 35 30 00 AE 27 A2 0D 45 52 B2 45 52 |".3450..'..ER.ER|
00001FA0: AA 31 3A 8B 45 52 B2 52 43 A7 45 52 B2 31 00 B4 |.1:.ER.RC.ER.1..|
00001FB0: 27 A7 0D 82 00 BA 27 A8 0D 3A 00 CB 27 A9 0D 8F |'.....'..:..'...|
00001FC0: 20 53 45 41 52 43 48 20 53 2F 52 00 0E 28 AC 0D | SEARCH S/R..(..|
00001FD0: 45 46 B2 30 3A 99 22 93 22 3A 8D 34 33 35 30 3A |EF.0:.".":.4350:|
00001FE0: 99 22 11 1D 1D 1D 1E C5 4E 54 45 52 20 49 4E 20 |."......NTER IN |
00001FF0: 46 4F 52 4D 2C 12 C6 92 49 45 4C 44 12 D3 92 45 |FORM,...IELD...E|
00002000: 41 52 43 48 54 59 50 45 12 C4 92 41 54 41 00 3E |ARCHTYPE...ATA.>|
00002010: 28 B1 0D 99 22 11 1D 9E 27 C5 27 20 54 4F 20 45 |(..."...'.' TO E|
00002020: 58 49 54 20 27 C3 27 20 54 4F 20 43 4C 45 41 52 |XIT '.' TO CLEAR|
00002030: 20 27 D6 27 20 54 4F 20 56 49 45 57 11 11 00 62 | '.' TO VIEW...b|
00002040: 28 B6 0D 53 24 B2 22 22 3A 97 31 39 38 2C 30 3A |(..S$."":.198,0:|
00002050: 85 53 24 3A 8B 53 24 B2 22 45 22 A7 49 53 B2 30 |.S$:.S$."E".IS.0|
00002060: 3A 8E 00 80 28 C0 0D 8B 53 24 B2 22 43 22 A7 49 |:...(...S$."C".I|
00002070: 53 B2 30 3A 43 50 24 B2 22 22 3A 89 33 35 30 30 |S.0:CP$."":.3500|
00002080: 00 9F 28 C5 0D 8B 53 24 B2 22 56 22 AF 43 50 24 |..(...S$."V".CP$|
00002090: B3 B1 22 22 A7 99 22 93 22 3A 8D 34 30 30 35 00 |..""..".":.4005.|
000020A0: B7 28 C6 0D 8B 53 24 B2 22 22 B0 C3 28 53 24 29 |.(...S$.""..(S$)|
000020B0: B3 33 A7 33 35 30 30 00 E6 28 CA 0D 53 49 24 B2 |.3.3500..(..SI$.|
000020C0: C8 28 53 24 2C 31 29 3A 8B 53 49 24 B3 22 31 22 |.(S$,1):.SI$."1"|
000020D0: B0 53 49 24 B1 C9 28 C4 28 46 44 AA 31 29 2C 31 |.SI$..(.(FD.1),1|
000020E0: 29 A7 33 35 30 30 00 08 29 CF 0D 53 49 B2 C5 28 |).3500..)..SI..(|
000020F0: 53 49 24 29 3A 53 49 B2 53 49 AB 31 3A 8D 33 35 |SI$):SI.SI.1:.35|
00002100: 39 38 3A 89 33 35 30 30 00 0E 29 D0 0D 3A 00 1D |98:.3500..)..:..|
00002110: 29 D1 0D 8F 20 4D 41 49 4E 20 53 2F 52 00 46 29 |)... MAIN S/R.F)|
00002120: 0E 0E 49 54 24 B2 CA 28 53 24 2C 32 2C 31 29 3A |..IT$..(S$,2,1):|
00002130: 4C 4E B2 C3 28 53 24 29 AB 32 3A 53 24 B2 C9 28 |LN..(S$).2:S$..(|
00002140: 53 24 2C 4C 4E 29 00 83 29 0F 0E 8B 49 54 24 B3 |S$,LN)..)...IT$.|
00002150: B1 22 21 22 AF 49 54 24 B3 B1 22 2A 22 AF 49 54 |."!".IT$.."*".IT|
00002160: 24 B3 B1 22 40 22 AF 49 54 24 B3 B1 22 3C 22 AF |$.."@".IT$.."<".|
00002170: 49 54 24 B3 B1 22 3E 22 AF 49 54 24 B3 B1 22 5E |IT$..">".IT$.."^|
00002180: 22 A7 8E 00 98 29 10 0E 8B 45 46 A7 99 22 93 22 |"....)...EF.."."|
00002190: 3A 9E 41 54 2C 30 2C 38 00 AE 29 11 0E 99 A3 35 |:.AT,0,8..)....5|
000021A0: 29 22 11 D3 45 41 52 43 48 49 4E 47 2E 2E 00 C9 |)"..EARCHING....|
000021B0: 29 12 0E 8B 49 53 B2 30 A7 49 53 B2 31 3A 8D 33 |)...IS.0.IS.1:.3|
000021C0: 38 30 30 3A 89 33 36 32 31 00 D3 29 1A 0E 8D 33 |800:.3621..)...3|
000021D0: 38 31 30 00 E5 29 25 0E 8B 43 50 24 B3 B1 22 22 |810..)%..CP$..""|
000021E0: A7 33 36 33 30 00 14 2A 29 0E 8D 39 38 30 30 3A |.3630..*)..9800:|
000021F0: 99 A3 35 29 22 91 2A 20 2A 12 20 CE 4F 20 44 41 |..5)".* *. .O DA|
00002200: 54 41 20 46 4F 55 4E 44 20 92 2A 20 2A 22 3A 8D |TA FOUND .* *":.|
00002210: 33 39 30 30 00 24 2A 2A 0E 8B 49 53 A7 43 50 24 |3900.$**..IS.CP$|
00002220: B2 43 4E 24 00 2A 2A 2B 0E 8E 00 5B 2A 2E 0E 49 |.CN$.**+...[*..I|
00002230: 4D B2 C3 28 43 50 24 29 3A 99 A3 35 29 22 91 22 |M..(CP$):..5)"."|
00002240: C4 28 49 4D 29 22 20 52 45 43 4F 52 44 53 20 46 |.(IM)" RECORDS F|
00002250: 4F 55 4E 44 22 3A 8D 39 38 30 30 00 67 2A 38 0E |OUND":.9800.g*8.|
00002260: 8D 33 39 30 30 3A 8E 00 6D 2A 74 0E 3A 00 86 2A |.3900:..m*t.:..*|
00002270: 7E 0E 8F 20 53 45 41 52 43 48 20 53 55 42 52 4F |~.. SEARCH SUBRO|
00002280: 55 54 49 4E 45 53 00 9E 2A 88 0E 8F 20 44 49 52 |UTINES..*... DIR|
00002290: 45 43 54 20 43 4F 4D 50 41 52 49 53 4F 4E 00 C4 |ECT COMPARISON..|
000022A0: 2A C5 0E 8B 49 54 24 B2 22 21 22 AF 53 24 B2 41 |*...IT$."!".S$.A|
000022B0: 24 28 53 49 2C 47 29 A7 43 50 24 B2 43 50 24 AA |$(SI,G).CP$.CP$.|
000022C0: C7 28 47 29 00 EB 2A C6 0E 8B 49 54 24 B2 22 5E |.(G)..*...IT$."^|
000022D0: 22 AF 53 24 B3 B1 41 24 28 53 49 2C 47 29 A7 43 |".S$..A$(SI,G).C|
000022E0: 50 24 B2 43 50 24 AA C7 28 47 29 00 11 2B C7 0E |P$.CP$..(G)..+..|
000022F0: 8B 49 54 24 B2 22 3C 22 AF 53 24 B1 41 24 28 53 |.IT$."<".S$.A$(S|
00002300: 49 2C 47 29 A7 43 50 24 B2 43 50 24 AA C7 28 47 |I,G).CP$.CP$..(G|
00002310: 29 00 37 2B C8 0E 8B 49 54 24 B2 22 3E 22 AF 53 |).7+...IT$.">".S|
00002320: 24 B3 41 24 28 53 49 2C 47 29 A7 43 50 24 B2 43 |$.A$(SI,G).CP$.C|
00002330: 50 24 AA C7 28 47 29 00 3F 2B C9 0E 82 3A 8E 00 |P$..(G).?+...:..|
00002340: 45 2B CA 0E 3A 00 54 2B CB 0E 8F 20 57 49 4C 44 |E+..:.T+... WILD|
00002350: 43 41 52 44 00 78 2B CE 0E 8B C8 28 41 24 28 53 |CARD.x+....(A$(S|
00002360: 49 2C 47 29 2C 4C 4E 29 B2 53 24 A7 43 50 24 B2 |I,G),LN).S$.CP$.|
00002370: 43 50 24 AA C7 28 47 29 00 80 2B D3 0E 82 3A 8E |CP$..(G)..+...:.|
00002380: 00 94 2B D4 0E 8F 20 53 45 41 52 43 48 20 53 54 |..+... SEARCH ST|
00002390: 52 49 4E 47 00 AE 2B D5 0E 81 53 B2 31 A4 C3 28 |RING..+...S.1..(|
000023A0: 41 24 28 53 49 2C 47 29 29 AB 4C 4E AA 31 00 DF |A$(SI,G)).LN.1..|
000023B0: 2B D6 0E 8B 53 24 B2 CA 28 41 24 28 53 49 2C 47 |+...S$..(A$(SI,G|
000023C0: 29 2C 53 2C 4C 4E 29 A7 43 50 24 B2 43 50 24 AA |),S,LN).CP$.CP$.|
000023D0: C7 28 47 29 3A 47 B2 47 AA 31 3A 50 53 B2 53 00 |.(G):G.G.1:PS.S.|
000023E0: E9 2B D7 0E 82 3A 82 3A 8E 00 04 2C D8 0E 43 50 |.+...:.:...,..CP|
000023F0: 24 B2 22 22 3A 81 47 B2 31 A4 52 43 AB 31 3A 89 |$."":.G.1.RC.1:.|
00002400: 33 38 32 30 00 33 2C E2 0E 43 4E 24 B2 43 50 24 |3820.3,..CN$.CP$|
00002410: 3A 43 50 24 B2 22 22 3A 81 54 B2 31 A4 C3 28 43 |:CP$."":.T.1..(C|
00002420: 4E 24 29 3A 47 B2 C6 28 CA 28 43 4E 24 2C 54 2C |N$):G..(.(CN$,T,|
00002430: 31 29 29 00 45 2C EC 0E 8B 49 54 24 B2 22 2A 22 |1)).E,...IT$."*"|
00002440: A7 33 37 39 30 00 57 2C F6 0E 8B 49 54 24 B2 22 |.3790.W,...IT$."|
00002450: 40 22 A7 33 37 39 37 00 81 2C 00 0F 8B 49 54 24 |@".3797..,...IT$|
00002460: B2 22 3C 22 B0 49 54 24 B2 22 3E 22 B0 49 54 24 |."<".IT$.">".IT$|
00002470: B2 22 5E 22 B0 49 54 24 B2 22 21 22 A7 33 37 38 |."^".IT$."!".378|
00002480: 31 00 93 2C 3C 0F 81 57 B2 31 A4 31 30 30 30 3A |1..,<..W.1.1000:|
00002490: 82 3A 8E 00 99 2C 41 0F 3A 00 B5 2C 46 0F 8F 20 |.:...,A.:..,F.. |
000024A0: 44 49 53 50 4C 41 59 20 52 45 43 4F 52 44 53 20 |DISPLAY RECORDS |
000024B0: 46 4F 55 4E 44 00 E5 2C A0 0F 99 A3 36 29 22 11 |FOUND..,....6)".|
000024C0: 11 12 D0 D2 C5 D3 D3 A0 C1 CE D9 A0 CB C5 D9 A0 |................|
000024D0: D4 CF A0 D3 D4 C1 D2 D4 92 22 3A 92 31 39 38 2C |.........":.198,|
000024E0: 31 3A 99 22 93 00 05 2D A5 0F 81 44 B2 31 A4 C3 |1:."...-...D.1..|
000024F0: 28 43 50 24 29 3A 50 B2 C6 28 CA 28 43 50 24 2C |(CP$):P..(.(CP$,|
00002500: 44 2C 31 29 29 00 44 2D AA 0F 99 22 12 20 D2 45 |D,1)).D-...". .E|
00002510: 43 4F 52 44 20 22 50 3A 81 53 52 B2 30 A4 46 44 |CORD "P:.SR.0.FD|
00002520: 3A 99 42 24 28 32 2C 53 52 29 22 3A 20 22 41 24 |:.B$(2,SR)": "A$|
00002530: 28 53 52 2C 50 29 3A A1 47 24 3A 8B 47 24 B2 22 |(SR,P):.G$:.G$."|
00002540: 45 22 A7 8E 00 81 2D C8 0F 82 3A 99 22 2D 20 2D |E"....-...:."- -|
00002550: 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D | - - - - - - - -|
00002560: 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D | - - - - - - - -|
00002570: 20 2D 20 2D 20 91 91 22 3A 92 31 39 38 2C 31 3A | - - ..":.198,1:|
00002580: 82 00 96 2D D2 0F 92 31 39 37 2C 36 34 3A 92 31 |...-...197,64:.1|
00002590: 39 38 2C 31 3A 8E 00 9C 2D DC 0F 3A 00 B3 2D E6 |98,1:...-..:..-.|
000025A0: 0F 8F 20 53 45 41 52 43 48 20 49 4E 54 52 4F 20 |.. SEARCH INTRO |
000025B0: 53 2F 52 00 E9 2D FE 10 99 22 93 12 2A 92 57 49 |S/R..-..."..*.WI|
000025C0: 4C 44 43 41 52 44 20 12 21 92 43 4F 4D 50 41 52 |LDCARD .!.COMPAR|
000025D0: 45 20 44 49 52 45 43 54 4C 59 20 12 40 92 53 43 |E DIRECTLY .@.SC|
000025E0: 41 4E 20 53 54 52 49 4E 47 00 27 2E 08 11 99 22 |AN STRING.'...."|
000025F0: 1D 12 3C 92 4C 45 53 53 20 54 48 41 4E 20 12 3E |..<.LESS THAN .>|
00002600: 92 47 52 45 41 54 45 52 20 54 48 41 4E 20 12 5E |.GREATER THAN .^|
00002610: 92 4E 4F 54 20 45 51 55 41 4C 20 54 4F 11 22 3A |.NOT EQUAL TO.":|
00002620: 8D 35 30 30 30 3A 8E 00 45 2E 12 11 8F 20 52 45 |.5000:..E.... RE|
00002630: 43 4F 52 44 20 49 4E 20 53 43 52 45 45 4E 20 46 |CORD IN SCREEN F|
00002640: 4F 52 4D 41 54 00 5B 2E 21 11 8F 20 36 20 41 4E |ORMAT.[.!.. 6 AN|
00002650: 44 20 32 35 20 53 50 41 43 45 53 00 93 2E 26 11 |D 25 SPACES...&.|
00002660: 99 22 93 12 9A 20 20 20 20 20 20 D2 45 43 4F 52 |."... .ECOR|
00002670: 44 2D 22 C4 28 45 52 29 22 20 20 20 20 20 20 20 |D-".(ER)" |
00002680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002690: 20 20 22 00 D0 2E 30 11 9E 35 32 31 35 36 3A 81 | "...0..52156:.|
000026A0: 44 B2 30 A4 46 44 3A 9E 41 54 2C C5 28 42 24 28 |D.0.FD:.AT,.(B$(|
000026B0: 31 2C 44 29 29 AB 33 2C C5 28 42 24 28 30 2C 44 |1,D)).3,.(B$(0,D|
000026C0: 29 29 AB 36 3A 99 41 24 28 44 2C 45 52 29 3A 82 |)).6:.A$(D,ER):.|
000026D0: 00 E3 2E 3A 11 9E 41 54 2C 30 2C 32 34 3A 99 4D |...:..AT,0,24:.M|
000026E0: 24 3A 8E 00 E9 2E 44 11 3A 00 FA 2E 4E 11 8F 20 |$:....D.:...N.. |
000026F0: 46 4F 52 4D 41 54 20 53 2F 52 00 33 2F 58 11 8F |FORMAT S/R.3/X..|
00002700: 20 45 49 54 48 45 52 20 4C 4F 41 44 53 20 46 4F | EITHER LOADS FO|
00002710: 52 4D 41 54 20 44 41 54 41 20 43 52 45 41 54 45 |RMAT DATA CREATE|
00002720: 44 20 42 59 20 46 4F 52 4D 41 54 20 50 52 4F 47 |D BY FORMAT PROG|
00002730: 52 41 4D 00 55 2F 62 11 8F 20 4F 52 20 41 55 54 |RAM.U/b.. OR AUT|
00002740: 4F 2D 52 55 4E 53 20 46 4F 52 4D 41 54 20 50 52 |O-RUNS FORMAT PR|
00002750: 4F 47 52 41 4D 00 7E 2F 8A 11 41 54 B2 35 32 30 |OGRAM.~/..AT.520|
00002760: 33 38 3A 9E 41 54 2C 36 2C 34 3A 99 22 D0 52 45 |38:.AT,6,4:.".RE|
00002770: 53 53 20 27 45 27 20 54 4F 20 45 58 49 54 00 A2 |SS 'E' TO EXIT..|
00002780: 2F 8F 11 9E 41 54 2C 34 2C 38 3A 99 22 D0 52 4F |/...AT,4,8:.".RO|
00002790: 47 52 41 4D 20 4F 52 20 C4 41 54 41 28 50 2F 44 |GRAM OR .ATA(P/D|
000027A0: 29 3F 00 C4 2F 94 11 A1 47 24 3A 9E 41 54 2C 32 |)?../...G$:.AT,2|
000027B0: 35 2C 38 3A 99 47 24 3A 8B 47 24 B2 22 50 22 A7 |5,8:.G$:.G$."P".|
000027C0: 34 36 30 30 00 D7 2F 99 11 8B 47 24 B2 22 45 22 |4600../...G$."E"|
000027D0: A7 52 43 B2 31 3A 8E 00 E9 2F 9E 11 8B 47 24 B3 |.RC.1:.../...G$.|
000027E0: B1 22 44 22 A7 34 35 30 30 00 01 30 A8 11 8D 34 |."D".4500..0...4|
000027F0: 37 33 35 3A 8B 47 24 B3 B1 22 54 22 A7 34 35 33 |735:.G$.."T".453|
00002800: 31 00 4C 30 A9 11 99 22 11 11 1D D7 49 4E 44 20 |1.L0..."....IND |
00002810: 54 4F 20 46 4F 52 4D 41 54 20 44 41 54 41 20 26 |TO FORMAT DATA &|
00002820: 20 50 52 45 53 53 20 12 D2 C5 D4 D5 D2 CE 22 3A | PRESS .......":|
00002830: 92 31 39 37 2C 31 3A 9F 32 2C 31 2C 30 2C 22 46 |.197,1:.2,1,0,"F|
00002840: 4F 52 4D 41 54 22 3A 89 34 35 35 30 00 5F 30 B3 |ORMAT":.4550._0.|
00002850: 11 8B 47 24 B2 22 45 22 A7 52 43 B2 31 3A 8E 00 |..G$."E".RC.1:..|
00002860: 77 30 B8 11 8F 20 4F 50 45 4E 20 46 49 4C 45 20 |w0... OPEN FILE |
00002870: 54 4F 20 44 49 53 4B 00 A9 30 BC 11 9F 31 35 2C |TO DISK..0...15,|
00002880: 38 2C 31 35 2C 22 49 30 22 3A 9F 32 2C 38 2C 32 |8,15,"I0":.2,8,2|
00002890: 2C 22 46 4F 52 4D 41 54 2C 53 2C 52 22 3A 8D 31 |,"FORMAT,S,R":.1|
000028A0: 33 35 30 3A 8B 45 49 A7 8E 00 BA 30 C1 11 8F 20 |350:.EI....0... |
000028B0: 49 4E 50 55 54 20 44 41 54 41 00 ED 30 C6 11 84 |INPUT DATA..0...|
000028C0: 32 2C 46 44 3A 8D 39 39 38 30 3A 81 47 B2 30 A4 |2,FD:.9980:.G.0.|
000028D0: 36 3A 81 48 B2 30 A4 46 44 3A 84 32 2C 42 24 28 |6:.H.0.FD:.2,B$(|
000028E0: 47 2C 48 29 3A 82 3A 82 3A 52 46 B2 31 00 FE 30 |G,H):.:.:RF.1..0|
000028F0: DA 11 8B 47 24 B2 22 54 22 A7 A0 32 3A 8E 00 0B |...G$."T"..2:...|
00002900: 31 E4 11 A0 31 35 3A A0 32 3A 8E 00 11 31 EE 11 |1...15:.2:...1..|
00002910: 3A 00 2D 31 F3 11 8F 20 41 55 54 4F 2D 52 55 4E |:.-1... AUTO-RUN|
00002920: 20 4D 41 49 4E 20 50 52 4F 47 52 41 4D 00 44 31 | MAIN PROGRAM.D1|
00002930: F8 11 8D 34 37 33 35 3A 8B 47 24 B2 22 54 22 A7 |...4735:.G$."T".|
00002940: 34 37 30 30 00 67 31 02 12 A1 47 24 3A 9E 41 54 |4700.g1...G$:.AT|
00002950: 2C 31 37 2C 31 31 3A 99 47 24 3A 8B 47 24 B2 22 |,17,11:.G$:.G$."|
00002960: 54 22 A7 34 37 30 30 00 75 31 07 12 8B 47 24 B2 |T".4700.u1...G$.|
00002970: 22 45 22 A7 8E 00 A4 31 16 12 99 22 93 11 11 4C |"E"....1..."...L|
00002980: 4F 41 44 22 C7 28 33 34 29 22 4D 46 36 34 2E 46 |OAD".(34)"MF64.F|
00002990: 4F 52 4D 22 C7 28 33 34 29 22 2C 38 22 3A 97 31 |ORM".(34)",8":.1|
000029A0: 39 38 2C 32 00 C7 31 2A 12 97 36 33 31 2C 31 33 |98,2..1*..631,13|
000029B0: 3A 97 36 33 32 2C 31 33 3A 99 22 11 11 11 11 52 |:.632,13:."....R|
000029C0: 55 4E 13 22 3B 3A A2 00 F7 31 5C 12 99 22 11 11 |UN.";:...1\.."..|
000029D0: 1D D7 49 4E 44 20 54 4F 20 46 4F 52 4D 41 54 20 |..IND TO FORMAT |
000029E0: 50 52 4F 47 52 41 4D 20 26 20 50 52 45 53 53 20 |PROGRAM & PRESS |
000029F0: 12 D2 C5 D4 D5 D2 CE 00 14 32 70 12 92 31 39 37 |.........2p..197|
00002A00: 2C 31 3A 97 36 33 31 2C 31 33 31 3A 97 31 39 38 |,1:.631,131:.198|
00002A10: 2C 31 3A A2 00 1A 32 7A 12 3A 00 38 32 7F 12 99 |,1:...2z.:.82...|
00002A20: A3 34 29 22 11 11 D4 41 50 45 20 4F 52 20 C4 49 |.4)"...APE OR .I|
00002A30: 53 4B 28 54 2F 44 29 3F 00 6C 32 80 12 A1 47 24 |SK(T/D)?.l2...G$|
00002A40: 3A 9E 41 54 2C 32 32 2C 31 31 3A 99 47 24 3A 8B |:.AT,22,11:.G$:.|
00002A50: 47 24 B3 B1 22 54 22 AF 47 24 B3 B1 22 44 22 AF |G$.."T".G$.."D".|
00002A60: 47 24 B3 B1 22 45 22 A7 34 37 33 36 00 72 32 81 |G$.."E".4736.r2.|
00002A70: 12 8E 00 8C 32 84 12 8F 20 53 2F 52 20 54 4F 20 |....2... S/R TO |
00002A80: 50 52 49 4E 54 20 46 49 45 4C 44 53 00 AD 32 88 |PRINT FIELDS..2.|
00002A90: 13 81 47 B2 30 A4 46 44 3A 99 47 AA 31 22 9D 2E |..G.0.FD:.G.1"..|
00002AA0: 22 42 24 28 32 2C 47 29 3A 82 3A 3A 8E 00 B3 32 |"B$(2,G):.::...2|
00002AB0: 92 13 3A 00 CD 32 9C 13 8F 20 53 2F 52 20 54 4F |..:..2... S/R TO|
00002AC0: 20 46 4C 41 53 48 20 50 52 4F 4D 50 54 00 FF 32 | FLASH PROMPT..2|
00002AD0: A8 16 99 A3 31 31 29 22 91 D0 D2 C5 D3 D3 A0 D4 |....11)"........|
00002AE0: CF A0 D3 C5 CC C5 C3 D4 22 3A 81 44 B2 31 A4 36 |........":.D.1.6|
00002AF0: 35 3A A1 47 24 3A 8B 47 24 B3 B1 22 22 A7 8E 00 |5:.G$:.G$..""...|
00002B00: 34 33 B2 16 82 3A 99 A3 31 31 29 22 91 12 D0 D2 |43...:..11)"....|
00002B10: C5 D3 D3 A0 D4 CF A0 D3 C5 CC C5 C3 D4 22 3A 81 |.............":.|
00002B20: 44 B2 31 A4 36 35 3A A1 47 24 3A 8B 47 24 B3 B1 |D.1.65:.G$:.G$..|
00002B30: 22 22 A7 8E 00 40 33 BC 16 82 3A 89 35 38 30 30 |""...@3...:.5800|
00002B40: 00 46 33 BD 16 3A 00 59 33 BE 16 8F 20 4E 45 57 |.F3..:.Y3... NEW|
00002B50: 20 44 41 54 41 20 53 2F 52 00 A1 33 C1 16 9E 41 | DATA S/R..3...A|
00002B60: 54 2C 32 2C 35 3A 85 22 C4 41 54 41 20 4F 52 20 |T,2,5:.".ATA OR |
00002B70: 44 41 54 41 20 26 20 44 45 46 49 4E 49 54 49 4F |DATA & DEFINITIO|
00002B80: 4E 53 28 C4 2F C6 29 22 3B 47 24 3A 8B 47 24 B3 |NS(./.)";G$:.G$.|
00002B90: B1 22 44 22 AF 47 24 B3 B1 22 46 22 A7 35 38 32 |."D".G$.."F".582|
00002BA0: 35 00 D0 33 C6 16 9E 41 54 2C 38 2C 31 30 3A 85 |5..3...AT,8,10:.|
00002BB0: 22 C1 52 45 20 59 4F 55 20 53 55 52 45 28 D9 2F |".RE YOU SURE(./|
00002BC0: CE 29 22 3B 51 24 3A 8B 51 24 B2 22 4E 22 A7 8E |.)";Q$:.Q$."N"..|
00002BD0: 00 E2 33 D0 16 8B 51 24 B3 B1 22 59 22 A7 35 38 |..3...Q$.."Y".58|
00002BE0: 33 30 00 F3 33 DA 16 8B 47 24 B2 22 46 22 A7 52 |30..3...G$."F".R|
00002BF0: 46 B2 30 00 FE 33 E4 16 52 43 B2 31 3A 8E 00 2C |F.0..3..RC.1:..,|
00002C00: 34 70 17 9E 41 54 2C 38 2C 35 3A 85 22 C1 52 45 |4p..AT,8,5:.".RE|
00002C10: 20 59 4F 55 20 53 55 52 45 28 D9 2F CE 29 22 3B | YOU SURE(./.)";|
00002C20: 51 24 3A 8B 51 24 B2 22 4E 22 A7 8E 00 3E 34 84 |Q$:.Q$."N"...>4.|
00002C30: 17 8B 51 24 B3 B1 22 59 22 A7 36 30 30 30 00 7B |..Q$.."Y".6000.{|
00002C40: 34 8E 17 9E 41 54 2C 33 2C 39 3A 85 22 C4 4F 20 |4...AT,3,9:.".O |
00002C50: 59 4F 55 20 57 49 53 48 20 54 4F 20 53 41 56 45 |YOU WISH TO SAVE|
00002C60: 20 44 41 54 41 28 59 2F 4E 29 22 3B 51 24 3A 8B | DATA(Y/N)";Q$:.|
00002C70: 51 24 B2 22 4E 22 A7 36 30 36 30 00 8D 34 A2 17 |Q$."N".6060..4..|
00002C80: 8B 51 24 B3 B1 22 59 22 A7 36 30 33 30 00 9B 34 |.Q$.."Y".6030..4|
00002C90: A7 17 99 22 93 22 3A 8D 31 30 30 00 A6 34 AC 17 |...".":.100..4..|
00002CA0: 9E 36 34 37 33 38 00 AC 34 B6 17 3A 00 BC 34 96 |.64738..4..:..4.|
00002CB0: 1E 8F 20 53 4F 52 54 20 20 53 2F 52 00 CB 34 40 |.. SORT S/R..4@|
00002CC0: 1F 99 22 93 22 3A 8D 35 30 30 30 00 F7 34 4A 1F |..".":.5000..4J.|
00002CD0: 85 22 11 11 D3 4F 52 54 20 42 59 20 57 48 49 43 |."...ORT BY WHIC|
00002CE0: 48 20 46 49 45 4C 44 28 2D 31 20 54 4F 20 45 58 |H FIELD(-1 TO EX|
00002CF0: 49 54 29 22 3B 53 46 00 04 35 54 1F 8B 53 46 B2 |IT)";SF..5T..SF.|
00002D00: AB 31 A7 8E 00 22 35 5E 1F 8B 53 46 B3 31 B0 53 |.1..."5^..SF.1.S|
00002D10: 46 B1 46 44 AA 31 A7 99 22 91 91 22 3A 89 38 30 |F.FD.1.."..":.80|
00002D20: 31 30 00 53 35 68 1F 99 A3 39 29 22 11 11 11 11 |10.S5h...9)"....|
00002D30: 2A 20 2A 20 12 20 D3 CF D2 D4 C9 CE C7 20 92 20 |* * . ....... . |
00002D40: 2A 20 2A 22 3A 4E B2 52 43 AB 31 3A 53 46 B2 53 |* *":N.RC.1:SF.S|
00002D50: 46 AB 31 00 6A 35 72 1F 8B 42 24 28 34 2C 53 46 |F.1.j5r..B$(4,SF|
00002D60: 29 B2 22 32 22 A7 38 32 30 30 00 70 35 7C 1F 3A |)."2".8200.p5|.:|
00002D70: 00 86 35 86 1F 8F 20 41 4C 50 48 41 42 45 54 49 |..5... ALPHABETI|
00002D80: 43 20 53 4F 52 54 00 BA 35 A4 1F 4D B2 B5 28 4E |C SORT..5..M..(N|
00002D90: AD 32 29 3A 81 41 B2 AB 31 A4 30 A9 30 3A 81 4A |.2):.A..1.0.0:.J|
00002DA0: B2 31 A4 4E AB 4D 3A 81 48 B2 4A A4 30 A9 AB 4D |.1.N.M:.H.J.0..M|
00002DB0: 3A 4C B2 48 AA 4D 3A 4B B2 30 00 05 36 AE 1F 8B |:L.H.M:K.0..6...|
00002DC0: 41 24 28 53 46 2C 48 29 B1 41 24 28 53 46 2C 4C |A$(SF,H).A$(SF,L|
00002DD0: 29 A7 81 59 B2 30 A4 46 44 3A 5A 24 B2 41 24 28 |)..Y.0.FD:Z$.A$(|
00002DE0: 59 2C 48 29 3A 41 24 28 59 2C 48 29 B2 41 24 28 |Y,H):A$(Y,H).A$(|
00002DF0: 59 2C 4C 29 3A 41 24 28 59 2C 4C 29 B2 5A 24 3A |Y,L):A$(Y,L).Z$:|
00002E00: 82 3A 4B B2 48 00 2C 36 B8 1F 48 B2 4B 3A 82 3A |.:K.H.,6..H.K:.:|
00002E10: 82 3A 4D B2 B5 28 4D AD 32 29 3A 41 B2 28 4D B1 |.:M..(M.2):A.(M.|
00002E20: 30 29 3A 82 3A 8D 39 38 30 30 3A 8E 00 32 36 C2 |0):.:.9800:..26.|
00002E30: 1F 3A 00 45 36 CC 1F 8F 20 4E 55 4D 45 52 49 43 |.:.E6... NUMERIC|
00002E40: 20 53 4F 52 54 00 79 36 08 20 4D B2 B5 28 4E AD | SORT.y6. M..(N.|
00002E50: 32 29 3A 81 41 B2 AB 31 A4 30 A9 30 3A 81 4A B2 |2):.A..1.0.0:.J.|
00002E60: 31 A4 4E AB 4D 3A 81 48 B2 4A A4 30 A9 AB 4D 3A |1.N.M:.H.J.0..M:|
00002E70: 4C B2 48 AA 4D 3A 4B B2 30 00 9B 36 12 20 8B C5 |L.H.M:K.0..6. ..|
00002E80: 28 41 24 28 53 46 2C 48 29 29 B3 C5 28 41 24 28 |(A$(SF,H))..(A$(|
00002E90: 53 46 2C 4C 29 29 A7 38 32 33 30 00 D3 36 1C 20 |SF,L)).8230..6. |
00002EA0: 81 59 B2 30 A4 46 44 3A 5A 24 B2 41 24 28 59 2C |.Y.0.FD:Z$.A$(Y,|
00002EB0: 48 29 3A 41 24 28 59 2C 48 29 B2 41 24 28 59 2C |H):A$(Y,H).A$(Y,|
00002EC0: 4C 29 3A 41 24 28 59 2C 4C 29 B2 5A 24 3A 82 3A |L):A$(Y,L).Z$:.:|
00002ED0: 4B B2 48 00 FA 36 26 20 48 B2 4B 3A 82 3A 82 3A |K.H..6& H.K:.:.:|
00002EE0: 4D B2 B5 28 4D AD 32 29 3A 41 B2 28 4D B1 30 29 |M..(M.2):A.(M.0)|
00002EF0: 3A 82 3A 8D 39 38 30 30 3A 8E 00 00 37 30 20 3A |:.:.9800:...70 :|
00002F00: 00 10 37 3A 20 8F 20 4D 41 49 4E 20 4D 45 4E 55 |..7: . MAIN MENU|
00002F10: 00 5C 37 1C 25 99 22 93 22 A3 38 29 22 05 CD C9 |.\7.%.".".8)"...|
00002F20: C3 D2 CF C6 C9 CC C5 36 34 20 CD C1 C9 CE A0 CD |.......64 ......|
00002F30: C5 CE D5 20 22 32 30 31 AB 52 43 22 46 52 45 45 |... "201.RC"FREE|
00002F40: 22 3A 99 A3 38 29 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 |":..8)".........|
00002F50: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 00 A2 37 30 |..............70|
00002F60: 25 99 A3 38 29 22 31 20 2D 20 C4 41 54 41 20 C9 |%..8)"1 - .ATA .|
00002F70: 2F CF 2E 22 3A 99 A3 38 29 22 11 32 20 2D 20 D0 |/..":..8)".2 - .|
00002F80: 52 49 4E 54 20 46 49 4C 45 2E 22 3A 99 A3 38 29 |RINT FILE.":..8)|
00002F90: 22 11 33 20 2D 20 D5 50 44 41 54 45 20 46 49 4C |".3 - .PDATE FIL|
00002FA0: 45 2E 00 E9 37 4E 25 99 A3 38 29 22 11 34 20 2D |E...7N%..8)".4 -|
00002FB0: 20 C5 44 49 54 20 46 49 4C 45 2E 22 3A 99 A3 38 | .DIT FILE.":..8|
00002FC0: 29 22 11 35 20 2D 20 D6 49 45 57 20 46 49 4C 45 |)".5 - .IEW FILE|
00002FD0: 2E 22 3A 99 A3 38 29 22 11 36 20 2D 20 D3 45 41 |.":..8)".6 - .EA|
00002FE0: 52 43 48 20 46 49 4C 45 2E 00 33 38 6C 25 99 A3 |RCH FILE..38l%..|
00002FF0: 38 29 22 11 37 20 2D 20 D3 4F 52 54 20 46 49 4C |8)".7 - .ORT FIL|
00003000: 45 2E 22 3A 99 A3 38 29 22 11 38 20 2D 20 C6 4F |E.":..8)".8 - .O|
00003010: 52 4D 41 54 20 44 41 54 41 42 41 53 45 2E 22 3A |RMAT DATABASE.":|
00003020: 99 A3 38 29 22 11 39 20 2D 20 CE 45 57 20 44 41 |..8)".9 - .EW DA|
00003030: 54 41 2E 00 51 38 85 25 99 A3 38 29 22 11 30 20 |TA..Q8.%..8)".0 |
00003040: 2D 20 C5 58 49 54 20 50 52 4F 47 52 41 4D 2E 11 |- .XIT PROGRAM..|
00003050: 11 00 6F 38 94 25 8D 35 38 30 30 3A 8B 47 24 B3 |..o8.%.5800:.G$.|
00003060: 22 30 22 B0 47 24 B1 22 39 22 A7 39 36 32 30 00 |"0".G$."9".9620.|
00003070: 95 38 B2 25 57 B2 C5 28 47 24 29 3A 8B 52 46 B2 |.8.%W..(G$):.RF.|
00003080: 30 AF 57 B3 B1 31 AF 57 B3 B1 30 AF 57 B3 B1 38 |0.W..1.W..0.W..8|
00003090: A7 39 36 32 30 00 A6 38 B7 25 8B 52 46 AF 57 B2 |.9620..8.%.RF.W.|
000030A0: 38 A7 39 36 32 30 00 C9 38 BC 25 8B 28 52 46 AF |8.9620..8.%.(RF.|
000030B0: 52 43 B2 31 29 AF 57 B3 B1 33 AF 57 B3 B1 31 AF |RC.1).W..3.W..1.|
000030C0: 57 B3 B1 39 A7 39 36 32 30 00 D4 38 C6 25 99 22 |W..9.9620..8.%."|
000030D0: 93 22 3A 8E 00 DA 38 D0 25 3A 00 E9 38 DA 25 8F |.":...8.%:..8.%.|
000030E0: 20 42 45 45 50 20 53 2F 52 00 0E 39 48 26 97 35 | BEEP S/R..9H&.5|
000030F0: 34 32 37 36 2C 36 35 3A 81 44 45 B2 31 A4 31 35 |4276,65:.DE.1.15|
00003100: 30 3A 82 3A 97 35 34 32 37 36 2C 30 3A 8E 00 14 |0:.:.54276,0:...|
00003110: 39 52 26 3A 00 4E 39 5C 26 8F 20 53 2F 52 20 54 |9R&:.N9\&. S/R T|
00003120: 4F 20 52 45 4F 52 47 41 4E 49 53 45 20 41 52 52 |O REORGANISE ARR|
00003130: 41 59 53 20 54 4F 20 4D 41 58 49 4D 49 5A 45 20 |AYS TO MAXIMIZE |
00003140: 4D 45 4D 4F 52 59 20 53 54 4F 52 41 47 45 00 6E |MEMORY STORAGE.n|
00003150: 39 FC 26 86 41 24 28 46 44 2C 32 30 30 29 3A 52 |9.&.A$(FD,200):R|
00003160: 43 B2 31 3A 41 54 B2 35 32 30 33 38 3A 8E 00 00 |C.1:AT.52038:...|
00003170: 00 99 |.. |
....... ********************.7.... * M
ICROFILE64 *.R.... * MAIN PROGRAM
*.M.... * (C)1986 G.THOMAS *...... ****
****************.....:.....:......".....
.".9)"*** MICROFILE64 ***":..5)"...VER4.
2(C)1986 GARETH THOMAS.......8)"..... AN
Y KEY TO CONTINUE ":AT.52038:.198,1:RC.1
.....:...... MAIN LOOP.C....9500:.W.8..:
W.8.{.#..W.1.6000,100,30,1800,2500,3100,
3500,8000,4490,5825...(..W.9.RF.0..:RC.1
...2..30...7.:...8.. DATA I/O S/R...D...
12)"DATA I/O MENU":..12)".............":
..9)".1 - SAVE TO DISK....X...9)".2 - LO
AD FROM DISK.":..9)".3 - SAVE TO TAPE..`
.....9)".4 - LOAD FROM TAPE.":..9)".5 -
EXIT.....}....5800:.G$."1".G$."5".150...
..G$."5"...A...."...ENTER 'E' TO EXIT..
":.".ENTER FILENAME..";F$.Y....F$."".C(F
$).16.170......F$."E"..".":.100."...."."
:.E(G$).1000,1110,1200,1300,1400:.".":.1
00.(.H.:.B.... OUTPUT FILE TO DISK.|....
15,8,15,"I0":.2,8,2,"0:".F$.",S,W":.1350
:.EI.63.1000......EI........1600: 15:...
...:...... INPUT FILE FROM DISK...V..15,
8,15,"I0":.2,8,2,"0:".F$.",S,R":.1350:.E
I.....`..1700: 15:....J.:...T.. OUTPUT F
ILE TO TAPE.1....2,1,1,F$:.1600:..7...:.
R.D.. INPUT FILE FROM TAPE.H....2,1,0,F$
:.1700:..N...:...(.. READ DISK ERROR STA
TUS...F..15,EI,M$:.EI.20.EI.0:..U.Z...6)
".. DISK ERROR ..":..5)EI"- "M$:.9800...
D..EI..63. 2: 15:.198,1:....N.. IF FILE
EXITS CONFIRM SAVE.A.X.."..'R'TO REPLACE
OR 'C'TO CHANGE FILENAME.V....G$:.G$."R
".1450.H....G$.."C".1410......1500:.F$."
E".EI.1:.... . 2: 15:....... SCRATCH OLD
FILE......15,"S0:".F$: 2: 15:..E...:.V.
... SAVE FILES...... GET DATATYPE...@..9
800:."...FORMAT OR DATA?...A..G$:.G$."D"
.1630./.B..G$.."F".1601.A.C.. SAVE FORMA
T.R.I..2,FD:.2,"F".}.J..G.0.6:.H.0.FD:.B
$(G,H)."".B$(G,H)." "...O..2,B$(G,H):.:.
...T.. SAVE SCREEN LAYOUT...U.SC.49152:C
O.52229:.I.SC.SC.919:.2,G(B(I))G(B(CO.I.
SC));...V..: 2:....W.:...X.. SAVE DATA..
.^..2,"D":.2,RC.A._..G.1.RC.1:.H.0.FD:.2
,A$(H,G):.:.: 2:..G.`.:.Y.A.. INPUT FILE
S.F....RF.1720.X.... SAVE FORMAT......2,
FD:.2,M$.A....M$.."F".."....* *DATA TYPE
MISMATCH* *":.198,1: 2:.......9980:.G.0
.6:.H.0.FD:.2,B$(G,H):.:....... INPUT SC
REEN LAYOUT.<...SC.49152:CO.52229:.I.SC.
SC.919:.#2,A$:.A$."".A$.G(0)._....I,F(A$
):.#2,A$:.A$."".A$.G(0).~....CO.I.SC,F(A
$):.:RF.1: 2:....... INPUT DATA......2,M
$.W....M$.."D".."... * *DATA TYPE MISMAT
CH* *":.198,1:RC.1: 2:.......2,RC:.G.1.R
C.1:.H.0.FD:.2,A$(H,G):.:.: 2:......:...
... UPDATE S/R._....".":EF.0:.RC.200..AT
,6,12:."NO MORE ROOM FOR DATA":.198,1:..
....."... .F1-EXIT. .F3-REDO. .F5-MEMO
RY.:RECORD"D(RC)" ":.52156......I.0.FD
:.2000:.P.133.....!..A$(I,RC)."".A$(I,RC
)." ":.1850...".. REMOVE EXTRA SPACES.:.
&.CO.0:.T.0..1.0:CO.CO.1:T.(I(A$(I,RC),C
O).." "):.:CO.CO.1.B.0.A$(I,RC).H(A$(I,R
C),C(A$(I,RC)).CO).V.:..:RC.RC.1:.1810.|
.D.:...N.. MAIN INPUT S/R...X.. SET UP Z
ERO-PAGE LOCATIONS FOR M/C INPUT...P.Y.E
(B$(0,I)):X.E(B$(1,I)):.AT,X.3,Y.6:.251,
0:.252,E(B$(3,I))...Z..253,E(H(B$(4,I),1
)).D.... PRINT CURSOR AND SET INPUT POSI
TION......"..":.AT,X.2,Y.6:I$."":.T.0.1.
0:.51885:P.B(254):.EF.2035......P.135..9
800:.2400:..D....P.134.I.I$.I$." ":.2420
:T.1:.:.2000.W....P.133.T.1:.:....... DE
LETE CHARS......P.20.I$.H(I$,B(251)):...
....P..13.I$.I$.G(P):..8.... CHECK FOR E
DIT FLAG.P....EF.G$.."O".T.1:.:..|...A$(
I,RC).I$:.H(B$(4,I),1).."3"..G(20):.....
.:...... CHECK IF INPUT IS IN RANGE.V...
VL.E(A$(I,RC)):K$.J(B$(4,I),2,2):VA.E(B$
(5,I))......(K$."<".VL..VA).(K$.">".VL..
VA)..9800:..-....K$."B".(VL.VA.VL.E(B$(6
,I)))..9800:..Z.$..(K$."<=".VL.VA).(K$."
>=".VL.VA)..9800:..S.8.A$(I,RC).I$:.G(20
):..Y.B.:...L.. FREE BYTES ROUTINE.U.`.P
$.D(.(0))." BYTES FREE":LN.C(P$):.P.1.LN
:.1990.P,F(J(P$,P,1))...J..56262.P,1:.:.
198,0:.198,1:.P.1.LN:.1990.P,32:.:....O.
:. .P.. REDO S/R.Z.T.A$(I,RC).I$:D.I:ER.
RC:.2970:.L$:I.I.1:D.I:.2970:.L$:..`.~.:
.O.... EDIT S/R...D...13)"EDIT MENU":..1
3)".........":..8)".1 - EDIT RECORDS....
....8)".2 - SEARCH & REPLACE.":..8)".3 -
SEARCH & DELETE........8)".4 - BLOCK DE
LETE.":..8)".5 - EXIT.....7....5800:.G$.
"1".G$."5".2590.E.(..G$."5"...Z.2..".":.
E(G$).2620,3000,3093,2890:."..":.RC.1.25
00...7..AT,8,10:.". NO RECORDS REMAINING
":.9800:.198,1:....<..AT,10,8:."RECORD
NO.";ER:.ER.1.ER.RC.1.2620.&.F.M$.".. .<
-BACK. .>-FORWARD. .A-ALTER. .D-DEL. .E-
EXIT. .":.3420.7.G..G$."A".2640.E.K..G$.
"E"...J.L..2830:.RC.1..198,1:.631,60:.26
30.P.M.....P..9800:."... . SELECT DA
TA AND PRESS RETURN . "...Z..AT,0,24:
.".. .USE CURSOR KEY TO MOVE UP/DOWN. .E
-EXIT. ...._.D.0:.2980...D..G$:.G$."E".2
630.0.X..G$."."..2985:D.D.1:.D...1..2980
.D....D.0.D.FD:.2980.K....G$."."..2985:D
.D.1:.D..FD.1..2980.Z....D.FD.2655... ..
G$..G(13).2660.H....9800:."... . SELE
CT EDIT OPTION- . "......AT
,0,24:.".. . O-OVERWRITE . . D-DELETE
. . E-EXIT . ..#....G$:.G$."E"..4400:.2
640.6.H.. DELETE FIELD.[.R..G$."D".A$(D,
ER)." ":.4400:.2640.M....G$.."O".2750...
... OVERWRITE FIELD-CALL INPUT S/R WITH
EDIT FLAG SET & SAVE MAIN VARIABLES.....
.2970:EC.RC:RC.ER:I.D:.2000......I$."".A
$(D,ER)." ".....RC.EC:.4400:.2640.D....A
T,0,24:.".. . ARE YOU SURE? .
..V....G$:.G$."N"...H.,..G$..
"Y".2840...6..AT,0,24:.".. .
DELETING DATA.. . ..K.7.. MOVE REC
ORDS ABOVE DELETED ONE DOWN...@..C.ER.RC
:.F.0.FD:A$(F,C).A$(F,C.1):.:.:RC.RC.1:.
...A.:...B.. BLOCK DELETE S/R.P.J..AT,5,
6:."DELETE FROM..";DF:.DF.1.DF.RC.2.2890
...O.ER.DF:M$.".. . ARE YOU SURE
(Y/N)? . .":.9800:.4390...P..G$
:.G$."N"..".":.2890.E.Q..G$.."Y".2896...
T..".":.AT,5,10:."DELETE TO....";DT:.DT.
.DF .DT.RC.1.2900...V.ER.DT:.9800:.4390.
2.W..G$:.G$."N"..".":.2900.D.X..G$.."Y".
2903...Y..AT,0,24:.".. . DO YOU WISH THE
DELETE TO GO AHEAD? . .":.9800...Z..G$:
.G$."N".....[..G$.."Y".2906.P.^..".":.AT
,9,14:."* * DELETING * *..._.. MOVE RECO
RDS DOWN TO DELETE BLOCK./.H..D.DT.1.RC.
1:.F.0.FD:A$(F,DF.1.(D.DT)).A$(F,D):.:..
E.R.RC.RC.(DT.DF.1):..K.|.:.U.... DELETE
DATA ON SCREEN FOR OVERWRITE.....L$."":
.L.1.C(A$(D,ER)):L$.L$." ":.:.2995:.L$:.
.....:... .. S/R TO HIGHLIGHT CURRENT FI
ELD TO EDIT......2995:."."A$(D,ER):.....
..2995:.A$(D,ER):..I....AT,0,24:.".. .F1
-DELETE . . F3-OVERWRITE . . F5-EXIT .
..^.... CURSOR SET S/R......AT,E(B$(1,D)
).3,E(B$(0,D)).6:......:...... SEARCH &
REPLACE S/R.....EF.1:IS.0:.4350:."...FIE
LD NO.(-1 TO EXIT)";SI:.SI..1.....B..SI.
1.SI.FD.1.3000./ L.S$."":SI.SI.1:.AT,2,1
6:."SEARCH DATA";S$:.S$."".3000.H Q..AT,
2,18:."REPLACE DATA?":X.18:Y.24:.AT,15,1
8:.251,0.. R.. CALL INPUT ROUTINE TO MAK
E SURE DATA CONFORMS TO FIELD TYPE.. V..
252,E(B$(3,SI)):.253,E(H(B$(4,SI),1)):.2
020.. W.. CALL SEARCH S/R..!..IT$.H(S$,1
):LN.C(S$).1:S$.I(S$,LN):.3599./!...CP$.
"".3000.H!....10)"..REPLACING.. ...":.D.
1.C(CP$):P.F(J(CP$,D,1))..!...IT$.."@".A
$(SI,P).I$:.3092.B!... CHECK LENGTH OF S
TRING DOES NOT EXCEED FIELD LENGTH..!...
C(A$(SI,P)).LN.C(I$)..E(B$(3,SI)).3091.#
"....3)".* * STRING TOO LONG IN"P" * *":
.9800:.3092.F"..A$(SI,P).H(A$(SI,P),PS.1
).I$.I(A$(SI,P),C(A$(SI,P)).(PS.1.LN)).T
"...:.9800:..."..EF.1:IS.0:.4350:."....F
IELD NO.(-1 TO EXIT)";SI:.SI..1...H"...S
I.1.SI.FD.1.3093.."..SI.SI.1:."....SEARC
H DATA";S$:.S$."".3093.0#..IT$.H(S$,1):L
N.C(S$).1:S$.I(S$,LN):.3599:.CP$."".3093
.F#....9)"... DELETING.. ":.D.1.C(CP$):P
.F(J(CP$,D,1))..#...IT$.."@".A$(SI,P)."
":.:..E#..A$(SI,P).H(A$(SI,P),PS.1).J(A$
(SI,P),PS.LN,C(A$(SI,P))):.:...#..."....
...PRESS;":..5)"..1 - TO VIEW A RECORD..
-$....5)"..2 - TO VIEW ALL RECORDS.":..5
)"..3 - EXIT..B$...G$:.G$."2".3120.P$...
G$."3"...B$ ..G$.."1".3102.J$!.."...$"..
AT,4,8:."RECORD NO.";ER:.ER.1.ER.RC.1.31
06.V$$.M$.".. . PRESS A KEY TO EXI
T . .":.4390..$%..198,1:.3100.
.%0..".........ANY KEY TO SCROLL 'E'TO E
XIT...H%N..AT,6,10:."RECORD NO.(-1 TO EX
IT)";SP:.SP..1..._%X..SP.1.SP.RC.1.3150.
.%].. DISPLAY FILES BY SCROLLING..%B..".
.D%...P.SP.RC.1:.". RECORD "P:.SR.0.FD:.
B$(2,SR)": "A$(SR,P).Y%...G$:.G$."E".310
0..&...:."- - - - - - - - - - - - - - -
- - - - - ...5&...198,1:.:.197,64:.198,0
:.198,1:.3100.E&H..AT,7,3:."RECORD NO.";
ER:.ER.1.ER.RC.1.3400..&W.M$.".. . <-
BACK . . >-FORWARD . . E-EXIT . ...
&X.. S/R TO DISPLAY RECORDS WITHOUT SCRO
LLING USING SCREEN LAYOUT."'\..T.0.1.0:.
"... RECORD "D(ER)"
".,'F..4400.R'Z..G$:.G$."E".G$.
"D".G$."A".T.1:.:..D'...G$..",".3480.~'.
.ER.ER.1:.ER.0.ER.RC.1..'.....'...G$..".
".3450..'..ER.ER.1:.ER.RC.ER.1..'.....'.
.:.K'... SEARCH S/R..(..EF.0:.".":.4350:
.".....ENTER IN FORM,.F.IELD.S.EARCHTYPE
.D.ATA.>(..."...'E' TO EXIT 'C' TO CLEAR
'V' TO VIEW...B(..S$."":.198,0:.S$:.S$.
"E".IS.0:...(...S$."C".IS.0:CP$."":.3500
..(E..S$."V".CP$..""..".":.4005..(F..S$.
"".C(S$).3.3500..(J.SI$.H(S$,1):.SI$."1"
.SI$.I(D(FD.1),1).3500..)O.SI.E(SI$):SI.
SI.1:.3598:.3500..)P.:..)Q.. MAIN S/R.F)
..IT$.J(S$,2,1):LN.C(S$).2:S$.I(S$,LN)..
)...IT$.."!".IT$.."*".IT$.."@".IT$.."<".
IT$..">".IT$.."^"....)...EF..".":.AT,0,8
..)....5)".SEARCHING...I)...IS.0.IS.1:.3
800:.3621.S)...3810..)%..CP$.."".3630..*
)..9800:..5)".* *. NO DATA FOUND .* *":.
3900.$**..IS.CP$.CN$.**+...[*..IM.C(CP$)
:..5)"."D(IM)" RECORDS FOUND":.9800.G*8.
.3900:..M*T.:..*~.. SEARCH SUBROUTINES..
*... DIRECT COMPARISON.D*E..IT$."!".S$.A
$(SI,G).CP$.CP$.G(G)..*F..IT$."^".S$..A$
(SI,G).CP$.CP$.G(G)..+G..IT$."<".S$.A$(S
I,G).CP$.CP$.G(G).7+H..IT$.">".S$.A$(SI,
G).CP$.CP$.G(G).?+I..:..E+J.:.T+K.. WILD
CARD.X+N..H(A$(SI,G),LN).S$.CP$.CP$.G(G)
..+S..:...+T.. SEARCH STRING..+U..S.1.C(
A$(SI,G)).LN.1..+V..S$.J(A$(SI,G),S,LN).
CP$.CP$.G(G):G.G.1:PS.S..+W..:.:...,X.CP
$."":.G.1.RC.1:.3820.3,..CN$.CP$:CP$."":
.T.1.C(CN$):G.F(J(CN$,T,1)).E,...IT$."*"
.3790.W,...IT$."@".3797..,...IT$."<".IT$
.">".IT$."^".IT$."!".3781..,<..W.1.1000:
.:...,A.:..,F.. DISPLAY RECORDS FOUND..,
...6)"...PRESS ANY KEY TO START.":.198,
1:."...-...D.1.C(CP$):P.F(J(CP$,D,1)).D-
...". RECORD "P:.SR.0.FD:.B$(2,SR)": "A$
(SR,P):.G$:.G$."E"....-H..:."- - - - - -
- - - - - - - - - - - - - - ..":.198,1:
...-R..197,64:.198,1:...-..:..-... SEARC
H INTRO S/R..-..."..*.WILDCARD .!.COMPAR
E DIRECTLY .@.SCAN STRING.'...."..<.LESS
THAN .>.GREATER THAN .^.NOT EQUAL TO.":
.5000:..E.... RECORD IN SCREEN FORMAT.[.
!.. 6 AND 25 SPACES...&.."... RECOR
D-"D(ER)" ".P.0.
.52156:.D.0.FD:.AT,E(B$(1,D)).3,E(B$(0,D
)).6:.A$(D,ER):....:..AT,0,24:.M$:....D.
:...N.. FORMAT S/R.3/X.. EITHER LOADS FO
RMAT DATA CREATED BY FORMAT PROGRAM.U/B.
. OR AUTO-RUNS FORMAT PROGRAM.~/..AT.520
38:.AT,6,4:."PRESS 'E' TO EXIT../...AT,4
,8:."PROGRAM OR DATA(P/D)?.D/...G$:.AT,2
5,8:.G$:.G$."P".4600.W/...G$."E".RC.1:..
./...G$.."D".4500..0...4735:.G$.."T".453
1.L0..."...WIND TO FORMAT DATA & PRESS .
RETURN":.197,1:.2,1,0,"FORMAT":.4550._0.
..G$."E".RC.1:..W0... OPEN FILE TO DISK.
.0...15,8,15,"I0":.2,8,2,"FORMAT,S,R":.1
350:.EI....0A.. INPUT DATA..0F..2,FD:.99
80:.G.0.6:.H.0.FD:.2,B$(G,H):.:.:RF.1..0
Z..G$."T". 2:...1.. 15: 2:...1..:.-1...
AUTO-RUN MAIN PROGRAM.D1...4735:.G$."T".
4700.G1...G$:.AT,17,11:.G$:.G$."T".4700.
U1...G$."E"....1..."...LOAD"G(34)"MF64.F
ORM"G(34)",8":.198,2.G1*..631,13:.632,13
:."....RUN.";:...1\.."...WIND TO FORMAT
PROGRAM & PRESS .RETURN..2P..197,1:.631,
131:.198,1:...2Z.:.82...4)"..TAPE OR DI
SK(T/D)?.L2...G$:.AT,22,11:.G$:.G$.."T".
G$.."D".G$.."E".4736.R2.....2... S/R TO
PRINT FIELDS..2...G.0.FD:.G.1".."B$(2,G)
:.::...2..:.M2... S/R TO FLASH PROMPT..2
....11)".PRESS TO SELECT":.D.1.65:.G$:.G
$..""...43...:..11)"..PRESS TO SELECT":.
D.1.65:.G$:.G$..""...@3...:.5800.F3..:.Y
3... NEW DATA S/R..3A..AT,2,5:."DATA OR
DATA & DEFINITIONS(D/F)";G$:.G$.."D".G$.
."F".5825.P3F..AT,8,10:."ARE YOU SURE(Y/
N)";Q$:.Q$."N"....3P..Q$.."Y".5830..3Z..
G$."F".RF.0..3..RC.1:..,4P..AT,8,5:."ARE
YOU SURE(Y/N)";Q$:.Q$."N"...>4...Q$.."Y
".6000.{4...AT,3,9:."DO YOU WISH TO SAVE
DATA(Y/N)";Q$:.Q$."N".6060..4...Q$.."Y"
.6030..4...".":.100..4...64738..4..:..4.
.. SORT S/R.K4@..".":.5000..4J.."..SORT
BY WHICH FIELD(-1 TO EXIT)";SF..5T..SF.
.1..."5^..SF.1.SF.FD.1.."..":.8010.S5H..
.9)"....* * . SORTING . * *":N.RC.1:SF.S
F.1.J5R..B$(4,SF)."2".8200.P5|.:..5... A
LPHABETIC SORT..5..M..(N.2):.A..1.0.0:.J
.1.N.M:.H.J.0..M:L.H.M:K.0..6...A$(SF,H)
.A$(SF,L)..Y.0.FD:Z$.A$(Y,H):A$(Y,H).A$(
Y,L):A$(Y,L).Z$:.:K.H.,6..H.K:.:.:M..(M.
2):A.(M.0):.:.9800:..26B.:.E6L.. NUMERIC
SORT.Y6. M..(N.2):.A..1.0.0:.J.1.N.M:.H
.J.0..M:L.H.M:K.0..6. .E(A$(SF,H)).E(A$(
SF,L)).8230.S6. .Y.0.FD:Z$.A$(Y,H):A$(Y,
H).A$(Y,L):A$(Y,L).Z$:.:K.H..6& H.K:.:.:
M..(M.2):A.(M.0):.:.9800:...70 :..7: . M
AIN MENU.\7.%.".".8)".MICROFILE64 MAIN M
ENU "201.RC"FREE":..8)".................
......70%..8)"1 - DATA I/O.":..8)".2 - P
RINT FILE.":..8)".3 - UPDATE FILE...7N%.
.8)".4 - EDIT FILE.":..8)".5 - VIEW FILE
.":..8)".6 - SEARCH FILE..38L%..8)".7 -
SORT FILE.":..8)".8 - FORMAT DATABASE.":
..8)".9 - NEW DATA..Q8.%..8)".0 - EXIT P
ROGRAM....O8.%.5800:.G$."0".G$."9".9620.
.8.%W.E(G$):.RF.0.W..1.W..0.W..8.9620..8
.%.RF.W.8.9620.I8.%.(RF.RC.1).W..3.W..1.
W..9.9620.T8F%.".":..Z8P%:..8Z%. BEEP S/
R..9H&.54276,65:.DE.1.150:.:.54276,0:...
9R&:.N9\&. S/R TO REORGANISE ARRAYS TO M
AXIMIZE MEMORY STORAGE.N9.&.A$(FD,200):R
C.1:AT.52038:.....
> CLICK IMAGE PREVIEW FOR FULL MODAL