GEOS VLIR-ANALYZ
FILE INFORMATION
FILENAME(S): GEOS VLIR-ANALYZ
FILE TYPE(S): PRG
FILE SIZE: 5.3K
FIRST SEEN: 2025-10-20 00:40:16
APPEARS ON: 2 disk(s)
FILE HASH
9a83479ee28cec714235ae83c07fda7370d5a5f2626f1b1409ea98dc7f90e9b6
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MT90570 S B | GEOS VLIR-ANALYZ | PRG | Treasure Chest - Joker79 | 17 | 10 | DOWNLOAD FILE |
| 90461 SEITE2 | GEOS VLIR-ANALYZ | PRG | DuncanTwain | 9 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1F 08 0A 00 8F 20 2A 2A 2A 20 20 56 4C 49 |....... *** VLI|
00000010: 52 2D 41 4E 41 4C 59 5A 45 52 20 20 2A 2A 2A 00 |R-ANALYZER ***.|
00000020: 3D 08 14 00 8F 20 2A 2A 2A 20 46 4C 4F 52 49 41 |=.... *** FLORIA|
00000030: 4E 20 4D 55 45 4C 4C 45 52 20 2A 2A 2A 00 43 08 |N MUELLER ***.C.|
00000040: 1E 00 3A 00 81 08 64 00 8B 20 C2 28 34 39 31 35 |..:...d.. .(4915|
00000050: 32 29 B3 B1 31 36 39 20 B0 20 C2 28 34 39 31 35 |2)..169 . .(4915|
00000060: 39 29 B3 B1 31 34 30 20 A7 20 93 22 47 45 4F 53 |9)..140 . ."GEOS|
00000070: 2D 42 53 4F 55 54 20 24 43 30 30 30 22 2C 38 2C |-BSOUT $C000",8,|
00000080: 31 00 8F 08 6E 00 9E 20 34 39 31 35 32 3A 9C 00 |1...n.. 49152:..|
00000090: B1 08 78 00 99 22 0E 22 3A 43 24 B2 22 20 22 3A |..x..".":C$." ":|
000000A0: 81 46 B2 31 A4 36 3A 43 24 B2 43 24 AA 43 24 3A |.F.1.6:C$.C$.C$:|
000000B0: 82 00 D5 08 82 00 53 53 24 B2 C7 28 31 36 30 29 |......SS$..(160)|
000000C0: 3A 81 46 B2 31 A4 34 3A 53 53 24 B2 53 53 24 AA |:.F.1.4:SS$.SS$.|
000000D0: 53 53 24 3A 82 00 15 09 8C 00 4D 24 B2 22 47 45 |SS$:......M$."GE|
000000E0: 4F 53 20 22 AA C7 28 31 30 32 29 AA C7 28 31 31 |OS "..(102)..(11|
000000F0: 31 29 AA C7 28 31 31 34 29 AA C7 28 31 30 39 29 |1)..(114)..(109)|
00000100: AA C7 28 39 37 29 AA C7 28 31 31 36 29 AA 22 20 |..(97)..(116)." |
00000110: 56 31 2E 30 22 00 5D 09 96 00 86 44 24 28 31 35 |V1.0".]....D$(15|
00000120: 30 29 2C 54 24 28 31 35 30 29 2C 53 24 28 31 35 |0),T$(150),S$(15|
00000130: 30 29 2C 44 53 28 31 35 30 29 2C 44 42 28 31 35 |0),DS(150),DB(15|
00000140: 30 29 2C 48 42 24 28 32 35 36 29 2C 54 31 24 28 |0),HB$(256),T1$(|
00000150: 31 35 30 29 2C 53 31 24 28 31 35 30 29 00 82 09 |150),S1$(150)...|
00000160: A0 00 86 46 53 24 28 31 35 30 29 2C 54 52 28 31 |...FS$(150),TR(1|
00000170: 32 37 29 2C 53 4B 28 31 32 37 29 2C 52 56 24 28 |27),SK(127),RV$(|
00000180: 35 29 00 88 09 F0 00 3A 00 93 09 FA 00 89 20 31 |5).....:...... 1|
00000190: 30 30 30 00 99 09 04 01 3A 00 BE 09 2C 01 8F 20 |000.....:...,.. |
000001A0: 2A 2A 2A 20 5A 41 48 4C 20 44 5A 20 48 45 58 41 |*** ZAHL DZ HEXA|
000001B0: 44 45 5A 2E 20 41 55 53 47 2E 20 2A 2A 2A 00 C4 |DEZ. AUSG. ***..|
000001C0: 09 36 01 3A 00 06 0A 40 01 44 5A 24 B2 C7 28 34 |.6.:...@.DZ$..(4|
000001D0: 38 AA B5 28 44 5A AD 31 36 29 AB 37 AC 28 B5 28 |8..(DZ.16).7.(.(|
000001E0: 44 5A AD 31 36 29 B1 39 29 29 AA C7 28 34 38 AA |DZ.16).9))..(48.|
000001F0: 28 44 5A AF 31 35 29 AB 37 AC 28 28 44 5A AF 31 |(DZ.15).7.((DZ.1|
00000200: 35 29 B1 39 29 29 00 1E 0A 4A 01 98 33 2C 22 20 |5).9))...J..3," |
00000210: 28 24 22 3B 44 5A 24 3B 22 29 22 3B 3A 8E 00 24 |($";DZ$;")";:..$|
00000220: 0A 54 01 3A 00 2A 0A 5E 01 3A 00 47 0A 90 01 8F |.T.:.*.^.:.G....|
00000230: 20 2A 2A 2A 20 47 45 4F 53 2D 42 53 4F 55 54 20 | *** GEOS-BSOUT |
00000240: 41 55 53 20 2A 2A 2A 00 4D 0A 9A 01 3A 00 65 0A |AUS ***.M...:.e.|
00000250: A4 01 97 38 30 36 2C 32 30 32 3A 97 38 30 37 2C |...806,202:.807,|
00000260: 32 34 31 3A 8E 00 6B 0A AE 01 3A 00 71 0A B8 01 |241:..k...:.q...|
00000270: 3A 00 97 0A F4 01 8F 22 C0 C0 C0 C0 C0 C0 C0 C0 |:......"........|
00000280: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000290: C0 C0 C0 C0 C0 C0 C0 00 AD 0A FE 01 8F 22 20 D2 |............." .|
000002A0: 45 41 44 20 C4 49 52 45 43 54 4F 52 59 00 D3 0A |EAD .IRECTORY...|
000002B0: 08 02 8F 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |..."............|
000002C0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000002D0: C0 C0 C0 00 D9 0A 12 02 3A 00 F9 0A 1C 02 44 53 |........:.....DS|
000002E0: B2 31 3A 50 B2 31 3A 9F 31 2C 38 2C 31 35 3A 9F |.1:P.1:.1,8,15:.|
000002F0: 32 2C 38 2C 32 2C 22 23 22 00 0F 0B 26 02 98 31 |2,8,2,"#"...&..1|
00000300: 2C 22 55 31 20 32 20 30 20 31 38 22 3B 44 53 00 |,"U1 2 0 18";DS.|
00000310: 30 0B 30 02 A1 23 32 2C 4E 54 24 3A A1 23 32 2C |0.0..#2,NT$:.#2,|
00000320: 4E 53 24 3A 4E 54 24 B2 4E 54 24 AA C7 28 30 29 |NS$:NT$.NT$..(0)|
00000330: 00 4C 0B 3A 02 81 49 B2 30 A4 37 3A 8B 20 50 B1 |.L.:..I.0.7:. P.|
00000340: 31 20 A7 20 99 22 13 22 3B 50 AB 31 00 62 0B 44 |1 . .".";P.1.b.D|
00000350: 02 98 31 2C 22 42 2D 50 20 32 22 3B 49 AC 33 32 |..1,"B-P 2";I.32|
00000360: AA 32 00 94 0B 4E 02 A1 23 32 2C 54 59 24 3A 54 |.2...N..#2,TY$:T|
00000370: 59 24 B2 54 59 24 AA C7 28 30 29 3A 8B 54 59 24 |Y$.TY$..(0):.TY$|
00000380: B2 C7 28 30 29 B0 54 59 24 B2 C7 28 31 32 38 29 |..(0).TY$..(128)|
00000390: A7 36 35 30 00 C4 0B 58 02 A1 23 32 2C 41 24 3A |.650...X..#2,A$:|
000003A0: 54 31 24 28 50 29 B2 41 24 AA C7 28 30 29 3A A1 |T1$(P).A$..(0):.|
000003B0: 23 32 2C 41 24 3A 53 31 24 28 50 29 B2 41 24 AA |#2,A$:S1$(P).A$.|
000003C0: C7 28 30 29 00 DA 0B 62 02 98 31 2C 22 42 2D 50 |.(0)...b..1,"B-P|
000003D0: 20 32 22 3B 49 AC 33 32 AA 35 00 12 0C 6C 02 81 | 2";I.32.5...l..|
000003E0: 4A B2 31 A4 31 36 3A A1 23 32 2C 41 24 3A 44 24 |J.1.16:.#2,A$:D$|
000003F0: 28 50 29 B2 44 24 28 50 29 AA 41 24 3A 82 3A 44 |(P).D$(P).A$:.:D|
00000400: 53 28 50 29 B2 44 53 3A 44 42 28 50 29 B2 49 AC |S(P).DS:DB(P).I.|
00000410: 33 32 00 46 0C 76 02 A1 23 32 2C 54 24 3A A1 23 |32.F.v..#2,T$:.#|
00000420: 32 2C 53 24 3A 54 24 28 50 29 B2 54 24 AA C7 28 |2,S$:T$(P).T$..(|
00000430: 30 29 3A 53 24 28 50 29 B2 53 24 AA C7 28 30 29 |0):S$(P).S$..(0)|
00000440: 3A 50 B2 50 AA 31 00 78 0C 80 02 98 31 2C 22 42 |:P.P.1.x....1,"B|
00000450: 2D 50 20 32 22 3B 49 AC 33 32 AA 32 33 3A A1 23 |-P 2";I.32.23:.#|
00000460: 32 2C 41 24 3A 46 53 24 28 50 29 B2 C8 28 41 24 |2,A$:FS$(P)..(A$|
00000470: AA C7 28 30 29 2C 31 29 00 89 0C 8A 02 82 3A 8B |..(0),1)......:.|
00000480: 50 B1 31 34 39 A7 36 37 30 00 A7 0C 94 02 8B 4E |P.149.670......N|
00000490: 54 24 B3 B1 C7 28 30 29 A7 44 53 B2 C6 28 4E 53 |T$...(0).DS..(NS|
000004A0: 24 29 3A 89 35 35 30 00 B9 0C 9E 02 A0 32 3A A0 |$):.550......2:.|
000004B0: 31 3A 50 B2 50 AB 31 3A 8E 00 BF 0C A8 02 3A 00 |1:P.P.1:......:.|
000004C0: C5 0C B2 02 3A 00 EB 0C BC 02 8F 22 C0 C0 C0 C0 |....:......"....|
000004D0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000004E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 00 06 0D C6 02 |................|
000004F0: 8F 22 20 D2 45 41 44 20 C4 49 53 4B 2D C6 4F 52 |." .EAD .ISK-.OR|
00000500: 4D 41 54 2D C9 C4 00 2C 0D D0 02 8F 22 C0 C0 C0 |MAT-...,...."...|
00000510: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000520: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 00 32 0D DA |.............2..|
00000530: 02 3A 00 49 0D E4 02 9F 31 2C 38 2C 31 35 3A 9F |.:.I....1,8,15:.|
00000540: 32 2C 38 2C 32 2C 22 23 22 00 5E 0D EE 02 98 31 |2,8,2,"#".^....1|
00000550: 2C 22 55 31 20 32 20 30 20 31 38 20 30 22 00 77 |,"U1 2 0 18 0".w|
00000560: 0D F8 02 98 31 2C 22 42 2D 50 20 32 20 31 37 33 |....1,"B-P 2 173|
00000570: 22 3A 49 24 B2 22 22 00 95 0D 02 03 81 49 B2 31 |":I$.""......I.1|
00000580: A4 31 36 3A A1 23 32 2C 41 24 3A 49 24 B2 49 24 |.16:.#2,A$:I$.I$|
00000590: AA 41 24 3A 82 00 A1 0D 0C 03 A0 32 3A A0 31 3A |.A$:.......2:.1:|
000005A0: 8E 00 A7 0D 16 03 3A 00 AD 0D 20 03 3A 00 D3 0D |......:... .:...|
000005B0: E8 03 8F 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |..."............|
000005C0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000005D0: C0 C0 C0 00 E7 0D F2 03 8F 22 20 CD 41 49 4E 20 |........." .AIN |
000005E0: D0 52 4F 47 52 41 4D 00 0D 0E FC 03 8F 22 C0 C0 |.ROGRAM......"..|
000005F0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000600: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 00 13 0E |................|
00000610: 06 04 3A 00 47 0E 10 04 99 22 93 11 12 20 C7 45 |..:.G...."... .E|
00000620: 4F 53 20 D6 CC C9 D2 2D C1 CE C1 CC D9 DA C5 D2 |OS ....-........|
00000630: 20 20 42 59 20 C6 4C 4F 52 49 41 4E 20 CD 55 45 | BY .LORIAN .UE|
00000640: 4C 4C 45 52 20 92 22 00 76 0E 1A 04 99 3A 99 22 |LLER .".v....:."|
00000650: 20 C3 4F 50 59 52 49 47 48 54 20 28 C3 29 20 31 | .OPYRIGHT (.) 1|
00000660: 39 38 36 20 20 20 CD 41 52 4B 54 20 26 20 D4 45 |986 .ARKT & .E|
00000670: 43 48 4E 49 4B 22 00 BC 0E 24 04 99 22 11 11 11 |CHNIK"...$.."...|
00000680: 11 20 C2 49 54 54 45 20 45 49 4E 45 20 C7 C5 CF |. .ITTE EINE ...|
00000690: D3 2D C4 49 53 4B 45 54 54 45 20 45 49 4E 4C 45 |.-.ISKETTE EINLE|
000006A0: 47 45 4E 20 55 4E 44 20 20 20 3C D2 C5 D4 D5 D2 |GEN UND <.....|
000006B0: CE 3E 20 44 52 55 45 43 4B 45 4E 22 00 D3 0E 2E |.> DRUECKEN"....|
000006C0: 04 97 35 33 32 39 36 2C 30 3A 97 35 33 32 36 35 |..53296,0:.53265|
000006D0: 2C 32 37 00 EB 0E 38 04 A1 41 24 3A 8B 41 24 B3 |,27...8..A$:.A$.|
000006E0: B1 C7 28 31 33 29 A7 31 30 38 30 00 07 0F 42 04 |..(13).1080...B.|
000006F0: 8D 34 30 30 3A 8D 37 34 30 3A 8B 49 24 B3 B1 4D |.400:.740:.I$..M|
00000700: 24 A7 20 31 30 36 30 00 41 0F 4C 04 99 22 93 11 |$. 1060.A.L.."..|
00000710: 11 11 11 11 11 11 12 20 20 20 20 20 20 20 20 20 |....... |
00000720: C4 49 52 45 43 54 4F 52 59 20 57 49 52 44 20 47 |.IRECTORY WIRD G|
00000730: 45 4C 45 53 45 4E 2E 20 20 20 20 20 20 20 20 92 |ELESEN. .|
00000740: 22 00 72 0F 56 04 99 22 13 20 20 20 20 5F 20 C1 |".r.V..". _ .|
00000750: 4E 5A 41 48 4C 20 44 45 52 20 47 45 4C 45 53 45 |NZAHL DER GELESE|
00000760: 4E 45 4E 20 C6 49 4C 45 45 49 4E 54 52 41 45 47 |NEN .ILEEINTRAEG|
00000770: 45 22 00 7F 0F 60 04 8D 35 34 30 3A 4F B2 31 00 |E"...`..540:O.1.|
00000780: 85 0F 6A 04 3A 00 8B 0F 74 04 3A 00 BE 0F 7E 04 |..j.:...t.:...~.|
00000790: 99 22 93 11 12 20 20 20 20 20 C6 49 4C 45 20 5A |."... .ILE Z|
000007A0: 55 52 20 C2 45 41 52 42 45 49 54 55 4E 47 20 41 |UR .EARBEITUNG A|
000007B0: 55 53 57 41 45 48 4C 45 4E 20 20 20 20 22 00 F5 |USWAEHLEN "..|
000007C0: 0F 88 04 99 22 11 11 20 C4 49 53 4B 20 45 4E 54 |....".. .ISK ENT|
000007D0: 48 41 45 4C 54 20 12 22 3B 50 3B 22 9D 20 92 20 |HAELT .";P;". . |
000007E0: C6 49 4C 45 22 3B 3A 8B B5 28 50 29 B3 B1 31 A7 |.ILE";:..(P)..1.|
000007F0: 99 22 53 22 3B 00 FE 0F 92 04 99 22 2E 22 00 45 |."S";......".".E|
00000800: 10 9C 04 99 22 11 11 20 12 C3 D5 D2 D3 CF D2 20 |....".. ....... |
00000810: D5 D0 92 20 20 20 20 31 20 C6 49 4C 45 20 5A 55 |... 1 .ILE ZU|
00000820: 52 55 45 43 4B 22 3A 99 22 11 20 12 C3 D5 D2 D3 |RUECK":.". .....|
00000830: CF D2 20 C4 CF D7 CE 92 20 20 31 20 C6 49 4C 45 |.. ..... 1 .ILE|
00000840: 20 56 4F 52 22 00 8B 10 A6 04 99 22 11 20 12 D2 | VOR"......". ..|
00000850: C5 D4 D5 D2 CE 92 20 20 20 20 20 20 20 C6 49 4C |...... .IL|
00000860: 45 20 4E 45 48 4D 45 4E 22 3A 99 22 11 20 12 C6 |E NEHMEN":.". ..|
00000870: 31 92 20 20 20 20 20 20 20 20 20 20 20 CE 45 55 |1. .EU|
00000880: 45 20 C4 49 53 4B 45 54 54 45 22 00 C9 10 B0 04 |E .ISKETTE".....|
00000890: 9E 34 39 31 35 32 3A 99 22 13 11 11 11 11 11 11 |.49152:.".......|
000008A0: 11 11 11 11 11 11 11 11 11 11 11 22 3B 43 24 3A |...........";C$:|
000008B0: 99 22 91 C6 49 4C 45 20 23 22 3B 4F 3B 22 3A 20 |."..ILE #";O;": |
000008C0: 20 20 22 3B 44 24 28 4F 29 00 DD 10 BA 04 A1 41 | ";D$(O)......A|
000008D0: 24 3A 8B 41 24 B2 22 22 A7 31 32 31 30 00 F8 10 |$:.A$."".1210...|
000008E0: C4 04 8B 41 24 B2 22 91 22 A7 4F B2 4F AB 31 3A |...A$.".".O.O.1:|
000008F0: 8B 4F B2 30 A7 4F B2 50 00 13 11 CE 04 8B 41 24 |.O.0.O.P......A$|
00000900: B2 22 11 22 A7 4F B2 4F AA 31 3A 8B 4F B1 50 A7 |.".".O.O.1:.O.P.|
00000910: 4F B2 31 00 24 11 D8 04 8B 41 24 B2 22 85 22 A7 |O.1.$....A$.".".|
00000920: 8A 31 31 30 00 38 11 E2 04 8B 41 24 B3 B1 C7 28 |.110.8....A$...(|
00000930: 31 33 29 A7 31 32 30 30 00 55 11 EC 04 8B 46 53 |13).1200.U....FS|
00000940: 24 28 4F 29 B2 C7 28 31 29 A7 99 3A 99 3A 99 3A |$(O)..(1)..:.:.:|
00000950: 89 32 30 30 30 00 6E 11 F6 04 99 22 93 CB 45 49 |.2000.n...."..EI|
00000960: 4E 20 D6 CC C9 D2 2D C6 49 4C 45 20 21 22 00 80 |N ....-.ILE !"..|
00000970: 11 00 05 99 22 11 11 3C D2 C5 D4 D5 D2 CE 3E 22 |...."..<......>"|
00000980: 00 98 11 0A 05 A1 41 24 3A 8B 41 24 B3 B1 C7 28 |......A$:.A$...(|
00000990: 31 33 29 A7 31 32 39 30 00 A3 11 14 05 89 20 31 |13).1290...... 1|
000009A0: 31 35 30 00 A9 11 1E 05 3A 00 AF 11 28 05 3A 00 |150.....:...(.:.|
000009B0: B5 11 32 05 3A 00 D6 11 D0 07 8F 20 2A 2A 2A 20 |..2.:...... *** |
000009C0: 41 55 53 47 45 57 41 45 48 4C 54 45 53 20 46 49 |AUSGEWAEHLTES FI|
000009D0: 4C 45 20 2A 2A 2A 00 F7 11 DA 07 8F 20 2A 2A 2A |LE ***...... ***|
000009E0: 20 20 20 20 41 4E 41 4C 59 53 49 45 52 45 4E 20 | ANALYSIEREN |
000009F0: 20 20 20 20 2A 2A 2A 00 FD 11 E4 07 3A 00 1F 12 | ***.....:...|
00000A00: EE 07 8F 20 2A 2A 2A 20 46 49 4C 45 4E 41 4D 45 |... *** FILENAME|
00000A10: 4E 20 42 45 53 54 49 4D 4D 45 4E 20 2A 2A 2A 00 |N BESTIMMEN ***.|
00000A20: 25 12 F8 07 3A 00 33 12 02 08 4E 24 B2 22 22 3A |%...:.3...N$."":|
00000A30: 49 B2 31 00 53 12 0C 08 8B 20 CA 28 44 24 28 4F |I.1.S.... .(D$(O|
00000A40: 29 2C 49 2C 31 29 B2 C7 28 31 36 30 29 A7 20 32 |),I,1)..(160). 2|
00000A50: 30 38 30 00 7F 12 16 08 4E 24 B2 4E 24 AA CA 28 |080.....N$.N$..(|
00000A60: 44 24 28 4F 29 2C 49 2C 31 29 3A 49 B2 49 AA 31 |D$(O),I,1):I.I.1|
00000A70: 3A 8B 20 49 B3 B2 31 36 20 A7 20 32 30 36 30 00 |:. I..16 . 2060.|
00000A80: 85 12 20 08 3A 00 9A 12 2A 08 8F 20 46 49 4C 45 |.. .:...*.. FILE|
00000A90: 4E 41 4D 45 20 49 4E 20 4E 24 00 A0 12 34 08 3A |NAME IN N$...4.:|
00000AA0: 00 A6 12 3E 08 3A 00 C8 12 48 08 8F 20 2A 2A 2A |...>.:...H.. ***|
00000AB0: 20 48 45 41 44 45 52 2D 42 4C 4F 43 4B 20 55 45 | HEADER-BLOCK UE|
00000AC0: 42 45 52 20 20 2A 2A 2A 00 EA 12 52 08 8F 20 2A |BER ***...R.. *|
00000AD0: 2A 2A 20 44 49 52 45 4B 54 5A 55 47 52 49 46 46 |** DIREKTZUGRIFF|
00000AE0: 20 4C 45 53 45 4E 20 2A 2A 2A 00 F0 12 5C 08 3A | LESEN ***...\.:|
00000AF0: 00 F9 12 66 08 8D 34 30 30 00 16 13 70 08 9F 20 |...f..400...p.. |
00000B00: 31 2C 38 2C 31 35 2C 22 49 22 3A 9F 20 32 2C 38 |1,8,15,"I":. 2,8|
00000B10: 2C 32 2C 22 23 22 00 3A 13 7A 08 98 31 2C 22 55 |,2,"#".:.z..1,"U|
00000B20: 31 20 32 20 30 22 3B C6 28 54 31 24 28 4F 29 29 |1 2 0";.(T1$(O))|
00000B30: 3B C6 28 53 31 24 28 4F 29 29 00 4B 13 84 08 98 |;.(S1$(O)).K....|
00000B40: 31 2C 22 42 2D 50 20 32 20 30 22 00 5B 13 8E 08 |1,"B-P 2 0".[...|
00000B50: 81 20 46 B2 31 20 A4 20 32 35 36 00 79 13 98 08 |. F.1 . 256.y...|
00000B60: 3A A1 23 32 2C 41 24 3A 8B 20 41 24 B2 22 22 20 |:.#2,A$:. A$."" |
00000B70: A7 20 41 24 B2 C7 28 30 29 00 88 13 A2 08 3A 48 |. A$..(0).....:H|
00000B80: 42 24 28 46 29 B2 41 24 00 8E 13 AC 08 82 00 94 |B$(F).A$........|
00000B90: 13 B6 08 3A 00 B0 13 C0 08 8F 20 48 45 41 44 45 |...:...... HEADE|
00000BA0: 52 2D 42 4C 4F 43 4B 20 49 4E 20 48 42 24 28 29 |R-BLOCK IN HB$()|
00000BB0: 00 B6 13 CA 08 3A 00 BC 13 D4 08 3A 00 C6 13 DE |.....:.....:....|
00000BC0: 08 A0 31 3A A0 32 00 CC 13 E8 08 3A 00 D2 13 F2 |..1:.2.....:....|
00000BD0: 08 3A 00 D8 13 FC 08 3A 00 FC 13 06 09 8F 20 2A |.:.....:...... *|
00000BE0: 2A 2A 20 20 20 20 20 48 45 41 44 45 52 2D 42 4C |** HEADER-BL|
00000BF0: 4F 43 4B 20 20 20 20 20 20 2A 2A 2A 00 20 14 10 |OCK ***. ..|
00000C00: 09 8F 20 2A 2A 2A 20 20 20 41 20 55 20 53 20 57 |.. *** A U S W|
00000C10: 20 45 20 52 20 54 20 45 20 4E 20 20 20 2A 2A 2A | E R T E N ***|
00000C20: 00 26 14 1A 09 3A 00 47 14 24 09 52 43 B2 31 3A |.&...:.G.$.RC.1:|
00000C30: 8F 20 4D 49 54 20 52 45 43 4F 52 44 20 31 20 42 |. MIT RECORD 1 B|
00000C40: 45 47 49 4E 4E 45 4E 00 4D 14 2E 09 3A 00 67 14 |EGINNEN.M...:.g.|
00000C50: 38 09 54 52 28 52 43 29 B2 C6 28 48 42 24 28 52 |8.TR(RC)..(HB$(R|
00000C60: 43 AC 32 AA 31 29 29 00 81 14 42 09 53 4B 28 52 |C.2.1))...B.SK(R|
00000C70: 43 29 B2 C6 28 48 42 24 28 52 43 AC 32 AA 32 29 |C)..(HB$(RC.2.2)|
00000C80: 29 00 87 14 4C 09 3A 00 C4 14 56 09 8B 20 54 52 |)...L.:...V.. TR|
00000C90: 28 52 43 29 B2 30 20 A7 20 52 43 B2 52 43 AB 31 |(RC).0 . RC.RC.1|
00000CA0: 3A 89 20 32 35 30 30 3A 8F 20 46 41 4C 4C 53 20 |:. 2500:. FALLS |
00000CB0: 5A 57 45 49 4D 41 4C 20 30 2C 20 44 41 4E 4E 20 |ZWEIMAL 0, DANN |
00000CC0: 45 4E 44 45 00 CA 14 60 09 3A 00 EF 14 6A 09 52 |ENDE...`.:...j.R|
00000CD0: 43 B2 52 43 AA 31 3A 8B 20 52 43 B1 31 32 37 20 |C.RC.1:. RC.127 |
00000CE0: A7 20 52 43 B2 31 32 37 3A 89 20 32 35 30 30 00 |. RC.127:. 2500.|
00000CF0: F5 14 74 09 3A 00 00 15 7E 09 89 20 32 33 36 30 |..t.:...~.. 2360|
00000D00: 00 06 15 88 09 3A 00 0C 15 92 09 3A 00 2A 15 C4 |.....:.....:.*..|
00000D10: 09 8F 20 2A 2A 2A 20 41 55 53 57 45 52 54 55 4E |.. *** AUSWERTUN|
00000D20: 47 20 41 55 53 47 45 42 45 4E 00 30 15 CE 09 3A |G AUSGEBEN.0...:|
00000D30: 00 53 15 D8 09 99 22 50 41 52 41 4D 45 54 45 52 |.S...."PARAMETER|
00000D40: 20 5A 55 52 20 44 41 54 45 4E 41 55 53 47 41 42 | ZUR DATENAUSGAB|
00000D50: 45 3A 22 00 74 15 E2 09 85 22 11 47 45 52 41 45 |E:".t....".GERAE|
00000D60: 54 45 4E 55 4D 4D 45 52 20 20 20 20 33 9D 9D 9D |TENUMMER 3...|
00000D70: 22 3B 50 31 00 A8 15 EC 09 99 22 11 53 45 4B 55 |";P1......".SEKU|
00000D80: 4E 44 41 45 52 41 44 52 2E 20 20 20 22 3B 3A 8B |NDAERADR. ";:.|
00000D90: 20 28 50 31 20 AF 20 31 32 37 29 B2 33 20 A7 20 | (P1 . 127).3 . |
00000DA0: 99 22 30 9D 9D 9D 22 3B 00 D0 15 F6 09 8B 20 28 |."0...";...... (|
00000DB0: 50 31 20 AF 20 31 32 37 29 B1 B2 38 20 20 20 20 |P1 . 127)..8 |
00000DC0: 20 20 20 20 20 20 A7 20 99 22 31 9D 9D 9D 22 3B | . ."1...";|
00000DD0: 00 FD 15 00 0A 8B 20 28 50 31 20 AF 20 31 32 37 |...... (P1 . 127|
00000DE0: 29 B1 33 20 AF 20 28 50 31 20 AF 20 31 32 37 29 |).3 . (P1 . 127)|
00000DF0: B3 38 20 A7 20 99 22 37 9D 9D 9D 22 3B 00 0D 16 |.8 . ."7...";...|
00000E00: 0A 0A 85 20 50 32 3A 50 33 24 B2 22 22 00 32 16 |... P2:P3$."".2.|
00000E10: 14 0A 8B 20 28 50 31 20 AF 20 31 32 37 29 B1 37 |... (P1 . 127).7|
00000E20: 20 A7 20 85 22 46 49 4C 45 4E 41 4D 45 22 3B 50 | . ."FILENAME";P|
00000E30: 33 24 00 38 16 1E 0A 3A 00 50 16 28 0A 9F 20 33 |3$.8...:.P.(.. 3|
00000E40: 2C 50 31 2C 50 32 2C 50 33 24 3A 99 3A 99 3A 99 |,P1,P2,P3$:.:.:.|
00000E50: 00 5B 16 32 0A 9E 34 39 31 35 32 00 95 16 3C 0A |.[.2..49152...<.|
00000E60: 98 33 2C 22 46 49 4C 45 4E 41 4D 45 3A 20 22 3B |.3,"FILENAME: ";|
00000E70: C7 28 33 34 29 3B 4E 24 3B C7 28 33 34 29 3B 22 |.(34);N$;.(34);"|
00000E80: 20 28 22 3B C3 28 4E 24 29 3B 22 5A 45 49 43 48 | (";.(N$);"ZEICH|
00000E90: 45 4E 20 29 22 00 B9 16 46 0A 98 33 2C 22 41 4E |EN )"...F..3,"AN|
00000EA0: 5A 41 48 4C 20 44 45 52 20 44 41 54 45 4E 53 41 |ZAHL DER DATENSA|
00000EB0: 45 54 5A 45 3A 22 3B 52 43 00 BF 16 50 0A 3A 00 |ETZE:";RC...P.:.|
00000EC0: C6 16 5A 0A 98 33 00 CC 16 64 0A 3A 00 EE 16 6E |..Z..3...d.:...n|
00000ED0: 0A 98 33 2C 22 44 41 54 45 4E 53 41 54 5A 3A 20 |..3,"DATENSATZ: |
00000EE0: 53 50 55 52 20 2F 20 53 45 4B 54 4F 52 22 00 F4 |SPUR / SEKTOR"..|
00000EF0: 16 78 0A 3A 00 03 17 82 0A 81 20 46 B2 31 20 A4 |.x.:...... F.1 .|
00000F00: 20 52 43 00 25 17 8C 0A 3A 98 33 2C 22 23 22 3B | RC.%...:.3,"#";|
00000F10: C9 28 C4 28 31 30 30 30 AA 46 29 2C 33 29 3B 22 |.(.(1000.F),3);"|
00000F20: 20 3A 20 22 3B 00 50 17 96 0A 3A 98 33 2C C9 28 | : ";.P...:.3,.(|
00000F30: C4 28 54 52 28 46 29 AA 31 30 30 30 29 2C 32 29 |.(TR(F).1000),2)|
00000F40: 3B 3A 44 5A B2 54 52 28 46 29 3A 8D 20 33 30 30 |;:DZ.TR(F):. 300|
00000F50: 00 5F 17 A0 0A 3A 98 33 2C 22 20 2F 20 22 3B 00 |._...:.3," / ";.|
00000F60: 8A 17 AA 0A 3A 98 33 2C C9 28 C4 28 53 4B 28 46 |....:.3,.(.(SK(F|
00000F70: 29 AA 31 30 30 30 29 2C 32 29 3B 3A 44 5A B2 53 |).1000),2);:DZ.S|
00000F80: 4B 28 46 29 3A 8D 20 33 30 30 00 92 17 B4 0A 3A |K(F):. 300.....:|
00000F90: 98 33 00 98 17 BE 0A 82 00 9E 17 C8 0A 3A 00 AC |.3...........:..|
00000FA0: 17 D2 0A A0 20 33 3A 8D 20 34 30 30 00 B2 17 DC |.... 3:. 400....|
00000FB0: 0A 3A 00 DA 17 E6 0A 99 22 11 2A 2A 2A 20 45 4E |.:......".*** EN|
00000FC0: 44 45 20 44 45 52 20 44 41 54 45 4E 41 55 53 47 |DE DER DATENAUSG|
00000FD0: 41 42 45 20 2A 2A 2A 11 11 22 00 01 18 F0 0A 4D |ABE ***..".....M|
00000FE0: 50 B2 30 3A 81 46 B2 30 A4 32 3A 52 56 24 28 46 |P.0:.F.0.2:RV$(F|
00000FF0: 29 B2 22 22 3A 82 3A 52 56 24 28 30 29 B2 22 12 |)."":.:RV$(0).".|
00001000: 22 00 26 18 FA 0A 99 52 56 24 28 30 29 3B 22 4E |".&....RV$(0);"N|
00001010: 4F 43 48 20 45 49 4E 45 20 56 4C 49 52 2D 41 4E |OCH EINE VLIR-AN|
00001020: 41 4C 59 53 45 22 00 4D 18 04 0B 99 52 56 24 28 |ALYSE".M....RV$(|
00001030: 31 29 3B 22 44 41 54 45 4E 53 41 54 5A 20 41 55 |1);"DATENSATZ AU|
00001040: 46 53 43 48 4C 55 45 53 53 45 4C 4E 22 00 6C 18 |FSCHLUESSELN".l.|
00001050: 0E 0B 99 52 56 24 28 32 29 3B 22 50 52 4F 47 52 |...RV$(2);"PROGR|
00001060: 41 4D 4D 20 42 45 45 4E 44 45 4E 22 00 80 18 18 |AMM BEENDEN"....|
00001070: 0B A1 41 24 3A 8B 41 24 B2 22 22 A7 32 38 34 30 |..A$:.A$."".2840|
00001080: 00 A7 18 22 0B 8B 41 24 B2 C7 28 31 33 29 A7 20 |..."..A$..(13). |
00001090: 91 20 4D 50 AA 31 20 89 20 31 31 35 30 2C 33 30 |. MP.1 . 1150,30|
000010A0: 30 30 2C 32 39 33 30 00 AD 18 2C 0B 3A 00 BC 18 |00,2930...,.:...|
000010B0: 36 0B 52 56 24 28 4D 50 29 B2 22 22 00 E1 18 40 |6.RV$(MP).""...@|
000010C0: 0B 8B 20 41 24 B2 22 11 22 20 A7 20 4D 50 B2 4D |.. A$."." . MP.M|
000010D0: 50 AA 31 3A 8B 20 4D 50 B1 32 20 A7 20 4D 50 B2 |P.1:. MP.2 . MP.|
000010E0: 30 00 06 19 4A 0B 8B 20 41 24 B2 22 91 22 20 A7 |0...J.. A$."." .|
000010F0: 20 4D 50 B2 4D 50 AB 31 3A 8B 20 4D 50 B3 30 20 | MP.MP.1:. MP.0 |
00001100: A7 20 4D 50 B2 32 00 1A 19 54 0B 8B 20 41 24 B2 |. MP.2...T.. A$.|
00001110: 22 13 22 20 A7 20 4D 50 B2 30 00 2A 19 5E 0B 52 |"." . MP.0.*.^.R|
00001120: 56 24 28 4D 50 29 B2 22 12 22 00 3D 19 68 0B 99 |V$(MP).".".=.h..|
00001130: 22 91 91 91 22 3B 3A 89 20 32 38 31 30 00 58 19 |"...";:. 2810.X.|
00001140: 72 0B 8F 20 2A 2A 2A 20 50 52 4F 47 52 41 4D 4D |r.. *** PROGRAMM|
00001150: 45 4E 44 45 20 2A 2A 2A 00 5E 19 7C 0B 3A 00 64 |ENDE ***.^.|.:.d|
00001160: 19 86 0B 80 00 6A 19 90 0B 3A 00 8F 19 B8 0B 8F |.....j...:......|
00001170: 20 2A 2A 20 44 41 54 45 4E 53 41 54 5A 20 41 55 | ** DATENSATZ AU|
00001180: 46 53 43 48 4C 55 45 53 53 45 4C 4E 20 2A 2A 00 |FSCHLUESSELN **.|
00001190: 95 19 C2 0B 3A 00 AC 19 CC 0B 8B 20 52 43 B2 31 |....:...... RC.1|
000011A0: 20 A7 20 53 52 B2 31 3A 45 52 B2 31 00 B2 19 D6 | . SR.1:ER.1....|
000011B0: 0B 3A 00 D0 19 E0 0B 85 22 11 11 11 45 52 53 54 |.:......"...ERST|
000011C0: 45 52 20 44 41 54 45 4E 53 41 54 5A 22 3B 53 52 |ER DATENSATZ";SR|
000011D0: 00 F1 19 EA 0B 8B 20 53 52 B1 52 43 20 A7 20 99 |...... SR.RC . .|
000011E0: 22 5A 55 20 47 52 4F 53 53 21 22 3A 89 33 30 34 |"ZU GROSS!":.304|
000011F0: 30 00 0D 1A F4 0B 85 22 4C 45 54 5A 54 45 52 20 |0......"LETZTER |
00001200: 44 41 54 45 4E 53 41 54 5A 22 3B 45 52 00 2E 1A |DATENSATZ";ER...|
00001210: FE 0B 8B 20 45 52 B3 53 52 20 A7 20 99 22 5A 55 |... ER.SR . ."ZU|
00001220: 20 4B 4C 45 49 4E 21 22 3A 89 33 30 34 30 00 4F | KLEIN!":.3040.O|
00001230: 1A 08 0C 8B 20 45 52 B1 52 43 20 A7 20 99 22 5A |.... ER.RC . ."Z|
00001240: 55 20 47 52 4F 53 53 21 22 3A 89 33 30 34 30 00 |U GROSS!":.3040.|
00001250: 55 1A 12 0C 3A 00 65 1A 1C 0C 81 20 49 B2 53 52 |U...:.e.... I.SR|
00001260: 20 A4 20 45 52 00 6B 1A 26 0C 3A 00 7D 1A 30 0C | . ER.k.&.:.}.0.|
00001270: 9F 20 33 2C 50 31 2C 50 32 2C 50 33 24 00 83 1A |. 3,P1,P2,P3$...|
00001280: 3A 0C 3A 00 94 1A 44 0C 9E 34 39 31 35 32 3A 98 |:.:...D..49152:.|
00001290: 33 3A 98 33 00 CE 1A 4E 0C 98 33 2C 22 46 49 4C |3:.3...N..3,"FIL|
000012A0: 45 4E 41 4D 45 3A 20 22 3B C7 28 33 34 29 3B 4E |ENAME: ";.(34);N|
000012B0: 24 3B C7 28 33 34 29 3B 22 20 28 22 3B C3 28 4E |$;.(34);" (";.(N|
000012C0: 24 29 3B 22 5A 45 49 43 48 45 4E 20 29 22 00 FE |$);"ZEICHEN )"..|
000012D0: 1A 58 0C 98 33 2C 22 41 4E 5A 41 48 4C 20 44 45 |.X..3,"ANZAHL DE|
000012E0: 52 20 44 41 54 45 4E 53 41 45 54 5A 45 3A 22 3B |R DATENSAETZE:";|
000012F0: 52 43 3A 8D 20 34 30 30 3A 98 33 3A 98 33 00 04 |RC:. 400:.3:.3..|
00001300: 1B 62 0C 3A 00 28 1B 6C 0C 98 33 2C 22 44 41 54 |.b.:.(.l..3,"DAT|
00001310: 45 4E 53 41 54 5A 20 23 22 3B C9 28 C4 28 31 30 |ENSATZ #";.(.(10|
00001320: 30 30 AA 49 29 2C 33 29 00 59 1B 76 0C 98 33 2C |00.I),3).Y.v..3,|
00001330: 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |"---------------|
00001340: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001350: 2D 2D 2D 2D 2D 2D 2D 2D 22 00 5F 1B 80 0C 3A 00 |--------"._...:.|
00001360: 78 1B 8A 0C 54 B2 54 52 28 49 29 3A 53 B2 53 4B |x...T.TR(I):S.SK|
00001370: 28 49 29 3A 53 42 B2 31 00 7E 1B 94 0C 3A 00 9B |(I):SB.1.~...:..|
00001380: 1B 9E 0C 9F 20 31 2C 38 2C 31 35 2C 22 49 22 3A |.... 1,8,15,"I":|
00001390: 9F 20 32 2C 38 2C 32 2C 22 23 22 00 A1 1B A8 0C |. 2,8,2,"#".....|
000013A0: 3A 00 B5 1B B2 0C 98 31 2C 22 55 31 20 32 20 30 |:......1,"U1 2 0|
000013B0: 22 3B 54 3B 53 00 CB 1B BC 0C 98 33 2C C9 28 C4 |";T;S......3,.(.|
000013C0: 28 31 30 30 AA 54 29 2C 32 29 3B 00 E4 1B C6 0C |(100.T),2);.....|
000013D0: 44 5A B2 54 3A 8D 20 33 30 30 3A 98 33 2C 22 20 |DZ.T:. 300:.3," |
000013E0: 2F 20 22 3B 00 FA 1B D0 0C 98 33 2C C9 28 C4 28 |/ ";......3,.(.(|
000013F0: 31 30 30 AA 53 29 2C 32 29 3B 00 09 1C DA 0C 44 |100.S),2);.....D|
00001400: 5A B2 53 3A 8D 20 33 30 30 00 10 1C E4 0C 98 33 |Z.S:. 300......3|
00001410: 00 16 1C EE 0C 3A 00 27 1C F8 0C 98 31 2C 22 42 |.....:.'....1,"B|
00001420: 2D 50 20 32 20 30 22 00 37 1C 02 0D A1 23 32 2C |-P 2 0".7....#2,|
00001430: 41 31 24 2C 41 32 24 00 67 1C 0C 0D 8B 20 41 31 |A1$,A2$.g.... A1|
00001440: 24 B2 22 22 20 A7 20 98 33 2C 22 45 4E 44 45 20 |$."" . .3,"ENDE |
00001450: 44 45 53 20 44 41 54 45 4E 53 41 54 5A 45 53 22 |DES DATENSATZES"|
00001460: 3A 89 20 33 33 38 30 00 8A 1C 16 0D 54 B2 C6 28 |:. 3380.....T..(|
00001470: 41 31 24 29 3A 53 B2 C6 28 41 32 24 AA C7 28 30 |A1$):S..(A2$..(0|
00001480: 29 29 3A 53 42 B2 53 42 AA 31 00 94 1C 20 0D 89 |)):SB.SB.1... ..|
00001490: 33 32 35 30 00 9A 1C 2A 0D 3A 00 CD 1C 34 0D 98 |3250...*.:...4..|
000014A0: 33 2C 22 41 4E 5A 41 48 4C 20 44 45 52 20 42 4C |3,"ANZAHL DER BL|
000014B0: 4F 45 43 4B 45 20 49 4D 20 44 41 54 45 4E 53 41 |OECKE IM DATENSA|
000014C0: 54 5A 3A 22 3B 53 42 3A A0 31 3A A0 32 00 D3 1C |TZ:";SB:.1:.2...|
000014D0: 3E 0D 3A 00 E2 1C 48 0D 98 33 3A 98 33 3A A0 33 |>.:...H..3:.3:.3|
000014E0: 3A 82 00 E8 1C 52 0D 3A 00 0D 1D 5C 0D 99 22 11 |:....R.:...\..".|
000014F0: 11 11 45 4E 44 45 20 44 45 52 20 41 55 46 53 43 |..ENDE DER AUFSC|
00001500: 48 4C 55 45 53 53 45 4C 55 4E 47 2E 22 00 13 1D |HLUESSELUNG."...|
00001510: 66 0D 3A 00 23 1D 70 0D 99 22 3C 52 45 54 55 52 |f.:.#.p.."<RETUR|
00001520: 4E 3E 22 00 3B 1D 7A 0D A1 41 24 3A 8B 41 24 B3 |N>".;.z..A$:.A$.|
00001530: B1 C7 28 31 33 29 A7 33 34 35 30 00 46 1D 84 0D |..(13).3450.F...|
00001540: 89 20 31 31 35 30 00 00 00 |. 1150... |
....... *** VLIR-ANALYZER ***.=.... **
* FLORIAN MUELLER ***.C...:...D.. B(4915
2)..169 . B(49159)..140 . ."GEOS-BSOUT $
C000",8,1...N.. 49152:....X..".":C$." ":
.F.1.6:C$.C$.C$:..U...SS$.G(160):.F.1.4:
SS$.SS$.SS$:......M$."GEOS ".G(102).G(11
1).G(114).G(109).G(97).G(116)." V1.0".].
...D$(150),T$(150),S$(150),DS(150),DB(15
0),HB$(256),T1$(150),S1$(150)... ..FS$(1
50),TR(127),SK(127),RV$(5).....:...... 1
000.....:...,.. *** ZAHL DZ HEXADEZ. AUS
G. ***.D.6.:...@.DZ$.G(48..(DZ.16).7.(.(
DZ.16).9)).G(48.(DZ.15).7.((DZ.15).9))..
.J..3," ($";DZ$;")";:..$.T.:.*.^.:.G....
*** GEOS-BSOUT AUS ***.M...:.E....806,2
02:.807,241:..K...:.Q...:......"........
............................." READ DIRE
CTORY.S...."............................
....Y...:.....DS.1:P.1:.1,8,15:.2,8,2,"#
"...&..1,"U1 2 0 18";DS.0.0..#2,NT$:.#2,
NS$:NT$.NT$.G(0).L.:..I.0.7:. P.1 . ."."
;P.1.B.D..1,"B-P 2";I.32.2...N..#2,TY$:T
Y$.TY$.G(0):.TY$.G(0).TY$.G(128).650.D.X
..#2,A$:T1$(P).A$.G(0):.#2,A$:S1$(P).A$.
G(0).Z.B..1,"B-P 2";I.32.5...L..J.1.16:.
#2,A$:D$(P).D$(P).A$:.:DS(P).DS:DB(P).I.
32.F.V..#2,T$:.#2,S$:T$(P).T$.G(0):S$(P)
.S$.G(0):P.P.1.X....1,"B-P 2";I.32.23:.#
2,A$:FS$(P).H(A$.G(0),1)......:.P.149.67
0......NT$..G(0).DS.F(NS$):.550..... 2:
1:P.P.1:......:.E...:......"............
......................F.." READ DISK-FOR
MAT-ID.,.P.."...........................
.....2.Z.:.I....1,8,15:.2,8,2,"#".^....1
,"U1 2 0 18 0".W....1,"B-P 2 173":I$."".
.....I.1.16:.#2,A$:I$.I$.A$:...... 2: 1:
......:... .:.S...."....................
................." MAIN PROGRAM......"..
..................................:.G...
."... GEOS VLIR-ANALYZER BY FLORIAN MUE
LLER .".V....:." COPYRIGHT (C) 1986 MA
RKT & TECHNIK"...$..".... BITTE EINE GEO
S-DISKETTE EINLEGEN UND <RETURN> DRUEC
KEN".S....53296,0:.53265,27...8..A$:.A$.
.G(13).1080...B..400:.740:.I$..M$. 1060.
A.L.."......... DIRECTORY WIRD G
ELESEN. .".R.V..". _ ANZAHL DE
R GELESENEN FILEEINTRAEGE"..`..540:O.1.
..J.:...T.:...~.."... FILE ZUR BEARB
EITUNG AUSWAEHLEN "......".. DISK ENT
HAELT .";P;". . FILE";:..(P)..1.."S";...
...".".E....".. .CURSOR UP. 1 FILE ZU
RUECK":.". .CURSOR DOWN. 1 FILE VOR"...
...". .RETURN. FILE NEHMEN":.". .F
1. NEUE DISKETTE".I....49152:.
"..................";C$:.".FILE #";O;":
";D$(O)......A$:.A$."".1210...D..A$.".
".O.O.1:.O.0.O.P...N..A$.".".O.O.1:.O.P.
O.1.$.X..A$."."..110.8....A$..G(13).1200
.U....FS$(O).G(1)..:.:.:.2000.N....".KEI
N VLIR-FILE !"......"..<RETURN>"......A$
:.A$..G(13).1290...... 1150.....:...(.:.
..2.:.V.P.. *** AUSGEWAEHLTES FILE ***..
.Z.. *** ANALYSIEREN ***.....:...
... *** FILENAMEN BESTIMMEN ***.%...:.3.
..N$."":I.1.S.... J(D$(O),I,1).G(160). 2
080....N$.N$.J(D$(O),I,1):I.I.1:. I..16
. 2060... .:...*.. FILENAME IN N$. .4.:
...>.:.H.H.. *** HEADER-BLOCK UEBER ***
...R.. *** DIREKTZUGRIFF LESEN ***...\.:
...F..400...P.. 1,8,15,"I":. 2,8,2,"#".:
.Z..1,"U1 2 0";F(T1$(O));F(S1$(O)).K....
1,"B-P 2 0".[.... F.1 . 256.Y...:.#2,A$:
. A$."" . A$.G(0).....:HB$(F).A$........
...:...... HEADER-BLOCK IN HB$()...J.:..
.T.:.F... 1: 2.L...:.R...:.X...:...... *
** HEADER-BLOCK ***. .... ***
A U S W E R T E N ***.&...:.G.$.RC.1:
. MIT RECORD 1 BEGINNEN.M...:.G.8.TR(RC)
.F(HB$(RC.2.1))...B.SK(RC).F(HB$(RC.2.2)
)...L.:.D.V.. TR(RC).0 . RC.RC.1:. 2500:
. FALLS ZWEIMAL 0, DANN ENDE.J.`.:...J.R
C.RC.1:. RC.127 . RC.127:. 2500...T.:...
~.. 2360.....:.....:.*.D.. *** AUSWERTUN
G AUSGEBEN.0.N.:.S.X.."PARAMETER ZUR DAT
ENAUSGABE:".T....".GERAETENUMMER 3...
";P1......".SEKUNDAERADR. ";:. (P1 . 1
27).3 . ."0...";.P.... (P1 . 127)..8
. ."1...";...... (P1 . 127).3 . (P
1 . 127).8 . ."7...";...... P2:P3$."".2.
... (P1 . 127).7 . ."FILENAME";P3$.8...:
.P.(.. 3,P1,P2,P3$:.:.:..[.2..49152...<.
.3,"FILENAME: ";G(34);N$;G(34);" (";C(N$
);"ZEICHEN )"...F..3,"ANZAHL DER DATENSA
ETZE:";RC...P.:.F.Z..3.L.D.:...N..3,"DAT
ENSATZ: SPUR / SEKTOR"...X.:...... F.1 .
RC.%...:.3,"#";I(D(1000.F),3);" : ";.P.
..:.3,I(D(TR(F).1000),2);:DZ.TR(F):. 300
._. .:.3," / ";.....:.3,I(D(SK(F).1000),
2);:DZ.SK(F):. 300.....:.3.........H.:..
.R. 3:. 400.....:.Z....".*** ENDE DER D
ATENAUSGABE ***..".....MP.0:.F.0.2:RV$(F
)."":.:RV$(0).".".&....RV$(0);"NOCH EINE
VLIR-ANALYSE".M....RV$(1);"DATENSATZ AU
FSCHLUESSELN".L....RV$(2);"PROGRAMM BEEN
DEN"......A$:.A$."".2840..."..A$.G(13).
. MP.1 . 1150,3000,2930...,.:...6.RV$(MP
).""...@.. A$."." . MP.MP.1:. MP.2 . MP.
0...J.. A$."." . MP.MP.1:. MP.0 . MP.2..
.T.. A$."." . MP.0.*.^.RV$(MP).".".=.H..
"...";:. 2810.X.R.. *** PROGRAMMENDE ***
.^.|.:.D.....J...:...... ** DATENSATZ AU
FSCHLUESSELN **...B.:...L.. RC.1 . SR.1:
ER.1...V.:.P...."...ERSTER DATENSATZ";SR
...... SR.RC . ."ZU GROSS!":.3040......"
LETZTER DATENSATZ";ER...... ER.SR . ."ZU
KLEIN!":.3040.O.... ER.RC . ."ZU GROSS!
":.3040.U...:.E.... I.SR . ER.K.&.:.}.0.
. 3,P1,P2,P3$...:.:...D..49152:.3:.3.N.N
..3,"FILENAME: ";G(34);N$;G(34);" (";C(N
$);"ZEICHEN )"...X..3,"ANZAHL DER DATENS
AETZE:";RC:. 400:.3:.3...B.:.(.L..3,"DAT
ENSATZ #";I(D(1000.I),3).Y.V..3,"-------
--------------------------------"._...:.
X...T.TR(I):S.SK(I):SB.1.~...:...... 1,8
,15,"I":. 2,8,2,"#".....:......1,"U1 2 0
";T;S.K....3,I(D(100.T),2);...F.DZ.T:. 3
00:.3," / ";...P..3,I(D(100.S),2);...Z.D
Z.S:. 300......3.....:.'....1,"B-P 2 0".
7....#2,A1$,A2$.G.... A1$."" . .3,"ENDE
DES DATENSATZES":. 3380.....T.F(A1$):S.F
(A2$.G(0)):SB.SB.1... ..3250...*.:.M.4..
3,"ANZAHL DER BLOECKE IM DATENSATZ:";SB:
1: 2.S.>.:...H..3:.3: 3:....R.:...\..".
..ENDE DER AUFSCHLUESSELUNG."...F.:.#.P.
."<RETURN>".;.Z..A$:.A$..G(13).3450.F...
. 1150...
> CLICK IMAGE PREVIEW FOR FULL MODAL