DATEIGENERATOR
FILE INFORMATION
FILENAME(S): DATEIGENERATOR
FILE TYPE(S): PRG
FILE SIZE: 4.9K
FIRST SEEN: 2025-12-02 23:48:03
APPEARS ON: 1 disk(s)
FILE HASH
8f359ed5b90c28d21a7146efe27aadb145c9f3334e8ec3e810a6bd9d38c58f18
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| POWER PACK 05 | DATEIGENERATOR | PRG | swasti, flohmarkt | 14 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 0A 00 8F 20 44 41 54 45 49 47 45 4E |..(.... DATEIGEN|
00000010: 45 52 41 54 4F 52 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |ERATOR==========|
00000020: 3D 3D 3D 3D 3D 43 36 34 00 44 08 14 00 8F 20 42 |=====C64.D.... B|
00000030: 59 20 41 4C 46 4F 4E 53 20 4D 49 54 54 45 4C 4D |Y ALFONS MITTELM|
00000040: 45 59 45 52 00 4E 08 28 00 8F 20 43 36 34 00 5F |EYER.N.(.. C64._|
00000050: 08 32 00 8F 20 42 41 53 49 43 20 56 32 2E 30 00 |.2.. BASIC V2.0.|
00000060: 86 08 3C 00 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |..<.. ==========|
00000070: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000080: 3D 3D 3D 3D 3D 3D 00 9C 08 46 00 8B C2 28 34 39 |======...F...(49|
00000090: 31 35 34 29 B2 31 37 34 A7 31 30 30 00 B9 08 50 |154).174.100...P|
000000A0: 00 9E 35 37 38 31 32 22 53 59 53 4D 43 22 2C 38 |..57812"SYSMC",8|
000000B0: 2C 30 3A 97 37 38 30 2C 30 00 D6 08 5A 00 97 37 |,0:.780,0...Z..7|
000000C0: 38 31 2C 32 35 34 3A 97 37 38 32 2C 31 39 31 3A |81,254:.782,191:|
000000D0: 9E 36 35 34 39 33 00 E0 08 64 00 8D 31 34 31 31 |.65493...d..1411|
000000E0: 00 F2 08 8C 00 99 C7 28 31 34 29 C7 28 31 34 37 |.......(14).(147|
000000F0: 29 3B 00 12 09 96 00 9E 41 54 2C 31 30 2C 35 3A |);......AT,10,5:|
00000100: 99 22 C4 C1 D4 C5 C9 C7 C5 CE C5 D2 C1 D4 CF D2 |."..............|
00000110: 22 3B 00 32 09 A0 00 9E 41 54 2C 31 30 2C 36 3A |";.2....AT,10,6:|
00000120: 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |."--------------|
00000130: 22 3B 00 4D 09 AA 00 9E 41 54 2C 31 30 2C 38 3A |";.M....AT,10,8:|
00000140: 99 22 31 20 3D 20 CD 41 53 4B 45 22 3B 00 68 09 |."1 = .ASKE";.h.|
00000150: B4 00 9E 41 54 2C 31 30 2C 39 3A 99 22 32 20 3D |...AT,10,9:."2 =|
00000160: 20 C4 41 54 45 49 22 3B 00 86 09 BE 00 9E 41 54 | .ATEI";......AT|
00000170: 2C 31 30 2C 31 30 3A 99 22 33 20 3D 20 D6 45 52 |,10,10:."3 = .ER|
00000180: 57 45 49 53 22 3B 00 A1 09 C8 00 9E 41 54 2C 31 |WEIS";......AT,1|
00000190: 30 2C 31 32 3A 99 22 30 20 3D 20 C5 4E 44 45 22 |0,12:."0 = .NDE"|
000001A0: 3B 00 B4 09 D2 00 A1 41 24 3A 8B 41 24 B2 22 22 |;......A$:.A$.""|
000001B0: A7 32 31 30 00 D5 09 D3 00 41 B2 C6 28 41 24 29 |.210.....A..(A$)|
000001C0: AF 33 3A 8B 41 24 B3 22 30 22 B0 41 24 B1 22 33 |.3:.A$."0".A$."3|
000001D0: 22 A7 31 34 30 00 EB 09 DC 00 91 20 41 20 89 20 |".140...... A . |
000001E0: 37 35 30 2C 34 39 30 2C 32 34 30 00 FA 09 E6 00 |750,490,240.....|
000001F0: 99 C7 28 31 34 32 29 3B 3A 80 00 07 0A F0 00 99 |..(142);:.......|
00000200: C7 28 31 34 37 29 3B 00 27 0A FA 00 9E 41 54 2C |.(147);.'....AT,|
00000210: 31 30 2C 35 3A 99 22 D6 45 52 57 45 49 53 44 41 |10,5:.".ERWEISDA|
00000220: 54 45 49 45 4E 22 3B 00 47 0A 04 01 9E 41 54 2C |TEIEN";.G....AT,|
00000230: 31 30 2C 36 3A 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D |10,6:."---------|
00000240: 2D 2D 2D 2D 2D 22 3B 00 67 0A 0E 01 9E 41 54 2C |-----";.g....AT,|
00000250: 31 30 2C 38 3A 99 22 31 20 3D 20 C5 49 4E 52 49 |10,8:."1 = .INRI|
00000260: 43 48 54 45 4E 22 3B 00 81 0A 18 01 9E 41 54 2C |CHTEN";......AT,|
00000270: 31 30 2C 39 3A 99 22 32 20 3D 20 C9 4E 46 4F 22 |10,9:."2 = .NFO"|
00000280: 3B 00 9F 0A 22 01 9E 41 54 2C 31 30 2C 31 31 3A |;..."..AT,10,11:|
00000290: 99 22 30 20 3D 20 DA 55 52 55 45 43 4B 22 3B 00 |."0 = .URUECK";.|
000002A0: B2 0A 2C 01 A1 41 24 3A 8B 41 24 B2 22 22 A7 33 |..,..A$:.A$."".3|
000002B0: 30 30 00 C0 0A 2D 01 41 B2 C6 28 41 24 29 AF 33 |00...-.A..(A$).3|
000002C0: 00 D6 0A 36 01 91 20 41 20 89 20 33 33 30 2C 34 |...6.. A . 330,4|
000002D0: 31 30 2C 31 34 30 00 DF 0A 40 01 89 31 34 30 00 |10,140...@..140.|
000002E0: 0E 0B 4A 01 99 C7 28 31 34 37 29 3A 9E 41 54 2C |..J...(147):.AT,|
000002F0: 30 2C 37 3A 99 22 D6 45 52 57 45 49 53 44 41 54 |0,7:.".ERWEISDAT|
00000300: 45 49 20 45 49 4E 52 49 43 48 54 45 4E 22 00 2E |EI EINRICHTEN"..|
00000310: 0B 54 01 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.T.."-----------|
00000320: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 3A 99 00 4D |-----------":..M|
00000330: 0B 5E 01 99 22 D6 45 52 57 45 49 53 44 41 54 45 |.^..".ERWEISDATE|
00000340: 49 3F 20 22 3B 3A 9E 49 4E 3A 56 57 24 00 6B 0B |I? ";:.IN:VW$.k.|
00000350: 68 01 99 22 CD 41 53 4B 45 4E 44 41 54 45 49 3F |h..".ASKENDATEI?|
00000360: 20 22 3B 3A 9E 49 4E 3A 4D 4B 24 00 87 0B 72 01 | ";:.IN:MK$...r.|
00000370: 99 22 C4 41 54 45 4E 46 49 4C 45 3F 20 22 3B 3A |.".ATENFILE? ";:|
00000380: 9E 49 4E 3A 44 46 24 00 9D 0B 7C 01 9F 38 2C 38 |.IN:DF$...|..8,8|
00000390: 2C 38 2C 56 57 24 AA 22 2C 50 2C 57 22 00 B8 0B |,8,VW$.",P,W"...|
000003A0: 86 01 8D 31 32 37 30 3A 98 38 2C 4D 4B 24 3A 98 |...1270:.8,MK$:.|
000003B0: 38 2C 44 46 24 3A A0 38 00 C1 0B 90 01 89 32 34 |8,DF$:.8......24|
000003C0: 30 00 EA 0B 9A 01 99 C7 28 31 34 37 29 3A 9E 41 |0.......(147):.A|
000003D0: 54 2C 30 2C 37 3A 99 22 C9 4E 46 4F 20 D6 45 52 |T,0,7:.".NFO .ER|
000003E0: 57 45 49 53 44 41 54 45 49 22 00 05 0C A4 01 99 |WEISDATEI"......|
000003F0: 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |"---------------|
00000400: 2D 2D 22 3A 99 00 24 0C AE 01 99 22 D6 45 52 57 |--":..$....".ERW|
00000410: 45 49 53 44 41 54 45 49 3F 20 22 3B 3A 9E 49 4E |EISDATEI? ";:.IN|
00000420: 3A 56 57 24 00 40 0C B8 01 9F 38 2C 38 2C 38 2C |:VW$.@....8,8,8,|
00000430: 56 57 24 AA 22 2C 50 2C 52 22 3A 8D 31 34 30 30 |VW$.",P,R":.1400|
00000440: 00 62 0C C2 01 9E 49 4E 3A 4D 4B 24 3A 9E 49 4E |.b....IN:MK$:.IN|
00000450: 3A 4D 4B 24 3A 9E 49 4E 3A 44 46 24 3A 8D 31 34 |:MK$:.IN:DF$:.14|
00000460: 31 30 00 7B 0C CC 01 99 22 CD 41 53 4B 45 4E 44 |10.{....".ASKEND|
00000470: 41 54 45 49 3A 20 20 22 4D 4B 24 00 94 0C D6 01 |ATEI: "MK$.....|
00000480: 99 22 C4 41 54 45 4E 46 49 4C 45 3A 20 20 20 20 |.".ATENFILE: |
00000490: 22 44 46 24 00 AE 0C E0 01 99 3A 99 22 57 45 49 |"DF$......:."WEI|
000004A0: 54 45 52 20 4D 49 54 20 D4 41 53 54 45 22 00 C1 |TER MIT .ASTE"..|
000004B0: 0C E1 01 A1 41 24 3A 8B 41 24 B2 22 22 A7 34 38 |....A$:.A$."".48|
000004C0: 31 00 CA 0C E2 01 89 32 34 30 00 D6 0C EA 01 99 |1......240......|
000004D0: C7 28 31 34 37 29 00 F2 0C F4 01 9E 41 54 2C 31 |.(147)......AT,1|
000004E0: 30 2C 35 3A 99 22 C4 41 54 45 4E 46 49 4C 45 53 |0,5:.".ATENFILES|
000004F0: 22 3B 00 12 0D FE 01 9E 41 54 2C 31 30 2C 36 3A |";......AT,10,6:|
00000500: 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |."--------------|
00000510: 22 3B 00 32 0D 08 02 9E 41 54 2C 31 30 2C 38 3A |";.2....AT,10,8:|
00000520: 99 22 31 20 3D 20 C5 49 4E 52 49 43 48 54 45 4E |."1 = .INRICHTEN|
00000530: 22 3B 00 4C 0D 12 02 9E 41 54 2C 31 30 2C 39 3A |";.L....AT,10,9:|
00000540: 99 22 32 20 3D 20 C9 4E 46 4F 22 3B 00 6A 0D 1C |."2 = .NFO";.j..|
00000550: 02 9E 41 54 2C 31 30 2C 31 31 3A 99 22 30 20 3D |..AT,10,11:."0 =|
00000560: 20 DA 55 52 55 45 43 4B 22 3B 00 7D 0D 26 02 A1 | .URUECK";.}.&..|
00000570: 41 24 3A 8B 41 24 B2 22 22 A7 35 35 30 00 8B 0D |A$:.A$."".550...|
00000580: 2B 02 41 B2 C6 28 41 24 29 AF 33 00 A1 0D 30 02 |+.A..(A$).3...0.|
00000590: 91 20 41 20 89 20 35 38 30 2C 36 36 30 2C 31 34 |. A . 580,660,14|
000005A0: 30 00 AA 0D 3A 02 89 31 34 30 00 D6 0D 44 02 99 |0...:..140...D..|
000005B0: C7 28 31 34 37 29 3A 9E 41 54 2C 30 2C 37 3A 99 |.(147):.AT,0,7:.|
000005C0: 22 C4 41 54 45 4E 46 49 4C 45 20 45 49 4E 52 49 |".ATENFILE EINRI|
000005D0: 43 48 54 45 4E 22 00 F4 0D 4E 02 99 22 2D 2D 2D |CHTEN"...N.."---|
000005E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000005F0: 2D 22 3A 99 00 10 0E 58 02 99 22 C6 49 4C 45 2D |-":....X..".ILE-|
00000600: CE 41 4D 45 3F 20 22 3B 3A 9E 49 4E 3A 4E 46 24 |.AME? ";:.IN:NF$|
00000610: 00 23 0E 62 02 85 22 C6 45 4C 44 5A 41 48 4C 22 |.#.b..".ELDZAHL"|
00000620: 3B 46 5A 00 3F 0E 6C 02 85 22 CD 41 58 49 4D 41 |;FZ.?.l..".AXIMA|
00000630: 4C 45 20 D3 41 54 5A 5A 41 48 4C 22 3B 4D 53 00 |LE .ATZZAHL";MS.|
00000640: 55 0E 76 02 9F 38 2C 38 2C 38 2C 4E 46 24 AA 22 |U.v..8,8,8,NF$."|
00000650: 2C 50 2C 57 22 00 73 0E 80 02 8D 31 32 37 30 3A |,P,W".s....1270:|
00000660: 98 38 2C 46 5A 3A 98 38 2C 4D 53 3A 98 38 2C 30 |.8,FZ:.8,MS:.8,0|
00000670: 3A A0 38 00 7C 0E 8A 02 89 34 39 30 00 A2 0E 94 |:.8.|....490....|
00000680: 02 99 C7 28 31 34 37 29 3A 9E 41 54 2C 30 2C 37 |...(147):.AT,0,7|
00000690: 3A 99 22 C9 4E 46 4F 20 C4 41 54 45 4E 46 49 4C |:.".NFO .ATENFIL|
000006A0: 45 22 00 BA 0E 9E 02 99 22 2D 2D 2D 2D 2D 2D 2D |E"......"-------|
000006B0: 2D 2D 2D 2D 2D 2D 2D 22 3A 99 00 D6 0E A8 02 99 |-------":.......|
000006C0: 22 C6 49 4C 45 2D CE 41 4D 45 3F 20 22 3B 3A 9E |".ILE-.AME? ";:.|
000006D0: 49 4E 3A 4E 46 24 00 EC 0E B2 02 9F 38 2C 38 2C |IN:NF$......8,8,|
000006E0: 38 2C 4E 46 24 AA 22 2C 50 2C 52 22 00 0C 0F BC |8,NF$.",P,R"....|
000006F0: 02 84 38 2C 4D 4B 24 3A 84 38 2C 46 5A 3A 84 38 |..8,MK$:.8,FZ:.8|
00000700: 2C 4D 53 3A 84 38 2C 53 5A 3A A0 38 00 21 0F C6 |,MS:.8,SZ:.8.!..|
00000710: 02 99 22 C6 45 4C 44 5A 41 48 4C 3A 20 20 22 46 |..".ELDZAHL: "F|
00000720: 5A 00 3E 0F D0 02 99 22 CD 41 58 49 4D 41 4C 45 |Z.>....".AXIMALE|
00000730: 20 D3 41 54 5A 5A 41 48 4C 3A 20 22 4D 53 00 5B | .ATZZAHL: "MS.[|
00000740: 0F DA 02 99 22 C1 4B 54 55 45 4C 4C 45 20 D3 41 |....".KTUELLE .A|
00000750: 54 5A 5A 41 48 4C 3A 20 22 53 5A 00 75 0F E4 02 |TZZAHL: "SZ.u...|
00000760: 99 3A 99 22 57 45 49 54 45 52 20 4D 49 54 20 D4 |.:."WEITER MIT .|
00000770: 41 53 54 45 22 00 88 0F E5 02 A1 41 24 3A 8B 41 |ASTE"......A$:.A|
00000780: 24 B2 22 22 A7 37 34 31 00 91 0F E6 02 89 34 39 |$."".741......49|
00000790: 30 00 C9 0F EE 02 99 C7 28 31 34 37 29 3B 3A 9C |0.......(147);:.|
000007A0: 3A 86 58 28 35 30 29 2C 59 28 35 30 29 2C 5A 24 |:.X(50),Y(50),Z$|
000007B0: 28 35 30 29 2C 58 46 28 35 30 29 2C 59 46 28 35 |(50),XF(50),YF(5|
000007C0: 30 29 2C 46 4C 28 35 30 29 00 D3 0F EF 02 8D 31 |0),FL(50)......1|
000007D0: 34 31 31 00 F0 0F F8 02 9E 41 54 2C 31 30 2C 35 |411......AT,10,5|
000007E0: 3A 99 22 CD 41 53 4B 45 4E 46 49 4C 45 53 22 3B |:.".ASKENFILES";|
000007F0: 00 0D 10 02 03 9E 41 54 2C 31 30 2C 36 3A 99 22 |......AT,10,6:."|
00000800: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 3B 00 2D 10 |-----------";.-.|
00000810: 0C 03 9E 41 54 2C 31 30 2C 38 3A 99 22 31 20 3D |...AT,10,8:."1 =|
00000820: 20 C5 49 4E 52 49 43 48 54 45 4E 22 3B 00 47 10 | .INRICHTEN";.G.|
00000830: 16 03 9E 41 54 2C 31 30 2C 39 3A 99 22 32 20 3D |...AT,10,9:."2 =|
00000840: 20 C9 4E 46 4F 22 3B 00 65 10 20 03 9E 41 54 2C | .NFO";.e. ..AT,|
00000850: 31 30 2C 31 30 3A 99 22 33 20 3D 20 C1 45 4E 44 |10,10:."3 = .END|
00000860: 45 52 4E 22 3B 00 83 10 2A 03 9E 41 54 2C 31 30 |ERN";...*..AT,10|
00000870: 2C 31 32 3A 99 22 30 20 3D 20 DA 55 52 55 45 43 |,12:."0 = .URUEC|
00000880: 4B 22 3B 00 96 10 34 03 A1 41 24 3A 8B 41 24 B2 |K";...4..A$:.A$.|
00000890: 22 22 A7 38 32 30 00 A4 10 35 03 41 B2 C6 28 41 |"".820...5.A..(A|
000008A0: 24 29 AF 33 00 C0 10 3E 03 91 20 41 20 89 20 38 |$).3...>.. A . 8|
000008B0: 35 30 2C 31 32 38 30 2C 31 33 38 30 2C 31 34 30 |50,1280,1380,140|
000008C0: 00 C9 10 48 03 89 31 34 30 00 D7 10 52 03 54 5A |...H..140...R.TZ|
000008D0: B2 31 3A 46 5A B2 31 00 E3 10 5C 03 99 C7 28 31 |.1:FZ.1...\...(1|
000008E0: 34 37 29 00 1F 11 66 03 9E 41 54 2C 31 2C 32 33 |47)...f..AT,1,23|
000008F0: 3A 99 C9 28 C4 28 54 5A 29 2C 32 29 AA 22 3A 20 |:..(.(TZ),2).": |
00000900: 58 20 3D 20 D8 2C 20 59 20 3D 20 D9 2C 20 5A 20 |X = ., Y = ., Z |
00000910: 3D 20 D4 45 58 54 45 49 4E 54 52 41 47 22 3B 00 |= .EXTEINTRAG";.|
00000920: 4D 11 70 03 9E 41 54 2C 35 2C 32 34 3A 99 22 46 |M.p..AT,5,24:."F|
00000930: 20 3D 20 C6 45 4C 44 2C 20 42 20 3D 20 C2 49 4C | = .ELD, B = .IL|
00000940: 44 2C 20 45 20 3D 20 C5 4E 44 45 22 3B 00 70 11 |D, E = .NDE";.p.|
00000950: 7A 03 9E 41 54 2C 58 28 54 5A 29 2C 59 28 54 5A |z..AT,X(TZ),Y(TZ|
00000960: 29 3A 99 22 12 22 5A 24 28 54 5A 29 22 92 22 3B |):."."Z$(TZ)".";|
00000970: 00 83 11 7B 03 A1 41 24 3A 8B 41 24 B2 22 22 A7 |...{..A$:.A$."".|
00000980: 38 39 30 00 96 11 7C 03 9E 41 54 2C 30 2C 32 32 |890...|..AT,0,22|
00000990: 3A 99 4C 45 24 3B 00 B7 11 7D 03 9E 57 4F 2C 41 |:.LE$;...}..WO,A|
000009A0: 24 2C 22 58 59 5A 46 42 45 91 11 22 2C 4E 3A 8B |$,"XYZFBE..",N:.|
000009B0: 4E B2 30 A7 38 39 30 00 D9 11 7E 03 8B 4E B1 33 |N.0.890...~..N.3|
000009C0: A7 9E 41 54 2C 58 28 54 5A 29 2C 59 28 54 5A 29 |..AT,X(TZ),Y(TZ)|
000009D0: 3A 99 5A 24 28 54 5A 29 3B 00 05 12 84 03 91 20 |:.Z$(TZ);...... |
000009E0: 4E 20 89 20 39 31 30 2C 39 32 30 2C 39 33 30 2C |N . 910,920,930,|
000009F0: 31 30 31 30 2C 39 34 30 2C 31 31 35 30 2C 39 37 |1010,940,1150,97|
00000A00: 30 2C 39 39 30 00 3E 12 8E 03 9E 41 54 2C 31 2C |0,990.>....AT,1,|
00000A10: 32 32 3A 99 22 D8 2D CB 4F 4F 52 44 49 4E 41 54 |22:.".-.OORDINAT|
00000A20: 45 20 22 C4 28 58 28 54 5A 29 29 3B 3A 9E 41 54 |E ".(X(TZ));:.AT|
00000A30: 2C 31 33 2C 32 32 3A 85 41 3A 8D 39 36 31 00 4F |,13,22:.A:.961.O|
00000A40: 12 8F 03 58 28 54 5A 29 B2 41 3A 89 38 39 30 00 |...X(TZ).A:.890.|
00000A50: 88 12 98 03 9E 41 54 2C 31 2C 32 32 3A 99 22 D9 |.....AT,1,22:.".|
00000A60: 2D CB 4F 4F 52 44 49 4E 41 54 45 20 22 C4 28 59 |-.OORDINATE ".(Y|
00000A70: 28 54 5A 29 29 3B 3A 9E 41 54 2C 31 33 2C 32 32 |(TZ));:.AT,13,22|
00000A80: 3A 85 41 3A 8D 39 36 31 00 99 12 99 03 59 28 54 |:.A:.961.....Y(T|
00000A90: 5A 29 B2 41 3A 89 38 39 30 00 D4 12 A2 03 9E 41 |Z).A:.890......A|
00000AA0: 54 2C 31 2C 32 32 3A 99 22 D4 45 58 54 45 49 4E |T,1,22:.".EXTEIN|
00000AB0: 54 52 41 47 3F 20 22 5A 24 28 54 5A 29 3B 3A 9E |TRAG? "Z$(TZ);:.|
00000AC0: 41 54 2C 31 34 2C 32 32 3A 9E 49 4E 3A 5A 24 3A |AT,14,22:.IN:Z$:|
00000AD0: 8D 39 36 31 00 E7 12 A3 03 5A 24 28 54 5A 29 B2 |.961.....Z$(TZ).|
00000AE0: 5A 24 3A 89 38 39 31 00 13 13 AC 03 99 C7 28 31 |Z$:.891.......(1|
00000AF0: 34 37 29 3A 81 49 B2 31 A4 54 5A 3A 9E 41 54 2C |47):.I.1.TZ:.AT,|
00000B00: 58 28 49 29 2C 59 28 49 29 3A 99 5A 24 28 49 29 |X(I),Y(I):.Z$(I)|
00000B10: 3B 3A 82 00 4D 13 B6 03 81 49 B2 31 A4 46 5A 3A |;:..M....I.1.FZ:|
00000B20: 9E 41 54 2C 58 46 28 49 29 2C 59 46 28 49 29 3A |.AT,XF(I),YF(I):|
00000B30: 99 22 3C 22 3B 3A 9E 41 54 2C 58 46 28 49 29 AA |."<";:.AT,XF(I).|
00000B40: 31 AA 46 4C 28 49 29 2C 59 46 28 49 29 00 5E 13 |1.FL(I),YF(I).^.|
00000B50: C0 03 99 22 3E 22 3B 3A 82 3A 89 38 37 30 00 86 |...">";:.:.870..|
00000B60: 13 C1 03 9E 41 54 2C 58 28 54 5A 29 2C 59 28 54 |....AT,X(TZ),Y(T|
00000B70: 5A 29 3A 99 C8 28 4C 45 24 2C C3 28 5A 24 28 54 |Z):..(LE$,.(Z$(T|
00000B80: 5A 29 29 29 3A 8E 00 99 13 CA 03 8B 54 5A B3 B1 |Z))):.......TZ..|
00000B90: 31 A7 54 5A B2 54 5A AB 31 00 B8 13 D4 03 9E 41 |1.TZ.TZ.1......A|
00000BA0: 54 2C 31 2C 32 33 3A 99 C9 28 C4 28 54 5A 29 2C |T,1,23:..(.(TZ),|
00000BB0: 32 29 3B 3A 89 38 39 30 00 E2 13 DE 03 8B 54 5A |2);:.890......TZ|
00000BC0: B3 B1 35 30 A7 54 5A B2 54 5A AA 31 3A 9E 41 54 |..50.TZ.TZ.1:.AT|
00000BD0: 2C 31 2C 32 33 3A 99 C9 28 C4 28 54 5A 29 2C 32 |,1,23:..(.(TZ),2|
00000BE0: 29 3B 00 EB 13 E8 03 89 38 39 30 00 26 14 F2 03 |);......890.&...|
00000BF0: 9E 41 54 2C 31 2C 32 33 3A 99 C9 28 C4 28 46 5A |.AT,1,23:..(.(FZ|
00000C00: 29 2C 32 29 22 3A 20 58 20 3D 20 D8 2C 20 59 20 |),2)": X = ., Y |
00000C10: 3D 20 D9 2C 20 5A 20 3D 20 C6 45 4C 44 4C 41 45 |= ., Z = .ELDLAE|
00000C20: 4E 47 45 20 22 3B 00 54 14 FC 03 9E 41 54 2C 35 |NGE ";.T....AT,5|
00000C30: 2C 32 34 3A 99 22 54 20 3D 20 D4 45 58 54 2C 20 |,24:."T = .EXT, |
00000C40: 42 20 3D 20 C2 49 4C 44 2C 20 45 20 3D 20 C5 4E |B = .ILD, E = .N|
00000C50: 44 45 22 3B 00 82 14 06 04 9E 41 54 2C 58 46 28 |DE";......AT,XF(|
00000C60: 46 5A 29 2C 59 46 28 46 5A 29 3A 99 22 3C 12 22 |FZ),YF(FZ):."<."|
00000C70: C8 28 4C 45 24 2C 46 4C 28 46 5A 29 29 22 92 3E |.(LE$,FL(FZ))".>|
00000C80: 22 3B 00 96 14 07 04 A1 41 24 3A 8B 41 24 B2 22 |";......A$:.A$."|
00000C90: 22 A7 31 30 33 30 00 A9 14 08 04 9E 41 54 2C 30 |".1030......AT,0|
00000CA0: 2C 32 32 3A 99 4C 45 24 3B 00 CB 14 09 04 9E 57 |,22:.LE$;......W|
00000CB0: 4F 2C 41 24 2C 22 58 59 5A 54 42 45 91 11 22 2C |O,A$,"XYZTBE..",|
00000CC0: 4E 3A 8B 4E B2 30 A7 31 30 33 30 00 F9 14 0A 04 |N:.N.0.1030.....|
00000CD0: 8B 4E B1 33 A7 9E 41 54 2C 58 46 28 46 5A 29 2C |.N.3..AT,XF(FZ),|
00000CE0: 59 46 28 46 5A 29 3A 99 22 1D 22 C8 28 4C 45 24 |YF(FZ):.".".(LE$|
00000CF0: 2C 46 4C 28 46 5A 29 29 3B 00 2A 15 10 04 91 20 |,FL(FZ));.*.... |
00000D00: 4E 20 89 20 31 30 35 30 2C 31 30 36 30 2C 31 30 |N . 1050,1060,10|
00000D10: 37 30 2C 38 37 30 2C 31 30 38 30 2C 31 31 35 30 |70,870,1080,1150|
00000D20: 2C 31 31 31 30 2C 31 31 33 30 00 65 15 1A 04 9E |,1110,1130.e....|
00000D30: 41 54 2C 31 2C 32 32 3A 99 22 D8 2D CB 4F 4F 52 |AT,1,22:.".-.OOR|
00000D40: 44 49 4E 41 54 45 20 22 C4 28 58 46 28 46 5A 29 |DINATE ".(XF(FZ)|
00000D50: 29 3B 3A 9E 41 54 2C 31 33 2C 32 32 3A 85 41 3A |);:.AT,13,22:.A:|
00000D60: 8D 31 30 37 32 00 78 15 1B 04 58 46 28 46 5A 29 |.1072.x...XF(FZ)|
00000D70: B2 41 3A 89 31 30 33 30 00 B2 15 24 04 9E 41 54 |.A:.1030...$..AT|
00000D80: 2C 31 2C 32 32 3A 99 22 D9 2D CB 4F 4F 52 44 49 |,1,22:.".-.OORDI|
00000D90: 4E 41 54 45 20 22 C4 28 59 46 28 46 5A 29 29 3A |NATE ".(YF(FZ)):|
00000DA0: 9E 41 54 2C 31 33 2C 32 32 3A 85 41 3A 8D 31 30 |.AT,13,22:.A:.10|
00000DB0: 37 32 00 C5 15 25 04 59 46 28 46 5A 29 B2 41 3A |72...%.YF(FZ).A:|
00000DC0: 89 31 30 33 30 00 FE 15 2E 04 9E 41 54 2C 31 2C |.1030......AT,1,|
00000DD0: 32 32 3A 99 22 C6 45 4C 44 4C 41 45 4E 47 45 20 |22:.".ELDLAENGE |
00000DE0: 22 C4 28 46 4C 28 46 5A 29 29 3B 3A 9E 41 54 2C |".(FL(FZ));:.AT,|
00000DF0: 31 31 2C 32 32 3A 85 41 3A 8D 31 30 37 32 00 11 |11,22:.A:.1072..|
00000E00: 16 2F 04 46 4C 28 46 5A 29 B2 41 3A 89 31 30 33 |./.FL(FZ).A:.103|
00000E10: 30 00 3F 16 30 04 9E 41 54 2C 58 46 28 46 5A 29 |0.?.0..AT,XF(FZ)|
00000E20: 2C 59 46 28 46 5A 29 3A 99 C8 28 4C 45 24 AA 22 |,YF(FZ):..(LE$."|
00000E30: 20 22 2C 46 4C 28 46 5A 29 AA 32 29 3B 3A 8E 00 | ",FL(FZ).2);:..|
00000E40: 6B 16 38 04 99 C7 28 31 34 37 29 3A 81 49 B2 31 |k.8...(147):.I.1|
00000E50: A4 54 5A 3A 9E 41 54 2C 58 28 49 29 2C 59 28 49 |.TZ:.AT,X(I),Y(I|
00000E60: 29 3A 99 5A 24 28 49 29 3B 3A 82 00 A5 16 42 04 |):.Z$(I);:....B.|
00000E70: 81 49 B2 31 A4 46 5A 3A 9E 41 54 2C 58 46 28 49 |.I.1.FZ:.AT,XF(I|
00000E80: 29 2C 59 46 28 49 29 3A 99 22 3C 22 3B 3A 9E 41 |),YF(I):."<";:.A|
00000E90: 54 2C 58 46 28 49 29 AA 31 AA 46 4C 28 49 29 2C |T,XF(I).1.FL(I),|
00000EA0: 59 46 28 49 29 00 B7 16 4C 04 99 22 3E 22 3B 3A |YF(I)...L..">";:|
00000EB0: 82 3A 89 31 30 31 30 00 CA 16 56 04 8B 46 5A B3 |.:.1010...V..FZ.|
00000EC0: B1 31 A7 46 5A B2 46 5A AB 31 00 EA 16 60 04 9E |.1.FZ.FZ.1...`..|
00000ED0: 41 54 2C 31 2C 32 33 3A 99 C9 28 C4 28 46 5A 29 |AT,1,23:..(.(FZ)|
00000EE0: 2C 32 29 3B 3A 89 31 30 33 30 00 14 17 6A 04 8B |,2);:.1030...j..|
00000EF0: 46 5A B3 B1 35 30 A7 46 5A B2 46 5A AA 31 3A 9E |FZ..50.FZ.FZ.1:.|
00000F00: 41 54 2C 31 2C 32 33 3A 99 C9 28 C4 28 46 5A 29 |AT,1,23:..(.(FZ)|
00000F10: 2C 32 29 3B 00 1E 17 74 04 89 31 30 33 30 00 2A |,2);...t..1030.*|
00000F20: 17 7E 04 99 C7 28 31 34 37 29 00 56 17 88 04 9E |.~...(147).V....|
00000F30: 41 54 2C 31 30 2C 35 3A 99 22 C5 4E 44 45 20 44 |AT,10,5:.".NDE D|
00000F40: 45 52 20 CD 41 53 4B 45 4E 47 45 4E 45 52 49 45 |ER .ASKENGENERIE|
00000F50: 52 55 4E 47 22 3B 00 82 17 92 04 9E 41 54 2C 31 |RUNG";......AT,1|
00000F60: 30 2C 36 3A 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |0,6:."----------|
00000F70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000F80: 22 3B 00 A9 17 9C 04 9E 41 54 2C 31 30 2C 38 3A |";......AT,10,8:|
00000F90: 99 22 CD 41 53 4B 45 20 53 50 45 49 43 48 45 52 |.".ASKE SPEICHER|
00000FA0: 4E 20 4A 2F 4E 20 3F 22 3B 00 BD 17 9D 04 A1 41 |N J/N ?";......A|
00000FB0: 24 3A 8B 41 24 B2 22 22 A7 31 31 38 31 00 CE 17 |$:.A$."".1181...|
00000FC0: A6 04 8B 20 41 24 B2 22 4E 22 A7 37 35 30 00 E1 |... A$."N".750..|
00000FD0: 17 B0 04 8B 20 41 24 B3 B1 22 4A 22 A7 31 31 38 |.... A$.."J".118|
00000FE0: 30 00 FF 17 BA 04 99 3A 99 3A 99 22 C6 49 4C 45 |0......:.:.".ILE|
00000FF0: 4E 41 4D 45 3F 20 22 3B 3A 9E 49 4E 3A 46 24 00 |NAME? ";:.IN:F$.|
00001000: 1F 18 C4 04 81 49 B2 31 A4 54 5A 3A 8B 5A 24 28 |.....I.1.TZ:.Z$(|
00001010: 49 29 B2 22 22 A7 5A 24 28 49 29 B2 22 20 22 00 |I)."".Z$(I)." ".|
00001020: 25 18 CE 04 82 00 4C 18 D8 04 9F 38 2C 38 2C 38 |%.....L....8,8,8|
00001030: 2C 46 24 AA 22 2C 50 2C 57 22 3A 8D 31 32 37 30 |,F$.",P,W":.1270|
00001040: 3A 98 38 2C 46 5A 3A 98 38 2C 54 5A 00 73 18 E2 |:.8,FZ:.8,TZ.s..|
00001050: 04 81 49 B2 31 A4 54 5A 3A 98 38 2C 58 28 49 29 |..I.1.TZ:.8,X(I)|
00001060: 3A 98 38 2C 59 28 49 29 3A 98 38 2C 5A 24 28 49 |:.8,Y(I):.8,Z$(I|
00001070: 29 3A 82 00 A4 18 EC 04 81 49 B2 31 A4 46 5A 3A |):.......I.1.FZ:|
00001080: 98 38 2C 58 46 28 49 29 3A 98 38 2C 59 46 28 49 |.8,XF(I):.8,YF(I|
00001090: 29 3A 98 38 2C 46 4C 28 49 29 3A 82 3A A0 38 3A |):.8,FL(I):.:.8:|
000010A0: 89 37 35 30 00 BE 18 F6 04 98 38 2C C7 28 31 29 |.750......8,.(1)|
000010B0: C7 28 31 29 C7 28 30 29 C7 28 30 29 3A 8E 00 E6 |.(1).(0).(0):...|
000010C0: 18 00 05 99 C7 28 31 34 37 29 3A 9E 41 54 2C 30 |.....(147):.AT,0|
000010D0: 2C 37 3A 99 22 C9 4E 46 4F 20 CD 41 53 4B 45 4E |,7:.".NFO .ASKEN|
000010E0: 44 41 54 45 49 22 00 0D 19 0A 05 9E 41 54 2C 30 |DATEI"......AT,0|
000010F0: 2C 38 3A 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |,8:."-----------|
00001100: 2D 2D 2D 2D 2D 22 3B 3A 8D 31 33 31 30 00 2F 19 |-----";:.1310./.|
00001110: 14 05 9E 41 54 2C 30 2C 32 34 3A 99 22 D7 45 49 |...AT,0,24:.".EI|
00001120: 54 45 52 20 4D 49 54 20 D4 41 53 54 45 22 3B 00 |TER MIT .ASTE";.|
00001130: 43 19 15 05 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 |C....A$:.A$."".1|
00001140: 33 30 31 00 4C 19 16 05 89 37 35 30 00 6D 19 1E |301.L....750.m..|
00001150: 05 99 3A 99 3A 99 22 CD 41 53 4B 45 4E 2D CE 41 |..:.:.".ASKEN-.A|
00001160: 4D 45 3F 20 22 3B 3A 9E 49 4E 3A 46 24 00 97 19 |ME? ";:.IN:F$...|
00001170: 28 05 9F 38 2C 38 2C 38 2C 46 24 AA 22 2C 50 2C |(..8,8,8,F$.",P,|
00001180: 52 22 3A 8D 31 34 30 30 3A 9E 49 4E 3A 4D 4B 24 |R":.1400:.IN:MK$|
00001190: 3A 9E 49 4E 3A 46 5A 00 C8 19 32 05 9E 49 4E 3A |:.IN:FZ...2..IN:|
000011A0: 54 5A 3A 81 49 B2 31 A4 54 5A 3A 9E 49 4E 3A 58 |TZ:.I.1.TZ:.IN:X|
000011B0: 28 49 29 3A 9E 49 4E 3A 59 28 49 29 3A 9E 49 4E |(I):.IN:Y(I):.IN|
000011C0: 3A 5A 24 28 49 29 3A 82 00 EF 19 3C 05 81 49 B2 |:Z$(I):....<..I.|
000011D0: 31 A4 46 5A 3A 85 58 46 28 49 29 2C 59 46 28 49 |1.FZ:.XF(I),YF(I|
000011E0: 29 2C 46 4C 28 49 29 3A 82 3A 8D 31 34 31 30 00 |),FL(I):.:.1410.|
000011F0: 1B 1A 46 05 99 C7 28 31 34 37 29 3A 81 49 B2 31 |..F...(147):.I.1|
00001200: A4 54 5A 3A 9E 41 54 2C 58 28 49 29 2C 59 28 49 |.TZ:.AT,X(I),Y(I|
00001210: 29 3A 99 5A 24 28 49 29 3B 3A 82 00 55 1A 50 05 |):.Z$(I);:..U.P.|
00001220: 81 49 B2 31 A4 46 5A 3A 9E 41 54 2C 58 46 28 49 |.I.1.FZ:.AT,XF(I|
00001230: 29 2C 59 46 28 49 29 3A 99 22 3C 22 3B 3A 9E 41 |),YF(I):."<";:.A|
00001240: 54 2C 58 46 28 49 29 AA 31 AA 46 4C 28 49 29 2C |T,XF(I).1.FL(I),|
00001250: 59 46 28 49 29 00 63 1A 5A 05 99 22 3E 22 3B 3A |YF(I).c.Z..">";:|
00001260: 82 3A 8E 00 89 1A 64 05 99 C7 28 31 34 37 29 3A |.:....d...(147):|
00001270: 9E 41 54 2C 30 2C 37 3A 99 22 CD 41 53 4B 45 20 |.AT,0,7:.".ASKE |
00001280: 41 45 4E 44 45 52 4E 22 3B 00 B2 1A 6E 05 9E 41 |AENDERN";...n..A|
00001290: 54 2C 30 2C 38 3A 99 22 2D 2D 2D 2D 2D 2D 2D 2D |T,0,8:."--------|
000012A0: 2D 2D 2D 2D 2D 22 3B 3A 8D 31 33 31 30 3A 89 38 |-----";:.1310:.8|
000012B0: 37 30 00 CC 1A 78 05 97 31 39 2C 38 3A 97 37 38 |70...x..19,8:.78|
000012C0: 31 2C 38 3A 9E 36 35 34 37 38 3A 8E 00 E2 1A 82 |1,8:.65478:.....|
000012D0: 05 A0 38 3A 9E 36 35 34 38 34 3A 97 31 39 2C 30 |..8:.65484:.19,0|
000012E0: 3A 8E 00 01 1B 83 05 49 4E B2 34 39 34 36 35 3A |:......IN.49465:|
000012F0: 41 54 B2 34 39 31 35 32 3A 57 4F B2 34 39 31 37 |AT.49152:WO.4917|
00001300: 32 00 32 1B 84 05 4C 45 24 B2 22 20 20 20 20 20 |2.2...LE$." |
00001310: 20 20 20 20 20 22 3A 4C 45 24 B2 C8 28 4C 45 24 | ":LE$..(LE$|
00001320: AA 4C 45 24 AA 4C 45 24 AA 4C 45 24 2C 33 39 29 |.LE$.LE$.LE$,39)|
00001330: 3A 8E 00 57 1B 8C 05 8F 20 3D 3D 3D 3D 3D 3D 3D |:..W.... =======|
00001340: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00001350: 3D 3D 3D 3D 3D 3D 3D 00 76 1B 96 05 8F 20 20 50 |=======.v.... P|
00001360: 20 52 20 4F 20 47 20 52 20 41 20 4D 20 4D 20 45 | R O G R A M M E|
00001370: 20 4E 20 44 20 45 00 9B 1B A0 05 8F 20 3D 3D 3D | N D E...... ===|
00001380: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00001390: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 00 00 |===========... |
..(.... DATEIGENERATOR===============C64
.D.... BY ALFONS MITTELMEYER.N.(.. C64._
.2.. BASIC V2.0...<.. ==================
==============...F..B(49154).174.100...P
..57812"SYSMC",8,0:.780,0.V.Z..781,254:.
782,191:.65493...D..1411......G(14)G(147
);......AT,10,5:."DATEIGENERATOR";.2. ..
AT,10,6:."--------------";.M....AT,10,8:
."1 = MASKE";.H....AT,10,9:."2 = DATEI";
......AT,10,10:."3 = VERWEIS";...H..AT,1
0,12:."0 = ENDE";...R..A$:.A$."".210.U.S
.A.F(A$).3:.A$."0".A$."3".140...... A .
750,490,240......G(142);:.......G(147);.
'....AT,10,5:."VERWEISDATEIEN";.G....AT,
10,6:."--------------";.G....AT,10,8:."1
= EINRICHTEN";......AT,10,9:."2 = INFO"
;..."..AT,10,11:."0 = ZURUECK";...,..A$:
.A$."".300...-.A.F(A$).3.V.6.. A . 330,4
10,140...@..140...J..G(147):.AT,0,7:."VE
RWEISDATEI EINRICHTEN"...T.."-----------
-----------":..M.^.."VERWEISDATEI? ";:.I
N:VW$.K.H.."MASKENDATEI? ";:.IN:MK$...R.
."DATENFILE? ";:.IN:DF$...|..8,8,8,VW$."
,P,W"......1270:.8,MK$:.8,DF$: 8.A....24
0......G(147):.AT,0,7:."INFO VERWEISDATE
I"......"-----------------":..$...."VERW
EISDATEI? ";:.IN:VW$.@....8,8,8,VW$.",P,
R":.1400.B.B..IN:MK$:.IN:MK$:.IN:DF$:.14
10.{.L.."MASKENDATEI: "MK$...V.."DATENF
ILE: "DF$......:."WEITER MIT TASTE".A
....A$:.A$."".481.J....240.V....G(147)..
....AT,10,5:."DATENFILES";......AT,10,6:
."--------------";.2....AT,10,8:."1 = EI
NRICHTEN";.L....AT,10,9:."2 = INFO";.J..
..AT,10,11:."0 = ZURUECK";.}.&..A$:.A$."
".550...+.A.F(A$).3...0.. A . 580,660,14
0...:..140.V.D..G(147):.AT,0,7:."DATENFI
LE EINRICHTEN"...N.."-------------------
-":....X.."FILE-NAME? ";:.IN:NF$.#.B.."F
ELDZAHL";FZ.?.L.."MAXIMALE SATZZAHL";MS.
U.V..8,8,8,NF$.",P,W".S....1270:.8,FZ:.8
,MS:.8,0: 8.|....490......G(147):.AT,0,7
:."INFO DATENFILE"......"--------------"
:..V...."FILE-NAME? ";:.IN:NF$......8,8,
8,NF$.",P,R"......8,MK$:.8,FZ:.8,MS:.8,S
Z: 8.!.F.."FELDZAHL: "FZ.>.P.."MAXIMALE
SATZZAHL: "MS.[.Z.."AKTUELLE SATZZAHL:
"SZ.U....:."WEITER MIT TASTE"......A$:.A
$."".741......490.I....G(147);:.:.X(50),
Y(50),Z$(50),XF(50),YF(50),FL(50).S....1
411......AT,10,5:."MASKENFILES";......AT
,10,6:."-----------";.-....AT,10,8:."1 =
EINRICHTEN";.G....AT,10,9:."2 = INFO";.
E. ..AT,10,10:."3 = AENDERN";...*..AT,10
,12:."0 = ZURUECK";...4..A$:.A$."".820..
.5.A.F(A$).3...>.. A . 850,1280,1380,140
.I.H..140.W.R.TZ.1:FZ.1...\..G(147)...F.
.AT,1,23:.I(D(TZ),2).": X = X, Y = Y, Z
= TEXTEINTRAG";.M.P..AT,5,24:."F = FELD,
B = BILD, E = ENDE";.P.Z..AT,X(TZ),Y(TZ
):."."Z$(TZ)".";...{..A$:.A$."".890...|.
.AT,0,22:.LE$;...}..WO,A$,"XYZFBE..",N:.
N.0.890.Y.~..N.3..AT,X(TZ),Y(TZ):.Z$(TZ)
;...... N . 910,920,930,1010,940,1150,97
0,990.>....AT,1,22:."X-KOORDINATE "D(X(T
Z));:.AT,13,22:.A:.961.O...X(TZ).A:.890.
.....AT,1,22:."Y-KOORDINATE "D(Y(TZ));:.
AT,13,22:.A:.961.....Y(TZ).A:.890.T....A
T,1,22:."TEXTEINTRAG? "Z$(TZ);:.AT,14,22
:.IN:Z$:.961.....Z$(TZ).Z$:.891......G(1
47):.I.1.TZ:.AT,X(I),Y(I):.Z$(I);:..M...
.I.1.FZ:.AT,XF(I),YF(I):."<";:.AT,XF(I).
1.FL(I),YF(I).^....">";:.:.870...A..AT,X
(TZ),Y(TZ):.H(LE$,C(Z$(TZ))):....J..TZ..
1.TZ.TZ.1...T..AT,1,23:.I(D(TZ),2);:.890
......TZ..50.TZ.TZ.1:.AT,1,23:.I(D(TZ),2
);......890.&....AT,1,23:.I(D(FZ),2)": X
= X, Y = Y, Z = FELDLAENGE ";.T....AT,5
,24:."T = TEXT, B = BILD, E = ENDE";....
..AT,XF(FZ),YF(FZ):."<."H(LE$,FL(FZ))".>
";......A$:.A$."".1030......AT,0,22:.LE$
;.K....WO,A$,"XYZTBE..",N:.N.0.1030.....
.N.3..AT,XF(FZ),YF(FZ):."."H(LE$,FL(FZ))
;.*.... N . 1050,1060,1070,870,1080,1150
,1110,1130.E....AT,1,22:."X-KOORDINATE "
D(XF(FZ));:.AT,13,22:.A:.1072.X...XF(FZ)
.A:.1030...$..AT,1,22:."Y-KOORDINATE "D(
YF(FZ)):.AT,13,22:.A:.1072.E.%.YF(FZ).A:
.1030......AT,1,22:."FELDLAENGE "D(FL(FZ
));:.AT,11,22:.A:.1072.../.FL(FZ).A:.103
0.?.0..AT,XF(FZ),YF(FZ):.H(LE$." ",FL(FZ
).2);:..K.8..G(147):.I.1.TZ:.AT,X(I),Y(I
):.Z$(I);:....B..I.1.FZ:.AT,XF(I),YF(I):
."<";:.AT,XF(I).1.FL(I),YF(I)...L..">";:
.:.1010.J.V..FZ..1.FZ.FZ.1...`..AT,1,23:
.I(D(FZ),2);:.1030...J..FZ..50.FZ.FZ.1:.
AT,1,23:.I(D(FZ),2);...T..1030.*.~..G(14
7).V....AT,10,5:."ENDE DER MASKENGENERIE
RUNG";......AT,10,6:."------------------
--------";......AT,10,8:."MASKE SPEICHER
N J/N ?";......A$:.A$."".1181.N.... A$."
N".750...... A$.."J".1180......:.:."FILE
NAME? ";:.IN:F$...D..I.1.TZ:.Z$(I)."".Z$
(I)." ".%.N...L.X..8,8,8,F$.",P,W":.1270
:.8,FZ:.8,TZ.S....I.1.TZ:.8,X(I):.8,Y(I)
:.8,Z$(I):.......I.1.FZ:.8,XF(I):.8,YF(I
):.8,FL(I):.: 8:.750......8,G(1)G(1)G(0)
G(0):.......G(147):.AT,0,7:."INFO MASKEN
DATEI"......AT,0,8:."----------------";:
.1310./....AT,0,24:."WEITER MIT TASTE";.
C....A$:.A$."".1301.L....750.M....:.:."M
ASKEN-NAME? ";:.IN:F$...(..8,8,8,F$.",P,
R":.1400:.IN:MK$:.IN:FZ.H.2..IN:TZ:.I.1.
TZ:.IN:X(I):.IN:Y(I):.IN:Z$(I):....<..I.
1.FZ:.XF(I),YF(I),FL(I):.:.1410...F..G(1
47):.I.1.TZ:.AT,X(I),Y(I):.Z$(I);:..U.P.
.I.1.FZ:.AT,XF(I),YF(I):."<";:.AT,XF(I).
1.FL(I),YF(I).C.Z..">";:.:....D..G(147):
.AT,0,7:."MASKE AENDERN";...N..AT,0,8:."
-------------";:.1310:.870.L.X..19,8:.78
1,8:.65478:...... 8:.65484:.19,0:......I
N.49465:AT.49152:WO.49172.2...LE$."
":LE$.H(LE$.LE$.LE$.LE$,39):..W....
==============================.V.... P
R O G R A M M E N D E... .. ===========
===================...
> CLICK IMAGE PREVIEW FOR FULL MODAL