LOGBUCH
FILE INFORMATION
FILENAME(S): LOGBUCH
FILE TYPE(S): PRG
FILE SIZE: 14.6K
FIRST SEEN: 2025-10-20 14:29:54
APPEARS ON: 2 disk(s)
FILE HASH
ea94f56ca87fc32c6556929429f0c60b3a03137acbe1a94cde638bffca9a90aa
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PD LERN | LOGBUCH | PRG | Treasure Chest - Klaus Der Suhler | 28 | 4 | DOWNLOAD FILE |
| 145 | LOGBUCH | PRG | Treasure Chest - Plattfuss | 28 | 4 | 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: CC 4F 47 42 55 43 48 20 20 20 56 36 34 20 20 20 |.OGBUCH 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 CC 4F 47 2D 42 55 | *...j."*.OG-BU|
000001E0: 43 48 20 32 39 2E 30 38 2E 38 33 20 44 46 35 46 |CH 29.08.83 DF5F|
000001F0: 46 20 20 20 20 20 20 20 2A 00 1F 0A 74 04 22 2A |F *...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 1E 99 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 CC 4F |M$.".OMMODORE .O|
00000360: 47 42 55 43 48 20 20 20 56 36 34 22 3A 26 42 3A |GBUCH V64":&B:|
00000370: 8D 31 35 36 30 00 AA 0B C4 04 99 22 11 11 11 11 |.1560......"....|
00000380: 20 20 C4 52 55 45 43 4B 45 3A 22 3A 99 A6 31 30 | .RUECKE:":..10|
00000390: 29 22 11 C6 31 20 2D 20 C8 49 4E 54 45 52 47 52 |)"..1 - .INTERGR|
000003A0: 55 4E 44 20 C6 41 52 42 45 22 00 E5 0B CE 04 99 |UND .ARBE"......|
000003B0: A6 31 30 29 22 11 C6 33 20 2D 20 D2 41 48 4D 45 |.10)"..3 - .AHME|
000003C0: 4E 2D C6 41 52 42 45 22 3A 99 A6 31 30 29 22 11 |N-.ARBE":..10)".|
000003D0: C6 35 20 2D 20 DA 45 49 43 48 45 4E 2D C6 41 52 |.5 - .EICHEN-.AR|
000003E0: 42 45 20 20 22 00 16 0C D8 04 99 A6 31 30 29 22 |BE ".......10)"|
000003F0: 11 C6 37 20 2D 20 D3 54 41 52 54 22 3A 42 4D 24 |..7 - .TART":BM$|
00000400: B2 22 A0 A0 C6 C1 D2 C2 A0 D7 C1 C8 CC A0 A0 22 |."............."|
00000410: 3A 8D 31 35 39 30 00 39 0C E2 04 97 31 39 38 2C |:.1590.9....198,|
00000420: 30 3A 92 31 39 38 2C 31 3A A1 41 24 3A 8B 41 24 |0:.198,1:.A$:.A$|
00000430: B2 22 88 22 A7 31 35 31 30 00 4A 0C EC 04 8B 41 |.".".1510.J....A|
00000440: 24 B2 22 86 22 A7 31 34 37 30 00 5B 0C F6 04 8B |$.".".1470.[....|
00000450: 41 24 B2 22 85 22 A7 31 34 39 30 00 6D 0C 00 05 |A$.".".1490.m...|
00000460: 8B 41 24 B3 B1 22 87 22 A7 31 32 31 30 00 85 0C |.A$..".".1210...|
00000470: 0A 05 43 43 B2 43 43 AA 31 3A 8B 43 43 B1 31 35 |..CC.CC.1:.CC.15|
00000480: A7 43 43 B2 30 00 D3 0C 14 05 91 43 43 89 31 33 |.CC.0......CC.13|
00000490: 32 30 2C 31 33 33 30 2C 31 33 34 30 2C 31 33 35 |20,1330,1340,135|
000004A0: 30 2C 31 33 36 30 2C 31 33 37 30 2C 31 33 38 30 |0,1360,1370,1380|
000004B0: 2C 31 33 39 30 2C 31 34 30 30 2C 31 34 31 30 2C |,1390,1400,1410,|
000004C0: 31 34 32 30 2C 31 34 33 30 2C 31 34 34 30 2C 31 |1420,1430,1440,1|
000004D0: 34 35 30 00 E5 0C 1E 05 43 43 24 B2 22 90 22 3A |450.....CC$.".":|
000004E0: 89 31 34 36 30 00 F7 0C 28 05 43 43 24 B2 22 05 |.1460...(.CC$.".|
000004F0: 22 3A 89 31 34 36 30 00 09 0D 32 05 43 43 24 B2 |":.1460...2.CC$.|
00000500: 22 1C 22 3A 89 31 34 36 30 00 1B 0D 3C 05 43 43 |".":.1460...<.CC|
00000510: 24 B2 22 9F 22 3A 89 31 34 36 30 00 2D 0D 46 05 |$.".":.1460.-.F.|
00000520: 43 43 24 B2 22 9C 22 3A 89 31 34 36 30 00 3F 0D |CC$.".":.1460.?.|
00000530: 50 05 43 43 24 B2 22 1E 22 3A 89 31 34 36 30 00 |P.CC$.".":.1460.|
00000540: 51 0D 5A 05 43 43 24 B2 22 1F 22 3A 89 31 34 36 |Q.Z.CC$.".":.146|
00000550: 30 00 63 0D 64 05 43 43 24 B2 22 9E 22 3A 89 31 |0.c.d.CC$.".":.1|
00000560: 34 36 30 00 75 0D 6E 05 43 43 24 B2 22 81 22 3A |460.u.n.CC$.".":|
00000570: 89 31 34 36 30 00 87 0D 78 05 43 43 24 B2 22 95 |.1460...x.CC$.".|
00000580: 22 3A 89 31 34 36 30 00 99 0D 82 05 43 43 24 B2 |":.1460.....CC$.|
00000590: 22 96 22 3A 89 31 34 36 30 00 AB 0D 8C 05 43 43 |".":.1460.....CC|
000005A0: 24 B2 22 97 22 3A 89 31 34 36 30 00 BD 0D 96 05 |$.".":.1460.....|
000005B0: 43 43 24 B2 22 98 22 3A 89 31 34 36 30 00 CF 0D |CC$.".":.1460...|
000005C0: A0 05 43 43 24 B2 22 99 22 3A 89 31 34 36 30 00 |..CC$.".":.1460.|
000005D0: E1 0D AA 05 43 43 24 B2 22 9A 22 3A 89 31 34 36 |....CC$.".":.146|
000005E0: 30 00 FE 0D B4 05 97 34 39 33 31 32 2C C6 28 43 |0......49312,.(C|
000005F0: 43 24 29 3A 99 43 43 24 3A 89 31 32 31 30 00 16 |C$):.CC$:.1210..|
00000600: 0E BE 05 42 47 B2 42 47 AA 31 3A 8B 42 47 B1 31 |...BG.BG.1:.BG.1|
00000610: 35 A7 42 47 B2 30 00 20 0E C8 05 89 31 35 30 30 |5.BG.0. ....1500|
00000620: 00 38 0E D2 05 42 52 B2 42 52 AA 31 3A 8B 42 52 |.8...BR.BR.1:.BR|
00000630: B1 31 35 A7 42 52 B2 30 00 56 0E DC 05 97 35 33 |.15.BR.0.V....53|
00000640: 32 38 30 2C 42 47 3A 97 35 33 32 38 31 2C 42 52 |280,BG:.53281,BR|
00000650: 3A 89 31 32 31 30 00 86 0E E6 05 99 22 93 22 3A |:.1210......".":|
00000660: 54 4D 24 B2 22 C3 4F 4D 4D 4F 44 4F 52 45 20 CC |TM$.".OMMODORE .|
00000670: 4F 47 42 55 43 48 20 20 20 56 36 34 22 3A 26 42 |OGBUCH V64":&B|
00000680: 3A 8D 31 35 36 30 00 C8 0E F0 05 99 22 13 11 11 |:.1560......"...|
00000690: 11 11 11 11 11 11 11 11 11 22 A6 39 29 22 C4 41 |.........".9)".A|
000006A0: 54 55 4D 20 20 20 20 20 20 20 5B 20 20 2F 20 20 |TUM [ / |
000006B0: 2F 20 20 5D 22 3A 53 43 24 28 30 29 B2 22 20 20 |/ ]":SC$(0)." |
000006C0: 20 20 20 20 22 AA 22 22 00 F0 0E FA 05 42 4D 24 | "."".....BM$|
000006D0: B2 22 C5 49 4E 47 41 42 45 20 C4 41 54 55 4D 20 |.".INGABE .ATUM |
000006E0: CD CD 2F D4 D4 2F CA CA 2E 22 3A 8D 31 35 39 30 |../../...":.1590|
000006F0: 00 09 0F 04 06 3A 26 46 3A 44 54 24 B2 53 43 24 |.....:&F:DT$.SC$|
00000700: 28 30 29 3A 89 32 33 38 30 00 0F 0F 0E 06 3A 00 |(0):.2380.....:.|
00000710: 3D 0F 18 06 8F 22 20 D2 4F 55 54 49 4E 45 20 46 |=...." .OUTINE F|
00000720: 4F 52 20 44 49 53 50 4C 41 59 49 4E 47 20 54 4F |OR DISPLAYING TO|
00000730: 50 20 53 54 41 54 55 53 20 4C 49 4E 45 00 65 0F |P STATUS LINE.e.|
00000740: 22 06 3A 26 54 3A 99 22 13 12 22 A3 28 28 34 30 |".:&T:."..".((40|
00000750: AB C3 28 54 4D 24 29 29 AD 32 29 29 54 4D 24 22 |..(TM$)).2))TM$"|
00000760: 13 92 22 3A 8E 00 6B 0F 2C 06 3A 00 9C 0F 36 06 |..":..k.,.:...6.|
00000770: 8F 22 20 D2 4F 55 54 49 4E 45 20 46 4F 52 20 44 |." .OUTINE FOR D|
00000780: 49 53 50 4C 41 59 49 4E 47 20 42 4F 54 54 4F 4D |ISPLAYING BOTTOM|
00000790: 20 53 54 41 54 55 53 20 4C 49 4E 45 00 DB 0F 40 | STATUS LINE...@|
000007A0: 06 3A 26 42 3A 99 22 12 11 11 11 11 11 11 11 11 |.:&B:.".........|
000007B0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000007C0: 22 A3 28 28 34 30 AB C3 28 42 4D 24 29 29 AD 32 |".((40..(BM$)).2|
000007D0: 29 29 42 4D 24 22 13 92 22 3A 8E 00 E1 0F 4A 06 |))BM$"..":....J.|
000007E0: 3A 00 FE 0F 54 06 8F 22 20 D2 4F 55 54 49 4E 45 |:...T.." .OUTINE|
000007F0: 20 46 4F 52 20 D3 C3 D2 C5 C5 CE 20 23 31 00 31 | FOR ...... #1.1|
00000800: 10 5E 06 99 22 93 22 3A 26 42 3A 26 54 3A 54 4D |.^..".":&B:&T:TM|
00000810: 24 B2 22 C3 4F 4D 4D 4F 44 4F 52 45 20 CC 4F 47 |$.".OMMODORE .OG|
00000820: 42 55 43 48 20 20 20 56 36 34 22 3A 8D 31 35 36 |BUCH V64":.156|
00000830: 30 00 62 10 68 06 99 22 13 11 11 20 20 20 20 C5 |0.b.h.."... .|
00000840: 49 4E 47 41 42 45 20 20 20 20 20 20 20 20 20 20 |INGABE |
00000850: 20 20 20 CC 4F 47 42 55 43 48 20 CE 55 4D 4D 45 | .OGBUCH .UMME|
00000860: 52 22 00 98 10 72 06 99 22 20 20 20 20 20 3C 22 |R"...r.." <"|
00000870: 53 43 24 28 30 29 22 3E 22 A6 31 37 29 22 3C 22 |SC$(0)">".17)"<"|
00000880: 53 43 24 28 31 29 22 3E 22 3A 26 4C 3A 99 A6 31 |SC$(1)">":&L:..1|
00000890: 37 29 22 CE 41 4D 45 22 00 D1 10 7C 06 99 22 20 |7)".AME"...|.." |
000008A0: 20 20 20 3C 22 53 43 24 28 32 29 22 3E 22 3A 99 | <"SC$(2)">":.|
000008B0: A6 31 30 29 22 11 D1 D4 C8 2C 20 C4 41 54 55 4D |.10)"...., .ATUM|
000008C0: 2C 20 D2 41 50 50 4F 52 54 22 3A 81 41 B2 33 A4 |, .APPORT":.A.3.|
000008D0: 36 00 13 11 86 06 99 22 20 20 20 20 3C 22 53 43 |6......" <"SC|
000008E0: 24 28 41 29 22 3E 22 3A 82 3A 99 22 11 20 20 20 |$(A)">":.:.". |
000008F0: 20 20 20 20 20 20 C4 20 CF 20 CB 20 20 20 20 20 | . . . |
00000900: 20 20 20 20 20 20 D2 55 46 5A 45 49 43 48 45 4E | .UFZEICHEN|
00000910: 20 20 22 00 3C 11 90 06 99 A6 38 29 22 3C 22 53 | ".<.....8)"<"S|
00000920: 43 24 28 37 29 22 3E 20 20 20 20 20 20 20 20 20 |C$(7)"> |
00000930: 20 3C 22 53 43 24 28 38 29 22 3E 22 00 73 11 9A | <"SC$(8)">".s..|
00000940: 06 99 A6 37 29 22 11 D4 45 4C 45 46 4F 4E 22 A6 |...7)"..ELEFON".|
00000950: 31 32 29 22 C2 45 54 52 49 45 42 53 41 52 54 22 |12)".ETRIEBSART"|
00000960: 3A 99 22 20 20 20 20 3C 22 53 43 24 28 39 29 22 |:." <"SC$(9)"|
00000970: 3E 22 3B 00 8E 11 A4 06 99 A6 38 29 22 3C 22 53 |>";.......8)"<"S|
00000980: 43 24 28 31 30 29 22 3E 22 3A 26 4C 3A 8E 00 94 |C$(10)">":&L:...|
00000990: 11 AE 06 3A 00 C3 11 B8 06 8F 22 20 D2 4F 55 54 |...:......" .OUT|
000009A0: 49 4E 45 20 46 4F 52 20 46 49 4C 4C 49 4E 47 20 |INE FOR FILLING |
000009B0: 42 4C 24 28 29 20 57 2F 4E 55 4C 4C 20 56 41 4C |BL$() W/NULL VAL|
000009C0: 55 45 53 00 03 12 C2 06 42 4C 24 28 30 29 B2 4D |UES.....BL$(0).M|
000009D0: 44 24 AA 22 22 3A 42 4C 24 28 31 29 B2 22 20 20 |D$."":BL$(1)." |
000009E0: 20 22 3A 81 41 B2 32 A4 36 3A 42 4C 24 28 41 29 | ":.A.2.6:BL$(A)|
000009F0: B2 58 24 3A 82 3A 42 4C 24 28 37 29 B2 22 20 20 |.X$:.:BL$(7)." |
00000A00: 20 20 22 00 44 12 CC 06 42 4C 24 28 38 29 B2 22 | ".D...BL$(8)."|
00000A10: 20 20 20 20 20 20 20 20 20 20 22 3A 42 4C 24 28 | ":BL$(|
00000A20: 39 29 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 |9)." |
00000A30: 22 3A 42 4C 24 28 31 30 29 B2 22 20 20 20 20 20 |":BL$(10)." |
00000A40: 20 20 20 22 00 65 12 D6 06 81 41 B2 30 A4 31 30 | ".e....A.0.10|
00000A50: 3A 53 43 24 28 41 29 B2 42 4C 24 28 41 29 AA 22 |:SC$(A).BL$(A)."|
00000A60: 22 3A 82 3A 8E 00 6B 12 E0 06 3A 00 A5 12 EA 06 |":.:..k...:.....|
00000A70: 8F 22 20 D2 4F 55 54 49 4E 45 20 46 4F 52 20 43 |." .OUTINE FOR C|
00000A80: 4F 4E 56 45 52 54 49 4E 47 20 44 41 54 41 20 46 |ONVERTING DATA F|
00000A90: 52 4F 4D 20 44 49 53 4B 20 54 4F 20 D3 C3 D2 C5 |ROM DISK TO ....|
00000AA0: C5 CE 20 23 31 00 E2 12 F4 06 53 43 24 28 32 29 |.. #1.....SC$(2)|
00000AB0: B2 C8 28 52 31 24 2C 33 30 29 3A 53 43 24 28 33 |..(R1$,30):SC$(3|
00000AC0: 29 B2 CA 28 52 31 24 2C 33 31 2C 33 30 29 3A 53 |)..(R1$,31,30):S|
00000AD0: 43 24 28 34 29 B2 CA 28 52 31 24 2C 36 31 2C 33 |C$(4)..(R1$,61,3|
00000AE0: 30 29 00 23 13 FE 06 53 43 24 28 35 29 B2 CA 28 |0).#...SC$(5)..(|
00000AF0: 52 31 24 2C 39 31 2C 33 30 29 3A 53 43 24 28 36 |R1$,91,30):SC$(6|
00000B00: 29 B2 CA 28 52 31 24 2C 31 32 31 2C 33 30 29 3A |)..(R1$,121,30):|
00000B10: 53 43 24 28 37 29 B2 CA 28 52 31 24 2C 31 35 31 |SC$(7)..(R1$,151|
00000B20: 2C 34 29 00 62 13 08 07 53 43 24 28 38 29 B2 CA |,4).b...SC$(8)..|
00000B30: 28 52 31 24 2C 31 35 35 2C 31 30 29 3A 53 43 24 |(R1$,155,10):SC$|
00000B40: 28 39 29 B2 CA 28 52 31 24 2C 31 36 35 2C 31 32 |(9)..(R1$,165,12|
00000B50: 29 3A 53 43 24 28 31 30 29 B2 C9 28 52 31 24 2C |):SC$(10)..(R1$,|
00000B60: 38 29 00 68 13 12 07 8E 00 6E 13 1C 07 3A 00 A8 |8).h.....n...:..|
00000B70: 13 26 07 8F 22 20 D2 4F 55 54 49 4E 45 20 46 4F |.&.." .OUTINE FO|
00000B80: 52 20 43 4F 4E 56 45 52 54 49 4E 47 20 44 41 54 |R CONVERTING DAT|
00000B90: 41 20 46 52 4F 4D 20 D3 C3 D2 C5 C5 CE 20 23 31 |A FROM ...... #1|
00000BA0: 20 54 4F 20 44 49 53 4B 00 CE 13 30 07 52 31 24 | TO DISK...0.R1$|
00000BB0: B2 22 22 3A 81 41 B2 32 A4 31 30 3A 52 31 24 B2 |."":.A.2.10:R1$.|
00000BC0: 52 31 24 AA 53 43 24 28 41 29 3A 82 3A 8E 00 D4 |R1$.SC$(A):.:...|
00000BD0: 13 3A 07 3A 00 0A 14 44 07 8F 22 20 D2 4F 55 54 |.:.:...D.." .OUT|
00000BE0: 49 4E 45 20 46 4F 52 20 52 45 41 44 49 4E 47 20 |INE FOR READING |
00000BF0: 52 45 43 4F 52 44 53 20 46 52 4F 4D 20 44 49 53 |RECORDS FROM DIS|
00000C00: 4B 20 49 4E 54 4F 20 D2 31 24 00 38 14 4E 07 52 |K INTO .1$.8.N.R|
00000C10: 52 B2 C5 28 53 43 24 28 31 29 29 3A 8D 31 39 30 |R..(SC$(1)):.190|
00000C20: 30 3A 52 31 24 B2 22 22 3A 81 41 B2 31 A4 31 38 |0:R1$."":.A.1.18|
00000C30: 34 3A A1 23 38 2C 41 24 00 4B 14 58 07 52 31 24 |4:.#8,A$.K.X.R1$|
00000C40: B2 52 31 24 AA 41 24 3A 82 3A 8E 00 51 14 62 07 |.R1$.A$:.:..Q.b.|
00000C50: 3A 00 84 14 6C 07 8F 22 20 D2 4F 55 54 49 4E 45 |:...l.." .OUTINE|
00000C60: 20 46 4F 52 20 43 4F 56 45 52 54 49 4E 47 20 D2 | FOR COVERTING .|
00000C70: D2 20 54 4F 20 52 45 43 4F 52 44 20 50 4F 53 49 |. TO RECORD POSI|
00000C80: 54 49 4F 4E 00 BE 14 76 07 48 49 B2 B5 28 52 52 |TION...v.HI..(RR|
00000C90: AD 32 35 36 29 3A 4C 4F B2 52 52 AB 48 49 AC 32 |.256):LO.RR.HI.2|
00000CA0: 35 36 3A 98 31 35 2C 22 50 22 C7 28 31 30 34 29 |56:.15,"P".(104)|
00000CB0: C7 28 4C 4F 29 C7 28 48 49 29 C7 28 30 29 00 C4 |.(LO).(HI).(0)..|
00000CC0: 14 80 07 8E 00 CA 14 8A 07 3A 00 F5 14 94 07 8F |.........:......|
00000CD0: 22 20 D2 4F 55 54 49 4E 45 20 46 4F 52 20 44 49 |" .OUTINE FOR DI|
00000CE0: 53 50 4C 41 59 49 4E 47 20 41 20 44 49 53 4B 20 |SPLAYING A DISK |
00000CF0: C5 D2 D2 CF D2 00 2E 15 9E 07 99 22 13 11 11 11 |..........."....|
00000D00: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000D10: 11 11 C4 52 49 56 45 20 D3 54 41 54 55 53 3A 22 |...RIVE .TATUS:"|
00000D20: 3A A0 31 35 3A 9F 31 35 2C 44 49 2C 31 35 00 46 |:.15:.15,DI,15.F|
00000D30: 15 A8 07 99 44 53 24 22 13 22 3A A0 31 3A A0 32 |....DS$".":.1:.2|
00000D40: 3A A0 34 3A A0 37 00 5A 15 B2 07 A0 38 3A A0 39 |:.4:.7.Z....8:.9|
00000D50: 3A A0 31 35 3A 89 32 33 39 30 00 60 15 BC 07 3A |:.15:.2390.`...:|
00000D60: 00 92 15 C6 07 8F 22 20 D2 4F 55 54 49 4E 45 20 |......" .OUTINE |
00000D70: 46 4F 52 20 52 45 41 44 49 4E 47 20 45 52 52 4F |FOR READING ERRO|
00000D80: 52 20 43 48 41 4E 4E 45 4C 20 49 4E 54 4F 20 44 |R CHANNEL INTO D|
00000D90: 53 24 00 B4 15 D0 07 84 31 35 2C 45 4E 24 2C 45 |S$......15,EN$,E|
00000DA0: 44 24 2C 45 53 24 2C 45 54 24 3A 44 53 B2 C5 28 |D$,ES$,ET$:DS..(|
00000DB0: 45 4E 24 29 00 DB 15 DA 07 44 53 24 B2 45 4E 24 |EN$).....DS$.EN$|
00000DC0: AA 22 2C 20 22 AA 45 44 24 AA 22 2C 22 AA 45 53 |.", ".ED$.",".ES|
00000DD0: 24 AA 22 2C 22 AA 45 54 24 3A 8E 00 E1 15 E4 07 |$.",".ET$:......|
00000DE0: 3A 00 11 16 EE 07 8F 22 20 D2 4F 55 54 49 4E 45 |:......" .OUTINE|
00000DF0: 20 46 4F 52 20 D0 52 49 4E 54 49 4E 47 20 D0 41 | FOR .RINTING .A|
00000E00: 47 45 20 C8 45 41 44 49 4E 47 20 57 2F 4F 50 45 |GE .EADING W/OPE|
00000E10: 4E 00 30 16 F8 07 9F 34 2C 50 52 2C 37 3A 98 34 |N.0....4,PR,7:.4|
00000E20: 3A 98 34 2C 22 CD C1 C9 CC 20 CD C1 D4 C5 22 3B |:.4,".... ....";|
00000E30: 00 69 16 02 08 98 34 2C 22 20 C6 C9 CC C5 20 CC |.i....4," .... .|
00000E40: C9 D3 D4 C9 CE C7 22 A6 34 32 29 22 C1 D3 20 CF |......".42)".. .|
00000E50: C6 3A 22 C8 28 44 54 24 2C 32 29 22 2F 22 CA 28 |.:".(DT$,2)"/".(|
00000E60: 44 54 24 2C 33 2C 32 29 3B 00 9A 16 0C 08 98 34 |DT$,3,2);......4|
00000E70: 2C 22 2F 22 C9 28 44 54 24 2C 32 29 3A 98 34 3A |,"/".(DT$,2):.4:|
00000E80: 98 34 2C 22 CC 4F 47 42 55 43 48 20 23 20 20 20 |.4,".OGBUCH # |
00000E90: 20 20 20 20 CE 41 4D 45 22 3B 00 D0 16 16 08 98 | .AME";......|
00000EA0: 34 2C 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |4," |
00000EB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000EC0: C1 44 44 52 45 53 53 20 26 20 D0 48 4F 4E 45 22 |.DDRESS & .HONE"|
00000ED0: 00 F3 16 20 08 81 41 B2 31 A4 37 38 3A 98 34 2C |... ..A.1.78:.4,|
00000EE0: 22 3D 22 3B 3A 82 3A 98 34 3A 98 34 3A 4C 4E B2 |"=";:.:.4:.4:LN.|
00000EF0: 36 3A 8E 00 F9 16 2A 08 3A 00 22 17 34 08 8F 22 |6:....*.:.".4.."|
00000F00: 20 D2 4F 55 54 49 4E 45 20 46 4F 52 20 50 52 49 | .OUTINE FOR PRI|
00000F10: 4E 54 49 4E 47 20 CD 41 54 45 20 4C 49 53 54 49 |NTING .ATE LISTI|
00000F20: 4E 47 00 45 17 3E 08 8B 4C 4E B1 B2 35 36 A7 81 |NG.E.>..LN..56..|
00000F30: 41 B2 4C 4E A4 36 34 3A 98 34 3A 82 3A A0 34 3A |A.LN.64:.4:.:.4:|
00000F40: 8D 32 30 33 30 00 75 17 48 08 98 34 2C 22 20 20 |.2030.u.H..4," |
00000F50: 20 20 22 53 43 24 28 31 29 A6 39 29 53 43 24 28 | "SC$(1).9)SC$(|
00000F60: 32 29 22 20 20 20 22 53 43 24 28 33 29 3A 4C 4E |2)" "SC$(3):LN|
00000F70: B2 4C 4E AA 31 00 92 17 52 08 98 34 2C 22 22 A6 |.LN.1...R..4,"".|
00000F80: 31 36 29 53 43 24 28 31 30 29 3B 3A 81 41 B2 34 |16)SC$(10);:.A.4|
00000F90: A4 36 00 BC 17 5C 08 8B C8 28 53 43 24 28 41 29 |.6...\...(SC$(A)|
00000FA0: 2C 31 29 B2 22 20 22 B0 C8 28 53 43 24 28 41 29 |,1)." "..(SC$(A)|
00000FB0: 2C 31 29 B2 22 A0 22 A7 32 31 37 30 00 D8 17 66 |,1).".".2170...f|
00000FC0: 08 98 34 2C 22 22 A6 32 35 29 53 43 24 28 41 29 |..4,"".25)SC$(A)|
00000FD0: 3A 4C 4E B2 4C 4E AA 31 00 E7 17 70 08 98 34 2C |:LN.LN.1...p..4,|
00000FE0: 22 22 A6 32 34 29 3B 00 06 18 7A 08 82 3A 98 34 |"".24);...z..:.4|
00000FF0: 2C 22 22 A6 32 35 29 53 43 24 28 37 29 22 20 22 |,"".25)SC$(7)" "|
00001000: 53 43 24 28 38 29 00 1D 18 84 08 98 34 2C 22 22 |SC$(8)......4,""|
00001010: A6 34 39 29 53 43 24 28 39 29 3A 98 34 00 2B 18 |.49)SC$(9):.4.+.|
00001020: 8E 08 4C 4E B2 4C 4E AA 33 3A 8E 00 31 18 98 08 |..LN.LN.3:..1...|
00001030: 3A 00 50 18 A2 08 8F 22 20 D2 4F 55 54 49 4E 45 |:.P...." .OUTINE|
00001040: 20 46 4F 52 20 4C 41 42 45 4C 20 41 4C 49 47 4E | FOR LABEL ALIGN|
00001050: 00 85 18 AC 08 4C 53 24 28 31 29 B2 22 2D 2D 2D |.....LS$(1)."---|
00001060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D C6 49 52 53 |------------.IRS|
00001070: 54 20 CC 49 4E 45 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |T .INE----------|
00001080: 2D 2D 2D 2D 22 00 BA 18 B6 08 4C 53 24 28 32 29 |----".....LS$(2)|
00001090: B2 22 58 58 58 58 58 58 58 58 58 58 58 58 58 58 |."XXXXXXXXXXXXXX|
000010A0: 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 |XXXXXXXXXXXXXXXX|
000010B0: 58 58 58 58 58 58 58 58 58 22 00 04 19 C0 08 4C |XXXXXXXXX".....L|
000010C0: 53 24 28 38 29 B2 22 2D 2D 2D 2D 2D 2D 2D 2D 2D |S$(8)."---------|
000010D0: 2D 2D 2D 2D 2D 2D CC 41 53 54 20 20 CC 49 4E 45 |------.AST .INE|
000010E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 3A |--------------":|
000010F0: 81 41 B2 33 A4 37 3A 4C 53 24 28 41 29 B2 4C 53 |.A.3.7:LS$(A).LS|
00001100: 24 28 32 29 00 19 19 CA 08 82 3A 9F 34 2C 50 52 |$(2)......:.4,PR|
00001110: 2C 37 3A 81 41 B2 31 A4 38 00 39 19 D4 08 98 34 |,7:.A.1.8.9....4|
00001120: 2C 4C 53 24 28 41 29 3B 3A 8B 4C 41 B2 31 A7 98 |,LS$(A);:.LA.1..|
00001130: 34 3A 82 3A 89 32 32 38 30 00 4D 19 DE 08 98 34 |4:.:.2280.M....4|
00001140: 2C 22 20 20 22 4C 53 24 28 41 29 3A 82 00 59 19 |," "LS$(A):..Y.|
00001150: E8 08 98 34 3A A0 34 3A 8E 00 5F 19 F2 08 3A 00 |...4:.4:.._...:.|
00001160: 7F 19 FC 08 8F 22 20 D2 4F 55 54 49 4E 45 20 46 |....." .OUTINE F|
00001170: 4F 52 20 50 52 49 4E 54 20 4C 41 42 45 4C 53 00 |OR PRINT LABELS.|
00001180: B6 19 06 09 8B 4C 41 B2 31 A7 81 41 B2 32 A4 36 |.....LA.1..A.2.6|
00001190: 3A 98 34 2C 53 43 24 28 41 29 3A 82 3A 98 34 2C |:.4,SC$(A):.:.4,|
000011A0: 53 43 24 28 37 29 22 20 20 22 53 43 24 28 38 29 |SC$(7)" "SC$(8)|
000011B0: 3A 89 32 33 35 30 00 DE 19 10 09 8B 4C 53 B2 30 |:.2350......LS.0|
000011C0: A7 81 41 B2 32 A4 38 3A 4C 53 24 28 41 29 B2 53 |..A.2.8:LS$(A).S|
000011D0: 43 24 28 41 29 3A 82 3A 4C 53 B2 31 3A 8E 00 14 |C$(A):.:LS.1:...|
000011E0: 1A 1A 09 81 41 B2 32 A4 36 3A 98 34 2C 4C 53 24 |....A.2.6:.4,LS$|
000011F0: 28 41 29 A6 31 31 29 53 43 24 28 41 29 3A 82 3A |(A).11)SC$(A):.:|
00001200: 98 34 2C 4C 53 24 28 37 29 22 20 20 22 4C 53 24 |.4,LS$(7)" "LS$|
00001210: 28 38 29 3B 00 37 1A 24 09 98 34 2C 22 22 A6 32 |(8);.7.$..4,"".2|
00001220: 35 29 53 43 24 28 37 29 22 20 20 22 53 43 24 28 |5)SC$(7)" "SC$(|
00001230: 38 29 3A 4C 53 B2 30 00 46 1A 2E 09 98 34 3A 98 |8):LS.0.F....4:.|
00001240: 34 3A 98 34 3A 8E 00 4C 1A 38 09 3A 00 52 1A 42 |4:.4:..L.8.:.R.B|
00001250: 09 3A 00 75 1A 4C 09 53 49 B2 30 3A 53 43 24 28 |.:.u.L.SI.0:SC$(|
00001260: 30 29 B2 4D 44 24 AA 22 22 3A 8D 31 37 32 30 3A |0).MD$."":.1720:|
00001270: 8D 31 36 32 30 00 9D 1A 56 09 42 4D 24 B2 22 C4 |.1620...V.BM$.".|
00001280: 52 55 45 43 4B 45 20 D3 D4 CF D0 20 46 55 45 52 |RUECKE .... FUER|
00001290: 20 C9 4E 46 4F 2E 22 3A 8D 31 35 39 30 00 B6 1A | .NFO.":.1590...|
000012A0: 60 09 3A 26 46 3A 8B 53 54 B1 30 AF 53 54 B3 31 |`.:&F:.ST.0.ST.1|
000012B0: 30 A7 32 34 35 30 00 DB 1A 6A 09 81 49 B2 31 A4 |0.2450...j..I.1.|
000012C0: 38 3A 8B CA 28 43 4D 24 2C 49 AC 33 AB 32 2C 33 |8:..(CM$,I.3.2,3|
000012D0: 29 B3 B1 53 43 24 28 30 29 A7 82 00 0A 1B 74 09 |)..SC$(0).....t.|
000012E0: 91 49 89 32 35 39 30 2C 32 38 37 30 2C 33 32 34 |.I.2590,2870,324|
000012F0: 30 2C 33 33 33 30 2C 33 34 37 30 2C 34 33 39 30 |0,3330,3470,4390|
00001300: 2C 33 37 39 30 2C 33 37 33 30 00 3A 1B 7E 09 8F |,3790,3730.:.~..|
00001310: 22 20 20 20 4E 45 57 20 20 44 53 50 20 20 41 4C |" NEW DSP AL|
00001320: 54 20 20 44 45 4C 20 20 49 4E 54 20 20 50 52 54 |T DEL INT PRT|
00001330: 20 20 4C 53 54 20 20 44 53 4B 00 7A 1B 88 09 99 | LST DSK.z....|
00001340: 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |"...............|
00001350: 11 11 11 11 11 11 11 C6 C5 C8 CC C5 D2 3A 20 D5 |.............: .|
00001360: 4E 47 55 45 4C 54 49 47 45 20 C5 49 4E 47 41 42 |NGUELTIGE .INGAB|
00001370: 45 2E 13 22 3A 89 32 33 39 30 00 8F 1B 92 09 99 |E..":.2390......|
00001380: 22 93 22 3A 26 42 3A 26 54 3A 8D 31 35 36 30 00 |".":&B:&T:.1560.|
00001390: B0 1B 9C 09 99 22 13 11 11 11 11 11 20 CE C5 D7 |....."...... ...|
000013A0: 20 2D 20 CE 45 55 45 20 C5 49 4E 47 41 42 45 22 | - .EUE .INGABE"|
000013B0: 00 E1 1B A6 09 99 22 11 20 C4 D3 D0 20 2D 20 D3 |......". ... - .|
000013C0: 55 43 48 45 4E 20 4E 41 43 48 20 CE 41 4D 45 4E |UCHEN NACH .AMEN|
000013D0: 2C 20 C3 41 4C 4C 2C 20 C4 CF CB 20 55 53 57 2E |, .ALL, ... USW.|
000013E0: 22 00 FD 1B B0 09 99 22 11 20 C1 CC D4 20 2D 20 |"......". ... - |
000013F0: C1 45 4E 44 45 52 55 4E 47 45 4E 2E 22 00 16 1C |.ENDERUNGEN."...|
00001400: BA 09 99 22 11 20 C4 C5 CC 20 2D 20 CC 4F 45 53 |...". ... - .OES|
00001410: 43 48 45 4E 2E 22 00 43 1C C4 09 99 22 11 20 C9 |CHEN.".C....". .|
00001420: CE D4 20 2D 20 CE 45 55 45 20 C4 41 54 45 4E 44 |.. - .EUE .ATEND|
00001430: 49 53 4B 45 54 54 45 20 45 52 53 54 45 4C 4C 45 |ISKETTE ERSTELLE|
00001440: 4E 2E 22 00 5C 1C CE 09 99 22 11 20 D0 D2 D4 20 |N.".\....". ... |
00001450: 2D 20 C1 55 53 44 52 55 43 4B 2E 22 00 7A 1C D8 |- .USDRUCK.".z..|
00001460: 09 99 22 11 20 CC D3 D4 20 2D 20 CC 49 53 54 45 |..". ... - .ISTE|
00001470: 20 44 52 55 43 4B 45 4E 2E 22 00 96 1C E2 09 99 | DRUCKEN."......|
00001480: 22 11 20 C4 D3 CB 20 2D 20 C4 49 53 4B 20 D3 54 |". ... - .ISK .T|
00001490: 41 54 55 53 2E 22 00 C8 1C EC 09 42 4D 24 B2 22 |ATUS.".....BM$."|
000014A0: C6 4F 52 54 53 45 54 5A 55 4E 47 20 4D 49 54 20 |.ORTSETZUNG MIT |
000014B0: CC 45 45 52 54 41 53 54 45 2E 22 3A 8D 31 35 39 |.EERTASTE.":.159|
000014C0: 30 3A 97 31 39 38 2C 30 00 E5 1C F6 09 92 31 39 |0:.198,0......19|
000014D0: 38 2C 31 3A A1 41 24 3A 8B 41 24 B3 B1 22 20 22 |8,1:.A$:.A$.." "|
000014E0: A7 32 35 34 30 00 FA 1C 00 0A 99 22 93 22 3A 8D |.2540......".":.|
000014F0: 31 36 32 30 3A 89 32 33 39 30 00 00 1D 0A 0A 3A |1620:.2390.....:|
00001500: 00 06 1D 14 0A 3A 00 1D 1D 1E 0A 8F 22 20 D2 4F |.....:......" .O|
00001510: 55 54 49 4E 45 20 46 4F 52 20 CE C5 D7 00 4C 1D |UTINE FOR ....L.|
00001520: 28 0A 53 49 B2 30 3A 41 24 B2 53 43 24 28 30 29 |(.SI.0:A$.SC$(0)|
00001530: 3A 8D 31 37 32 30 3A 53 43 24 28 30 29 B2 41 24 |:.1720:SC$(0).A$|
00001540: 3A 8D 31 36 32 30 3A 8D 31 35 39 30 00 68 1D 32 |:.1620:.1590.h.2|
00001550: 0A 3A 26 45 28 32 29 3A 8B 53 54 B1 30 AF 53 54 |.:&E(2):.ST.0.ST|
00001560: B3 31 30 A7 32 34 35 30 00 8A 1D 3C 0A 81 41 B2 |.10.2450...<..A.|
00001570: 31 A4 37 3A 8B 53 43 24 28 41 29 B2 42 4C 24 28 |1.7:.SC$(A).BL$(|
00001580: 41 29 A7 82 3A 89 32 38 32 30 00 97 1D 46 0A 81 |A)..:.2820...F..|
00001590: 41 B2 31 A4 31 3A 82 00 CA 1D 50 0A 9F 38 2C 44 |A.1.1:....P..8,D|
000015A0: 49 2C 38 2C 22 30 3A 54 41 42 4C 45 2C 53 2C 52 |I,8,"0:TABLE,S,R|
000015B0: 22 3A 84 38 2C 41 24 3A 84 38 2C 49 44 24 3A 8B |":.8,A$:.8,ID$:.|
000015C0: 53 54 B2 36 36 A7 32 37 34 30 00 F1 1D 5A 0A A0 |ST.66.2740...Z..|
000015D0: 38 3A 49 44 B2 C5 28 49 44 24 29 3A 9F 38 2C 44 |8:ID..(ID$):.8,D|
000015E0: 49 2C 38 2C 22 30 3A 54 41 42 4C 45 2C 53 2C 52 |I,8,"0:TABLE,S,R|
000015F0: 22 00 19 1E 64 0A 9F 39 2C 44 49 2C 39 2C 22 30 |"...d..9,DI,9,"0|
00001600: 3A 54 2C 53 2C 57 22 3A 84 38 2C 41 24 3A 98 39 |:T,S,W":.8,A$:.9|
00001610: 2C 41 24 3A 84 38 2C 41 24 00 2C 1E 6E 0A 84 38 |,A$:.8,A$.,.n..8|
00001620: 2C 41 24 3A 8B 53 54 A7 32 36 39 30 00 3C 1E 78 |,A$:.ST.2690.<.x|
00001630: 0A 98 39 2C 41 24 3A 89 32 36 37 30 00 4D 1E 82 |..9,A$:.2670.M..|
00001640: 0A 8B 53 54 B2 36 34 A7 98 39 2C 41 24 00 57 1E |..ST.64..9,A$.W.|
00001650: 8C 0A A0 38 3A A0 39 00 94 1E 96 0A 9F 31 35 2C |...8:.9......15,|
00001660: 44 49 2C 31 35 2C 22 53 30 3A 54 41 42 4C 45 22 |DI,15,"S0:TABLE"|
00001670: 3A 98 31 35 2C 22 43 30 3A 54 41 42 4C 45 3D 30 |:.15,"C0:TABLE=0|
00001680: 3A 54 22 3A 98 31 35 2C 22 53 30 3A 54 22 3A 8D |:T":.15,"S0:T":.|
00001690: 31 39 39 30 00 A4 1E A0 0A 8B 44 53 B1 31 39 A7 |1990......DS.19.|
000016A0: 31 39 34 30 00 B2 1E AA 0A A0 31 35 3A 89 32 37 |1940......15:.27|
000016B0: 38 30 00 E2 1E B4 0A A0 38 3A 9F 38 2C 44 49 2C |80......8:.8,DI,|
000016C0: 38 2C 22 30 3A 4E 45 58 54 2C 53 2C 52 22 3A 84 |8,"0:NEXT,S,R":.|
000016D0: 38 2C 49 44 24 3A A0 38 3A 49 44 B2 C5 28 49 44 |8,ID$:.8:ID..(ID|
000016E0: 24 29 00 F3 1E BE 0A 8B 49 44 B1 37 30 30 A7 32 |$)......ID.700.2|
000016F0: 38 34 30 00 0F 1F C8 0A 9F 31 35 2C 44 49 2C 31 |840......15,DI,1|
00001700: 35 2C 22 53 30 3A 4E 45 58 54 22 3A A0 31 35 00 |5,"S0:NEXT":.15.|
00001710: 37 1F D2 0A 9F 38 2C 44 49 2C 38 2C 22 30 3A 4E |7....8,DI,8,"0:N|
00001720: 45 58 54 2C 53 2C 57 22 3A 41 B2 49 44 AA 31 3A |EXT,S,W":A.ID.1:|
00001730: 98 38 2C 41 3A A0 38 00 58 1F DC 0A 53 43 24 28 |.8,A:.8.X...SC$(|
00001740: 31 29 B2 C9 28 22 20 20 22 AA C4 28 49 44 29 2C |1)..(" "..(ID),|
00001750: 33 29 3A 8D 31 38 33 30 00 89 1F E6 0A 9F 38 2C |3):.1830......8,|
00001760: 44 49 2C 38 2C 22 30 3A 4C 49 53 54 22 3A 9F 31 |DI,8,"0:LIST":.1|
00001770: 35 2C 44 49 2C 31 35 3A 8D 31 39 39 30 3A 8B 44 |5,DI,15:.1990:.D|
00001780: 53 B1 31 39 A7 31 39 34 30 00 99 1F F0 0A 52 52 |S.19.1940.....RR|
00001790: B2 49 44 3A 8D 31 39 30 30 00 BD 1F FA 0A 98 38 |.ID:.1900......8|
000017A0: 2C 52 31 24 3A A0 38 3A A0 31 35 3A 8D 31 37 32 |,R1$:.8:.15:.172|
000017B0: 30 3A 8D 31 36 32 30 3A 89 32 33 39 30 00 F5 1F |0:.1620:.2390...|
000017C0: 04 0B 99 22 13 11 11 11 11 11 11 11 11 11 11 11 |..."............|
000017D0: 11 11 11 11 11 11 11 11 11 11 C5 D2 D2 CF D2 3A |...............:|
000017E0: 20 C9 4E 56 41 4C 49 44 20 46 49 45 4C 44 20 44 | .NVALID FIELD D|
000017F0: 41 54 41 2E 22 00 21 20 0E 0B 99 A6 37 29 22 D0 |ATA.".! ....7)".|
00001800: 4C 45 41 53 45 20 46 49 4C 4C 20 49 4E 20 41 4C |LEASE FILL IN AL|
00001810: 4C 20 46 49 45 4C 44 53 2E 13 22 3A 89 32 33 39 |L FIELDS..":.239|
00001820: 30 00 5A 20 18 0B 99 22 13 11 11 11 11 11 11 11 |0.Z ..."........|
00001830: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 C5 D2 |................|
00001840: D2 CF D2 3A 20 C6 49 4C 45 20 49 53 20 46 55 4C |...: .ILE IS FUL|
00001850: 4C 2E 13 22 3A 89 32 33 39 30 00 60 20 22 0B 3A |L..":.2390.` ".:|
00001860: 00 66 20 2C 0B 3A 00 7D 20 36 0B 8F 22 20 D2 4F |.f ,.:.} 6.." .O|
00001870: 55 54 49 4E 45 20 46 4F 52 20 C4 D3 D0 00 AF 20 |UTINE FOR ..... |
00001880: 40 0B 53 49 B2 30 3A 8D 31 37 32 30 3A 8D 31 36 |@.SI.0:.1720:.16|
00001890: 32 30 3A 8D 31 35 39 30 3A 26 46 28 31 29 3A 8B |20:.1590:&F(1):.|
000018A0: 53 54 B1 30 AF 53 54 B3 31 30 A7 32 34 35 30 00 |ST.0.ST.10.2450.|
000018B0: C7 20 4A 0B 8B 53 43 24 28 31 29 B2 42 4C 24 28 |. J..SC$(1).BL$(|
000018C0: 31 29 A7 32 39 37 30 00 EA 20 54 0B 49 44 B2 C5 |1).2970.. T.ID..|
000018D0: 28 53 43 24 28 31 29 29 3A 8B 49 44 B3 31 B0 49 |(SC$(1)):.ID.1.I|
000018E0: 44 B1 37 30 30 A7 32 39 34 30 00 1B 21 5E 0B 9F |D.700.2940..!^..|
000018F0: 38 2C 44 49 2C 38 2C 22 30 3A 4C 49 53 54 22 3A |8,DI,8,"0:LIST":|
00001900: 9F 31 35 2C 44 49 2C 31 35 3A 8D 31 39 39 30 3A |.15,DI,15:.1990:|
00001910: 8B 44 53 B1 31 39 A7 31 39 34 30 00 37 21 68 0B |.DS.19.1940.7!h.|
00001920: 8D 31 38 36 30 3A 8D 31 39 39 30 3A 8B 44 53 B1 |.1860:.1990:.DS.|
00001930: 31 39 A7 31 39 34 30 00 66 21 72 0B A0 38 3A A0 |19.1940.f!r..8:.|
00001940: 31 35 3A 8B C8 28 52 31 24 2C 34 29 B3 B1 22 23 |15:..(R1$,4).."#|
00001950: 23 23 23 22 A7 8D 31 37 37 30 3A 8D 31 36 32 30 |###"..1770:.1620|
00001960: 3A 89 32 39 36 30 00 A5 21 7C 0B 99 22 13 11 11 |:.2960..!|.."...|
00001970: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001980: 11 11 11 C5 D2 D2 CF D2 3A 20 C9 4E 56 41 4C 49 |........: .NVALI|
00001990: 44 20 4D 41 49 4C 20 4D 41 54 45 20 4E 55 4D 42 |D MAIL MATE NUMB|
000019A0: 45 52 2E 13 22 00 AF 21 86 0B 89 32 33 39 30 00 |ER.."..!...2390.|
000019B0: BE 21 90 0B 53 49 B2 31 3A 89 32 33 39 30 00 DF |.!..SI.1:.2390..|
000019C0: 21 9A 0B 8D 31 35 39 30 3A 26 45 28 32 29 3A 8B |!...1590:&E(2):.|
000019D0: 53 54 B1 30 AF 53 54 B3 31 30 A7 32 34 35 30 00 |ST.0.ST.10.2450.|
000019E0: FC 21 A4 0B 81 41 B2 32 A4 39 3A 81 42 B2 C3 28 |.!...A.2.9:.B..(|
000019F0: 53 43 24 28 41 29 29 A4 31 A9 AB 31 00 15 22 AE |SC$(A)).1..1..".|
00001A00: 0B 8B CA 28 53 43 24 28 41 29 2C 42 2C 31 29 B2 |...(SC$(A),B,1).|
00001A10: 22 20 22 A7 82 00 51 22 B8 0B 53 43 24 28 41 29 |" "...Q"..SC$(A)|
00001A20: B2 C8 28 53 43 24 28 41 29 2C 42 29 3A 81 42 B2 |..(SC$(A),B):.B.|
00001A30: 31 A4 31 3A 82 3A 82 3A 50 54 B2 30 3A 81 41 B2 |1.1:.:.:PT.0:.A.|
00001A40: 32 A4 39 3A 53 52 24 28 41 29 B2 53 43 24 28 41 |2.9:SR$(A).SC$(A|
00001A50: 29 00 7B 22 C2 0B 82 3A 81 41 B2 32 A4 39 3A 8B |).{"...:.A.2.9:.|
00001A60: C3 28 53 52 24 28 41 29 29 B3 B1 30 A7 81 41 B2 |.(SR$(A))..0..A.|
00001A70: 31 A4 31 3A 82 3A 89 33 30 34 30 00 B8 22 CC 0B |1.1:.:.3040.."..|
00001A80: 82 3A 99 22 13 11 11 11 11 11 11 11 11 11 11 11 |.:."............|
00001A90: 11 11 11 11 11 11 11 11 11 11 C5 D2 D2 CF D2 3A |...............:|
00001AA0: 20 D3 45 41 52 43 48 20 4B 45 59 20 4E 4F 54 20 | .EARCH KEY NOT |
00001AB0: 46 4F 55 4E 44 2E 13 22 00 C8 22 D6 0B 8D 31 37 |FOUND..".."...17|
00001AC0: 32 30 3A 89 32 33 39 30 00 F4 22 E0 0B 8D 31 37 |20:.2390.."...17|
00001AD0: 32 30 3A 81 41 B2 32 A4 39 3A 8B C3 28 53 52 24 |20:.A.2.9:..(SR$|
00001AE0: 28 41 29 29 B2 30 A7 82 3A 8D 31 36 32 30 3A 89 |(A)).0..:.1620:.|
00001AF0: 33 30 36 30 00 2A 23 EA 0B 53 43 24 28 41 29 B2 |3060.*#..SC$(A).|
00001B00: 22 12 22 AA C8 28 53 52 24 28 41 29 AA 42 4C 24 |"."..(SR$(A).BL$|
00001B10: 28 41 29 2C C3 28 42 4C 24 28 41 29 29 29 AA 22 |(A),.(BL$(A)))."|
00001B20: 92 22 3A 82 3A 8D 31 36 32 30 00 64 23 F4 0B 9F |.":.:.1620.d#...|
00001B30: 38 2C 44 49 2C 38 2C 22 30 3A 4E 45 58 54 22 3A |8,DI,8,"0:NEXT":|
00001B40: 84 38 2C 4D 58 24 3A A0 38 3A 9F 38 2C 44 49 2C |.8,MX$:.8:.8,DI,|
00001B50: 38 2C 22 30 3A 4C 49 53 54 22 3A 9F 31 35 2C 44 |8,"0:LIST":.15,D|
00001B60: 49 2C 31 35 00 7A 23 FE 0B 8D 31 39 39 30 3A 8B |I,15.z#...1990:.|
00001B70: 44 53 B1 31 39 A7 31 39 34 30 00 B3 23 08 0C 50 |DS.19.1940..#..P|
00001B80: 54 B2 50 54 AA 31 3A 8B 50 54 B1 C5 28 4D 58 24 |T.PT.1:.PT..(MX$|
00001B90: 29 A7 41 24 B2 22 45 22 3A 42 4D 24 B2 22 20 20 |).A$."E":BM$." |
00001BA0: 44 4F 4E 45 20 20 22 3A 8D 31 35 39 30 3A 89 33 |DONE ":.1590:.3|
00001BB0: 31 35 30 00 D1 23 12 0C A1 41 24 3A 8B 41 24 B3 |150..#...A$:.A$.|
00001BC0: B1 22 22 A7 8B C6 28 41 24 29 B2 33 A7 33 31 39 |.""...(A$).3.319|
00001BD0: 30 00 04 24 1C 0C 53 43 24 28 31 29 B2 C9 28 22 |0..$..SC$(1)..("|
00001BE0: 20 20 22 AA C4 28 50 54 29 2C 33 29 3A 8D 31 38 | "..(PT),3):.18|
00001BF0: 36 30 3A 8D 31 39 39 30 3A 8B 44 53 B1 31 39 A7 |60:.1990:.DS.19.|
00001C00: 31 39 34 30 00 2A 24 26 0C 8D 31 37 37 30 3A 81 |1940.*$&..1770:.|
00001C10: 41 B2 32 A4 39 3A 8B C3 28 53 52 24 28 41 29 29 |A.2.9:..(SR$(A))|
00001C20: B2 30 A7 82 3A 89 33 30 38 30 00 53 24 30 0C 8B |.0..:.3080.S$0..|
00001C30: 53 52 24 28 41 29 B3 B1 C8 28 53 43 24 28 41 29 |SR$(A)...(SC$(A)|
00001C40: 2C C3 28 53 52 24 28 41 29 29 29 A7 82 3A 89 33 |,.(SR$(A)))..:.3|
00001C50: 30 38 30 00 8E 24 3A 0C 8D 31 36 32 30 3A 42 4D |080..$:..1620:BM|
00001C60: 24 B2 22 27 C3 27 4F 4E 54 49 4E 55 45 20 2D 2D |$."'.'ONTINUE --|
00001C70: 20 27 C5 27 4E 44 22 3A 8D 31 35 39 30 3A 97 31 | '.'ND":.1590:.1|
00001C80: 39 38 2C 30 3A 92 31 39 38 2C 31 3A 26 42 00 AC |98,0:.198,1:&B..|
00001C90: 24 44 0C A1 41 24 3A 8B 41 24 B3 B1 22 43 22 AF |$D..A$:.A$.."C".|
00001CA0: 41 24 B3 B1 22 45 22 A7 33 31 33 30 00 BE 24 4E |A$.."E".3130..$N|
00001CB0: 0C 8B 41 24 B3 B1 22 45 22 A7 33 31 37 30 00 EE |..A$.."E".3170..|
00001CC0: 24 58 0C A0 38 3A A0 31 35 3A 81 41 B2 32 A4 39 |$X..8:.15:.A.2.9|
00001CD0: 3A 53 52 24 28 41 29 B2 22 22 3A 82 3A 8D 31 37 |:SR$(A)."":.:.17|
00001CE0: 32 30 3A 8D 31 36 32 30 3A 89 32 33 39 30 00 1A |20:.1620:.2390..|
00001CF0: 25 62 0C 8D 31 37 32 30 3A 81 41 B2 32 A4 39 3A |%b..1720:.A.2.9:|
00001D00: 8B C3 28 53 52 24 28 41 29 29 B2 30 A7 82 3A 8D |..(SR$(A)).0..:.|
00001D10: 31 36 32 30 3A 89 33 30 38 30 00 56 25 6C 0C 53 |1620:.3080.V%l.S|
00001D20: 43 24 28 41 29 B2 22 12 22 AA C8 28 53 52 24 28 |C$(A)."."..(SR$(|
00001D30: 41 29 AA 42 4C 24 28 41 29 2C C3 28 42 4C 24 28 |A).BL$(A),.(BL$(|
00001D40: 41 29 29 29 AA 22 92 22 3A 82 3A 8D 31 36 32 30 |A))).".":.:.1620|
00001D50: 3A 89 33 30 38 30 00 7A 25 76 0C A0 38 3A A0 31 |:.3080.z%v..8:.1|
00001D60: 35 3A 81 41 B2 32 A4 39 3A 53 52 24 28 41 29 B2 |5:.A.2.9:SR$(A).|
00001D70: 22 22 3A 82 3A 8D 31 37 32 30 00 BB 25 80 0C 99 |"":.:.1720..%...|
00001D80: 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |"...............|
00001D90: 11 11 11 11 11 11 11 D7 C1 D2 CE C9 CE C7 3A 20 |..............: |
00001DA0: CA 4F 42 20 4F 50 54 49 4F 4E 20 43 41 4E 43 45 |.OB OPTION CANCE|
00001DB0: 4C 45 44 20 44 55 45 20 54 4F 22 00 E4 25 8A 0C |LED DUE TO"..%..|
00001DC0: 99 A6 39 29 22 4F 50 45 52 41 54 4F 52 20 49 4E |..9)"OPERATOR IN|
00001DD0: 54 45 52 56 45 4E 53 49 4F 4E 2E 13 22 3A 89 32 |TERVENSION..":.2|
00001DE0: 33 39 30 2E 00 EA 25 94 0C 3A 00 F0 25 9E 0C 3A |390...%..:..%..:|
00001DF0: 00 07 26 A8 0C 8F 22 20 D2 4F 55 54 49 4E 45 20 |..&..." .OUTINE |
00001E00: 46 4F 52 20 C1 CC D4 00 16 26 B2 0C 8B 53 49 B2 |FOR .....&...SI.|
00001E10: 30 A7 33 32 39 30 00 3C 26 BC 0C 53 49 B2 30 3A |0.3290.<&..SI.0:|
00001E20: 8D 31 35 39 30 3A 26 45 28 32 29 3A 8B 53 54 B1 |.1590:&E(2):.ST.|
00001E30: 30 AF 53 54 B3 31 30 A7 32 34 35 30 00 73 26 C6 |0.ST.10.2450.s&.|
00001E40: 0C 8D 31 38 33 30 3A 9F 38 2C 44 49 2C 38 2C 22 |..1830:.8,DI,8,"|
00001E50: 30 3A 4C 49 53 54 22 3A 9F 31 35 2C 44 49 2C 31 |0:LIST":.15,DI,1|
00001E60: 35 3A 8D 31 39 39 30 3A 8B 44 53 B1 31 39 A7 31 |5:.1990:.DS.19.1|
00001E70: 39 34 30 00 97 26 D0 0C 52 52 B2 49 44 3A 8D 31 |940..&..RR.ID:.1|
00001E80: 39 30 30 3A 98 38 2C 52 31 24 3A A0 38 3A A0 31 |900:.8,R1$:.8:.1|
00001E90: 35 3A 89 32 33 38 30 00 DD 26 DA 0C 99 22 13 11 |5:.2380..&..."..|
00001EA0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001EB0: 11 11 11 11 C5 D2 D2 CF D2 3A 20 C4 D3 D0 20 4D |.........: ... M|
00001EC0: 55 53 54 20 42 45 20 45 58 45 43 55 54 45 44 20 |UST BE EXECUTED |
00001ED0: 42 45 46 4F 52 45 20 C1 CC D4 2E 13 22 00 E7 26 |BEFORE ....."..&|
00001EE0: E4 0C 89 32 33 39 30 00 ED 26 EE 0C 3A 00 F3 26 |...2390..&..:..&|
00001EF0: F8 0C 3A 00 0A 27 02 0D 8F 22 20 D2 4F 55 54 49 |..:..'..." .OUTI|
00001F00: 4E 45 20 46 4F 52 20 C4 C5 CC 00 39 27 0C 0D 53 |NE FOR ....9'..S|
00001F10: 49 B2 30 3A 41 24 B2 53 43 24 28 30 29 3A 8D 31 |I.0:A$.SC$(0):.1|
00001F20: 37 32 30 3A 53 43 24 28 30 29 B2 41 24 3A 8D 31 |720:SC$(0).A$:.1|
00001F30: 36 32 30 3A 8D 31 35 39 30 00 55 27 16 0D 3A 26 |620:.1590.U'..:&|
00001F40: 46 28 31 29 3A 8B 53 54 B1 30 AF 53 54 B3 31 30 |F(1):.ST.0.ST.10|
00001F50: A7 32 34 35 30 00 78 27 20 0D 49 44 B2 C5 28 53 |.2450.x' .ID..(S|
00001F60: 43 24 28 31 29 29 3A 8B 49 44 B3 31 B0 49 44 B1 |C$(1)):.ID.1.ID.|
00001F70: 37 30 30 A7 32 39 34 30 00 A9 27 2A 0D 9F 38 2C |700.2940..'*..8,|
00001F80: 44 49 2C 38 2C 22 30 3A 4C 49 53 54 22 3A 9F 31 |DI,8,"0:LIST":.1|
00001F90: 35 2C 44 49 2C 31 35 3A 8D 31 39 39 30 3A 8B 44 |5,DI,15:.1990:.D|
00001FA0: 53 B1 31 39 A7 31 39 34 30 00 CE 27 34 0D 8D 31 |S.19.1940..'4..1|
00001FB0: 38 36 30 3A A0 38 3A A0 31 35 3A 8B C8 28 52 31 |860:.8:.15:..(R1|
00001FC0: 24 2C 32 29 B2 22 23 23 22 A7 32 39 34 30 00 04 |$,2)."##".2940..|
00001FD0: 28 3E 0D 8D 31 37 37 30 3A 8D 31 36 32 30 3A 42 |(>..1770:.1620:B|
00001FE0: 4D 24 B2 22 D0 52 45 53 53 20 D3 D0 C1 C3 C5 20 |M$.".RESS ..... |
00001FF0: C2 C1 D2 20 54 4F 20 56 45 52 49 46 59 20 46 49 |... TO VERIFY FI|
00002000: 4C 45 2E 22 00 2E 28 48 0D 8D 31 35 39 30 3A 97 |LE."..(H..1590:.|
00002010: 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A A1 41 24 |198,0:.198,1:.A$|
00002020: 3A 8B 41 24 B3 B1 22 20 22 A7 32 33 38 30 00 68 |:.A$.." ".2380.h|
00002030: 28 52 0D 3A 26 42 3A 52 31 24 B2 22 22 3A 81 41 |(R.:&B:R1$."":.A|
00002040: B2 31 A4 31 38 34 3A 52 31 24 B2 52 31 24 AA 22 |.1.184:R1$.R1$."|
00002050: 23 22 3A 82 3A 9F 38 2C 44 49 2C 38 2C 22 30 3A |#":.:.8,DI,8,"0:|
00002060: 54 41 42 4C 45 2C 41 22 00 93 28 5C 0D 98 38 2C |TABLE,A"..(\..8,|
00002070: C4 28 49 44 29 3A A0 38 3A 9F 38 2C 44 49 2C 38 |.(ID):.8:.8,DI,8|
00002080: 2C 22 30 3A 4C 49 53 54 22 3A 9F 31 35 2C 44 49 |,"0:LIST":.15,DI|
00002090: 2C 31 35 00 A9 28 66 0D 8D 31 39 39 30 3A 8B 44 |,15..(f..1990:.D|
000020A0: 53 B1 31 39 A7 31 39 34 30 00 CD 28 70 0D 52 52 |S.19.1940..(p.RR|
000020B0: B2 49 44 3A 8D 31 39 30 30 3A 98 38 2C 52 31 24 |.ID:.1900:.8,R1$|
000020C0: 3A A0 38 3A A0 31 35 3A 89 32 33 38 30 00 D3 28 |:.8:.15:.2380..(|
000020D0: 7A 0D 3A 00 D9 28 84 0D 3A 00 F0 28 8E 0D 8F 22 |z.:..(..:..(..."|
000020E0: 20 D2 4F 55 54 49 4E 45 20 46 4F 52 20 C9 CE D4 | .OUTINE FOR ...|
000020F0: 00 1F 29 98 0D 50 4F 24 B2 53 43 24 28 30 29 3A |..)..PO$.SC$(0):|
00002100: 42 4D 24 B2 22 D0 52 45 53 53 20 C6 31 20 54 4F |BM$.".RESS .1 TO|
00002110: 20 41 42 4F 52 54 20 4F 50 54 49 4F 4E 2E 22 00 | ABORT OPTION.".|
00002120: 61 29 A2 0D 53 49 B2 30 3A 99 22 13 11 11 11 11 |a)..SI.0:.".....|
00002130: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00002140: 11 D7 C1 D2 CE D5 CE C7 3A 20 CE 45 55 45 20 C4 |........: .EUE .|
00002150: 49 53 4B 45 54 54 45 20 45 49 4E 4C 45 47 45 4E |ISKETTE EINLEGEN|
00002160: 22 00 82 29 AC 0D 99 A6 39 29 22 55 4E 44 20 D2 |"..)....9)"UND .|
00002170: C5 D4 D5 D2 CE 20 44 52 55 45 43 4B 45 4E 20 2E |..... DRUECKEN .|
00002180: 13 22 00 A1 29 B6 0D 8D 31 35 39 30 3A 97 31 39 |."..)...1590:.19|
00002190: 38 2C 30 3A 92 31 39 38 2C 31 3A A1 41 24 3A 26 |8,0:.198,1:.A$:&|
000021A0: 42 00 B5 29 C0 0D 8B C6 28 41 24 29 B2 31 33 33 |B..)....(A$).133|
000021B0: A7 32 33 38 30 00 C9 29 CA 0D 8B C6 28 41 24 29 |.2380..)....(A$)|
000021C0: B3 B1 31 33 A7 33 34 39 30 00 FB 29 D4 0D 9F 38 |..13.3490..)...8|
000021D0: 2C 44 49 2C 38 2C 22 30 3A 4E 4E 4E 4E 22 3A 9F |,DI,8,"0:NNNN":.|
000021E0: 31 35 2C 44 49 2C 31 35 3A 8D 31 39 39 30 3A 8B |15,DI,15:.1990:.|
000021F0: 44 53 B3 B1 36 32 A7 33 36 31 30 00 40 2A DE 0D |DS..62.3610.@*..|
00002200: 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
00002210: 11 11 11 11 11 11 11 11 D7 C1 D2 CE D5 CE C7 3A |...............:|
00002220: 20 D0 52 4F 47 52 41 4D 4D 2D C4 49 53 4B 45 54 | .ROGRAMM-.ISKET|
00002230: 54 45 20 48 45 52 41 55 53 4E 45 48 4D 45 4E 22 |TE HERAUSNEHMEN"|
00002240: 00 71 2A E8 0D 99 22 57 49 52 44 20 53 4F 4E 53 |.q*..."WIRD SONS|
00002250: 54 20 47 45 4C 4F 45 53 43 48 54 20 2E 20 20 C1 |T GELOESCHT . .|
00002260: 52 45 20 59 4F 55 20 53 55 52 45 20 20 20 20 22 |RE YOU SURE "|
00002270: 3B 00 A1 2A F2 0D 99 22 53 4F 4C 4C 20 C4 49 53 |;..*..."SOLL .IS|
00002280: 4B 45 54 54 45 20 46 4F 52 4D 41 54 49 45 52 54 |KETTE FORMATIERT|
00002290: 20 57 45 52 44 45 4E 3F 13 22 3A A0 38 3A A0 31 | WERDEN?.":.8:.1|
000022A0: 35 00 C0 2A FC 0D 8D 31 35 39 30 3A 97 31 39 38 |5..*...1590:.198|
000022B0: 2C 30 3A 92 31 39 38 2C 31 3A A1 41 24 3A 26 42 |,0:.198,1:.A$:&B|
000022C0: 00 DB 2A 06 0E 8B 41 24 B2 22 4E 22 B0 C6 28 41 |..*...A$."N"..(A|
000022D0: 24 29 B2 31 33 33 A7 32 33 38 30 00 ED 2A 10 0E |$).133.2380..*..|
000022E0: 8B 41 24 B3 B1 22 59 22 A7 33 35 35 30 00 02 2B |.A$.."Y".3550..+|
000022F0: 1A 0E A0 38 3A A0 31 35 3A 9F 31 35 2C 44 49 2C |...8:.15:.15,DI,|
00002300: 31 35 00 1D 2B 24 0E 8D 31 37 32 30 3A 53 43 24 |15..+$..1720:SC$|
00002310: 28 30 29 B2 50 4F 24 3A 8D 31 36 32 30 00 5C 2B |(0).PO$:.1620.\+|
00002320: 2E 0E 99 22 13 11 11 11 11 11 11 11 11 11 11 11 |..."............|
00002330: 11 11 11 11 11 11 11 11 11 11 C2 49 54 54 45 20 |...........ITTE |
00002340: 48 41 42 45 4E 20 D3 49 45 20 C7 45 44 55 4C 44 |HABEN .IE .EDULD|
00002350: 2C 20 45 53 20 44 41 55 45 52 54 22 00 7B 2B 38 |, ES DAUERT".{+8|
00002360: 0E 99 22 55 4E 47 45 46 41 45 48 52 20 31 30 20 |.."UNGEFAEHR 10 |
00002370: CD 49 4E 55 54 45 4E 20 2E 13 22 00 AF 2B 42 0E |.INUTEN .."..+B.|
00002380: 98 31 35 2C 22 4E 30 3A CC 4F 47 42 55 43 48 20 |.15,"N0:.OGBUCH |
00002390: 20 20 22 AA 44 54 24 AA 22 2C 39 39 22 3A 8D 31 | ".DT$.",99":.1|
000023A0: 39 39 30 3A 8B 44 53 B3 B1 30 A7 31 39 34 30 00 |990:.DS..0.1940.|
000023B0: E9 2B 4C 0E 9F 38 2C 44 49 2C 38 2C 22 30 3A 4E |.+L..8,DI,8,"0:N|
000023C0: 45 58 54 2C 53 2C 57 22 3A 98 38 2C 22 31 20 22 |EXT,S,W":.8,"1 "|
000023D0: 3A A0 38 3A 9F 38 2C 44 49 2C 38 2C 22 30 3A 54 |:.8:.8,DI,8,"0:T|
000023E0: 41 42 4C 45 2C 53 2C 57 22 00 1E 2C 56 0E 98 38 |ABLE,S,W"..,V..8|
000023F0: 2C 22 2A 2A 46 49 4C 4C 45 52 2A 2A 22 3A A0 38 |,"**FILLER**":.8|
00002400: 3A 52 31 24 B2 22 22 3A 81 41 B2 31 A4 31 38 34 |:R1$."":.A.1.184|
00002410: 3A 52 31 24 B2 52 31 24 AA 22 23 22 3A 82 00 47 |:R1$.R1$."#":..G|
00002420: 2C 60 0E 9F 38 2C 44 49 2C 38 2C 22 30 3A 4C 49 |,`..8,DI,8,"0:LI|
00002430: 53 54 2C 4C 22 AA C7 28 31 38 35 29 AA 22 2C 22 |ST,L"..(185).","|
00002440: AA C7 28 31 38 35 29 00 5F 2C 6A 0E 52 52 B2 37 |..(185)._,j.RR.7|
00002450: 30 30 3A 8D 31 39 30 30 3A 98 38 2C 52 31 24 00 |00:.1900:.8,R1$.|
00002460: 8D 2C 74 0E 52 52 B2 31 3A 8D 31 39 30 30 3A 81 |.,t.RR.1:.1900:.|
00002470: 41 B2 31 A4 37 30 30 3A 98 38 2C 52 31 24 3A 82 |A.1.700:.8,R1$:.|
00002480: 3A A0 38 3A A0 31 35 3A 89 32 33 38 30 00 93 2C |:.8:.15:.2380..,|
00002490: 7E 0E 3A 00 99 2C 88 0E 3A 00 B0 2C 92 0E 8F 22 |~.:..,..:..,..."|
000024A0: 20 D2 4F 55 54 49 4E 45 20 46 4F 52 20 C4 D3 CB | .OUTINE FOR ...|
000024B0: 00 EB 2C 9C 0E 9F 31 35 2C 44 49 2C 31 35 3A 8D |..,...15,DI,15:.|
000024C0: 31 39 39 30 3A 99 22 13 11 11 11 11 11 11 11 11 |1990:.".........|
000024D0: 11 11 11 11 11 11 11 11 11 11 11 11 11 C4 52 49 |..............RI|
000024E0: 56 45 20 D3 54 41 54 55 53 3A 22 00 19 2D A6 0E |VE .TATUS:"..-..|
000024F0: 99 44 53 24 22 13 22 3A 42 4D 24 B2 22 C4 52 55 |.DS$".":BM$.".RU|
00002500: 45 43 4B 45 20 D3 D4 CF D0 20 46 2E 20 C9 4E 46 |ECKE .... F. .NF|
00002510: 4F 2E 22 3A 8D 31 35 39 30 00 35 2D B0 0E A0 31 |O.":.1590.5-...1|
00002520: 35 3A 9F 31 35 2C 44 49 2C 31 35 3A A0 31 35 3A |5:.15,DI,15:.15:|
00002530: 89 32 33 39 30 00 3B 2D BA 0E 3A 00 41 2D C4 0E |.2390.;-..:.A-..|
00002540: 3A 00 58 2D CE 0E 8F 22 20 D2 4F 55 54 49 4E 45 |:.X-..." .OUTINE|
00002550: 20 46 4F 52 20 CC D3 D4 00 83 2D D8 0E 53 49 B2 | FOR .....-..SI.|
00002560: 30 3A 50 4F 24 B2 53 43 24 28 30 29 3A 8D 31 37 |0:PO$.SC$(0):.17|
00002570: 32 30 3A 53 43 24 28 30 29 B2 50 4F 24 3A 8D 31 |20:SC$(0).PO$:.1|
00002580: 36 32 30 00 AD 2D E2 0E 42 4D 24 B2 22 D0 52 45 |620..-..BM$.".RE|
00002590: 53 53 20 C6 31 20 54 4F 20 41 42 4F 52 54 20 4F |SS .1 TO ABORT O|
000025A0: 50 54 49 4F 4E 2E 22 3A 8D 31 35 39 30 00 F3 2D |PTION.":.1590..-|
000025B0: EC 0E 99 22 13 11 11 11 11 11 11 11 11 11 11 11 |..."............|
000025C0: 11 11 11 11 11 11 11 11 11 11 C4 4F 20 59 4F 55 |...........O YOU|
000025D0: 20 57 49 53 48 20 54 4F 20 55 53 45 20 50 41 54 | WISH TO USE PAT|
000025E0: 54 45 52 4E 20 4D 41 54 43 48 20 28 59 2F 4E 29 |TERN MATCH (Y/N)|
000025F0: 3F 13 22 00 2A 2E F6 0E 97 31 39 38 2C 30 3A 92 |?.".*....198,0:.|
00002600: 31 39 38 2C 31 3A A1 41 24 3A 8B 41 24 B3 B1 22 |198,1:.A$:.A$.."|
00002610: 59 22 AF 41 24 B3 B1 22 4E 22 AF C6 28 41 24 29 |Y".A$.."N"..(A$)|
00002620: B3 B1 31 33 33 A7 33 38 33 30 00 3E 2E 00 0F 8B |..133.3830.>....|
00002630: C6 28 41 24 29 B2 31 33 33 A7 32 33 38 30 00 5C |.(A$).133.2380.\|
00002640: 2E 0A 0F 8B 41 24 B2 22 4E 22 A7 50 4D 24 B2 22 |....A$."N".PM$."|
00002650: 22 3A 50 4D B2 30 3A 89 33 39 34 30 00 86 2E 14 |":PM.0:.3940....|
00002660: 0F 8D 31 37 32 30 3A 53 43 24 28 30 29 B2 22 2A |..1720:SC$(0)."*|
00002670: 2A 2A 22 3A 53 43 24 28 31 29 B2 22 2A 2A 2A 22 |**":SC$(1)."***"|
00002680: 3A 8D 31 36 32 30 00 B2 2E 1E 0F 42 4D 24 B2 22 |:.1620.....BM$."|
00002690: D0 52 45 53 53 20 D3 D4 CF D0 20 54 4F 20 41 42 |.RESS .... TO AB|
000026A0: 4F 52 54 20 4F 50 54 49 4F 4E 2E 22 3A 8D 31 35 |ORT OPTION.":.15|
000026B0: 39 30 00 EE 2E 28 0F 99 22 13 11 11 11 11 11 11 |90...(..".......|
000026C0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 D0 |................|
000026D0: 4C 45 41 53 45 20 53 45 4C 45 43 54 20 4D 41 54 |LEASE SELECT MAT|
000026E0: 43 48 49 4E 47 20 46 49 45 4C 44 2E 13 22 00 0A |CHING FIELD.."..|
000026F0: 2F 32 0F 3A 26 45 28 32 29 3A 8B 53 54 B1 30 AF |/2.:&E(2):.ST.0.|
00002700: 53 54 B3 31 30 A7 32 33 38 30 00 2D 2F 3C 0F 81 |ST.10.2380.-/<..|
00002710: 41 B2 32 A4 31 30 3A 8B 53 43 24 28 41 29 B2 42 |A.2.10:.SC$(A).B|
00002720: 4C 24 28 41 29 A7 82 3A 89 33 39 33 30 00 58 2F |L$(A)..:.3930.X/|
00002730: 46 0F 81 42 B2 C3 28 53 43 24 28 41 29 29 A4 31 |F..B..(SC$(A)).1|
00002740: A9 AB 31 3A 8B CA 28 53 43 24 28 41 29 2C 42 2C |..1:..(SC$(A),B,|
00002750: 31 29 B2 22 20 22 A7 82 00 89 2F 50 0F 50 4D 24 |1)." "..../P.PM$|
00002760: B2 C8 28 53 43 24 28 41 29 2C 42 29 3A 50 4D B2 |..(SC$(A),B):PM.|
00002770: 41 3A 81 42 B2 31 A4 31 3A 82 3A 81 41 B2 31 A4 |A:.B.1.1:.:.A.1.|
00002780: 31 3A 82 3A 89 33 39 34 30 00 D1 2F 5A 0F 99 22 |1:.:.3940../Z.."|
00002790: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000027A0: 11 11 11 11 11 11 C5 D2 D2 CF D2 3A 20 D0 41 54 |...........: .AT|
000027B0: 54 45 52 4E 20 4D 41 54 43 48 20 4B 45 59 20 4E |TERN MATCH KEY N|
000027C0: 4F 54 20 46 4F 55 4E 44 2E 13 22 3A 89 33 38 39 |OT FOUND..":.389|
000027D0: 30 00 12 30 64 0F 8D 31 37 32 30 3A 53 43 24 28 |0..0d..1720:SC$(|
000027E0: 30 29 B2 50 4F 24 3A 8D 31 36 32 30 3A 42 4D 24 |0).PO$:.1620:BM$|
000027F0: B2 22 D0 52 45 53 53 20 C6 31 20 54 4F 20 41 42 |.".RESS .1 TO AB|
00002800: 4F 52 54 20 4F 50 54 49 4F 4E 2E 22 3A 8D 31 35 |ORT OPTION.":.15|
00002810: 39 30 00 59 30 6E 0F 99 22 13 11 11 11 11 11 11 |90.Y0n..".......|
00002820: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 C4 |................|
00002830: 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 20 53 4F |O YOU WISH TO SO|
00002840: 52 54 20 54 48 45 20 46 49 4C 45 20 28 59 2F 4E |RT THE FILE (Y/N|
00002850: 29 3F 20 20 20 20 20 13 22 00 90 30 78 0F 97 31 |)? ."..0x..1|
00002860: 39 38 2C 30 3A 92 31 39 38 2C 31 3A A1 41 24 3A |98,0:.198,1:.A$:|
00002870: 8B 41 24 B3 B1 22 59 22 AF 41 24 B3 B1 22 4E 22 |.A$.."Y".A$.."N"|
00002880: AF C6 28 41 24 29 B3 B1 31 33 33 A7 33 39 36 30 |..(A$)..133.3960|
00002890: 00 A4 30 82 0F 8B C6 28 41 24 29 B2 31 33 33 A7 |..0....(A$).133.|
000028A0: 32 33 38 30 00 D6 30 8C 0F 8D 31 36 32 30 3A 9F |2380..0...1620:.|
000028B0: 38 2C 44 49 2C 38 2C 22 30 3A 4E 45 58 54 22 3A |8,DI,8,"0:NEXT":|
000028C0: 84 38 2C 4D 58 24 3A A0 38 3A 8B 41 24 B2 22 59 |.8,MX$:.8:.A$."Y|
000028D0: 22 A7 34 31 30 30 00 17 31 96 0F 99 22 13 11 11 |".4100..1..."...|
000028E0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000028F0: 11 11 11 C3 C1 D5 D4 C9 CF CE 3A 20 D0 52 45 53 |..........: .RES|
00002900: 53 20 C6 31 20 54 4F 20 41 42 4F 52 54 20 4F 50 |S .1 TO ABORT OP|
00002910: 54 49 4F 4E 2E 13 22 00 4E 31 A0 0F 8D 32 30 33 |TION..".N1...203|
00002920: 30 3A 9F 38 2C 44 49 2C 38 2C 22 30 3A 4C 49 53 |0:.8,DI,8,"0:LIS|
00002930: 54 22 3A 9F 31 35 2C 44 49 2C 31 35 3A 8D 31 39 |T":.15,DI,15:.19|
00002940: 39 30 3A 8B 44 53 B1 31 39 A7 31 39 34 30 00 77 |90:.DS.19.1940.w|
00002950: 31 AA 0F 81 52 50 B2 31 A4 C5 28 4D 58 24 29 AB |1...RP.1..(MX$).|
00002960: 31 3A 53 43 24 28 31 29 B2 C9 28 22 20 22 AA C4 |1:SC$(1)..(" "..|
00002970: 28 52 50 29 2C 33 29 00 96 31 B4 0F 8D 31 38 36 |(RP),3)..1...186|
00002980: 30 3A 8B C8 28 52 31 24 2C 33 29 B2 22 23 23 23 |0:..(R1$,3)."###|
00002990: 22 A7 34 30 36 30 00 AB 31 BE 0F 8D 31 37 37 30 |".4060..1...1770|
000029A0: 3A 8B 50 4D B2 30 A7 34 30 35 30 00 CC 31 C8 0F |:.PM.0.4050..1..|
000029B0: 8B C8 28 53 43 24 28 50 4D 29 2C C3 28 50 4D 24 |..(SC$(PM),.(PM$|
000029C0: 29 29 B3 B1 50 4D 24 A7 34 30 36 30 00 F2 31 D2 |))..PM$.4060..1.|
000029D0: 0F 8D 32 31 30 30 3A A1 41 24 3A 8B 41 24 B3 B1 |..2100:.A$:.A$..|
000029E0: 22 22 A7 8B C6 28 41 24 29 B2 31 33 33 A7 34 30 |""...(A$).133.40|
000029F0: 39 30 00 0F 32 DC 0F A1 41 24 3A 8B 41 24 B3 B1 |90..2...A$:.A$..|
00002A00: 22 22 A7 8B 41 24 B2 22 85 22 A7 34 30 39 30 00 |""..A$.".".4090.|
00002A10: 23 32 E6 0F 82 3A 81 41 B2 4C 4E A4 36 34 3A 98 |#2...:.A.LN.64:.|
00002A20: 34 3A 82 00 37 32 F0 0F A0 34 3A A0 38 3A A0 31 |4:..72...4:.8:.1|
00002A30: 35 3A 89 32 33 38 30 00 6C 32 FA 0F 42 4D 24 B2 |5:.2380.l2..BM$.|
00002A40: 22 CF 50 54 49 4F 4E 20 C3 41 4E 43 45 4C 45 44 |".PTION .ANCELED|
00002A50: 22 3A 8D 31 35 39 30 3A 81 52 50 B2 4C 4E A4 36 |":.1590:.RP.LN.6|
00002A60: 35 3A 98 34 3A 82 3A 89 34 30 38 30 00 98 32 04 |5:.4:.:.4080..2.|
00002A70: 10 8D 31 37 32 30 3A 53 43 24 28 30 29 B2 22 2A |..1720:SC$(0)."*|
00002A80: 2A 2A 22 3A 53 43 24 28 31 29 B2 22 2A 2A 2A 22 |**":SC$(1)."***"|
00002A90: 3A 81 41 B2 32 A4 31 30 00 CB 32 0E 10 53 43 24 |:.A.2.10..2..SC$|
00002AA0: 28 41 29 B2 C9 28 C4 28 41 29 2C 31 29 AA C9 28 |(A)..(.(A),1)..(|
00002AB0: 53 43 24 28 41 29 2C C3 28 53 43 24 28 41 29 29 |SC$(A),.(SC$(A))|
00002AC0: AB 31 29 3A 82 3A 8D 31 36 32 30 00 F5 32 18 10 |.1):.:.1620..2..|
00002AD0: 42 4D 24 B2 22 D0 52 45 53 53 20 C6 31 20 54 4F |BM$.".RESS .1 TO|
00002AE0: 20 41 42 4F 52 54 20 4F 50 54 49 4F 4E 2E 22 3A | ABORT OPTION.":|
00002AF0: 8D 31 35 39 30 00 2D 33 22 10 99 22 13 11 11 11 |.1590.-3".."....|
00002B00: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00002B10: 11 11 D0 4C 45 41 53 45 20 53 45 4C 45 43 54 20 |...LEASE SELECT |
00002B20: 53 4F 52 54 20 46 49 45 4C 44 2E 13 22 00 61 33 |SORT FIELD..".a3|
00002B30: 2C 10 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A |,..198,0:.198,1:|
00002B40: A1 41 24 3A 8B 28 41 24 B3 22 30 22 B0 41 24 B1 |.A$:.(A$."0".A$.|
00002B50: 22 39 22 29 AF 41 24 B3 B1 22 85 22 A7 34 31 34 |"9").A$..".".414|
00002B60: 30 00 72 33 36 10 8B 41 24 B2 22 85 22 A7 32 33 |0.r36..A$.".".23|
00002B70: 38 30 00 83 33 40 10 8B 41 24 B2 22 31 22 A7 34 |80..3@..A$."1".4|
00002B80: 31 34 30 00 97 33 4A 10 8B 41 24 B2 22 30 22 A7 |140..3J..A$."0".|
00002B90: 41 24 B2 22 31 30 22 00 BB 33 54 10 53 50 B2 C5 |A$."10"..3T.SP..|
00002BA0: 28 41 24 29 3A 8D 31 37 32 30 3A 53 43 24 28 30 |(A$):.1720:SC$(0|
00002BB0: 29 B2 50 4F 24 3A 8D 31 36 32 30 00 FC 33 5E 10 |).PO$:.1620..3^.|
00002BC0: 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
00002BD0: 11 11 11 11 11 11 11 11 C3 C1 D5 D4 C9 CF CE 3A |...............:|
00002BE0: 20 D0 52 45 53 53 20 C6 31 20 54 4F 20 41 42 4F | .RESS .1 TO ABO|
00002BF0: 52 54 20 4F 50 54 49 4F 4E 2E 13 22 00 2D 34 68 |RT OPTION..".-4h|
00002C00: 10 9F 38 2C 44 49 2C 38 2C 22 30 3A 4C 49 53 54 |..8,DI,8,"0:LIST|
00002C10: 22 3A 9F 31 35 2C 44 49 2C 31 35 3A 8D 31 39 39 |":.15,DI,15:.199|
00002C20: 30 3A 8B 44 53 B1 31 39 A7 31 39 34 30 00 5B 34 |0:.DS.19.1940.[4|
00002C30: 72 10 52 4E B2 31 3A 81 52 50 B2 31 A4 C5 28 4D |r.RN.1:.RP.1..(M|
00002C40: 58 24 29 AB 31 3A 53 43 24 28 31 29 B2 C9 28 22 |X$).1:SC$(1)..("|
00002C50: 20 22 AA C4 28 52 50 29 2C 33 29 00 77 34 7C 10 | "..(RP),3).w4|.|
00002C60: 8D 31 38 36 30 3A 8D 31 39 39 30 3A 8B 44 53 B1 |.1860:.1990:.DS.|
00002C70: 31 39 A7 31 39 34 30 00 9D 34 86 10 8D 31 37 37 |19.1940..4...177|
00002C80: 30 3A A1 41 24 3A 8B 41 24 B3 B1 22 22 A7 8B C6 |0:.A$:.A$..""...|
00002C90: 28 41 24 29 B2 31 33 33 A7 34 32 38 30 00 AC 34 |(A$).133.4280..4|
00002CA0: 90 10 8B 50 4D B2 30 A7 34 32 36 30 00 CD 34 9A |...PM.0.4260..4.|
00002CB0: 10 8B C8 28 53 43 24 28 50 4D 29 2C C3 28 50 4D |...(SC$(PM),.(PM|
00002CC0: 24 29 29 B3 B1 50 4D 24 A7 34 32 37 30 00 F0 34 |$))..PM$.4270..4|
00002CD0: A4 10 4D 54 24 28 52 4E 29 B2 53 43 24 28 31 29 |..MT$(RN).SC$(1)|
00002CE0: AA 53 43 24 28 53 50 29 3A 52 4E B2 52 4E AA 31 |.SC$(SP):RN.RN.1|
00002CF0: 00 02 35 AE 10 82 3A 8D 32 30 33 30 3A 89 34 32 |..5...:.2030:.42|
00002D00: 39 30 00 32 35 B8 10 42 4D 24 B2 22 CF 50 54 49 |90.25..BM$.".PTI|
00002D10: 4F 4E 20 C3 41 4E 43 45 4C 45 44 22 3A 8D 31 35 |ON .ANCELED":.15|
00002D20: 39 30 3A 81 52 50 B2 31 A4 31 3A 82 3A 89 34 30 |90:.RP.1.1:.:.40|
00002D30: 38 30 00 71 35 C2 10 42 52 24 B2 22 39 39 39 DA |80.q5..BR$."999.|
00002D40: DA DA DA DA DA DA DA DA DA DA DA DA DA DA DA DA |................|
00002D50: DA DA DA DA DA DA DA DA DA DA DA DA DA 22 3A 81 |.............":.|
00002D60: 41 41 B2 31 A4 52 4E AB 31 3A 43 4B 24 B2 42 52 |AA.1.RN.1:CK$.BR|
00002D70: 24 00 9C 35 CC 10 81 42 42 B2 31 A4 52 4E AB 31 |$..5...BB.1.RN.1|
00002D80: 3A A1 41 24 3A 8B 41 24 B3 B1 22 22 A7 8B C6 28 |:.A$:.A$..""...(|
00002D90: 41 24 29 B2 31 33 33 A7 34 30 39 30 00 DB 35 D6 |A$).133.4090..5.|
00002DA0: 10 8B C9 28 4D 54 24 28 42 42 29 2C C3 28 53 43 |...(MT$(BB),.(SC|
00002DB0: 24 28 53 50 29 29 29 B3 C9 28 43 4B 24 2C C3 28 |$(SP)))..(CK$,.(|
00002DC0: 53 43 24 28 53 50 29 29 29 A7 43 43 B2 42 42 3A |SC$(SP))).CC.BB:|
00002DD0: 43 4B 24 B2 4D 54 24 28 42 42 29 00 08 36 E0 10 |CK$.MT$(BB)..6..|
00002DE0: 82 3A 53 43 24 28 31 29 B2 C8 28 4D 54 24 28 43 |.:SC$(1)..(MT$(C|
00002DF0: 43 29 2C 33 29 3A 8B 53 43 24 28 31 29 B2 22 39 |C),3):.SC$(1)."9|
00002E00: 39 39 22 A7 34 33 35 30 00 27 36 EA 10 8D 31 38 |99".4350.'6...18|
00002E10: 36 30 3A 8B C8 28 52 31 24 2C 33 29 B2 22 23 23 |60:..(R1$,3)."##|
00002E20: 23 22 A7 34 33 35 30 00 53 36 F4 10 8D 31 37 37 |#".4350.S6...177|
00002E30: 30 3A 8D 32 31 30 30 3A A1 41 24 3A 8B 41 24 B3 |0:.2100:.A$:.A$.|
00002E40: B1 22 22 A7 8B C6 28 41 24 29 B2 31 33 33 A7 34 |.""...(A$).133.4|
00002E50: 30 39 30 00 73 36 FE 10 4D 54 24 28 43 43 29 B2 |090.s6..MT$(CC).|
00002E60: 42 52 24 3A 82 3A 81 41 B2 4C 4E A4 36 34 3A 98 |BR$:.:.A.LN.64:.|
00002E70: 34 3A 82 00 87 36 08 11 A0 34 3A A0 38 3A A0 31 |4:...6...4:.8:.1|
00002E80: 35 3A 89 32 33 38 30 00 8D 36 12 11 3A 00 93 36 |5:.2380..6..:..6|
00002E90: 1C 11 3A 00 AA 36 26 11 8F 22 20 D2 4F 55 54 49 |..:..6&.." .OUTI|
00002EA0: 4E 45 20 46 4F 52 20 D0 D2 D4 00 D5 36 30 11 53 |NE FOR .....60.S|
00002EB0: 49 B2 30 3A 50 4F 24 B2 53 43 24 28 30 29 3A 8D |I.0:PO$.SC$(0):.|
00002EC0: 31 37 32 30 3A 53 43 24 28 30 29 B2 50 4F 24 3A |1720:SC$(0).PO$:|
00002ED0: 8D 31 36 32 30 00 F9 36 3A 11 42 4D 24 B2 22 D0 |.1620..6:.BM$.".|
00002EE0: 52 45 53 53 20 C6 31 20 54 4F 20 41 42 4F 52 54 |RESS .1 TO ABORT|
00002EF0: 20 4F 50 54 49 4F 4E 2E 22 00 3C 37 44 11 53 49 | OPTION.".<7D.SI|
00002F00: B2 30 3A 99 22 13 11 11 11 11 11 11 11 11 11 11 |.0:."...........|
00002F10: 11 11 11 11 11 11 11 11 11 11 11 D0 4C 41 43 45 |............LACE|
00002F20: 20 50 52 4F 50 45 52 20 46 4F 52 4D 53 20 49 4E | PROPER FORMS IN|
00002F30: 54 4F 20 50 52 49 4E 54 45 52 2E 22 00 65 37 4E |TO PRINTER.".e7N|
00002F40: 11 99 22 41 4E 44 20 50 52 45 53 53 20 D3 D0 C1 |.."AND PRESS ...|
00002F50: C3 C5 20 C2 C1 D2 20 54 4F 20 43 4F 4E 54 49 4E |.. ... TO CONTIN|
00002F60: 55 45 2E 13 22 00 91 37 58 11 8D 31 35 39 30 3A |UE.."..7X..1590:|
00002F70: 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A A1 41 |.198,0:.198,1:.A|
00002F80: 24 3A 8B C6 28 41 24 29 B2 31 33 33 A7 32 33 38 |$:..(A$).133.238|
00002F90: 30 00 A5 37 62 11 8B C6 28 41 24 29 B3 B1 33 32 |0..7b...(A$)..32|
00002FA0: A7 34 34 32 30 00 C0 37 6C 11 8D 31 37 32 30 3A |.4420..7l..1720:|
00002FB0: 53 43 24 28 30 29 B2 50 4F 24 3A 8D 31 36 32 30 |SC$(0).PO$:.1620|
00002FC0: 00 EA 37 76 11 42 4D 24 B2 22 D0 52 45 53 53 20 |..7v.BM$.".RESS |
00002FD0: C6 31 20 54 4F 20 41 42 4F 52 54 20 4F 50 54 49 |.1 TO ABORT OPTI|
00002FE0: 4F 4E 2E 22 3A 8D 31 35 39 30 00 30 38 80 11 99 |ON.":.1590.08...|
00002FF0: 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |"...............|
00003000: 11 11 11 11 11 11 11 C4 4F 20 59 4F 55 20 57 49 |........O YOU WI|
00003010: 53 48 20 54 4F 20 55 53 45 20 50 41 54 54 45 52 |SH TO USE PATTER|
00003020: 4E 20 4D 41 54 43 48 20 28 59 2F 4E 29 3F 13 22 |N MATCH (Y/N)?."|
00003030: 00 67 38 8A 11 97 31 39 38 2C 30 3A 92 31 39 38 |.g8...198,0:.198|
00003040: 2C 31 3A A1 41 24 3A 8B 41 24 B3 B1 22 59 22 AF |,1:.A$:.A$.."Y".|
00003050: 41 24 B3 B1 22 4E 22 AF C6 28 41 24 29 B3 B1 31 |A$.."N"..(A$)..1|
00003060: 33 33 A7 34 34 39 30 00 7B 38 94 11 8B C6 28 41 |33.4490.{8....(A|
00003070: 24 29 B2 31 33 33 A7 32 33 38 30 00 99 38 9E 11 |$).133.2380..8..|
00003080: 8B 41 24 B2 22 4E 22 A7 50 4D 24 B2 22 22 3A 50 |.A$."N".PM$."":P|
00003090: 4D B2 30 3A 89 34 36 30 30 00 C3 38 A8 11 8D 31 |M.0:.4600..8...1|
000030A0: 37 32 30 3A 53 43 24 28 30 29 B2 22 2A 2A 2A 22 |720:SC$(0)."***"|
000030B0: 3A 53 43 24 28 31 29 B2 22 2A 2A 2A 22 3A 8D 31 |:SC$(1)."***":.1|
000030C0: 36 32 30 00 EF 38 B2 11 42 4D 24 B2 22 D0 52 45 |620..8..BM$.".RE|
000030D0: 53 53 20 D3 D4 CF D0 20 54 4F 20 41 42 4F 52 54 |SS .... TO ABORT|
000030E0: 20 4F 50 54 49 4F 4E 2E 22 3A 8D 31 35 39 30 00 | OPTION.":.1590.|
000030F0: 2B 39 BC 11 99 22 13 11 11 11 11 11 11 11 11 11 |+9..."..........|
00003100: 11 11 11 11 11 11 11 11 11 11 11 11 D0 4C 45 41 |.............LEA|
00003110: 53 45 20 53 45 4C 45 43 54 20 4D 41 54 43 48 49 |SE SELECT MATCHI|
00003120: 4E 47 20 46 49 45 4C 44 2E 13 22 00 47 39 C6 11 |NG FIELD..".G9..|
00003130: 3A 26 45 28 32 29 3A 8B 53 54 B1 30 AF 53 54 B3 |:&E(2):.ST.0.ST.|
00003140: 31 30 A7 32 33 38 30 00 6A 39 D0 11 81 41 B2 32 |10.2380.j9...A.2|
00003150: A4 31 30 3A 8B 53 43 24 28 41 29 B2 42 4C 24 28 |.10:.SC$(A).BL$(|
00003160: 41 29 A7 82 3A 89 34 35 39 30 00 95 39 DA 11 81 |A)..:.4590..9...|
00003170: 42 B2 C3 28 53 43 24 28 41 29 29 A4 31 A9 AB 31 |B..(SC$(A)).1..1|
00003180: 3A 8B CA 28 53 43 24 28 41 29 2C 42 2C 31 29 B2 |:..(SC$(A),B,1).|
00003190: 22 20 22 A7 82 00 C6 39 E4 11 50 4D 24 B2 C8 28 |" "....9..PM$..(|
000031A0: 53 43 24 28 41 29 2C 42 29 3A 50 4D B2 41 3A 81 |SC$(A),B):PM.A:.|
000031B0: 42 B2 31 A4 31 3A 82 3A 81 41 B2 31 A4 31 3A 82 |B.1.1:.:.A.1.1:.|
000031C0: 3A 89 34 36 30 30 00 0E 3A EE 11 99 22 13 11 11 |:.4600..:..."...|
000031D0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000031E0: 11 11 11 C5 D2 D2 CF D2 3A 20 D0 41 54 54 45 52 |........: .ATTER|
000031F0: 4E 20 4D 41 54 43 48 20 4B 45 59 20 4E 4F 54 20 |N MATCH KEY NOT |
00003200: 46 4F 55 4E 44 2E 13 22 3A 89 33 38 39 30 00 4F |FOUND..":.3890.O|
00003210: 3A F8 11 8D 31 37 32 30 3A 53 43 24 28 30 29 B2 |:...1720:SC$(0).|
00003220: 50 4F 24 3A 8D 31 36 32 30 3A 42 4D 24 B2 22 D0 |PO$:.1620:BM$.".|
00003230: 52 45 53 53 20 C6 31 20 54 4F 20 41 42 4F 52 54 |RESS .1 TO ABORT|
00003240: 20 4F 50 54 49 4F 4E 2E 22 3A 8D 31 35 39 30 00 | OPTION.":.1590.|
00003250: 96 3A 02 12 99 22 13 11 11 11 11 11 11 11 11 11 |.:..."..........|
00003260: 11 11 11 11 11 11 11 11 11 11 11 11 C4 4F 20 59 |.............O Y|
00003270: 4F 55 20 57 49 53 48 20 54 4F 20 53 4F 52 54 20 |OU WISH TO SORT |
00003280: 54 48 45 20 46 49 4C 45 20 28 59 2F 4E 29 3F 20 |THE FILE (Y/N)? |
00003290: 20 20 20 20 13 22 00 C5 3A 0C 12 8D 31 35 39 30 | ."..:...1590|
000032A0: 3A 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A A1 |:.198,0:.198,1:.|
000032B0: 41 24 3A 26 42 3A 8B C6 28 41 24 29 B2 31 33 33 |A$:&B:..(A$).133|
000032C0: A7 32 33 38 30 00 DF 3A 16 12 8B 41 24 B3 B1 22 |.2380..:...A$.."|
000032D0: 4E 22 AF 41 24 B3 B1 22 59 22 A7 34 35 36 30 00 |N".A$.."Y".4560.|
000032E0: F5 3A 20 12 53 50 B2 30 3A 8B 41 24 B2 22 4E 22 |.: .SP.0:.A$."N"|
000032F0: A7 34 37 32 30 00 21 3B 2A 12 8D 31 37 32 30 3A |.4720.!;*..1720:|
00003300: 53 43 24 28 30 29 B2 22 2A 2A 2A 22 3A 53 43 24 |SC$(0)."***":SC$|
00003310: 28 31 29 B2 22 2A 2A 2A 22 3A 81 41 B2 32 A4 31 |(1)."***":.A.2.1|
00003320: 30 00 54 3B 34 12 53 43 24 28 41 29 B2 C9 28 C4 |0.T;4.SC$(A)..(.|
00003330: 28 41 29 2C 31 29 AA C9 28 53 43 24 28 41 29 2C |(A),1)..(SC$(A),|
00003340: C3 28 53 43 24 28 41 29 29 AB 31 29 3A 82 3A 8D |.(SC$(A)).1):.:.|
00003350: 31 36 32 30 00 92 3B 3E 12 99 22 13 11 11 11 11 |1620..;>..".....|
00003360: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00003370: 11 D0 4C 45 41 53 45 20 53 45 4C 45 43 54 20 53 |..LEASE SELECT S|
00003380: 4F 52 54 20 46 49 45 4C 44 2E 13 22 3A 8D 31 35 |ORT FIELD..":.15|
00003390: 39 30 00 C9 3B 48 12 97 31 39 38 2C 30 3A 92 31 |90..;H..198,0:.1|
000033A0: 39 38 2C 31 3A A1 41 24 3A 8B 28 41 24 B3 22 30 |98,1:.A$:.(A$."0|
000033B0: 22 B0 41 24 B1 22 39 22 29 AF C6 28 41 24 29 B3 |".A$."9")..(A$).|
000033C0: B1 31 33 33 A7 34 36 38 30 00 E1 3B 52 12 53 50 |.133.4680..;R.SP|
000033D0: B2 C5 28 41 24 29 3A 8B 53 50 B2 31 A7 34 36 38 |..(A$):.SP.1.468|
000033E0: 30 00 F1 3B 5C 12 8B 53 50 B2 30 A7 53 50 B2 31 |0..;\..SP.0.SP.1|
000033F0: 30 00 02 3C 66 12 8B 41 24 B2 22 85 22 A7 32 33 |0..<f..A$.".".23|
00003400: 38 30 00 1D 3C 70 12 8D 31 37 32 30 3A 53 43 24 |80..<p..1720:SC$|
00003410: 28 30 29 B2 50 4F 24 3A 8D 31 36 32 30 00 61 3C |(0).PO$:.1620.a<|
00003420: 7A 12 99 22 13 11 11 11 11 11 11 11 11 11 11 11 |z.."............|
00003430: 11 11 11 11 11 11 11 11 11 11 C8 4F 57 20 4D 41 |...........OW MA|
00003440: 4E 59 20 4C 41 42 45 4C 53 20 41 52 45 20 41 43 |NY LABELS ARE AC|
00003450: 52 4F 53 53 20 59 4F 55 52 20 50 41 47 45 3F 13 |ROSS YOUR PAGE?.|
00003460: 22 00 90 3C 84 12 8D 31 35 39 30 3A 97 31 39 38 |"..<...1590:.198|
00003470: 2C 30 3A 92 31 39 38 2C 31 3A A1 41 24 3A 26 42 |,0:.198,1:.A$:&B|
00003480: 3A 8B C6 28 41 24 29 B2 31 33 33 A7 32 33 38 30 |:..(A$).133.2380|
00003490: 00 AD 3C 8E 12 4C 41 B2 C5 28 41 24 29 3A 8B 4C |..<..LA..(A$):.L|
000034A0: 41 B3 31 B0 4C 41 B1 32 A7 34 37 34 30 00 C8 3C |A.1.LA.2.4740..<|
000034B0: 98 12 8D 31 37 32 30 3A 53 43 24 28 30 29 B2 50 |...1720:SC$(0).P|
000034C0: 4F 24 3A 8D 31 36 32 30 00 0B 3D A2 12 99 22 13 |O$:.1620..=...".|
000034D0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000034E0: 11 11 11 11 11 C4 4F 20 59 4F 55 20 57 49 53 48 |......O YOU WISH|
000034F0: 20 54 4F 20 41 4C 49 47 4E 20 4C 41 42 45 4C 53 | TO ALIGN LABELS|
00003500: 20 28 59 2F 4E 29 3F 20 20 20 22 00 25 3D AC 12 | (Y/N)? ".%=..|
00003510: 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
00003520: 20 20 20 13 22 00 54 3D B6 12 8D 31 35 39 30 3A | .".T=...1590:|
00003530: 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A A1 41 |.198,0:.198,1:.A|
00003540: 24 3A 26 42 3A 8B C6 28 41 24 29 B2 31 33 33 A7 |$:&B:..(A$).133.|
00003550: 32 33 38 30 00 65 3D C0 12 8B 41 24 B2 22 4E 22 |2380.e=...A$."N"|
00003560: A7 34 38 37 30 00 80 3D CA 12 8D 31 37 32 30 3A |.4870..=...1720:|
00003570: 53 43 24 28 30 29 B2 50 4F 24 3A 8D 31 36 32 30 |SC$(0).PO$:.1620|
00003580: 00 C2 3D D4 12 99 22 13 11 11 11 11 11 11 11 11 |..=...".........|
00003590: 11 11 11 11 11 11 11 11 11 11 11 11 11 C9 46 20 |..............F |
000035A0: 54 48 45 20 50 52 49 4E 54 45 52 20 49 53 20 52 |THE PRINTER IS R|
000035B0: 45 41 44 59 2C 20 50 52 45 53 53 20 D3 D0 C1 C3 |EADY, PRESS ....|
000035C0: C5 22 00 F0 3D DE 12 99 22 20 C2 C1 D2 20 54 4F |."..=..." ... TO|
000035D0: 20 43 4F 4E 54 49 4E 55 45 2E 13 22 3A 8D 31 35 | CONTINUE..":.15|
000035E0: 39 30 3A 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 |90:.198,0:.198,1|
000035F0: 00 15 3E E8 12 3A 26 42 3A A1 41 24 3A 8B 41 24 |..>..:&B:.A$:.A$|
00003600: B3 B1 22 20 22 AF C6 28 41 24 29 B3 B1 31 33 33 |.." "..(A$)..133|
00003610: A7 34 38 31 30 00 29 3E F2 12 8B C6 28 41 24 29 |.4810.)>....(A$)|
00003620: B2 31 33 33 A7 32 33 38 30 00 39 3E FC 12 8D 32 |.133.2380.9>...2|
00003630: 32 31 30 3A 89 34 37 36 30 00 54 3E 06 13 8D 31 |210:.4760.T>...1|
00003640: 37 32 30 3A 53 43 24 28 30 29 B2 50 4F 24 3A 8D |720:SC$(0).PO$:.|
00003650: 31 36 32 30 00 95 3E 10 13 99 22 13 11 11 11 11 |1620..>...".....|
00003660: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00003670: 11 C3 C1 D5 D4 C9 CF CE 3A 20 D0 52 45 53 53 20 |........: .RESS |
00003680: C6 31 20 54 4F 20 41 42 4F 52 54 20 4F 50 54 49 |.1 TO ABORT OPTI|
00003690: 4F 4E 2E 13 22 00 B8 3E 1A 13 3A 26 42 3A 9F 38 |ON.."..>..:&B:.8|
000036A0: 2C 44 49 2C 38 2C 22 30 3A 4E 45 58 54 22 3A 84 |,DI,8,"0:NEXT":.|
000036B0: 38 2C 4D 58 24 3A A0 38 00 EB 3E 24 13 9F 34 2C |8,MX$:.8..>$..4,|
000036C0: 50 52 2C 37 3A 9F 38 2C 44 49 2C 38 2C 22 30 3A |PR,7:.8,DI,8,"0:|
000036D0: 4C 49 53 54 22 3A 9F 31 35 2C 44 49 2C 31 35 3A |LIST":.15,DI,15:|
000036E0: 8B 53 50 B3 B1 30 A7 35 30 30 30 00 01 3F 2E 13 |.SP..0.5000..?..|
000036F0: 8D 31 39 39 30 3A 8B 44 53 B1 31 39 A7 31 39 34 |.1990:.DS.19.194|
00003700: 30 00 30 3F 38 13 81 52 50 B2 31 A4 C5 28 4D 58 |0.0?8..RP.1..(MX|
00003710: 24 29 AB 31 3A 53 43 24 28 31 29 B2 C9 28 22 20 |$).1:SC$(1)..(" |
00003720: 22 AA C4 28 52 50 29 2C 33 29 3A 8D 31 38 36 30 |"..(RP),3):.1860|
00003730: 00 46 3F 42 13 8D 31 39 39 30 3A 8B 44 53 B1 31 |.F?B..1990:.DS.1|
00003740: 39 A7 31 39 34 30 00 5F 3F 4C 13 8B C8 28 52 31 |9.1940._?L...(R1|
00003750: 24 2C 33 29 B2 22 23 23 23 22 A7 34 39 38 30 00 |$,3)."###".4980.|
00003760: 74 3F 56 13 8D 31 37 37 30 3A 8B 50 4D B2 30 A7 |t?V..1770:.PM.0.|
00003770: 34 39 37 30 00 95 3F 60 13 8B C8 28 53 43 24 28 |4970..?`...(SC$(|
00003780: 50 4D 29 2C C3 28 50 4D 24 29 29 B3 B1 50 4D 24 |PM),.(PM$))..PM$|
00003790: A7 34 39 38 30 00 9F 3F 6A 13 8D 32 33 30 30 00 |.4980..?j..2300.|
000037A0: B7 3F 74 13 82 3A 8B 4C 53 B2 31 A7 8D 31 37 32 |.?t..:.LS.1..172|
000037B0: 30 3A 8D 32 33 30 30 00 D7 3F 7E 13 81 41 B2 31 |0:.2300..?~..A.1|
000037C0: A4 38 3A 98 34 3A 82 3A A0 34 3A A0 38 3A A0 31 |.8:.4:.:.4:.8:.1|
000037D0: 35 3A 89 32 33 38 30 00 05 40 88 13 4E 52 B2 31 |5:.2380..@..NR.1|
000037E0: 3A 81 52 50 B2 31 A4 C5 28 4D 58 24 29 AB 31 3A |:.RP.1..(MX$).1:|
000037F0: 53 43 24 28 31 29 B2 C9 28 22 20 22 AA C4 28 52 |SC$(1)..(" "..(R|
00003800: 50 29 2C 33 29 00 2F 40 92 13 8D 31 38 36 30 3A |P),3)./@...1860:|
00003810: 8D 31 37 37 30 3A A1 41 24 3A 8B 41 24 B3 B1 22 |.1770:.A$:.A$.."|
00003820: 22 A7 8B C6 28 41 24 29 B2 33 A7 35 30 36 30 00 |"...(A$).3.5060.|
00003830: 3E 40 9C 13 8B 50 4D B2 30 A7 35 30 34 30 00 5F |>@...PM.0.5040._|
00003840: 40 A6 13 8B C8 28 53 43 24 28 50 4D 29 2C C3 28 |@....(SC$(PM),.(|
00003850: 50 4D 24 29 29 B3 B1 50 4D 24 A7 35 30 35 30 00 |PM$))..PM$.5050.|
00003860: 82 40 B0 13 4D 54 24 28 4E 52 29 B2 53 43 24 28 |.@..MT$(NR).SC$(|
00003870: 31 29 AA 53 43 24 28 53 50 29 3A 4E 52 B2 4E 52 |1).SC$(SP):NR.NR|
00003880: AA 31 00 8E 40 BA 13 82 3A 89 35 30 37 30 00 BE |.1..@...:.5070..|
00003890: 40 C4 13 42 4D 24 B2 22 CF 50 54 49 4F 4E 20 C3 |@..BM$.".PTION .|
000038A0: 41 4E 43 45 4C 45 44 22 3A 8D 31 35 39 30 3A 81 |ANCELED":.1590:.|
000038B0: 52 50 B2 31 A4 31 3A 82 3A 89 34 30 38 30 00 FD |RP.1.1:.:.4080..|
000038C0: 40 CE 13 42 52 24 B2 22 39 39 39 DA DA DA DA DA |@..BR$."999.....|
000038D0: DA DA DA DA DA DA DA DA DA DA DA DA DA DA DA DA |................|
000038E0: DA DA DA DA DA DA DA DA DA 22 3A 81 41 41 B2 31 |.........":.AA.1|
000038F0: A4 4E 52 AB 31 3A 43 4B 24 B2 42 52 24 00 26 41 |.NR.1:CK$.BR$.&A|
00003900: D8 13 81 42 42 B2 31 A4 4E 52 AB 31 3A A1 41 24 |...BB.1.NR.1:.A$|
00003910: 3A 8B 41 24 B3 B1 22 22 A7 8B C6 28 41 24 29 B2 |:.A$..""...(A$).|
00003920: 33 A7 35 31 33 30 00 55 41 E2 13 8B C9 28 4D 54 |3.5130.UA....(MT|
00003930: 24 28 42 42 29 2C 33 30 29 B3 C9 28 43 4B 24 2C |$(BB),30)..(CK$,|
00003940: 33 30 29 A7 43 43 B2 42 42 3A 43 4B 24 B2 4D 54 |30).CC.BB:CK$.MT|
00003950: 24 28 42 42 29 00 8A 41 EC 13 82 3A 53 43 24 28 |$(BB)..A...:SC$(|
00003960: 31 29 B2 C8 28 4D 54 24 28 43 43 29 2C 33 29 3A |1)..(MT$(CC),3):|
00003970: 8D 31 38 36 30 3A 8B C8 28 52 31 24 2C 33 29 B2 |.1860:..(R1$,3).|
00003980: 22 23 23 23 22 A7 35 31 32 30 00 B4 41 F6 13 8D |"###".5120..A...|
00003990: 31 37 37 30 3A 8D 32 33 30 30 3A A1 41 24 3A 8B |1770:.2300:.A$:.|
000039A0: 41 24 B3 B1 22 22 A7 8B C6 28 41 24 29 B2 33 A7 |A$..""...(A$).3.|
000039B0: 35 31 33 30 00 CA 41 00 14 4D 54 24 28 43 43 29 |5130..A..MT$(CC)|
000039C0: B2 42 52 24 3A 89 34 39 38 30 00 04 42 0A 14 42 |.BR$:.4980..B..B|
000039D0: 4D 24 B2 22 CF 50 54 49 4F 4E 20 C3 41 4E 43 45 |M$.".PTION .ANCE|
000039E0: 4C 45 44 22 3A 8D 31 35 39 30 3A 81 41 41 B2 31 |LED":.1590:.AA.1|
000039F0: A4 31 3A 82 3A 81 42 42 B2 31 A4 31 3A 82 3A 89 |.1:.:.BB.1.1:.:.|
00003A00: 34 39 39 30 00 0A 42 14 14 3A 00 10 42 1E 14 3A |4990..B..:..B..:|
00003A10: 00 27 42 28 14 80 3A 4F 46 3A 4D 41 49 4C 3A 4D |.'B(..:OF:MAIL:M|
00003A20: 41 54 45 3A 56 36 34 00 3D 42 32 14 9F 31 2C 31 |ATE:V64.=B2..1,1|
00003A30: 30 2C 31 35 3A 84 31 2C 41 24 2C 42 24 00 00 00 |0,15:.1,A$,B$...|
00003A40: 06 |. |
.......1160.1..."***********************
*********.W..."* LOGBUCH 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."*LOG-BU
CH 29.08.83 DF5FF *...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 LOGBUCH V64":&B:
.1560...D..".... DRUECKE:":..10)".F1 -
HINTERGRUND FARBE"...N...10)".F3 - RAHME
N-FARBE":..10)".F5 - ZEICHEN-FARBE "...
X...10)".F7 - START":BM$." FARB WAHL "
:.1590.9....198,0:.198,1:.A$:.A$.".".151
0.J....A$.".".1470.[....A$.".".1490.M...
.A$..".".1210.....CC.CC.1:.CC.15.CC.0.S.
...CC.1320,1330,1340,1350,1360,1370,1380
,1390,1400,1410,1420,1430,1440,1450.....
CC$.".":.1460...(.CC$.".":.1460...2.CC$.
".":.1460...<.CC$.".":.1460.-.F.CC$.".":
.1460.?.P.CC$.".":.1460.Q.Z.CC$.".":.146
0.C.D.CC$.".":.1460.U.N.CC$.".":.1460...
X.CC$.".":.1460.....CC$.".":.1460.....CC
$.".":.1460.....CC$.".":.1460.O. .CC$.".
":.1460.....CC$.".":.1460......49312,F(C
C$):.CC$:.1210.....BG.BG.1:.BG.15.BG.0.
.H..1500.8.R.BR.BR.1:.BR.15.BR.0.V....53
280,BG:.53281,BR:.1210......".":TM$."COM
MODORE LOGBUCH V64":&B:.1560.H...."...
.........".9)"DATUM [ / / ]":SC
$(0)." "."".....BM$."EINGABE DATUM
MM/TT/JJ.":.1590.....:&F:DT$.SC$(0):.238
0.....:.=...." ROUTINE FOR DISPLAYING TO
P STATUS LINE.E.".:&T:."..".((40.C(TM$))
.2))TM$"..":..K.,.:...6.." ROUTINE FOR D
ISPLAYING BOTTOM STATUS LINE...@.:&B:.".
........................".((40.C(BM$)).2
))BM$"..":....J.:...T.." ROUTINE FOR SCR
EEN #1.1.^..".":&B:&T:TM$."COMMODORE LOG
BUCH V64":.1560.B.H.."... EINGABE
LOGBUCH NUMMER"...R.." <"
SC$(0)">".17)"<"SC$(1)">":&L:..17)"NAME"
.Q.|.." <"SC$(2)">":..10)".QTH, DATUM
, RAPPORT":.A.3.6......" <"SC$(A)">":
.:.". D O K RUFZEICHEN
".<.....8)"<"SC$(7)"> <"SC$(8
)">".S.....7)".TELEFON".12)"BETRIEBSART"
:." <"SC$(9)">";.......8)"<"SC$(10)">
":&L:......:.C...." ROUTINE FOR FILLING
BL$() W/NULL VALUES...B.BL$(0).MD$."":BL
$(1)." ":.A.2.6:BL$(A).X$:.:BL$(7)."
".D.L.BL$(8)." ":BL$(9)."
":BL$(10)." ".E.V..A.0.10
:SC$(A).BL$(A)."":.:..K...:......" ROUTI
NE FOR CONVERTING DATA FROM DISK TO SCRE
EN #1.....SC$(2).H(R1$,30):SC$(3).J(R1$,
31,30):SC$(4).J(R1$,61,30).#...SC$(5).J(
R1$,91,30):SC$(6).J(R1$,121,30):SC$(7).J
(R1$,151,4).B...SC$(8).J(R1$,155,10):SC$
(9).J(R1$,165,12):SC$(10).I(R1$,8).H....
.N...:...&.." ROUTINE FOR CONVERTING DAT
A FROM SCREEN #1 TO DISK.N.0.R1$."":.A.2
.10:R1$.R1$.SC$(A):.:..T.:.:...D.." ROUT
INE FOR READING RECORDS FROM DISK INTO R
1$.8.N.RR.E(SC$(1)):.1900:R1$."":.A.1.18
4:.#8,A$.K.X.R1$.R1$.A$:.:..Q.B.:...L.."
ROUTINE FOR COVERTING RR TO RECORD POSI
TION...V.HI..(RR.256):LO.RR.HI.256:.15,"
P"G(104)G(LO)G(HI)G(0).D.....J...:......
" ROUTINE FOR DISPLAYING A DISK ERROR...
..."......................DRIVE STATUS:"
: 15:.15,DI,15.F....DS$".": 1: 2: 4: 7.Z
... 8: 9: 15:.2390.`...:...F.." ROUTINE
FOR READING ERROR CHANNEL INTO DS$...P..
15,EN$,ED$,ES$,ET$:DS.E(EN$)...Z.DS$.EN$
.", ".ED$.",".ES$.",".ET$:......:......"
ROUTINE FOR PRINTING PAGE HEADING W/OPE
N.0....4,PR,7:.4:.4,"MAIL MATE";.I....4,
" FILE LISTING".42)"AS OF:"H(DT$,2)"/"J(
DT$,3,2);......4,"/"I(DT$,2):.4:.4,"LOGB
UCH # NAME";.P....4,"
ADDRESS & PHONE"... ..A.
1.78:.4,"=";:.:.4:.4:LN.6:....*.:.".4.."
ROUTINE FOR PRINTING MATE LISTING.E.>..
LN..56..A.LN.64:.4:.: 4:.2030.U.H..4,"
"SC$(1).9)SC$(2)" "SC$(3):LN.LN.1...
R..4,"".16)SC$(10);:.A.4.6...\..H(SC$(A)
,1)." ".H(SC$(A),1)." ".2170.X.F..4,"".2
5)SC$(A):LN.LN.1...P..4,"".24);...Z..:.4
,"".25)SC$(7)" "SC$(8)......4,"".49)SC$(
9):.4.+...LN.LN.3:..1...:.P...." ROUTINE
FOR LABEL ALIGN.....LS$(1)."-----------
----FIRST LINE--------------".....LS$(2)
."XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
X".....LS$(8)."---------------LAST LINE
--------------":.A.3.7:LS$(A).LS$(2)...J
..:.4,PR,7:.A.1.8.9.T..4,LS$(A);:.LA.1..
4:.:.2280.M....4," "LS$(A):..Y....4: 4:
.._...:....." ROUTINE FOR PRINT LABELS.
.....LA.1..A.2.6:.4,SC$(A):.:.4,SC$(7)"
"SC$(8):.2350......LS.0..A.2.8:LS$(A).S
C$(A):.:LS.1:.......A.2.6:.4,LS$(A).11)S
C$(A):.:.4,LS$(7)" "LS$(8);.7.$..4,"".2
5)SC$(7)" "SC$(8):LS.0.F....4:.4:.4:..L
.8.:.R.B.:.U.L.SI.0:SC$(0).MD$."":.1720:
.1620...V.BM$."DRUECKE STOP FUER INFO.":
.1590...`.:&F:.ST.0.ST.10.2450...J..I.1.
8:.J(CM$,I.3.2,3)..SC$(0).....T..I.2590,
2870,3240,3330,3470,4390,3790,3730.:.~..
" NEW DSP ALT DEL INT PRT LST D
SK.Z...."......................FEHLER: U
NGUELTIGE EINGABE..":.2390......".":&B:&
T:.1560......"...... NEW - NEUE EINGABE"
......". DSP - SUCHEN NACH NAMEN, CALL,
DOK USW."......". ALT - AENDERUNGEN."...
...". DEL - LOESCHEN.".C.D..". INT - NEU
E DATENDISKETTE ERSTELLEN.".\.N..". PRT
- AUSDRUCK.".Z.X..". LST - LISTE DRUCKEN
."......". DSK - DISK STATUS.".H...BM$."
FORTSETZUNG MIT LEERTASTE.":.1590:.198,0
......198,1:.A$:.A$.." ".2540......".":.
1620:.2390.....:.....:......" ROUTINE FO
R NEW.L.(.SI.0:A$.SC$(0):.1720:SC$(0).A$
:.1620:.1590.H.2.:&E(2):.ST.0.ST.10.2450
...<..A.1.7:.SC$(A).BL$(A)..:.2820...F..
A.1.1:..J.P..8,DI,8,"0:TABLE,S,R":.8,A$:
.8,ID$:.ST.66.2740...Z. 8:ID.E(ID$):.8,D
I,8,"0:TABLE,S,R"...D..9,DI,9,"0:T,S,W":
.8,A$:.9,A$:.8,A$.,.N..8,A$:.ST.2690.<.X
..9,A$:.2670.M....ST.64..9,A$.W... 8: 9.
.....15,DI,15,"S0:TABLE":.15,"C0:TABLE=0
:T":.15,"S0:T":.1990... ..DS.19.1940....
. 15:.2780..... 8:.8,DI,8,"0:NEXT,S,R":.
8,ID$: 8:ID.E(ID$)......ID.700.2840...H.
.15,DI,15,"S0:NEXT": 15.7.R..8,DI,8,"0:N
EXT,S,W":A.ID.1:.8,A: 8.X...SC$(1).I("
".D(ID),3):.1830......8,DI,8,"0:LIST":.1
5,DI,15:.1990:.DS.19.1940.....RR.ID:.190
0......8,R1$: 8: 15:.1720:.1620:.2390...
..."......................ERROR: INVALID
FIELD DATA.".! ....7)"PLEASE FILL IN AL
L FIELDS..":.2390.Z ..."................
......ERROR: FILE IS FULL..":.2390.` ".:
.F ,.:.} 6.." ROUTINE FOR DSP.. @.SI.0:.
1720:.1620:.1590:&F(1):.ST.0.ST.10.2450.
G J..SC$(1).BL$(1).2970.. T.ID.E(SC$(1))
:.ID.1.ID.700.2940..!^..8,DI,8,"0:LIST":
.15,DI,15:.1990:.DS.19.1940.7!H..1860:.1
990:.DS.19.1940.F!R. 8: 15:.H(R1$,4).."#
###"..1770:.1620:.2960..!|.."...........
...........ERROR: INVALID MAIL MATE NUMB
ER.."..!...2390..!..SI.1:.2390..!...1590
:&E(2):.ST.0.ST.10.2450..!...A.2.9:.B.C(
SC$(A)).1..1.."...J(SC$(A),B,1)." "...Q"
..SC$(A).H(SC$(A),B):.B.1.1:.:.:PT.0:.A.
2.9:SR$(A).SC$(A).{"B..:.A.2.9:.C(SR$(A)
)..0..A.1.1:.:.3040.."L..:."............
..........ERROR: SEARCH KEY NOT FOUND.."
.H"V..1720:.2390.."...1720:.A.2.9:.C(SR$
(A)).0..:.1620:.3060.*#..SC$(A).".".H(SR
$(A).BL$(A),C(BL$(A))).".":.:.1620.D#...
8,DI,8,"0:NEXT":.8,MX$: 8:.8,DI,8,"0:LIS
T":.15,DI,15.Z#...1990:.DS.19.1940..#..P
T.PT.1:.PT.E(MX$).A$."E":BM$." DONE ":
.1590:.3150.Q#...A$:.A$..""..F(A$).3.319
0..$..SC$(1).I(" ".D(PT),3):.1860:.1990
:.DS.19.1940.*$&..1770:.A.2.9:.C(SR$(A))
.0..:.3080.S$0..SR$(A)..H(SC$(A),C(SR$(A
)))..:.3080..$:..1620:BM$."'C'ONTINUE --
'E'ND":.1590:.198,0:.198,1:&B..$D..A$:.
A$.."C".A$.."E".3130..$N..A$.."E".3170..
$X. 8: 15:.A.2.9:SR$(A)."":.:.1720:.1620
:.2390..%B..1720:.A.2.9:.C(SR$(A)).0..:.
1620:.3080.V%L.SC$(A).".".H(SR$(A).BL$(A
),C(BL$(A))).".":.:.1620:.3080.Z%V. 8: 1
5:.A.2.9:SR$(A)."":.:.1720..%...".......
...............WARNING: JOB OPTION CANCE
LED DUE TO"..%....9)"OPERATOR INTERVENSI
ON..":.2390...%..:..%..:..&..." ROUTINE
FOR ALT..&...SI.0.3290.<&..SI.0:.1590:&E
(2):.ST.0.ST.10.2450.S&F..1830:.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 E
XECUTED BEFORE ALT.."..&...2390..&..:..&
..:..'..." ROUTINE FOR DEL.9'..SI.0:A$.S
C$(0):.1720:SC$(0).A$:.1620:.1590.U'..:&
F(1):.ST.0.ST.10.2450.X' .ID.E(SC$(1)):.
ID.1.ID.700.2940..'*..8,DI,8,"0:LIST":.1
5,DI,15:.1990:.DS.19.1940.N'4..1860: 8:
15:.H(R1$,2)."##".2940..(>..1770:.1620:B
M$."PRESS SPACE BAR TO VERIFY FILE."..(H
..1590:.198,0:.198,1:.A$:.A$.." ".2380.H
(R.:&B:R1$."":.A.1.184:R1$.R1$."#":.:.8,
DI,8,"0:TABLE,A"..(\..8,D(ID): 8:.8,DI,8
,"0:LIST":.15,DI,15..(F..1990:.DS.19.194
0.M(P.RR.ID:.1900:.8,R1$: 8: 15:.2380.S(
Z.:.Y(..:..(..." ROUTINE FOR INT..)..PO$
.SC$(0):BM$."PRESS F1 TO ABORT OPTION.".
A)..SI.0:."......................WARNUNG
: NEUE DISKETTE EINLEGEN"..)....9)"UND R
ETURN DRUECKEN .."..)...1590:.198,0:.198
,1:.A$:&B..)...F(A$).133.2380.I)J..F(A$)
..13.3490..)T..8,DI,8,"0:NNNN":.15,DI,15
:.1990:.DS..62.3610.@*..."..............
........WARNUNG: PROGRAMM-DISKETTE HERAU
SNEHMEN".Q*..."WIRD SONST GELOESCHT . A
RE YOU SURE ";..*..."SOLL DISKETTE FO
RMATIERT WERDEN?.": 8: 15..*...1590:.198
,0:.198,1:.A$:&B..*...A$."N".F(A$).133.2
380..*...A$.."Y".3550..+.. 8: 15:.15,DI,
15..+$..1720:SC$(0).PO$:.1620.\+..."....
..................BITTE HABEN SIE GEDULD
, ES DAUERT".{+8.."UNGEFAEHR 10 MINUTEN
.."..+B..15,"N0:LOGBUCH ".DT$.",99":.1
990:.DS..0.1940..+L..8,DI,8,"0:NEXT,S,W"
:.8,"1 ": 8:.8,DI,8,"0:TABLE,S,W"..,V..8
,"**FILLER**": 8:R1$."":.A.1.184:R1$.R1$
."#":..G,`..8,DI,8,"0:LIST,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:."......................DRI
VE STATUS:"..-...DS$".":BM$."DRUECKE STO
P F. INFO.":.1590.5-.. 15:.15,DI,15: 15:
.2390.;-..:.A-D.:.X-N.." ROUTINE FOR LST
..-X.SI.0:PO$.SC$(0):.1720:SC$(0).PO$:.1
620..-..BM$."PRESS F1 TO ABORT OPTION.":
.1590..-..."......................DO YOU
WISH TO USE PATTERN MATCH (Y/N)?.".*...
.198,0:.198,1:.A$:.A$.."Y".A$.."N".F(A$)
..133.3830.>....F(A$).133.2380.\....A$."
N".PM$."":PM.0:.3940......1720:SC$(0)."*
**":SC$(1)."***":.1620.....BM$."PRESS ST
OP TO ABORT OPTION.":.1590...(..".......
...............PLEASE SELECT MATCHING FI
ELD.."../2.:&E(2):.ST.0.ST.10.2380.-/<..
A.2.10:.SC$(A).BL$(A)..:.3930.X/F..B.C(S
C$(A)).1..1:.J(SC$(A),B,1)." "..../P.PM$
.H(SC$(A),B):PM.A:.B.1.1:.:.A.1.1:.:.394
0.Q/Z.."......................ERROR: PAT
TERN MATCH KEY NOT FOUND..":.3890..0D..1
720:SC$(0).PO$:.1620:BM$."PRESS F1 TO AB
ORT OPTION.":.1590.Y0N.."...............
.......DO YOU WISH TO SORT THE FILE (Y/N
)? ."..0X..198,0:.198,1:.A$:.A$.."Y"
.A$.."N".F(A$)..133.3960..0...F(A$).133.
2380.V0...1620:.8,DI,8,"0:NEXT":.8,MX$:
8:.A$."Y".4100..1..."...................
...CAUTION: PRESS F1 TO ABORT OPTION..".
N1 ..2030:.8,DI,8,"0:LIST":.15,DI,15:.19
90:.DS.19.1940.W1...RP.1.E(MX$).1:SC$(1)
.I(" ".D(RP),3)..1...1860:.H(R1$,3)."###
".4060..1...1770:.PM.0.4050.L1H..H(SC$(P
M),C(PM$))..PM$.4060..1R..2100:.A$:.A$..
""..F(A$).133.4090..2...A$:.A$..""..A$."
.".4090.#2...:.A.LN.64:.4:..72.. 4: 8: 1
5:.2380.L2..BM$."OPTION CANCELED":.1590:
.RP.LN.65:.4:.:.4080..2...1720:SC$(0)."*
**":SC$(1)."***":.A.2.10.K2..SC$(A).I(D(
A),1).I(SC$(A),C(SC$(A)).1):.:.1620..2..
BM$."PRESS F1 TO ABORT OPTION.":.1590.-3
".."......................PLEASE SELECT
SORT FIELD..".A3,..198,0:.198,1:.A$:.(A$
."0".A$."9").A$..".".4140.R36..A$.".".23
80..3@..A$."1".4140..3J..A$."0".A$."10".
.3T.SP.E(A$):.1720:SC$(0).PO$:.1620..3^.
."......................CAUTION: PRESS F
1 TO ABORT OPTION..".-4H..8,DI,8,"0:LIST
":.15,DI,15:.1990:.DS.19.1940.[4R.RN.1:.
RP.1.E(MX$).1:SC$(1).I(" ".D(RP),3).W4|.
.1860:.1990:.DS.19.1940..4...1770:.A$:.A
$..""..F(A$).133.4280..4...PM.0.4260.M4.
..H(SC$(PM),C(PM$))..PM$.4270..4..MT$(RN
).SC$(1).SC$(SP):RN.RN.1..5...:.2030:.42
90.25..BM$."OPTION CANCELED":.1590:.RP.1
.1:.:.4080.Q5B.BR$."999ZZZZZZZZZZZZZZZZZ
ZZZZZZZZZZZZZ":.AA.1.RN.1:CK$.BR$..5L..B
B.1.RN.1:.A$:.A$..""..F(A$).133.4090..5V
..I(MT$(BB),C(SC$(SP))).I(CK$,C(SC$(SP))
).CC.BB:CK$.MT$(BB)..6...:SC$(1).H(MT$(C
C),3):.SC$(1)."999".4350.'6...1860:.H(R1
$,3)."###".4350.S6...1770:.2100:.A$:.A$.
.""..F(A$).133.4090.S6..MT$(CC).BR$:.:.A
.LN.64:.4:...6.. 4: 8: 15:.2380..6..:..6
..:..6&.." ROUTINE FOR PRT.U60.SI.0:PO$.
SC$(0):.1720:SC$(0).PO$:.1620..6:.BM$."P
RESS F1 TO ABORT OPTION.".<7D.SI.0:."...
...................PLACE PROPER FORMS IN
TO PRINTER.".E7N.."AND PRESS SPACE BAR T
O CONTINUE.."..7X..1590:.198,0:.198,1:.A
$:.F(A$).133.2380..7B..F(A$)..32.4420..7
L..1720:SC$(0).PO$:.1620..7V.BM$."PRESS
F1 TO ABORT OPTION.":.1590.08...".......
...............DO YOU WISH TO USE PATTER
N MATCH (Y/N)?.".G8...198,0:.198,1:.A$:.
A$.."Y".A$.."N".F(A$)..133.4490.{8...F(A
$).133.2380..8...A$."N".PM$."":PM.0:.460
0.C8...1720:SC$(0)."***":SC$(1)."***":.1
620..8..BM$."PRESS STOP TO ABORT OPTION.
":.1590.+9..."......................PLEA
SE SELECT MATCHING FIELD..".G9F.:&E(2):.
ST.0.ST.10.2380.J9P..A.2.10:.SC$(A).BL$(
A)..:.4590..9Z..B.C(SC$(A)).1..1:.J(SC$(
A),B,1)." "...F9..PM$.H(SC$(A),B):PM.A:.
B.1.1:.:.A.1.1:.:.4600..:..."...........
...........ERROR: PATTERN MATCH KEY NOT
FOUND..":.3890.O:...1720:SC$(0).PO$:.162
0:BM$."PRESS F1 TO ABORT OPTION.":.1590.
.:..."......................DO YOU WISH
TO SORT THE FILE (Y/N)? .".E:...1590
:.198,0:.198,1:.A$:&B:.F(A$).133.2380..:
...A$.."N".A$.."Y".4560..: .SP.0:.A$."N"
.4720.!;*..1720:SC$(0)."***":SC$(1)."***
":.A.2.10.T;4.SC$(A).I(D(A),1).I(SC$(A),
C(SC$(A)).1):.:.1620..;>..".............
.........PLEASE SELECT SORT FIELD..":.15
90.I;H..198,0:.198,1:.A$:.(A$."0".A$."9"
).F(A$)..133.4680..;R.SP.E(A$):.SP.1.468
0..;\..SP.0.SP.10..<F..A$.".".2380..<P..
1720:SC$(0).PO$:.1620.A<Z.."............
..........HOW MANY LABELS ARE ACROSS YOU
R PAGE?."..<...1590:.198,0:.198,1:.A$:&B
:.F(A$).133.2380..<..LA.E(A$):.LA.1.LA.2
.4740.H<...1720:SC$(0).PO$:.1620..=...".
.....................DO YOU WISH TO ALIG
N LABELS (Y/N)? ".%=..."
.".T=...1590:.198,0:.198,1:.A$:&B:.F(
A$).133.2380.E=...A$."N".4870..=J..1720:
SC$(0).PO$:.1620.B=T..".................
.....IF THE PRINTER IS READY, PRESS SPAC
E"..=..." BAR TO CONTINUE..":.1590:.198,
0:.198,1..>..:&B:.A$:.A$.." ".F(A$)..133
.4810.)>...F(A$).133.2380.9>...2210:.476
0.T>...1720:SC$(0).PO$:.1620..>...".....
.................CAUTION: PRESS F1 TO AB
ORT OPTION.."..>..:&B:.8,DI,8,"0:NEXT":.
8,MX$: 8..>$..4,PR,7:.8,DI,8,"0:LIST":.1
5,DI,15:.SP..0.5000..?...1990:.DS.19.194
0.0?8..RP.1.E(MX$).1:SC$(1).I(" ".D(RP),
3):.1860.F?B..1990:.DS.19.1940._?L..H(R1
$,3)."###".4980.T?V..1770:.PM.0.4970..?`
..H(SC$(PM),C(PM$))..PM$.4980..?J..2300.
.?T..:.LS.1..1720:.2300.W?~..A.1.8:.4:.:
4: 8: 15:.2380..@..NR.1:.RP.1.E(MX$).1:
SC$(1).I(" ".D(RP),3)./@...1860:.1770:.A
$:.A$..""..F(A$).3.5060.>@...PM.0.5040._
@...H(SC$(PM),C(PM$))..PM$.5050..@..MT$(
NR).SC$(1).SC$(SP):NR.NR.1..@...:.5070..
@D.BM$."OPTION CANCELED":.1590:.RP.1.1:.
:.4080..@N.BR$."999ZZZZZZZZZZZZZZZZZZZZZ
ZZZZZZZZZ":.AA.1.NR.1:CK$.BR$.&AX..BB.1.
NR.1:.A$:.A$..""..F(A$).3.5130.UA...I(MT
$(BB),30).I(CK$,30).CC.BB:CK$.MT$(BB)..A
...:SC$(1).H(MT$(CC),3):.1860:.H(R1$,3).
"###".5120..A...1770:.2300:.A$:.A$..""..
F(A$).3.5130.JA..MT$(CC).BR$:.4980..B..B
M$."OPTION CANCELED":.1590:.AA.1.1:.:.BB
.1.1:.:.4990..B..:..B..:.'B(..:OF:MAIL:M
ATE:V64.=B2..1,10,15:.1,A$,B$....
> CLICK IMAGE PREVIEW FOR FULL MODAL