BA3.KAR REL 48
FILE INFORMATION
FILENAME(S): BA3.KAR REL 48
FILE TYPE(S): PRG
FILE SIZE: 8.5K
FIRST SEEN: 2025-11-30 19:36:53
APPEARS ON: 1 disk(s)
FILE HASH
876067cc2a109b9c10727203a093367def5d31b3a32b958b2a21a437a4262a85
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SOS | BA3.KAR REL 48 | PRG | Curtcool, Bo | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1F 08 E8 03 8F 20 53 41 56 45 20 22 42 41 |....... SAVE "BA|
00000010: 33 2E 4B 41 52 20 52 45 4C 20 34 38 22 2C 38 00 |3.KAR REL 48",8.|
00000020: 25 08 F2 03 3A 00 42 08 FC 03 97 35 33 32 38 30 |%...:.B....53280|
00000030: 2C 30 3A 97 35 33 32 38 31 2C 30 3A 99 20 22 93 |,0:.53281,0:. ".|
00000040: 05 22 00 65 08 06 04 99 22 93 11 11 11 11 11 11 |.".e....".......|
00000050: 11 11 11 11 1D 1D 1D 1D 4F 50 52 45 54 54 45 52 |........OPRETTER|
00000060: 2E 2E 2E 2E 22 00 7C 08 10 04 46 49 4C 4E 41 56 |....".|...FILNAV|
00000070: 4E 24 B2 22 52 45 4C 44 41 54 41 22 00 89 08 1A |N$."RELDATA"....|
00000080: 04 86 20 49 4E 24 28 35 29 00 B6 08 24 04 83 20 |.. IN$(5)...$.. |
00000090: 22 4E 41 56 4E 22 2C 22 41 44 52 22 2C 22 50 4F |"NAVN","ADR","PO|
000000A0: 53 54 4E 52 22 2C 22 42 59 22 2C 22 54 45 4C 45 |STNR","BY","TELE|
000000B0: 46 4F 4E 4E 52 22 00 D3 08 2E 04 81 20 58 B2 31 |FONNR"...... X.1|
000000C0: 20 A4 20 35 20 3A 20 87 20 49 4E 24 28 58 29 20 | . 5 : . IN$(X) |
000000D0: 3A 20 82 00 F5 08 38 04 8F 20 47 4F 53 55 42 20 |: ....8.. GOSUB |
000000E0: 32 39 31 30 20 3A 53 54 4F 50 3A 20 52 45 4D 20 |2910 :STOP: REM |
000000F0: 4F 50 52 45 54 00 15 09 42 04 8D 20 33 36 37 30 |OPRET...B.. 3670|
00000100: 20 3A 20 8F 20 48 45 4E 54 20 4F 50 53 54 41 52 | : . HENT OPSTAR|
00000110: 54 44 41 54 41 00 3A 09 4C 04 47 41 4E 54 41 4C |TDATA.:.L.GANTAL|
00000120: 25 B2 41 4E 54 41 4C 25 3A 8F 20 54 41 45 4C 4C |%.ANTAL%:. TAELL|
00000130: 45 52 20 46 4F 52 20 44 49 4D 00 5D 09 56 04 86 |ER FOR DIM.].V..|
00000140: 20 49 54 24 28 41 4E 54 41 4C 25 AA 31 30 29 3A | IT$(ANTAL%.10):|
00000150: 20 8F 20 49 4E 44 45 58 20 54 45 58 54 00 7E 09 | . INDEX TEXT.~.|
00000160: 60 04 86 20 49 50 25 28 41 4E 54 41 4C 25 AA 31 |`.. IP%(ANTAL%.1|
00000170: 30 29 3A 20 8F 20 50 4F 53 54 20 4E 52 2E 00 9C |0): . POST NR...|
00000180: 09 6A 04 4E 30 25 B2 30 20 3A 8F 20 49 4E 44 45 |.j.N0%.0 :. INDE|
00000190: 58 20 46 49 4C 45 20 50 45 47 45 52 00 C0 09 74 |X FILE PEGER...t|
000001A0: 04 47 4E 25 B2 30 20 3A 8F 20 47 41 4D 4D 45 4C |.GN%.0 :. GAMMEL|
000001B0: 49 4E 44 45 58 20 46 49 4C 45 20 50 45 47 45 52 |INDEX FILE PEGER|
000001C0: 00 CD 09 7E 04 86 20 54 45 24 28 35 29 00 E1 09 |...~.. TE$(5)...|
000001D0: 88 04 86 20 4C 41 25 28 35 29 2C 50 4C 25 28 35 |... LA%(5),PL%(5|
000001E0: 29 00 FB 09 92 04 8F 20 4C 41 45 4E 47 44 45 20 |)...... LAENGDE |
000001F0: 41 46 20 44 45 4C 20 50 4F 53 54 00 2F 0A 9C 04 |AF DEL POST./...|
00000200: 4C 41 25 28 31 29 B2 32 35 3A 4C 41 25 28 32 29 |LA%(1).25:LA%(2)|
00000210: B2 32 35 3A 4C 41 25 28 33 29 B2 34 3A 4C 41 25 |.25:LA%(3).4:LA%|
00000220: 28 34 29 B2 32 31 3A 4C 41 25 28 35 29 B2 38 00 |(4).21:LA%(5).8.|
00000230: 64 0A A6 04 50 4C 25 28 31 29 B2 31 3A 50 4C 25 |d...PL%(1).1:PL%|
00000240: 28 32 29 B2 32 37 3A 50 4C 25 28 33 29 B2 35 33 |(2).27:PL%(3).53|
00000250: 3A 50 4C 25 28 34 29 B2 35 38 3A 50 4C 25 28 35 |:PL%(4).58:PL%(5|
00000260: 29 B2 38 30 00 73 0A B0 04 50 4F 25 B2 46 52 49 |).80.s...PO%.FRI|
00000270: 25 AB 31 00 99 0A BA 04 8F 20 53 54 4F 50 3A 48 |%.1...... STOP:H|
00000280: 56 49 53 20 46 30 52 53 54 45 20 47 41 4E 47 20 |VIS F0RSTE GANG |
00000290: 47 4F 54 4F 20 53 54 59 52 00 B0 0A C4 04 8D 20 |GOTO STYR...... |
000002A0: 32 33 31 30 20 3A 20 8F 20 50 52 49 4E 54 45 52 |2310 : . PRINTER|
000002B0: 00 B6 0A CE 04 3A 00 D6 0A D8 04 8F 20 2A 2A 2A |.....:...... ***|
000002C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 53 54 59 52 45 50 |********* STYREP|
000002D0: 52 4F 47 52 41 4D 00 DC 0A E2 04 3A 00 F5 0A EC |ROGRAM.....:....|
000002E0: 04 8D 20 31 34 32 30 20 3A 20 8F 20 4D 45 4E 55 |.. 1420 : . MENU|
000002F0: 54 45 4B 53 54 00 0A 0B F6 04 8D 20 31 35 37 30 |TEKST...... 1570|
00000300: 20 3A 20 8F 20 49 4E 4B 45 59 00 16 0B 00 05 51 | : . INKEY.....Q|
00000310: 24 B2 22 23 40 22 00 34 0B 0A 05 8B 20 54 24 B2 |$."#@".4.... T$.|
00000320: 22 4E 22 20 A7 20 4E 30 25 B2 31 20 3A 20 8D 20 |"N" . N0%.1 : . |
00000330: 31 39 31 30 00 52 0B 14 05 8B 20 54 24 B2 22 41 |1910.R.... T$."A|
00000340: 22 20 A7 20 4E 30 25 B2 32 20 3A 20 8D 20 31 39 |" . N0%.2 : . 19|
00000350: 31 30 00 70 0B 1E 05 8B 20 54 24 B2 22 50 22 20 |10.p.... T$."P" |
00000360: A7 20 4E 30 25 B2 33 20 3A 20 8D 20 31 39 31 30 |. N0%.3 : . 1910|
00000370: 00 8E 0B 28 05 8B 20 54 24 B2 22 42 22 20 A7 20 |...(.. T$."B" . |
00000380: 4E 30 25 B2 34 20 3A 20 8D 20 31 39 31 30 00 AC |N0%.4 : . 1910..|
00000390: 0B 32 05 8B 20 54 24 B2 22 54 22 20 A7 20 4E 30 |.2.. T$."T" . N0|
000003A0: 25 B2 35 20 3A 20 8D 20 31 39 31 30 00 CA 0B 3C |%.5 : . 1910...<|
000003B0: 05 8B 20 54 24 B2 22 49 22 20 A7 20 51 24 B2 22 |.. T$."I" . Q$."|
000003C0: 41 41 22 3A 8D 20 32 31 39 30 00 E8 0B 46 05 8B |AA":. 2190...F..|
000003D0: 20 54 24 B2 22 52 22 20 A7 20 51 24 B2 22 41 41 | T$."R" . Q$."AA|
000003E0: 22 3A 8D 20 32 30 37 30 00 06 0C 50 05 8B 20 54 |":. 2070...P.. T|
000003F0: 24 B2 22 4B 22 20 A7 20 51 24 B2 22 41 41 22 3A |$."K" . Q$."AA":|
00000400: 8D 20 32 30 30 30 00 24 0C 5A 05 8B 20 54 24 B2 |. 2000.$.Z.. T$.|
00000410: 22 85 22 20 A7 20 51 24 B2 22 41 41 22 3A 8D 20 |"." . Q$."AA":. |
00000420: 34 34 30 30 00 48 0C 64 05 8B 20 54 24 B2 22 86 |4400.H.d.. T$.".|
00000430: 22 20 A7 20 8D 20 35 33 37 30 3A 8F 20 53 4B 52 |" . . 5370:. SKR|
00000440: 49 56 20 49 4E 44 45 58 00 5F 0C 6E 05 8B 20 51 |IV INDEX._.n.. Q|
00000450: 24 B2 22 23 40 22 20 A7 20 89 20 31 32 37 30 00 |$."#@" . . 1270.|
00000460: 6A 0C 78 05 89 20 31 32 36 30 00 70 0C 82 05 3A |j.x.. 1260.p...:|
00000470: 00 8D 0C 8C 05 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |...... *********|
00000480: 2A 2A 2A 20 4D 45 4E 55 54 45 4B 53 54 00 93 0C |*** MENUTEKST...|
00000490: 96 05 3A 00 9C 0C A0 05 99 3A 20 99 00 B8 0C AA |..:......: .....|
000004A0: 05 99 20 22 54 41 53 54 20 4E 20 46 4F 52 20 53 |.. "TAST N FOR S|
000004B0: 30 47 20 4E 41 56 4E 22 00 D7 0C B4 05 99 20 22 |0G NAVN"...... "|
000004C0: 54 41 53 54 20 41 20 46 4F 52 20 53 30 47 20 41 |TAST A FOR S0G A|
000004D0: 44 52 45 53 53 45 22 00 F6 0C BE 05 99 20 22 54 |DRESSE"...... "T|
000004E0: 41 53 54 20 50 20 46 4F 52 20 53 30 47 20 50 4F |AST P FOR S0G PO|
000004F0: 53 54 4E 52 2E 22 00 10 0D C8 05 99 20 22 54 41 |STNR."...... "TA|
00000500: 53 54 20 42 20 46 4F 52 20 53 30 47 20 42 59 22 |ST B FOR S0G BY"|
00000510: 00 32 0D D2 05 99 20 22 54 41 53 54 20 54 20 46 |.2.... "TAST T F|
00000520: 4F 52 20 53 30 47 20 54 45 4C 45 46 4F 4E 4E 52 |OR S0G TELEFONNR|
00000530: 2E 22 00 52 0D DC 05 99 20 22 54 41 53 54 20 49 |.".R.... "TAST I|
00000540: 20 46 4F 52 20 53 30 47 20 49 4E 44 53 4B 52 49 | FOR S0G INDSKRI|
00000550: 56 22 00 6F 0D E6 05 99 20 22 54 41 53 54 20 52 |V".o.... "TAST R|
00000560: 20 46 4F 52 20 53 30 47 20 52 45 54 54 45 22 00 | FOR S0G RETTE".|
00000570: 8A 0D F0 05 99 20 22 54 41 53 54 20 4B 20 46 4F |..... "TAST K FO|
00000580: 52 20 53 30 47 20 4B 49 4B 22 00 AD 0D FA 05 99 |R S0G KIK"......|
00000590: 20 22 54 41 53 54 20 46 31 20 46 4F 52 20 52 45 | "TAST F1 FOR RE|
000005A0: 4F 52 47 41 4E 49 53 41 54 49 4F 4E 22 00 B3 0D |ORGANISATION"...|
000005B0: 04 06 99 00 B9 0D 0E 06 8E 00 BF 0D 18 06 3A 00 |..............:.|
000005C0: D8 0D 22 06 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..".. **********|
000005D0: 2A 2A 20 49 4E 4B 45 59 00 DE 0D 2C 06 3A 00 F9 |** INKEY...,.:..|
000005E0: 0D 36 06 A1 20 54 24 3A 8B 20 54 24 B3 B1 22 22 |.6.. T$:. T$..""|
000005F0: 20 A7 20 89 20 31 35 39 30 00 14 0E 40 06 A1 20 | . . 1590...@.. |
00000600: 54 24 3A 8B 20 54 24 20 B2 22 22 20 A7 20 89 20 |T$:. T$ ."" . . |
00000610: 31 36 30 30 00 1A 0E 4A 06 8E 00 20 0E 54 06 3A |1600...J... .T.:|
00000620: 00 3C 0E 5E 06 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |.<.^.. *********|
00000630: 2A 2A 2A 20 49 4E 50 55 54 54 45 52 00 42 0E 68 |*** INPUTTER.B.h|
00000640: 06 3A 00 59 0E 72 06 99 20 22 93 22 3A 20 99 20 |.:.Y.r.. ".": . |
00000650: 22 4E 52 22 3B 20 50 4F 25 00 74 0E 7C 06 99 22 |"NR"; PO%.t.|.."|
00000660: 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 54 45 |............";TE|
00000670: 24 28 31 29 00 A3 0E 86 06 99 22 1D 1D 1D 1D 1D |$(1)......".....|
00000680: 1D 1D 1D 1D 1D AD C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000690: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 BD |................|
000006A0: 91 91 22 00 BD 0E 90 06 85 20 22 4E 41 56 4E 20 |.."...... "NAVN |
000006B0: 20 20 20 3A 22 3B 20 54 45 24 28 31 29 00 D9 0E | :"; TE$(1)...|
000006C0: 9A 06 54 45 24 28 31 29 B2 C8 28 54 45 24 28 31 |..TE$(1)..(TE$(1|
000006D0: 29 2C 4C 41 25 28 31 29 29 00 F5 0E A4 06 99 22 |),LA%(1))......"|
000006E0: 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 54 |.............";T|
000006F0: 45 24 28 32 29 00 24 0F AE 06 99 22 1D 1D 1D 1D |E$(2).$...."....|
00000700: 1D 1D 1D 1D 1D 1D AD C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000710: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000720: BD 91 91 22 00 3E 0F B8 06 85 20 22 41 44 52 20 |...".>.... "ADR |
00000730: 20 20 20 20 3A 22 3B 20 54 45 24 28 32 29 00 5A | :"; TE$(2).Z|
00000740: 0F C2 06 54 45 24 28 32 29 B2 C8 28 54 45 24 28 |...TE$(2)..(TE$(|
00000750: 32 29 2C 4C 41 25 28 32 29 29 00 76 0F CC 06 99 |2),LA%(2)).v....|
00000760: 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B |".............";|
00000770: 54 45 24 28 33 29 00 90 0F D6 06 99 22 1D 1D 1D |TE$(3)......"...|
00000780: 1D 1D 1D 1D 1D 1D 1D AD C0 C0 C0 C0 BD 91 91 22 |..............."|
00000790: 00 AA 0F E0 06 85 20 22 50 4F 53 54 4E 52 2E 20 |...... "POSTNR. |
000007A0: 3A 22 3B 20 54 45 24 28 33 29 00 C6 0F EA 06 54 |:"; TE$(3).....T|
000007B0: 45 24 28 33 29 B2 C8 28 54 45 24 28 33 29 2C 4C |E$(3)..(TE$(3),L|
000007C0: 41 25 28 33 29 29 00 E2 0F F4 06 99 22 11 11 1D |A%(3))......"...|
000007D0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 54 45 24 28 |..........";TE$(|
000007E0: 34 29 00 0D 10 FE 06 99 22 1D 1D 1D 1D 1D 1D 1D |4)......".......|
000007F0: 1D 1D 1D AD C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000800: C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 91 91 22 00 27 10 |............".'.|
00000810: 08 07 85 20 22 42 59 20 20 20 20 20 20 3A 22 3B |... "BY :";|
00000820: 20 54 45 24 28 34 29 00 43 10 12 07 54 45 24 28 | TE$(4).C...TE$(|
00000830: 34 29 B2 C8 28 54 45 24 28 34 29 2C 4C 41 25 28 |4)..(TE$(4),LA%(|
00000840: 34 29 29 00 5F 10 1C 07 99 22 11 11 1D 1D 1D 1D |4))._...."......|
00000850: 1D 1D 1D 1D 1D 1D 1D 22 3B 54 45 24 28 35 29 00 |.......";TE$(5).|
00000860: 7D 10 26 07 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |}.&.."..........|
00000870: AD C0 C0 C0 C0 C0 C0 C0 C0 BD 91 91 22 00 97 10 |............"...|
00000880: 30 07 85 20 22 54 45 4C 45 46 4F 4E 20 3A 22 3B |0.. "TELEFON :";|
00000890: 20 54 45 24 28 35 29 00 B3 10 3A 07 54 45 24 28 | TE$(5)...:.TE$(|
000008A0: 35 29 B2 C8 28 54 45 24 28 35 29 2C 4C 41 25 28 |5)..(TE$(5),LA%(|
000008B0: 35 29 29 00 C1 10 44 07 81 20 58 B2 31 20 A4 20 |5))...D.. X.1 . |
000008C0: 35 00 F0 10 4E 07 8B 20 54 45 24 28 58 29 B2 22 |5...N.. TE$(X)."|
000008D0: 22 20 B0 20 C8 28 54 45 24 28 58 29 2C 31 29 B2 |" . .(TE$(X),1).|
000008E0: 22 20 22 20 A7 20 54 45 24 28 58 29 B2 22 2D 22 |" " . TE$(X)."-"|
000008F0: 00 F8 10 58 07 82 20 58 00 FE 10 62 07 8E 00 04 |...X.. X...b....|
00000900: 11 6C 07 3A 00 1B 11 76 07 8F 20 2A 2A 2A 2A 2A |.l.:...v.. *****|
00000910: 2A 2A 2A 2A 2A 2A 2A 20 53 30 47 00 21 11 80 07 |******* S0G.!...|
00000920: 3A 00 47 11 8A 07 8B 20 47 4E 25 B3 B1 4E 30 25 |:.G.... GN%..N0%|
00000930: 20 A7 20 8D 20 32 38 30 30 20 3A 8F 20 48 45 4E | . . 2800 :. HEN|
00000940: 54 20 49 4E 44 45 58 00 53 11 94 07 47 4E 25 B2 |T INDEX.S...GN%.|
00000950: 4E 30 25 00 78 11 9E 07 99 20 22 48 56 49 4C 4B |N0%.x.... "HVILK|
00000960: 45 54 20 22 3B 49 4E 24 28 4E 30 25 29 3B 22 20 |ET ";IN$(N0%);" |
00000970: 53 30 47 45 53 20 22 3B 00 81 11 A8 07 85 20 51 |S0GES ";...... Q|
00000980: 24 00 9C 11 B2 07 8D 20 32 34 33 30 20 3A 20 8F |$...... 2430 : .|
00000990: 20 53 30 47 45 20 52 55 54 49 4E 45 00 A2 11 BC | S0GE RUTINE....|
000009A0: 07 8E 00 A8 11 C6 07 3A 00 CC 11 D0 07 8F 20 2A |.......:...... *|
000009B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 4B 49 4B 20 |*********** KIK |
000009C0: 50 41 41 20 45 4E 20 50 4C 41 44 53 00 D2 11 DA |PAA EN PLADS....|
000009D0: 07 3A 00 F6 11 E4 07 85 20 22 53 4B 52 49 56 20 |.:...... "SKRIV |
000009E0: 44 45 54 20 4E 52 2E 20 44 55 20 56 49 4C 20 53 |DET NR. DU VIL S|
000009F0: 45 22 3B 50 4F 25 00 18 12 EE 07 8B 20 50 4F 25 |E";PO%...... PO%|
00000A00: B1 46 52 49 25 AB 31 20 B0 20 50 4F 25 B3 31 20 |.FRI%.1 . PO%.1 |
00000A10: A7 20 89 20 32 30 32 30 00 2F 12 F8 07 8D 20 32 |. . 2020./.... 2|
00000A20: 33 31 30 20 3A 20 8F 20 50 52 49 4E 54 45 52 00 |310 : . PRINTER.|
00000A30: 35 12 02 08 8E 00 3B 12 0C 08 3A 00 5D 12 16 08 |5.....;...:.]...|
00000A40: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 52 |. ************ R|
00000A50: 45 54 54 45 20 46 55 4E 4B 54 49 4F 4E 00 63 12 |ETTE FUNKTION.c.|
00000A60: 20 08 3A 00 82 12 2A 08 99 3A 99 20 22 56 49 4C | .:...*..:. "VIL|
00000A70: 20 44 55 20 52 45 54 54 45 20 44 45 54 20 4A 2F | DU RETTE DET J/|
00000A80: 4E 22 00 97 12 34 08 8D 20 31 35 37 30 20 3A 20 |N"...4.. 1570 : |
00000A90: 8F 20 49 4E 4B 45 59 00 B3 12 3E 08 8B 20 54 24 |. INKEY...>.. T$|
00000AA0: 20 B3 B1 20 22 4A 22 20 A7 20 51 24 B2 22 23 40 | .. "J" . Q$."#@|
00000AB0: 22 3A 8E 00 CB 12 48 08 8D 20 31 36 33 30 20 3A |":....H.. 1630 :|
00000AC0: 20 8F 20 49 4E 50 55 54 54 45 52 00 E5 12 52 08 | . INPUTTER...R.|
00000AD0: 8D 20 33 33 35 30 20 3A 20 8F 20 53 4B 52 49 56 |. 3350 : . SKRIV|
00000AE0: 20 50 4F 53 54 00 03 13 5C 08 8D 20 34 39 30 30 | POST...\.. 4900|
00000AF0: 20 3A 20 8F 20 54 49 4C 46 30 4A 20 45 46 2E 52 | : . TILF0J EF.R|
00000B00: 45 54 2E 00 1A 13 66 08 8D 20 32 33 31 30 20 3A |ET....f.. 2310 :|
00000B10: 20 8F 20 50 52 49 4E 54 45 52 00 24 13 70 08 4E | . PRINTER.$.p.N|
00000B20: 30 25 B2 30 00 2A 13 7A 08 8E 00 30 13 84 08 3A |0%.0.*.z...0...:|
00000B30: 00 52 13 8E 08 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |.R.... *********|
00000B40: 2A 2A 2A 20 46 49 4E 44 20 54 4F 4D 20 50 4C 41 |*** FIND TOM PLA|
00000B50: 44 53 00 58 13 98 08 3A 00 85 13 A2 08 8B 20 53 |DS.X...:...... S|
00000B60: 41 25 B3 B1 30 20 A7 20 50 4F 25 B2 53 4C 25 28 |A%..0 . PO%.SL%(|
00000B70: 53 41 25 29 3A 53 41 25 B2 53 41 25 AB 31 3A 89 |SA%):SA%.SA%.1:.|
00000B80: 20 32 32 33 30 00 9E 13 AC 08 50 4F 25 B2 46 52 | 2230.....PO%.FR|
00000B90: 49 25 3A 46 52 49 25 B2 46 52 49 25 AA 31 00 BC |I%:FRI%.FRI%.1..|
00000BA0: 13 B6 08 81 20 58 B2 31 20 A4 20 35 20 3A 20 54 |.... X.1 . 5 : T|
00000BB0: 45 24 28 58 29 B2 22 22 20 3A 20 82 00 D4 13 C0 |E$(X)."" : .....|
00000BC0: 08 8D 20 31 36 33 30 20 3A 20 8F 20 49 4E 50 55 |.. 1630 : . INPU|
00000BD0: 54 54 45 52 00 EE 13 CA 08 8D 20 33 33 35 30 20 |TTER...... 3350 |
00000BE0: 3A 20 8F 20 53 4B 52 49 56 20 50 4F 53 54 00 09 |: . SKRIV POST..|
00000BF0: 14 D4 08 8D 20 32 35 39 30 20 3A 20 8F 20 55 44 |.... 2590 : . UD|
00000C00: 56 49 44 20 49 4E 44 45 58 00 24 14 DE 08 8D 20 |VID INDEX.$.... |
00000C10: 33 38 32 30 20 3A 20 8F 20 47 45 4D 20 4F 50 53 |3820 : . GEM OPS|
00000C20: 54 41 52 54 00 3B 14 E8 08 8D 20 32 33 31 30 20 |TART.;.... 2310 |
00000C30: 3A 20 8F 20 50 52 49 4E 54 45 52 00 41 14 F2 08 |: . PRINTER.A...|
00000C40: 8E 00 47 14 FC 08 3A 00 62 14 06 09 8F 20 2A 2A |..G...:.b.... **|
00000C50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 50 52 49 4E 54 |********** PRINT|
00000C60: 45 52 00 68 14 10 09 3A 00 81 14 1A 09 8D 20 33 |ER.h...:...... 3|
00000C70: 35 31 30 20 3A 20 8F 20 48 45 4E 54 20 50 4F 53 |510 : . HENT POS|
00000C80: 54 00 94 14 24 09 99 20 22 93 4E 52 2E 22 20 3B |T...$.. ".NR." ;|
00000C90: 20 50 4F 25 00 9A 14 2E 09 99 00 B4 14 38 09 99 | PO%.........8..|
00000CA0: 20 22 4E 41 56 4E 20 20 20 20 3A 22 3B 20 54 45 | "NAVN :"; TE|
00000CB0: 24 28 31 29 00 CE 14 42 09 99 20 22 41 44 52 2E |$(1)...B.. "ADR.|
00000CC0: 20 20 20 20 3A 22 3B 20 54 45 24 28 32 29 00 E8 | :"; TE$(2)..|
00000CD0: 14 4C 09 99 20 22 50 4F 53 54 4E 52 2E 20 3A 22 |.L.. "POSTNR. :"|
00000CE0: 3B 20 54 45 24 28 33 29 00 02 15 56 09 99 20 22 |; TE$(3)...V.. "|
00000CF0: 42 59 20 20 20 20 20 20 3A 22 3B 20 54 45 24 28 |BY :"; TE$(|
00000D00: 34 29 00 1C 15 60 09 99 20 22 54 45 4C 45 46 4F |4)...`.. "TELEFO|
00000D10: 4E 20 3A 22 3B 20 54 45 24 28 35 29 00 22 15 6A |N :"; TE$(5).".j|
00000D20: 09 8E 00 28 15 74 09 3A 00 47 15 7E 09 8F 20 2A |...(.t.:.G.~.. *|
00000D30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 53 30 47 45 |*********** S0GE|
00000D40: 20 52 55 54 49 4E 45 00 4D 15 88 09 3A 00 64 15 | RUTINE.M...:.d.|
00000D50: 92 09 46 55 4E 44 25 B2 30 3A 51 24 B2 C8 28 51 |..FUND%.0:Q$..(Q|
00000D60: 24 2C 35 29 00 77 15 9C 09 81 20 58 B2 31 20 A4 |$,5).w.... X.1 .|
00000D70: 20 41 4E 54 41 4C 25 00 A6 15 A6 09 8B 20 51 24 | ANTAL%...... Q$|
00000D80: B2 C8 28 49 54 24 28 58 29 2C C3 28 51 24 29 29 |..(IT$(X),.(Q$))|
00000D90: A7 20 46 55 4E 44 25 B2 46 55 4E 44 25 AA 31 3A |. FUND%.FUND%.1:|
00000DA0: 8D 20 32 35 32 30 00 AE 15 B0 09 82 20 58 00 DA |. 2520...... X..|
00000DB0: 15 BA 09 8B 20 46 55 4E 44 25 B2 30 20 A7 20 99 |.... FUND%.0 . .|
00000DC0: 20 22 11 49 4E 47 45 4E 20 46 55 4E 44 45 54 22 | ".INGEN FUNDET"|
00000DD0: 20 3A 20 51 24 B2 22 23 40 22 00 E0 15 C4 09 8E | : Q$."#@"......|
00000DE0: 00 E6 15 CE 09 3A 00 FE 15 D8 09 8F 20 2A 2A 2A |.....:...... ***|
00000DF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 56 45 4E 54 00 04 |********* VENT..|
00000E00: 16 E2 09 3A 00 3B 16 EC 09 8B 20 46 55 4E 44 25 |...:.;.... FUND%|
00000E10: B1 31 20 A7 20 99 3A 99 22 54 52 59 4B 20 50 41 |.1 . .:."TRYK PA|
00000E20: 41 20 45 4E 20 54 41 53 54 22 3A 20 8D 20 31 35 |A EN TAST": . 15|
00000E30: 37 30 20 3A 8F 20 49 4E 4B 45 59 00 4A 16 F6 09 |70 :. INKEY.J...|
00000E40: 50 4F 25 B2 49 50 25 28 58 29 00 61 16 00 0A 8D |PO%.IP%(X).a....|
00000E50: 20 32 33 31 30 20 3A 20 8F 20 50 52 49 4E 54 45 | 2310 : . PRINTE|
00000E60: 52 00 67 16 0A 0A 8E 00 6D 16 14 0A 3A 00 8C 16 |R.g.....m...:...|
00000E70: 1E 0A 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
00000E80: 20 55 44 56 49 44 20 49 4E 44 45 58 00 92 16 28 | UDVID INDEX...(|
00000E90: 0A 3A 00 B4 16 32 0A 41 4E 54 41 4C 25 B2 41 4E |.:...2.ANTAL%.AN|
00000EA0: 54 41 4C 25 AA 31 3A 8F 20 41 4E 54 41 4C 20 49 |TAL%.1:. ANTAL I|
00000EB0: 4E 44 45 58 00 C2 16 3C 0A 81 20 58 B2 31 20 A4 |NDEX...<.. X.1 .|
00000EC0: 20 35 00 E1 16 46 0A 9F 20 32 2C 38 2C 33 2C 49 | 5...F.. 2,8,3,I|
00000ED0: 4E 24 28 58 29 AA 22 2C 53 2C 41 50 50 45 4E 44 |N$(X).",S,APPEND|
00000EE0: 22 00 F4 16 50 0A 98 32 2C C8 28 54 45 24 28 58 |"...P..2,.(TE$(X|
00000EF0: 29 2C 35 29 00 FF 16 5A 0A 98 32 2C 50 4F 25 00 |),5)...Z..2,PO%.|
00000F00: 07 17 64 0A A0 20 32 00 0F 17 6E 0A 82 20 58 00 |..d.. 2...n.. X.|
00000F10: 27 17 78 0A 8D 20 32 37 32 30 20 3A 20 8F 20 54 |'.x.. 2720 : . T|
00000F20: 45 53 54 20 53 45 51 00 4A 17 82 0A 4E 30 25 B2 |EST SEQ.J...N0%.|
00000F30: 30 20 3A 20 8F 20 41 4B 54 55 45 4C 20 49 4E 44 |0 : . AKTUEL IND|
00000F40: 45 58 20 53 4C 45 54 54 45 53 00 50 17 8C 0A 8E |EX SLETTES.P....|
00000F50: 00 56 17 96 0A 3A 00 77 17 A0 0A 8F 20 2A 2A 2A |.V...:.w.... ***|
00000F60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 54 45 53 54 20 53 |********* TEST S|
00000F70: 45 51 20 46 49 4C 45 00 7D 17 AA 0A 3A 00 8B 17 |EQ FILE.}...:...|
00000F80: B4 0A 9F 20 31 35 2C 38 2C 31 35 00 A0 17 BE 0A |... 15,8,15.....|
00000F90: 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 |.15,EN,EM$,ET,ES|
00000FA0: 00 A9 17 C8 0A A0 20 31 35 00 C8 17 D2 0A 8B 20 |...... 15...... |
00000FB0: 45 4E B3 B1 30 20 A7 20 99 20 45 4E 2C 45 4D 24 |EN..0 . . EN,EM$|
00000FC0: 2C 45 54 2C 45 53 3A 90 00 CE 17 DC 0A 8E 00 D4 |,ET,ES:.........|
00000FD0: 17 E6 0A 3A 00 F7 17 F0 0A 8F 20 2A 2A 2A 2A 2A |...:...... *****|
00000FE0: 2A 2A 2A 2A 2A 2A 2A 20 48 45 4E 54 20 49 4E 44 |******* HENT IND|
00000FF0: 45 58 20 46 49 4C 45 00 FD 17 FA 0A 3A 00 06 18 |EX FILE.....:...|
00001000: 04 0B 41 25 B2 31 00 24 18 0E 0B 9F 20 31 32 2C |..A%.1.$.... 12,|
00001010: 38 2C 31 33 2C 49 4E 24 28 4E 30 25 29 AA 22 2C |8,13,IN$(N0%).",|
00001020: 53 2C 52 22 00 3C 18 18 0B 84 31 32 2C 49 54 24 |S,R".<....12,IT$|
00001030: 28 41 25 29 2C 49 50 25 28 41 25 29 00 48 18 22 |(A%),IP%(A%).H."|
00001040: 0B 41 25 B2 41 25 AA 31 00 5C 18 2C 0B 8B 20 53 |.A%.A%.1.\.,.. S|
00001050: 54 B2 30 20 A7 20 89 20 32 38 34 30 00 65 18 36 |T.0 . . 2840.e.6|
00001060: 0B A0 20 31 32 00 7D 18 40 0B 8D 20 32 37 32 30 |.. 12.}.@.. 2720|
00001070: 20 3A 20 8F 20 54 45 53 54 20 53 45 51 00 83 18 | : . TEST SEQ...|
00001080: 4A 0B 8E 00 89 18 54 0B 3A 00 AE 18 5E 0B 8F 20 |J.....T.:...^.. |
00001090: 2A 2A 2A 2A 20 4F 50 52 45 54 20 46 49 4C 45 20 |**** OPRET FILE |
000010A0: 4F 47 20 50 4F 53 54 4C 41 45 4E 47 44 45 00 B4 |OG POSTLAENGDE..|
000010B0: 18 68 0B 3A 00 C2 18 72 0B 9F 20 31 35 2C 38 2C |.h.:...r.. 15,8,|
000010C0: 31 35 00 D8 18 7C 0B 98 31 35 2C 22 53 3A 22 AA |15...|..15,"S:".|
000010D0: 46 49 4C 4E 41 56 4E 24 00 F3 18 86 0B 98 31 35 |FILNAVN$......15|
000010E0: 2C 22 53 3A 22 AA 46 49 4C 4E 41 56 4E 24 AA 22 |,"S:".FILNAVN$."|
000010F0: 4F 50 22 00 01 19 90 0B 81 20 58 B2 31 20 A4 20 |OP"...... X.1 . |
00001100: 35 00 15 19 9A 0B 98 31 35 2C 22 53 3A 22 AA 49 |5......15,"S:".I|
00001110: 4E 24 28 58 29 00 1D 19 A4 0B 82 20 58 00 26 19 |N$(X)...... X.&.|
00001120: AE 0B A0 20 31 35 00 3E 19 B8 0B 8D 20 32 37 32 |... 15.>.... 272|
00001130: 30 20 3A 20 8F 20 54 45 53 54 20 53 45 51 00 61 |0 : . TEST SEQ.a|
00001140: 19 C2 0B 8F 20 45 46 46 45 4B 54 49 56 20 50 4F |.... EFFEKTIV PO|
00001150: 53 54 4C 41 45 4E 47 44 45 20 32 35 20 54 45 47 |STLAENGDE 25 TEG|
00001160: 4E 00 A6 19 CC 0B 8F 20 50 4F 53 54 4C 41 45 4E |N...... POSTLAEN|
00001170: 47 44 45 20 35 38 20 4F 47 20 35 39 20 45 52 20 |GDE 58 OG 59 ER |
00001180: 54 45 47 4E 45 4E 45 20 3A 20 4F 47 20 3B 20 44 |TEGNENE : OG ; D|
00001190: 45 54 54 45 20 47 49 56 45 52 20 46 45 4A 4C 4D |ETTE GIVER FEJLM|
000011A0: 45 4C 44 49 4E 47 00 C7 19 D6 0B 9F 20 31 2C 38 |ELDING...... 1,8|
000011B0: 2C 32 2C 46 49 4C 4E 41 56 4E 24 AA 22 2C 4C 2C |,2,FILNAVN$.",L,|
000011C0: 22 AA C7 28 38 38 29 00 D5 19 E0 0B 9F 20 31 35 |"..(88)...... 15|
000011D0: 2C 38 2C 31 35 00 ED 19 EA 0B 8D 20 33 32 38 30 |,8,15...... 3280|
000011E0: 20 3A 20 8F 20 54 45 53 54 20 52 45 4C 00 FC 19 | : . TEST REL...|
000011F0: F4 0B 81 20 44 45 B2 31 20 A4 20 35 00 21 1A FE |... DE.1 . 5.!..|
00001200: 0B 98 31 35 2C 22 50 22 C7 28 32 AA 39 36 29 C7 |..15,"P".(2.96).|
00001210: 28 31 29 C7 28 30 29 C7 28 50 4C 25 28 44 45 29 |(1).(0).(PL%(DE)|
00001220: 29 00 39 1A 08 0C 8D 20 33 32 38 30 20 3A 20 8F |).9.... 3280 : .|
00001230: 20 54 45 53 54 20 52 45 4C 00 44 1A 12 0C 98 31 | TEST REL.D....1|
00001240: 2C 22 2A 22 00 5C 1A 1C 0C 8D 20 33 32 38 30 20 |,"*".\.... 3280 |
00001250: 3A 20 8F 20 54 45 53 54 20 52 45 4C 00 65 1A 26 |: . TEST REL.e.&|
00001260: 0C 82 20 44 45 00 72 1A 30 0C A0 20 31 35 3A A0 |.. DE.r.0.. 15:.|
00001270: 20 31 00 84 1A 3A 0C 8F 20 4F 50 53 54 41 52 54 | 1...:.. OPSTART|
00001280: 44 41 54 41 00 A2 1A 44 0C 9F 20 33 2C 38 2C 34 |DATA...D.. 3,8,4|
00001290: 2C 46 49 4C 4E 41 56 4E 24 AA 22 4F 50 2C 53 2C |,FILNAVN$."OP,S,|
000012A0: 57 22 00 B6 1A 4E 0C 41 25 B2 30 20 3A 20 8F 20 |W"...N.A%.0 : . |
000012B0: 41 4E 54 41 4C 25 00 C0 1A 58 0C 98 33 2C 41 25 |ANTAL%...X..3,A%|
000012C0: 00 D2 1A 62 0C 41 25 B2 31 20 3A 20 8F 20 46 52 |...b.A%.1 : . FR|
000012D0: 49 25 00 DC 1A 6C 0C 98 33 2C 41 25 00 FB 1A 76 |I%...l..3,A%...v|
000012E0: 0C 41 25 B2 30 20 3A 20 8F 20 53 41 25 20 53 4C |.A%.0 : . SA% SL|
000012F0: 45 54 54 45 54 20 41 4E 54 41 4C 00 05 1B 80 0C |ETTET ANTAL.....|
00001300: 98 33 2C 41 25 00 0D 1B 8A 0C A0 20 33 00 1B 1B |.3,A%...... 3...|
00001310: 94 0C 81 20 58 B2 31 20 A4 20 35 00 35 1B 9E 0C |... X.1 . 5.5...|
00001320: 9F 20 31 2C 38 2C 31 2C 49 4E 24 28 58 29 AA 22 |. 1,8,1,IN$(X)."|
00001330: 2C 53 2C 57 22 00 3D 1B A8 0C A0 20 31 00 45 1B |,S,W".=.... 1.E.|
00001340: B2 0C 82 20 58 00 4B 1B BC 0C 8E 00 51 1B C6 0C |... X.K.....Q...|
00001350: 3A 00 71 1B D0 0C 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |:.q.... ********|
00001360: 2A 2A 2A 2A 20 54 45 53 54 20 52 45 4C 46 49 4C |**** TEST RELFIL|
00001370: 45 00 77 1B DA 0C 3A 00 8C 1B E4 0C 84 31 35 2C |E.w...:......15,|
00001380: 45 52 2C 45 52 24 2C 45 54 2C 45 53 00 A3 1B EE |ER,ER$,ET,ES....|
00001390: 0C 8B 20 45 52 B2 30 20 B0 20 45 52 B2 35 30 20 |.. ER.0 . ER.50 |
000013A0: A7 20 8E 00 B6 1B F8 0C 99 20 45 52 2C 45 52 24 |. ....... ER,ER$|
000013B0: 2C 45 54 3B 45 53 00 BC 1B 02 0D 90 00 C2 1B 0C |,ET;ES..........|
000013C0: 0D 3A 00 E0 1B 16 0D 8F 20 2A 2A 2A 2A 2A 2A 2A |.:...... *******|
000013D0: 2A 2A 2A 2A 2A 20 53 4B 52 49 56 20 50 4F 53 54 |***** SKRIV POST|
000013E0: 00 E6 1B 20 0D 3A 00 F9 1B 2A 0D 48 49 25 B2 B5 |... .:...*.HI%..|
000013F0: 28 50 4F 25 AD 32 35 36 29 00 0D 1C 34 0D 4C 4F |(PO%.256)...4.LO|
00001400: 25 B2 50 4F 25 AB 32 35 36 AC 48 49 25 00 22 1C |%.PO%.256.HI%.".|
00001410: 3E 0D 9F 20 31 2C 38 2C 32 2C 46 49 4C 4E 41 56 |>.. 1,8,2,FILNAV|
00001420: 4E 24 00 30 1C 48 0D 9F 20 31 35 2C 38 2C 31 35 |N$.0.H.. 15,8,15|
00001430: 00 3F 1C 52 0D 81 20 44 45 B2 31 20 A4 20 35 00 |.?.R.. DE.1 . 5.|
00001440: 68 1C 5C 0D 98 31 35 2C 22 50 22 C7 28 32 AA 39 |h.\..15,"P".(2.9|
00001450: 36 29 C7 28 4C 4F 25 29 C7 28 48 49 25 29 C7 28 |6).(LO%).(HI%).(|
00001460: 50 4C 25 28 44 45 29 29 00 80 1C 66 0D 8D 20 33 |PL%(DE))...f.. 3|
00001470: 32 38 30 20 3A 20 8F 20 54 45 53 54 20 52 45 4C |280 : . TEST REL|
00001480: 00 8F 1C 70 0D 98 31 2C 54 45 24 28 44 45 29 00 |...p..1,TE$(DE).|
00001490: A7 1C 7A 0D 8D 20 33 32 38 30 20 3A 20 8F 20 54 |..z.. 3280 : . T|
000014A0: 45 53 54 20 52 45 4C 00 B0 1C 84 0D 82 20 44 45 |EST REL...... DE|
000014B0: 00 B9 1C 8E 0D A0 20 31 35 00 C1 1C 98 0D A0 20 |...... 15...... |
000014C0: 31 00 C7 1C A2 0D 8E 00 CD 1C AC 0D 3A 00 EA 1C |1...........:...|
000014D0: B6 0D 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
000014E0: 20 48 45 4E 54 20 50 4F 53 54 00 F0 1C C0 0D 3A | HENT POST.....:|
000014F0: 00 03 1D CA 0D 48 49 25 B2 B5 28 50 4F 25 AD 32 |.....HI%..(PO%.2|
00001500: 35 36 29 00 17 1D D4 0D 4C 4F 25 B2 50 4F 25 AB |56).....LO%.PO%.|
00001510: 32 35 36 AC 48 49 25 00 2C 1D DE 0D 9F 20 31 2C |256.HI%.,.... 1,|
00001520: 38 2C 32 2C 46 49 4C 4E 41 56 4E 24 00 3A 1D E8 |8,2,FILNAVN$.:..|
00001530: 0D 9F 20 31 35 2C 38 2C 31 35 00 49 1D F2 0D 81 |.. 15,8,15.I....|
00001540: 20 44 45 B2 31 20 A4 20 35 00 72 1D FC 0D 98 31 | DE.1 . 5.r....1|
00001550: 35 2C 22 50 22 C7 28 32 AA 39 36 29 C7 28 4C 4F |5,"P".(2.96).(LO|
00001560: 25 29 C7 28 48 49 25 29 C7 28 50 4C 25 28 44 45 |%).(HI%).(PL%(DE|
00001570: 29 29 00 8A 1D 06 0E 8D 20 33 32 38 30 20 3A 20 |))...... 3280 : |
00001580: 8F 20 54 45 53 54 20 52 45 4C 00 99 1D 10 0E 84 |. TEST REL......|
00001590: 31 2C 54 45 24 28 44 45 29 00 B1 1D 1A 0E 8D 20 |1,TE$(DE)...... |
000015A0: 33 32 38 30 20 3A 20 8F 20 54 45 53 54 20 52 45 |3280 : . TEST RE|
000015B0: 4C 00 BA 1D 24 0E 82 20 44 45 00 C3 1D 2E 0E A0 |L...$.. DE......|
000015C0: 20 31 35 00 CB 1D 38 0E A0 20 31 00 D1 1D 42 0E | 15...8.. 1...B.|
000015D0: 8E 00 D7 1D 4C 0E 3A 00 FB 1D 56 0E 8F 20 2A 2A |....L.:...V.. **|
000015E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 48 45 4E 54 20 |********** HENT |
000015F0: 4F 50 53 54 41 52 54 44 41 54 41 00 01 1E 60 0E |OPSTARTDATA...`.|
00001600: 3A 00 1F 1E 6A 0E 9F 20 33 2C 38 2C 34 2C 46 49 |:...j.. 3,8,4,FI|
00001610: 4C 4E 41 56 4E 24 AA 22 4F 50 2C 53 2C 52 22 00 |LNAVN$."OP,S,R".|
00001620: 2D 1E 74 0E 84 33 2C 41 4E 54 41 4C 25 00 39 1E |-.t..3,ANTAL%.9.|
00001630: 7E 0E 84 33 2C 46 52 49 25 00 44 1E 88 0E 84 33 |~..3,FRI%.D....3|
00001640: 2C 53 41 25 00 53 1E 92 0E 86 20 53 4C 25 28 53 |,SA%.S.... SL%(S|
00001650: 41 25 29 00 68 1E 9C 0E 8B 20 53 41 25 B2 30 20 |A%).h.... SA%.0 |
00001660: A7 20 89 20 33 37 38 30 00 79 1E A6 0E 81 20 58 |. . 3780.y.... X|
00001670: 20 B2 31 20 A4 20 53 41 25 00 87 1E B0 0E 84 33 | .1 . SA%......3|
00001680: 2C 53 4C 25 28 58 29 00 8F 1E BA 0E 82 20 58 00 |,SL%(X)...... X.|
00001690: 97 1E C4 0E A0 20 33 00 AF 1E CE 0E 8D 20 32 37 |..... 3...... 27|
000016A0: 32 30 20 3A 20 8F 20 54 45 53 54 20 53 45 51 00 |20 : . TEST SEQ.|
000016B0: B5 1E D8 0E 8E 00 BB 1E E2 0E 3A 00 DE 1E EC 0E |..........:.....|
000016C0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 47 |. ************ G|
000016D0: 45 4D 20 4F 50 53 54 41 52 54 44 41 54 41 00 E4 |EM OPSTARTDATA..|
000016E0: 1E F6 0E 3A 00 05 1F 00 0F 9F 20 31 35 2C 38 2C |...:...... 15,8,|
000016F0: 31 35 2C 22 53 3A 22 AA 46 49 4C 4E 41 56 4E 24 |15,"S:".FILNAVN$|
00001700: AA 22 4F 50 22 00 0E 1F 0A 0F A0 20 31 35 00 2C |."OP"...... 15.,|
00001710: 1F 14 0F 9F 20 31 2C 38 2C 31 2C 46 49 4C 4E 41 |.... 1,8,1,FILNA|
00001720: 56 4E 24 AA 22 4F 50 2C 53 2C 57 22 00 3A 1F 1E |VN$."OP,S,W".:..|
00001730: 0F 98 31 2C 41 4E 54 41 4C 25 00 46 1F 28 0F 98 |..1,ANTAL%.F.(..|
00001740: 31 2C 46 52 49 25 00 51 1F 32 0F 98 31 2C 53 41 |1,FRI%.Q.2..1,SA|
00001750: 25 00 66 1F 3C 0F 8B 20 53 41 25 B2 30 20 A7 20 |%.f.<.. SA%.0 . |
00001760: 89 20 33 39 34 30 00 76 1F 46 0F 81 20 58 B2 31 |. 3940.v.F.. X.1|
00001770: 20 A4 20 53 41 25 00 84 1F 50 0F 98 31 2C 53 4C | . SA%...P..1,SL|
00001780: 25 28 58 29 00 8C 1F 5A 0F 82 20 58 00 94 1F 64 |%(X)...Z.. X...d|
00001790: 0F A0 20 31 00 9A 1F 6E 0F 8E 00 A0 1F 78 0F 3A |.. 1...n.....x.:|
000017A0: 00 C2 1F 82 0F 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |...... *********|
000017B0: 2A 2A 2A 20 52 45 4F 52 47 41 4E 49 53 41 54 49 |*** REORGANISATI|
000017C0: 4F 4E 00 C8 1F 8C 0F 3A 00 DA 1F 96 0F 8F 20 53 |ON.....:...... S|
000017D0: 4C 45 54 20 4E 30 47 4C 45 52 00 F4 1F A0 0F 8D |LET N0GLER......|
000017E0: 20 35 32 37 30 20 3A 20 8F 20 53 4C 45 54 20 49 | 5270 : . SLET I|
000017F0: 4E 44 45 58 00 0E 20 AA 0F 9F 20 31 35 2C 38 2C |NDEX.. ... 15,8,|
00001800: 31 35 2C 22 53 3A 54 4D 50 44 41 54 41 22 00 17 |15,"S:TMPDATA"..|
00001810: 20 B4 0F A0 20 31 35 00 31 20 BE 0F 9F 20 31 2C | ... 15.1 ... 1,|
00001820: 38 2C 31 2C 22 54 4D 50 44 41 54 41 2C 53 2C 57 |8,1,"TMPDATA,S,W|
00001830: 22 00 39 20 C8 0F A0 20 31 00 51 20 D2 0F 8D 20 |".9 ... 1.Q ... |
00001840: 32 37 32 30 20 3A 20 8F 20 54 45 53 54 20 53 45 |2720 : . TEST SE|
00001850: 51 00 64 20 DC 0F 41 4E 54 41 4C 25 B2 30 3A 53 |Q.d ..ANTAL%.0:S|
00001860: 41 25 B2 30 00 77 20 E6 0F 81 20 59 B2 31 20 A4 |A%.0.w ... Y.1 .|
00001870: 20 46 52 49 25 AB 31 00 81 20 F0 0F 50 4F 25 B2 | FRI%.1.. ..PO%.|
00001880: 59 00 A4 20 FA 0F 99 22 44 45 52 20 41 52 42 45 |Y.. ..."DER ARBE|
00001890: 4A 44 45 53 20 4D 45 44 20 50 4F 53 54 22 3B 59 |JDES MED POST";Y|
000018A0: 3B 50 4F 25 00 BD 20 04 10 8D 20 33 35 31 30 20 |;PO%.. ... 3510 |
000018B0: 3A 20 8F 20 48 45 4E 54 20 50 4F 53 54 00 F6 20 |: . HENT POST.. |
000018C0: 0E 10 8B 20 C8 28 54 45 24 28 31 29 2C 31 29 B2 |... .(TE$(1),1).|
000018D0: 22 2A 22 20 A7 20 8D 20 34 33 31 30 20 3A 20 89 |"*" . . 4310 : .|
000018E0: 20 34 31 33 30 20 3A 20 8F 20 47 45 4D 20 54 4F | 4130 : . GEM TO|
000018F0: 4D 20 50 4F 53 54 00 11 21 18 10 8D 20 32 35 39 |M POST..!... 259|
00001900: 30 20 3A 20 8F 20 55 44 56 49 44 20 49 4E 44 45 |0 : . UDVID INDE|
00001910: 58 00 19 21 22 10 82 20 59 00 3A 21 2C 10 9F 20 |X..!".. Y.:!,.. |
00001920: 31 35 2C 38 2C 31 35 2C 22 53 3A 22 AA 46 49 4C |15,8,15,"S:".FIL|
00001930: 4E 41 56 4E 24 AA 22 4F 50 22 00 43 21 36 10 A0 |NAVN$."OP".C!6..|
00001940: 20 31 35 00 61 21 40 10 9F 20 31 2C 38 2C 31 2C | 15.a!@.. 1,8,1,|
00001950: 46 49 4C 4E 41 56 4E 24 AA 22 4F 50 2C 53 2C 57 |FILNAVN$."OP,S,W|
00001960: 22 00 6F 21 4A 10 98 31 2C 41 4E 54 41 4C 25 00 |".o!J..1,ANTAL%.|
00001970: 7B 21 54 10 98 31 2C 46 52 49 25 00 86 21 5E 10 |{!T..1,FRI%..!^.|
00001980: 98 31 2C 53 41 25 00 9B 21 68 10 8B 20 53 41 25 |.1,SA%..!h.. SA%|
00001990: B2 30 20 A7 20 89 20 34 32 36 30 00 B5 21 72 10 |.0 . . 4260..!r.|
000019A0: 9F 20 32 2C 38 2C 32 2C 22 54 4D 50 44 41 54 41 |. 2,8,2,"TMPDATA|
000019B0: 2C 53 2C 52 22 00 C5 21 7C 10 81 20 58 B2 31 20 |,S,R"..!|.. X.1 |
000019C0: A4 20 53 41 25 00 CF 21 86 10 84 32 2C 41 25 00 |. SA%..!...2,A%.|
000019D0: D9 21 90 10 98 31 2C 41 25 00 E1 21 9A 10 82 20 |.!...1,A%..!... |
000019E0: 58 00 EF 21 A4 10 A0 20 31 20 3A 20 A0 20 32 00 |X..!... 1 : . 2.|
000019F0: 07 22 AE 10 8D 20 32 37 32 30 20 3A 20 8F 20 54 |."... 2720 : . T|
00001A00: 45 53 54 20 53 45 51 00 26 22 B8 10 9F 20 31 35 |EST SEQ.&"... 15|
00001A10: 2C 38 2C 31 35 2C 22 53 3A 54 4D 50 44 41 54 41 |,8,15,"S:TMPDATA|
00001A20: 22 3A A0 20 31 35 00 2C 22 C2 10 8A 00 32 22 CC |":. 15.,"....2".|
00001A30: 10 3A 00 52 22 D6 10 8F 20 2A 2A 2A 2A 2A 2A 2A |.:.R"... *******|
00001A40: 2A 2A 2A 2A 2A 20 47 45 4D 20 54 4F 4D 20 50 4F |***** GEM TOM PO|
00001A50: 53 54 00 58 22 E0 10 3A 00 66 22 EA 10 53 41 25 |ST.X"..:.f"..SA%|
00001A60: B2 53 41 25 AA 31 00 80 22 F4 10 9F 20 31 2C 38 |.SA%.1.."... 1,8|
00001A70: 2C 32 2C 22 54 4D 50 44 41 54 41 2C 53 2C 41 22 |,2,"TMPDATA,S,A"|
00001A80: 00 8B 22 FE 10 98 31 2C 50 4F 25 00 93 22 08 11 |.."...1,PO%.."..|
00001A90: A0 20 31 00 AB 22 12 11 8D 20 32 37 32 30 20 3A |. 1.."... 2720 :|
00001AA0: 20 8F 20 54 45 53 54 20 53 45 51 00 B1 22 1C 11 | . TEST SEQ.."..|
00001AB0: 8E 00 B7 22 26 11 3A 00 D2 22 30 11 8F 2A 2A 2A |..."&.:.."0..***|
00001AC0: 20 4E 59 20 52 45 4F 52 47 41 4E 49 53 45 52 2A | NY REORGANISER*|
00001AD0: 2A 2A 00 D8 22 3A 11 3A 00 F8 22 44 11 8D 20 35 |**..":.:.."D.. 5|
00001AE0: 32 37 30 20 3A 20 8F 20 53 4C 45 54 20 49 4E 44 |270 : . SLET IND|
00001AF0: 45 58 20 46 49 4C 45 52 00 12 23 4E 11 9F 20 31 |EX FILER..#N.. 1|
00001B00: 35 2C 38 2C 31 35 2C 22 53 3A 54 4D 50 44 41 54 |5,8,15,"S:TMPDAT|
00001B10: 41 22 00 1B 23 58 11 A0 20 31 35 00 33 23 62 11 |A"..#X.. 15.3#b.|
00001B20: 8D 20 32 37 32 30 20 3A 20 8F 20 54 45 53 54 20 |. 2720 : . TEST |
00001B30: 53 45 51 00 4D 23 6C 11 9F 20 31 2C 38 2C 31 2C |SEQ.M#l.. 1,8,1,|
00001B40: 22 54 4D 50 44 41 54 41 2C 53 2C 57 22 00 55 23 |"TMPDATA,S,W".U#|
00001B50: 76 11 A0 20 31 00 6D 23 80 11 8D 20 32 37 32 30 |v.. 1.m#... 2720|
00001B60: 20 3A 20 8F 20 54 45 53 54 20 53 45 51 00 7E 23 | : . TEST SEQ.~#|
00001B70: 8A 11 46 52 49 25 B2 31 3A 53 41 25 B2 30 00 93 |..FRI%.1:SA%.0..|
00001B80: 23 94 11 9F 20 31 2C 38 2C 32 2C 46 49 4C 4E 41 |#... 1,8,2,FILNA|
00001B90: 56 4E 24 00 A1 23 9E 11 9F 20 31 35 2C 38 2C 31 |VN$..#... 15,8,1|
00001BA0: 35 00 AE 23 A8 11 50 4F 25 B2 46 52 49 25 00 C1 |5..#..PO%.FRI%..|
00001BB0: 23 B2 11 48 49 25 B2 B5 28 50 4F 25 AD 32 35 36 |#..HI%..(PO%.256|
00001BC0: 29 00 D5 23 BC 11 4C 4F 25 B2 50 4F 25 AB 48 49 |)..#..LO%.PO%.HI|
00001BD0: 25 AC 32 35 36 00 F8 23 C6 11 98 31 35 2C 22 50 |%.256..#...15,"P|
00001BE0: 22 C7 28 32 AA 39 36 29 C7 28 4C 4F 25 29 C7 28 |".(2.96).(LO%).(|
00001BF0: 48 49 25 29 C7 28 31 29 00 0D 24 D0 11 84 31 35 |HI%).(1)..$...15|
00001C00: 2C 45 4E 2C 45 4E 24 2C 45 54 2C 45 53 00 18 24 |,EN,EN$,ET,ES..$|
00001C10: DA 11 A1 23 31 2C 54 24 00 30 24 E4 11 8B 20 54 |...#1,T$.0$... T|
00001C20: 24 B2 C7 28 32 35 35 29 20 A7 20 45 4E B2 35 30 |$..(255) . EN.50|
00001C30: 00 3F 24 EE 11 A0 20 31 35 20 3A 20 A0 20 31 00 |.?$... 15 : . 1.|
00001C40: 55 24 F8 11 8B 20 45 4E B3 B1 30 20 20 20 A7 20 |U$... EN..0 . |
00001C50: 89 34 36 36 30 00 6E 24 02 12 8D 20 33 35 31 30 |.4660.n$... 3510|
00001C60: 20 3A 20 8F 20 48 45 4E 54 20 50 4F 53 54 00 A7 | : . HENT POST..|
00001C70: 24 0C 12 8B 20 22 2A 22 B2 C8 28 54 45 24 28 31 |$... "*"..(TE$(1|
00001C80: 29 2C 31 29 20 A7 20 8D 20 34 33 31 30 20 3A 20 |),1) . . 4310 : |
00001C90: 89 20 34 36 34 30 20 3A 20 8F 20 47 45 4D 20 54 |. 4640 : . GEM T|
00001CA0: 4F 4D 50 4C 41 44 53 00 C2 24 16 12 8D 20 32 35 |OMPLADS..$... 25|
00001CB0: 39 30 20 3A 20 8F 20 55 44 56 49 44 20 49 4E 44 |90 : . UDVID IND|
00001CC0: 45 58 00 D2 24 20 12 46 52 49 25 B2 46 52 49 25 |EX..$ .FRI%.FRI%|
00001CD0: AA 31 00 DD 24 2A 12 89 20 34 35 30 30 00 0A 25 |.1..$*.. 4500..%|
00001CE0: 34 12 8B 20 45 4E B2 35 30 20 A7 20 8D 20 34 37 |4.. EN.50 . . 47|
00001CF0: 31 30 20 3A 20 8F 20 52 45 4F 52 47 2E 20 4F 50 |10 : . REORG. OP|
00001D00: 53 54 41 52 54 20 44 41 54 41 00 1D 25 3E 12 99 |START DATA..%>..|
00001D10: 20 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 00 23 25 | EN,EM$,ET,ES.#%|
00001D20: 48 12 8A 00 29 25 52 12 90 00 2F 25 5C 12 3A 00 |H...)%R.../%\.:.|
00001D30: 54 25 66 12 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |T%f.. **********|
00001D40: 2A 2A 20 52 45 4F 52 47 2E 4F 50 53 54 41 52 54 |** REORG.OPSTART|
00001D50: 44 41 54 41 00 5A 25 70 12 3A 00 7B 25 7A 12 9F |DATA.Z%p.:.{%z..|
00001D60: 20 31 35 2C 38 2C 31 35 2C 22 53 3A 22 AA 46 49 | 15,8,15,"S:".FI|
00001D70: 4C 4E 41 56 4E 24 AA 22 4F 50 22 00 84 25 84 12 |LNAVN$."OP"..%..|
00001D80: A0 20 31 35 00 A2 25 8E 12 9F 20 31 2C 38 2C 31 |. 15..%... 1,8,1|
00001D90: 2C 46 49 4C 4E 41 56 4E 24 AA 22 4F 50 2C 53 2C |,FILNAVN$."OP,S,|
00001DA0: 57 22 00 B0 25 98 12 98 31 2C 41 4E 54 41 4C 25 |W"..%...1,ANTAL%|
00001DB0: 00 BC 25 A2 12 98 31 2C 46 52 49 25 00 C7 25 AC |..%...1,FRI%..%.|
00001DC0: 12 98 31 2C 53 41 25 00 DC 25 B6 12 8B 20 53 41 |..1,SA%..%... SA|
00001DD0: 25 B2 30 20 A7 20 89 20 34 38 35 30 00 F6 25 C0 |%.0 . . 4850..%.|
00001DE0: 12 9F 20 32 2C 38 2C 32 2C 22 54 4D 50 44 41 54 |.. 2,8,2,"TMPDAT|
00001DF0: 41 2C 53 2C 52 22 00 06 26 CA 12 81 20 58 B2 31 |A,S,R"..&... X.1|
00001E00: 20 A4 20 53 41 25 00 10 26 D4 12 84 32 2C 41 25 | . SA%..&...2,A%|
00001E10: 00 1A 26 DE 12 98 31 2C 41 25 00 22 26 E8 12 82 |..&...1,A%."&...|
00001E20: 20 58 00 30 26 F2 12 A0 20 31 20 3A 20 A0 20 32 | X.0&... 1 : . 2|
00001E30: 00 48 26 FC 12 8D 20 32 37 32 30 20 3A 20 8F 20 |.H&... 2720 : . |
00001E40: 54 45 53 54 20 53 45 51 00 67 26 06 13 9F 20 31 |TEST SEQ.g&... 1|
00001E50: 35 2C 38 2C 31 35 2C 22 53 3A 54 4D 50 44 41 54 |5,8,15,"S:TMPDAT|
00001E60: 41 22 3A A0 20 31 35 00 6D 26 10 13 8E 00 73 26 |A":. 15.m&....s&|
00001E70: 1A 13 3A 00 96 26 24 13 8F 20 2A 2A 2A 2A 2A 2A |..:..&$.. ******|
00001E80: 2A 2A 2A 20 54 49 4C 46 30 4A 20 45 46 54 45 52 |*** TILF0J EFTER|
00001E90: 20 52 45 54 54 45 00 9C 26 2E 13 3A 00 AA 26 38 | RETTE..&..:..&8|
00001EA0: 13 9F 20 31 35 2C 38 2C 31 35 00 B8 26 42 13 81 |.. 15,8,15..&B..|
00001EB0: 20 58 B2 31 20 A4 20 35 00 D0 26 4C 13 98 31 35 | X.1 . 5..&L..15|
00001EC0: 2C 22 53 3A 54 4D 50 2E 22 AA 49 4E 24 28 58 29 |,"S:TMP.".IN$(X)|
00001ED0: 00 D8 26 56 13 82 20 58 00 E1 26 60 13 A0 20 31 |..&V.. X..&`.. 1|
00001EE0: 35 00 F8 26 6A 13 8D 20 32 37 32 30 20 3A 8F 20 |5..&j.. 2720 :. |
00001EF0: 54 45 53 54 20 53 45 51 00 06 27 74 13 81 20 58 |TEST SEQ..'t.. X|
00001F00: B2 31 20 A4 20 35 00 27 27 7E 13 9F 20 31 2C 38 |.1 . 5.''~.. 1,8|
00001F10: 2C 31 2C 22 54 4D 50 2E 22 AA 49 4E 24 28 58 29 |,1,"TMP.".IN$(X)|
00001F20: AA 22 2C 53 2C 57 22 00 3A 27 88 13 98 31 2C C8 |.",S,W".:'...1,.|
00001F30: 28 54 45 24 28 58 29 2C 35 29 00 45 27 92 13 98 |(TE$(X),5).E'...|
00001F40: 31 2C 50 4F 25 00 4D 27 9C 13 A0 20 31 00 64 27 |1,PO%.M'... 1.d'|
00001F50: A6 13 8D 20 32 37 32 30 20 3A 8F 20 54 45 53 54 |... 2720 :. TEST|
00001F60: 20 53 45 51 00 6E 27 B0 13 4E 30 25 B2 58 00 87 | SEQ.n'..N0%.X..|
00001F70: 27 BA 13 8D 20 32 38 30 30 20 3A 8F 20 48 45 4E |'... 2800 :. HEN|
00001F80: 54 20 49 4E 44 45 58 00 97 27 C4 13 41 4E 54 41 |T INDEX..'..ANTA|
00001F90: 4C 25 B2 41 25 AA 31 00 B8 27 CE 13 9F 20 31 2C |L%.A%.1..'... 1,|
00001FA0: 38 2C 35 2C 22 54 4D 50 2E 22 AA 49 4E 24 28 58 |8,5,"TMP.".IN$(X|
00001FB0: 29 AA 22 2C 53 2C 41 22 00 C7 27 D8 13 81 20 59 |).",S,A"..'... Y|
00001FC0: B2 31 20 A4 20 41 25 00 F5 27 E2 13 8B 20 50 4F |.1 . A%..'... PO|
00001FD0: 25 B2 49 50 25 28 59 29 20 A7 20 89 20 35 31 32 |%.IP%(Y) . . 512|
00001FE0: 30 20 3A 20 8F 20 48 4F 50 20 4F 56 45 52 20 52 |0 : . HOP OVER R|
00001FF0: 45 54 54 45 54 00 03 28 EC 13 98 31 2C 49 54 24 |ETTET..(...1,IT$|
00002000: 28 59 29 00 11 28 F6 13 98 31 2C 49 50 25 28 59 |(Y)..(...1,IP%(Y|
00002010: 29 00 19 28 00 14 82 20 59 00 20 28 0A 14 A0 31 |)..(... Y. (...1|
00002020: 00 37 28 14 14 8D 20 32 37 32 30 20 3A 8F 20 54 |.7(... 2720 :. T|
00002030: 45 53 54 20 53 45 51 00 3F 28 1E 14 82 20 58 00 |EST SEQ.?(... X.|
00002040: 4D 28 28 14 9F 20 31 35 2C 38 2C 31 35 00 6F 28 |M((.. 15,8,15.o(|
00002050: 32 14 81 20 58 B2 31 20 A4 20 35 3A 98 31 35 2C |2.. X.1 . 5:.15,|
00002060: 22 53 3A 22 AA 49 4E 24 28 58 29 3A 82 20 58 00 |"S:".IN$(X):. X.|
00002070: 7D 28 3C 14 81 20 58 B2 31 20 A4 20 35 00 A0 28 |}(<.. X.1 . 5..(|
00002080: 46 14 98 31 35 2C 22 52 3A 22 AA 49 4E 24 28 58 |F..15,"R:".IN$(X|
00002090: 29 AA 22 3D 54 4D 50 2E 22 AA 49 4E 24 28 58 29 |)."=TMP.".IN$(X)|
000020A0: 00 A8 28 50 14 82 20 58 00 B1 28 5A 14 A0 20 31 |..(P.. X..(Z.. 1|
000020B0: 35 00 C8 28 64 14 8D 20 32 37 32 30 20 3A 8F 20 |5..(d.. 2720 :. |
000020C0: 54 45 53 54 20 53 45 51 00 E2 28 6E 14 8D 20 33 |TEST SEQ..(n.. 3|
000020D0: 38 32 30 20 3A 8F 20 47 45 4D 20 4F 50 53 54 41 |820 :. GEM OPSTA|
000020E0: 52 54 00 EC 28 78 14 4E 30 25 B2 30 00 F2 28 82 |RT..(x.N0%.0..(.|
000020F0: 14 8E 00 F8 28 8C 14 3A 00 1C 29 96 14 8F 20 2A |....(..:..)... *|
00002100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 53 4C 45 54 |*********** SLET|
00002110: 20 49 4E 44 45 58 20 46 49 4C 45 52 00 22 29 A0 | INDEX FILER.").|
00002120: 14 3A 00 30 29 AA 14 9F 20 31 35 2C 38 2C 31 35 |.:.0)... 15,8,15|
00002130: 00 3E 29 B4 14 81 20 58 B2 31 20 A4 20 35 00 52 |.>)... X.1 . 5.R|
00002140: 29 BE 14 98 31 35 2C 22 53 3A 22 AA 49 4E 24 28 |)...15,"S:".IN$(|
00002150: 58 29 00 6C 29 C8 14 9F 20 31 2C 38 2C 31 2C 49 |X).l)... 1,8,1,I|
00002160: 4E 24 28 58 29 AA 22 2C 53 2C 57 22 00 74 29 D2 |N$(X).",S,W".t).|
00002170: 14 A0 20 31 00 7C 29 DC 14 82 20 58 00 85 29 E6 |.. 1.|)... X..).|
00002180: 14 A0 20 31 35 00 8B 29 F0 14 8E 00 A5 29 FA 14 |.. 15..).....)..|
00002190: 8F 20 2A 2A 2A 2A 2A 20 53 4B 52 49 56 20 49 54 |. ***** SKRIV IT|
000021A0: 24 20 49 50 25 00 BF 29 04 15 99 22 58 2C 49 54 |$ IP%..)..."X,IT|
000021B0: 24 28 58 29 2C 49 50 25 28 58 29 2C 50 4F 25 00 |$(X),IP%(X),PO%.|
000021C0: D2 29 0E 15 81 20 58 B2 31 20 A4 20 41 4E 54 41 |.)... X.1 . ANTA|
000021D0: 4C 25 00 EC 29 18 15 99 20 58 2C 49 54 24 28 58 |L%..)... X,IT$(X|
000021E0: 29 2C 49 50 25 28 58 29 2C 50 4F 25 00 F4 29 22 |),IP%(X),PO%..)"|
000021F0: 15 82 20 58 00 FA 29 2C 15 8E 00 00 00 |.. X..),..... |
....... SAVE "BA3.KAR REL 48",8.%...:.B.
...53280,0:.53281,0:. "..".E....".......
........OPRETTER....".|...FILNAVN$."RELD
ATA"...... IN$(5)...$.. "NAVN","ADR","PO
STNR","BY","TELEFONNR".S.... X.1 . 5 : .
IN$(X) : ....8.. GOSUB 2910 :STOP: REM
OPRET...B.. 3670 : . HENT OPSTARTDATA.:.
L.GANTAL%.ANTAL%:. TAELLER FOR DIM.].V..
IT$(ANTAL%.10): . INDEX TEXT.~.`.. IP%(
ANTAL%.10): . POST NR....J.N0%.0 :. INDE
X FILE PEGER...T.GN%.0 :. GAMMELINDEX FI
LE PEGER.M.~.. TE$(5)...... LA%(5),PL%(5
)...... LAENGDE AF DEL POST./...LA%(1).2
5:LA%(2).25:LA%(3).4:LA%(4).21:LA%(5).8.
D...PL%(1).1:PL%(2).27:PL%(3).53:PL%(4).
58:PL%(5).80.S...PO%.FRI%.1...... STOP:H
VIS F0RSTE GANG GOTO STYR...D.. 2310 : .
PRINTER...N.:.V.X.. ************ STYREP
ROGRAM.....:...... 1420 : . MENUTEKST...
... 1570 : . INKEY.....Q$."#@".4.... T$.
"N" . N0%.1 : . 1910.R.... T$."A" . N0%.
2 : . 1910.P.... T$."P" . N0%.3 : . 1910
...(.. T$."B" . N0%.4 : . 1910...2.. T$.
"T" . N0%.5 : . 1910.J.<.. T$."I" . Q$."
AA":. 2190...F.. T$."R" . Q$."AA":. 2070
...P.. T$."K" . Q$."AA":. 2000.$.Z.. T$.
"." . Q$."AA":. 4400.H.D.. T$."." . . 53
70:. SKRIV INDEX._.N.. Q$."#@" . . 1270.
J.X.. 1260.P...:...... ************ MENU
TEKST.....:... ..: ....... "TAST N FOR S
0G NAVN".W.... "TAST A FOR S0G ADRESSE".
..... "TAST P FOR S0G POSTNR."...H.. "TA
ST B FOR S0G BY".2.R.. "TAST T FOR S0G T
ELEFONNR.".R.... "TAST I FOR S0G INDSKRI
V".O.... "TAST R FOR S0G RETTE"...... "T
AST K FOR S0G KIK"...... "TAST F1 FOR RE
ORGANISATION".................:.X.".. **
********** INKEY...,.:...6.. T$:. T$..""
. . 1590...@.. T$:. T$ ."" . . 1600...J
... .T.:.<.^.. ************ INPUTTER.B.H
.:.Y.R.. ".": . "NR"; PO%.T.|.."........
....";TE$(1)......".....................
.................."...... "NAVN :"; T
E$(1).Y...TE$(1).H(TE$(1),LA%(1))......"
.............";TE$(2).$...."............
...........................".>.... "ADR
:"; TE$(2).Z.B.TE$(2).H(TE$(2),LA%(2
)).V.L..".............";TE$(3)...V.."...
..............."...... "POSTNR. :"; TE$(
3).F...TE$(3).H(TE$(3),LA%(3))......"...
..........";TE$(4)......"...............
....................".'.... "BY :";
TE$(4).C...TE$(4).H(TE$(4),LA%(4))._...
.".............";TE$(5).}.&.."..........
............"...0.. "TELEFON :"; TE$(5).
..:.TE$(5).H(TE$(5),LA%(5)).A.D.. X.1 .
5...N.. TE$(X)."" . H(TE$(X),1)." " . TE
$(X)."-"...X.. X...B.....L.:...V.. *****
******* S0G.!...:.G.... GN%..N0% . . 280
0 :. HENT INDEX.S...GN%.N0%.X.... "HVILK
ET ";IN$(N0%);" S0GES ";...... Q$......
2430 : . S0GE RUTINE.........F.:.L.P.. *
*********** KIK PAA EN PLADS.R.Z.:......
"SKRIV DET NR. DU VIL SE";PO%...... PO%
.FRI%.1 . PO%.1 . . 2020./.... 2310 : .
PRINTER.5.....;...:.].... ************ R
ETTE FUNKTION.C. .:...*..:. "VIL DU RETT
E DET J/N"...4.. 1570 : . INKEY...>.. T$
.. "J" . Q$."#@":..K.H.. 1630 : . INPUT
TER...R.. 3350 : . SKRIV POST...\.. 4900
: . TILF0J EF.RET....F.. 2310 : . PRINT
ER.$.P.N0%.0.*.Z...0...:.R.... *********
*** FIND TOM PLADS.X...:...... SA%..0 .
PO%.SL%(SA%):SA%.SA%.1:. 2230.....PO%.FR
I%:FRI%.FRI%.1...... X.1 . 5 : TE$(X).""
: ..T.... 1630 : . INPUTTER...J.. 3350
: . SKRIV POST...T.. 2590 : . UDVID INDE
X.$.... 3820 : . GEM OPSTART.;.... 2310
: . PRINTER.A.....G...:.B.... **********
** PRINTER.H...:...... 3510 : . HENT POS
T...$.. ".NR." ; PO%.........8.. "NAVN
:"; TE$(1).N.B.. "ADR. :"; TE$(2)..
.L.. "POSTNR. :"; TE$(3)...V.. "BY
:"; TE$(4)...`.. "TELEFON :"; TE$(5).".J
...(.T.:.G.~.. ************ S0GE RUTINE.
M...:.D...FUND%.0:Q$.H(Q$,5).W.... X.1 .
ANTAL%...... Q$.H(IT$(X),C(Q$)). FUND%.
FUND%.1:. 2520...... X.Z.... FUND%.0 . .
".INGEN FUNDET" : Q$."#@"...D.....N.:..
.X.. ************ VENT.....:.;.... FUND%
.1 . .:."TRYK PAA EN TAST": . 1570 :. IN
KEY.J...PO%.IP%(X).A.... 2310 : . PRINTE
R.G.....M...:...... ************ UDVID I
NDEX...(.:...2.ANTAL%.ANTAL%.1:. ANTAL I
NDEX.B.<.. X.1 . 5...F.. 2,8,3,IN$(X).",
S,APPEND"...P..2,H(TE$(X),5)...Z..2,PO%.
..D. 2...N.. X.'.X.. 2720 : . TEST SEQ.
J...N0%.0 : . AKTUEL INDEX SLETTES.P....
.V...:.W. .. ************ TEST SEQ FILE.
}...:...... 15,8,15. ....15,EN,EM$,ET,ES
...H. 15.H.R.. EN..0 . . EN,EM$,ET,ES:.
.N.....T...:...... ************ HENT IND
EX FILE.....:.....A%.1.$.... 12,8,13,IN$
(N0%).",S,R".<....12,IT$(A%),IP%(A%).H."
.A%.A%.1.\.,.. ST.0 . . 2840.E.6. 12.}.
@.. 2720 : . TEST SEQ...J.....T.:...^..
**** OPRET FILE OG POSTLAENGDE...H.:.B.R
.. 15,8,15.X.|..15,"S:".FILNAVN$......15
,"S:".FILNAVN$."OP"...... X.1 . 5......1
5,"S:".IN$(X)...... X.&... 15.>.... 272
0 : . TEST SEQ.A.B.. EFFEKTIV POSTLAENGD
E 25 TEGN...L.. POSTLAENGDE 58 OG 59 ER
TEGNENE : OG ; DETTE GIVER FEJLMELDING.G
.V.. 1,8,2,FILNAVN$.",L,".G(88).U.... 15
,8,15...... 3280 : . TEST REL...... DE.1
. 5.!....15,"P"G(2.96)G(1)G(0)G(PL%(DE)
).9.... 3280 : . TEST REL.D....1,"*".\..
.. 3280 : . TEST REL.E.&.. DE.R.0. 15:
1...:.. OPSTARTDATA...D.. 3,8,4,FILNAVN
$."OP,S,W"...N.A%.0 : . ANTAL%...X..3,A%
.R.B.A%.1 : . FRI%...L..3,A%...V.A%.0 :
. SA% SLETTET ANTAL......3,A%..... 3...
... X.1 . 5.5.... 1,8,1,IN$(X).",S,W".=.
.. 1.E.... X.K.....Q.F.:.Q.P.. ********
**** TEST RELFILE.W.Z.:......15,ER,ER$,E
T,ES...... ER.0 . ER.50 . ....... ER,ER$
,ET;ES.......B...:...... ************ SK
RIV POST... .:...*.HI%..(PO%.256)...4.LO
%.PO%.256.HI%.".>.. 1,8,2,FILNAVN$.0.H..
15,8,15.?.R.. DE.1 . 5.H.\..15,"P"G(2.9
6)G(LO%)G(HI%)G(PL%(DE))...F.. 3280 : .
TEST REL...P..1,TE$(DE)...Z.. 3280 : . T
EST REL...... DE..... 15.A... 1.G.....
M...:...... ************ HENT POST.....:
...J.HI%..(PO%.256)...T.LO%.PO%.256.HI%.
,.... 1,8,2,FILNAVN$.:.... 15,8,15.I....
DE.1 . 5.R....15,"P"G(2.96)G(LO%)G(HI%)
G(PL%(DE))...... 3280 : . TEST REL......
1,TE$(DE)...... 3280 : . TEST REL...$..
DE.C... 15.K.8. 1.Q.B...W.L.:...V.. **
********** HENT OPSTARTDATA...`.:...J..
3,8,4,FILNAVN$."OP,S,R".-.T..3,ANTAL%.9.
~..3,FRI%.D....3,SA%.S.... SL%(SA%).H...
. SA%.0 . . 3780.Y.... X .1 . SA%......3
,SL%(X)...... X...D. 3...N.. 2720 : . T
EST SEQ...X.......:...... ************ G
EM OPSTARTDATA.....:...... 15,8,15,"S:".
FILNAVN$."OP"..... 15.,.... 1,8,1,FILNA
VN$."OP,S,W".:....1,ANTAL%.F.(..1,FRI%.Q
.2..1,SA%.F.<.. SA%.0 . . 3940.V.F.. X.1
. SA%...P..1,SL%(X)...Z.. X...D. 1...N
... .X.:.B.... ************ REORGANISATI
ON.H...:.Z.... SLET N0GLER... .. 5270 :
. SLET INDEX.. ... 15,8,15,"S:TMPDATA"..
.. 15.1 ... 1,8,1,"TMPDATA,S,W".9 H.
1.Q R.. 2720 : . TEST SEQ.D ..ANTAL%.0:S
A%.0.W ... Y.1 . FRI%.1.. ..PO%.Y.. ..."
DER ARBEJDES MED POST";Y;PO%.. ... 3510
: . HENT POST.. ... H(TE$(1),1)."*" . .
4310 : . 4130 : . GEM TOM POST..!... 259
0 : . UDVID INDEX..!".. Y.:!,.. 15,8,15,
"S:".FILNAVN$."OP".C!6. 15.A!@.. 1,8,1,
FILNAVN$."OP,S,W".O!J..1,ANTAL%.{!T..1,F
RI%..!^..1,SA%..!H.. SA%.0 . . 4260..!R.
. 2,8,2,"TMPDATA,S,R".E!|.. X.1 . SA%.O!
...2,A%.Y!...1,A%..!... X..!.. 1 : 2.
."... 2720 : . TEST SEQ.&"... 15,8,15,"S
:TMPDATA": 15.,"B...2"L.:.R"V.. *******
***** GEM TOM POST.X"..:.F"..SA%.SA%.1..
"... 1,8,2,"TMPDATA,S,A".."...1,PO%.."..
1.."... 2720 : . TEST SEQ.."....."&.:.
R"0..*** NY REORGANISER***.X":.:.."D.. 5
270 : . SLET INDEX FILER..#N.. 15,8,15,"
S:TMPDATA"..#X. 15.3#B.. 2720 : . TEST
SEQ.M#L.. 1,8,1,"TMPDATA,S,W".U#V. 1.M#
... 2720 : . TEST SEQ.~#..FRI%.1:SA%.0..
#... 1,8,2,FILNAVN$..#... 15,8,15..#..PO
%.FRI%.A#..HI%..(PO%.256).U#..LO%.PO%.HI
%.256..#F..15,"P"G(2.96)G(LO%)G(HI%)G(1)
..$P..15,EN,EN$,ET,ES..$Z..#1,T$.0$... T
$.G(255) . EN.50.?$.. 15 : 1.U$... EN
..0 . .4660.N$... 3510 : . HENT POST..
$... "*".H(TE$(1),1) . . 4310 : . 4640 :
. GEM TOMPLADS.B$... 2590 : . UDVID IND
EX.R$ .FRI%.FRI%.1..$*.. 4500..%4.. EN.5
0 . . 4710 : . REORG. OPSTART DATA..%>..
EN,EM$,ET,ES.#%H...)%R.../%\.:.T%F.. **
********** REORG.OPSTARTDATA.Z%P.:.{%Z..
15,8,15,"S:".FILNAVN$."OP"..%.. 15..%.
.. 1,8,1,FILNAVN$."OP,S,W"..%...1,ANTAL%
..%...1,FRI%.G%...1,SA%..%... SA%.0 . .
4850..%... 2,8,2,"TMPDATA,S,R"..&J.. X.1
. SA%..&T..2,A%..&...1,A%."&... X.0&..
1 : 2.H&... 2720 : . TEST SEQ.G&... 1
5,8,15,"S:TMPDATA": 15.M&....S&..:..&$.
. ********* TILF0J EFTER RETTE..&..:..&8
.. 15,8,15..&B.. X.1 . 5.P&L..15,"S:TMP.
".IN$(X).X&V.. X..&`. 15..&J.. 2720 :.
TEST SEQ..'T.. X.1 . 5.''~.. 1,8,1,"TMP.
".IN$(X).",S,W".:'...1,H(TE$(X),5).E'...
1,PO%.M'.. 1.D'... 2720 :. TEST SEQ.N'.
.N0%.X..'... 2800 :. HENT INDEX..'D.ANTA
L%.A%.1..'N.. 1,8,5,"TMP.".IN$(X).",S,A"
.G'X.. Y.1 . A%..'... PO%.IP%(Y) . . 512
0 : . HOP OVER RETTET..(...1,IT$(Y)..(..
.1,IP%(Y)..(... Y. (.. 1.7(... 2720 :. T
EST SEQ.?(... X.M((.. 15,8,15.O(2.. X.1
. 5:.15,"S:".IN$(X):. X.}(<.. X.1 . 5. (
F..15,"R:".IN$(X)."=TMP.".IN$(X)..(P.. X
..(Z. 15.H(D.. 2720 :. TEST SEQ..(N.. 3
820 :. GEM OPSTART..(X.N0%.0..(.....(..:
..)... ************ SLET INDEX FILER.")
.:.0)... 15,8,15.>)... X.1 . 5.R)...15,"
S:".IN$(X).L)H.. 1,8,1,IN$(X).",S,W".T)R
. 1.|)... X..).. 15..).....)... *****
SKRIV IT$ IP%..)..."X,IT$(X),IP%(X),PO%.
R)... X.1 . ANTAL%..)... X,IT$(X),IP%(X)
,PO%..)".. X..),.....
> CLICK IMAGE PREVIEW FOR FULL MODAL