ASYAIL 64
FILE INFORMATION
FILENAME(S): ASYAIL 64
FILE TYPE(S): PRG
FILE SIZE: 14.9K
FIRST SEEN: 2025-11-30 21:18:25
APPEARS ON: 1 disk(s)
FILE HASH
43b8060867b86fe98e41d2dc90d62cb128da5a4bfd47c379b258c50cee7fed12
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PAPERCLIP | ASYAIL 64 | PRG | DuncanTwain | 32 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0B 08 E8 03 89 31 31 36 30 00 31 08 F2 03 |.......1160.1...|
00000010: 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |"***************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000030: 2A 00 57 08 FC 03 22 2A 20 20 20 20 20 20 20 20 |*.W..."* |
00000040: C5 41 53 59 20 CD 41 49 4C 20 56 36 34 20 20 20 |.ASY .AIL V64 |
00000050: 20 20 20 20 20 20 2A 00 7D 08 06 04 22 2A 20 20 | *.}..."* |
00000060: 20 20 20 20 20 20 20 20 20 28 C3 29 31 39 38 32 | (.)1982|
00000070: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 A3 08 | *...|
00000080: 10 04 22 2A 20 C3 4F 4D 4D 4F 44 4F 52 45 20 C2 |.."* .OMMODORE .|
00000090: 55 53 49 4E 45 53 53 20 CD 41 43 48 49 4E 45 53 |USINESS .ACHINES|
000000A0: 20 20 2A 00 C9 08 1A 04 22 2A 20 20 20 20 20 20 | *....."* |
000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000C0: 20 20 20 20 20 20 20 20 2A 00 EF 08 24 04 22 2A | *...$."*|
000000D0: 20 C4 41 54 45 20 D7 52 49 54 54 45 4E 3A 20 30 | .ATE .RITTEN: 0|
000000E0: 33 2F 30 39 2F 38 32 20 20 20 20 20 20 20 2A 00 |3/09/82 *.|
000000F0: 15 09 2E 04 22 2A 20 C1 55 54 48 4F 52 20 20 20 |...."* .UTHOR |
00000100: 20 20 20 3A 20 CD 49 43 48 41 45 4C 20 D3 43 48 | : .ICHAEL .CH|
00000110: 41 46 46 20 2A 00 3B 09 38 04 22 2A 20 20 20 20 |AFF *.;.8."* |
00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000130: 20 20 20 20 20 20 20 20 20 20 2A 00 61 09 42 04 | *.a.B.|
00000140: 22 2A 20 C3 4F 4E 46 49 47 55 52 41 54 49 4F 4E |"* .ONFIGURATION|
00000150: 3A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |: |
00000160: 2A 00 87 09 4C 04 22 2A 20 20 20 20 20 20 20 C3 |*...L."* .|
00000170: 4F 4D 50 55 54 45 52 3A 20 C3 4F 4D 4D 4F 44 4F |OMPUTER: .OMMODO|
00000180: 52 45 20 36 34 20 2A 00 AD 09 56 04 22 2A 20 20 |RE 64 *...V."* |
00000190: 20 20 20 20 20 C4 49 53 4B 20 20 20 20 3A 20 D6 | .ISK : .|
000001A0: C9 C3 20 31 35 34 31 20 20 20 20 20 2A 00 D3 09 |.. 1541 *...|
000001B0: 60 04 22 2A 20 20 20 20 20 20 20 D0 52 49 4E 54 |`."* .RINT|
000001C0: 45 52 20 3A 20 D6 C9 C3 20 31 35 32 35 20 20 20 |ER : ... 1525 |
000001D0: 20 20 2A 00 F9 09 6A 04 22 2A 20 20 20 20 20 20 | *...j."* |
000001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001F0: 20 20 20 20 20 20 20 20 2A 00 1F 0A 74 04 22 2A | *...t."*|
00000200: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000210: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000220: 25 0A 7E 04 3A 00 55 0A 88 04 8B C2 28 34 39 31 |%.~.:.U.....(491|
00000230: 35 33 29 B2 31 39 AF C2 28 34 39 31 36 32 29 B2 |53).19..(49162).|
00000240: 31 39 38 AF C2 28 34 39 31 36 33 29 B2 31 30 34 |198..(49163).104|
00000250: A7 31 31 39 30 00 91 0A 92 04 99 22 93 11 11 11 |.1190......"....|
00000260: 4C 4F 41 44 22 C7 28 33 34 29 22 45 44 49 54 4F |LOAD".(34)"EDITO|
00000270: 52 36 34 22 C7 28 33 34 29 22 2C 38 2C 31 13 11 |R64".(34)",8,1..|
00000280: 11 11 11 11 11 11 11 53 59 53 34 39 31 35 32 13 |.......SYS49152.|
00000290: 22 00 B7 0A 9C 04 97 31 39 38 2C 33 3A 97 36 33 |"......198,3:.63|
000002A0: 31 2C 31 33 3A 97 36 33 32 2C 31 33 3A 97 36 33 |1,13:.632,13:.63|
000002B0: 33 2C 31 33 31 3A 80 00 FF 0A A6 04 99 22 93 09 |3,131:......."..|
000002C0: 0E 08 22 3A 26 53 3A 50 52 B2 34 3A 44 49 B2 38 |..":&S:PR.4:DI.8|
000002D0: 3A 42 47 B2 35 3A 42 52 B2 31 33 3A 43 43 B2 30 |:BG.5:BR.13:CC.0|
000002E0: 3A 43 4D 24 B2 22 4E 45 57 44 53 50 41 4C 54 44 |:CM$."NEWDSPALTD|
000002F0: 45 4C 49 4E 54 50 52 54 4C 53 54 44 53 4B 22 00 |ELINTPRTLSTDSK".|
00000300: 45 0B B0 04 3A 26 43 2C 22 90 1F 05 22 3A 4D 44 |E...:&C,"...":MD|
00000310: 24 B2 22 44 53 50 22 3A 86 4D 54 24 28 37 30 30 |$."DSP":.MT$(700|
00000320: 29 3A 58 24 B2 22 20 20 20 20 20 20 20 20 20 20 |):X$." |
00000330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000340: 20 20 20 20 22 00 75 0B BA 04 99 22 13 22 3A 54 | ".u....".":T|
00000350: 4D 24 B2 22 C3 4F 4D 4D 4F 44 4F 52 45 20 C5 41 |M$.".OMMODORE .A|
00000360: 53 59 20 CD 41 49 4C 20 56 36 34 22 3A 26 42 3A |SY .AIL V64":&B:|
00000370: 8D 31 35 36 30 00 A9 0B C4 04 99 22 11 11 11 11 |.1560......"....|
00000380: 20 20 20 20 D0 52 45 53 53 3A 22 3A 99 A6 31 30 | .RESS:":..10|
00000390: 29 22 11 C6 31 20 2D 20 C2 41 43 4B 47 52 4F 55 |)"..1 - .ACKGROU|
000003A0: 4E 44 20 C3 4F 4C 4F 52 22 00 E4 0B CE 04 99 A6 |ND .OLOR".......|
000003B0: 31 30 29 22 11 C6 33 20 2D 20 C2 4F 52 44 45 52 |10)"..3 - .ORDER|
000003C0: 20 C3 4F 4C 4F 52 22 3A 99 A6 31 30 29 22 11 C6 | .OLOR":..10)"..|
000003D0: 35 20 2D 20 C3 48 41 52 41 43 54 45 52 20 C3 4F |5 - .HARACTER .O|
000003E0: 4C 4F 52 22 00 11 0C D8 04 99 A6 31 30 29 22 11 |LOR".......10)".|
000003F0: C6 37 20 2D 20 C3 4F 4C 4F 52 20 C2 41 52 22 3A |.7 - .OLOR .AR":|
00000400: 99 A6 31 30 29 22 11 C6 38 20 2D 20 C5 58 49 54 |..10)"..8 - .XIT|
00000410: 22 00 2F 0C DD 04 42 4D 24 B2 22 D3 C5 CC C5 C3 |"./...BM$.".....|
00000420: D4 20 C3 CF CC CF D2 D3 22 3A 8D 31 35 39 30 00 |. ......":.1590.|
00000430: 52 0C E2 04 97 31 39 38 2C 30 3A 92 31 39 38 2C |R....198,0:.198,|
00000440: 31 3A A1 41 24 3A 8B 41 24 B2 22 8C 22 A7 31 35 |1:.A$:.A$.".".15|
00000450: 31 30 00 63 0C EC 04 8B 41 24 B2 22 86 22 A7 31 |10.c....A$.".".1|
00000460: 34 37 30 00 74 0C F6 04 8B 41 24 B2 22 85 22 A7 |470.t....A$.".".|
00000470: 31 34 39 30 00 85 0C FB 04 8B 41 24 B2 22 88 22 |1490......A$."."|
00000480: A7 31 35 30 31 00 97 0C 00 05 8B 41 24 B3 B1 22 |.1501......A$.."|
00000490: 87 22 A7 31 32 31 30 00 AF 0C 0A 05 43 43 B2 43 |.".1210.....CC.C|
000004A0: 43 AA 31 3A 8B 43 43 B1 31 35 A7 43 43 B2 30 00 |C.1:.CC.15.CC.0.|
000004B0: FD 0C 14 05 91 43 43 89 31 33 32 30 2C 31 33 33 |.....CC.1320,133|
000004C0: 30 2C 31 33 34 30 2C 31 33 35 30 2C 31 33 36 30 |0,1340,1350,1360|
000004D0: 2C 31 33 37 30 2C 31 33 38 30 2C 31 33 39 30 2C |,1370,1380,1390,|
000004E0: 31 34 30 30 2C 31 34 31 30 2C 31 34 32 30 2C 31 |1400,1410,1420,1|
000004F0: 34 33 30 2C 31 34 34 30 2C 31 34 35 30 00 0F 0D |430,1440,1450...|
00000500: 1E 05 43 43 24 B2 22 90 22 3A 89 31 34 36 30 00 |..CC$.".":.1460.|
00000510: 21 0D 28 05 43 43 24 B2 22 05 22 3A 89 31 34 36 |!.(.CC$.".":.146|
00000520: 30 00 33 0D 32 05 43 43 24 B2 22 1C 22 3A 89 31 |0.3.2.CC$.".":.1|
00000530: 34 36 30 00 45 0D 3C 05 43 43 24 B2 22 9F 22 3A |460.E.<.CC$.".":|
00000540: 89 31 34 36 30 00 57 0D 46 05 43 43 24 B2 22 9C |.1460.W.F.CC$.".|
00000550: 22 3A 89 31 34 36 30 00 69 0D 50 05 43 43 24 B2 |":.1460.i.P.CC$.|
00000560: 22 1E 22 3A 89 31 34 36 30 00 7B 0D 5A 05 43 43 |".":.1460.{.Z.CC|
00000570: 24 B2 22 1F 22 3A 89 31 34 36 30 00 8D 0D 64 05 |$.".":.1460...d.|
00000580: 43 43 24 B2 22 9E 22 3A 89 31 34 36 30 00 9F 0D |CC$.".":.1460...|
00000590: 6E 05 43 43 24 B2 22 81 22 3A 89 31 34 36 30 00 |n.CC$.".":.1460.|
000005A0: B1 0D 78 05 43 43 24 B2 22 95 22 3A 89 31 34 36 |..x.CC$.".":.146|
000005B0: 30 00 C3 0D 82 05 43 43 24 B2 22 96 22 3A 89 31 |0.....CC$.".":.1|
000005C0: 34 36 30 00 D5 0D 8C 05 43 43 24 B2 22 97 22 3A |460.....CC$.".":|
000005D0: 89 31 34 36 30 00 E7 0D 96 05 43 43 24 B2 22 98 |.1460.....CC$.".|
000005E0: 22 3A 89 31 34 36 30 00 F9 0D A0 05 43 43 24 B2 |":.1460.....CC$.|
000005F0: 22 99 22 3A 89 31 34 36 30 00 0B 0E AA 05 43 43 |".":.1460.....CC|
00000600: 24 B2 22 9A 22 3A 89 31 34 36 30 00 28 0E B4 05 |$.".":.1460.(...|
00000610: 97 34 39 33 31 32 2C C6 28 43 43 24 29 3A 99 43 |.49312,.(CC$):.C|
00000620: 43 24 3A 89 31 32 31 30 00 40 0E BE 05 42 47 B2 |C$:.1210.@...BG.|
00000630: 42 47 AA 31 3A 8B 42 47 B1 31 35 A7 42 47 B2 30 |BG.1:.BG.15.BG.0|
00000640: 00 4A 0E C8 05 89 31 35 30 30 00 62 0E D2 05 42 |.J....1500.b...B|
00000650: 52 B2 42 52 AA 31 3A 8B 42 52 B1 31 35 A7 42 52 |R.BR.1:.BR.15.BR|
00000660: B2 30 00 80 0E DC 05 97 35 33 32 38 30 2C 42 47 |.0......53280,BG|
00000670: 3A 97 35 33 32 38 31 2C 42 52 3A 89 31 32 31 30 |:.53281,BR:.1210|
00000680: 00 9C 0E DD 05 99 22 93 22 3B 3A 97 35 33 32 38 |......".";:.5328|
00000690: 30 2C 30 3A 97 35 33 32 38 31 2C 30 00 DE 0E DF |0,0:.53281,0....|
000006A0: 05 81 41 B2 31 A4 32 30 3A 99 22 12 1C 20 20 20 |..A.1.20:.".. |
000006B0: 20 20 81 20 20 20 20 20 9E 20 20 20 20 20 1E 20 | . . . |
000006C0: 20 20 20 20 99 20 20 20 20 20 9C 20 20 20 20 20 | . . |
000006D0: 1F 20 20 20 20 20 9A 20 20 20 20 20 22 3B 00 15 |. . ";..|
000006E0: 0F E0 05 82 3A 81 41 B2 31 A4 33 3A 99 22 12 97 |....:.A.1.3:."..|
000006F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000700: 20 20 20 20 20 20 20 98 20 20 20 20 20 05 20 20 | . . |
00000710: 20 20 20 22 3B 00 35 0F E1 05 99 22 9B 20 20 20 | ";.5....". |
00000720: 20 20 20 20 22 3B 3A 82 3A 99 22 13 22 3B 3A 97 | ";:.:.".";:.|
00000730: 31 39 38 2C 30 00 49 0F E2 05 A1 41 24 3A 8B 41 |198,0.I....A$:.A|
00000740: 24 B2 22 22 A7 31 35 30 36 00 55 0F E3 05 9C 3A |$."".1506.U....:|
00000750: 89 31 31 39 30 00 83 0F E6 05 99 22 93 22 3A 54 |.1190......".":T|
00000760: 4D 24 B2 22 C3 4F 4D 4D 4F 44 4F 52 45 20 C5 41 |M$.".OMMODORE .A|
00000770: 53 59 CD 41 49 4C 20 36 34 22 3A 26 42 3A 8D 31 |SY.AIL 64":&B:.1|
00000780: 35 36 30 00 C5 0F F0 05 99 22 13 11 11 11 11 11 |560......"......|
00000790: 11 11 11 11 11 11 22 A6 39 29 22 D4 4F 44 41 59 |......".9)".ODAY|
000007A0: 53 20 C4 41 54 45 20 5B 20 20 2F 20 20 2F 20 20 |S .ATE [ / / |
000007B0: 5D 22 3A 53 43 24 28 30 29 B2 22 20 20 20 20 20 |]":SC$(0)." |
000007C0: 20 22 AA 22 22 00 ED 0F FA 05 42 4D 24 B2 22 C5 | "."".....BM$.".|
000007D0: 4E 54 45 52 20 44 41 54 45 20 41 53 20 CD CD 2F |NTER DATE AS ../|
000007E0: C4 C4 2F D9 D9 2E 22 3A 8D 31 35 39 30 00 06 10 |../...":.1590...|
000007F0: 04 06 3A 26 46 3A 44 54 24 B2 53 43 24 28 30 29 |..:&F:DT$.SC$(0)|
00000800: 3A 89 32 33 38 30 00 0C 10 0E 06 3A 00 3A 10 18 |:.2380.....:.:..|
00000810: 06 8F 22 20 D2 4F 55 54 49 4E 45 20 46 4F 52 20 |.." .OUTINE FOR |
00000820: 44 49 53 50 4C 41 59 49 4E 47 20 54 4F 50 20 53 |DISPLAYING TOP S|
00000830: 54 41 54 55 53 20 4C 49 4E 45 00 62 10 22 06 3A |TATUS LINE.b.".:|
00000840: 26 54 3A 99 22 13 12 22 A3 28 28 34 30 AB C3 28 |&T:."..".((40..(|
00000850: 54 4D 24 29 29 AD 32 29 29 54 4D 24 22 13 92 22 |TM$)).2))TM$".."|
00000860: 3A 8E 00 68 10 2C 06 3A 00 99 10 36 06 8F 22 20 |:..h.,.:...6.." |
00000870: D2 4F 55 54 49 4E 45 20 46 4F 52 20 44 49 53 50 |.OUTINE FOR DISP|
00000880: 4C 41 59 49 4E 47 20 42 4F 54 54 4F 4D 20 53 54 |LAYING BOTTOM ST|
00000890: 41 54 55 53 20 4C 49 4E 45 00 D8 10 40 06 3A 26 |ATUS LINE...@.:&|
000008A0: 42 3A 99 22 12 11 11 11 11 11 11 11 11 11 11 11 |B:."............|
000008B0: 11 11 11 11 11 11 11 11 11 11 11 11 11 22 A3 28 |.............".(|
000008C0: 28 34 30 AB C3 28 42 4D 24 29 29 AD 32 29 29 42 |(40..(BM$)).2))B|
000008D0: 4D 24 22 13 92 22 3A 8E 00 DE 10 4A 06 3A 00 FB |M$"..":....J.:..|
000008E0: 10 54 06 8F 22 20 D2 4F 55 54 49 4E 45 20 46 4F |.T.." .OUTINE FO|
000008F0: 52 20 D3 C3 D2 C5 C5 CE 20 23 31 00 2C 11 5E 06 |R ...... #1.,.^.|
00000900: 99 22 93 22 3A 26 42 3A 26 54 3A 54 4D 24 B2 22 |.".":&B:&T:TM$."|
00000910: C3 4F 4D 4D 4F 44 4F 52 45 20 C5 41 53 59 CD 41 |.OMMODORE .ASY.A|
00000920: 49 4C 20 36 34 22 3A 8D 31 35 36 30 00 5C 11 68 |IL 64":.1560.\.h|
00000930: 06 99 22 13 11 11 20 20 D0 52 4F 47 52 41 4D 20 |.."... .ROGRAM |
00000940: CD 4F 44 45 20 20 20 20 20 20 20 20 C5 41 53 59 |.ODE .ASY|
00000950: CD 41 49 4C 20 CE 55 4D 42 45 52 22 00 92 11 72 |.AIL .UMBER"...r|
00000960: 06 99 22 20 20 20 20 20 3C 22 53 43 24 28 30 29 |.." <"SC$(0)|
00000970: 22 3E 22 A6 31 37 29 22 3C 22 53 43 24 28 31 29 |">".17)"<"SC$(1)|
00000980: 22 3E 22 3A 26 4C 3A 99 A6 31 37 29 22 CE 41 4D |">":&L:..17)".AM|
00000990: 45 22 00 BF 11 7C 06 99 22 20 20 20 20 3C 22 53 |E"...|.." <"S|
000009A0: 43 24 28 32 29 22 3E 22 3A 99 A6 31 35 29 22 11 |C$(2)">":..15)".|
000009B0: C1 44 44 52 45 53 53 22 3A 81 41 B2 33 A4 36 00 |.DDRESS":.A.3.6.|
000009C0: 00 12 86 06 99 22 20 20 20 20 3C 22 53 43 24 28 |....." <"SC$(|
000009D0: 41 29 22 3E 22 3A 82 3A 99 22 11 20 20 20 20 D3 |A)">":.:.". .|
000009E0: 54 41 54 45 2F D0 52 4F 56 49 4E 43 45 20 20 20 |TATE/.ROVINCE |
000009F0: 20 20 20 D0 4F 53 54 41 4C 20 20 C3 4F 44 45 22 | .OSTAL .ODE"|
00000A00: 00 29 12 90 06 99 A6 38 29 22 3C 22 53 43 24 28 |.).....8)"<"SC$(|
00000A10: 37 29 22 3E 20 20 20 20 20 20 20 20 20 20 3C 22 |7)"> <"|
00000A20: 53 43 24 28 38 29 22 3E 22 00 5B 12 9A 06 99 A6 |SC$(8)">".[.....|
00000A30: 38 29 22 11 D0 48 4F 4E 45 22 A6 31 34 29 22 C3 |8)"..HONE".14)".|
00000A40: 41 54 45 47 4F 52 59 22 3A 99 22 20 20 20 20 3C |ATEGORY":." <|
00000A50: 22 53 43 24 28 39 29 22 3E 22 3B 00 76 12 A4 06 |"SC$(9)">";.v...|
00000A60: 99 A6 38 29 22 3C 22 53 43 24 28 31 30 29 22 3E |..8)"<"SC$(10)">|
00000A70: 22 3A 26 4C 3A 8E 00 7C 12 AE 06 3A 00 AB 12 B8 |":&L:..|...:....|
00000A80: 06 8F 22 20 D2 4F 55 54 49 4E 45 20 46 4F 52 20 |.." .OUTINE FOR |
00000A90: 46 49 4C 4C 49 4E 47 20 42 4C 24 28 29 20 57 2F |FILLING BL$() W/|
00000AA0: 4E 55 4C 4C 20 56 41 4C 55 45 53 00 EB 12 C2 06 |NULL VALUES.....|
00000AB0: 42 4C 24 28 30 29 B2 4D 44 24 AA 22 22 3A 42 4C |BL$(0).MD$."":BL|
00000AC0: 24 28 31 29 B2 22 20 20 20 22 3A 81 41 B2 32 A4 |$(1)." ":.A.2.|
00000AD0: 36 3A 42 4C 24 28 41 29 B2 58 24 3A 82 3A 42 4C |6:BL$(A).X$:.:BL|
00000AE0: 24 28 37 29 B2 22 20 20 20 20 22 00 2C 13 CC 06 |$(7)." ".,...|
00000AF0: 42 4C 24 28 38 29 B2 22 20 20 20 20 20 20 20 20 |BL$(8)." |
00000B00: 20 20 22 3A 42 4C 24 28 39 29 B2 22 20 20 20 20 | ":BL$(9)." |
00000B10: 20 20 20 20 20 20 20 20 22 3A 42 4C 24 28 31 30 | ":BL$(10|
00000B20: 29 B2 22 20 20 20 20 20 20 20 20 22 00 4D 13 D6 |)." ".M..|
00000B30: 06 81 41 B2 30 A4 31 30 3A 53 43 24 28 41 29 B2 |..A.0.10:SC$(A).|
00000B40: 42 4C 24 28 41 29 AA 22 22 3A 82 3A 8E 00 53 13 |BL$(A)."":.:..S.|
00000B50: E0 06 3A 00 8D 13 EA 06 8F 22 20 D2 4F 55 54 49 |..:......" .OUTI|
00000B60: 4E 45 20 46 4F 52 20 43 4F 4E 56 45 52 54 49 4E |NE FOR CONVERTIN|
00000B70: 47 20 44 41 54 41 20 46 52 4F 4D 20 44 49 53 4B |G DATA FROM DISK|
00000B80: 20 54 4F 20 D3 C3 D2 C5 C5 CE 20 23 31 00 CA 13 | TO ...... #1...|
00000B90: F4 06 53 43 24 28 32 29 B2 C8 28 52 31 24 2C 33 |..SC$(2)..(R1$,3|
00000BA0: 30 29 3A 53 43 24 28 33 29 B2 CA 28 52 31 24 2C |0):SC$(3)..(R1$,|
00000BB0: 33 31 2C 33 30 29 3A 53 43 24 28 34 29 B2 CA 28 |31,30):SC$(4)..(|
00000BC0: 52 31 24 2C 36 31 2C 33 30 29 00 0B 14 FE 06 53 |R1$,61,30).....S|
00000BD0: 43 24 28 35 29 B2 CA 28 52 31 24 2C 39 31 2C 33 |C$(5)..(R1$,91,3|
00000BE0: 30 29 3A 53 43 24 28 36 29 B2 CA 28 52 31 24 2C |0):SC$(6)..(R1$,|
00000BF0: 31 32 31 2C 33 30 29 3A 53 43 24 28 37 29 B2 CA |121,30):SC$(7)..|
00000C00: 28 52 31 24 2C 31 35 31 2C 34 29 00 4A 14 08 07 |(R1$,151,4).J...|
00000C10: 53 43 24 28 38 29 B2 CA 28 52 31 24 2C 31 35 35 |SC$(8)..(R1$,155|
00000C20: 2C 31 30 29 3A 53 43 24 28 39 29 B2 CA 28 52 31 |,10):SC$(9)..(R1|
00000C30: 24 2C 31 36 35 2C 31 32 29 3A 53 43 24 28 31 30 |$,165,12):SC$(10|
00000C40: 29 B2 C9 28 52 31 24 2C 38 29 00 50 14 12 07 8E |)..(R1$,8).P....|
00000C50: 00 56 14 1C 07 3A 00 90 14 26 07 8F 22 20 D2 4F |.V...:...&.." .O|
00000C60: 55 54 49 4E 45 20 46 4F 52 20 43 4F 4E 56 45 52 |UTINE FOR CONVER|
00000C70: 54 49 4E 47 20 44 41 54 41 20 46 52 4F 4D 20 D3 |TING DATA FROM .|
00000C80: C3 D2 C5 C5 CE 20 23 31 20 54 4F 20 44 49 53 4B |..... #1 TO DISK|
00000C90: 00 B6 14 30 07 52 31 24 B2 22 22 3A 81 41 B2 32 |...0.R1$."":.A.2|
00000CA0: A4 31 30 3A 52 31 24 B2 52 31 24 AA 53 43 24 28 |.10:R1$.R1$.SC$(|
00000CB0: 41 29 3A 82 3A 8E 00 BC 14 3A 07 3A 00 F2 14 44 |A):.:....:.:...D|
00000CC0: 07 8F 22 20 D2 4F 55 54 49 4E 45 20 46 4F 52 20 |.." .OUTINE FOR |
00000CD0: 52 45 41 44 49 4E 47 20 52 45 43 4F 52 44 53 20 |READING RECORDS |
00000CE0: 46 52 4F 4D 20 44 49 53 4B 20 49 4E 54 4F 20 D2 |FROM DISK INTO .|
00000CF0: 31 24 00 20 15 4E 07 52 52 B2 C5 28 53 43 24 28 |1$. .N.RR..(SC$(|
00000D00: 31 29 29 3A 8D 31 39 30 30 3A 52 31 24 B2 22 22 |1)):.1900:R1$.""|
00000D10: 3A 81 41 B2 31 A4 31 38 34 3A A1 23 38 2C 41 24 |:.A.1.184:.#8,A$|
00000D20: 00 33 15 58 07 52 31 24 B2 52 31 24 AA 41 24 3A |.3.X.R1$.R1$.A$:|
00000D30: 82 3A 8E 00 39 15 62 07 3A 00 6C 15 6C 07 8F 22 |.:..9.b.:.l.l.."|
00000D40: 20 D2 4F 55 54 49 4E 45 20 46 4F 52 20 43 4F 56 | .OUTINE FOR COV|
00000D50: 45 52 54 49 4E 47 20 D2 D2 20 54 4F 20 52 45 43 |ERTING .. TO REC|
00000D60: 4F 52 44 20 50 4F 53 49 54 49 4F 4E 00 A6 15 76 |ORD POSITION...v|
00000D70: 07 48 49 B2 B5 28 52 52 AD 32 35 36 29 3A 4C 4F |.HI..(RR.256):LO|
00000D80: B2 52 52 AB 48 49 AC 32 35 36 3A 98 31 35 2C 22 |.RR.HI.256:.15,"|
00000D90: 50 22 C7 28 31 30 34 29 C7 28 4C 4F 29 C7 28 48 |P".(104).(LO).(H|
00000DA0: 49 29 C7 28 30 29 00 AC 15 80 07 8E 00 B2 15 8A |I).(0)..........|
00000DB0: 07 3A 00 DD 15 94 07 8F 22 20 D2 4F 55 54 49 4E |.:......" .OUTIN|
00000DC0: 45 20 46 4F 52 20 44 49 53 50 4C 41 59 49 4E 47 |E FOR DISPLAYING|
00000DD0: 20 41 20 44 49 53 4B 20 C5 D2 D2 CF D2 00 16 16 | A DISK ........|
00000DE0: 9E 07 99 22 13 11 11 11 11 11 11 11 11 11 11 11 |..."............|
00000DF0: 11 11 11 11 11 11 11 11 11 11 C4 52 49 56 45 20 |...........RIVE |
00000E00: D3 54 41 54 55 53 3A 22 3A A0 31 35 3A 9F 31 35 |.TATUS:":.15:.15|
00000E10: 2C 44 49 2C 31 35 00 2E 16 A8 07 99 44 53 24 22 |,DI,15......DS$"|
00000E20: 13 22 3A A0 31 3A A0 32 3A A0 34 3A A0 37 00 42 |.":.1:.2:.4:.7.B|
00000E30: 16 B2 07 A0 38 3A A0 39 3A A0 31 35 3A 89 32 33 |....8:.9:.15:.23|
00000E40: 39 30 00 48 16 BC 07 3A 00 7A 16 C6 07 8F 22 20 |90.H...:.z...." |
00000E50: D2 4F 55 54 49 4E 45 20 46 4F 52 20 52 45 41 44 |.OUTINE FOR READ|
00000E60: 49 4E 47 20 45 52 52 4F 52 20 43 48 41 4E 4E 45 |ING ERROR CHANNE|
00000E70: 4C 20 49 4E 54 4F 20 44 53 24 00 9C 16 D0 07 84 |L INTO DS$......|
00000E80: 31 35 2C 45 4E 24 2C 45 44 24 2C 45 53 24 2C 45 |15,EN$,ED$,ES$,E|
00000E90: 54 24 3A 44 53 B2 C5 28 45 4E 24 29 00 C3 16 DA |T$:DS..(EN$)....|
00000EA0: 07 44 53 24 B2 45 4E 24 AA 22 2C 20 22 AA 45 44 |.DS$.EN$.", ".ED|
00000EB0: 24 AA 22 2C 22 AA 45 53 24 AA 22 2C 22 AA 45 54 |$.",".ES$.",".ET|
00000EC0: 24 3A 8E 00 C9 16 E4 07 3A 00 F9 16 EE 07 8F 22 |$:......:......"|
00000ED0: 20 D2 4F 55 54 49 4E 45 20 46 4F 52 20 D0 52 49 | .OUTINE FOR .RI|
00000EE0: 4E 54 49 4E 47 20 D0 41 47 45 20 C8 45 41 44 49 |NTING .AGE .EADI|
00000EF0: 4E 47 20 57 2F 4F 50 45 4E 00 17 17 F8 07 9F 34 |NG W/OPEN......4|
00000F00: 2C 50 52 2C 37 3A 98 34 3A 98 34 2C 22 C5 41 53 |,PR,7:.4:.4,".AS|
00000F10: 59 CD 41 49 4C 22 3B 00 50 17 02 08 98 34 2C 22 |Y.AIL";.P....4,"|
00000F20: 20 C6 C9 CC C5 20 CC C9 D3 D4 C9 CE C7 22 A6 34 | .... .......".4|
00000F30: 32 29 22 C1 D3 20 CF C6 3A 22 C8 28 44 54 24 2C |2)".. ..:".(DT$,|
00000F40: 32 29 22 2F 22 CA 28 44 54 24 2C 33 2C 32 29 3B |2)"/".(DT$,3,2);|
00000F50: 00 81 17 0C 08 98 34 2C 22 2F 22 C9 28 44 54 24 |......4,"/".(DT$|
00000F60: 2C 32 29 3A 98 34 3A 98 34 2C 22 C5 41 53 59 CD |,2):.4:.4,".ASY.|
00000F70: 41 49 4C 20 23 20 20 20 20 20 20 CE 41 4D 45 22 |AIL # .AME"|
00000F80: 3B 00 B7 17 16 08 98 34 2C 22 20 20 20 20 20 20 |;......4," |
00000F90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000FA0: 20 20 20 20 20 20 20 C1 44 44 52 45 53 53 20 26 | .DDRESS &|
00000FB0: 20 D0 48 4F 4E 45 22 00 DA 17 20 08 81 41 B2 31 | .HONE"... ..A.1|
00000FC0: A4 37 38 3A 98 34 2C 22 3D 22 3B 3A 82 3A 98 34 |.78:.4,"=";:.:.4|
00000FD0: 3A 98 34 3A 4C 4E B2 36 3A 8E 00 E0 17 2A 08 3A |:.4:LN.6:....*.:|
00000FE0: 00 09 18 34 08 8F 22 20 D2 4F 55 54 49 4E 45 20 |...4.." .OUTINE |
00000FF0: 46 4F 52 20 50 52 49 4E 54 49 4E 47 20 CD 41 49 |FOR PRINTING .AI|
00001000: 4C 20 4C 49 53 54 49 4E 47 00 2C 18 3E 08 8B 4C |L LISTING.,.>..L|
00001010: 4E B1 B2 35 36 A7 81 41 B2 4C 4E A4 36 34 3A 98 |N..56..A.LN.64:.|
00001020: 34 3A 82 3A A0 34 3A 8D 32 30 33 30 00 5C 18 48 |4:.:.4:.2030.\.H|
00001030: 08 98 34 2C 22 20 20 20 20 22 53 43 24 28 31 29 |..4," "SC$(1)|
00001040: A6 39 29 53 43 24 28 32 29 22 20 20 20 22 53 43 |.9)SC$(2)" "SC|
00001050: 24 28 33 29 3A 4C 4E B2 4C 4E AA 31 00 79 18 52 |$(3):LN.LN.1.y.R|
00001060: 08 98 34 2C 22 22 A6 31 36 29 53 43 24 28 31 30 |..4,"".16)SC$(10|
00001070: 29 3B 3A 81 41 B2 34 A4 36 00 A3 18 5C 08 8B C8 |);:.A.4.6...\...|
00001080: 28 53 43 24 28 41 29 2C 31 29 B2 22 20 22 B0 C8 |(SC$(A),1)." "..|
00001090: 28 53 43 24 28 41 29 2C 31 29 B2 22 A0 22 A7 32 |(SC$(A),1).".".2|
000010A0: 31 37 30 00 BF 18 66 08 98 34 2C 22 22 A6 32 35 |170...f..4,"".25|
000010B0: 29 53 43 24 28 41 29 3A 4C 4E B2 4C 4E AA 31 00 |)SC$(A):LN.LN.1.|
000010C0: CE 18 70 08 98 34 2C 22 22 A6 32 34 29 3B 00 ED |..p..4,"".24);..|
000010D0: 18 7A 08 82 3A 98 34 2C 22 22 A6 32 35 29 53 43 |.z..:.4,"".25)SC|
000010E0: 24 28 37 29 22 20 22 53 43 24 28 38 29 00 04 19 |$(7)" "SC$(8)...|
000010F0: 84 08 98 34 2C 22 22 A6 34 39 29 53 43 24 28 39 |...4,"".49)SC$(9|
00001100: 29 3A 98 34 00 12 19 8E 08 4C 4E B2 4C 4E AA 33 |):.4.....LN.LN.3|
00001110: 3A 8E 00 18 19 98 08 3A 00 37 19 A2 08 8F 22 20 |:......:.7...." |
00001120: D2 4F 55 54 49 4E 45 20 46 4F 52 20 4C 41 42 45 |.OUTINE FOR LABE|
00001130: 4C 20 41 4C 49 47 4E 00 6C 19 AC 08 4C 53 24 28 |L ALIGN.l...LS$(|
00001140: 31 29 B2 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |1)."------------|
00001150: 2D 2D 2D C6 49 52 53 54 20 CC 49 4E 45 2D 2D 2D |---.IRST .INE---|
00001160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 A1 1F B6 |-----------"....|
00001170: 08 4C 53 24 28 32 29 B2 22 58 58 58 58 58 58 58 |.LS$(2)."XXXXXXX|
00001180: 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 |XXXXXXXXXXXXXXXX|
00001190: 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 |XXXXXXXXXXXXXXXX|
000011A0: 22 00 EB 19 C0 08 4C 53 24 28 38 29 B2 22 2D 2D |".....LS$(8)."--|
000011B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D CC 41 53 |-------------.AS|
000011C0: 54 20 20 CC 49 4E 45 2D 2D 2D 2D 2D 2D 2D 2D 2D |T .INE---------|
000011D0: 2B 2D 2D 2D 2D 22 3A 81 41 B2 33 A4 37 3A 4C 53 |+----":.A.3.7:LS|
000011E0: 24 28 41 29 B2 4C 53 24 28 32 29 00 00 1A CA 08 |$(A).LS$(2).....|
000011F0: 82 3A 9F 34 2C 50 52 2C 37 3A 81 41 B2 31 A4 38 |.:.4,PR,7:.A.1.8|
00001200: 00 20 1A D4 08 98 34 2C 4C 53 24 28 41 29 3B 3A |. ....4,LS$(A);:|
00001210: 8B 4C 41 B2 31 A7 98 34 3A 82 3A 89 32 32 38 30 |.LA.1..4:.:.2280|
00001220: 00 34 1A DE 08 98 34 2C 22 20 20 22 4C 53 24 28 |.4....4," "LS$(|
00001230: 41 29 3A 82 00 40 1A E8 08 98 34 3A A0 34 3A 8E |A):..@....4:.4:.|
00001240: 00 46 1A F2 08 3A 00 66 1A FC 08 8F 22 20 D2 4F |.F...:.f...." .O|
00001250: 55 54 49 4E 45 20 46 4F 52 20 50 52 49 4E 54 20 |UTINE FOR PRINT |
00001260: 4C 41 42 45 4C 53 00 9D 1A 06 09 8B 4C 41 B2 31 |LABELS......LA.1|
00001270: A7 81 41 B2 32 A4 36 3A 98 34 2C 53 43 24 28 41 |..A.2.6:.4,SC$(A|
00001280: 29 3A 82 3A 98 34 2C 53 43 24 28 37 29 22 20 20 |):.:.4,SC$(7)" |
00001290: 22 53 43 24 28 38 29 3A 89 32 33 35 30 00 C5 1A |"SC$(8):.2350...|
000012A0: 10 09 8B 4C 53 B2 30 A7 81 41 B2 32 A4 38 3A 4C |...LS.0..A.2.8:L|
000012B0: 53 24 28 41 29 B2 53 43 24 28 41 29 3A 82 3A 4C |S$(A).SC$(A):.:L|
000012C0: 53 B2 31 3A 8E 00 FB 1A 1A 09 81 41 B2 32 A4 36 |S.1:.......A.2.6|
000012D0: 3A 98 34 2C 4C 53 24 28 41 29 A6 31 31 29 53 43 |:.4,LS$(A).11)SC|
000012E0: 24 28 41 29 3A 82 3A 98 34 2C 4C 53 24 28 37 29 |$(A):.:.4,LS$(7)|
000012F0: 22 20 20 22 4C 53 24 28 38 29 3B 00 1E 1B 24 09 |" "LS$(8);...$.|
00001300: 98 34 2C 22 22 A6 32 35 29 53 43 24 28 37 29 22 |.4,"".25)SC$(7)"|
00001310: 20 20 22 53 43 24 28 38 29 3A 4C 53 B2 30 00 2D | "SC$(8):LS.0.-|
00001320: 1B 2E 09 98 34 3A 98 34 3A 98 34 3A 8E 00 33 1B |....4:.4:.4:..3.|
00001330: 38 09 3A 00 39 1B 42 09 3A 00 5C 1B 4C 09 53 49 |8.:.9.B.:.\.L.SI|
00001340: B2 30 3A 53 43 24 28 30 29 B2 4D 44 24 AA 22 22 |.0:SC$(0).MD$.""|
00001350: 3A 8D 31 37 32 30 3A 8D 31 36 32 30 00 81 1B 56 |:.1720:.1620...V|
00001360: 09 42 4D 24 B2 22 D0 52 45 53 53 20 D3 D4 CF D0 |.BM$.".RESS ....|
00001370: 20 46 4F 52 20 48 45 4C 50 2E 22 3A 8D 31 35 39 | FOR HELP.":.159|
00001380: 30 00 9A 1B 60 09 3A 26 46 3A 8B 53 54 B1 30 AF |0...`.:&F:.ST.0.|
00001390: 53 54 B3 31 30 A7 32 34 35 30 00 BF 1B 6A 09 81 |ST.10.2450...j..|
000013A0: 49 B2 31 A4 38 3A 8B CA 28 43 4D 24 2C 49 AC 33 |I.1.8:..(CM$,I.3|
000013B0: AB 32 2C 33 29 B3 B1 53 43 24 28 30 29 A7 82 00 |.2,3)..SC$(0)...|
000013C0: EE 1B 74 09 91 49 89 32 35 39 30 2C 32 38 37 30 |..t..I.2590,2870|
000013D0: 2C 33 32 34 30 2C 33 33 33 30 2C 33 34 37 30 2C |,3240,3330,3470,|
000013E0: 34 33 39 30 2C 33 37 39 30 2C 33 37 33 30 00 1E |4390,3790,3730..|
000013F0: 1C 7E 09 8F 22 20 20 20 4E 45 57 20 20 44 53 50 |.~.." NEW DSP|
00001400: 20 20 41 4C 54 20 20 44 45 4C 20 20 49 4E 54 20 | ALT DEL INT |
00001410: 20 50 52 54 20 20 4C 53 54 20 20 44 53 4B 00 5F | PRT LST DSK._|
00001420: 1C 88 09 99 22 13 11 11 11 11 11 11 11 11 11 11 |...."...........|
00001430: 11 11 11 11 11 11 11 11 11 11 11 C5 D2 D2 CF D2 |................|
00001440: 3A 20 C9 4E 56 41 4C 49 44 20 50 52 4F 47 52 41 |: .NVALID PROGRA|
00001450: 4D 20 4D 4F 44 45 2E 13 22 3A 89 32 33 39 30 00 |M MODE..":.2390.|
00001460: 74 1C 92 09 99 22 93 22 3A 26 42 3A 26 54 3A 8D |t....".":&B:&T:.|
00001470: 31 35 36 30 00 A7 1C 9C 09 99 22 13 11 11 11 11 |1560......".....|
00001480: 11 20 CE C5 D7 20 2D 20 C5 4E 54 45 52 20 4E 45 |. ... - .NTER NE|
00001490: 57 20 CE 41 4D 45 2F C1 44 44 52 45 53 53 20 54 |W .AME/.DDRESS T|
000014A0: 4F 20 4C 49 53 54 22 00 D5 1C A6 09 99 22 11 20 |O LIST"......". |
000014B0: C4 D3 D0 20 2D 20 C4 49 53 50 4C 41 59 20 CE 41 |... - .ISPLAY .A|
000014C0: 4D 45 2F C1 44 44 52 45 53 53 20 46 52 4F 4D 20 |ME/.DDRESS FROM |
000014D0: 4C 49 53 54 22 00 FF 1C B0 09 99 22 11 20 C1 CC |LIST"......". ..|
000014E0: D4 20 2D 20 C1 4C 54 45 52 20 CE 41 4D 45 2F C1 |. - .LTER .AME/.|
000014F0: 44 44 52 45 53 53 20 4F 4E 20 4C 49 53 54 22 00 |DDRESS ON LIST".|
00001500: 2C 1D BA 09 99 22 11 20 C4 C5 CC 20 2D 20 C4 45 |,....". ... - .E|
00001510: 4C 45 54 45 20 CE 41 4D 45 2F C1 44 44 52 45 53 |LETE .AME/.DDRES|
00001520: 53 20 46 52 4F 4D 20 4C 49 53 54 22 00 5C 1D C4 |S FROM LIST".\..|
00001530: 09 99 22 11 20 C9 CE D4 20 2D 20 C9 4E 49 54 49 |..". ... - .NITI|
00001540: 41 4C 49 5A 45 20 4E 45 57 20 CE 41 4D 45 2F C1 |ALIZE NEW .AME/.|
00001550: 44 44 52 45 53 53 20 44 49 53 4B 22 00 80 1D CE |DDRESS DISK"....|
00001560: 09 99 22 11 20 D0 D2 D4 20 2D 20 D0 52 49 4E 54 |..". ... - .RINT|
00001570: 20 4D 41 49 4C 49 4E 47 20 4C 41 42 45 4C 53 22 | MAILING LABELS"|
00001580: 00 AC 1D D8 09 99 22 11 20 CC D3 D4 20 2D 20 D0 |......". ... - .|
00001590: 52 49 4E 54 20 CE 41 4D 45 2F C1 44 44 52 45 53 |RINT .AME/.DDRES|
000015A0: 53 45 53 20 49 4E 20 4C 49 53 54 22 00 DA 1D E2 |SES IN LIST"....|
000015B0: 09 99 22 11 20 C4 D3 CB 20 2D 20 C4 49 53 50 4C |..". ... - .ISPL|
000015C0: 41 59 20 54 48 45 20 53 54 41 54 55 53 20 4F 46 |AY THE STATUS OF|
000015D0: 20 54 48 45 20 44 49 53 4B 22 00 0E 1E EC 09 42 | THE DISK".....B|
000015E0: 4D 24 B2 22 D0 52 45 53 53 20 D3 D0 C1 C3 C5 20 |M$.".RESS ..... |
000015F0: C2 C1 D2 20 54 4F 20 43 4F 4E 54 49 4E 55 45 2E |... TO CONTINUE.|
00001600: 22 3A 8D 31 35 39 30 3A 97 31 39 38 2C 30 00 2B |":.1590:.198,0.+|
00001610: 1E F6 09 92 31 39 38 2C 31 3A A1 41 24 3A 8B 41 |....198,1:.A$:.A|
00001620: 24 B3 B1 22 20 22 A7 32 35 34 30 00 40 1E 00 0A |$.." ".2540.@...|
00001630: 99 22 93 22 3A 8D 31 36 32 30 3A 89 32 33 39 30 |.".":.1620:.2390|
00001640: 00 46 1E 0A 0A 3A 00 4C 1E 14 0A 3A 00 63 1E 1E |.F...:.L...:.c..|
00001650: 0A 8F 22 20 D2 4F 55 54 49 4E 45 20 46 4F 52 20 |.." .OUTINE FOR |
00001660: CE C5 D7 00 92 1E 28 0A 53 49 B2 30 3A 41 24 B2 |......(.SI.0:A$.|
00001670: 53 43 24 28 30 29 3A 8D 31 37 32 30 3A 53 43 24 |SC$(0):.1720:SC$|
00001680: 28 30 29 B2 41 24 3A 8D 31 36 32 30 3A 8D 31 35 |(0).A$:.1620:.15|
00001690: 39 30 00 AE 1E 32 0A 3A 26 45 28 32 29 3A 8B 53 |90...2.:&E(2):.S|
000016A0: 54 B1 30 AF 53 54 B3 31 30 A7 32 34 35 30 00 D0 |T.0.ST.10.2450..|
000016B0: 1E 3C 0A 81 41 B2 31 A4 37 3A 8B 53 43 24 28 41 |.<..A.1.7:.SC$(A|
000016C0: 29 B2 42 4C 24 28 41 29 A7 82 3A 89 32 38 32 30 |).BL$(A)..:.2820|
000016D0: 00 DD 1E 46 0A 81 41 B2 31 A4 31 3A 82 00 10 1F |...F..A.1.1:....|
000016E0: 50 0A 9F 38 2C 44 49 2C 38 2C 22 30 3A 54 41 42 |P..8,DI,8,"0:TAB|
000016F0: 4C 45 2C 53 2C 52 22 3A 84 38 2C 41 24 3A 84 38 |LE,S,R":.8,A$:.8|
00001700: 2C 49 44 24 3A 8B 53 54 B2 36 36 A7 32 37 34 30 |,ID$:.ST.66.2740|
00001710: 00 37 1F 5A 0A A0 38 3A 49 44 B2 C5 28 49 44 24 |.7.Z..8:ID..(ID$|
00001720: 29 3A 9F 38 2C 44 49 2C 38 2C 22 30 3A 54 41 42 |):.8,DI,8,"0:TAB|
00001730: 4C 45 2C 53 2C 52 22 00 5F 1F 64 0A 9F 39 2C 44 |LE,S,R"._.d..9,D|
00001740: 49 2C 39 2C 22 30 3A 54 2C 53 2C 57 22 3A 84 38 |I,9,"0:T,S,W":.8|
00001750: 2C 41 24 3A 98 39 2C 41 24 3A 84 38 2C 41 24 00 |,A$:.9,A$:.8,A$.|
00001760: 72 1F 6E 0A 84 38 2C 41 24 3A 8B 53 54 A7 32 36 |r.n..8,A$:.ST.26|
00001770: 39 30 00 82 1F 78 0A 98 39 2C 41 24 3A 89 32 36 |90...x..9,A$:.26|
00001780: 37 30 00 93 1F 82 0A 8B 53 54 B2 36 34 A7 98 39 |70......ST.64..9|
00001790: 2C 41 24 00 9D 1F 8C 0A A0 38 3A A0 39 00 DA 1F |,A$......8:.9...|
000017A0: 96 0A 9F 31 35 2C 44 49 2C 31 35 2C 22 53 30 3A |...15,DI,15,"S0:|
000017B0: 54 41 42 4C 45 22 3A 98 31 35 2C 22 43 30 3A 54 |TABLE":.15,"C0:T|
000017C0: 41 42 4C 45 3D 30 3A 54 22 3A 98 31 35 2C 22 53 |ABLE=0:T":.15,"S|
000017D0: 30 3A 54 22 3A 8D 31 39 39 30 00 EA 1F A0 0A 8B |0:T":.1990......|
000017E0: 44 53 B1 31 39 A7 31 39 34 30 00 F8 1F AA 0A A0 |DS.19.1940......|
000017F0: 31 35 3A 89 32 37 38 30 00 28 20 B4 0A A0 38 3A |15:.2780.( ...8:|
00001800: 9F 38 2C 44 49 2C 38 2C 22 30 3A 4E 45 58 54 2C |.8,DI,8,"0:NEXT,|
00001810: 53 2C 52 22 3A 84 38 2C 49 44 24 3A A0 38 3A 49 |S,R":.8,ID$:.8:I|
00001820: 44 B2 C5 28 49 44 24 29 00 39 20 BE 0A 8B 49 44 |D..(ID$).9 ...ID|
00001830: B1 37 30 30 A7 32 38 34 30 00 55 20 C8 0A 9F 31 |.700.2840.U ...1|
00001840: 35 2C 44 49 2C 31 35 2C 22 53 30 3A 4E 45 58 54 |5,DI,15,"S0:NEXT|
00001850: 22 3A A0 31 35 00 7D 20 D2 0A 9F 38 2C 44 49 2C |":.15.} ...8,DI,|
00001860: 38 2C 22 30 3A 4E 45 58 54 2C 53 2C 57 22 3A 41 |8,"0:NEXT,S,W":A|
00001870: B2 49 44 AA 31 3A 98 38 2C 41 3A A0 38 00 9E 20 |.ID.1:.8,A:.8.. |
00001880: DC 0A 53 43 24 28 31 29 B2 C9 28 22 20 20 22 AA |..SC$(1)..(" ".|
00001890: C4 28 49 44 29 2C 33 29 3A 8D 31 38 33 30 00 CF |.(ID),3):.1830..|
000018A0: 20 E6 0A 9F 38 2C 44 49 2C 38 2C 22 30 3A 4C 49 | ...8,DI,8,"0:LI|
000018B0: 53 54 22 3A 9F 31 35 2C 44 49 2C 31 35 3A 8D 31 |ST":.15,DI,15:.1|
000018C0: 39 39 30 3A 8B 44 53 B1 31 39 A7 31 39 34 30 00 |990:.DS.19.1940.|
000018D0: DF 20 F0 0A 52 52 B2 49 44 3A 8D 31 39 30 30 00 |. ..RR.ID:.1900.|
000018E0: 03 21 FA 0A 98 38 2C 52 31 24 3A A0 38 3A A0 31 |.!...8,R1$:.8:.1|
000018F0: 35 3A 8D 31 37 32 30 3A 8D 31 36 32 30 3A 89 32 |5:.1720:.1620:.2|
00001900: 33 39 30 00 3B 21 04 0B 99 22 13 11 11 11 11 11 |390.;!..."......|
00001910: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001920: C5 D2 D2 CF D2 3A 20 C9 4E 56 41 4C 49 44 20 46 |.....: .NVALID F|
00001930: 49 45 4C 44 20 44 41 54 41 2E 22 00 67 21 0E 0B |IELD DATA.".g!..|
00001940: 99 A6 37 29 22 D0 4C 45 41 53 45 20 46 49 4C 4C |..7)".LEASE FILL|
00001950: 20 49 4E 20 41 4C 4C 20 46 49 45 4C 44 53 2E 13 | IN ALL FIELDS..|
00001960: 22 3A 89 32 33 39 30 00 A0 21 18 0B 99 22 13 11 |":.2390..!..."..|
00001970: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001980: 11 11 11 11 C5 D2 D2 CF D2 3A 20 C6 49 4C 45 20 |.........: .ILE |
00001990: 49 53 20 46 55 4C 4C 2E 13 22 3A 89 32 33 39 30 |IS FULL..":.2390|
000019A0: 00 A6 21 22 0B 3A 00 AC 21 2C 0B 3A 00 C3 21 36 |..!".:..!,.:..!6|
000019B0: 0B 8F 22 20 D2 4F 55 54 49 4E 45 20 46 4F 52 20 |.." .OUTINE FOR |
000019C0: C4 D3 D0 00 F5 21 40 0B 53 49 B2 30 3A 8D 31 37 |.....!@.SI.0:.17|
000019D0: 32 30 3A 8D 31 36 32 30 3A 8D 31 35 39 30 3A 26 |20:.1620:.1590:&|
000019E0: 46 28 31 29 3A 8B 53 54 B1 30 AF 53 54 B3 31 30 |F(1):.ST.0.ST.10|
000019F0: A7 32 34 35 30 00 0D 22 4A 0B 8B 53 43 24 28 31 |.2450.."J..SC$(1|
00001A00: 29 B2 42 4C 24 28 31 29 A7 32 39 37 30 00 30 22 |).BL$(1).2970.0"|
00001A10: 54 0B 49 44 B2 C5 28 53 43 24 28 31 29 29 3A 8B |T.ID..(SC$(1)):.|
00001A20: 49 44 B3 31 B0 49 44 B1 37 30 30 A7 32 39 34 30 |ID.1.ID.700.2940|
00001A30: 00 61 22 5E 0B 9F 38 2C 44 49 2C 38 2C 22 30 3A |.a"^..8,DI,8,"0:|
00001A40: 4C 49 53 54 22 3A 9F 31 35 2C 44 49 2C 31 35 3A |LIST":.15,DI,15:|
00001A50: 8D 31 39 39 30 3A 8B 44 53 B1 31 39 A7 31 39 34 |.1990:.DS.19.194|
00001A60: 30 00 7D 22 68 0B 8D 31 38 36 30 3A 8D 31 39 39 |0.}"h..1860:.199|
00001A70: 30 3A 8B 44 53 B1 31 39 A7 31 39 34 30 00 AC 22 |0:.DS.19.1940.."|
00001A80: 72 0B A0 38 3A A0 31 35 3A 8B C8 28 52 31 24 2C |r..8:.15:..(R1$,|
00001A90: 34 29 B3 B1 22 23 23 23 23 22 A7 8D 31 37 37 30 |4).."####"..1770|
00001AA0: 3A 8D 31 36 32 30 3A 89 32 39 36 30 00 EA 22 7C |:.1620:.2960.."||
00001AB0: 0B 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |..".............|
00001AC0: 11 11 11 11 11 11 11 11 11 C5 D2 D2 CF D2 3A 20 |..............: |
00001AD0: C9 4E 56 41 4C 49 44 20 C5 41 53 59 CD 41 49 4C |.NVALID .ASY.AIL|
00001AE0: 20 4E 55 4D 42 45 52 2E 13 22 00 F4 22 86 0B 89 | NUMBER..".."...|
00001AF0: 32 33 39 30 00 03 23 90 0B 53 49 B2 31 3A 89 32 |2390..#..SI.1:.2|
00001B00: 33 39 30 00 24 23 9A 0B 8D 31 35 39 30 3A 26 45 |390.$#...1590:&E|
00001B10: 28 32 29 3A 8B 53 54 B1 30 AF 53 54 B3 31 30 A7 |(2):.ST.0.ST.10.|
00001B20: 32 34 35 30 00 42 23 A4 0B 81 41 B2 32 A4 31 30 |2450.B#...A.2.10|
00001B30: 3A 81 42 B2 C3 28 53 43 24 28 41 29 29 A4 31 A9 |:.B..(SC$(A)).1.|
00001B40: AB 31 00 5B 23 AE 0B 8B CA 28 53 43 24 28 41 29 |.1.[#....(SC$(A)|
00001B50: 2C 42 2C 31 29 B2 22 20 22 A7 82 00 98 23 B8 0B |,B,1)." "....#..|
00001B60: 53 43 24 28 41 29 B2 C8 28 53 43 24 28 41 29 2C |SC$(A)..(SC$(A),|
00001B70: 42 29 3A 81 42 B2 31 A4 31 3A 82 3A 82 3A 50 54 |B):.B.1.1:.:.:PT|
00001B80: B2 30 3A 81 41 B2 32 A4 31 30 3A 53 52 24 28 41 |.0:.A.2.10:SR$(A|
00001B90: 29 B2 53 43 24 28 41 29 00 C3 23 C2 0B 82 3A 81 |).SC$(A)..#...:.|
00001BA0: 41 B2 32 A4 31 30 3A 8B C3 28 53 52 24 28 41 29 |A.2.10:..(SR$(A)|
00001BB0: 29 B3 B1 30 A7 81 41 B2 31 A4 31 3A 82 3A 89 33 |)..0..A.1.1:.:.3|
00001BC0: 30 34 30 00 00 24 CC 0B 82 3A 99 22 13 11 11 11 |040..$...:."....|
00001BD0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001BE0: 11 11 C5 D2 D2 CF D2 3A 20 D3 45 41 52 43 48 20 |.......: .EARCH |
00001BF0: 4B 45 59 20 4E 4F 54 20 46 4F 55 4E 44 2E 13 22 |KEY NOT FOUND.."|
00001C00: 00 10 24 D6 0B 8D 31 37 32 30 3A 89 32 33 39 30 |..$...1720:.2390|
00001C10: 00 3D 24 E0 0B 8D 31 37 32 30 3A 81 41 B2 32 A4 |.=$...1720:.A.2.|
00001C20: 31 30 3A 8B C3 28 53 52 24 28 41 29 29 B2 30 A7 |10:..(SR$(A)).0.|
00001C30: 82 3A 8D 31 36 32 30 3A 89 33 30 36 30 00 73 24 |.:.1620:.3060.s$|
00001C40: EA 0B 53 43 24 28 41 29 B2 22 12 22 AA C8 28 53 |..SC$(A)."."..(S|
00001C50: 52 24 28 41 29 AA 42 4C 24 28 41 29 2C C3 28 42 |R$(A).BL$(A),.(B|
00001C60: 4C 24 28 41 29 29 29 AA 22 92 22 3A 82 3A 8D 31 |L$(A))).".":.:.1|
00001C70: 36 32 30 00 AD 24 F4 0B 9F 38 2C 44 49 2C 38 2C |620..$...8,DI,8,|
00001C80: 22 30 3A 4E 45 58 54 22 3A 84 38 2C 4D 58 24 3A |"0:NEXT":.8,MX$:|
00001C90: A0 38 3A 9F 38 2C 44 49 2C 38 2C 22 30 3A 4C 49 |.8:.8,DI,8,"0:LI|
00001CA0: 53 54 22 3A 9F 31 35 2C 44 49 2C 31 35 00 C3 24 |ST":.15,DI,15..$|
00001CB0: FE 0B 8D 31 39 39 30 3A 8B 44 53 B1 31 39 A7 31 |...1990:.DS.19.1|
00001CC0: 39 34 30 00 02 25 08 0C 50 54 B2 50 54 AA 31 3A |940..%..PT.PT.1:|
00001CD0: 8B 50 54 B1 C5 28 4D 58 24 29 A7 41 24 B2 22 45 |.PT..(MX$).A$."E|
00001CE0: 22 3A 42 4D 24 B2 22 20 20 44 4F 4E 45 20 20 22 |":BM$." DONE "|
00001CF0: 3A 8D 31 35 39 30 3A 8D 31 37 32 30 3A 89 33 31 |:.1590:.1720:.31|
00001D00: 35 30 00 20 25 12 0C A1 41 24 3A 8B 41 24 B3 B1 |50. %...A$:.A$..|
00001D10: 22 22 A7 8B C6 28 41 24 29 B2 33 A7 33 31 39 30 |""...(A$).3.3190|
00001D20: 00 53 25 1C 0C 53 43 24 28 31 29 B2 C9 28 22 20 |.S%..SC$(1)..(" |
00001D30: 20 22 AA C4 28 50 54 29 2C 33 29 3A 8D 31 38 36 | "..(PT),3):.186|
00001D40: 30 3A 8D 31 39 39 30 3A 8B 44 53 B1 31 39 A7 31 |0:.1990:.DS.19.1|
00001D50: 39 34 30 00 7A 25 26 0C 8D 31 37 37 30 3A 81 41 |940.z%&..1770:.A|
00001D60: B2 32 A4 31 30 3A 8B C3 28 53 52 24 28 41 29 29 |.2.10:..(SR$(A))|
00001D70: B2 30 A7 82 3A 89 33 30 38 30 00 A3 25 30 0C 8B |.0..:.3080..%0..|
00001D80: 53 52 24 28 41 29 B3 B1 C8 28 53 43 24 28 41 29 |SR$(A)...(SC$(A)|
00001D90: 2C C3 28 53 52 24 28 41 29 29 29 A7 82 3A 89 33 |,.(SR$(A)))..:.3|
00001DA0: 30 38 30 00 DE 25 3A 0C 8D 31 36 32 30 3A 42 4D |080..%:..1620:BM|
00001DB0: 24 B2 22 27 C3 27 4F 4E 54 49 4E 55 45 20 2D 2D |$."'.'ONTINUE --|
00001DC0: 20 27 C5 27 4E 44 22 3A 8D 31 35 39 30 3A 97 31 | '.'ND":.1590:.1|
00001DD0: 39 38 2C 30 3A 92 31 39 38 2C 31 3A 26 42 00 FC |98,0:.198,1:&B..|
00001DE0: 25 44 0C A1 41 24 3A 8B 41 24 B3 B1 22 43 22 AF |%D..A$:.A$.."C".|
00001DF0: 41 24 B3 B1 22 45 22 A7 33 31 33 30 00 0E 26 4E |A$.."E".3130..&N|
00001E00: 0C 8B 41 24 B3 B1 22 45 22 A7 33 31 37 30 00 39 |..A$.."E".3170.9|
00001E10: 26 58 0C A0 38 3A A0 31 35 3A 81 41 B2 32 A4 31 |&X..8:.15:.A.2.1|
00001E20: 30 3A 53 52 24 28 41 29 B2 22 22 3A 82 3A 8D 31 |0:SR$(A)."":.:.1|
00001E30: 36 32 30 3A 89 32 39 36 30 00 66 26 62 0C 8D 31 |620:.2960.f&b..1|
00001E40: 37 32 30 3A 81 41 B2 32 A4 31 30 3A 8B C3 28 53 |720:.A.2.10:..(S|
00001E50: 52 24 28 41 29 29 B2 30 A7 82 3A 8D 31 36 32 30 |R$(A)).0..:.1620|
00001E60: 3A 89 33 30 38 30 00 A2 26 6C 0C 53 43 24 28 41 |:.3080..&l.SC$(A|
00001E70: 29 B2 22 12 22 AA C8 28 53 52 24 28 41 29 AA 42 |)."."..(SR$(A).B|
00001E80: 4C 24 28 41 29 2C C3 28 42 4C 24 28 41 29 29 29 |L$(A),.(BL$(A)))|
00001E90: AA 22 92 22 3A 82 3A 8D 31 36 32 30 3A 89 33 30 |.".":.:.1620:.30|
00001EA0: 38 30 00 C7 26 76 0C A0 38 3A A0 31 35 3A 81 41 |80..&v..8:.15:.A|
00001EB0: B2 32 A4 31 30 3A 53 52 24 28 41 29 B2 22 22 3A |.2.10:SR$(A)."":|
00001EC0: 82 3A 8D 31 37 32 30 00 08 27 80 0C 99 22 13 11 |.:.1720..'..."..|
00001ED0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001EE0: 11 11 11 11 D7 C1 D2 CE C9 CE C7 3A 20 CA 4F 42 |...........: .OB|
00001EF0: 20 4F 50 54 49 4F 4E 20 43 41 4E 43 45 4C 45 44 | OPTION CANCELED|
00001F00: 20 44 55 45 20 54 4F 22 00 31 27 8A 0C 99 A6 39 | DUE TO".1'....9|
00001F10: 29 22 4F 50 45 52 41 54 4F 52 20 49 4E 54 45 52 |)"OPERATOR INTER|
00001F20: 56 45 4E 54 49 4F 4E 2E 13 22 3A 89 32 33 39 30 |VENTION..":.2390|
00001F30: 2E 00 37 27 94 0C 3A 00 3D 27 9E 0C 3A 00 54 27 |..7'..:.='..:.T'|
00001F40: A8 0C 8F 22 20 D2 4F 55 54 49 4E 45 20 46 4F 52 |..." .OUTINE FOR|
00001F50: 20 C1 CC D4 00 63 27 B2 0C 8B 53 49 B2 30 A7 33 | ....c'...SI.0.3|
00001F60: 32 39 30 00 89 27 BC 0C 53 49 B2 30 3A 8D 31 35 |290..'..SI.0:.15|
00001F70: 39 30 3A 26 45 28 32 29 3A 8B 53 54 B1 30 AF 53 |90:&E(2):.ST.0.S|
00001F80: 54 B3 31 30 A7 32 34 35 30 00 C0 27 C6 0C 8D 31 |T.10.2450..'...1|
00001F90: 38 33 30 3A 9F 38 2C 44 49 2C 38 2C 22 30 3A 4C |830:.8,DI,8,"0:L|
00001FA0: 49 53 54 22 3A 9F 31 35 2C 44 49 2C 31 35 3A 8D |IST":.15,DI,15:.|
00001FB0: 31 39 39 30 3A 8B 44 53 B1 31 39 A7 31 39 34 30 |1990:.DS.19.1940|
00001FC0: 00 E4 27 D0 0C 52 52 B2 49 44 3A 8D 31 39 30 30 |..'..RR.ID:.1900|
00001FD0: 3A 98 38 2C 52 31 24 3A A0 38 3A A0 31 35 3A 89 |:.8,R1$:.8:.15:.|
00001FE0: 32 33 38 30 00 2A 28 DA 0C 99 22 13 11 11 11 11 |2380.*(...".....|
00001FF0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00002000: 11 C5 D2 D2 CF D2 3A 20 C4 D3 D0 20 4D 55 53 54 |......: ... MUST|
00002010: 20 42 45 20 45 58 45 43 55 54 45 44 20 42 45 46 | BE EXECUTED BEF|
00002020: 4F 52 45 20 C1 CC D4 2E 13 22 00 34 28 E4 0C 89 |ORE .....".4(...|
00002030: 32 33 39 30 00 3A 28 EE 0C 3A 00 40 28 F8 0C 3A |2390.:(..:.@(..:|
00002040: 00 57 28 02 0D 8F 22 20 D2 4F 55 54 49 4E 45 20 |.W(..." .OUTINE |
00002050: 46 4F 52 20 C4 C5 CC 00 86 28 0C 0D 53 49 B2 30 |FOR .....(..SI.0|
00002060: 3A 41 24 B2 53 43 24 28 30 29 3A 8D 31 37 32 30 |:A$.SC$(0):.1720|
00002070: 3A 53 43 24 28 30 29 B2 41 24 3A 8D 31 36 32 30 |:SC$(0).A$:.1620|
00002080: 3A 8D 31 35 39 30 00 A2 28 16 0D 3A 26 46 28 31 |:.1590..(..:&F(1|
00002090: 29 3A 8B 53 54 B1 30 AF 53 54 B3 31 30 A7 32 34 |):.ST.0.ST.10.24|
000020A0: 35 30 00 C5 28 20 0D 49 44 B2 C5 28 53 43 24 28 |50..( .ID..(SC$(|
000020B0: 31 29 29 3A 8B 49 44 B3 31 B0 49 44 B1 37 30 30 |1)):.ID.1.ID.700|
000020C0: A7 32 39 34 30 00 F6 28 2A 0D 9F 38 2C 44 49 2C |.2940..(*..8,DI,|
000020D0: 38 2C 22 30 3A 4C 49 53 54 22 3A 9F 31 35 2C 44 |8,"0:LIST":.15,D|
000020E0: 49 2C 31 35 3A 8D 31 39 39 30 3A 8B 44 53 B1 31 |I,15:.1990:.DS.1|
000020F0: 39 A7 31 39 34 30 00 1B 29 34 0D 8D 31 38 36 30 |9.1940..)4..1860|
00002100: 3A A0 38 3A A0 31 35 3A 8B C8 28 52 31 24 2C 32 |:.8:.15:..(R1$,2|
00002110: 29 B2 22 23 23 22 A7 32 39 34 30 00 51 29 3E 0D |)."##".2940.Q)>.|
00002120: 8D 31 37 37 30 3A 8D 31 36 32 30 3A 42 4D 24 B2 |.1770:.1620:BM$.|
00002130: 22 D0 52 45 53 53 20 D3 D0 C1 C3 C5 20 C2 C1 D2 |".RESS ..... ...|
00002140: 20 54 4F 20 56 45 52 49 46 59 20 46 49 4C 45 2E | TO VERIFY FILE.|
00002150: 22 00 7B 29 48 0D 8D 31 35 39 30 3A 97 31 39 38 |".{)H..1590:.198|
00002160: 2C 30 3A 92 31 39 38 2C 31 3A A1 41 24 3A 8B 41 |,0:.198,1:.A$:.A|
00002170: 24 B3 B1 22 20 22 A7 32 33 38 30 00 B5 29 52 0D |$.." ".2380..)R.|
00002180: 3A 26 42 3A 52 31 24 B2 22 22 3A 81 41 B2 31 A4 |:&B:R1$."":.A.1.|
00002190: 31 38 34 3A 52 31 24 B2 52 31 24 AA 22 23 22 3A |184:R1$.R1$."#":|
000021A0: 82 3A 9F 38 2C 44 49 2C 38 2C 22 30 3A 54 41 42 |.:.8,DI,8,"0:TAB|
000021B0: 4C 45 2C 41 22 00 E0 29 5C 0D 98 38 2C C4 28 49 |LE,A"..)\..8,.(I|
000021C0: 44 29 3A A0 38 3A 9F 38 2C 44 49 2C 38 2C 22 30 |D):.8:.8,DI,8,"0|
000021D0: 3A 4C 49 53 54 22 3A 9F 31 35 2C 44 49 2C 31 35 |:LIST":.15,DI,15|
000021E0: 00 F6 29 66 0D 8D 31 39 39 30 3A 8B 44 53 B1 31 |..)f..1990:.DS.1|
000021F0: 39 A7 31 39 34 30 00 1A 2A 70 0D 52 52 B2 49 44 |9.1940..*p.RR.ID|
00002200: 3A 8D 31 39 30 30 3A 98 38 2C 52 31 24 3A A0 38 |:.1900:.8,R1$:.8|
00002210: 3A A0 31 35 3A 89 32 33 38 30 00 20 2A 7A 0D 3A |:.15:.2380. *z.:|
00002220: 00 26 2A 84 0D 3A 00 3D 2A 8E 0D 8F 22 20 D2 4F |.&*..:.=*..." .O|
00002230: 55 54 49 4E 45 20 46 4F 52 20 C9 CE D4 00 6C 2A |UTINE FOR ....l*|
00002240: 98 0D 50 4F 24 B2 53 43 24 28 30 29 3A 42 4D 24 |..PO$.SC$(0):BM$|
00002250: B2 22 D0 52 45 53 53 20 C6 31 20 54 4F 20 41 42 |.".RESS .1 TO AB|
00002260: 4F 52 54 20 4F 50 54 49 4F 4E 2E 22 00 B1 2A A2 |ORT OPTION."..*.|
00002270: 0D 53 49 B2 30 3A 99 22 13 11 11 11 11 11 11 11 |.SI.0:."........|
00002280: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 D7 C1 |................|
00002290: D2 CE C9 CE C7 3A 20 D0 4C 41 43 45 20 C2 CC C1 |.....: .LACE ...|
000022A0: CE CB 20 44 49 53 4B 45 54 54 45 20 49 4E 54 4F |.. DISKETTE INTO|
000022B0: 22 00 D4 2A AC 0D 99 A6 39 29 22 44 52 49 56 45 |"..*....9)"DRIVE|
000022C0: 20 41 4E 44 20 50 52 45 53 53 20 D2 C5 D4 D5 D2 | AND PRESS .....|
000022D0: CE 2E 13 22 00 F3 2A B6 0D 8D 31 35 39 30 3A 97 |..."..*...1590:.|
000022E0: 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A A1 41 24 |198,0:.198,1:.A$|
000022F0: 3A 26 42 00 07 2B C0 0D 8B C6 28 41 24 29 B2 31 |:&B..+....(A$).1|
00002300: 33 33 A7 32 33 38 30 00 1B 2B CA 0D 8B C6 28 41 |33.2380..+....(A|
00002310: 24 29 B3 B1 31 33 A7 33 34 39 30 00 4D 2B D4 0D |$)..13.3490.M+..|
00002320: 9F 38 2C 44 49 2C 38 2C 22 30 3A 4E 4E 4E 4E 22 |.8,DI,8,"0:NNNN"|
00002330: 3A 9F 31 35 2C 44 49 2C 31 35 3A 8D 31 39 39 30 |:.15,DI,15:.1990|
00002340: 3A 8B 44 53 B3 B1 36 32 A7 33 36 31 30 00 90 2B |:.DS..62.3610..+|
00002350: DE 0D 99 22 13 11 11 11 11 11 11 11 11 11 11 11 |..."............|
00002360: 11 11 11 11 11 11 11 11 11 11 D7 C1 D2 CE C9 CE |................|
00002370: C7 3A 20 C1 20 53 55 43 53 45 53 46 55 4C 20 41 |.: . SUCSESFUL A|
00002380: 54 54 45 4D 50 54 20 48 41 53 20 42 45 45 4E 22 |TTEMPT HAS BEEN"|
00002390: 00 C1 2B E8 0D 99 22 4D 41 44 45 20 54 4F 20 52 |..+..."MADE TO R|
000023A0: 45 41 44 20 54 48 45 20 44 49 53 4B 2E 20 20 C1 |EAD THE DISK. .|
000023B0: 52 45 20 59 4F 55 20 53 55 52 45 20 20 20 20 22 |RE YOU SURE "|
000023C0: 3B 00 ED 2B F2 0D 99 22 59 4F 55 20 57 49 53 48 |;..+..."YOU WISH|
000023D0: 20 54 4F 20 46 4F 52 4D 41 54 20 54 48 45 20 44 | TO FORMAT THE D|
000023E0: 49 53 4B 3F 13 22 3A A0 38 3A A0 31 35 00 0C 2C |ISK?.":.8:.15..,|
000023F0: FC 0D 8D 31 35 39 30 3A 97 31 39 38 2C 30 3A 92 |...1590:.198,0:.|
00002400: 31 39 38 2C 31 3A A1 41 24 3A 26 42 00 27 2C 06 |198,1:.A$:&B.',.|
00002410: 0E 8B 41 24 B2 22 4E 22 B0 C6 28 41 24 29 B2 31 |..A$."N"..(A$).1|
00002420: 33 33 A7 32 33 38 30 00 39 2C 10 0E 8B 41 24 B3 |33.2380.9,...A$.|
00002430: B1 22 59 22 A7 33 35 35 30 00 4E 2C 1A 0E A0 38 |."Y".3550.N,...8|
00002440: 3A A0 31 35 3A 9F 31 35 2C 44 49 2C 31 35 00 69 |:.15:.15,DI,15.i|
00002450: 2C 24 0E 8D 31 37 32 30 3A 53 43 24 28 30 29 B2 |,$..1720:SC$(0).|
00002460: 50 4F 24 3A 8D 31 36 32 30 00 AA 2C 2E 0E 99 22 |PO$:.1620..,..."|
00002470: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00002480: 11 11 11 11 11 11 C3 4F 4D 50 4C 45 54 49 4F 4E |.......OMPLETION|
00002490: 20 4F 46 20 54 48 49 53 20 4F 50 54 49 4F 4E 20 | OF THIS OPTION |
000024A0: 57 49 4C 4C 20 54 41 4B 45 22 00 CC 2C 38 0E 99 |WILL TAKE"..,8..|
000024B0: 22 41 50 50 52 4F 58 49 4D 41 54 45 4C 59 20 31 |"APPROXIMATELY 1|
000024C0: 30 20 4D 49 4E 55 54 45 53 2E 13 22 00 FF 2C 42 |0 MINUTES.."..,B|
000024D0: 0E 98 31 35 2C 22 4E 30 3A C5 41 53 59 CD 41 49 |..15,"N0:.ASY.AI|
000024E0: 4C 20 22 AA 44 54 24 AA 22 2C 39 39 22 3A 8D 31 |L ".DT$.",99":.1|
000024F0: 39 39 30 3A 8B 44 53 B3 B1 30 A7 31 39 34 30 00 |990:.DS..0.1940.|
00002500: 39 2D 4C 0E 9F 38 2C 44 49 2C 38 2C 22 30 3A 4E |9-L..8,DI,8,"0:N|
00002510: 45 58 54 2C 53 2C 57 22 3A 98 38 2C 22 31 20 22 |EXT,S,W":.8,"1 "|
00002520: 3A A0 38 3A 9F 38 2C 44 49 2C 38 2C 22 30 3A 54 |:.8:.8,DI,8,"0:T|
00002530: 41 42 4C 45 2C 53 2C 57 22 00 6E 2D 56 0E 98 38 |ABLE,S,W".n-V..8|
00002540: 2C 22 2A 2A 46 49 4C 4C 45 52 2A 2A 22 3A A0 38 |,"**FILLER**":.8|
00002550: 3A 52 31 24 B2 22 22 3A 81 41 B2 31 A4 31 38 34 |:R1$."":.A.1.184|
00002560: 3A 52 31 24 B2 52 31 24 AA 22 23 22 3A 82 00 97 |:R1$.R1$."#":...|
00002570: 2D 60 0E 9F 38 2C 44 49 2C 38 2C 22 30 3A 4C 49 |-`..8,DI,8,"0:LI|
00002580: 53 54 2C 4C 22 AA C7 28 31 38 35 29 AA 22 2C 22 |ST,L"..(185).","|
00002590: AA C7 28 31 38 35 29 00 AF 2D 6A 0E 52 52 B2 37 |..(185)..-j.RR.7|
000025A0: 30 30 3A 8D 31 39 30 30 3A 98 38 2C 52 31 24 00 |00:.1900:.8,R1$.|
000025B0: DD 2D 74 0E 52 52 B2 31 3A 8D 31 39 30 30 3A 81 |.-t.RR.1:.1900:.|
000025C0: 41 B2 31 A4 37 30 30 3A 98 38 2C 52 31 24 3A 82 |A.1.700:.8,R1$:.|
000025D0: 3A A0 38 3A A0 31 35 3A 89 32 33 38 30 00 E3 2D |:.8:.15:.2380..-|
000025E0: 7E 0E 3A 00 E9 2D 88 0E 3A 00 00 2E 92 0E 8F 22 |~.:..-..:......"|
000025F0: 20 D2 4F 55 54 49 4E 45 20 46 4F 52 20 C4 D3 CB | .OUTINE FOR ...|
00002600: 00 3B 2E 9C 0E 9F 31 35 2C 44 49 2C 31 35 3A 8D |.;....15,DI,15:.|
00002610: 31 39 39 30 3A 99 22 13 11 11 11 11 11 11 11 11 |1990:.".........|
00002620: 11 11 11 11 11 11 11 11 11 11 11 11 11 C4 52 49 |..............RI|
00002630: 56 45 20 D3 54 41 54 55 53 3A 22 00 68 2E A6 0E |VE .TATUS:".h...|
00002640: 99 44 53 24 22 13 22 3A 42 4D 24 B2 22 D0 52 45 |.DS$".":BM$.".RE|
00002650: 53 53 20 D3 D4 CF D0 20 46 4F 52 20 48 45 4C 50 |SS .... FOR HELP|
00002660: 2E 22 3A 8D 31 35 39 30 00 84 2E B0 0E A0 31 35 |.":.1590......15|
00002670: 3A 9F 31 35 2C 44 49 2C 31 35 3A A0 31 35 3A 89 |:.15,DI,15:.15:.|
00002680: 32 33 39 30 00 8A 2E BA 0E 3A 00 90 2E C4 0E 3A |2390.....:.....:|
00002690: 00 A7 2E CE 0E 8F 22 20 D2 4F 55 54 49 4E 45 20 |......" .OUTINE |
000026A0: 46 4F 52 20 CC D3 D4 00 D2 2E D8 0E 53 49 B2 30 |FOR ........SI.0|
000026B0: 3A 50 4F 24 B2 53 43 24 28 30 29 3A 8D 31 37 32 |:PO$.SC$(0):.172|
000026C0: 30 3A 53 43 24 28 30 29 B2 50 4F 24 3A 8D 31 36 |0:SC$(0).PO$:.16|
000026D0: 32 30 00 FC 2E E2 0E 42 4D 24 B2 22 D0 52 45 53 |20.....BM$.".RES|
000026E0: 53 20 C6 31 20 54 4F 20 41 42 4F 52 54 20 4F 50 |S .1 TO ABORT OP|
000026F0: 54 49 4F 4E 2E 22 3A 8D 31 35 39 30 00 42 2F EC |TION.":.1590.B/.|
00002700: 0E 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |..".............|
00002710: 11 11 11 11 11 11 11 11 11 C4 4F 20 59 4F 55 20 |..........O YOU |
00002720: 57 49 53 48 20 54 4F 20 55 53 45 20 50 41 54 54 |WISH TO USE PATT|
00002730: 45 52 4E 20 4D 41 54 43 48 20 28 59 2F 4E 29 3F |ERN MATCH (Y/N)?|
00002740: 13 22 00 79 2F F6 0E 97 31 39 38 2C 30 3A 92 31 |.".y/...198,0:.1|
00002750: 39 38 2C 31 3A A1 41 24 3A 8B 41 24 B3 B1 22 59 |98,1:.A$:.A$.."Y|
00002760: 22 AF 41 24 B3 B1 22 4E 22 AF C6 28 41 24 29 B3 |".A$.."N"..(A$).|
00002770: B1 31 33 33 A7 33 38 33 30 00 8D 2F 00 0F 8B C6 |.133.3830../....|
00002780: 28 41 24 29 B2 31 33 33 A7 32 33 38 30 00 AB 2F |(A$).133.2380../|
00002790: 0A 0F 8B 41 24 B2 22 4E 22 A7 50 4D 24 B2 22 22 |...A$."N".PM$.""|
000027A0: 3A 50 4D B2 30 3A 89 33 39 34 30 00 D5 2F 14 0F |:PM.0:.3940../..|
000027B0: 8D 31 37 32 30 3A 53 43 24 28 30 29 B2 22 2A 2A |.1720:SC$(0)."**|
000027C0: 2A 22 3A 53 43 24 28 31 29 B2 22 2A 2A 2A 22 3A |*":SC$(1)."***":|
000027D0: 8D 31 36 32 30 00 01 30 1E 0F 42 4D 24 B2 22 D0 |.1620..0..BM$.".|
000027E0: 52 45 53 53 20 D3 D4 CF D0 20 54 4F 20 41 42 4F |RESS .... TO ABO|
000027F0: 52 54 20 4F 50 54 49 4F 4E 2E 22 3A 8D 31 35 39 |RT OPTION.":.159|
00002800: 30 00 3D 30 28 0F 99 22 13 11 11 11 11 11 11 11 |0.=0(.."........|
00002810: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 D0 4C |...............L|
00002820: 45 41 53 45 20 53 45 4C 45 43 54 20 4D 41 54 43 |EASE SELECT MATC|
00002830: 48 49 4E 47 20 46 49 45 4C 44 2E 13 22 00 59 30 |HING FIELD..".Y0|
00002840: 32 0F 3A 26 45 28 32 29 3A 8B 53 54 B1 30 AF 53 |2.:&E(2):.ST.0.S|
00002850: 54 B3 31 30 A7 32 33 38 30 00 7C 30 3C 0F 81 41 |T.10.2380.|0<..A|
00002860: B2 32 A4 31 30 3A 8B 53 43 24 28 41 29 B2 42 4C |.2.10:.SC$(A).BL|
00002870: 24 28 41 29 A7 82 3A 89 33 39 33 30 00 A7 30 46 |$(A)..:.3930..0F|
00002880: 0F 81 42 B2 C3 28 53 43 24 28 41 29 29 A4 31 A9 |..B..(SC$(A)).1.|
00002890: AB 31 3A 8B CA 28 53 43 24 28 41 29 2C 42 2C 31 |.1:..(SC$(A),B,1|
000028A0: 29 B2 22 20 22 A7 82 00 D8 30 50 0F 50 4D 24 B2 |)." "....0P.PM$.|
000028B0: C8 28 53 43 24 28 41 29 2C 42 29 3A 50 4D B2 41 |.(SC$(A),B):PM.A|
000028C0: 3A 81 42 B2 31 A4 31 3A 82 3A 81 41 B2 31 A4 31 |:.B.1.1:.:.A.1.1|
000028D0: 3A 82 3A 89 33 39 34 30 00 20 31 5A 0F 99 22 13 |:.:.3940. 1Z..".|
000028E0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000028F0: 11 11 11 11 11 C5 D2 D2 CF D2 3A 20 D0 41 54 54 |..........: .ATT|
00002900: 45 52 4E 20 4D 41 54 43 48 20 4B 45 59 20 4E 4F |ERN MATCH KEY NO|
00002910: 54 20 46 4F 55 4E 44 2E 13 22 3A 89 33 38 39 30 |T FOUND..":.3890|
00002920: 00 61 31 64 0F 8D 31 37 32 30 3A 53 43 24 28 30 |.a1d..1720:SC$(0|
00002930: 29 B2 50 4F 24 3A 8D 31 36 32 30 3A 42 4D 24 B2 |).PO$:.1620:BM$.|
00002940: 22 D0 52 45 53 53 20 C6 31 20 54 4F 20 41 42 4F |".RESS .1 TO ABO|
00002950: 52 54 20 4F 50 54 49 4F 4E 2E 22 3A 8D 31 35 39 |RT OPTION.":.159|
00002960: 30 00 A8 31 6E 0F 99 22 13 11 11 11 11 11 11 11 |0..1n.."........|
00002970: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 C4 4F |...............O|
00002980: 20 59 4F 55 20 57 49 53 48 20 54 4F 20 53 4F 52 | YOU WISH TO SOR|
00002990: 54 20 54 48 45 20 46 49 4C 45 20 28 59 2F 4E 29 |T THE FILE (Y/N)|
000029A0: 3F 20 20 20 20 20 13 22 00 DF 31 78 0F 97 31 39 |? ."..1x..19|
000029B0: 38 2C 30 3A 92 31 39 38 2C 31 3A A1 41 24 3A 8B |8,0:.198,1:.A$:.|
000029C0: 41 24 B3 B1 22 59 22 AF 41 24 B3 B1 22 4E 22 AF |A$.."Y".A$.."N".|
000029D0: C6 28 41 24 29 B3 B1 31 33 33 A7 33 39 36 30 00 |.(A$)..133.3960.|
000029E0: F3 31 82 0F 8B C6 28 41 24 29 B2 31 33 33 A7 32 |.1....(A$).133.2|
000029F0: 33 38 30 00 25 32 8C 0F 8D 31 36 32 30 3A 9F 38 |380.%2...1620:.8|
00002A00: 2C 44 49 2C 38 2C 22 30 3A 4E 45 58 54 22 3A 84 |,DI,8,"0:NEXT":.|
00002A10: 38 2C 4D 58 24 3A A0 38 3A 8B 41 24 B2 22 59 22 |8,MX$:.8:.A$."Y"|
00002A20: A7 34 31 30 30 00 66 32 96 0F 99 22 13 11 11 11 |.4100.f2..."....|
00002A30: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00002A40: 11 11 C3 C1 D5 D4 C9 CF CE 3A 20 D0 52 45 53 53 |.........: .RESS|
00002A50: 20 C6 31 20 54 4F 20 41 42 4F 52 54 20 4F 50 54 | .1 TO ABORT OPT|
00002A60: 49 4F 4E 2E 13 22 00 9D 32 A0 0F 8D 32 30 33 30 |ION.."..2...2030|
00002A70: 3A 9F 38 2C 44 49 2C 38 2C 22 30 3A 4C 49 53 54 |:.8,DI,8,"0:LIST|
00002A80: 22 3A 9F 31 35 2C 44 49 2C 31 35 3A 8D 31 39 39 |":.15,DI,15:.199|
00002A90: 30 3A 8B 44 53 B1 31 39 A7 31 39 34 30 00 C6 32 |0:.DS.19.1940..2|
00002AA0: AA 0F 81 52 50 B2 31 A4 C5 28 4D 58 24 29 AB 31 |...RP.1..(MX$).1|
00002AB0: 3A 53 43 24 28 31 29 B2 C9 28 22 20 22 AA C4 28 |:SC$(1)..(" "..(|
00002AC0: 52 50 29 2C 33 29 00 E5 32 B4 0F 8D 31 38 36 30 |RP),3)..2...1860|
00002AD0: 3A 8B C8 28 52 31 24 2C 33 29 B2 22 23 23 23 22 |:..(R1$,3)."###"|
00002AE0: A7 34 30 36 30 00 FA 32 BE 0F 8D 31 37 37 30 3A |.4060..2...1770:|
00002AF0: 8B 50 4D B2 30 A7 34 30 35 30 00 1B 33 C8 0F 8B |.PM.0.4050..3...|
00002B00: C8 28 53 43 24 28 50 4D 29 2C C3 28 50 4D 24 29 |.(SC$(PM),.(PM$)|
00002B10: 29 B3 B1 50 4D 24 A7 34 30 36 30 00 41 33 D2 0F |)..PM$.4060.A3..|
00002B20: 8D 32 31 30 30 3A A1 41 24 3A 8B 41 24 B3 B1 22 |.2100:.A$:.A$.."|
00002B30: 22 A7 8B C6 28 41 24 29 B2 31 33 33 A7 34 30 39 |"...(A$).133.409|
00002B40: 30 00 5E 33 DC 0F A1 41 24 3A 8B 41 24 B3 B1 22 |0.^3...A$:.A$.."|
00002B50: 22 A7 8B 41 24 B2 22 85 22 A7 34 30 39 30 00 72 |"..A$.".".4090.r|
00002B60: 33 E6 0F 82 3A 81 41 B2 4C 4E A4 36 34 3A 98 34 |3...:.A.LN.64:.4|
00002B70: 3A 82 00 86 33 F0 0F A0 34 3A A0 38 3A A0 31 35 |:...3...4:.8:.15|
00002B80: 3A 89 32 33 38 30 00 BB 33 FA 0F 42 4D 24 B2 22 |:.2380..3..BM$."|
00002B90: CF 50 54 49 4F 4E 20 C3 41 4E 43 45 4C 45 44 22 |.PTION .ANCELED"|
00002BA0: 3A 8D 31 35 39 30 3A 81 52 50 B2 4C 4E A4 36 35 |:.1590:.RP.LN.65|
00002BB0: 3A 98 34 3A 82 3A 89 34 30 38 30 00 E7 33 04 10 |:.4:.:.4080..3..|
00002BC0: 8D 31 37 32 30 3A 53 43 24 28 30 29 B2 22 2A 2A |.1720:SC$(0)."**|
00002BD0: 2A 22 3A 53 43 24 28 31 29 B2 22 2A 2A 2A 22 3A |*":SC$(1)."***":|
00002BE0: 81 41 B2 32 A4 31 30 00 1A 34 0E 10 53 43 24 28 |.A.2.10..4..SC$(|
00002BF0: 41 29 B2 C9 28 C4 28 41 29 2C 31 29 AA C9 28 53 |A)..(.(A),1)..(S|
00002C00: 43 24 28 41 29 2C C3 28 53 43 24 28 41 29 29 AB |C$(A),.(SC$(A)).|
00002C10: 31 29 3A 82 3A 8D 31 36 32 30 00 44 34 18 10 42 |1):.:.1620.D4..B|
00002C20: 4D 24 B2 22 D0 52 45 53 53 20 C6 31 20 54 4F 20 |M$.".RESS .1 TO |
00002C30: 41 42 4F 52 54 20 4F 50 54 49 4F 4E 2E 22 3A 8D |ABORT OPTION.":.|
00002C40: 31 35 39 30 00 7C 34 22 10 99 22 13 11 11 11 11 |1590.|4"..".....|
00002C50: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00002C60: 11 D0 4C 45 41 53 45 20 53 45 4C 45 43 54 20 53 |..LEASE SELECT S|
00002C70: 4F 52 54 20 46 49 45 4C 44 2E 13 22 00 B0 34 2C |ORT FIELD.."..4,|
00002C80: 10 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A A1 |..198,0:.198,1:.|
00002C90: 41 24 3A 8B 28 41 24 B3 22 30 22 B0 41 24 B1 22 |A$:.(A$."0".A$."|
00002CA0: 39 22 29 AF 41 24 B3 B1 22 85 22 A7 34 31 34 30 |9").A$..".".4140|
00002CB0: 00 C1 34 36 10 8B 41 24 B2 22 85 22 A7 32 33 38 |..46..A$.".".238|
00002CC0: 30 00 D2 34 40 10 8B 41 24 B2 22 31 22 A7 34 31 |0..4@..A$."1".41|
00002CD0: 34 30 00 E6 34 4A 10 8B 41 24 B2 22 30 22 A7 41 |40..4J..A$."0".A|
00002CE0: 24 B2 22 31 30 22 00 0A 35 54 10 53 50 B2 C5 28 |$."10"..5T.SP..(|
00002CF0: 41 24 29 3A 8D 31 37 32 30 3A 53 43 24 28 30 29 |A$):.1720:SC$(0)|
00002D00: B2 50 4F 24 3A 8D 31 36 32 30 00 4B 35 5E 10 99 |.PO$:.1620.K5^..|
00002D10: 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |"...............|
00002D20: 11 11 11 11 11 11 11 C3 C1 D5 D4 C9 CF CE 3A 20 |..............: |
00002D30: D0 52 45 53 53 20 C6 31 20 54 4F 20 41 42 4F 52 |.RESS .1 TO ABOR|
00002D40: 54 20 4F 50 54 49 4F 4E 2E 13 22 00 7C 35 68 10 |T OPTION..".|5h.|
00002D50: 9F 38 2C 44 49 2C 38 2C 22 30 3A 4C 49 53 54 22 |.8,DI,8,"0:LIST"|
00002D60: 3A 9F 31 35 2C 44 49 2C 31 35 3A 8D 31 39 39 30 |:.15,DI,15:.1990|
00002D70: 3A 8B 44 53 B1 31 39 A7 31 39 34 30 00 AA 35 72 |:.DS.19.1940..5r|
00002D80: 10 52 4E B2 31 3A 81 52 50 B2 31 A4 C5 28 4D 58 |.RN.1:.RP.1..(MX|
00002D90: 24 29 AB 31 3A 53 43 24 28 31 29 B2 C9 28 22 20 |$).1:SC$(1)..(" |
00002DA0: 22 AA C4 28 52 50 29 2C 33 29 00 C6 35 7C 10 8D |"..(RP),3)..5|..|
00002DB0: 31 38 36 30 3A 8D 31 39 39 30 3A 8B 44 53 B1 31 |1860:.1990:.DS.1|
00002DC0: 39 A7 31 39 34 30 00 EC 35 86 10 8D 31 37 37 30 |9.1940..5...1770|
00002DD0: 3A A1 41 24 3A 8B 41 24 B3 B1 22 22 A7 8B C6 28 |:.A$:.A$..""...(|
00002DE0: 41 24 29 B2 31 33 33 A7 34 32 38 30 00 FB 35 90 |A$).133.4280..5.|
00002DF0: 10 8B 50 4D B2 30 A7 34 32 36 30 00 1C 36 9A 10 |..PM.0.4260..6..|
00002E00: 8B C8 28 53 43 24 28 50 4D 29 2C C3 28 50 4D 24 |..(SC$(PM),.(PM$|
00002E10: 29 29 B3 B1 50 4D 24 A7 34 32 37 30 00 3F 36 A4 |))..PM$.4270.?6.|
00002E20: 10 4D 54 24 28 52 4E 29 B2 53 43 24 28 31 29 AA |.MT$(RN).SC$(1).|
00002E30: 53 43 24 28 53 50 29 3A 52 4E B2 52 4E AA 31 00 |SC$(SP):RN.RN.1.|
00002E40: 51 36 AE 10 82 3A 8D 32 30 33 30 3A 89 34 32 39 |Q6...:.2030:.429|
00002E50: 30 00 81 36 B8 10 42 4D 24 B2 22 CF 50 54 49 4F |0..6..BM$.".PTIO|
00002E60: 4E 20 C3 41 4E 43 45 4C 45 44 22 3A 8D 31 35 39 |N .ANCELED":.159|
00002E70: 30 3A 81 52 50 B2 31 A4 31 3A 82 3A 89 34 30 38 |0:.RP.1.1:.:.408|
00002E80: 30 00 C0 36 C2 10 42 52 24 B2 22 39 39 39 DA DA |0..6..BR$."999..|
00002E90: DA DA DA DA DA DA DA DA DA DA DA DA DA DA DA DA |................|
00002EA0: DA DA DA DA DA DA DA DA DA DA DA DA 22 3A 81 41 |............":.A|
00002EB0: 41 B2 31 A4 52 4E AB 31 3A 43 4B 24 B2 42 52 24 |A.1.RN.1:CK$.BR$|
00002EC0: 00 EB 36 CC 10 81 42 42 B2 31 A4 52 4E AB 31 3A |..6...BB.1.RN.1:|
00002ED0: A1 41 24 3A 8B 41 24 B3 B1 22 22 A7 8B C6 28 41 |.A$:.A$..""...(A|
00002EE0: 24 29 B2 31 33 33 A7 34 30 39 30 00 2A 37 D6 10 |$).133.4090.*7..|
00002EF0: 8B C9 28 4D 54 24 28 42 42 29 2C C3 28 53 43 24 |..(MT$(BB),.(SC$|
00002F00: 28 53 50 29 29 29 B3 C9 28 43 4B 24 2C C3 28 53 |(SP)))..(CK$,.(S|
00002F10: 43 24 28 53 50 29 29 29 A7 43 43 B2 42 42 3A 43 |C$(SP))).CC.BB:C|
00002F20: 4B 24 B2 4D 54 24 28 42 42 29 00 57 37 E0 10 82 |K$.MT$(BB).W7...|
00002F30: 3A 53 43 24 28 31 29 B2 C8 28 4D 54 24 28 43 43 |:SC$(1)..(MT$(CC|
00002F40: 29 2C 33 29 3A 8B 53 43 24 28 31 29 B2 22 39 39 |),3):.SC$(1)."99|
00002F50: 39 22 A7 34 33 35 30 00 76 37 EA 10 8D 31 38 36 |9".4350.v7...186|
00002F60: 30 3A 8B C8 28 52 31 24 2C 33 29 B2 22 23 23 23 |0:..(R1$,3)."###|
00002F70: 22 A7 34 33 35 30 00 A2 37 F4 10 8D 31 37 37 30 |".4350..7...1770|
00002F80: 3A 8D 32 31 30 30 3A A1 41 24 3A 8B 41 24 B3 B1 |:.2100:.A$:.A$..|
00002F90: 22 22 A7 8B C6 28 41 24 29 B2 31 33 33 A7 34 30 |""...(A$).133.40|
00002FA0: 39 30 00 C2 37 FE 10 4D 54 24 28 43 43 29 B2 42 |90..7..MT$(CC).B|
00002FB0: 52 24 3A 82 3A 81 41 B2 4C 4E A4 36 34 3A 98 34 |R$:.:.A.LN.64:.4|
00002FC0: 3A 82 00 D6 37 08 11 A0 34 3A A0 38 3A A0 31 35 |:...7...4:.8:.15|
00002FD0: 3A 89 32 33 38 30 00 DC 37 12 11 3A 00 E2 37 1C |:.2380..7..:..7.|
00002FE0: 11 3A 00 F9 37 26 11 8F 22 20 D2 4F 55 54 49 4E |.:..7&.." .OUTIN|
00002FF0: 45 20 46 4F 52 20 D0 D2 D4 00 24 38 30 11 53 49 |E FOR ....$80.SI|
00003000: B2 30 3A 50 4F 24 B2 53 43 24 28 30 29 3A 8D 31 |.0:PO$.SC$(0):.1|
00003010: 37 32 30 3A 53 43 24 28 30 29 B2 50 4F 24 3A 8D |720:SC$(0).PO$:.|
00003020: 31 36 32 30 00 48 38 3A 11 42 4D 24 B2 22 D0 52 |1620.H8:.BM$.".R|
00003030: 45 53 53 20 C6 31 20 54 4F 20 41 42 4F 52 54 20 |ESS .1 TO ABORT |
00003040: 4F 50 54 49 4F 4E 2E 22 00 8B 38 44 11 53 49 B2 |OPTION."..8D.SI.|
00003050: 30 3A 99 22 13 11 11 11 11 11 11 11 11 11 11 11 |0:."............|
00003060: 11 11 11 11 11 11 11 11 11 11 D0 4C 41 43 45 20 |...........LACE |
00003070: 50 52 4F 50 45 52 20 46 4F 52 4D 53 20 49 4E 54 |PROPER FORMS INT|
00003080: 4F 20 50 52 49 4E 54 45 52 2E 22 00 B4 38 4E 11 |O PRINTER."..8N.|
00003090: 99 22 41 4E 44 20 50 52 45 53 53 20 D3 D0 C1 C3 |."AND PRESS ....|
000030A0: C5 20 C2 C1 D2 20 54 4F 20 43 4F 4E 54 49 4E 55 |. ... TO CONTINU|
000030B0: 45 2E 13 22 00 E0 38 58 11 8D 31 35 39 30 3A 97 |E.."..8X..1590:.|
000030C0: 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A A1 41 24 |198,0:.198,1:.A$|
000030D0: 3A 8B C6 28 41 24 29 B2 31 33 33 A7 32 33 38 30 |:..(A$).133.2380|
000030E0: 00 F4 38 62 11 8B C6 28 41 24 29 B3 B1 33 32 A7 |..8b...(A$)..32.|
000030F0: 34 34 32 30 00 0F 39 6C 11 8D 31 37 32 30 3A 53 |4420..9l..1720:S|
00003100: 43 24 28 30 29 B2 50 4F 24 3A 8D 31 36 32 30 00 |C$(0).PO$:.1620.|
00003110: 39 39 76 11 42 4D 24 B2 22 D0 52 45 53 53 20 C6 |99v.BM$.".RESS .|
00003120: 31 20 54 4F 20 41 42 4F 52 54 20 4F 50 54 49 4F |1 TO ABORT OPTIO|
00003130: 4E 2E 22 3A 8D 31 35 39 30 00 7F 39 80 11 99 22 |N.":.1590..9..."|
00003140: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00003150: 11 11 11 11 11 11 C4 4F 20 59 4F 55 20 57 49 53 |.......O YOU WIS|
00003160: 48 20 54 4F 20 55 53 45 20 50 41 54 54 45 52 4E |H TO USE PATTERN|
00003170: 20 4D 41 54 43 48 20 28 59 2F 4E 29 3F 13 22 00 | MATCH (Y/N)?.".|
00003180: B6 39 8A 11 97 31 39 38 2C 30 3A 92 31 39 38 2C |.9...198,0:.198,|
00003190: 31 3A A1 41 24 3A 8B 41 24 B3 B1 22 59 22 AF 41 |1:.A$:.A$.."Y".A|
000031A0: 24 B3 B1 22 4E 22 AF C6 28 41 24 29 B3 B1 31 33 |$.."N"..(A$)..13|
000031B0: 33 A7 34 34 39 30 00 CA 39 94 11 8B C6 28 41 24 |3.4490..9....(A$|
000031C0: 29 B2 31 33 33 A7 32 33 38 30 00 E8 39 9E 11 8B |).133.2380..9...|
000031D0: 41 24 B2 22 4E 22 A7 50 4D 24 B2 22 22 3A 50 4D |A$."N".PM$."":PM|
000031E0: B2 30 3A 89 34 36 30 30 00 12 3A A8 11 8D 31 37 |.0:.4600..:...17|
000031F0: 32 30 3A 53 43 24 28 30 29 B2 22 2A 2A 2A 22 3A |20:SC$(0)."***":|
00003200: 53 43 24 28 31 29 B2 22 2A 2A 2A 22 3A 8D 31 36 |SC$(1)."***":.16|
00003210: 32 30 00 3E 3A B2 11 42 4D 24 B2 22 D0 52 45 53 |20.>:..BM$.".RES|
00003220: 53 20 D3 D4 CF D0 20 54 4F 20 41 42 4F 52 54 20 |S .... TO ABORT |
00003230: 4F 50 54 49 4F 4E 2E 22 3A 8D 31 35 39 30 00 7A |OPTION.":.1590.z|
00003240: 3A BC 11 99 22 13 11 11 11 11 11 11 11 11 11 11 |:..."...........|
00003250: 11 11 11 11 11 11 11 11 11 11 11 D0 4C 45 41 53 |............LEAS|
00003260: 45 20 53 45 4C 45 43 54 20 4D 41 54 43 48 49 4E |E SELECT MATCHIN|
00003270: 47 20 46 49 45 4C 44 2E 13 22 00 96 3A C6 11 3A |G FIELD.."..:..:|
00003280: 26 45 28 32 29 3A 8B 53 54 B1 30 AF 53 54 B3 31 |&E(2):.ST.0.ST.1|
00003290: 30 A7 32 33 38 30 00 B9 3A D0 11 81 41 B2 32 A4 |0.2380..:...A.2.|
000032A0: 31 30 3A 8B 53 43 24 28 41 29 B2 42 4C 24 28 41 |10:.SC$(A).BL$(A|
000032B0: 29 A7 82 3A 89 34 35 39 30 00 E4 3A DA 11 81 42 |)..:.4590..:...B|
000032C0: B2 C3 28 53 43 24 28 41 29 29 A4 31 A9 AB 31 3A |..(SC$(A)).1..1:|
000032D0: 8B CA 28 53 43 24 28 41 29 2C 42 2C 31 29 B2 22 |..(SC$(A),B,1)."|
000032E0: 20 22 A7 82 00 15 3B E4 11 50 4D 24 B2 C8 28 53 | "....;..PM$..(S|
000032F0: 43 24 28 41 29 2C 42 29 3A 50 4D B2 41 3A 81 42 |C$(A),B):PM.A:.B|
00003300: B2 31 A4 31 3A 82 3A 81 41 B2 31 A4 31 3A 82 3A |.1.1:.:.A.1.1:.:|
00003310: 89 34 36 30 30 00 5D 3B EE 11 99 22 13 11 11 11 |.4600.];..."....|
00003320: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00003330: 11 11 C5 D2 D2 CF D2 3A 20 D0 41 54 54 45 52 4E |.......: .ATTERN|
00003340: 20 4D 41 54 43 48 20 4B 45 59 20 4E 4F 54 20 46 | MATCH KEY NOT F|
00003350: 4F 55 4E 44 2E 13 22 3A 89 33 38 39 30 00 9E 3B |OUND..":.3890..;|
00003360: F8 11 8D 31 37 32 30 3A 53 43 24 28 30 29 B2 50 |...1720:SC$(0).P|
00003370: 4F 24 3A 8D 31 36 32 30 3A 42 4D 24 B2 22 D0 52 |O$:.1620:BM$.".R|
00003380: 45 53 53 20 C6 31 20 54 4F 20 41 42 4F 52 54 20 |ESS .1 TO ABORT |
00003390: 4F 50 54 49 4F 4E 2E 22 3A 8D 31 35 39 30 00 E5 |OPTION.":.1590..|
000033A0: 3B 02 12 99 22 13 11 11 11 11 11 11 11 11 11 11 |;..."...........|
000033B0: 11 11 11 11 11 11 11 11 11 11 11 C4 4F 20 59 4F |............O YO|
000033C0: 55 20 57 49 53 48 20 54 4F 20 53 4F 52 54 20 54 |U WISH TO SORT T|
000033D0: 48 45 20 46 49 4C 45 20 28 59 2F 4E 29 3F 20 20 |HE FILE (Y/N)? |
000033E0: 20 20 20 13 22 00 14 3C 0C 12 8D 31 35 39 30 3A | ."..<...1590:|
000033F0: 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A A1 41 |.198,0:.198,1:.A|
00003400: 24 3A 26 42 3A 8B C6 28 41 24 29 B2 31 33 33 A7 |$:&B:..(A$).133.|
00003410: 32 33 38 30 00 2E 3C 16 12 8B 41 24 B3 B1 22 4E |2380..<...A$.."N|
00003420: 22 AF 41 24 B3 B1 22 59 22 A7 34 35 36 30 00 44 |".A$.."Y".4560.D|
00003430: 3C 20 12 53 50 B2 30 3A 8B 41 24 B2 22 4E 22 A7 |< .SP.0:.A$."N".|
00003440: 34 37 32 30 00 70 3C 2A 12 8D 31 37 32 30 3A 53 |4720.p<*..1720:S|
00003450: 43 24 28 30 29 B2 22 2A 2A 2A 22 3A 53 43 24 28 |C$(0)."***":SC$(|
00003460: 31 29 B2 22 2A 2A 2A 22 3A 81 41 B2 32 A4 31 30 |1)."***":.A.2.10|
00003470: 00 A3 3C 34 12 53 43 24 28 41 29 B2 C9 28 C4 28 |..<4.SC$(A)..(.(|
00003480: 41 29 2C 31 29 AA C9 28 53 43 24 28 41 29 2C C3 |A),1)..(SC$(A),.|
00003490: 28 53 43 24 28 41 29 29 AB 31 29 3A 82 3A 8D 31 |(SC$(A)).1):.:.1|
000034A0: 36 32 30 00 E1 3C 3E 12 99 22 13 11 11 11 11 11 |620..<>.."......|
000034B0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000034C0: D0 4C 45 41 53 45 20 53 45 4C 45 43 54 20 53 4F |.LEASE SELECT SO|
000034D0: 52 54 20 46 49 45 4C 44 2E 13 22 3A 8D 31 35 39 |RT FIELD..":.159|
000034E0: 30 00 18 3D 48 12 97 31 39 38 2C 30 3A 92 31 39 |0..=H..198,0:.19|
000034F0: 38 2C 31 3A A1 41 24 3A 8B 28 41 24 B3 22 30 22 |8,1:.A$:.(A$."0"|
00003500: B0 41 24 B1 22 39 22 29 AF C6 28 41 24 29 B3 B1 |.A$."9")..(A$)..|
00003510: 31 33 33 A7 34 36 38 30 00 30 3D 52 12 53 50 B2 |133.4680.0=R.SP.|
00003520: C5 28 41 24 29 3A 8B 53 50 B2 31 A7 34 36 38 30 |.(A$):.SP.1.4680|
00003530: 00 40 3D 5C 12 8B 53 50 B2 30 A7 53 50 B2 31 30 |.@=\..SP.0.SP.10|
00003540: 00 51 3D 66 12 8B 41 24 B2 22 85 22 A7 32 33 38 |.Q=f..A$.".".238|
00003550: 30 00 6C 3D 70 12 8D 31 37 32 30 3A 53 43 24 28 |0.l=p..1720:SC$(|
00003560: 30 29 B2 50 4F 24 3A 8D 31 36 32 30 00 B0 3D 7A |0).PO$:.1620..=z|
00003570: 12 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |..".............|
00003580: 11 11 11 11 11 11 11 11 11 C8 4F 57 20 4D 41 4E |..........OW MAN|
00003590: 59 20 4C 41 42 45 4C 53 20 41 52 45 20 41 43 52 |Y LABELS ARE ACR|
000035A0: 4F 53 53 20 59 4F 55 52 20 50 41 47 45 3F 13 22 |OSS YOUR PAGE?."|
000035B0: 00 DF 3D 84 12 8D 31 35 39 30 3A 97 31 39 38 2C |..=...1590:.198,|
000035C0: 30 3A 92 31 39 38 2C 31 3A A1 41 24 3A 26 42 3A |0:.198,1:.A$:&B:|
000035D0: 8B C6 28 41 24 29 B2 31 33 33 A7 32 33 38 30 00 |..(A$).133.2380.|
000035E0: FC 3D 8E 12 4C 41 B2 C5 28 41 24 29 3A 8B 4C 41 |.=..LA..(A$):.LA|
000035F0: B3 31 B0 4C 41 B1 32 A7 34 37 34 30 00 17 3E 98 |.1.LA.2.4740..>.|
00003600: 12 8D 31 37 32 30 3A 53 43 24 28 30 29 B2 50 4F |..1720:SC$(0).PO|
00003610: 24 3A 8D 31 36 32 30 00 5A 3E A2 12 99 22 13 11 |$:.1620.Z>..."..|
00003620: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00003630: 11 11 11 11 C4 4F 20 59 4F 55 20 57 49 53 48 20 |.....O YOU WISH |
00003640: 54 4F 20 41 4C 49 47 4E 20 4C 41 42 45 4C 53 20 |TO ALIGN LABELS |
00003650: 28 59 2F 4E 29 3F 20 20 20 22 00 74 3E AC 12 99 |(Y/N)? ".t>...|
00003660: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00003670: 20 20 13 22 00 A3 3E B6 12 8D 31 35 39 30 3A 97 | ."..>...1590:.|
00003680: 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A A1 41 24 |198,0:.198,1:.A$|
00003690: 3A 26 42 3A 8B C6 28 41 24 29 B2 31 33 33 A7 32 |:&B:..(A$).133.2|
000036A0: 33 38 30 00 B4 3E C0 12 8B 41 24 B2 22 4E 22 A7 |380..>...A$."N".|
000036B0: 34 38 37 30 00 CF 3E CA 12 8D 31 37 32 30 3A 53 |4870..>...1720:S|
000036C0: 43 24 28 30 29 B2 50 4F 24 3A 8D 31 36 32 30 00 |C$(0).PO$:.1620.|
000036D0: 11 3F D4 12 99 22 13 11 11 11 11 11 11 11 11 11 |.?..."..........|
000036E0: 11 11 11 11 11 11 11 11 11 11 11 11 C9 46 20 54 |.............F T|
000036F0: 48 45 20 50 52 49 4E 54 45 52 20 49 53 20 52 45 |HE PRINTER IS RE|
00003700: 41 44 59 2C 20 50 52 45 53 53 20 D3 D0 C1 C3 C5 |ADY, PRESS .....|
00003710: 22 00 3F 3F DE 12 99 22 20 C2 C1 D2 20 54 4F 20 |".??..." ... TO |
00003720: 43 4F 4E 54 49 4E 55 45 2E 13 22 3A 8D 31 35 39 |CONTINUE..":.159|
00003730: 30 3A 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 00 |0:.198,0:.198,1.|
00003740: 64 3F E8 12 3A 26 42 3A A1 41 24 3A 8B 41 24 B3 |d?..:&B:.A$:.A$.|
00003750: B1 22 20 22 AF C6 28 41 24 29 B3 B1 31 33 33 A7 |." "..(A$)..133.|
00003760: 34 38 31 30 00 78 3F F2 12 8B C6 28 41 24 29 B2 |4810.x?....(A$).|
00003770: 31 33 33 A7 32 33 38 30 00 88 3F FC 12 8D 32 32 |133.2380..?...22|
00003780: 31 30 3A 89 34 37 36 30 00 A3 3F 06 13 8D 31 37 |10:.4760..?...17|
00003790: 32 30 3A 53 43 24 28 30 29 B2 50 4F 24 3A 8D 31 |20:SC$(0).PO$:.1|
000037A0: 36 32 30 00 E4 3F 10 13 99 22 13 11 11 11 11 11 |620..?..."......|
000037B0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000037C0: C3 C1 D5 D4 C9 CF CE 3A 20 D0 52 45 53 53 20 C6 |.......: .RESS .|
000037D0: 31 20 54 4F 20 41 42 4F 52 54 20 4F 50 54 49 4F |1 TO ABORT OPTIO|
000037E0: 4E 2E 13 22 00 07 40 1A 13 3A 26 42 3A 9F 38 2C |N.."..@..:&B:.8,|
000037F0: 44 49 2C 38 2C 22 30 3A 4E 45 58 54 22 3A 84 38 |DI,8,"0:NEXT":.8|
00003800: 2C 4D 58 24 3A A0 38 00 3A 40 24 13 9F 34 2C 50 |,MX$:.8.:@$..4,P|
00003810: 52 2C 37 3A 9F 38 2C 44 49 2C 38 2C 22 30 3A 4C |R,7:.8,DI,8,"0:L|
00003820: 49 53 54 22 3A 9F 31 35 2C 44 49 2C 31 35 3A 8B |IST":.15,DI,15:.|
00003830: 53 50 B3 B1 30 A7 35 30 30 30 00 50 40 2E 13 8D |SP..0.5000.P@...|
00003840: 31 39 39 30 3A 8B 44 53 B1 31 39 A7 31 39 34 30 |1990:.DS.19.1940|
00003850: 00 7F 40 38 13 81 52 50 B2 31 A4 C5 28 4D 58 24 |..@8..RP.1..(MX$|
00003860: 29 AB 31 3A 53 43 24 28 31 29 B2 C9 28 22 20 22 |).1:SC$(1)..(" "|
00003870: AA C4 28 52 50 29 2C 33 29 3A 8D 31 38 36 30 00 |..(RP),3):.1860.|
00003880: 95 40 42 13 8D 31 39 39 30 3A 8B 44 53 B1 31 39 |.@B..1990:.DS.19|
00003890: A7 31 39 34 30 00 AE 40 4C 13 8B C8 28 52 31 24 |.1940..@L...(R1$|
000038A0: 2C 33 29 B2 22 23 23 23 22 A7 34 39 38 30 00 C3 |,3)."###".4980..|
000038B0: 40 56 13 8D 31 37 37 30 3A 8B 50 4D B2 30 A7 34 |@V..1770:.PM.0.4|
000038C0: 39 37 30 00 E4 40 60 13 8B C8 28 53 43 24 28 50 |970..@`...(SC$(P|
000038D0: 4D 29 2C C3 28 50 4D 24 29 29 B3 B1 50 4D 24 A7 |M),.(PM$))..PM$.|
000038E0: 34 39 38 30 00 EE 40 6A 13 8D 32 33 30 30 00 06 |4980..@j..2300..|
000038F0: 41 74 13 82 3A 8B 4C 53 B2 31 A7 8D 31 37 32 30 |At..:.LS.1..1720|
00003900: 3A 8D 32 33 30 30 00 26 41 7E 13 81 41 B2 31 A4 |:.2300.&A~..A.1.|
00003910: 38 3A 98 34 3A 82 3A A0 34 3A A0 38 3A A0 31 35 |8:.4:.:.4:.8:.15|
00003920: 3A 89 32 33 38 30 00 54 41 88 13 4E 52 B2 31 3A |:.2380.TA..NR.1:|
00003930: 81 52 50 B2 31 A4 C5 28 4D 58 24 29 AB 31 3A 53 |.RP.1..(MX$).1:S|
00003940: 43 24 28 31 29 B2 C9 28 22 20 22 AA C4 28 52 50 |C$(1)..(" "..(RP|
00003950: 29 2C 33 29 00 7E 41 92 13 8D 31 38 36 30 3A 8D |),3).~A...1860:.|
00003960: 31 37 37 30 3A A1 41 24 3A 8B 41 24 B3 B1 22 22 |1770:.A$:.A$..""|
00003970: A7 8B C6 28 41 24 29 B2 33 A7 35 30 36 30 00 8D |...(A$).3.5060..|
00003980: 41 9C 13 8B 50 4D B2 30 A7 35 30 34 30 00 AE 41 |A...PM.0.5040..A|
00003990: A6 13 8B C8 28 53 43 24 28 50 4D 29 2C C3 28 50 |....(SC$(PM),.(P|
000039A0: 4D 24 29 29 B3 B1 50 4D 24 A7 35 30 35 30 00 D1 |M$))..PM$.5050..|
000039B0: 41 B0 13 4D 54 24 28 4E 52 29 B2 53 43 24 28 31 |A..MT$(NR).SC$(1|
000039C0: 29 AA 53 43 24 28 53 50 29 3A 4E 52 B2 4E 52 AA |).SC$(SP):NR.NR.|
000039D0: 31 00 DD 41 BA 13 82 3A 89 35 30 37 30 00 0D 42 |1..A...:.5070..B|
000039E0: C4 13 42 4D 24 B2 22 CF 50 54 49 4F 4E 20 C3 41 |..BM$.".PTION .A|
000039F0: 4E 43 45 4C 45 44 22 3A 8D 31 35 39 30 3A 81 52 |NCELED":.1590:.R|
00003A00: 50 B2 31 A4 31 3A 82 3A 89 34 30 38 30 00 4C 42 |P.1.1:.:.4080.LB|
00003A10: CE 13 42 52 24 B2 22 39 39 39 DA DA DA DA DA DA |..BR$."999......|
00003A20: DA DA DA DA DA DA DA DA DA DA DA DA DA DA DA DA |................|
00003A30: DA DA DA DA DA DA DA DA 22 3A 81 41 41 B2 31 A4 |........":.AA.1.|
00003A40: 4E 52 AB 31 3A 43 4B 24 B2 42 52 24 00 75 42 D8 |NR.1:CK$.BR$.uB.|
00003A50: 13 81 42 42 B2 31 A4 4E 52 AB 31 3A A1 41 24 3A |..BB.1.NR.1:.A$:|
00003A60: 8B 41 24 B3 B1 22 22 A7 8B C6 28 41 24 29 B2 33 |.A$..""...(A$).3|
00003A70: A7 35 31 33 30 00 B4 42 E2 13 8B C9 28 4D 54 24 |.5130..B....(MT$|
00003A80: 28 42 42 29 2C C3 28 53 43 24 28 53 50 29 29 29 |(BB),.(SC$(SP)))|
00003A90: B3 C9 28 43 4B 24 2C C3 28 53 43 24 28 53 50 29 |..(CK$,.(SC$(SP)|
00003AA0: 29 29 A7 43 43 B2 42 42 3A 43 4B 24 B2 4D 54 24 |)).CC.BB:CK$.MT$|
00003AB0: 28 42 42 29 00 E9 42 EC 13 82 3A 53 43 24 28 31 |(BB)..B...:SC$(1|
00003AC0: 29 B2 C8 28 4D 54 24 28 43 43 29 2C 33 29 3A 8D |)..(MT$(CC),3):.|
00003AD0: 31 38 36 30 3A 8B C8 28 52 31 24 2C 33 29 B2 22 |1860:..(R1$,3)."|
00003AE0: 23 23 23 22 A7 35 31 32 30 00 13 43 F6 13 8D 31 |###".5120..C...1|
00003AF0: 37 37 30 3A 8D 32 33 30 30 3A A1 41 24 3A 8B 41 |770:.2300:.A$:.A|
00003B00: 24 B3 B1 22 22 A7 8B C6 28 41 24 29 B2 33 A7 35 |$..""...(A$).3.5|
00003B10: 31 33 30 00 29 43 00 14 4D 54 24 28 43 43 29 B2 |130.)C..MT$(CC).|
00003B20: 42 52 24 3A 89 34 39 38 30 00 63 43 0A 14 42 4D |BR$:.4980.cC..BM|
00003B30: 24 B2 22 CF 50 54 49 4F 4E 20 C3 41 4E 43 45 4C |$.".PTION .ANCEL|
00003B40: 45 44 22 3A 8D 31 35 39 30 3A 81 41 41 B2 31 A4 |ED":.1590:.AA.1.|
00003B50: 31 3A 82 3A 81 42 42 B2 31 A4 31 3A 82 3A 89 34 |1:.:.BB.1.1:.:.4|
00003B60: 39 39 30 00 69 43 14 14 3A 00 6F 43 1E 14 3A 00 |990.iC..:.oC..:.|
00003B70: 86 43 28 14 80 3A 4F 46 3A 45 41 53 59 3A 4D 41 |.C(..:OF:EASY:MA|
00003B80: 49 4C 3A 56 36 34 00 9C 43 32 14 9F 31 2C 31 30 |IL:V64..C2..1,10|
00003B90: 2C 31 35 3A 84 31 2C 41 24 2C 42 24 00 00 00 FF |,15:.1,A$,B$....|
.......1160.1..."***********************
*********.W..."* EASY MAIL V64
*.}..."* (C)1982
*....."* COMMODORE BUSINESS MACHINES
*.I..."*
*...$."* DATE WRITTEN: 03/09/82 *.
...."* AUTHOR : MICHAEL SCHAFF *.;.
8."* *.A.B.
"* CONFIGURATION: *...L."*
COMPUTER: COMMODORE 64 *...V."*
DISK : VIC 1541 *.S.`."*
PRINTER : VIC 1525 *...J."*
*...T."*********
***********************.%.~.:.U....B(491
53).19.B(49162).198.B(49163).104.1190...
..."....LOAD"G(34)"EDITOR64"G(34)",8,1..
.......SYS49152."......198,3:.631,13:.63
2,13:.633,131:......."....":&S:PR.4:DI.8
:BG.5:BR.13:CC.0:CM$."NEWDSPALTDELINTPRT
LSTDSK".E...:&C,"...":MD$."DSP":.MT$(700
):X$." ".U.
...".":TM$."COMMODORE EASY MAIL V64":&B:
.1560...D..".... PRESS:":..10)".F1 -
BACKGROUND COLOR"...N...10)".F3 - BORDER
COLOR":..10)".F5 - CHARACTER COLOR"...X
...10)".F7 - COLOR BAR":..10)".F8 - EXIT
"./...BM$."SELECT COLORS":.1590.R....198
,0:.198,1:.A$:.A$.".".1510.C....A$.".".1
470.T....A$.".".1490......A$.".".1501...
...A$..".".1210.....CC.CC.1:.CC.15.CC.0.
.....CC.1320,1330,1340,1350,1360,1370,13
80,1390,1400,1410,1420,1430,1440,1450...
..CC$.".":.1460.!.(.CC$.".":.1460.3.2.CC
$.".":.1460.E.<.CC$.".":.1460.W.F.CC$.".
":.1460.I.P.CC$.".":.1460.{.Z.CC$.".":.1
460...D.CC$.".":.1460...N.CC$.".":.1460.
..X.CC$.".":.1460.C...CC$.".":.1460.U...
CC$.".":.1460.....CC$.".":.1460... .CC$.
".":.1460.....CC$.".":.1460.(....49312,F
(CC$):.CC$:.1210.@...BG.BG.1:.BG.15.BG.0
.J.H..1500.B.R.BR.BR.1:.BR.15.BR.0......
53280,BG:.53281,BR:.1210......".";:.5328
0,0:.53281,0......A.1.20:.".. .
. . . . . . ";..
....:.A.1.3:.".. .
. ";.5....". ";:.:.".";:.
198,0.I....A$:.A$."".1506.U....:.1190...
...".":TM$."COMMODORE EASYMAIL 64":&B:.1
560.E...."............".9)"TODAYS DATE [
/ / ]":SC$(0)." "."".....BM$."E
NTER DATE AS MM/DD/YY.":.1590.....:&F:DT
$.SC$(0):.2380.....:.:...." ROUTINE FOR
DISPLAYING TOP STATUS LINE.B.".:&T:.".."
.((40.C(TM$)).2))TM$"..":..H.,.:...6.."
ROUTINE FOR DISPLAYING BOTTOM STATUS LIN
E.X.@.:&B:.".........................".(
(40.C(BM$)).2))BM$"..":....J.:...T.." RO
UTINE FOR SCREEN #1.,.^..".":&B:&T:TM$."
COMMODORE EASYMAIL 64":.1560.\.H.."...
PROGRAM MODE EASYMAIL NUMBER"...R
.." <"SC$(0)">".17)"<"SC$(1)">":&L:.
.17)"NAME"...|.." <"SC$(2)">":..15)".
ADDRESS":.A.3.6......" <"SC$(A)">":.:
.". STATE/PROVINCE POSTAL CODE"
.).....8)"<"SC$(7)"> <"SC$(8)">
".[.....8)".PHONE".14)"CATEGORY":." <
"SC$(9)">";.V.....8)"<"SC$(10)">":&L:..|
...:......" ROUTINE FOR FILLING BL$() W/
NULL VALUES...B.BL$(0).MD$."":BL$(1)."
":.A.2.6:BL$(A).X$:.:BL$(7)." ".,.L.
BL$(8)." ":BL$(9)."
":BL$(10)." ".M.V..A.0.10:SC$(A).
BL$(A)."":.:..S...:......" ROUTINE FOR C
ONVERTING DATA FROM DISK TO SCREEN #1.J.
..SC$(2).H(R1$,30):SC$(3).J(R1$,31,30):S
C$(4).J(R1$,61,30).....SC$(5).J(R1$,91,3
0):SC$(6).J(R1$,121,30):SC$(7).J(R1$,151
,4).J...SC$(8).J(R1$,155,10):SC$(9).J(R1
$,165,12):SC$(10).I(R1$,8).P.....V...:..
.&.." ROUTINE FOR CONVERTING DATA FROM S
CREEN #1 TO DISK...0.R1$."":.A.2.10:R1$.
R1$.SC$(A):.:....:.:...D.." ROUTINE FOR
READING RECORDS FROM DISK INTO R1$. .N.R
R.E(SC$(1)):.1900:R1$."":.A.1.184:.#8,A$
.3.X.R1$.R1$.A$:.:..9.B.:.L.L.." ROUTINE
FOR COVERTING RR TO RECORD POSITION...V
.HI..(RR.256):LO.RR.HI.256:.15,"P"G(104)
G(LO)G(HI)G(0)...........:......" ROUTIN
E FOR DISPLAYING A DISK ERROR......"....
..................DRIVE STATUS:": 15:.15
,DI,15......DS$".": 1: 2: 4: 7.B... 8: 9
: 15:.2390.H...:.Z.F.." ROUTINE FOR READ
ING ERROR CHANNEL INTO DS$...P..15,EN$,E
D$,ES$,ET$:DS.E(EN$).C.Z.DS$.EN$.", ".ED
$.",".ES$.",".ET$:..I...:......" ROUTINE
FOR PRINTING PAGE HEADING W/OPEN......4
,PR,7:.4:.4,"EASYMAIL";.P....4," FILE LI
STING".42)"AS OF:"H(DT$,2)"/"J(DT$,3,2);
......4,"/"I(DT$,2):.4:.4,"EASYMAIL #
NAME";......4,"
ADDRESS & PHONE".Z. ..A.1.78:.4,"
=";:.:.4:.4:LN.6:....*.:...4.." ROUTINE
FOR PRINTING MAIL LISTING.,.>..LN..56..A
.LN.64:.4:.: 4:.2030.\.H..4," "SC$(1)
.9)SC$(2)" "SC$(3):LN.LN.1.Y.R..4,"".1
6)SC$(10);:.A.4.6...\..H(SC$(A),1)." ".H
(SC$(A),1)." ".2170...F..4,"".25)SC$(A):
LN.LN.1.N.P..4,"".24);...Z..:.4,"".25)SC
$(7)" "SC$(8)......4,"".49)SC$(9):.4....
.LN.LN.3:......:.7...." ROUTINE FOR LABE
L ALIGN.L...LS$(1)."---------------FIRST
LINE--------------".....LS$(2)."XXXXXXX
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX".....LS
$(8)."---------------LAST LINE---------
+----":.A.3.7:LS$(A).LS$(2)...J..:.4,PR,
7:.A.1.8. .T..4,LS$(A);:.LA.1..4:.:.2280
.4....4," "LS$(A):..@....4: 4:..F...:.F
...." ROUTINE FOR PRINT LABELS......LA.1
..A.2.6:.4,SC$(A):.:.4,SC$(7)" "SC$(8):
.2350.E....LS.0..A.2.8:LS$(A).SC$(A):.:L
S.1:.......A.2.6:.4,LS$(A).11)SC$(A):.:.
4,LS$(7)" "LS$(8);...$..4,"".25)SC$(7)"
"SC$(8):LS.0.-....4:.4:.4:..3.8.:.9.B.
:.\.L.SI.0:SC$(0).MD$."":.1720:.1620...V
.BM$."PRESS STOP FOR HELP.":.1590...`.:&
F:.ST.0.ST.10.2450...J..I.1.8:.J(CM$,I.3
.2,3)..SC$(0).....T..I.2590,2870,3240,33
30,3470,4390,3790,3730...~.." NEW DSP
ALT DEL INT PRT LST DSK._...."...
...................ERROR: INVALID PROGRA
M MODE..":.2390.T....".":&B:&T:.1560....
.."...... NEW - ENTER NEW NAME/ADDRESS T
O LIST".U....". DSP - DISPLAY NAME/ADDRE
SS FROM LIST"......". ALT - ALTER NAME/A
DDRESS ON LIST".,....". DEL - DELETE NAM
E/ADDRESS FROM LIST".\.D..". INT - INITI
ALIZE NEW NAME/ADDRESS DISK"...N..". PRT
- PRINT MAILING LABELS"...X..". LST - P
RINT NAME/ADDRESSES IN LIST".Z....". DSK
- DISPLAY THE STATUS OF THE DISK".....B
M$."PRESS SPACE BAR TO CONTINUE.":.1590:
.198,0.+....198,1:.A$:.A$.." ".2540.@...
.".":.1620:.2390.F...:.L...:.C...." ROUT
INE FOR NEW...(.SI.0:A$.SC$(0):.1720:SC$
(0).A$:.1620:.1590...2.:&E(2):.ST.0.ST.1
0.2450.P.<..A.1.7:.SC$(A).BL$(A)..:.2820
...F..A.1.1:....P..8,DI,8,"0:TABLE,S,R":
.8,A$:.8,ID$:.ST.66.2740.7.Z. 8:ID.E(ID$
):.8,DI,8,"0:TABLE,S,R"._.D..9,DI,9,"0:T
,S,W":.8,A$:.9,A$:.8,A$.R.N..8,A$:.ST.26
90...X..9,A$:.2670......ST.64..9,A$.....
8: 9.Z....15,DI,15,"S0:TABLE":.15,"C0:T
ABLE=0:T":.15,"S0:T":.1990... ..DS.19.19
40..... 15:.2780.( .. 8:.8,DI,8,"0:NEXT,
S,R":.8,ID$: 8:ID.E(ID$).9 ...ID.700.284
0.U H..15,DI,15,"S0:NEXT": 15.} R..8,DI,
8,"0:NEXT,S,W":A.ID.1:.8,A: 8.. ..SC$(1)
.I(" ".D(ID),3):.1830.O ...8,DI,8,"0:LI
ST":.15,DI,15:.1990:.DS.19.1940.. ..RR.I
D:.1900..!...8,R1$: 8: 15:.1720:.1620:.2
390.;!..."......................ERROR: I
NVALID FIELD DATA.".G!....7)"PLEASE FILL
IN ALL FIELDS..":.2390. !..."..........
............ERROR: FILE IS FULL..":.2390
..!".:..!,.:.C!6.." ROUTINE FOR DSP..!@.
SI.0:.1720:.1620:.1590:&F(1):.ST.0.ST.10
.2450.."J..SC$(1).BL$(1).2970.0"T.ID.E(S
C$(1)):.ID.1.ID.700.2940.A"^..8,DI,8,"0:
LIST":.15,DI,15:.1990:.DS.19.1940.}"H..1
860:.1990:.DS.19.1940.."R. 8: 15:.H(R1$,
4).."####"..1770:.1620:.2960.."|..".....
.................ERROR: INVALID EASYMAIL
NUMBER..".."...2390..#..SI.1:.2390.$#..
.1590:&E(2):.ST.0.ST.10.2450.B#...A.2.10
:.B.C(SC$(A)).1..1.[#...J(SC$(A),B,1)."
"....#..SC$(A).H(SC$(A),B):.B.1.1:.:.:PT
.0:.A.2.10:SR$(A).SC$(A).C#B..:.A.2.10:.
C(SR$(A))..0..A.1.1:.:.3040..$L..:."....
..................ERROR: SEARCH KEY NOT
FOUND.."..$V..1720:.2390.=$...1720:.A.2.
10:.C(SR$(A)).0..:.1620:.3060.S$..SC$(A)
.".".H(SR$(A).BL$(A),C(BL$(A))).".":.:.1
620..$...8,DI,8,"0:NEXT":.8,MX$: 8:.8,DI
,8,"0:LIST":.15,DI,15.C$...1990:.DS.19.1
940..%..PT.PT.1:.PT.E(MX$).A$."E":BM$."
DONE ":.1590:.1720:.3150. %...A$:.A$..
""..F(A$).3.3190.S%..SC$(1).I(" ".D(PT)
,3):.1860:.1990:.DS.19.1940.Z%&..1770:.A
.2.10:.C(SR$(A)).0..:.3080..%0..SR$(A)..
H(SC$(A),C(SR$(A)))..:.3080..%:..1620:BM
$."'C'ONTINUE -- 'E'ND":.1590:.198,0:.19
8,1:&B..%D..A$:.A$.."C".A$.."E".3130..&N
..A$.."E".3170.9&X. 8: 15:.A.2.10:SR$(A)
."":.:.1620:.2960.F&B..1720:.A.2.10:.C(S
R$(A)).0..:.1620:.3080..&L.SC$(A).".".H(
SR$(A).BL$(A),C(BL$(A))).".":.:.1620:.30
80.G&V. 8: 15:.A.2.10:SR$(A)."":.:.1720.
.'..."......................WARNING: JOB
OPTION CANCELED DUE TO".1'....9)"OPERAT
OR INTERVENTION..":.2390..7'..:.='..:.T'
..." ROUTINE FOR ALT.C'...SI.0.3290..'..
SI.0:.1590:&E(2):.ST.0.ST.10.2450..'F..1
830:.8,DI,8,"0:LIST":.15,DI,15:.1990:.DS
.19.1940..'P.RR.ID:.1900:.8,R1$: 8: 15:.
2380.*(Z.."......................ERROR:
DSP MUST BE EXECUTED BEFORE ALT..".4(...
2390.:(..:.@(..:.W(..." ROUTINE FOR DEL.
.(..SI.0:A$.SC$(0):.1720:SC$(0).A$:.1620
:.1590..(..:&F(1):.ST.0.ST.10.2450.E( .I
D.E(SC$(1)):.ID.1.ID.700.2940..(*..8,DI,
8,"0:LIST":.15,DI,15:.1990:.DS.19.1940..
)4..1860: 8: 15:.H(R1$,2)."##".2940.Q)>.
.1770:.1620:BM$."PRESS SPACE BAR TO VERI
FY FILE.".{)H..1590:.198,0:.198,1:.A$:.A
$.." ".2380..)R.:&B:R1$."":.A.1.184:R1$.
R1$."#":.:.8,DI,8,"0:TABLE,A"..)\..8,D(I
D): 8:.8,DI,8,"0:LIST":.15,DI,15..)F..19
90:.DS.19.1940..*P.RR.ID:.1900:.8,R1$: 8
: 15:.2380. *Z.:.&*..:.=*..." ROUTINE FO
R INT.L*..PO$.SC$(0):BM$."PRESS F1 TO AB
ORT OPTION."..*..SI.0:."................
......WARNING: PLACE BLANK DISKETTE INTO
".T*....9)"DRIVE AND PRESS RETURN.."..*.
..1590:.198,0:.198,1:.A$:&B..+...F(A$).1
33.2380..+J..F(A$)..13.3490.M+T..8,DI,8,
"0:NNNN":.15,DI,15:.1990:.DS..62.3610..+
..."......................WARNING: A SUC
SESFUL ATTEMPT HAS BEEN".A+..."MADE TO R
EAD THE DISK. ARE YOU SURE ";..+..."
YOU WISH TO FORMAT THE DISK?.": 8: 15..,
...1590:.198,0:.198,1:.A$:&B.',...A$."N"
.F(A$).133.2380.9,...A$.."Y".3550.N,.. 8
: 15:.15,DI,15.I,$..1720:SC$(0).PO$:.162
0..,..."......................COMPLETION
OF THIS OPTION WILL TAKE".L,8.."APPROXI
MATELY 10 MINUTES.."..,B..15,"N0:EASYMAI
L ".DT$.",99":.1990:.DS..0.1940.9-L..8,D
I,8,"0:NEXT,S,W":.8,"1 ": 8:.8,DI,8,"0:T
ABLE,S,W".N-V..8,"**FILLER**": 8:R1$."":
.A.1.184:R1$.R1$."#":...-`..8,DI,8,"0:LI
ST,L".G(185).",".G(185)..-J.RR.700:.1900
:.8,R1$..-T.RR.1:.1900:.A.1.700:.8,R1$:.
: 8: 15:.2380..-~.:..-..:......" ROUTINE
FOR DSK.;....15,DI,15:.1990:.".........
.............DRIVE STATUS:".H....DS$".":
BM$."PRESS STOP FOR HELP.":.1590..... 15
:.15,DI,15: 15:.2390.....:...D.:...N.."
ROUTINE FOR LST.R.X.SI.0:PO$.SC$(0):.172
0:SC$(0).PO$:.1620.....BM$."PRESS F1 TO
ABORT OPTION.":.1590.B/...".............
.........DO YOU WISH TO USE PATTERN MATC
H (Y/N)?.".Y/...198,0:.198,1:.A$:.A$.."Y
".A$.."N".F(A$)..133.3830../...F(A$).133
.2380../...A$."N".PM$."":PM.0:.3940.U/..
.1720:SC$(0)."***":SC$(1)."***":.1620..0
..BM$."PRESS STOP TO ABORT OPTION.":.159
0.=0(.."......................PLEASE SEL
ECT MATCHING FIELD..".Y02.:&E(2):.ST.0.S
T.10.2380.|0<..A.2.10:.SC$(A).BL$(A)..:.
3930..0F..B.C(SC$(A)).1..1:.J(SC$(A),B,1
)." "...X0P.PM$.H(SC$(A),B):PM.A:.B.1.1:
.:.A.1.1:.:.3940. 1Z..".................
.....ERROR: PATTERN MATCH KEY NOT FOUND.
.":.3890.A1D..1720:SC$(0).PO$:.1620:BM$.
"PRESS F1 TO ABORT OPTION.":.1590..1N.."
......................DO YOU WISH TO SOR
T THE FILE (Y/N)? ."..1X..198,0:.198
,1:.A$:.A$.."Y".A$.."N".F(A$)..133.3960.
.1...F(A$).133.2380.%2...1620:.8,DI,8,"0
:NEXT":.8,MX$: 8:.A$."Y".4100.F2..."....
..................CAUTION: PRESS F1 TO A
BORT OPTION.."..2 ..2030:.8,DI,8,"0:LIST
":.15,DI,15:.1990:.DS.19.1940.F2...RP.1.
E(MX$).1:SC$(1).I(" ".D(RP),3)..2...1860
:.H(R1$,3)."###".4060..2...1770:.PM.0.40
50..3H..H(SC$(PM),C(PM$))..PM$.4060.A3R.
.2100:.A$:.A$..""..F(A$).133.4090.^3...A
$:.A$..""..A$.".".4090.R3...:.A.LN.64:.4
:...3.. 4: 8: 15:.2380..3..BM$."OPTION C
ANCELED":.1590:.RP.LN.65:.4:.:.4080..3..
.1720:SC$(0)."***":SC$(1)."***":.A.2.10.
.4..SC$(A).I(D(A),1).I(SC$(A),C(SC$(A)).
1):.:.1620.D4..BM$."PRESS F1 TO ABORT OP
TION.":.1590.|4"..".....................
.PLEASE SELECT SORT FIELD.."..4,..198,0:
.198,1:.A$:.(A$."0".A$."9").A$..".".4140
.A46..A$.".".2380.R4@..A$."1".4140..4J..
A$."0".A$."10"..5T.SP.E(A$):.1720:SC$(0)
.PO$:.1620.K5^.."......................C
AUTION: PRESS F1 TO ABORT OPTION..".|5H.
.8,DI,8,"0:LIST":.15,DI,15:.1990:.DS.19.
1940..5R.RN.1:.RP.1.E(MX$).1:SC$(1).I("
".D(RP),3).F5|..1860:.1990:.DS.19.1940..
5...1770:.A$:.A$..""..F(A$).133.4280..5.
..PM.0.4260..6...H(SC$(PM),C(PM$))..PM$.
4270.?6..MT$(RN).SC$(1).SC$(SP):RN.RN.1.
Q6...:.2030:.4290..6..BM$."OPTION CANCEL
ED":.1590:.RP.1.1:.:.4080..6B.BR$."999ZZ
ZZZZZZZZZZZZZZZZZZZZZZZZZZZZ":.AA.1.RN.1
:CK$.BR$..6L..BB.1.RN.1:.A$:.A$..""..F(A
$).133.4090.*7V..I(MT$(BB),C(SC$(SP))).I
(CK$,C(SC$(SP))).CC.BB:CK$.MT$(BB).W7...
:SC$(1).H(MT$(CC),3):.SC$(1)."999".4350.
V7...1860:.H(R1$,3)."###".4350..7...1770
:.2100:.A$:.A$..""..F(A$).133.4090.B7..M
T$(CC).BR$:.:.A.LN.64:.4:..V7.. 4: 8: 15
:.2380..7..:..7..:..7&.." ROUTINE FOR PR
T.$80.SI.0:PO$.SC$(0):.1720:SC$(0).PO$:.
1620.H8:.BM$."PRESS F1 TO ABORT OPTION."
..8D.SI.0:."......................PLACE
PROPER FORMS INTO PRINTER."..8N.."AND PR
ESS SPACE BAR TO CONTINUE.."..8X..1590:.
198,0:.198,1:.A$:.F(A$).133.2380..8B..F(
A$)..32.4420..9L..1720:SC$(0).PO$:.1620.
99V.BM$."PRESS F1 TO ABORT OPTION.":.159
0.9..."......................DO YOU WIS
H TO USE PATTERN MATCH (Y/N)?."..9...198
,0:.198,1:.A$:.A$.."Y".A$.."N".F(A$)..13
3.4490.J9...F(A$).133.2380..9...A$."N".P
M$."":PM.0:.4600..:...1720:SC$(0)."***":
SC$(1)."***":.1620.>:..BM$."PRESS STOP T
O ABORT OPTION.":.1590.Z:..."...........
...........PLEASE SELECT MATCHING FIELD.
."..:F.:&E(2):.ST.0.ST.10.2380..:P..A.2.
10:.SC$(A).BL$(A)..:.4590..:Z..B.C(SC$(A
)).1..1:.J(SC$(A),B,1)." "....;..PM$.H(S
C$(A),B):PM.A:.B.1.1:.:.A.1.1:.:.4600.];
..."......................ERROR: PATTERN
MATCH KEY NOT FOUND..":.3890..;...1720:
SC$(0).PO$:.1620:BM$."PRESS F1 TO ABORT
OPTION.":.1590..;..."...................
...DO YOU WISH TO SORT THE FILE (Y/N)?
."..<...1590:.198,0:.198,1:.A$:&B:.F(
A$).133.2380..<...A$.."N".A$.."Y".4560.D
< .SP.0:.A$."N".4720.P<*..1720:SC$(0)."*
**":SC$(1)."***":.A.2.10..<4.SC$(A).I(D(
A),1).I(SC$(A),C(SC$(A)).1):.:.1620..<>.
."......................PLEASE SELECT SO
RT FIELD..":.1590..=H..198,0:.198,1:.A$:
.(A$."0".A$."9").F(A$)..133.4680.0=R.SP.
E(A$):.SP.1.4680.@=\..SP.0.SP.10.Q=F..A$
.".".2380.L=P..1720:SC$(0).PO$:.1620..=Z
.."......................HOW MANY LABELS
ARE ACROSS YOUR PAGE?."..=...1590:.198,
0:.198,1:.A$:&B:.F(A$).133.2380..=..LA.E
(A$):.LA.1.LA.2.4740..>...1720:SC$(0).PO
$:.1620.Z>..."......................DO Y
OU WISH TO ALIGN LABELS (Y/N)? ".T>...
" ."..>...1590:.198,0:.1
98,1:.A$:&B:.F(A$).133.2380..>...A$."N".
4870.O>J..1720:SC$(0).PO$:.1620..?T.."..
....................IF THE PRINTER IS RE
ADY, PRESS SPACE".??..." BAR TO CONTINUE
..":.1590:.198,0:.198,1.D?..:&B:.A$:.A$.
." ".F(A$)..133.4810.X?...F(A$).133.2380
..?...2210:.4760..?...1720:SC$(0).PO$:.1
620..?..."......................CAUTION:
PRESS F1 TO ABORT OPTION.."..@..:&B:.8,
DI,8,"0:NEXT":.8,MX$: 8.:@$..4,PR,7:.8,D
I,8,"0:LIST":.15,DI,15:.SP..0.5000.P@...
1990:.DS.19.1940.@8..RP.1.E(MX$).1:SC$(
1).I(" ".D(RP),3):.1860..@B..1990:.DS.19
.1940..@L..H(R1$,3)."###".4980.C@V..1770
:.PM.0.4970..@`..H(SC$(PM),C(PM$))..PM$.
4980..@J..2300..AT..:.LS.1..1720:.2300.&
A~..A.1.8:.4:.: 4: 8: 15:.2380.TA..NR.1:
.RP.1.E(MX$).1:SC$(1).I(" ".D(RP),3).~A.
..1860:.1770:.A$:.A$..""..F(A$).3.5060..
A...PM.0.5040..A...H(SC$(PM),C(PM$))..PM
$.5050.QA..MT$(NR).SC$(1).SC$(SP):NR.NR.
1..A...:.5070..BD.BM$."OPTION CANCELED":
.1590:.RP.1.1:.:.4080.LBN.BR$."999ZZZZZZ
ZZZZZZZZZZZZZZZZZZZZZZZZ":.AA.1.NR.1:CK$
.BR$.UBX..BB.1.NR.1:.A$:.A$..""..F(A$).3
.5130..B...I(MT$(BB),C(SC$(SP))).I(CK$,C
(SC$(SP))).CC.BB:CK$.MT$(BB)..B...:SC$(1
).H(MT$(CC),3):.1860:.H(R1$,3)."###".512
0..C...1770:.2300:.A$:.A$..""..F(A$).3.5
130.)C..MT$(CC).BR$:.4980.CC..BM$."OPTIO
N CANCELED":.1590:.AA.1.1:.:.BB.1.1:.:.4
990.IC..:.OC..:..C(..:OF:EASY:MAIL:V64..
C2..1,10,15:.1,A$,B$....
> CLICK IMAGE PREVIEW FOR FULL MODAL