D-BASE
FILE INFORMATION
FILENAME(S): D-BASE
FILE TYPE(S): PRG
FILE SIZE: 14.2K
FIRST SEEN: 2025-11-30 21:25:00
APPEARS ON: 1 disk(s)
FILE HASH
132e39befc92838066b78e170211950b80df4eb46fd6a327291d118f4202afe2
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 64 UTILITY 27 | D-BASE | PRG | DuncanTwain | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1D 08 01 00 97 35 33 32 38 30 2C 32 3A 97 |.......53280,2:.|
00000010: 35 33 32 38 31 2C 32 3A 99 20 22 9E 22 00 51 08 |53281,2:. ".".Q.|
00000020: 02 00 8F 2A 2A 44 46 4D 20 42 59 20 43 48 52 49 |...**DFM BY CHRI|
00000030: 53 20 45 4C 59 2A 44 49 41 4C 4F 47 20 53 4F 46 |S ELY*DIALOG SOF|
00000040: 54 57 41 52 45 28 43 29 20 31 35 2E 30 31 2E 38 |TWARE(C) 15.01.8|
00000050: 33 00 84 08 03 00 58 B2 30 3A 59 B2 30 3A 52 B2 |3.....X.0:Y.0:R.|
00000060: 30 3A 43 B2 30 3A 49 50 24 B2 22 22 3A 4B 24 B2 |0:C.0:IP$."":K$.|
00000070: 22 22 3A 45 4D 24 B2 22 22 3A 4E 24 B2 22 22 3A |"":EM$."":N$."":|
00000080: 8D 34 31 32 00 9B 08 04 00 41 24 28 52 2C 43 29 |.412.....A$(R,C)|
00000090: B2 22 22 3A 46 B2 30 3A 53 B2 30 00 A7 08 05 00 |."":F.0:S.0.....|
000000A0: 99 C7 28 31 34 37 29 00 B0 08 06 00 8D 33 34 33 |..(147)......343|
000000B0: 00 E1 08 07 00 99 22 11 11 11 20 20 20 44 4F 20 |......"... DO |
000000C0: 59 4F 55 20 57 41 4E 54 20 12 55 92 50 50 45 52 |YOU WANT .U.PPER|
000000D0: 20 4F 52 20 12 4C 92 4F 57 45 52 20 43 41 53 45 | OR .L.OWER CASE|
000000E0: 22 00 F2 08 08 00 A1 4B 24 3A 8B 4B 24 B2 22 22 |"......K$:.K$.""|
000000F0: A7 38 00 0A 09 09 00 8B 4B 24 B2 22 55 22 A7 99 |.8......K$."U"..|
00000100: C7 28 31 34 32 29 3A 89 31 32 00 21 09 0A 00 8B |.(142):.12.!....|
00000110: 4B 24 B2 22 4C 22 A7 99 C7 28 31 34 29 3A 89 31 |K$."L"...(14):.1|
00000120: 32 00 28 09 0B 00 89 38 00 39 09 0C 00 99 C7 28 |2.(....8.9.....(|
00000130: 31 34 37 29 3A 8D 33 34 33 00 49 09 0D 00 99 3A |147):.343.I....:|
00000140: 8B 4E 24 B2 22 22 A7 31 37 00 54 09 0E 00 4E 4C |.N$."".17.T...NL|
00000150: 24 B2 4E 24 00 72 09 0F 00 8B C3 28 4E 4C 24 29 |$.N$.r.....(NL$)|
00000160: B3 39 A7 4E 4C 24 B2 4E 4C 24 AA 22 20 22 3A 89 |.9.NL$.NL$." ":.|
00000170: 31 35 00 9D 09 10 00 99 3A 99 3A 99 A3 38 29 22 |15......:.:..8)"|
00000180: 12 46 49 4C 45 20 49 4E 20 55 53 45 3A 20 22 3B |.FILE IN USE: ";|
00000190: 4E 4C 24 3B 22 92 22 3A 99 3A 99 3A 99 00 B8 09 |NL$;".":.:.:....|
000001A0: 11 00 99 A3 31 34 29 22 4B 45 59 20 4F 50 54 49 |....14)"KEY OPTI|
000001B0: 4F 4E 22 3A 8D 32 36 33 00 E4 09 12 00 99 22 31 |ON":.263......"1|
000001C0: 20 43 52 45 41 54 45 20 4E 45 57 20 46 49 4C 45 | CREATE NEW FILE|
000001D0: 22 A3 32 30 29 22 32 20 52 45 4E 41 4D 45 20 46 |".20)"2 RENAME F|
000001E0: 49 4C 45 22 00 09 0A 13 00 99 22 33 20 41 43 43 |ILE"......"3 ACC|
000001F0: 45 53 53 20 52 45 43 4F 52 44 22 A3 32 30 29 22 |ESS RECORD".20)"|
00000200: 34 20 53 45 4C 45 43 54 22 00 35 0A 14 00 99 22 |4 SELECT".5...."|
00000210: 35 20 4C 4F 41 44 2F 53 41 56 45 20 46 49 4C 45 |5 LOAD/SAVE FILE|
00000220: 22 A3 32 30 29 22 36 20 52 45 50 4F 52 54 20 57 |".20)"6 REPORT W|
00000230: 52 49 54 45 52 00 5B 0A 15 00 99 22 37 20 53 4F |RITER.[...."7 SO|
00000240: 52 54 20 46 49 4C 45 22 A3 32 30 29 22 38 20 55 |RT FILE".20)"8 U|
00000250: 54 49 4C 49 54 49 45 53 22 3A 99 00 7A 0A 16 00 |TILITIES":..z...|
00000260: 99 A3 31 31 29 22 39 20 45 58 49 54 20 50 52 4F |..11)"9 EXIT PRO|
00000270: 47 52 41 4D 22 3A 8D 32 36 33 00 8C 0A 17 00 A1 |GRAM":.263......|
00000280: 4B 24 3A 8B 4B 24 B2 22 22 A7 32 33 00 B9 0A 18 |K$:.K$."".23....|
00000290: 00 4B 4B 24 B2 22 31 32 33 34 35 36 37 38 39 22 |.KK$."123456789"|
000002A0: 3A 81 4B B2 31 A4 39 3A 8B 4B 24 B2 CA 28 4B 4B |:.K.1.9:.K$..(KK|
000002B0: 24 2C 4B 2C 31 29 A7 32 36 00 C4 0A 19 00 82 4B |$,K,1).26......K|
000002C0: 3A 89 32 33 00 FD 0A 1A 00 8B 59 B2 30 AF 4B B3 |:.23......Y.0.K.|
000002D0: B1 31 AF 4B B3 B1 35 AF 4B B3 B1 38 AF 4B B3 B1 |.1.K..5.K..8.K..|
000002E0: 39 A7 99 22 12 4E 4F 20 46 49 4C 45 20 45 58 49 |9..".NO FILE EXI|
000002F0: 53 54 53 22 3A 8D 32 36 30 3A 89 31 32 00 27 0B |STS":.260:.12.'.|
00000300: 1B 00 91 4B 89 31 32 38 2C 37 38 2C 31 30 30 2C |...K.128,78,100,|
00000310: 31 39 31 2C 32 36 34 2C 34 33 32 2C 34 31 36 2C |191,264,432,416,|
00000320: 33 35 30 2C 33 33 37 00 31 0B 1C 00 8D 20 34 31 |350,337.1.... 41|
00000330: 30 00 59 0B 1D 00 99 22 44 4F 20 59 4F 55 20 57 |0.Y...."DO YOU W|
00000340: 49 53 48 20 54 4F 20 12 43 92 4F 4E 54 49 4E 55 |ISH TO .C.ONTINU|
00000350: 45 20 53 45 41 52 43 48 22 00 74 0B 1E 00 99 22 |E SEARCH".t...."|
00000360: 4F 52 20 52 45 54 55 52 4E 20 54 4F 20 12 4D 92 |OR RETURN TO .M.|
00000370: 45 4E 55 22 00 86 0B 1F 00 A1 4B 24 3A 8B 4B 24 |ENU"......K$:.K$|
00000380: B2 22 22 A7 33 31 00 9B 0B 20 00 8B 4B 24 B2 22 |."".31... ..K$."|
00000390: 43 22 A7 8D 34 31 30 3A 89 33 35 00 AA 0B 21 00 |C"..410:.35...!.|
000003A0: 8B 4B 24 B2 22 4D 22 A7 31 32 00 B2 0B 22 00 89 |.K$."M".12..."..|
000003B0: 33 31 00 CB 0B 23 00 8D 34 39 34 3A 43 4F B2 31 |31...#..494:CO.1|
000003C0: 3A 4C 4E B2 32 31 3A 8D 34 39 36 00 F1 0B 24 00 |:LN.21:.496...$.|
000003D0: 99 22 53 45 41 52 43 48 20 46 4F 52 20 52 45 43 |."SEARCH FOR REC|
000003E0: 4F 52 44 20 42 59 20 4B 45 59 20 46 49 45 4C 44 |ORD BY KEY FIELD|
000003F0: 22 00 17 0C 25 00 99 22 2D 2D 2D 2D 2D 2D 2D 2D |"...%.."--------|
00000400: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000410: 2D 2D 2D 2D 2D 2D 22 00 36 0C 26 00 99 22 45 4E |------".6.&.."EN|
00000420: 54 45 52 20 22 22 12 22 41 24 28 30 2C 31 29 22 |TER ""."A$(0,1)"|
00000430: 92 22 22 3A 22 3B 00 43 0C 27 00 8D 32 35 33 3A |."":";.C.'..253:|
00000440: 89 34 36 00 4C 0C 28 00 8D 34 39 34 00 60 0C 29 |.46.L.(..494.`.)|
00000450: 00 43 4F B2 31 3A 4C 4E B2 32 31 3A 8D 34 39 36 |.CO.1:LN.21:.496|
00000460: 00 8A 0C 2A 00 99 22 54 48 45 52 45 20 41 52 45 |...*.."THERE ARE|
00000470: 20 22 59 22 20 52 45 43 4F 52 44 53 20 49 4E 20 | "Y" RECORDS IN |
00000480: 54 48 49 53 20 46 49 4C 45 22 00 AE 0C 2B 00 99 |THIS FILE"...+..|
00000490: 22 45 4E 54 45 52 20 52 45 43 4F 52 44 20 4E 55 |"ENTER RECORD NU|
000004A0: 4D 42 45 52 20 3A 22 3B 3A 8D 20 32 35 33 00 E6 |MBER :";:. 253..|
000004B0: 0C 2C 00 52 B2 C5 28 49 50 24 29 3A 8B 52 B2 30 |.,.R..(IP$):.R.0|
000004C0: B0 52 B1 59 A7 99 22 91 91 22 3A 8D 35 34 37 3A |.R.Y.."..":.547:|
000004D0: 99 22 91 22 53 24 3A 99 22 91 91 22 3A 8D 34 31 |."."S$:."..":.41|
000004E0: 30 3A 20 89 34 32 00 EF 0C 2D 00 89 31 30 31 00 |0: .42...-..101.|
000004F0: FA 0C 2E 00 4C 24 B2 49 50 24 00 06 0D 2F 00 46 |....L$.IP$.../.F|
00000500: B2 C3 28 4C 24 29 00 11 0D 30 00 81 52 B2 31 A4 |..(L$)...0..R.1.|
00000510: 59 00 2A 0D 31 00 8B 4C 24 B2 C8 28 41 24 28 52 |Y.*.1..L$..(A$(R|
00000520: 2C 31 29 2C 46 29 A7 31 30 31 00 30 0D 32 00 82 |,1),F).101.0.2..|
00000530: 00 39 0D 33 00 8D 34 31 30 00 59 0D 34 00 99 22 |.9.3..410.Y.4.."|
00000540: 12 4E 4F 20 53 55 43 48 20 52 45 43 4F 52 44 20 |.NO SUCH RECORD |
00000550: 45 58 49 53 54 53 21 92 22 00 69 0D 35 00 81 5A |EXISTS!.".i.5..Z|
00000560: B2 31 A4 31 30 30 30 3A 82 00 71 0D 36 00 89 32 |.1.1000:..q.6..2|
00000570: 38 00 9E 0D 37 00 41 43 B2 30 3A 20 99 22 57 48 |8...7.AC.0: ."WH|
00000580: 49 43 48 20 4C 49 4E 45 20 44 4F 20 59 4F 55 20 |ICH LINE DO YOU |
00000590: 57 49 53 48 20 54 4F 20 41 4D 45 4E 44 22 00 BC |WISH TO AMEND"..|
000005A0: 0D 38 00 99 22 50 52 45 53 53 20 31 20 54 4F 20 |.8.."PRESS 1 TO |
000005B0: 22 58 22 20 3A 22 3B 3A 8D 32 35 33 00 D7 0D 39 |"X" :";:.253...9|
000005C0: 00 43 B2 C5 28 49 50 24 29 3A 8B 43 B1 58 A7 8D |.C..(IP$):.C.X..|
000005D0: 34 31 30 3A 89 35 35 00 E0 0D 3A 00 8D 34 31 30 |410:.55...:..410|
000005E0: 00 19 0E 3B 00 99 22 45 58 49 53 54 49 4E 47 20 |...;.."EXISTING |
000005F0: 44 41 54 41 20 46 4F 52 20 22 22 12 22 41 24 28 |DATA FOR ""."A$(|
00000600: 30 2C 43 29 22 92 22 22 20 3D 20 22 3A 99 20 22 |0,C)"."" = ":. "|
00000610: 12 22 41 24 28 52 2C 43 29 00 3E 0E 3C 00 99 22 |."A$(R,C).>.<.."|
00000620: 4E 45 57 20 44 41 54 41 20 22 3B 3A 99 22 5B 22 |NEW DATA ";:."["|
00000630: 3B 3A 99 C8 28 53 24 2C 41 28 43 29 29 3B 00 5B |;:..(S$,A(C));.[|
00000640: 0E 3D 00 99 22 5D 22 3B 3A 99 C8 28 54 24 2C 41 |.=.."]";:..(T$,A|
00000650: 28 43 29 29 3B 3A 99 22 9D 22 3B 00 9B 0E 3E 00 |(C));:.".";...>.|
00000660: 8D 32 35 33 3A 8B 41 41 24 28 43 29 B2 22 4E 22 |.253:.AA$(C)."N"|
00000670: A7 99 22 91 91 22 3A 8D 35 34 37 3A 8B 41 43 B2 |.."..":.547:.AC.|
00000680: 31 A7 41 43 B2 30 3A 99 22 91 22 4C 33 24 3A 99 |1.AC.0:."."L3$:.|
00000690: 22 91 91 91 91 91 22 3A 89 35 39 00 C5 0E 3F 00 |".....":.59...?.|
000006A0: 41 24 28 52 2C 43 29 B2 49 50 24 3A 99 3A 8B 41 |A$(R,C).IP$:.:.A|
000006B0: 24 28 52 2C 43 29 B2 22 22 A7 41 24 28 52 2C 43 |$(R,C)."".A$(R,C|
000006C0: 29 B2 22 2D 22 00 F2 0E 40 00 8B C3 28 41 24 28 |)."-"...@...(A$(|
000006D0: 52 2C 43 29 29 B1 41 28 43 29 A7 41 24 28 52 2C |R,C)).A(C).A$(R,|
000006E0: 43 29 B2 C8 28 41 24 28 52 2C 43 29 2C 41 28 43 |C)..(A$(R,C),A(C|
000006F0: 29 29 00 FA 0E 41 00 43 B2 32 00 03 0F 42 00 89 |))...A.C.2...B..|
00000700: 31 30 31 00 0C 0F 43 00 8D 32 36 33 00 33 0F 44 |101...C..263.3.D|
00000710: 00 99 22 57 48 49 43 48 20 4C 49 4E 45 20 44 4F |.."WHICH LINE DO|
00000720: 20 59 4F 55 20 57 49 53 48 20 54 4F 20 41 4D 45 | YOU WISH TO AME|
00000730: 4E 44 22 00 52 0F 45 00 99 22 50 52 45 53 53 20 |ND".R.E.."PRESS |
00000740: 31 20 54 4F 20 22 58 22 20 3A 22 3B 3A 8D 32 35 |1 TO "X" :";:.25|
00000750: 33 3B 00 6D 0F 46 00 43 B2 C5 28 49 50 24 29 3A |3;.m.F.C..(IP$):|
00000760: 8B 43 B1 58 A7 8D 34 31 30 3A 89 36 38 00 76 0F |.C.X..410:.68.v.|
00000770: 47 00 8D 34 31 30 00 86 0F 48 00 99 22 12 22 41 |G..410...H.."."A|
00000780: 24 28 30 2C 43 29 00 C6 0F 49 00 99 22 45 4E 54 |$(0,C)...I.."ENT|
00000790: 45 52 20 43 4F 52 52 45 43 54 20 46 49 45 4C 44 |ER CORRECT FIELD|
000007A0: 20 48 45 41 44 49 4E 47 20 5B 20 20 20 20 20 20 | HEADING [ |
000007B0: 20 20 20 5D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B | ]..........";|
000007C0: 3A 8D 20 32 35 33 00 D8 0F 4A 00 41 24 28 30 2C |:. 253...J.A$(0,|
000007D0: 43 29 B2 49 50 24 3A 99 00 02 10 4B 00 8B C3 28 |C).IP$:....K...(|
000007E0: 41 24 28 30 2C 43 29 29 B3 39 A7 41 24 28 30 2C |A$(0,C)).9.A$(0,|
000007F0: 43 29 B2 41 24 28 30 2C 43 29 AA 22 20 22 3A 89 |C).A$(0,C)." ":.|
00000800: 37 35 00 29 10 4C 00 8B C3 28 41 24 28 30 2C 43 |75.).L...(A$(0,C|
00000810: 29 29 B1 39 A7 41 24 28 30 2C 43 29 B2 C8 28 41 |)).9.A$(0,C)..(A|
00000820: 24 28 30 2C 43 29 2C 39 29 00 32 10 4D 00 89 31 |$(0,C),9).2.M..1|
00000830: 30 31 00 64 10 4E 00 99 22 45 4E 54 45 52 20 4E |01.d.N.."ENTER N|
00000840: 45 57 20 46 49 4C 45 20 4E 41 4D 45 20 5B 20 20 |EW FILE NAME [ |
00000850: 20 20 20 20 20 20 20 5D 9D 9D 9D 9D 9D 9D 9D 9D | ]........|
00000860: 9D 9D 22 3B 00 78 10 4F 00 8D 32 35 33 3A 4E 24 |..";.x.O..253:N$|
00000870: B2 49 50 24 3A 89 31 32 00 AB 10 50 00 8D 34 39 |.IP$:.12...P..49|
00000880: 34 3A 43 4F B2 31 3A 4C 4E B2 32 31 3A 8D 34 39 |4:CO.1:LN.21:.49|
00000890: 36 3A 99 22 44 4F 20 59 4F 55 20 57 49 53 48 20 |6:."DO YOU WISH |
000008A0: 54 4F 20 41 4D 45 4E 44 3A 2D 22 00 CC 10 51 00 |TO AMEND:-"...Q.|
000008B0: 99 22 46 49 45 4C 44 20 12 48 92 45 41 44 49 4E |."FIELD .H.EADIN|
000008C0: 47 20 4F 52 20 12 44 92 41 54 41 22 00 DE 10 52 |G OR .D.ATA"...R|
000008D0: 00 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 38 32 00 F3 |..K$:.K$."".82..|
000008E0: 10 53 00 8B 4B 24 B2 22 48 22 A7 8D 34 31 30 3A |.S..K$."H"..410:|
000008F0: 89 36 38 00 08 11 54 00 8B 4B 24 B2 22 44 22 A7 |.68...T..K$."D".|
00000900: 8D 34 31 30 3A 89 35 35 00 10 11 55 00 89 38 32 |.410:.55...U..82|
00000910: 00 32 11 56 00 99 C7 28 31 34 37 29 3B 3A 52 53 |.2.V...(147);:RS|
00000920: B2 52 3A 81 52 B2 52 53 A4 59 3A 99 C7 28 31 39 |.R:.R.RS.Y:..(19|
00000930: 29 3B 00 65 11 57 00 99 22 12 20 52 45 43 4F 52 |);.e.W..". RECOR|
00000940: 44 53 20 57 49 4C 4C 20 44 49 53 50 4C 41 59 20 |DS WILL DISPLAY |
00000950: 49 4E 20 4C 4F 47 49 43 41 4C 20 4F 52 44 45 52 |IN LOGICAL ORDER|
00000960: 20 92 22 3A 99 00 A7 11 58 00 43 4F B2 31 3A 4C | .":....X.CO.1:L|
00000970: 4E B2 32 34 3A 8D 34 39 36 3A 99 22 12 43 92 4F |N.24:.496:.".C.O|
00000980: 4E 54 49 4E 55 45 20 53 43 52 4F 4C 4C 3A 20 20 |NTINUE SCROLL: |
00000990: 12 53 92 54 4F 50 20 53 43 52 4F 4C 4C 3A 20 20 |.S.TOP SCROLL: |
000009A0: 12 45 92 58 49 54 3A 00 D4 11 59 00 43 4F B2 31 |.E.XIT:...Y.CO.1|
000009B0: 3A 4C 4E B2 33 3A 8D 34 39 36 3A 99 22 52 45 43 |:LN.3:.496:."REC|
000009C0: 4F 52 44 20 4E 4F 3A 20 22 3B 52 3A 99 3A 81 43 |ORD NO: ";R:.:.C|
000009D0: B2 31 A4 58 00 00 12 5A 00 99 22 12 22 41 24 28 |.1.X...Z.."."A$(|
000009E0: 30 2C 43 29 22 92 22 3B 3A 51 B2 C3 28 41 24 28 |0,C)".";:Q..(A$(|
000009F0: 52 2C 43 29 29 3A 8B 51 B1 32 36 A7 51 B2 32 36 |R,C)):.Q.26.Q.26|
00000A00: 00 22 12 5B 00 99 A3 31 32 29 C8 28 41 24 28 52 |.".[...12).(A$(R|
00000A10: 2C 43 29 2C 32 36 29 AA C8 28 53 24 2C 32 36 AB |,C),26)..(S$,26.|
00000A20: 51 29 00 2D 12 5C 00 8B 43 B2 31 A7 99 00 3C 12 |Q).-.\..C.1...<.|
00000A30: 5D 00 8B 52 4E B3 B1 30 A7 35 30 35 00 43 12 5E |]..RN..0.505.C.^|
00000A40: 00 82 43 00 5C 12 5F 00 4B 24 B2 22 22 3A A1 4B |..C.\._.K$."":.K|
00000A50: 24 3A 8B 4B 24 B2 22 53 22 A7 39 38 00 78 12 60 |$:.K$."S".98.x.`|
00000A60: 00 8B 4B 24 B3 B1 22 45 22 A7 81 49 B2 31 A4 35 |..K$.."E"..I.1.5|
00000A70: 30 30 3A 82 49 3A 82 52 00 81 12 61 00 89 31 30 |00:.I:.R...a..10|
00000A80: 31 00 A3 12 62 00 4B 24 B2 22 22 3A A1 4B 24 3A |1...b.K$."":.K$:|
00000A90: 8B 4B 24 B3 B1 22 43 22 AF 4B 24 B3 B1 22 45 22 |.K$.."C".K$.."E"|
00000AA0: A7 39 38 00 AB 12 63 00 89 39 36 00 B3 12 64 00 |.98...c..96...d.|
00000AB0: 52 B2 31 00 BB 12 65 00 41 B2 31 00 C8 12 66 00 |R.1...e.A.1...f.|
00000AC0: 8B 52 B2 30 A7 52 B2 31 00 DB 12 67 00 8B 52 B1 |.R.0.R.1...g..R.|
00000AD0: 59 A7 52 B2 52 AB 31 3A 52 B2 59 00 E8 12 68 00 |Y.R.R.1:R.Y...h.|
00000AE0: 8B 41 B2 30 A7 41 B2 31 00 F8 12 69 00 8B 41 B1 |.A.0.A.1...i..A.|
00000AF0: 32 35 A7 41 B2 41 AB 31 00 23 13 6A 00 99 C7 28 |25.A.A.1.#.j...(|
00000B00: 31 34 37 29 3A 99 22 12 22 3B 4E 24 A3 31 39 29 |147):.".";N$.19)|
00000B10: 22 52 45 43 4F 52 44 20 4E 4F 22 3B 52 3A 8D 20 |"RECORD NO";R:. |
00000B20: 32 36 33 00 2E 13 6B 00 81 43 B2 31 A4 58 00 3A |263...k..C.1.X.:|
00000B30: 13 6C 00 47 47 B2 41 28 43 29 00 4B 13 6D 00 8B |.l.GG.A(C).K.m..|
00000B40: 47 47 B1 32 34 A7 47 47 B2 32 34 00 5C 13 6E 00 |GG.24.GG.24.\.n.|
00000B50: 99 22 12 22 C4 28 43 29 22 92 22 3B 00 8A 13 6F |.".".(C)".";...o|
00000B60: 00 99 A3 34 29 22 12 22 C8 28 41 24 28 30 2C 43 |...4)".".(A$(0,C|
00000B70: 29 2C 39 29 22 92 22 A3 31 35 29 CA 28 41 24 28 |),9)".".15).(A$(|
00000B80: 52 2C 43 29 2C 41 2C 47 47 29 00 98 13 70 00 8B |R,C),A,GG)...p..|
00000B90: 43 B2 31 A7 8D 32 36 33 00 9E 13 71 00 82 00 B7 |C.1..263...q....|
00000BA0: 13 72 00 43 4F B2 31 3A 4C 4E B2 32 30 3A 8D 34 |.r.CO.1:LN.20:.4|
00000BB0: 39 36 3A 99 4C 33 24 00 E3 13 73 00 99 22 20 20 |96:.L3$...s.." |
00000BC0: 20 20 20 20 20 20 20 20 20 20 20 12 2A 2A 4F 50 | .**OP|
00000BD0: 54 49 4F 4E 53 2A 2A 92 20 20 20 20 20 20 20 20 |TIONS**. |
00000BE0: 20 20 22 00 1D 14 74 00 99 22 50 52 45 53 53 20 | "...t.."PRESS |
00000BF0: 3A 20 12 4E 92 45 58 54 20 12 4C 92 41 53 54 20 |: .N.EXT .L.AST |
00000C00: 12 46 92 49 4E 44 20 12 47 92 4F 54 4F 20 12 41 |.F.IND .G.OTO .A|
00000C10: 92 4D 45 4E 44 20 12 4D 92 45 4E 55 22 00 55 14 |.MEND .M.ENU".U.|
00000C20: 75 00 99 22 12 43 92 41 4C 43 53 20 12 49 92 4E |u..".C.ALCS .I.N|
00000C30: 50 55 54 20 12 44 92 45 4C 45 54 45 20 12 50 92 |PUT .D.ELETE .P.|
00000C40: 52 49 4E 54 20 12 53 92 43 52 4F 4C 4C 20 12 3C |RINT .S.CROLL .<|
00000C50: 92 20 12 3E 22 00 5E 14 76 00 99 4C 33 24 00 71 |. .>".^.v..L3$.q|
00000C60: 14 77 00 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 31 31 |.w..K$:.K$."".11|
00000C70: 39 00 A4 14 78 00 4B 4B 24 B2 22 4E 4C 4D 49 47 |9...x.KK$."NLMIG|
00000C80: 46 53 3E 3C 41 50 43 44 22 3A 81 4B B2 31 A4 31 |FS><APCD":.K.1.1|
00000C90: 33 3A 8B 4B 24 B2 CA 28 4B 4B 24 2C 4B 2C 31 29 |3:.K$..(KK$,K,1)|
00000CA0: A7 31 32 32 00 B0 14 79 00 82 4B 3A 89 31 31 39 |.122...y..K:.119|
00000CB0: 00 E6 14 7A 00 91 4B 89 31 32 33 2C 31 32 34 2C |...z..K.123,124,|
00000CC0: 31 32 2C 31 32 35 2C 34 30 2C 33 35 2C 38 36 2C |12,125,40,35,86,|
00000CD0: 31 32 36 2C 31 32 37 2C 38 30 2C 33 36 33 2C 33 |126,127,80,363,3|
00000CE0: 37 32 2C 34 38 33 00 F6 14 7B 00 52 B2 52 AA 31 |72,483...{.R.R.1|
00000CF0: 3A 89 20 31 30 31 00 06 15 7C 00 52 B2 52 AB 31 |:. 101...|.R.R.1|
00000D00: 3A 89 20 31 30 31 00 18 15 7D 00 46 B2 31 3A 54 |:. 101...}.F.1:T|
00000D10: 56 B2 52 3A 89 31 37 32 00 27 15 7E 00 41 B2 41 |V.R:.172.'.~.A.A|
00000D20: AA 31 3A 89 31 30 32 00 36 15 7F 00 41 B2 41 AB |.1:.102.6...A.A.|
00000D30: 31 3A 89 31 30 32 00 6D 15 80 00 99 C7 28 31 34 |1:.102.m.....(14|
00000D40: 37 29 3A 99 3A 99 22 12 2A 2A 57 41 52 4E 49 4E |7):.:.".**WARNIN|
00000D50: 47 2A 2A 20 54 48 49 53 20 57 49 4C 4C 20 45 52 |G** THIS WILL ER|
00000D60: 41 53 45 20 41 4E 59 20 46 49 4C 45 22 00 92 15 |ASE ANY FILE"...|
00000D70: 81 00 99 22 12 43 55 52 52 45 4E 54 4C 59 20 49 |...".CURRENTLY I|
00000D80: 4E 20 4D 45 4D 4F 52 59 92 22 3A 99 3A 99 3A 99 |N MEMORY.":.:.:.|
00000D90: 3A 99 00 B6 15 82 00 99 A3 38 29 20 22 A3 A3 A3 |:........8) "...|
00000DA0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000DB0: A3 A3 A3 A3 A3 22 00 D8 15 83 00 99 A3 38 29 22 |.....".......8)"|
00000DC0: 50 52 45 53 53 20 12 59 92 45 53 20 54 4F 20 43 |PRESS .Y.ES TO C|
00000DD0: 4F 4E 54 49 4E 55 45 22 00 F6 15 84 00 99 A3 38 |ONTINUE".......8|
00000DE0: 29 22 20 20 20 20 20 20 12 4E 92 4F 20 46 4F 52 |)" .N.O FOR|
00000DF0: 20 4D 45 4E 55 22 00 1A 16 85 00 99 A3 38 29 20 | MENU".......8) |
00000E00: 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |"...............|
00000E10: A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 23 16 86 00 8D |.........".#....|
00000E20: 35 31 32 00 32 16 87 00 8B 4B 24 B2 22 4E 22 A7 |512.2....K$."N".|
00000E30: 31 32 00 43 16 88 00 8B 4B 24 B2 22 59 22 A7 20 |12.C....K$."Y". |
00000E40: 31 33 37 00 56 16 89 00 99 C7 28 31 34 37 29 3A |137.V.....(147):|
00000E50: 9C 3A 8D 34 31 32 00 8D 16 8A 00 99 22 4B 45 59 |.:.412......"KEY|
00000E60: 20 44 41 54 45 20 45 47 2E 28 32 38 2E 31 32 2E | DATE EG.(28.12.|
00000E70: 38 32 29 5B 20 20 20 20 20 20 20 20 5D 9D 9D 9D |82)[ ]...|
00000E80: 9D 9D 9D 9D 9D 9D 22 3B 3A 8D 32 35 33 00 9D 16 |......";:.253...|
00000E90: 8B 00 8B 49 50 24 B2 22 22 A7 31 34 31 00 C8 16 |...IP$."".141...|
00000EA0: 8C 00 8D 35 34 37 3A 8B 41 43 B2 31 A7 41 43 B2 |...547:.AC.1.AC.|
00000EB0: 30 3A 99 22 91 22 53 24 22 91 22 3A 99 22 91 91 |0:."."S$".":."..|
00000EC0: 91 91 22 3A 89 31 33 38 00 E0 16 8D 00 4D 24 B2 |..":.138.....M$.|
00000ED0: C8 28 49 50 24 2C 38 29 3A 99 C7 28 31 34 37 29 |.(IP$,8):..(147)|
00000EE0: 00 FD 16 8E 00 99 A3 31 32 29 22 12 43 52 45 41 |.......12)".CREA|
00000EF0: 54 45 20 52 45 43 4F 52 44 92 22 3A 99 00 06 17 |TE RECORD.":....|
00000F00: 8F 00 8D 32 36 33 00 39 17 90 00 99 22 57 48 41 |...263.9...."WHA|
00000F10: 54 20 49 53 20 54 48 45 20 46 49 4C 45 20 4E 41 |T IS THE FILE NA|
00000F20: 4D 45 20 3F 5B 20 20 20 20 20 20 20 20 5D 9D 9D |ME ?[ ]..|
00000F30: 9D 9D 9D 9D 9D 9D 9D 22 3B 00 42 17 91 00 8D 32 |.......";.B....2|
00000F40: 35 33 00 54 17 92 00 4E 24 B2 C8 28 49 50 24 2C |53.T...N$..(IP$,|
00000F50: 38 29 3A 99 00 5E 17 93 00 8D 20 32 36 33 00 95 |8):..^.... 263..|
00000F60: 17 94 00 99 22 48 4F 57 20 4D 41 4E 59 20 46 49 |...."HOW MANY FI|
00000F70: 45 4C 44 53 20 49 4E 20 45 41 43 48 20 52 45 43 |ELDS IN EACH REC|
00000F80: 4F 52 44 20 3F 20 5B 20 20 5D 9D 9D 9D 22 3B 3A |ORD ? [ ]...";:|
00000F90: 8D 20 32 35 33 00 A9 17 95 00 58 B2 C5 28 C8 28 |. 253.....X..(.(|
00000FA0: 49 50 24 2C 32 29 29 3A 99 00 CF 17 96 00 8B 58 |IP$,2)):.......X|
00000FB0: B3 31 B0 58 B1 31 35 A7 99 22 12 4D 41 58 49 4D |.1.X.15..".MAXIM|
00000FC0: 55 4D 20 49 53 20 31 35 92 22 3A 89 31 34 38 00 |UM IS 15.":.148.|
00000FD0: E4 17 97 00 8D 34 31 35 3A 99 C7 28 31 34 37 29 |.....415:..(147)|
00000FE0: 3A 43 B2 31 00 08 18 98 00 99 22 12 54 48 49 53 |:C.1......".THIS|
00000FF0: 20 46 49 4C 45 20 49 53 20 4E 41 4D 45 44 20 22 | FILE IS NAMED "|
00001000: 3B 4E 24 3A 8D 32 36 33 00 39 18 99 00 99 22 4E |;N$:.263.9...."N|
00001010: 4F 54 45 20 54 48 41 54 20 46 49 45 4C 44 20 31 |OTE THAT FIELD 1|
00001020: 20 49 53 20 54 48 45 20 12 20 4B 45 59 20 46 49 | IS THE . KEY FI|
00001030: 45 4C 44 20 92 A0 22 3A 99 00 42 18 9A 00 8D 32 |ELD ..":..B....2|
00001040: 36 33 00 7D 18 9B 00 99 22 53 54 41 54 45 20 12 |63.}...."STATE .|
00001050: 20 54 49 54 4C 45 20 92 20 4F 46 20 46 49 45 4C | TITLE . OF FIEL|
00001060: 44 22 43 22 20 20 5B 20 20 20 20 20 20 20 20 20 |D"C" [ |
00001070: 5D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 00 88 18 |]..........";...|
00001080: 9C 00 8D 32 35 33 3A 99 00 9D 18 9D 00 41 24 28 |...253:......A$(|
00001090: 30 2C 43 29 B2 C8 28 49 50 24 2C 39 29 00 C8 18 |0,C)..(IP$,9)...|
000010A0: 9E 00 8B C3 28 41 24 28 30 2C 43 29 29 B3 39 A7 |....(A$(0,C)).9.|
000010B0: 41 24 28 30 2C 43 29 B2 41 24 28 30 2C 43 29 AA |A$(0,C).A$(0,C).|
000010C0: 22 20 22 3A 89 31 35 38 00 00 19 9F 00 99 22 45 |" ":.158......"E|
000010D0: 4E 54 45 52 20 12 43 92 48 41 52 41 43 54 45 52 |NTER .C.HARACTER|
000010E0: 20 4F 52 20 12 4E 92 55 4D 45 52 49 43 20 46 49 | OR .N.UMERIC FI|
000010F0: 45 4C 44 20 5B 20 5D 9D 9D 22 3B 3A 8D 32 35 33 |ELD [ ]..";:.253|
00001100: 00 16 19 A0 00 41 41 24 28 43 29 B2 C8 28 49 50 |.....AA$(C)..(IP|
00001110: 24 2C 31 29 3A 99 00 2A 19 A1 00 8B 41 41 24 28 |$,1):..*....AA$(|
00001120: 43 29 B2 22 4E 22 A7 31 36 34 00 3E 19 A2 00 8B |C)."N".164.>....|
00001130: 41 41 24 28 43 29 B2 22 43 22 A7 31 36 36 00 4C |AA$(C)."C".166.L|
00001140: 19 A3 00 8D 34 31 30 3A 89 31 35 39 00 59 19 A4 |....410:.159.Y..|
00001150: 00 41 28 43 29 B2 39 3A 99 00 62 19 A5 00 89 31 |.A(C).9:..b....1|
00001160: 37 30 00 8F 19 A6 00 99 22 45 4E 54 45 52 20 4E |70......"ENTER N|
00001170: 55 4D 42 45 52 20 4F 46 20 43 48 41 52 41 43 54 |UMBER OF CHARACT|
00001180: 45 52 53 20 46 4F 52 20 52 45 43 4F 52 44 22 00 |ERS FOR RECORD".|
00001190: B6 19 A7 00 99 22 4D 41 58 2E 33 36 20 43 48 41 |....."MAX.36 CHA|
000011A0: 52 41 43 54 45 52 53 20 5B 20 20 5D 9D 9D 9D 22 |RACTERS [ ]..."|
000011B0: 3B 3A 8D 32 35 33 00 C8 19 A8 00 41 28 43 29 B2 |;:.253.....A(C).|
000011C0: C5 28 49 50 24 29 3A 99 00 E5 19 A9 00 8B 41 28 |.(IP$):.......A(|
000011D0: 43 29 B1 33 36 A7 99 22 91 91 22 3A 8D 34 31 30 |C).36.."..":.410|
000011E0: 3A 89 31 36 36 00 F2 19 AA 00 8B 43 B2 58 A7 31 |:.166......C.X.1|
000011F0: 37 32 00 06 1A AB 00 43 B2 43 AA 31 3A 99 22 93 |72.....C.C.1:.".|
00001200: 22 3A 89 31 35 32 00 20 1A AC 00 8B 46 B2 31 A7 |":.152. ....F.1.|
00001210: 52 B2 59 AA 31 3A 59 B2 59 AA 31 3A 89 31 37 34 |R.Y.1:Y.Y.1:.174|
00001220: 00 2C 1A AD 00 52 B2 31 3A 59 B2 31 00 3B 1A AE |.,...R.1:Y.1.;..|
00001230: 00 8B 52 B1 32 30 30 A7 35 33 33 00 6D 1A AF 00 |..R.200.533.m...|
00001240: 99 C7 28 31 34 37 29 3A 41 43 B2 30 3A 20 99 A3 |..(147):AC.0: ..|
00001250: 31 32 29 22 12 52 45 43 4F 52 44 20 4E 55 4D 42 |12)".RECORD NUMB|
00001260: 45 52 22 3B 52 22 92 22 3A 8D 32 36 33 00 9C 1A |ER";R".":.263...|
00001270: B0 00 99 A3 33 29 22 54 4F 20 54 45 52 4D 49 4E |....3)"TO TERMIN|
00001280: 41 54 45 20 44 41 54 41 20 45 4E 54 52 59 20 54 |ATE DATA ENTRY T|
00001290: 59 50 45 20 27 45 4E 44 27 22 3A 99 00 A7 1A B1 |YPE 'END'":.....|
000012A0: 00 8D 32 36 33 3A 99 00 B2 1A B2 00 81 43 B2 31 |..263:.......C.1|
000012B0: A4 58 00 D8 1A B3 00 99 22 4B 45 59 20 22 41 24 |.X......"KEY "A$|
000012C0: 28 30 2C 43 29 3A 99 22 5B 22 3B 3A 99 C8 28 53 |(0,C):."[";:..(S|
000012D0: 24 2C 41 28 43 29 29 3B 00 FA 1A B4 00 99 22 5D |$,A(C));......"]|
000012E0: 22 3B 3A 99 C8 28 54 24 2C 41 28 43 29 29 3B 3A |";:..(T$,A(C));:|
000012F0: 99 22 9D 22 3B 3A 8D 32 35 33 00 1F 1B B5 00 8B |.".";:.253......|
00001300: 49 50 24 B2 22 45 4E 44 22 AF 20 46 B2 30 20 A7 |IP$."END". F.0 .|
00001310: 20 52 B2 31 3A 59 B2 59 AB 31 3A 89 20 31 32 00 | R.1:Y.Y.1:. 12.|
00001320: 42 1B B6 00 8B 49 50 24 B2 22 3D 22 A7 41 24 28 |B....IP$."=".A$(|
00001330: 52 2C 43 29 B2 41 24 28 54 56 2C 43 29 3A 89 31 |R,C).A$(TV,C):.1|
00001340: 38 37 00 6A 1B B7 00 8B 49 50 24 B2 22 45 4E 44 |87.j....IP$."END|
00001350: 22 AF 46 B2 31 A7 46 B2 30 3A 52 B2 52 AB 31 3A |".F.1.F.0:R.R.1:|
00001360: 59 B2 59 AB 31 3A 89 31 30 31 00 A4 1B B8 00 8B |Y.Y.1:.101......|
00001370: 41 41 24 28 43 29 B2 22 4E 22 A7 8D 35 34 37 3A |AA$(C)."N"..547:|
00001380: 8B 41 43 B2 31 A7 41 43 B2 30 3A 99 22 91 22 53 |.AC.1.AC.0:."."S|
00001390: 24 3A 99 22 91 22 3A 99 22 91 91 91 91 91 22 3A |$:.".":.".....":|
000013A0: 89 31 37 39 00 BE 1B B9 00 41 24 28 52 2C 43 29 |.179.....A$(R,C)|
000013B0: B2 C8 28 49 50 24 2C 41 28 43 29 29 3A 99 00 DA |..(IP$,A(C)):...|
000013C0: 1B BA 00 8B 41 24 28 52 2C 43 29 B2 22 22 A7 41 |....A$(R,C)."".A|
000013D0: 24 28 52 2C 43 29 B2 22 2D 22 00 E3 1B BB 00 8D |$(R,C)."-"......|
000013E0: 32 36 33 00 E9 1B BC 00 82 00 FB 1B BD 00 8B 46 |263............F|
000013F0: B2 31 A7 46 B2 30 3A 89 31 30 31 00 11 1C BE 00 |.1.F.0:.101.....|
00001400: 52 B2 52 AA 31 3A 59 B2 59 AA 31 3A 89 20 31 37 |R.R.1:Y.Y.1:. 17|
00001410: 34 00 3E 1C BF 00 99 C7 28 31 34 37 29 3A 99 A3 |4.>.....(147):..|
00001420: 31 35 29 22 12 2A 2A 53 45 4C 45 43 54 2A 2A 22 |15)".**SELECT**"|
00001430: 3A 8D 32 36 33 3A 45 B2 30 3A 52 43 B2 30 00 84 |:.263:E.0:RC.0..|
00001440: 1C C0 00 99 22 44 4F 20 59 4F 55 20 57 41 4E 54 |...."DO YOU WANT|
00001450: 20 54 4F 20 4F 55 54 50 55 54 20 52 45 53 55 4C | TO OUTPUT RESUL|
00001460: 54 53 20 54 4F 22 3A 99 22 50 52 49 4E 54 45 52 |TS TO":."PRINTER|
00001470: 3A 20 4B 45 59 20 12 59 92 45 53 20 4F 52 20 12 |: KEY .Y.ES OR .|
00001480: 4E 92 4F 22 00 8D 1C C1 00 8D 32 36 33 00 96 1C |N.O"......263...|
00001490: C2 00 8D 35 31 32 00 AC 1C C3 00 8B 4B 24 B2 22 |...512......K$."|
000014A0: 59 22 A7 50 52 B2 35 3A 89 31 39 37 00 C2 1C C4 |Y".PR.5:.197....|
000014B0: 00 8B 4B 24 B2 22 4E 22 A7 50 52 B2 30 3A 89 31 |..K$."N".PR.0:.1|
000014C0: 39 37 00 D2 1C C5 00 8B 50 52 B2 30 A7 54 54 B2 |97......PR.0.TT.|
000014D0: 31 35 00 DD 1C C6 00 81 52 B2 31 A4 59 00 1E 1D |15......R.1.Y...|
000014E0: C7 00 8D 34 31 30 3A 99 22 91 45 4E 54 45 52 20 |...410:.".ENTER |
000014F0: 53 45 4C 45 43 54 45 44 20 12 46 49 45 4C 44 92 |SELECTED .FIELD.|
00001500: 20 5B 20 20 20 20 20 20 20 20 20 5D 9D 9D 9D 9D | [ ]....|
00001510: 9D 9D 9D 9D 9D 9D 22 3B 3A 8D 32 35 33 3B 00 2C |......";:.253;.,|
00001520: 1D C8 00 44 50 24 B2 49 50 24 3A 99 00 4B 1D C9 |...DP$.IP$:..K..|
00001530: 00 8B C3 28 44 50 24 29 B3 39 A7 44 50 24 B2 44 |...(DP$).9.DP$.D|
00001540: 50 24 AA 22 20 22 3A 89 32 30 31 00 5A 1D CA 00 |P$." ":.201.Z...|
00001550: 99 3A 8D 32 36 33 3A 43 B2 31 00 6F 1D CB 00 8B |.:.263:C.1.o....|
00001560: 41 24 28 30 2C 43 29 B2 44 50 24 A7 32 30 36 00 |A$(0,C).DP$.206.|
00001570: 84 1D CC 00 43 B2 43 AA 31 3A 8B 43 B3 58 AA 31 |....C.C.1:.C.X.1|
00001580: A7 32 30 33 00 A6 1D CD 00 45 4D 24 B2 22 12 4E |.203.....EM$.".N|
00001590: 4F 20 53 55 43 48 20 46 49 45 4C 44 22 3A 8D 32 |O SUCH FIELD":.2|
000015A0: 36 30 3A 89 31 32 00 BB 1D CE 00 99 22 45 4E 54 |60:.12......"ENT|
000015B0: 45 52 20 12 22 44 50 24 22 92 22 00 D2 1D CF 00 |ER ."DP$".".....|
000015C0: 99 22 5B 22 3B 3A 99 C8 28 53 24 2C 41 28 43 29 |."[";:..(S$,A(C)|
000015D0: 29 3B 00 EF 1D D0 00 99 22 5D 22 3B 3A 99 C8 28 |);......"]";:..(|
000015E0: 54 24 2C 41 28 43 29 29 3B 3A 99 22 9D 22 3B 00 |T$,A(C));:.".";.|
000015F0: 08 1E D1 00 8D 32 35 33 3A 43 50 24 B2 49 50 24 |.....253:CP$.IP$|
00001600: 3A 99 3A 8D 20 32 36 33 00 15 1E D2 00 46 B2 C3 |:.:. 263.....F..|
00001610: 28 43 50 24 29 00 3A 1E D3 00 99 C7 28 31 34 37 |(CP$).:.....(147|
00001620: 29 3A 99 3A 8D 20 32 36 33 3A 8B 41 41 24 28 43 |):.:. 263:.AA$(C|
00001630: 29 B3 B1 22 43 22 A7 32 31 34 00 63 1E D4 00 99 |).."C".214.c....|
00001640: 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 41 20 53 |"DO YOU WANT A S|
00001650: 54 41 4E 44 41 52 44 20 4F 52 20 53 4C 49 44 49 |TANDARD OR SLIDI|
00001660: 4E 47 22 00 A2 1E D5 00 99 22 53 54 52 49 4E 47 |NG"......"STRING|
00001670: 20 53 45 41 52 43 48 3A 20 45 4E 54 45 52 20 12 | SEARCH: ENTER .|
00001680: 53 54 92 20 4F 52 20 12 53 53 92 20 5B 20 20 5D |ST. OR .SS. [ ]|
00001690: 9D 9D 9D 22 3B 3A 8D 32 35 33 3A 53 54 24 B2 49 |...";:.253:ST$.I|
000016A0: 50 24 00 CB 1E D6 00 99 C7 28 31 34 37 29 3A 99 |P$.......(147):.|
000016B0: 3A 8D 20 32 36 33 3A 8B 41 41 24 28 43 29 B2 22 |:. 263:.AA$(C)."|
000016C0: 4E 22 A7 4A B2 31 3A 89 32 31 37 00 E7 1E D7 00 |N".J.1:.217.....|
000016D0: 8B 53 54 24 B2 22 53 53 22 A7 53 53 B2 31 3A 49 |.ST$."SS".SS.1:I|
000016E0: B2 31 3A 89 32 32 35 00 07 1F D8 00 8B 53 54 24 |.1:.225......ST$|
000016F0: B2 22 53 54 22 A7 53 53 B2 30 3A 49 B2 31 3A 4A |."ST".SS.0:I.1:J|
00001700: B2 31 3A 89 32 32 35 00 25 1F D9 00 99 22 53 48 |.1:.225.%...."SH|
00001710: 4F 55 4C 44 20 12 20 22 44 50 24 22 20 92 20 42 |OULD . "DP$" . B|
00001720: 45 3A 22 3A 99 00 43 1F DA 00 99 A3 32 29 22 12 |E:":..C.....2)".|
00001730: 45 92 51 55 41 4C 20 54 4F 22 A3 31 35 29 43 50 |E.QUAL TO".15)CP|
00001740: 24 3A 99 00 62 1F DB 00 99 A3 32 29 22 12 4C 92 |$:..b.....2)".L.|
00001750: 45 53 53 20 54 48 41 4E 22 A3 31 35 29 43 50 24 |ESS THAN".15)CP$|
00001760: 3A 99 00 84 1F DC 00 99 A3 32 29 22 12 47 92 52 |:........2)".G.R|
00001770: 45 41 54 45 52 20 54 48 41 4E 22 A3 31 35 29 43 |EATER THAN".15)C|
00001780: 50 24 3A 99 00 97 1F DD 00 A1 4B 24 3A 8B 4B 24 |P$:.......K$:.K$|
00001790: B2 22 22 A7 32 32 31 00 BF 1F DE 00 4B 4B 24 B2 |."".221.....KK$.|
000017A0: 22 45 4C 47 22 3A 81 49 B2 31 A4 33 3A 8B 4B 24 |"ELG":.I.1.3:.K$|
000017B0: B2 CA 28 4B 4B 24 2C 49 2C 31 29 A7 32 32 34 00 |..(KK$,I,1).224.|
000017C0: CB 1F DF 00 82 49 3A 89 32 32 31 00 DD 1F E0 00 |.....I:.221.....|
000017D0: 99 C7 28 31 34 37 29 3A 8D 20 32 36 33 00 1B 20 |..(147):. 263.. |
000017E0: E1 00 41 52 B2 32 34 3A 8B 50 52 B2 35 A7 8D 35 |..AR.24:.PR.5..5|
000017F0: 31 34 3A 99 22 13 22 A3 31 34 29 22 12 2A 2A 50 |14:.".".14)".**P|
00001800: 52 49 4E 54 49 4E 47 2A 2A 92 22 3A 41 52 B2 41 |RINTING**.":AR.A|
00001810: 28 31 29 3A 9F 34 2C 34 3A 9D 34 00 48 20 E2 00 |(1):.4,4:.4.H ..|
00001820: 99 22 46 49 4C 45 20 4E 41 4D 45 20 3A 20 22 4E |."FILE NAME : "N|
00001830: 24 3A 99 3A 99 22 53 45 4C 45 43 54 49 4F 4E 20 |$:.:."SELECTION |
00001840: 3A 20 22 44 50 24 3A 99 00 5B 20 E3 00 91 49 89 |: "DP$:..[ ...I.|
00001850: 32 34 30 2C 32 32 38 2C 32 33 34 00 81 20 E4 00 |240,228,234.. ..|
00001860: 99 22 43 52 49 54 45 52 49 41 20 20 3C 20 22 43 |."CRITERIA < "C|
00001870: 50 24 22 20 22 3A 8D 32 36 33 3A 81 52 B2 31 A4 |P$" ":.263:.R.1.|
00001880: 59 00 8A 20 E5 00 8D 35 30 38 00 CA 20 E6 00 8B |Y.. ...508.. ...|
00001890: C5 28 41 24 28 52 2C 43 29 29 B3 C5 28 43 50 24 |.(A$(R,C))..(CP$|
000018A0: 29 A7 99 22 52 45 43 4F 52 44 20 4E 4F 20 22 3B |).."RECORD NO ";|
000018B0: 52 A3 54 54 29 C8 28 41 24 28 52 2C 31 29 2C 41 |R.TT).(A$(R,1),A|
000018C0: 52 29 3A 52 43 B2 52 43 AA 31 00 D0 20 E7 00 82 |R):RC.RC.1.. ...|
000018D0: 00 E0 20 E8 00 8B 50 52 B2 35 A7 98 34 3A A0 34 |.. ...PR.5..4:.4|
000018E0: 00 E9 20 E9 00 89 32 34 39 00 0F 21 EA 00 99 22 |.. ...249..!..."|
000018F0: 43 52 49 54 45 52 49 41 20 20 3E 20 22 43 50 24 |CRITERIA > "CP$|
00001900: 22 20 22 3A 8D 32 36 33 3A 81 52 B2 31 A4 59 00 |" ":.263:.R.1.Y.|
00001910: 18 21 EB 00 8D 35 30 38 00 58 21 EC 00 8B C5 28 |.!...508.X!....(|
00001920: 41 24 28 52 2C 43 29 29 B1 C5 28 43 50 24 29 A7 |A$(R,C))..(CP$).|
00001930: 99 22 52 45 43 4F 52 44 20 4E 4F 20 22 3B 52 A3 |."RECORD NO ";R.|
00001940: 54 54 29 C8 28 41 24 28 52 2C 31 29 2C 41 52 29 |TT).(A$(R,1),AR)|
00001950: 3A 52 43 B2 52 43 AA 31 00 5E 21 ED 00 82 00 6E |:RC.RC.1.^!....n|
00001960: 21 EE 00 8B 50 52 B2 35 A7 98 34 3A A0 34 00 77 |!...PR.5..4:.4.w|
00001970: 21 EF 00 89 32 34 39 00 9D 21 F0 00 99 22 43 52 |!...249..!..."CR|
00001980: 49 54 45 52 49 41 20 20 3D 20 22 43 50 24 22 20 |ITERIA = "CP$" |
00001990: 22 3A 8D 32 36 33 3A 81 52 B2 31 A4 59 00 A8 21 |":.263:.R.1.Y..!|
000019A0: F1 00 81 52 B2 31 A4 59 00 B1 21 F2 00 8D 35 30 |...R.1.Y..!...50|
000019B0: 38 00 C7 21 F3 00 8B 53 53 B2 31 A7 81 4A B2 31 |8..!...SS.1..J.1|
000019C0: A4 41 28 43 29 AB 46 00 08 22 F4 00 8B CA 28 41 |.A(C).F.."....(A|
000019D0: 24 28 52 2C 43 29 2C 4A 2C 46 29 B2 43 50 24 A7 |$(R,C),J,F).CP$.|
000019E0: 99 22 52 45 43 4F 52 44 20 4E 4F 20 22 3B 52 A3 |."RECORD NO ";R.|
000019F0: 54 54 29 C8 28 41 24 28 52 2C 31 29 2C 41 52 29 |TT).(A$(R,1),AR)|
00001A00: 3A 52 43 B2 52 43 AA 31 00 16 22 F5 00 8B 53 53 |:RC.RC.1.."...SS|
00001A10: B2 30 A7 32 34 37 00 1D 22 F6 00 82 4A 00 23 22 |.0.247.."...J.#"|
00001A20: F7 00 82 00 33 22 F8 00 8B 50 52 B2 35 A7 98 34 |....3"...PR.5..4|
00001A30: 3A A0 34 00 6F 22 F9 00 99 3A 99 22 12 52 45 43 |:.4.o"...:.".REC|
00001A40: 4F 52 44 53 20 43 4F 55 4E 54 45 44 20 3D 92 20 |ORDS COUNTED =. |
00001A50: 22 3B 52 43 3A 99 3A 99 A3 31 33 29 22 12 50 52 |";RC:.:..13)".PR|
00001A60: 45 53 53 20 53 50 41 43 45 20 42 41 52 92 22 00 |ESS SPACE BAR.".|
00001A70: 82 22 FA 00 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 32 |."...K$:.K$."".2|
00001A80: 35 30 00 98 22 FB 00 8B 4B 24 B2 22 20 22 A7 52 |50.."...K$." ".R|
00001A90: B2 52 AB 31 3A 89 31 32 00 A1 22 FC 00 89 32 35 |.R.1:.12.."...25|
00001AA0: 30 00 B1 22 FD 00 42 24 B2 22 20 22 3A 99 22 22 |0.."..B$." ":.""|
00001AB0: 3B 00 C7 22 FE 00 A1 49 50 24 3A 8B 49 50 24 B2 |;.."...IP$:.IP$.|
00001AC0: 22 22 A7 89 32 35 34 00 E2 22 FF 00 8B 42 24 B2 |""..254.."...B$.|
00001AD0: 22 20 22 AF C6 28 49 50 24 29 B2 32 30 A7 89 32 |" "..(IP$).20..2|
00001AE0: 35 34 00 0F 23 00 01 8B C6 28 49 50 24 29 B2 32 |54..#....(IP$).2|
00001AF0: 30 A7 42 24 B2 C8 28 42 24 2C C3 28 42 24 29 AB |0.B$..(B$,.(B$).|
00001B00: 31 29 3A 99 22 9D 20 9D 22 3B 3A 89 32 35 34 00 |1):.". .";:.254.|
00001B10: 2E 23 01 01 8B 49 50 24 B2 C7 28 31 33 29 A7 49 |.#...IP$..(13).I|
00001B20: 50 24 B2 CA 28 42 24 2C 32 29 3A 99 3A 8E 00 46 |P$..(B$,2):.:..F|
00001B30: 23 02 01 41 B2 C6 28 49 50 24 29 3A 8B 41 B3 33 |#..A..(IP$):.A.3|
00001B40: 31 A7 89 32 35 34 00 67 23 03 01 42 24 B2 42 24 |1..254.g#..B$.B$|
00001B50: AA 49 50 24 3A 99 22 12 22 3B 49 50 24 3B 22 92 |.IP$:.".";IP$;".|
00001B60: 22 3B 3A 89 32 35 34 00 71 23 04 01 99 20 45 4D |";:.254.q#... EM|
00001B70: 24 00 84 23 05 01 81 20 54 38 B2 31 20 A4 31 30 |$..#... T8.1 .10|
00001B80: 30 30 3A 82 00 8A 23 06 01 8E 00 BB 23 07 01 99 |00:...#.....#...|
00001B90: 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |"...............|
00001BA0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00001BB0: A3 A3 A3 A3 A3 A3 A3 A3 22 3A 8E 00 E5 23 08 01 |........":...#..|
00001BC0: 99 20 22 44 4F 20 59 4F 55 20 57 49 53 48 20 54 |. "DO YOU WISH T|
00001BD0: 4F 20 12 4C 92 4F 41 44 20 4F 52 20 12 53 92 41 |O .L.OAD OR .S.A|
00001BE0: 56 45 22 3A 99 00 F8 23 09 01 A1 4B 24 3A 8B 4B |VE":...#...K$:.K|
00001BF0: 24 B2 22 22 A7 32 36 35 00 08 24 0A 01 8B 4B 24 |$."".265..$...K$|
00001C00: B2 22 4C 22 A7 32 38 33 00 18 24 0B 01 8B 4B 24 |."L".283..$...K$|
00001C10: B2 22 53 22 A7 32 36 39 00 21 24 0C 01 89 32 36 |."S".269.!$...26|
00001C20: 35 00 2A 24 0D 01 8D 34 31 30 00 57 24 0E 01 99 |5.*$...410.W$...|
00001C30: 22 41 52 45 20 59 4F 55 20 53 41 56 49 4E 47 20 |"ARE YOU SAVING |
00001C40: 4F 4E 20 12 44 92 49 53 43 20 4F 52 20 12 54 92 |ON .D.ISC OR .T.|
00001C50: 41 50 45 3F 22 3A 99 00 6A 24 0F 01 A1 4B 24 3A |APE?":..j$...K$:|
00001C60: 8B 4B 24 B2 22 22 A7 32 37 31 00 7A 24 10 01 8B |.K$."".271.z$...|
00001C70: 4B 24 B2 22 54 22 A7 32 37 35 00 8A 24 11 01 8B |K$."T".275..$...|
00001C80: 4B 24 B2 22 44 22 A7 32 39 37 00 93 24 12 01 89 |K$."D".297..$...|
00001C90: 32 37 31 00 9C 24 13 01 8D 34 31 30 00 B4 24 14 |271..$...410..$.|
00001CA0: 01 99 22 12 49 4E 53 45 52 54 20 43 41 53 53 45 |..".INSERT CASSE|
00001CB0: 54 54 45 22 00 D1 24 15 01 99 22 50 52 45 53 53 |TTE"..$..."PRESS|
00001CC0: 20 12 43 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 | .C. TO CONTINUE|
00001CD0: 22 00 E7 24 16 01 A1 4B 24 3A 8B 4B 24 B3 B1 22 |"..$...K$:.K$.."|
00001CE0: 43 22 A7 20 32 37 38 00 FE 24 17 01 8D 34 31 30 |C". 278..$...410|
00001CF0: 3A 99 22 53 41 56 49 4E 47 20 12 22 4E 24 00 08 |:."SAVING ."N$..|
00001D00: 25 18 01 99 22 91 91 22 00 17 25 19 01 9F 20 31 |%...".."..%... 1|
00001D10: 2C 31 2C 31 2C 4E 24 00 20 25 1A 01 89 33 30 35 |,1,1,N$. %...305|
00001D20: 00 26 25 1B 01 9C 00 4E 25 1C 01 8D 34 31 32 3A |.&%....N%...412:|
00001D30: 8D 34 31 30 3A 99 22 41 52 45 20 59 4F 55 20 4C |.410:."ARE YOU L|
00001D40: 4F 41 44 49 4E 47 20 46 52 4F 4D 3A 2D 22 00 66 |OADING FROM:-".f|
00001D50: 25 1D 01 99 22 12 44 92 49 53 4B 20 4F 52 20 12 |%...".D.ISK OR .|
00001D60: 54 92 41 50 45 22 00 79 25 1E 01 A1 4B 24 3A 8B |T.APE".y%...K$:.|
00001D70: 4B 24 B2 22 22 A7 32 38 36 00 89 25 1F 01 8B 4B |K$."".286..%...K|
00001D80: 24 B2 22 54 22 A7 32 39 30 00 99 25 20 01 8B 4B |$."T".290..% ..K|
00001D90: 24 B2 22 44 22 A7 32 39 35 00 A2 25 21 01 89 32 |$."D".295..%!..2|
00001DA0: 38 36 00 B5 25 22 01 54 B2 31 3A 55 B2 30 3A 4E |86..%".T.1:U.0:N|
00001DB0: 4E 24 B2 4E 24 00 D6 25 23 01 8D 34 31 30 3A 99 |N$.N$..%#..410:.|
00001DC0: 22 49 53 20 43 41 53 53 45 54 54 45 20 49 4E 20 |"IS CASSETTE IN |
00001DD0: 50 4C 41 43 45 22 00 F5 25 24 01 99 22 50 52 45 |PLACE"..%$.."PRE|
00001DE0: 53 53 20 12 59 92 45 53 20 54 4F 20 43 4F 4E 54 |SS .Y.ES TO CONT|
00001DF0: 49 4E 55 45 22 00 0A 26 25 01 A1 4B 24 3A 8B 4B |INUE"..&%..K$:.K|
00001E00: 24 B3 B1 22 59 22 A7 32 39 33 00 13 26 26 01 89 |$.."Y".293..&&..|
00001E10: 33 31 35 00 48 26 27 01 54 B2 38 3A 55 B2 34 3A |315.H&'.T.8:U.4:|
00001E20: 4E 31 24 B2 22 30 3A 22 3A 4E 32 24 B2 22 2C 53 |N1$."0:":N2$.",S|
00001E30: 45 51 2C 52 45 41 44 22 3A 4E 4E 24 B2 4E 31 24 |EQ,READ":NN$.N1$|
00001E40: AA 4E 4E 24 AA 4E 32 24 00 51 26 28 01 89 33 31 |.NN$.N2$.Q&(..31|
00001E50: 35 00 5A 26 29 01 8D 34 31 30 00 89 26 2A 01 99 |5.Z&)..410..&*..|
00001E60: 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 |"DO YOU WANT TO |
00001E70: 53 41 56 45 20 4F 4E 20 44 52 49 56 45 20 12 30 |SAVE ON DRIVE .0|
00001E80: 92 20 4F 52 20 12 31 92 22 00 9C 26 2B 01 A1 4B |. OR .1."..&+..K|
00001E90: 24 3A 8B 4B 24 B2 22 22 A7 32 39 39 00 B6 26 2C |$:.K$."".299..&,|
00001EA0: 01 8B 4B 24 B2 22 30 22 A7 44 52 24 B2 22 30 3A |..K$."0".DR$."0:|
00001EB0: 22 3A 89 33 30 33 00 D0 26 2D 01 8B 4B 24 B2 22 |":.303..&-..K$."|
00001EC0: 31 22 A7 44 52 24 B2 22 31 3A 22 3A 89 33 30 33 |1".DR$."1:":.303|
00001ED0: 00 D9 26 2E 01 89 32 39 39 00 05 27 2F 01 4E 31 |..&...299..'/.N1|
00001EE0: 24 B2 44 52 24 3A 4E 32 24 B2 22 2C 53 45 51 2C |$.DR$:N2$.",SEQ,|
00001EF0: 57 52 49 54 45 22 3A 4E 4E 24 B2 4E 31 24 AA 4E |WRITE":NN$.N1$.N|
00001F00: 24 AA 4E 32 24 00 18 27 30 01 9F 31 2C 38 2C 34 |$.N2$..'0..1,8,4|
00001F10: 2C 22 40 22 AA 4E 4E 24 00 29 27 31 01 98 31 2C |,"@".NN$.)'1..1,|
00001F20: 59 3A 99 C7 28 31 33 29 3B 00 3A 27 32 01 98 31 |Y:..(13);.:'2..1|
00001F30: 2C 58 3A 99 C7 28 31 33 29 3B 00 57 27 33 01 81 |,X:..(13);.W'3..|
00001F40: 43 B2 31 A4 58 3A 98 31 2C 41 28 43 29 3A 99 C7 |C.1.X:.1,A(C):..|
00001F50: 28 31 33 29 3B 3A 82 00 76 27 34 01 81 43 B2 31 |(13);:..v'4..C.1|
00001F60: A4 58 3A 98 31 2C 41 41 24 28 43 29 3A 99 C7 28 |.X:.1,AA$(C):..(|
00001F70: 31 33 29 3B 3A 82 00 81 27 35 01 81 52 B2 31 A4 |13);:...'5..R.1.|
00001F80: 59 00 A1 27 36 01 81 43 B2 31 A4 58 3A 98 31 2C |Y..'6..C.1.X:.1,|
00001F90: 41 24 28 52 2C 43 29 3A 99 C7 28 31 33 29 3B 3A |A$(R,C):..(13);:|
00001FA0: 82 00 A7 27 37 01 82 00 C7 27 38 01 81 43 B2 31 |...'7....'8..C.1|
00001FB0: A4 58 3A 98 31 2C 41 24 28 30 2C 43 29 3A 99 C7 |.X:.1,A$(0,C):..|
00001FC0: 28 31 33 29 3B 3A 82 00 CE 27 39 01 A0 31 00 D6 |(13);:...'9..1..|
00001FD0: 27 3A 01 89 31 32 00 0F 28 3B 01 8D 34 31 30 3A |':..12..(;..410:|
00001FE0: 99 22 45 4E 54 45 52 20 46 49 4C 45 20 4E 41 4D |."ENTER FILE NAM|
00001FF0: 45 20 5B 20 20 20 20 20 20 20 20 20 5D 9D 9D 9D |E [ ]...|
00002000: 9D 9D 9D 9D 9D 9D 9D 22 3B 3A 8D 20 32 35 33 00 |.......";:. 253.|
00002010: 28 28 3C 01 4E 24 B2 C8 28 49 50 24 2C 39 29 3A |((<.N$..(IP$,9):|
00002020: 4E 4E 24 B2 4E 24 3A 99 00 38 28 3D 01 8B 54 B2 |NN$.N$:..8(=..T.|
00002030: 31 A7 99 22 91 91 91 22 00 47 28 3E 01 9F 31 2C |1.."...".G(>..1,|
00002040: 54 2C 55 2C 4E 4E 24 00 5A 28 3F 01 84 31 2C 59 |T,U,NN$.Z(?..1,Y|
00002050: 3A 84 31 2C 58 3A 8D 34 31 35 00 6F 28 40 01 81 |:.1,X:.415.o(@..|
00002060: 43 B2 31 A4 58 3A 84 31 2C 41 28 43 29 3A 82 00 |C.1.X:.1,A(C):..|
00002070: 86 28 41 01 81 43 B2 31 A4 58 3A 84 31 2C 41 41 |.(A..C.1.X:.1,AA|
00002080: 24 28 43 29 3A 82 00 91 28 42 01 81 52 B2 31 A4 |$(C):...(B..R.1.|
00002090: 59 00 9C 28 43 01 81 43 B2 31 A4 58 00 AB 28 44 |Y..(C..C.1.X..(D|
000020A0: 01 84 31 2C 41 24 28 52 2C 43 29 00 B3 28 45 01 |..1,A$(R,C)..(E.|
000020B0: 82 3A 82 00 BE 28 46 01 81 43 B2 31 A4 58 00 CD |.:...(F..C.1.X..|
000020C0: 28 47 01 84 31 2C 41 24 28 30 2C 43 29 00 D3 28 |(G..1,A$(0,C)..(|
000020D0: 48 01 82 00 DA 28 49 01 A0 31 00 E3 28 4A 01 8D |H....(I..1..(J..|
000020E0: 34 31 30 00 1D 29 4B 01 8B 59 B2 30 A7 4E 24 B2 |410..)K..Y.0.N$.|
000020F0: 22 22 3A 99 22 12 46 49 4C 45 20 4E 4F 54 20 46 |"":.".FILE NOT F|
00002100: 4F 55 4E 44 20 4F 4E 20 44 49 53 4B 22 3A 81 49 |OUND ON DISK":.I|
00002110: B2 31 A4 31 30 30 30 3A 82 3A 89 31 32 00 54 29 |.1.1000:.:.12.T)|
00002120: 4C 01 99 22 4B 45 59 20 44 41 54 45 20 45 47 2E |L.."KEY DATE EG.|
00002130: 28 32 38 2E 31 32 2E 38 33 29 5B 20 20 20 20 20 |(28.12.83)[ |
00002140: 20 20 20 5D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 3A | ].........";:|
00002150: 8D 32 35 33 00 64 29 4D 01 8B 49 50 24 B2 22 22 |.253.d)M..IP$.""|
00002160: A7 33 33 35 00 95 29 4E 01 52 B2 31 3A 99 3A 8D |.335..)N.R.1:.:.|
00002170: 35 34 37 3A 8B 41 43 B2 31 A7 41 43 B2 30 3A 99 |547:.AC.1.AC.0:.|
00002180: 22 91 22 53 24 22 91 22 3A 99 22 91 91 91 91 22 |"."S$".":."...."|
00002190: 3A 89 33 33 32 00 A7 29 4F 01 4D 24 B2 C8 28 49 |:.332..)O.M$..(I|
000021A0: 50 24 2C 38 29 3A 99 00 AF 29 50 01 89 31 32 00 |P$,8):...)P..12.|
000021B0: D3 29 51 01 99 22 45 58 49 54 20 27 44 46 4D 27 |.)Q.."EXIT 'DFM'|
000021C0: 20 41 52 45 20 59 4F 55 20 53 55 52 45 20 28 59 | ARE YOU SURE (Y|
000021D0: 2F 4E 29 00 E6 29 52 01 A1 4B 24 3A 8B 4B 24 B2 |/N)..)R..K$:.K$.|
000021E0: 22 22 A7 33 33 38 00 FD 29 53 01 8B 4B 24 B2 22 |"".338..)S..K$."|
000021F0: 59 22 A7 4E 24 B2 22 22 3A 8D 33 34 33 00 0C 2A |Y".N$."":.343..*|
00002200: 54 01 8B 4B 24 B2 22 4E 22 A7 31 32 00 1F 2A 55 |T..K$."N".12..*U|
00002210: 01 80 20 20 20 20 20 20 20 20 20 20 20 20 20 00 |.. .|
00002220: 2F 2A 56 01 89 33 33 39 20 20 20 20 20 20 20 00 |/*V..339 .|
00002230: 5C 2A 57 01 99 3A 20 20 99 22 93 20 20 20 20 20 |\*W..: .". |
00002240: 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | **************|
00002250: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 8A 2A 58 |***********"..*X|
00002260: 01 99 22 20 20 20 20 20 20 20 2A 2A 2A 20 12 44 |.." *** .D|
00002270: 41 54 41 92 20 12 46 49 4C 45 92 20 12 4D 41 4E |ATA. .FILE. .MAN|
00002280: 41 47 45 52 92 20 2A 2A 2A 22 00 B4 2A 59 01 99 |AGER. ***"..*Y..|
00002290: 22 20 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A |" ********|
000022A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000022B0: 2A 22 3A 99 00 C3 2A 5A 01 8B 4E 24 B3 B1 22 22 |*":...*Z..N$..""|
000022C0: A7 20 8E 00 EC 2A 5B 01 99 22 20 20 20 20 20 20 |. ...*[.." |
000022D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 42 59 20 | BY |
000022E0: 20 20 20 20 20 20 20 20 20 22 3A 99 00 22 2B 5C | ":.."+\|
000022F0: 01 99 22 20 20 20 20 20 20 20 20 12 20 44 20 92 |.." . D .|
00002300: 20 12 20 49 20 92 20 12 20 41 20 92 20 12 20 4C | . I . . A . . L|
00002310: 20 92 20 12 20 4F 20 92 20 12 20 47 20 92 20 22 | . . O . . G . "|
00002320: 3A 99 00 49 2B 5D 01 99 22 20 20 20 20 20 20 20 |:..I+].." |
00002330: 20 20 20 20 20 53 20 4F 20 46 20 54 20 57 20 41 | S O F T W A|
00002340: 20 52 20 45 22 3A 99 3A 8E 00 55 2B 5E 01 99 C7 | R E":.:..U+^...|
00002350: 28 31 34 37 29 00 77 2B 5F 01 99 A3 31 34 29 22 |(147).w+_...14)"|
00002360: 12 2A 2A 55 54 49 4C 49 54 49 45 53 2A 2A 92 22 |.**UTILITIES**."|
00002370: 3A 8D 32 36 33 3A 99 00 B0 2B 60 01 99 22 20 20 |:.263:...+`.." |
00002380: 12 4D 92 45 4D 4F 52 59 20 41 56 41 49 4C 41 42 |.M.EMORY AVAILAB|
00002390: 49 4C 49 54 59 22 3A 99 3A 99 22 20 20 12 44 92 |ILITY":.:." .D.|
000023A0: 49 53 4B 20 44 49 52 45 43 54 4F 52 59 22 3A 99 |ISK DIRECTORY":.|
000023B0: 00 CA 2B 61 01 99 22 20 20 4D 45 4E 55 20 12 53 |..+a.." MENU .S|
000023C0: 50 41 43 45 20 42 41 52 92 22 00 DD 2B 62 01 A1 |PACE BAR."..+b..|
000023D0: 56 24 3A 8B 56 24 B2 22 22 A7 33 35 34 00 ED 2B |V$:.V$."".354..+|
000023E0: 63 01 8B 56 24 B2 22 4D 22 A7 33 36 31 00 FD 2B |c..V$."M".361..+|
000023F0: 64 01 8B 56 24 B2 22 44 22 A7 35 33 38 00 0C 2C |d..V$."D".538..,|
00002400: 65 01 8B 56 24 B2 22 20 22 A7 31 32 00 2F 2C 66 |e..V$." ".12./,f|
00002410: 01 99 3A 99 22 12 50 52 45 53 53 20 53 50 41 43 |..:.".PRESS SPAC|
00002420: 45 20 42 41 52 20 46 4F 52 20 4D 45 4E 55 22 00 |E BAR FOR MENU".|
00002430: 44 2C 67 01 A1 4B 24 3A 8B 4B 24 B3 B1 22 20 22 |D,g..K$:.K$.." "|
00002440: A7 33 35 34 00 4C 2C 68 01 89 31 32 00 6D 2C 69 |.354.L,h..12.m,i|
00002450: 01 99 22 13 11 11 11 11 22 A3 32 34 29 22 3D 20 |..".....".24)"= |
00002460: 22 B8 28 30 29 22 42 59 54 45 53 20 22 00 7D 2C |".(0)"BYTES ".},|
00002470: 6A 01 99 C7 28 31 39 29 3A 89 33 35 31 00 86 2C |j...(19):.351..,|
00002480: 6B 01 8D 34 39 34 00 8F 2C 6C 01 8D 35 31 34 00 |k..494..,l..514.|
00002490: 9B 2C 6D 01 9F 34 2C 34 3A 9D 34 00 C6 2C 6E 01 |.,m..4,4:.4..,n.|
000024A0: 99 C7 28 31 34 37 29 3A 99 22 12 22 3B 4E 24 20 |..(147):.".";N$ |
000024B0: A3 31 39 29 22 52 45 43 4F 52 44 20 4E 4F 22 3B |.19)"RECORD NO";|
000024C0: 52 3A 99 4C 33 24 00 FF 2C 6F 01 43 B2 31 3A 99 |R:.L3$..,o.C.1:.|
000024D0: 22 12 22 C4 28 43 29 22 92 22 3B 3A 99 A3 32 29 |".".(C)".";:..2)|
000024E0: 22 12 22 20 41 24 28 30 2C 43 29 22 92 22 A3 33 |"." A$(0,C)".".3|
000024F0: 29 3B C8 28 41 24 28 52 2C 43 29 2C 32 34 29 00 |);.(A$(R,C),24).|
00002500: 08 2D 70 01 99 4C 33 24 00 16 2D 71 01 81 20 43 |.-p..L3$..-q.. C|
00002510: B2 32 20 A4 20 58 00 3D 2D 72 01 99 C4 28 43 29 |.2 . X.=-r...(C)|
00002520: 3B 3A 99 A3 32 29 41 24 28 30 2C 43 29 A3 33 29 |;:..2)A$(0,C).3)|
00002530: C8 28 41 24 28 52 2C 43 29 2C 32 34 29 00 58 2D |.(A$(R,C),24).X-|
00002540: 73 01 82 3A 99 3A 8D 32 36 33 3A 99 3A 20 98 34 |s..:.:.263:.: .4|
00002550: 3A A0 34 3A 89 31 30 31 00 96 2D 74 01 8D 34 39 |:.4:.101..-t..49|
00002560: 34 3A 43 4F B2 31 3A 4C 4E B2 32 31 3A 8D 34 39 |4:CO.1:LN.21:.49|
00002570: 36 3A 99 22 44 4F 20 59 4F 55 20 57 49 53 48 20 |6:."DO YOU WISH |
00002580: 54 4F 20 50 45 52 46 4F 52 4D 20 49 4E 44 49 56 |TO PERFORM INDIV|
00002590: 49 44 55 41 4C 22 00 B9 2D 75 01 99 22 12 43 92 |IDUAL"..-u..".C.|
000025A0: 41 4C 43 53 20 4F 52 20 12 54 92 4F 54 41 4C 49 |ALCS OR .T.OTALI|
000025B0: 53 45 20 46 49 45 4C 44 22 00 CC 2D 76 01 A1 4B |SE FIELD"..-v..K|
000025C0: 24 3A 8B 4B 24 B2 22 22 A7 33 37 34 00 E2 2D 77 |$:.K$."".374..-w|
000025D0: 01 8B 4B 24 B2 22 54 22 A7 8D 34 31 30 3A 89 33 |..K$."T"..410:.3|
000025E0: 39 36 00 F8 2D 78 01 8B 4B 24 B2 22 43 22 A7 8D |96..-x..K$."C"..|
000025F0: 34 31 30 3A 89 33 37 38 00 01 2E 79 01 89 33 37 |410:.378...y..37|
00002600: 34 00 20 2E 7A 01 99 22 57 48 49 43 48 20 46 49 |4. .z.."WHICH FI|
00002610: 45 4C 44 20 44 4F 20 59 4F 55 20 57 49 53 48 22 |ELD DO YOU WISH"|
00002620: 00 4A 2E 7B 01 99 22 54 4F 20 43 41 4C 43 55 4C |.J.{.."TO CALCUL|
00002630: 41 54 45 2C 20 4B 45 59 20 31 20 54 4F 20 22 58 |ATE, KEY 1 TO "X|
00002640: 22 20 3A 22 3B 3A 8D 32 35 33 00 66 2E 7C 01 43 |" :";:.253.f.|.C|
00002650: B2 C5 28 49 50 24 29 3A 8B 43 B1 58 A7 8D 34 31 |..(IP$):.C.X..41|
00002660: 30 3A 89 33 37 38 00 6F 2E 7D 01 8D 34 31 30 00 |0:.378.o.}..410.|
00002670: 94 2E 7E 01 8B 41 41 24 28 43 29 B2 22 43 22 A7 |..~..AA$(C)."C".|
00002680: 99 22 12 43 48 41 52 41 43 54 45 52 92 20 46 49 |.".CHARACTER. FI|
00002690: 45 4C 44 22 00 A8 2E 7F 01 8B 41 41 24 28 43 29 |ELD"......AA$(C)|
000026A0: B2 22 4E 22 A7 33 38 35 00 BD 2E 80 01 81 49 B2 |."N".385......I.|
000026B0: 31 A4 31 30 30 30 3A 82 3A 89 31 31 34 00 EB 2E |1.1000:.:.114...|
000026C0: 81 01 99 22 4B 45 59 20 4C 45 54 54 45 52 20 46 |..."KEY LETTER F|
000026D0: 4F 4C 4C 4F 57 45 44 20 42 59 20 41 4D 4F 55 4E |OLLOWED BY AMOUN|
000026E0: 54 20 45 47 2E 28 41 32 35 29 22 00 21 2F 82 01 |T EG.(A25)".!/..|
000026F0: 99 22 12 41 92 44 44 20 12 53 92 55 42 54 52 41 |.".A.DD .S.UBTRA|
00002700: 43 54 20 12 4D 92 55 4C 54 49 50 4C 59 20 12 44 |CT .M.ULTIPLY .D|
00002710: 92 49 56 49 44 45 20 12 5A 92 45 52 4F 49 53 45 |.IVIDE .Z.EROISE|
00002720: 22 00 41 2F 83 01 99 22 12 52 92 45 50 4C 41 43 |".A/...".R.EPLAC|
00002730: 45 20 3A 22 3B 3A 8D 32 35 33 3A 4C 24 B2 49 50 |E :";:.253:L$.IP|
00002740: 24 00 6A 2F 84 01 8B C8 28 4C 24 2C 31 29 B2 22 |$.j/....(L$,1)."|
00002750: 53 22 A7 50 B2 C5 28 41 24 28 52 2C 43 29 29 AB |S".P..(A$(R,C)).|
00002760: C5 28 CA 28 4C 24 2C 32 29 29 00 93 2F 85 01 8B |.(.(L$,2))../...|
00002770: C8 28 4C 24 2C 31 29 B2 22 41 22 A7 50 B2 C5 28 |.(L$,1)."A".P..(|
00002780: 41 24 28 52 2C 43 29 29 AA C5 28 CA 28 4C 24 2C |A$(R,C))..(.(L$,|
00002790: 32 29 29 00 BC 2F 86 01 8B C8 28 4C 24 2C 31 29 |2))../....(L$,1)|
000027A0: B2 22 4D 22 A7 50 B2 C5 28 41 24 28 52 2C 43 29 |."M".P..(A$(R,C)|
000027B0: 29 AC C5 28 CA 28 4C 24 2C 32 29 29 00 E5 2F 87 |)..(.(L$,2))../.|
000027C0: 01 8B C8 28 4C 24 2C 31 29 B2 22 44 22 A7 50 B2 |...(L$,1)."D".P.|
000027D0: C5 28 41 24 28 52 2C 43 29 29 AD C5 28 CA 28 4C |.(A$(R,C))..(.(L|
000027E0: 24 2C 32 29 29 00 FA 2F 88 01 8B C8 28 4C 24 2C |$,2))../....(L$,|
000027F0: 31 29 B2 22 5A 22 A7 50 B2 30 00 18 30 89 01 8B |1)."Z".P.0..0...|
00002800: C8 28 4C 24 2C 31 29 B2 22 52 22 A7 50 B2 C5 28 |.(L$,1)."R".P..(|
00002810: CA 28 4C 24 2C 32 29 29 00 2E 30 8A 01 41 24 28 |.(L$,2))..0..A$(|
00002820: 52 2C 43 29 B2 CA 28 C4 28 50 29 2C 32 29 00 37 |R,C)..(.(P),2).7|
00002830: 30 8B 01 89 31 30 31 00 56 30 8C 01 99 22 57 48 |0...101.V0..."WH|
00002840: 49 43 48 20 46 49 45 4C 44 20 44 4F 20 59 4F 55 |ICH FIELD DO YOU|
00002850: 20 57 49 53 48 22 00 7E 30 8D 01 99 22 54 4F 20 | WISH".~0..."TO |
00002860: 54 4F 54 41 4C 49 53 45 20 4B 45 59 20 31 20 54 |TOTALISE KEY 1 T|
00002870: 4F 20 22 58 22 20 3A 22 3B 3A 8D 32 35 33 00 9A |O "X" :";:.253..|
00002880: 30 8E 01 43 B2 C5 28 49 50 24 29 3A 8B 43 B1 58 |0..C..(IP$):.C.X|
00002890: A7 8D 34 31 30 3A 89 33 39 36 00 A3 30 8F 01 8D |..410:.396..0...|
000028A0: 34 31 30 00 C8 30 90 01 8B 41 41 24 28 43 29 B2 |410..0...AA$(C).|
000028B0: 22 43 22 A7 99 22 12 43 48 41 52 41 43 54 45 52 |"C"..".CHARACTER|
000028C0: 92 20 46 49 45 4C 44 22 00 DC 30 91 01 8B 41 41 |. FIELD"..0...AA|
000028D0: 24 28 43 29 B2 22 4E 22 A7 34 30 33 00 F1 30 92 |$(C)."N".403..0.|
000028E0: 01 81 49 B2 31 A4 31 30 30 30 3A 82 3A 89 31 31 |..I.1.1000:.:.11|
000028F0: 34 00 F9 30 93 01 54 B2 30 00 16 31 94 01 81 20 |4..0..T.0..1... |
00002900: 52 B2 31 A4 59 3A 54 B2 54 AA C5 28 41 24 28 52 |R.1.Y:T.T..(A$(R|
00002910: 2C 43 29 29 3A 82 00 5C 31 95 01 99 22 54 4F 54 |,C)):..\1..."TOT|
00002920: 41 4C 20 46 49 4C 45 20 56 41 4C 55 45 20 4F 46 |AL FILE VALUE OF|
00002930: 20 46 49 45 4C 44 20 3A 22 3A 99 22 12 22 41 24 | FIELD :":."."A$|
00002940: 28 30 2C 43 29 22 92 22 22 20 3D 20 20 20 20 20 |(0,C)"."" = |
00002950: 20 20 20 20 20 20 20 20 20 22 3B 54 00 7F 31 96 | ";T..1.|
00002960: 01 99 22 50 52 45 53 53 20 12 53 50 41 43 45 20 |.."PRESS .SPACE |
00002970: 42 41 52 92 20 54 4F 20 52 45 54 55 52 4E 22 00 |BAR. TO RETURN".|
00002980: 92 31 97 01 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 34 |.1...K$:.K$."".4|
00002990: 30 37 00 A2 31 98 01 8B 4B 24 B2 22 20 22 A7 31 |07..1...K$." ".1|
000029A0: 30 31 00 AB 31 99 01 89 34 30 37 00 B1 31 9A 01 |01..1...407..1..|
000029B0: 3A 00 CD 31 9B 01 99 22 91 91 22 3B 3A 99 53 24 |:..1..."..";:.S$|
000029C0: 3A 99 53 24 3A 99 22 91 91 91 22 3A 8E 00 FE 31 |:.S$:."...":...1|
000029D0: 9C 01 53 24 B2 22 20 20 20 20 20 20 20 20 20 20 |..S$." |
000029E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000029F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 30 | ".0|
00002A00: 32 9D 01 4C 33 24 B2 22 2D 2D 2D 2D 2D 2D 2D 2D |2..L3$."--------|
00002A10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002A20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 |---------------"|
00002A30: 00 64 32 9E 01 54 24 B2 22 9D 9D 9D 9D 9D 9D 9D |.d2..T$.".......|
00002A40: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00002A50: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00002A60: 9D 22 3A 8E 00 99 32 9F 01 86 20 41 24 28 32 30 |.":...2... A$(20|
00002A70: 30 2C 58 29 2C 41 41 24 28 58 29 2C 41 28 58 29 |0,X),AA$(X),A(X)|
00002A80: 2C 43 24 28 58 29 2C 42 24 28 58 29 3A 41 24 28 |,C$(X),B$(X):A$(|
00002A90: 52 2C 43 29 B2 22 22 3A 8E 00 BB 32 A0 01 99 22 |R,C)."":...2..."|
00002AA0: 57 48 49 43 48 20 46 49 45 4C 44 20 44 4F 20 59 |WHICH FIELD DO Y|
00002AB0: 4F 55 20 57 49 53 48 20 54 4F 22 00 E1 32 A1 01 |OU WISH TO"..2..|
00002AC0: 99 22 53 4F 52 54 20 42 59 2E 2E 20 4B 45 59 20 |."SORT BY.. KEY |
00002AD0: 31 20 54 4F 20 22 58 22 20 3A 22 3B 3A 8D 32 35 |1 TO "X" :";:.25|
00002AE0: 33 00 EE 32 A2 01 4D B2 C5 28 49 50 24 29 00 F7 |3..2..M..(IP$)..|
00002AF0: 32 A3 01 8D 34 31 30 00 14 33 A4 01 99 22 12 53 |2...410..3...".S|
00002B00: 4F 52 54 49 4E 47 92 20 50 4C 45 41 53 45 20 57 |ORTING. PLEASE W|
00002B10: 41 49 54 22 00 21 33 A5 01 81 52 B2 31 A4 59 AB |AIT".!3...R.1.Y.|
00002B20: 31 00 30 33 A6 01 81 49 B2 28 52 AA 31 29 A4 59 |1.03...I.(R.1).Y|
00002B30: 00 55 33 A7 01 8B 41 41 24 28 4D 29 B2 22 43 22 |.U3...AA$(M)."C"|
00002B40: AF 41 24 28 49 2C 4D 29 B1 B2 41 24 28 52 2C 4D |.A$(I,M)..A$(R,M|
00002B50: 29 A7 34 33 30 00 80 33 A8 01 8B 41 41 24 28 4D |).430..3...AA$(M|
00002B60: 29 B2 22 4E 22 AF C5 28 41 24 28 49 2C 4D 29 29 |)."N"..(A$(I,M))|
00002B70: B1 B2 C5 28 41 24 28 52 2C 4D 29 29 A7 34 33 30 |...(A$(R,M)).430|
00002B80: 00 8B 33 A9 01 81 43 B2 31 A4 58 00 9D 33 AA 01 |..3...C.1.X..3..|
00002B90: 42 24 28 43 29 B2 41 24 28 52 2C 43 29 00 B1 33 |B$(C).A$(R,C)..3|
00002BA0: AB 01 41 24 28 52 2C 43 29 B2 41 24 28 49 2C 43 |..A$(R,C).A$(I,C|
00002BB0: 29 00 C3 33 AC 01 41 24 28 49 2C 43 29 B2 42 24 |)..3..A$(I,C).B$|
00002BC0: 28 43 29 00 CA 33 AD 01 82 43 00 D2 33 AE 01 82 |(C)..3...C..3...|
00002BD0: 3A 82 00 FA 33 AF 01 99 22 12 53 4F 52 54 92 20 |:...3...".SORT. |
00002BE0: 43 4F 4D 50 4C 45 54 45 44 22 3A 81 4A B2 31 A4 |COMPLETED":.J.1.|
00002BF0: 31 30 30 30 3A 82 3A 89 31 32 00 20 34 B0 01 99 |1000:.:.12. 4...|
00002C00: C7 28 31 34 37 29 3A 99 A3 31 30 29 22 12 2A 2A |.(147):..10)".**|
00002C10: 52 45 50 4F 52 54 20 57 52 49 54 45 52 2A 2A 22 |REPORT WRITER**"|
00002C20: 00 4C 34 B1 01 99 22 57 48 49 43 48 20 4F 46 20 |.L4..."WHICH OF |
00002C30: 54 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 46 49 |THE FOLLOWING FI|
00002C40: 45 4C 44 53 20 44 4F 20 59 4F 55 22 00 71 34 B2 |ELDS DO YOU".q4.|
00002C50: 01 99 22 57 49 53 48 20 54 4F 20 49 4E 43 4C 55 |.."WISH TO INCLU|
00002C60: 44 45 20 49 4E 20 54 48 45 20 52 45 50 4F 52 54 |DE IN THE REPORT|
00002C70: 22 00 7A 34 B3 01 99 4C 33 24 00 85 34 B4 01 81 |".z4...L3$..4...|
00002C80: 43 B2 31 A4 58 00 93 34 B5 01 99 41 24 28 30 2C |C.1.X..4...A$(0,|
00002C90: 43 29 3B 00 CB 34 B6 01 99 A3 32 35 29 22 4B 45 |C);..4....25)"KE|
00002CA0: 59 20 12 59 92 20 4F 52 20 12 4E 92 20 5B 20 5D |Y .Y. OR .N. [ ]|
00002CB0: 9D 9D 22 3B 3A 8D 32 35 33 3A 43 24 28 43 29 B2 |..";:.253:C$(C).|
00002CC0: C8 28 49 50 24 2C 31 29 3A 82 43 00 F9 34 B7 01 |.(IP$,1):.C..4..|
00002CD0: 99 4C 33 24 3A 99 3A 99 A3 36 29 22 3C 3C 20 41 |.L3$:.:..6)"<< A|
00002CE0: 43 43 45 50 54 20 46 49 45 4C 44 20 53 45 4C 45 |CCEPT FIELD SELE|
00002CF0: 43 54 49 4F 4E 20 3E 3E 22 00 2A 35 B8 01 99 3A |CTION >>".*5...:|
00002D00: 99 A3 34 29 22 4B 45 59 20 12 59 92 20 54 4F 20 |..4)"KEY .Y. TO |
00002D10: 43 4F 4E 54 49 4E 55 45 20 12 4E 92 20 54 4F 20 |CONTINUE .N. TO |
00002D20: 52 45 2D 53 45 4C 45 43 54 22 00 33 35 B9 01 8D |RE-SELECT".35...|
00002D30: 35 31 32 00 43 35 BA 01 8B 4B 24 B2 22 4E 22 A7 |512.C5...K$."N".|
00002D40: 34 33 32 00 71 35 BB 01 8B 4B 24 B2 22 59 22 A7 |432.q5...K$."Y".|
00002D50: 99 C7 28 31 34 37 29 3A 99 A3 31 30 29 22 12 2A |..(147):..10)".*|
00002D60: 2A 52 45 50 4F 52 54 20 57 52 49 54 45 52 2A 2A |*REPORT WRITER**|
00002D70: 22 00 96 35 BC 01 99 3A 99 A3 39 29 22 50 52 49 |"..5...:..9)"PRI|
00002D80: 4E 54 45 52 20 49 4E 46 4F 52 4D 41 54 49 4F 4E |NTER INFORMATION|
00002D90: 22 3A 99 4C 33 24 00 D1 35 BD 01 99 22 44 4F 20 |":.L3$..5..."DO |
00002DA0: 59 4F 55 20 52 45 51 55 49 52 45 20 4C 49 4E 45 |YOU REQUIRE LINE|
00002DB0: 20 46 45 45 44 22 A3 32 35 29 22 4B 45 59 20 12 | FEED".25)"KEY .|
00002DC0: 59 92 20 4F 52 20 12 4E 92 20 5B 20 5D 9D 9D 22 |Y. OR .N. [ ].."|
00002DD0: 3B 00 E9 35 BE 01 8D 32 35 33 3A 4C 46 24 B2 C8 |;..5...253:LF$..|
00002DE0: 28 49 50 24 2C 31 29 3A 99 00 36 36 BF 01 99 22 |(IP$,1):..66..."|
00002DF0: 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 20 53 |DO YOU WISH TO S|
00002E00: 45 4E 44 20 41 22 3A 99 22 43 48 52 24 20 54 4F |END A":."CHR$ TO|
00002E10: 20 54 48 45 20 50 52 49 4E 54 45 52 22 A3 32 35 | THE PRINTER".25|
00002E20: 29 22 4B 45 59 20 12 59 92 20 4F 52 20 12 4E 92 |)"KEY .Y. OR .N.|
00002E30: 20 5B 20 5D 22 3B 00 65 36 C0 01 99 22 9D 9D 22 | [ ]";.e6...".."|
00002E40: 3B 3A 8D 32 35 33 3A 43 53 24 B2 C8 28 49 50 24 |;:.253:CS$..(IP$|
00002E50: 2C 31 29 3A 47 B2 39 3A 8B 43 53 24 B2 22 59 22 |,1):G.9:.CS$."Y"|
00002E60: A7 47 B2 31 31 00 9F 36 C1 01 8B 43 53 24 B2 22 |.G.11..6...CS$."|
00002E70: 59 22 A7 99 3A 99 22 45 4E 54 45 52 20 43 48 52 |Y"..:."ENTER CHR|
00002E80: 24 22 A3 33 35 29 22 5B 20 20 5D 9D 9D 9D 22 3B |$".35)"[ ]...";|
00002E90: 3A 8D 32 35 33 3A 43 53 B2 C5 28 49 50 24 29 00 |:.253:CS..(IP$).|
00002EA0: AD 36 C2 01 99 4C 33 24 3A 89 34 35 36 00 E2 36 |.6...L3$:.456..6|
00002EB0: C3 01 99 22 13 22 3A 81 49 B2 31 A4 47 3A 99 3A |...".":.I.1.G:.:|
00002EC0: 82 3A 81 49 B2 31 A4 32 33 AB 47 3A 99 53 24 3A |.:.I.1.23.G:.S$:|
00002ED0: 82 49 3A 99 22 13 22 3A 81 49 B2 31 A4 47 3A 99 |.I:.".":.I.1.G:.|
00002EE0: 3A 82 00 2A 37 C4 01 99 A3 31 32 29 22 12 2A 2A |:..*7....12)".**|
00002EF0: 54 45 53 54 20 4F 56 45 52 2A 2A 22 3A 99 3A 99 |TEST OVER**":.:.|
00002F00: A3 35 29 3A 99 22 4B 45 59 20 12 59 92 20 54 4F |.5):."KEY .Y. TO|
00002F10: 20 43 4F 4E 54 49 4E 55 45 20 12 4E 92 20 54 4F | CONTINUE .N. TO|
00002F20: 20 52 45 2D 53 45 54 55 50 22 00 33 37 C5 01 8D | RE-SETUP".37...|
00002F30: 35 31 32 00 43 37 C6 01 8B 4B 24 B2 22 59 22 A7 |512.C7...K$."Y".|
00002F40: 34 36 31 00 59 37 C7 01 8B 4B 24 B2 22 4E 22 A7 |461.Y7...K$."N".|
00002F50: 8D 35 31 37 3A 89 34 33 32 00 8F 37 C8 01 99 22 |.517:.432..7..."|
00002F60: 44 4F 20 59 4F 55 20 52 45 51 55 49 52 45 20 54 |DO YOU REQUIRE T|
00002F70: 45 53 54 20 50 52 49 4E 54 3A 20 4B 45 59 20 12 |EST PRINT: KEY .|
00002F80: 59 92 20 4F 52 20 12 4E 92 22 3A 99 4C 33 24 00 |Y. OR .N.":.L3$.|
00002F90: 98 37 C9 01 8D 35 31 32 00 AE 37 CA 01 8B 4B 24 |.7...512..7...K$|
00002FA0: B2 22 4E 22 A7 8D 35 31 34 3A 89 34 36 31 00 C4 |."N"..514:.461..|
00002FB0: 37 CB 01 8B 4B 24 B2 22 59 22 A7 8D 35 31 34 3A |7...K$."Y"..514:|
00002FC0: 8D 35 31 38 00 CD 37 CC 01 89 34 35 31 00 D9 37 |.518..7...451..7|
00002FD0: CD 01 9F 34 2C 34 3A 9D 34 00 EE 37 CE 01 8B 43 |...4,4:.4..7...C|
00002FE0: 53 24 B2 22 59 22 A7 99 20 C7 28 43 53 29 00 10 |S$."Y".. .(CS)..|
00002FF0: 38 CF 01 99 4D 24 A6 31 30 29 22 46 49 4C 45 4E |8...M$.10)"FILEN|
00003000: 41 4D 45 20 3D 20 22 4E 24 3A 99 3A 8D 35 33 31 |AME = "N$:.:.531|
00003010: 00 1C 38 D0 01 52 B2 30 3A 50 B2 30 00 24 38 D1 |..8..R.0:P.0.$8.|
00003020: 01 43 B2 31 00 3D 38 D2 01 50 44 B2 41 28 43 29 |.C.1.=8..PD.A(C)|
00003030: AB C3 28 41 24 28 52 2C 43 29 29 AA 31 00 4C 38 |..(A$(R,C)).1.L8|
00003040: D3 01 8B 50 44 B3 31 A7 50 44 B2 31 00 8C 38 D4 |...PD.1.PD.1..8.|
00003050: 01 50 44 24 B2 C8 28 53 24 2C 50 44 29 3A 8B 43 |.PD$..(S$,PD):.C|
00003060: 24 28 43 29 B2 22 59 22 A7 99 C8 28 41 24 28 52 |$(C)."Y"...(A$(R|
00003070: 2C 43 29 2C 41 28 43 29 29 AA 50 44 24 3B 3A 8B |,C),A(C)).PD$;:.|
00003080: 52 B2 30 A7 50 B2 50 AA 41 28 43 29 00 A1 38 D5 |R.0.P.P.A(C)..8.|
00003090: 01 43 B2 43 AA 31 3A 8B 43 B3 58 AA 31 A7 34 36 |.C.C.1:.C.X.1.46|
000030A0: 36 00 AA 38 D6 01 8D 35 33 31 00 CC 38 D7 01 8B |6..8...531..8...|
000030B0: 52 B2 30 A7 99 3A 81 49 B2 31 A4 50 AA 32 3A 99 |R.0..:.I.1.P.2:.|
000030C0: 22 2D 22 3B 3A 82 49 3A 8D 35 33 31 00 E3 38 D8 |"-";:.I:.531..8.|
000030D0: 01 52 B2 52 AA 31 3A 99 3A 8B 52 B3 59 AA 31 A7 |.R.R.1:.:.R.Y.1.|
000030E0: 34 36 35 00 ED 38 D9 01 99 3A 99 3A 99 00 05 39 |465..8...:.:...9|
000030F0: DA 01 99 22 20 20 20 2A 54 4F 54 41 4C 53 2A 22 |..." *TOTALS*"|
00003100: 3A 8D 35 33 31 00 1F 39 DB 01 99 22 20 20 20 2D |:.531..9..." -|
00003110: 2D 2D 2D 2D 2D 2D 2D 22 3A 99 3A 8D 35 33 31 00 |-------":.:.531.|
00003120: 2E 39 DC 01 81 43 B2 31 A4 58 3A 54 B2 30 00 4A |.9...C.1.X:T.0.J|
00003130: 39 DD 01 81 52 B2 31 A4 59 3A 54 B2 54 AA C5 28 |9...R.1.Y:T.T..(|
00003140: 41 24 28 52 2C 43 29 29 3A 82 00 6E 39 DE 01 8B |A$(R,C)):..n9...|
00003150: 41 41 24 28 43 29 B2 22 4E 22 A7 99 41 24 28 30 |AA$(C)."N"..A$(0|
00003160: 2C 43 29 A3 32 30 29 3B 54 3A 8D 35 33 31 00 75 |,C).20);T:.531.u|
00003170: 39 DF 01 82 43 00 7F 39 E0 01 98 34 3A A0 34 00 |9...C..9...4:.4.|
00003180: 88 39 E1 01 8D 35 31 37 00 90 39 E2 01 89 31 32 |.9...517..9...12|
00003190: 00 C7 39 E3 01 8D 34 39 34 3A 43 4F B2 31 3A 4C |..9...494:CO.1:L|
000031A0: 4E B2 32 31 3A 8D 34 39 36 3A 99 22 12 44 45 4C |N.21:.496:.".DEL|
000031B0: 45 54 45 92 20 41 52 45 20 59 4F 55 20 53 55 52 |ETE. ARE YOU SUR|
000031C0: 45 3F 20 59 2F 4E 22 00 D0 39 E4 01 8D 35 31 32 |E? Y/N"..9...512|
000031D0: 00 E0 39 E5 01 8B 4B 24 B2 22 59 22 A7 34 38 38 |..9...K$."Y".488|
000031E0: 00 F0 39 E6 01 8B 4B 24 B2 22 4E 22 A7 31 31 34 |..9...K$."N".114|
000031F0: 00 F9 39 E7 01 89 34 38 34 00 0A 3A E8 01 54 B2 |..9...484..:..T.|
00003200: 52 3A 81 52 B2 54 A4 59 AA 31 00 15 3A E9 01 81 |R:.R.T.Y.1..:...|
00003210: 43 B2 31 A4 58 00 2B 3A EA 01 41 24 28 52 2C 43 |C.1.X.+:..A$(R,C|
00003220: 29 B2 41 24 28 52 AA 31 2C 43 29 00 32 3A EB 01 |).A$(R.1,C).2:..|
00003230: 82 43 00 39 3A EC 01 82 52 00 48 3A ED 01 59 B2 |.C.9:...R.H:..Y.|
00003240: 59 AB 31 3A 89 31 30 30 00 63 3A EE 01 43 4F B2 |Y.1:.100.c:..CO.|
00003250: 31 3A 4C 4E B2 32 31 3A 8D 34 39 36 3A 81 49 B2 |1:LN.21:.496:.I.|
00003260: 31 A4 33 00 97 3A EF 01 99 22 20 20 20 20 20 20 |1.3..:..." |
00003270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003290: 20 22 3A 82 49 3A 8E 00 CA 3A F0 01 41 43 43 24 | ":.I:...:..ACC$|
000032A0: B2 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
000032B0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000032C0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 00 F0 3A F1 01 44 |........."..:..D|
000032D0: 4F 57 24 B2 22 11 11 11 11 11 11 11 11 11 11 11 |OW$."...........|
000032E0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 |..............."|
000032F0: 00 FB 3A F2 01 81 5A B2 31 A4 32 00 05 3B F3 01 |..:...Z.1.2..;..|
00003300: 99 22 13 22 3B 00 1E 3B F4 01 8B 43 4F B1 31 A7 |.".";..;...CO.1.|
00003310: 99 C8 28 41 43 43 24 2C 43 4F AB 31 29 3B 00 37 |..(ACC$,CO.1);.7|
00003320: 3B F5 01 8B 4C 4E B1 31 A7 99 C8 28 44 4F 57 24 |;...LN.1...(DOW$|
00003330: 2C 4C 4E AB 31 29 3B 00 6C 3B F6 01 8B 5A B2 31 |,LN.1);.l;...Z.1|
00003340: A7 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |.." |
00003350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003360: 20 20 20 20 20 20 20 20 20 20 22 3B 00 73 3B F7 | ";.s;.|
00003370: 01 82 5A 00 79 3B F8 01 8E 00 A9 3B F9 01 82 3A |..Z.y;.....;...:|
00003380: 99 3A 8D 32 36 33 3A 99 A3 36 29 22 50 52 45 53 |.:.263:..6)"PRES|
00003390: 53 20 12 20 53 50 41 43 45 20 42 41 52 20 92 20 |S . SPACE BAR . |
000033A0: 46 4F 52 20 4D 45 4E 55 22 00 C4 3B FA 01 4B 24 |FOR MENU"..;..K$|
000033B0: B2 22 22 3A A1 4B 24 3A 8B 4B 24 B3 B1 22 20 22 |."":.K$:.K$.." "|
000033C0: A7 35 30 36 00 CC 3B FB 01 89 31 32 00 E5 3B FC |.506..;...12..;.|
000033D0: 01 8B 50 52 B2 35 AF C3 28 C4 28 52 29 29 B2 32 |..PR.5..(.(R)).2|
000033E0: A7 54 54 B2 35 00 FE 3B FD 01 8B 50 52 B2 35 AF |.TT.5..;...PR.5.|
000033F0: C3 28 C4 28 52 29 29 B2 33 A7 54 54 B2 34 00 17 |.(.(R)).3.TT.4..|
00003400: 3C FE 01 8B 50 52 B2 35 AF C3 28 C4 28 52 29 29 |<...PR.5..(.(R))|
00003410: B2 34 A7 54 54 B2 33 00 1D 3C FF 01 8E 00 3A 3C |.4.TT.3..<....:<|
00003420: 00 02 A1 4B 24 3A 8B 4B 24 B3 B1 22 59 22 AF 4B |...K$:.K$.."Y".K|
00003430: 24 B3 B1 22 4E 22 A7 35 31 32 00 40 3C 01 02 8E |$.."N".512.@<...|
00003440: 00 7F 3C 02 02 43 4F B2 31 3A 4C 4E B2 32 31 3A |..<..CO.1:LN.21:|
00003450: 8D 34 39 36 3A 99 22 20 3C 3C 20 45 4E 53 55 52 |.496:." << ENSUR|
00003460: 45 20 54 48 41 54 20 50 52 49 4E 54 45 52 20 49 |E THAT PRINTER I|
00003470: 53 20 41 4C 49 47 4E 45 44 20 3E 3E 22 3A 99 00 |S ALIGNED >>":..|
00003480: B9 3C 03 02 99 22 20 20 20 20 50 52 45 53 53 20 |.<..." PRESS |
00003490: 12 53 50 41 43 45 20 42 41 52 92 20 54 4F 20 43 |.SPACE BAR. TO C|
000034A0: 4F 4E 54 49 4E 55 45 22 3A A1 4B 24 3A 8B 4B 24 |ONTINUE":.K$:.K$|
000034B0: B3 B1 22 20 22 A7 35 31 34 00 BF 3C 04 02 8E 00 |.." ".514..<....|
000034C0: E3 3C 05 02 81 43 B2 31 A4 58 3A 41 24 28 30 2C |.<...C.1.X:A$(0,|
000034D0: 43 29 B2 C8 28 41 24 28 30 2C 43 29 2C 39 29 3A |C)..(A$(0,C),9):|
000034E0: 82 3A 8E 00 0C 3D 06 02 52 50 24 B2 22 22 3A 81 |.:...=..RP$."":.|
000034F0: 43 B2 31 A4 58 3A 54 50 24 B2 22 22 3A 8B 43 24 |C.1.X:TP$."":.C$|
00003500: 28 43 29 B2 22 59 22 A7 8D 35 32 38 00 13 3D 07 |(C)."Y"..528..=.|
00003510: 02 82 43 00 44 3D 08 02 52 B2 30 3A 52 24 B2 22 |..C.D=..R.0:R$."|
00003520: 22 3A 50 44 24 B2 22 22 3A 81 43 B2 31 A4 58 3A |":PD$."":.C.1.X:|
00003530: 50 44 B2 41 28 43 29 AB C3 28 41 24 28 52 2C 43 |PD.A(C)..(A$(R,C|
00003540: 29 29 AA 31 00 53 3D 09 02 8B 50 44 B3 31 A7 50 |)).1.S=...PD.1.P|
00003550: 44 B2 31 00 89 3D 0A 02 50 44 24 B2 C8 28 53 24 |D.1..=..PD$..(S$|
00003560: 2C 50 44 29 3A 8B 43 24 28 43 29 B2 22 59 22 A7 |,PD):.C$(C)."Y".|
00003570: 52 24 B2 52 24 AA C8 28 41 24 28 52 2C 43 29 2C |R$.R$..(A$(R,C),|
00003580: 41 28 43 29 29 AA 50 44 24 00 90 3D 0B 02 82 43 |A(C)).PD$..=...C|
00003590: 00 AC 3D 0C 02 9F 34 2C 34 3A 9D 34 3A 8B 43 53 |..=...4,4:.4:.CS|
000035A0: 24 B2 22 59 22 A7 99 C7 28 43 53 29 00 CE 3D 0D |$."Y"...(CS)..=.|
000035B0: 02 99 4D 24 A6 31 30 29 22 46 49 4C 45 4E 41 4D |..M$.10)"FILENAM|
000035C0: 45 20 3D 20 22 4E 24 3A 99 3A 8D 35 33 31 00 F1 |E = "N$:.:.531..|
000035D0: 3D 0E 02 99 52 24 3A 81 49 B2 31 A4 C3 28 52 24 |=...R$:.I.1..(R$|
000035E0: 29 3A 99 22 2D 22 3B 3A 82 49 3A 99 3A 8D 35 33 |):."-";:.I:.:.53|
000035F0: 31 00 02 3E 0F 02 99 52 50 24 3A 98 34 3A A0 34 |1..>...RP$:.4:.4|
00003600: 3A 8E 00 22 3E 10 02 81 49 B2 31 A4 41 28 43 29 |:..">...I.1.A(C)|
00003610: 3A 54 50 24 B2 54 50 24 AA 41 41 24 28 43 29 3A |:TP$.TP$.AA$(C):|
00003620: 82 49 00 4D 3E 11 02 8B C3 28 54 50 24 29 B3 C3 |.I.M>....(TP$)..|
00003630: 28 41 24 28 31 2C 43 29 29 A7 54 50 24 B2 54 50 |(A$(1,C)).TP$.TP|
00003640: 24 AA 41 41 24 28 43 29 3A 89 35 32 39 00 6B 3E |$.AA$(C):.529.k>|
00003650: 12 02 54 50 24 B2 54 50 24 AA 22 20 22 3A 52 50 |..TP$.TP$." ":RP|
00003660: 24 B2 52 50 24 AA 54 50 24 3A 8E 00 7F 3E 13 02 |$.RP$.TP$:...>..|
00003670: 8B 4C 46 24 B2 22 59 22 A7 99 C7 28 31 30 29 00 |.LF$."Y"...(10).|
00003680: 85 3E 14 02 8E 00 AE 3E 15 02 99 22 93 4D 41 58 |.>.....>...".MAX|
00003690: 20 4E 4F 20 4F 46 20 52 45 43 4F 52 44 53 20 4E | NO OF RECORDS N|
000036A0: 4F 57 20 52 45 41 43 48 45 44 2E 22 3A 99 00 F7 |OW REACHED.":...|
000036B0: 3E 16 02 99 22 54 4F 20 49 4E 43 52 45 41 53 45 |>..."TO INCREASE|
000036C0: 20 4D 41 58 49 4D 55 4D 20 52 45 2D 44 49 4D 45 | MAXIMUM RE-DIME|
000036D0: 4E 53 49 4F 4E 22 3A 99 3A 99 22 50 52 4F 47 52 |NSION":.:."PROGR|
000036E0: 41 4D 20 41 54 20 4C 49 4E 45 20 34 31 35 20 41 |AM AT LINE 415 A|
000036F0: 4E 44 20 31 37 34 22 00 42 3F 17 02 99 3A 99 22 |ND 174".B?...:."|
00003700: 4F 52 20 43 41 4C 4C 20 44 49 41 4C 4F 47 20 4F |OR CALL DIALOG O|
00003710: 4E 20 30 31 20 32 38 39 20 36 39 30 34 22 3A 99 |N 01 289 6904":.|
00003720: 3A 99 3A 99 3A 99 22 50 52 45 53 53 20 12 53 50 |:.:.:."PRESS .SP|
00003730: 41 43 45 20 42 41 52 92 20 46 4F 52 20 4D 45 4E |ACE BAR. FOR MEN|
00003740: 55 22 00 57 3F 18 02 A1 4B 24 3A 8B 4B 24 B3 B1 |U".W?...K$:.K$..|
00003750: 22 20 22 A7 35 33 36 00 65 3F 19 02 59 B2 32 30 |" ".536.e?..Y.20|
00003760: 30 3A 89 31 32 00 86 3F 1A 02 99 22 93 22 3A 20 |0:.12..?...".": |
00003770: 99 22 12 20 44 49 53 4B 20 44 49 52 45 43 54 4F |.". DISK DIRECTO|
00003780: 52 59 20 92 11 22 00 BC 3F 1B 02 9F 31 2C 38 2C |RY .."..?...1,8,|
00003790: 31 35 2C 22 49 30 22 3A A0 31 3A 9F 31 2C 38 2C |15,"I0":.1:.1,8,|
000037A0: 30 2C 22 24 30 22 3A 81 4B B2 31 A4 32 35 3A A1 |0,"$0":.K.1.25:.|
000037B0: 23 31 2C 58 24 3A 82 4B 3A 44 B2 31 00 CB 3F 1C |#1,X$:.K:D.1..?.|
000037C0: 02 8B 44 B2 32 A7 44 B2 30 3A 99 00 E9 3F 1D 02 |..D.2.D.0:...?..|
000037D0: 99 A3 32 30 AC 44 29 3B 3A 81 4B B2 31 A4 34 3A |..20.D);:.K.1.4:|
000037E0: A1 23 31 2C 58 24 3A 82 4B 00 02 40 1E 02 8B 20 |.#1,X$:.K..@... |
000037F0: 53 54 20 B0 20 44 53 20 A7 A0 31 3A 99 3A 89 33 |ST . DS ..1:.:.3|
00003800: 35 38 00 1F 40 1F 02 A1 23 31 2C 58 24 3A 8B 58 |58..@...#1,X$:.X|
00003810: 24 B2 22 22 A7 44 B2 44 AA 31 3A 89 35 34 30 00 |$."".D.D.1:.540.|
00003820: 37 40 20 02 8B 58 24 B2 C7 28 33 34 29 A7 4F B2 |7@ ..X$..(34).O.|
00003830: A8 4F 3A 89 35 34 33 00 43 40 21 02 8B 4F A7 99 |.O:.543.C@!..O..|
00003840: 58 24 3B 00 4C 40 22 02 89 35 34 33 00 60 40 23 |X$;.L@"..543.`@#|
00003850: 02 8B 49 50 24 B2 22 22 A7 49 50 24 B2 22 2D 22 |..IP$."".IP$."-"|
00003860: 00 9B 40 24 02 8B C6 28 49 50 24 29 B3 34 36 B0 |..@$...(IP$).46.|
00003870: C6 28 49 50 24 29 B1 35 37 A7 41 43 B2 31 3A 99 |.(IP$).57.AC.1:.|
00003880: 3A 99 22 12 4E 55 4D 45 52 49 43 20 49 4E 50 55 |:.".NUMERIC INPU|
00003890: 54 20 52 45 51 55 49 52 45 44 22 00 CB 40 25 02 |T REQUIRED"..@%.|
000038A0: 8B 52 B3 30 B0 52 B1 59 A7 99 3A 99 22 12 45 4E |.R.0.R.Y..:.".EN|
000038B0: 54 45 52 20 41 20 56 41 4C 55 45 20 42 45 54 57 |TER A VALUE BETW|
000038C0: 45 45 4E 20 31 20 41 4E 44 22 59 00 DD 40 26 02 |EEN 1 AND"Y..@&.|
000038D0: 81 49 B2 31 A4 31 30 30 30 3A 82 3A 8E 00 00 00 |.I.1.1000:.:....|
.......53280,2:.53281,2:. ".".Q....**DFM
BY CHRIS ELY*DIALOG SOFTWARE(C) 15.01.8
3.....X.0:Y.0:R.0:C.0:IP$."":K$."":EM$."
":N$."":.412.....A$(R,C)."":F.0:S.0.....
.G(147)......343......"... DO YOU WANT
.U.PPER OR .L.OWER CASE"......K$:.K$.""
.8......K$."U"..G(142):.12.!....K$."L"..
G(14):.12.(....8.9....G(147):.343.I....:
.N$."".17.T...NL$.N$.R....C(NL$).9.NL$.N
L$." ":.15......:.:..8)".FILE IN USE: ";
NL$;".":.:.:........14)"KEY OPTION":.263
......"1 CREATE NEW FILE".20)"2 RENAME F
ILE"......"3 ACCESS RECORD".20)"4 SELECT
".5...."5 LOAD/SAVE FILE".20)"6 REPORT W
RITER.[...."7 SORT FILE".20)"8 UTILITIES
":..Z.....11)"9 EXIT PROGRAM":.263......
K$:.K$."".23.....KK$."123456789":.K.1.9:
.K$.J(KK$,K,1).26.D....K:.23......Y.0.K.
.1.K..5.K..8.K..9..".NO FILE EXISTS":.26
0:.12.'....K.128,78,100,191,264,432,416,
350,337.1.... 410.Y...."DO YOU WISH TO .
C.ONTINUE SEARCH".T...."OR RETURN TO .M.
ENU"......K$:.K$."".31... ..K$."C"..410:
.35...!..K$."M".12..."..31.K.#..494:CO.1
:LN.21:.496...$.."SEARCH FOR RECORD BY K
EY FIELD"...%.."------------------------
------".6.&.."ENTER ""."A$(0,1)"."":";.C
.'..253:.46.L.(..494.`.).CO.1:LN.21:.496
...*.."THERE ARE "Y" RECORDS IN THIS FIL
E"...+.."ENTER RECORD NUMBER :";:. 253..
.,.R.E(IP$):.R.0.R.Y.."..":.547:."."S$:.
"..":.410: .42...-..101.....L$.IP$.../.F
.C(L$)...0..R.1.Y.*.1..L$.H(A$(R,1),F).1
01.0.2...9.3..410.Y.4..".NO SUCH RECORD
EXISTS!.".I.5..Z.1.1000:..Q.6..28...7.AC
.0: ."WHICH LINE DO YOU WISH TO AMEND"..
.8.."PRESS 1 TO "X" :";:.253.W.9.C.E(IP$
):.C.X..410:.55...:..410...;.."EXISTING
DATA FOR ""."A$(0,C)"."" = ":. "."A$(R,C
).>.<.."NEW DATA ";:."[";:.H(S$,A(C));.[
.=.."]";:.H(T$,A(C));:.".";...>..253:.AA
$(C)."N".."..":.547:.AC.1.AC.0:."."L3$:.
".....":.59.E.?.A$(R,C).IP$:.:.A$(R,C)."
".A$(R,C)."-"...@..C(A$(R,C)).A(C).A$(R,
C).H(A$(R,C),A(C))...A.C.2...B..101...C.
.263.3.D.."WHICH LINE DO YOU WISH TO AME
ND".R.E.."PRESS 1 TO "X" :";:.253;.M.F.C
.E(IP$):.C.X..410:.68.V.G..410...H.."."A
$(0,C).F.I.."ENTER CORRECT FIELD HEADING
[ ]..........";:. 253.X.J.A$(0,
C).IP$:....K..C(A$(0,C)).9.A$(0,C).A$(0,
C)." ":.75.).L..C(A$(0,C)).9.A$(0,C).H(A
$(0,C),9).2.M..101.D.N.."ENTER NEW FILE
NAME [ ]..........";.X.O..253:N$
.IP$:.12...P..494:CO.1:LN.21:.496:."DO Y
OU WISH TO AMEND:-".L.Q.."FIELD .H.EADIN
G OR .D.ATA"...R..K$:.K$."".82...S..K$."
H"..410:.68...T..K$."D"..410:.55...U..82
.2.V..G(147);:RS.R:.R.RS.Y:.G(19);.E.W..
". RECORDS WILL DISPLAY IN LOGICAL ORDER
.":....X.CO.1:LN.24:.496:.".C.ONTINUE S
CROLL: .S.TOP SCROLL: .E.XIT:.T.Y.CO.1
:LN.3:.496:."RECORD NO: ";R:.:.C.1.X...Z
.."."A$(0,C)".";:Q.C(A$(R,C)):.Q.26.Q.26
.".[...12)H(A$(R,C),26).H(S$,26.Q).-.\..
C.1...<.]..RN..0.505.C.^..C.\._.K$."":.K
$:.K$."S".98.X.`..K$.."E"..I.1.500:.I:.R
...A..101...B.K$."":.K$:.K$.."C".K$.."E"
.98...C..96...D.R.1...E.A.1.H.F..R.0.R.1
...G..R.Y.R.R.1:R.Y...H..A.0.A.1...I..A.
25.A.A.1.#.J..G(147):.".";N$.19)"RECORD
NO";R:. 263...K..C.1.X.:.L.GG.A(C).K.M..
GG.24.GG.24.\.N.."."D(C)".";...O...4)"."
H(A$(0,C),9)".".15)J(A$(R,C),A,GG)...P..
C.1..263...Q.....R.CO.1:LN.20:.496:.L3$.
..S.." .**OPTIONS**.
"...T.."PRESS : .N.EXT .L.AST .F.IND .
G.OTO .A.MEND .M.ENU".U.U..".C.ALCS .I.N
PUT .D.ELETE .P.RINT .S.CROLL .<. .>".^.
V..L3$.Q.W..K$:.K$."".119...X.KK$."NLMIG
FS><APCD":.K.1.13:.K$.J(KK$,K,1).122...Y
..K:.119...Z..K.123,124,12,125,40,35,86,
126,127,80,363,372,483...{.R.R.1:. 101..
.|.R.R.1:. 101...}.F.1:TV.R:.172.'.~.A.A
.1:.102.6..A.A.1:.102.M....G(147):.:.".
**WARNING** THIS WILL ERASE ANY FILE"...
...".CURRENTLY IN MEMORY.":.:.:.:.......
.8) "........................".X.....8)"
PRESS .Y.ES TO CONTINUE".......8)"
.N.O FOR MENU".......8) "...............
.........".#....512.2....K$."N".12.C....
K$."Y". 137.V....G(147):.:.412......"KEY
DATE EG.(28.12.82)[ ].........";
:.253......IP$."".141.H....547:.AC.1.AC.
0:."."S$".":."....":.138.....M$.H(IP$,8)
:.G(147).......12)".CREATE RECORD.":....
...263.9...."WHAT IS THE FILE NAME ?[
].........";.B....253.T...N$.H(IP$,
8):..^.... 263......"HOW MANY FIELDS IN
EACH RECORD ? [ ]...";:. 253.....X.E(H(
IP$,2)):..O....X.1.X.15..".MAXIMUM IS 15
.":.148......415:.G(147):C.1......".THIS
FILE IS NAMED ";N$:.263.9...."NOTE THAT
FIELD 1 IS THE . KEY FIELD . ":..B....2
63.}...."STATE . TITLE . OF FIELD"C" [
]..........";......253:......A$(
0,C).H(IP$,9).H....C(A$(0,C)).9.A$(0,C).
A$(0,C)." ":.158......"ENTER .C.HARACTER
OR .N.UMERIC FIELD [ ]..";:.253... .AA$
(C).H(IP$,1):..*....AA$(C)."N".164.>....
AA$(C)."C".166.L....410:.159.Y...A(C).9:
..B....170......"ENTER NUMBER OF CHARACT
ERS FOR RECORD"......"MAX.36 CHARACTERS
[ ]...";:.253.H...A(C).E(IP$):.......A(
C).36.."..":.410:.166......C.X.172.....C
.C.1:.".":.152. ....F.1.R.Y.1:Y.Y.1:.174
.,...R.1:Y.1.;....R.200.533.M....G(147):
AC.0: ..12)".RECORD NUMBER";R".":.263...
....3)"TO TERMINATE DATA ENTRY TYPE 'END
'":.......263:.......C.1.X.X...."KEY "A$
(0,C):."[";:.H(S$,A(C));......"]";:.H(T$
,A(C));:.".";:.253......IP$."END". F.0 .
R.1:Y.Y.1:. 12.B....IP$."=".A$(R,C).A$(
TV,C):.187.J....IP$."END".F.1.F.0:R.R.1:
Y.Y.1:.101......AA$(C)."N"..547:.AC.1.AC
.0:."."S$:.".":.".....":.179.....A$(R,C)
.H(IP$,A(C)):..Z....A$(R,C)."".A$(R,C)."
-"......263............F.1.F.0:.101.....
R.R.1:Y.Y.1:. 174.>....G(147):..15)".**S
ELECT**":.263:E.0:RC.0......"DO YOU WANT
TO OUTPUT RESULTS TO":."PRINTER: KEY .Y
.ES OR .N.O"...A..263...B..512...C..K$."
Y".PR.5:.197.B.D..K$."N".PR.0:.197.R.E..
PR.0.TT.15...F..R.1.Y...G..410:.".ENTER
SELECTED .FIELD. [ ]..........";
:.253;.,.H.DP$.IP$:..K.I..C(DP$).9.DP$.D
P$." ":.201.Z.J..:.263:C.1.O.K..A$(0,C).
DP$.206...L.C.C.1:.C.X.1.203...M.EM$.".N
O SUCH FIELD":.260:.12...N.."ENTER ."DP$
".".R.O.."[";:.H(S$,A(C));...P.."]";:.H(
T$,A(C));:.".";...Q..253:CP$.IP$:.:. 263
...R.F.C(CP$).:.S..G(147):.:. 263:.AA$(C
).."C".214.C.T.."DO YOU WANT A STANDARD
OR SLIDING"...U.."STRING SEARCH: ENTER .
ST. OR .SS. [ ]...";:.253:ST$.IP$.K.V..
G(147):.:. 263:.AA$(C)."N".J.1:.217...W.
.ST$."SS".SS.1:I.1:.225...X..ST$."ST".SS
.0:I.1:J.1:.225.%.Y.."SHOULD . "DP$" . B
E:":..C.Z...2)".E.QUAL TO".15)CP$:..B...
..2)".L.ESS THAN".15)CP$:........2)".G.R
EATER THAN".15)CP$:.......K$:.K$."".221.
....KK$."ELG":.I.1.3:.K$.J(KK$,I,1).224.
K....I:.221......G(147):. 263.. ..AR.24:
.PR.5..514:.".".14)".**PRINTING**.":AR.A
(1):.4,4:.4.H ..."FILE NAME : "N$:.:."SE
LECTION : "DP$:..[ ...I.240,228,234.. ..
."CRITERIA < "CP$" ":.263:.R.1.Y.. ...5
08.J ...E(A$(R,C)).E(CP$).."RECORD NO ";
R.TT)H(A$(R,1),AR):RC.RC.1.P ..... ...PR
.5..4: 4.. ...249..!..."CRITERIA > "CP$
" ":.263:.R.1.Y..!...508.X!...E(A$(R,C))
.E(CP$).."RECORD NO ";R.TT)H(A$(R,1),AR)
:RC.RC.1.^!....N!...PR.5..4: 4.W!...249.
.!..."CRITERIA = "CP$" ":.263:.R.1.Y..!
...R.1.Y..!...508.G!...SS.1..J.1.A(C).F.
."...J(A$(R,C),J,F).CP$.."RECORD NO ";R.
TT)H(A$(R,1),AR):RC.RC.1.."...SS.0.247..
"...J.#"....3"...PR.5..4: 4.O"...:.".REC
ORDS COUNTED =. ";RC:.:..13)".PRESS SPAC
E BAR.".."...K$:.K$."".250.."...K$." ".R
.R.1:.12.."...250.."..B$." ":."";.G"...I
P$:.IP$.""..254.."...B$." ".F(IP$).20..2
54..#...F(IP$).20.B$.H(B$,C(B$).1):.". .
";:.254..#...IP$.G(13).IP$.J(B$,2):.:..F
#..A.F(IP$):.A.31..254.G#..B$.B$.IP$:.".
";IP$;".";:.254.Q#... EM$..#... T8.1 .10
00:...#.....#...".......................
................":...#... "DO YOU WISH T
O .L.OAD OR .S.AVE":...#...K$:.K$."".265
..$...K$."L".283..$...K$."S".269.!$...26
5.*$...410.W$..."ARE YOU SAVING ON .D.IS
C OR .T.APE?":..J$...K$:.K$."".271.Z$...
K$."T".275..$...K$."D".297..$...271..$..
.410..$...".INSERT CASSETTE".Q$..."PRESS
.C. TO CONTINUE"..$...K$:.K$.."C". 278.
.$...410:."SAVING ."N$..%...".."..%... 1
,1,1,N$. %...305.&%....N%...412:.410:."A
RE YOU LOADING FROM:-".F%...".D.ISK OR .
T.APE".Y%...K$:.K$."".286..%...K$."T".29
0..% ..K$."D".295..%!..286..%".T.1:U.0:N
N$.N$.V%#..410:."IS CASSETTE IN PLACE"..
%$.."PRESS .Y.ES TO CONTINUE"..&%..K$:.K
$.."Y".293..&&..315.H&'.T.8:U.4:N1$."0:"
:N2$.",SEQ,READ":NN$.N1$.NN$.N2$.Q&(..31
5.Z&)..410..&*.."DO YOU WANT TO SAVE ON
DRIVE .0. OR .1."..&+..K$:.K$."".299..&,
..K$."0".DR$."0:":.303.P&-..K$."1".DR$."
1:":.303.Y&...299..'/.N1$.DR$:N2$.",SEQ,
WRITE":NN$.N1$.N$.N2$..'0..1,8,4,"@".NN$
.)'1..1,Y:.G(13);.:'2..1,X:.G(13);.W'3..
C.1.X:.1,A(C):.G(13);:..V'4..C.1.X:.1,AA
$(C):.G(13);:...'5..R.1.Y..'6..C.1.X:.1,
A$(R,C):.G(13);:...'7...G'8..C.1.X:.1,A$
(0,C):.G(13);:..N'9. 1.V':..12..(;..410:
."ENTER FILE NAME [ ].........."
;:. 253.((<.N$.H(IP$,9):NN$.N$:..8(=..T.
1.."...".G(>..1,T,U,NN$.Z(?..1,Y:.1,X:.4
15.O(@..C.1.X:.1,A(C):...(A..C.1.X:.1,AA
$(C):...(B..R.1.Y..(C..C.1.X..(D..1,A$(R
,C)..(E..:...(F..C.1.X.M(G..1,A$(0,C).S(
H...Z(I. 1..(J..410..)K..Y.0.N$."":.".FI
LE NOT FOUND ON DISK":.I.1.1000:.:.12.T)
L.."KEY DATE EG.(28.12.83)[ ]....
.....";:.253.D)M..IP$."".335..)N.R.1:.:.
547:.AC.1.AC.0:."."S$".":."....":.332..)
O.M$.H(IP$,8):...)P..12.S)Q.."EXIT 'DFM'
ARE YOU SURE (Y/N)..)R..K$:.K$."".338..
)S..K$."Y".N$."":.343..*T..K$."N".12..*U
.. ./*V..339 .\*W..:
.". *************************"..*X
.." *** .DATA. .FILE. .MANAGER. **
*"..*Y.." ************************
*":..C*Z..N$.."". ...*[.."
BY ":.."+\.." . D .
. I . . A . . L . . O . . G . ":..I+]..
" S O F T W A R E":.:..U+^..G
(147).W+_...14)".**UTILITIES**.":.263:..
.+`.." .M.EMORY AVAILABILITY":.:." .D.
ISK DIRECTORY":..J+A.." MENU .SPACE BAR
."..+B..V$:.V$."".354..+C..V$."M".361..+
D..V$."D".538..,E..V$." ".12./,F..:.".PR
ESS SPACE BAR FOR MENU".D,G..K$:.K$.." "
.354.L,H..12.M,I..".....".24)"= ".(0)"BY
TES ".},J..G(19):.351..,K..494..,L..514.
.,M..4,4:.4.F,N..G(147):.".";N$ .19)"REC
ORD NO";R:.L3$..,O.C.1:."."D(C)".";:..2)
"." A$(0,C)".".3);H(A$(R,C),24)..-P..L3$
..-Q.. C.2 . X.=-R..D(C);:..2)A$(0,C).3)
H(A$(R,C),24).X-S..:.:.263:.: .4: 4:.101
..-T..494:CO.1:LN.21:.496:."DO YOU WISH
TO PERFORM INDIVIDUAL"..-U..".C.ALCS OR
.T.OTALISE FIELD".L-V..K$:.K$."".374..-W
..K$."T"..410:.396..-X..K$."C"..410:.378
...Y..374. .Z.."WHICH FIELD DO YOU WISH"
.J.{.."TO CALCULATE, KEY 1 TO "X" :";:.2
53.F.|.C.E(IP$):.C.X..410:.378.O.}..410.
..~..AA$(C)."C"..".CHARACTER. FIELD"...
..AA$(C)."N".385......I.1.1000:.:.114...
..."KEY LETTER FOLLOWED BY AMOUNT EG.(A2
5)".!/...".A.DD .S.UBTRACT .M.ULTIPLY .D
.IVIDE .Z.EROISE".A/...".R.EPLACE :";:.2
53:L$.IP$.J/...H(L$,1)."S".P.E(A$(R,C)).
E(J(L$,2))../...H(L$,1)."A".P.E(A$(R,C))
.E(J(L$,2))../...H(L$,1)."M".P.E(A$(R,C)
).E(J(L$,2))../...H(L$,1)."D".P.E(A$(R,C
)).E(J(L$,2))../...H(L$,1)."Z".P.0..0...
H(L$,1)."R".P.E(J(L$,2))..0..A$(R,C).J(D
(P),2).70...101.V0..."WHICH FIELD DO YOU
WISH".~0..."TO TOTALISE KEY 1 TO "X" :"
;:.253..0..C.E(IP$):.C.X..410:.396..0...
410.H0...AA$(C)."C"..".CHARACTER. FIELD"
..0...AA$(C)."N".403..0...I.1.1000:.:.11
4..0..T.0..1... R.1.Y:T.T.E(A$(R,C)):..\
1..."TOTAL FILE VALUE OF FIELD :":."."A$
(0,C)"."" = ";T.1..."PRESS
.SPACE BAR. TO RETURN"..1...K$:.K$."".4
07..1...K$." ".101..1...407..1..:.M1..."
..";:.S$:.S$:."...":...1..S$."
".02..L3$."
---------------------------------------"
.D2..T$."...............................
.........":...2... A$(200,X),AA$(X),A(X)
,C$(X),B$(X):A$(R,C)."":...2 .."WHICH FI
ELD DO YOU WISH TO"..2..."SORT BY.. KEY
1 TO "X" :";:.253..2..M.E(IP$)..2...410.
.3...".SORTING. PLEASE WAIT".!3...R.1.Y.
1.03...I.(R.1).Y.U3...AA$(M)."C".A$(I,M)
..A$(R,M).430..3...AA$(M)."N".E(A$(I,M))
..E(A$(R,M)).430..3...C.1.X..3..B$(C).A$
(R,C)..3..A$(R,C).A$(I,C).C3..A$(I,C).B$
(C).J3...C.R3...:...3...".SORT. COMPLETE
D":.J.1.1000:.:.12. 4...G(147):..10)".**
REPORT WRITER**".L4..."WHICH OF THE FOLL
OWING FIELDS DO YOU".Q4..."WISH TO INCLU
DE IN THE REPORT".Z4...L3$..4...C.1.X..4
...A$(0,C);.K4....25)"KEY .Y. OR .N. [ ]
..";:.253:C$(C).H(IP$,1):.C..4...L3$:.:.
.6)"<< ACCEPT FIELD SELECTION >>".*5...:
..4)"KEY .Y. TO CONTINUE .N. TO RE-SELEC
T".35...512.C5...K$."N".432.Q5...K$."Y".
.G(147):..10)".**REPORT WRITER**"..5...:
..9)"PRINTER INFORMATION":.L3$.Q5..."DO
YOU REQUIRE LINE FEED".25)"KEY .Y. OR .N
. [ ]..";..5...253:LF$.H(IP$,1):..66..."
DO YOU WISH TO SEND A":."CHR$ TO THE PRI
NTER".25)"KEY .Y. OR .N. [ ]";.E6...".."
;:.253:CS$.H(IP$,1):G.9:.CS$."Y".G.11..6
A..CS$."Y"..:."ENTER CHR$".35)"[ ]...";
:.253:CS.E(IP$)..6B..L3$:.456..6C..".":.
I.1.G:.:.:.I.1.23.G:.S$:.I:.".":.I.1.G:.
:..*7D...12)".**TEST OVER**":.:..5):."KE
Y .Y. TO CONTINUE .N. TO RE-SETUP".37E..
512.C7F..K$."Y".461.Y7G..K$."N"..517:.43
2..7H.."DO YOU REQUIRE TEST PRINT: KEY .
Y. OR .N.":.L3$..7I..512..7J..K$."N"..51
4:.461.D7K..K$."Y"..514:.518.M7L..451.Y7
M..4,4:.4..7N..CS$."Y".. G(CS)..8O..M$.1
0)"FILENAME = "N$:.:.531..8P.R.0:P.0.$8Q
.C.1.=8R.PD.A(C).C(A$(R,C)).1.L8S..PD.1.
PD.1..8T.PD$.H(S$,PD):.C$(C)."Y"..H(A$(R
,C),A(C)).PD$;:.R.0.P.P.A(C)..8U.C.C.1:.
C.X.1.466..8V..531.L8W..R.0..:.I.1.P.2:.
"-";:.I:.531..8X.R.R.1:.:.R.Y.1.465..8Y.
.:.:...9Z.." *TOTALS*":.531..9..." -
-------":.:.531..9...C.1.X:T.0.J9...R.1.
Y:T.T.E(A$(R,C)):..N9...AA$(C)."N"..A$(0
,C).20);T:.531.U9...C.9...4: 4..9...517
..9...12.G9...494:CO.1:LN.21:.496:.".DEL
ETE. ARE YOU SURE? Y/N".P9...512..9...K$
."Y".488..9...K$."N".114..9...484..:..T.
R:.R.T.Y.1..:...C.1.X.+:..A$(R,C).A$(R.1
,C).2:...C.9:...R.H:..Y.Y.1:.100.C:..CO.
1:LN.21:.496:.I.1.3..:..."
":.I:..J:..ACC$
."......................................
."..:..DOW$.".........................."
..:...Z.1.2..;...".";..;...CO.1..H(ACC$,
CO.1);.7;...LN.1..H(DOW$,LN.1);.L;...Z.1
.."
";.S;...Z.Y;.....;...:.:.263:..6)"PRES
S . SPACE BAR . FOR MENU".D;..K$."":.K$:
.K$.." ".506.L;...12..;...PR.5.C(D(R)).2
.TT.5..;...PR.5.C(D(R)).3.TT.4..<...PR.5
.C(D(R)).4.TT.3..<....:<...K$:.K$.."Y".K
$.."N".512.@<....<..CO.1:LN.21:.496:."
<< ENSURE THAT PRINTER IS ALIGNED >>":..
.<..." PRESS .SPACE BAR. TO CONTINUE"
:.K$:.K$.." ".514..<.....<...C.1.X:A$(0,
C).H(A$(0,C),9):.:...=..RP$."":.C.1.X:TP
$."":.C$(C)."Y"..528..=...C.D=..R.0:R$."
":PD$."":.C.1.X:PD.A(C).C(A$(R,C)).1.S=.
..PD.1.PD.1..=..PD$.H(S$,PD):.C$(C)."Y".
R$.R$.H(A$(R,C),A(C)).PD$..=...C..=...4,
4:.4:.CS$."Y"..G(CS).N=...M$.10)"FILENAM
E = "N$:.:.531..=...R$:.I.1.C(R$):."-";:
.I:.:.531..>...RP$:.4: 4:..">...I.1.A(C)
:TP$.TP$.AA$(C):.I.M>...C(TP$).C(A$(1,C)
).TP$.TP$.AA$(C):.529.K>..TP$.TP$." ":RP
$.RP$.TP$:..>...LF$."Y"..G(10)..>.....>
...".MAX NO OF RECORDS NOW REACHED.":...
>..."TO INCREASE MAXIMUM RE-DIMENSION":.
:."PROGRAM AT LINE 415 AND 174".B?...:."
OR CALL DIALOG ON 01 289 6904":.:.:.:."P
RESS .SPACE BAR. FOR MENU".W?...K$:.K$..
" ".536.E?..Y.200:.12..?...".": .". DISK
DIRECTORY .."..?...1,8,15,"I0": 1:.1,8,
0,"$0":.K.1.25:.#1,X$:.K:D.1.K?...D.2.D.
0:...?....20.D);:.K.1.4:.#1,X$:.K..@...
ST . DS . 1:.:.358..@...#1,X$:.X$."".D.D
.1:.540.7@ ..X$.G(34).O..O:.543.C@!..O..
X$;.L@"..543.`@#..IP$."".IP$."-"..@$..F(
IP$).46.F(IP$).57.AC.1:.:.".NUMERIC INPU
T REQUIRED".K@%..R.0.R.Y..:.".ENTER A VA
LUE BETWEEN 1 AND"Y..@&..I.1.1000:.:....
> CLICK IMAGE PREVIEW FOR FULL MODAL