DISKDATEI-BASIC
FILE INFORMATION
FILENAME(S): DISKDATEI-BASIC
FILE TYPE(S): PRG
FILE SIZE: 6.2K
FIRST SEEN: 2025-12-01 02:26:33
APPEARS ON: 1 disk(s)
FILE HASH
4fa0ffc43fa3718aa97b3ab55de289f790e287638228431b7eb3f5b2243542c5
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TONSOFT | DISKDATEI-BASIC | PRG | hedning, shine | 4 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2A 08 01 00 8F 20 48 41 55 50 54 50 52 4F |..*.... HAUPTPRO|
00000010: 47 52 41 4D 4D 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |GRAMM **********|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 4F 08 05 00 99 |**********.O....|
00000030: 22 93 11 42 49 54 54 45 20 27 53 48 49 46 54 20 |"..BITTE 'SHIFT |
00000040: 43 3D 27 20 44 52 55 45 43 4B 45 4E 20 21 22 00 |C=' DRUECKEN !".|
00000050: 5A 08 0A 00 8D 20 33 31 30 30 00 6A 08 0C 00 46 |Z.... 3100.j...F|
00000060: 31 B2 33 30 30 3A 46 32 B2 35 00 94 08 0F 00 85 |1.300:F2.5......|
00000070: 20 22 93 11 4D 41 58 49 4D 41 4C 45 20 46 45 4C | "..MAXIMALE FEL|
00000080: 44 47 52 4F 45 53 53 45 28 41 2F 42 29 22 3B 46 |DGROESSE(A/B)";F|
00000090: 31 2C 46 32 00 A4 08 14 00 86 20 4C 24 28 46 31 |1,F2...... L$(F1|
000000A0: 2C 46 32 29 00 CD 08 19 00 99 22 93 11 1D 44 41 |,F2)......"...DA|
000000B0: 54 45 49 20 45 52 53 54 45 4C 4C 45 4E 20 20 20 |TEI ERSTELLEN |
000000C0: 20 20 20 20 20 20 20 20 20 28 31 29 22 00 F5 08 | (1)"...|
000000D0: 1E 00 99 22 11 20 44 41 54 45 49 20 45 52 57 45 |...". DATEI ERWE|
000000E0: 49 54 45 52 4E 20 20 20 20 20 20 20 20 20 20 20 |ITERN |
000000F0: 20 28 32 29 22 00 1D 09 23 00 99 22 11 20 44 41 | (2)"...#..". DA|
00000100: 54 45 49 20 45 44 49 54 49 45 52 45 4E 20 20 20 |TEI EDITIEREN |
00000110: 20 20 20 20 20 20 20 20 20 28 33 29 22 00 45 09 | (3)".E.|
00000120: 28 00 99 22 11 20 44 41 54 45 49 20 53 4F 52 54 |(..". DATEI SORT|
00000130: 49 45 52 45 4E 20 20 20 20 20 20 20 20 20 20 20 |IEREN |
00000140: 20 28 34 29 22 00 6D 09 2D 00 99 22 11 20 44 41 | (4)".m.-..". DA|
00000150: 54 45 49 20 53 50 45 49 43 48 45 52 4E 20 20 20 |TEI SPEICHERN |
00000160: 20 20 20 20 20 20 20 20 20 28 35 29 22 00 95 09 | (5)"...|
00000170: 32 00 99 22 11 20 44 41 54 45 49 20 41 55 53 44 |2..". DATEI AUSD|
00000180: 52 55 43 4B 45 4E 20 20 20 20 20 20 20 20 20 20 |RUCKEN |
00000190: 20 28 36 29 22 00 BD 09 37 00 99 22 11 20 44 41 | (6)"...7..". DA|
000001A0: 54 45 49 20 4C 41 44 45 4E 20 20 20 20 20 20 20 |TEI LADEN |
000001B0: 20 20 20 20 20 20 20 20 20 28 37 29 22 00 E5 09 | (7)"...|
000001C0: 3C 00 99 22 11 20 50 52 4F 47 52 41 4D 4D 53 54 |<..". PROGRAMMST|
000001D0: 4F 50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |OP |
000001E0: 20 28 38 29 22 00 0C 0A 41 00 85 22 11 11 1D 1D | (8)"...A.."....|
000001F0: 1D 1D 1D 20 20 20 20 20 20 20 42 49 54 54 45 20 |... BITTE |
00000200: 57 41 45 48 4C 45 4E 20 21 22 3B 57 00 37 0A 46 |WAEHLEN !";W.7.F|
00000210: 00 91 20 57 20 89 20 31 30 30 2C 32 30 30 2C 33 |.. W . 100,200,3|
00000220: 30 30 2C 34 30 30 2C 35 30 30 2C 36 30 30 2C 37 |00,400,500,600,7|
00000230: 30 30 2C 31 30 30 30 00 5F 0A 63 00 8F 20 2A 2A |00,1000._.c.. **|
00000240: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000250: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000260: 83 0A 64 00 99 22 41 4E 5A 41 48 4C 20 44 45 52 |..d.."ANZAHL DER|
00000270: 20 46 45 4C 44 45 49 4E 54 52 41 47 55 4E 47 45 | FELDEINTRAGUNGE|
00000280: 4E 22 3B 00 8E 0A 69 00 85 20 46 47 3A 99 00 9F |N";...i.. FG:...|
00000290: 0A 6E 00 81 20 4B 20 B2 20 31 20 A4 20 46 47 00 |.n.. K . 1 . FG.|
000002A0: B9 0A 73 00 99 22 46 45 4C 44 42 45 5A 45 49 43 |..s.."FELDBEZEIC|
000002B0: 48 4E 55 4E 47 22 3B 4B 3B 00 C7 0A 78 00 85 20 |HNUNG";K;...x.. |
000002C0: 46 45 4E 24 28 4B 29 00 CF 0A 7D 00 82 20 4B 00 |FEN$(K)...}.. K.|
000002D0: E6 0A 82 00 41 46 5A 20 B2 20 30 3A 8D 20 32 30 |....AFZ . 0:. 20|
000002E0: 30 30 3A 89 32 35 00 0D 0B C7 00 8F 20 2A 2A 2A |00:.25...... ***|
000002F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000300: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 18 0B |*************...|
00000310: C8 00 43 24 B2 22 4A 22 00 42 0B C9 00 85 22 11 |..C$."J".B....".|
00000320: 1D 44 41 54 45 49 20 42 45 52 45 49 54 53 20 47 |.DATEI BEREITS G|
00000330: 45 4C 41 44 45 4E 20 3F 20 28 4A 2F 4E 29 22 3B |ELADEN ? (J/N)";|
00000340: 43 24 00 55 0B CD 00 8B 20 43 24 B2 22 4A 22 20 |C$.U.... C$."J" |
00000350: A7 20 32 33 30 00 78 0B D2 00 8B 20 43 24 B2 22 |. 230.x.... C$."|
00000360: 4E 22 20 A7 20 8D 20 33 30 30 30 3A 8D 20 33 32 |N" . . 3000:. 32|
00000370: 30 30 3A 89 20 32 33 30 00 82 0B D7 00 89 20 32 |00:. 230...... 2|
00000380: 30 30 00 92 0B E6 00 8D 20 32 30 30 30 3A 89 20 |00...... 2000:. |
00000390: 32 35 00 BB 0B 2C 01 99 22 93 11 11 44 41 54 45 |25...,.."...DATE|
000003A0: 49 20 42 45 52 45 49 54 53 20 47 45 4C 41 44 45 |I BEREITS GELADE|
000003B0: 4E 3F 20 20 28 4A 2F 4E 29 22 3B 00 C6 0B 31 01 |N? (J/N)";...1.|
000003C0: 43 24 B2 22 4A 22 00 E6 0B 36 01 85 20 43 24 3A |C$."J"...6.. C$:|
000003D0: 8B 20 43 24 B2 22 4A 22 20 A7 20 99 22 93 22 3B |. C$."J" . .".";|
000003E0: 3A 89 20 33 32 30 00 07 0C 3B 01 8B 20 43 24 B2 |:. 320...;.. C$.|
000003F0: 22 4E 22 A7 20 8D 20 33 30 30 30 3A 8D 20 37 30 |"N". . 3000:. 70|
00000400: 35 3A 89 20 33 32 30 00 11 0C 3E 01 89 20 33 30 |5:. 320...>.. 30|
00000410: 30 00 1C 0C 40 01 45 42 24 B2 22 22 00 55 0C 41 |0...@.EB$."".U.A|
00000420: 01 85 22 11 1D 45 49 4E 53 50 52 55 4E 47 42 55 |.."..EINSPRUNGBU|
00000430: 43 48 53 54 41 42 45 22 3B 45 42 24 3A 8B 20 45 |CHSTABE";EB$:. E|
00000440: 42 24 20 B2 20 22 22 20 A7 20 49 20 B2 20 31 3A |B$ . "" . I . 1:|
00000450: 89 20 33 32 35 00 60 0C 42 01 8D 20 33 34 30 30 |. 325.`.B.. 3400|
00000460: 00 A1 0C 45 01 99 22 93 11 11 11 11 11 11 11 11 |...E..".........|
00000470: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 |..............."|
00000480: 3B 3A 99 22 41 45 4E 44 45 52 55 4E 47 20 4D 49 |;:."AENDERUNG MI|
00000490: 54 20 27 4A 27 20 49 4E 49 54 49 49 45 52 45 4E |T 'J' INITIIEREN|
000004A0: 22 00 AF 0C 4A 01 99 22 13 11 11 11 22 3B 49 00 |"...J.."....";I.|
000004B0: DF 0C 4F 01 99 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |..O.."==========|
000004C0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000004D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 00 |==============".|
000004E0: 0D 0D 54 01 81 20 4B 20 B2 20 31 20 A4 20 46 47 |..T.. K . 1 . FG|
000004F0: 3A 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |:." |
00000500: 22 3B 4C 24 28 49 2C 4B 29 3A 82 20 4B 00 3E 0D |";L$(I,K):. K.>.|
00000510: 59 01 99 20 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |Y.. "===========|
00000520: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000530: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 00 68 |=============".h|
00000540: 0D 5A 01 99 22 11 11 11 11 11 11 1D 1D 4D 49 54 |.Z.."........MIT|
00000550: 20 27 5F 27 20 49 4E 53 20 4D 45 4E 55 45 20 5A | '_' INS MENUE Z|
00000560: 55 52 55 45 43 4B 21 22 00 73 0D 5B 01 43 24 B2 |URUECK!".s.[.C$.|
00000570: 22 4E 22 00 7F 0D 5C 01 85 22 11 22 3B 43 24 00 |"N"...\..".";C$.|
00000580: 94 0D 5E 01 8B 20 43 24 20 B2 20 22 4A 22 20 A7 |..^.. C$ . "J" .|
00000590: 20 33 37 30 00 A5 0D 60 01 8B 20 43 24 B2 22 5F | 370...`.. C$."_|
000005A0: 22 20 A7 32 35 00 C5 0D 63 01 49 20 B2 20 49 AA |" .25...c.I . I.|
000005B0: 31 3A 8B 20 49 B1 41 46 5A 20 A7 20 99 22 93 22 |1:. I.AFZ . ."."|
000005C0: 3B 3A 89 32 35 00 CF 0D 68 01 89 20 33 32 35 00 |;:.25...h.. 325.|
000005D0: D5 0D 6D 01 8E 00 F3 0D 72 01 99 22 11 11 22 3B |..m.....r.."..";|
000005E0: 3A 81 20 4B B2 31 20 A4 20 46 47 3A 54 24 20 B2 |:. K.1 . FG:T$ .|
000005F0: 20 22 22 00 07 0E 77 01 99 20 46 45 4E 24 28 4B | ""...w.. FEN$(K|
00000600: 29 3B 3A 85 20 54 24 00 2F 0E 78 01 8B 20 54 24 |);:. T$./.x.. T$|
00000610: B2 22 22 20 A7 20 99 22 91 22 3B 46 45 4E 24 28 |."" . .".";FEN$(|
00000620: 4B 29 2C 4C 24 28 49 2C 4B 29 3A 89 33 38 30 00 |K),L$(I,K):.380.|
00000630: 40 0E 7A 01 4C 24 28 49 2C 4B 29 20 B2 20 54 24 |@.z.L$(I,K) . T$|
00000640: 00 48 0E 7C 01 82 20 4B 00 51 0E 81 01 89 33 32 |.H.|.. K.Q....32|
00000650: 35 00 78 0E 8E 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |5.x.... ********|
00000660: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000670: 2A 2A 2A 2A 2A 2A 2A 2A 00 9F 0E 8F 01 8F 20 2A |********...... *|
00000680: 2A 2A 53 4F 52 54 49 45 52 52 4F 55 54 49 4E 45 |**SORTIERROUTINE|
00000690: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000006A0: AA 0E 90 01 8D 20 32 33 30 30 00 D1 0E 95 01 8F |..... 2300......|
000006B0: 20 2A 2A 2A 54 4F 4E 45 52 5A 45 55 47 55 4E 47 | ***TONERZEUGUNG|
000006C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000006D0: 2A 00 09 0F 9A 01 53 49 B2 35 34 32 37 32 3A 46 |*.....SI.54272:F|
000006E0: 4C B2 53 49 3A 46 48 B2 53 49 AA 31 3A 57 B2 53 |L.SI:FH.SI.1:W.S|
000006F0: 49 AA 34 3A 41 B2 53 49 AA 35 3A 48 B2 53 49 AA |I.4:A.SI.5:H.SI.|
00000700: 36 3A 4C B2 53 49 AA 32 34 00 13 0F 9F 01 97 4C |6:L.SI.24......L|
00000710: 2C 31 35 00 1F 0F A4 01 97 41 2C 31 36 AA 39 00 |,15......A,16.9.|
00000720: 2D 0F A9 01 97 48 2C 34 AC 31 36 AA 34 00 3F 0F |-....H,4.16.4.?.|
00000730: AE 01 97 46 48 2C 32 39 3A 97 46 4C 2C 36 39 00 |...FH,29:.FL,69.|
00000740: 49 0F B3 01 97 57 2C 31 37 00 80 0F B5 01 99 22 |I....W,17......"|
00000750: 93 11 11 11 11 11 11 11 11 11 11 11 11 1D 1D 1D |................|
00000760: 1D 1D 53 4F 52 54 49 45 52 45 4E 20 42 45 45 4E |..SORTIEREN BEEN|
00000770: 44 45 54 20 21 20 20 28 20 54 41 53 54 45 20 29 |DET ! ( TASTE )|
00000780: 00 8B 0F B8 01 8D 20 33 31 30 30 00 9E 0F BD 01 |...... 3100.....|
00000790: 97 57 2C 30 3A 97 41 2C 30 3A 97 48 2C 30 00 AC |.W,0:.A,0:.H,0..|
000007A0: 0F C2 01 99 22 93 22 3A 89 20 32 35 00 D3 0F F2 |....".":. 25....|
000007B0: 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
000007C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000007D0: 2A 2A 2A 00 FA 0F F3 01 8F 20 2A 2A 2A 53 41 56 |***...... ***SAV|
000007E0: 45 2D 52 4F 55 54 49 4E 45 2A 2A 2A 2A 2A 2A 2A |E-ROUTINE*******|
000007F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 04 10 F4 01 99 |**********......|
00000800: 20 22 93 22 00 34 10 FE 01 99 20 22 11 11 1D 42 | ".".4.... "...B|
00000810: 45 53 54 45 48 45 4E 44 45 20 41 4C 54 45 20 44 |ESTEHENDE ALTE D|
00000820: 41 54 45 49 20 4C 4F 45 53 43 48 45 4E 3F 28 4A |ATEI LOESCHEN?(J|
00000830: 2F 4E 29 22 00 3D 10 03 02 85 20 45 24 00 74 10 |/N)".=.... E$.t.|
00000840: 08 02 8B 20 45 24 B2 22 4A 22 20 A7 20 85 20 22 |... E$."J" . . "|
00000850: 11 11 1D 41 4C 54 45 52 20 44 41 54 45 49 4E 41 |...ALTER DATEINA|
00000860: 4D 45 22 3B 44 4E 24 3A 8D 20 32 31 30 30 3A 89 |ME";DN$:. 2100:.|
00000870: 20 35 33 35 00 89 10 0D 02 8B 20 45 24 20 B2 20 | 535...... E$ . |
00000880: 22 4E 22 20 A7 20 35 33 35 00 99 10 12 02 99 20 |"N" . 535...... |
00000890: 22 91 22 3A 89 20 35 31 35 00 BB 10 17 02 99 20 |".":. 515...... |
000008A0: 22 11 11 4E 45 55 45 52 20 44 41 54 45 49 4E 41 |"..NEUER DATEINA|
000008B0: 4D 45 3A 22 3B 3A 85 20 44 4E 24 00 CB 10 1C 02 |ME:";:. DN$.....|
000008C0: 8D 20 32 32 30 30 3A 89 20 32 35 00 F2 10 57 02 |. 2200:. 25...W.|
000008D0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
000008E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000008F0: 2A 2A 00 FC 10 58 02 99 20 22 93 22 00 28 11 5D |**...X.. ".".(.]|
00000900: 02 99 20 22 54 45 49 4C 4C 49 53 54 45 20 28 54 |.. "TEILLISTE (T|
00000910: 29 20 4F 44 45 52 20 47 45 53 41 4D 54 4C 49 53 |) ODER GESAMTLIS|
00000920: 54 45 20 28 47 29 3F 22 00 31 11 62 02 85 20 43 |TE (G)?".1.b.. C|
00000930: 24 00 51 11 67 02 8B 20 43 24 20 B3 B1 22 54 22 |$.Q.g.. C$ .."T"|
00000940: 20 AF 20 43 24 20 B3 B1 22 47 22 20 A7 20 36 30 | . C$ .."G" . 60|
00000950: 30 00 67 11 6C 02 8B 20 43 24 20 B2 22 54 22 20 |0.g.l.. C$ ."T" |
00000960: A7 20 89 20 38 30 30 00 72 11 71 02 8D 20 33 35 |. . 800.r.q.. 35|
00000970: 30 30 00 90 11 76 02 81 20 49 20 B2 20 31 20 A4 |00...v.. I . 1 .|
00000980: 20 41 46 5A 3A 20 8D 20 32 34 30 30 3A 82 20 49 | AFZ: . 2400:. I|
00000990: 00 9D 11 7B 02 A0 20 32 3A 89 20 32 35 00 AC 11 |...{.. 2:. 25...|
000009A0: 80 02 99 22 93 22 3B 3A 89 20 32 35 00 C4 11 BC |...".";:. 25....|
000009B0: 02 8F 20 44 41 54 45 49 20 4C 41 44 45 52 4F 55 |.. DATEI LADEROU|
000009C0: 54 49 4E 45 00 D2 11 BD 02 8D 20 37 30 35 3A 89 |TINE...... 705:.|
000009D0: 32 35 00 F1 11 C1 02 85 22 93 11 11 11 11 11 1D |25......".......|
000009E0: 1D 44 41 54 45 49 4E 41 4D 45 20 3A 22 3B 44 41 |.DATEINAME :";DA|
000009F0: 24 00 11 12 C6 02 99 22 11 11 1D 1D 46 4C 4F 50 |$......"....FLOP|
00000A00: 50 59 20 56 4F 52 42 45 52 45 49 54 45 54 20 3F |PY VORBEREITET ?|
00000A10: 22 00 2B 12 CB 02 99 22 11 11 11 1D 1D 1D 1D 1D |".+...."........|
00000A20: 1D 28 20 54 41 53 54 45 20 29 22 00 52 12 D0 02 |.( TASTE )".R...|
00000A30: 8D 20 33 31 30 30 3A 99 22 11 11 1D 1D 44 41 54 |. 3100:."....DAT|
00000A40: 45 49 20 57 49 52 44 20 47 45 4C 41 44 45 4E 20 |EI WIRD GELADEN |
00000A50: 21 22 00 62 12 D5 02 9F 20 31 2C 38 2C 30 2C 44 |!".b.... 1,8,0,D|
00000A60: 41 24 00 73 12 DA 02 84 31 2C 41 46 5A 3A 84 31 |A$.s....1,AFZ:.1|
00000A70: 2C 46 47 00 91 12 DF 02 81 20 4B B2 31 20 A4 20 |,FG...... K.1 . |
00000A80: 46 47 3A 84 31 2C 46 45 4E 24 28 4B 29 3A 82 20 |FG:.1,FEN$(K):. |
00000A90: 4B 00 BD 12 E4 02 81 20 49 B2 31 20 A4 20 41 46 |K...... I.1 . AF|
00000AA0: 5A 3A 81 20 4B B2 31 20 A4 20 46 47 3A 84 31 2C |Z:. K.1 . FG:.1,|
00000AB0: 4C 24 28 49 2C 4B 29 3A 82 20 4B 2C 49 00 C7 12 |L$(I,K):. K,I...|
00000AC0: E9 02 A0 20 31 3A 8E 00 EE 12 1F 03 8F 20 2A 2A |... 1:....... **|
00000AD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000AE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 09 |**************..|
00000AF0: 13 20 03 8F 20 54 45 49 4C 4C 49 53 54 45 20 41 |. .. TEILLISTE A|
00000B00: 55 53 44 52 55 43 4B 45 4E 00 30 13 25 03 99 22 |USDRUCKEN.0.%.."|
00000B10: 93 11 20 20 20 20 20 20 20 45 4E 54 53 43 48 45 |.. ENTSCHE|
00000B20: 49 44 55 4E 47 53 4B 52 49 54 45 52 49 45 4E 22 |IDUNGSKRITERIEN"|
00000B30: 00 60 13 2A 03 99 22 3D 3D 3D 3D 3D 3D 3D 3D 3D |.`.*.."=========|
00000B40: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000B50: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 |==============="|
00000B60: 00 86 13 2F 03 81 20 4B B2 31 20 A4 20 46 47 3A |.../.. K.1 . FG:|
00000B70: 99 46 45 4E 24 28 4B 29 2C 22 28 22 3B 4B 3B 22 |.FEN$(K),"(";K;"|
00000B80: 29 22 3A 82 20 4B 00 A3 13 34 03 5A B2 31 3A 81 |)":. K...4.Z.1:.|
00000B90: 20 4C B2 31 20 A4 20 46 47 3A 46 5A 28 4C 29 B2 | L.1 . FG:FZ(L).|
00000BA0: 30 3A 82 00 B2 13 39 03 43 24 B2 22 22 3A 85 20 |0:....9.C$."":. |
00000BB0: 43 24 00 C4 13 3E 03 8B 20 43 24 B2 22 22 20 A7 |C$...>.. C$."" .|
00000BC0: 20 38 35 35 00 E3 13 43 03 8B 20 C5 28 43 24 29 | 855...C.. .(C$)|
00000BD0: B3 31 20 B0 20 C5 28 43 24 29 B1 46 47 20 A7 20 |.1 . .(C$).FG . |
00000BE0: 38 30 35 00 01 14 48 03 99 20 46 45 4E 24 28 C5 |805...H.. FEN$(.|
00000BF0: 28 43 24 29 29 3A 46 5A 28 C5 28 43 24 29 29 B2 |(C$)):FZ(.(C$)).|
00000C00: 31 00 18 14 4D 03 5A B2 5A AA 31 3A 8B 20 5A B1 |1...M.Z.Z.1:. Z.|
00000C10: 46 47 20 A7 20 38 35 35 00 22 14 52 03 89 20 38 |FG . 855.".R.. 8|
00000C20: 32 35 00 3D 14 57 03 8F 20 42 45 44 49 4E 47 55 |25.=.W.. BEDINGU|
00000C30: 4E 47 45 4E 20 45 49 4E 4C 45 53 45 4E 00 5C 14 |NGEN EINLESEN.\.|
00000C40: 5C 03 99 22 93 11 1D 42 45 44 49 4E 47 55 4E 47 |\.."...BEDINGUNG|
00000C50: 45 4E 20 45 49 4E 47 45 42 45 4E 22 00 84 14 61 |EN EINGEBEN"...a|
00000C60: 03 99 22 11 1D 41 42 4B 55 45 52 5A 55 4E 47 45 |.."..ABKUERZUNGE|
00000C70: 4E 20 4D 49 54 20 27 2A 27 20 45 52 4C 41 55 42 |N MIT '*' ERLAUB|
00000C80: 54 20 21 22 00 B4 14 66 03 99 22 3D 3D 3D 3D 3D |T !"...f.."=====|
00000C90: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000CA0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000CB0: 3D 3D 3D 22 00 C3 14 6B 03 81 20 4C B2 31 20 A4 |==="...k.. L.1 .|
00000CC0: 20 46 47 00 D7 14 70 03 8B 20 46 5A 28 4C 29 B2 | FG...p.. FZ(L).|
00000CD0: 30 20 A7 20 38 39 30 00 F3 14 75 03 99 20 46 45 |0 . 890...u.. FE|
00000CE0: 4E 24 28 4C 29 3B 22 20 3A 22 3B 3A 85 20 45 24 |N$(L);" :";:. E$|
00000CF0: 28 4C 29 00 FB 14 7A 03 82 20 4C 00 17 15 7F 03 |(L)...z.. L.....|
00000D00: 8F 20 42 45 44 49 4E 47 54 45 20 44 52 55 43 4B |. BEDINGTE DRUCK|
00000D10: 52 4F 55 54 49 4E 45 00 22 15 84 03 8D 20 33 32 |ROUTINE.".... 32|
00000D20: 30 30 00 42 15 85 03 85 22 93 11 1D 54 41 42 45 |00.B...."...TABE|
00000D30: 4C 4C 45 4E 4B 4F 50 46 20 28 4A 2F 4E 29 22 3B |LLENKOPF (J/N)";|
00000D40: 4B 24 00 5F 15 86 03 8B 20 4B 24 B3 B1 22 4A 22 |K$._.... K$.."J"|
00000D50: 20 A7 20 9F 32 2C 34 2C 31 3A 89 20 39 30 35 00 | . .2,4,1:. 905.|
00000D60: 6A 15 88 03 8D 20 33 35 30 30 00 7A 15 89 03 81 |j.... 3500.z....|
00000D70: 20 49 B2 31 20 A4 20 41 46 5A 00 82 15 8B 03 54 | I.1 . AFZ.....T|
00000D80: B2 30 00 91 15 8E 03 81 20 4B B2 31 20 A4 20 46 |.0...... K.1 . F|
00000D90: 47 00 A6 15 93 03 8B 20 45 24 28 4B 29 B2 22 22 |G...... E$(K).""|
00000DA0: 20 A7 20 39 33 35 00 C2 15 98 03 8B 20 C9 28 45 | . 935...... .(E|
00000DB0: 24 28 4B 29 2C 31 29 B3 B1 22 2A 22 20 A7 20 39 |$(K),1).."*" . 9|
00000DC0: 32 32 00 CC 15 99 03 89 20 39 32 35 00 F3 15 9A |22...... 925....|
00000DD0: 03 8B 20 C8 28 4C 24 28 49 2C 4B 29 2C C3 28 45 |.. .(L$(I,K),.(E|
00000DE0: 24 28 4B 29 29 29 B3 B1 45 24 28 4B 29 20 A7 20 |$(K)))..E$(K) . |
00000DF0: 39 33 35 00 2C 16 9D 03 8B 20 C8 28 4C 24 28 49 |935.,.... .(L$(I|
00000E00: 2C 4B 29 2C C3 28 45 24 28 4B 29 29 AB 31 29 20 |,K),.(E$(K)).1) |
00000E10: B3 B1 20 C8 28 45 24 28 4B 29 2C C3 28 45 24 28 |.. .(E$(K),.(E$(|
00000E20: 4B 29 29 AB 31 29 20 A7 20 39 33 35 00 34 16 A2 |K)).1) . 935.4..|
00000E30: 03 54 B2 31 00 3C 16 A7 03 82 20 4B 00 4F 16 AC |.T.1.<.... K.O..|
00000E40: 03 8B 20 54 B2 31 20 A7 20 8D 20 32 34 30 30 00 |.. T.1 . . 2400.|
00000E50: 57 16 B1 03 82 20 49 00 62 16 B6 03 A0 32 3A 89 |W.... I.b....2:.|
00000E60: 32 35 00 6C 16 E8 03 90 3A 89 32 35 00 85 16 D0 |25.l....:.25....|
00000E70: 07 8F 20 45 49 4E 4C 45 53 45 4E 20 56 4F 4E 20 |.. EINLESEN VON |
00000E80: 44 41 54 45 4E 00 B4 16 D5 07 8F 20 55 45 42 45 |DATEN...... UEBE|
00000E90: 52 47 41 42 45 50 41 52 41 4D 45 54 45 52 3A 41 |RGABEPARAMETER:A|
00000EA0: 46 5A 28 41 4E 46 41 4E 47 53 2D 46 45 4C 44 5A |FZ(ANFANGS-FELDZ|
00000EB0: 41 48 4C 29 00 E7 16 DA 07 8F 20 46 47 28 46 45 |AHL)...... FG(FE|
00000EC0: 4C 44 47 52 4F 45 53 53 45 29 3B 46 45 4E 24 28 |LDGROESSE);FEN$(|
00000ED0: 35 29 28 46 45 4C 44 42 45 2D 20 5A 45 49 43 48 |5)(FELDBE- ZEICH|
00000EE0: 4E 55 4E 47 45 4E 29 00 F8 16 DF 07 99 22 93 22 |NUNGEN)......"."|
00000EF0: 3A 49 B2 41 46 5A AA 31 00 00 17 E4 07 99 20 49 |:I.AFZ.1...... I|
00000F00: 00 24 17 E9 07 81 20 4B B2 31 20 A4 20 46 47 3A |.$.... K.1 . FG:|
00000F10: 99 20 46 45 4E 24 28 4B 29 3B 3A 85 20 4C 24 28 |. FEN$(K);:. L$(|
00000F20: 49 2C 4B 29 00 3C 17 EE 07 8B 20 4C 24 28 49 2C |I,K).<.... L$(I,|
00000F30: 4B 29 B2 22 5F 22 A7 20 32 30 38 30 00 44 17 F3 |K)."_". 2080.D..|
00000F40: 07 82 20 4B 00 60 17 F8 07 99 22 91 91 91 91 91 |.. K.`....".....|
00000F50: 91 22 3B 3A 81 20 4A B2 31 20 A4 20 46 47 AA 31 |.";:. J.1 . FG.1|
00000F60: 00 95 17 FA 07 99 22 20 20 20 20 20 20 20 20 20 |......" |
00000F70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000F80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00000F90: 3B 3A 82 20 4A 00 B9 17 FD 07 99 22 93 11 22 3B |;:. J......"..";|
00000FA0: 3A 81 20 4B B2 31 20 A4 20 46 47 3A 99 20 4C 24 |:. K.1 . FG:. L$|
00000FB0: 28 49 2C 4B 29 3A 82 20 4B 00 C4 17 FF 07 45 24 |(I,K):. K.....E$|
00000FC0: B2 22 4A 22 00 E8 17 02 08 85 20 22 11 11 20 45 |."J"...... ".. E|
00000FD0: 49 4E 47 41 42 45 20 4B 4F 52 52 45 4B 54 20 28 |INGABE KORREKT (|
00000FE0: 4A 2F 4E 29 22 3B 45 24 00 0B 18 07 08 8B 20 45 |J/N)";E$...... E|
00000FF0: 24 B2 22 4A 22 A7 20 99 22 11 11 11 22 3B 3A 49 |$."J". ."...";:I|
00001000: B2 49 AA 31 3A 89 20 32 30 32 30 00 51 18 0C 08 |.I.1:. 2020.Q...|
00001010: 8B 20 45 24 B3 B1 22 4E 22 20 A7 20 99 22 91 20 |. E$.."N" . .". |
00001020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001040: 20 20 20 20 20 20 20 91 22 3B 3A 89 20 32 30 35 | .";:. 205|
00001050: 30 00 5C 18 0E 08 89 20 32 30 32 35 00 78 18 11 |0.\.... 2025.x..|
00001060: 08 99 22 91 91 91 91 91 91 22 3B 3A 81 20 4A B2 |.."......";:. J.|
00001070: 31 20 A4 20 46 47 AA 31 00 AD 18 13 08 99 22 20 |1 . FG.1......" |
00001080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000010A0: 20 20 20 20 20 20 20 22 3B 3A 82 20 4A 00 BB 18 | ";:. J...|
000010B0: 20 08 41 46 5A B2 49 AB 31 3A 8E 00 D0 18 34 08 | .AFZ.I.1:....4.|
000010C0: 8F 20 44 41 54 45 49 20 4C 4F 45 53 43 48 45 4E |. DATEI LOESCHEN|
000010D0: 00 FB 18 35 08 8F 20 55 45 42 45 52 47 41 42 45 |...5.. UEBERGABE|
000010E0: 50 41 52 41 4D 45 54 45 52 3A 20 44 4E 24 20 28 |PARAMETER: DN$ (|
000010F0: 44 41 54 45 49 2D 4E 41 4D 45 29 00 06 19 39 08 |DATEI-NAME)...9.|
00001100: 8D 20 33 30 30 30 00 14 19 3E 08 9F 20 31 35 2C |. 3000...>.. 15,|
00001110: 38 2C 31 35 00 25 19 43 08 98 31 35 2C 22 53 3A |8,15.%.C..15,"S:|
00001120: 22 AA 44 4E 24 00 2E 19 48 08 A0 20 31 35 00 34 |".DN$...H.. 15.4|
00001130: 19 4D 08 8E 00 4A 19 98 08 8F 20 44 41 54 45 49 |.M...J.... DATEI|
00001140: 20 53 50 45 49 43 48 45 52 4E 00 77 19 9D 08 8F | SPEICHERN.w....|
00001150: 20 55 45 42 45 52 47 41 42 45 50 41 52 41 4D 45 | UEBERGABEPARAME|
00001160: 54 45 52 3A 20 41 46 5A 3B 46 47 3B 44 4E 24 3B |TER: AFZ;FG;DN$;|
00001170: 46 45 4E 24 28 4B 29 00 82 19 A2 08 8D 20 33 30 |FEN$(K)...... 30|
00001180: 30 30 00 92 19 A7 08 9F 20 31 2C 38 2C 31 2C 44 |00...... 1,8,1,D|
00001190: 4E 24 00 A3 19 AC 08 98 31 2C 41 46 5A 3A 98 31 |N$......1,AFZ:.1|
000011A0: 2C 46 47 00 C1 19 B1 08 81 20 4B B2 31 20 A4 20 |,FG...... K.1 . |
000011B0: 46 47 3A 98 31 2C 46 45 4E 24 28 4B 29 3A 82 20 |FG:.1,FEN$(K):. |
000011C0: 4B 00 ED 19 B6 08 81 20 49 B2 31 20 A4 20 41 46 |K...... I.1 . AF|
000011D0: 5A 3A 81 20 4B B2 31 20 A4 20 46 47 3A 98 31 2C |Z:. K.1 . FG:.1,|
000011E0: 4C 24 28 49 2C 4B 29 3A 82 20 4B 2C 49 00 F8 19 |L$(I,K):. K,I...|
000011F0: BB 08 A0 20 31 3A 20 8E 00 0F 1A FC 08 8F 20 53 |... 1: ....... S|
00001200: 4F 52 54 49 45 52 50 52 4F 47 52 41 4D 4D 4D 00 |ORTIERPROGRAMMM.|
00001210: 30 1A 01 09 8F 20 55 45 42 45 52 47 41 42 45 50 |0.... UEBERGABEP|
00001220: 41 52 41 4D 45 54 45 52 3A 20 46 47 3B 41 46 5A |ARAMETER: FG;AFZ|
00001230: 00 48 1A 03 09 99 22 42 49 54 54 45 20 57 41 52 |.H...."BITTE WAR|
00001240: 54 45 4E 20 2E 2E 2E 22 00 5F 1A 06 09 56 5A B2 |TEN ..."._...VZ.|
00001250: 30 3A 81 20 49 B2 31 20 A4 20 41 46 5A AB 31 00 |0:. I.1 . AFZ.1.|
00001260: 80 1A 0B 09 8B 20 4C 24 28 49 2C 31 29 20 B3 20 |..... L$(I,1) . |
00001270: 4C 24 28 49 AA 31 2C 31 29 20 A7 20 32 33 33 35 |L$(I.1,1) . 2335|
00001280: 00 B7 1A 10 09 8B 20 4C 24 28 49 2C 31 29 20 B2 |...... L$(I,1) .|
00001290: 20 4C 24 28 49 AA 31 2C 31 29 20 AF 20 4C 24 28 | L$(I.1,1) . L$(|
000012A0: 49 2C 32 29 20 B3 20 4C 24 28 49 AA 31 2C 32 29 |I,2) . L$(I.1,2)|
000012B0: 20 A7 20 32 33 33 35 00 F4 1A 15 09 81 20 4B B2 | . 2335...... K.|
000012C0: 31 20 A4 20 46 47 3A 48 24 B2 4C 24 28 49 2C 4B |1 . FG:H$.L$(I,K|
000012D0: 29 3A 4C 24 28 49 2C 4B 29 B2 4C 24 28 49 AA 31 |):L$(I,K).L$(I.1|
000012E0: 2C 4B 29 3A 4C 24 28 49 AA 31 2C 4B 29 B2 48 24 |,K):L$(I.1,K).H$|
000012F0: 3A 82 20 4B 00 00 1B 1A 09 56 5A B2 56 5A AA 31 |:. K.....VZ.VZ.1|
00001300: 00 08 1B 1F 09 82 20 49 00 1C 1B 24 09 8B 20 56 |...... I...$.. V|
00001310: 5A 20 B1 20 30 20 A7 20 32 33 31 30 00 22 1B 29 |Z . 0 . 2310.".)|
00001320: 09 8E 00 35 1B 60 09 8F 20 44 52 55 43 4B 52 4F |...5.`.. DRUCKRO|
00001330: 55 54 49 4E 45 00 46 1B 6A 09 81 20 4B B2 31 20 |UTINE.F.j.. K.1 |
00001340: A4 20 46 47 AB 31 00 65 1B 6F 09 98 32 2C C8 28 |. FG.1.e.o..2,.(|
00001350: 4C 24 28 49 2C 4B 29 2C 31 37 29 3B C7 28 39 29 |L$(I,K),17);.(9)|
00001360: 3B 22 2A 22 3B 00 6D 1B 74 09 82 20 4B 00 7D 1B |;"*";.m.t.. K.}.|
00001370: 79 09 98 32 2C 4C 24 28 49 2C 46 47 29 00 83 1B |y..2,L$(I,FG)...|
00001380: 7E 09 8E 00 9B 1B C4 09 8F 20 44 41 54 45 4E 53 |~........ DATENS|
00001390: 41 54 5A 20 41 45 4E 44 45 52 4E 00 DC 1B C9 09 |ATZ AENDERN.....|
000013A0: 8F 20 55 45 42 45 52 47 41 42 45 50 41 52 41 4D |. UEBERGABEPARAM|
000013B0: 45 54 45 52 3A 20 41 4E 28 41 4B 54 55 45 4C 4C |ETER: AN(AKTUELL|
000013C0: 45 20 44 41 54 45 4E 53 41 54 5A 4E 55 4D 4D 45 |E DATENSATZNUMME|
000013D0: 52 29 3B 46 47 3B 46 4E 24 28 35 29 00 FF 1B CE |R);FG;FN$(5)....|
000013E0: 09 99 22 93 20 20 20 20 20 20 20 20 41 4C 54 22 |..". ALT"|
000013F0: 2C 22 D9 20 20 20 20 20 20 20 20 4E 45 55 22 00 |,". NEU".|
00001400: 2F 1C D3 09 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |/...."----------|
00001410: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001420: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 |--------------".|
00001430: 4D 1C D8 09 81 20 4B B2 31 20 A4 20 46 47 3A 99 |M.... K.1 . FG:.|
00001440: 20 4C 24 28 41 4E 2C 4B 29 3A 82 20 4B 00 6C 1C | L$(AN,K):. K.l.|
00001450: DD 09 81 20 4B B2 31 20 A4 20 46 47 3A 99 20 22 |... K.1 . FG:. "|
00001460: 91 22 3B 3A 82 20 4B 3A 99 2C 2C 3B 00 8D 1C E2 |.";:. K:.,,;....|
00001470: 09 81 20 4B B2 31 20 A4 20 46 47 3A 85 20 4C 24 |.. K.1 . FG:. L$|
00001480: 28 41 4E 2C 4B 29 3A 99 2C 2C 3A 82 4B 00 93 1C |(AN,K):.,,:.K...|
00001490: E7 09 8E 00 AD 1C B8 0B 8F 20 56 4F 52 42 45 52 |......... VORBER|
000014A0: 45 49 54 55 4E 47 20 46 4C 4F 50 50 59 00 CF 1C |EITUNG FLOPPY...|
000014B0: BD 0B 99 22 93 11 11 11 46 4C 4F 50 50 59 20 45 |..."....FLOPPY E|
000014C0: 49 4E 53 43 48 41 4C 54 45 4E 20 55 4E 44 22 00 |INSCHALTEN UND".|
000014D0: EA 1C C2 0B 99 22 11 44 49 53 4B 45 54 54 45 20 |.....".DISKETTE |
000014E0: 45 49 4E 4C 45 47 45 4E 11 22 00 FA 1C CC 0B 99 |EINLEGEN."......|
000014F0: 22 46 45 52 54 49 47 20 3F 22 00 08 1D D1 0B 8D |"FERTIG ?"......|
00001500: 20 33 31 30 30 3A 20 8E 00 26 1D 1C 0C 8F 20 41 | 3100: ..&.... A|
00001510: 42 46 52 41 47 45 20 2D 20 57 41 52 54 45 53 43 |BFRAGE - WARTESC|
00001520: 48 4C 45 49 46 45 00 3C 1D 21 0C A1 20 43 24 3A |HLEIFE.<.!.. C$:|
00001530: 8B 20 43 24 B2 22 22 A7 33 31 30 35 00 42 1D 26 |. C$."".3105.B.&|
00001540: 0C 8E 00 5D 1D 80 0C 8F 20 56 4F 52 42 45 52 45 |...].... VORBERE|
00001550: 49 54 55 4E 47 20 44 52 55 43 4B 45 52 00 A4 1D |ITUNG DRUCKER...|
00001560: 85 0C 8F 20 55 45 42 45 52 47 41 42 45 50 41 52 |... UEBERGABEPAR|
00001570: 41 4D 45 54 45 52 3A 20 53 50 28 53 50 41 4C 54 |AMETER: SP(SPALT|
00001580: 45 4E 2D 5A 41 48 4C 29 3B 5A 56 28 5A 45 49 4C |EN-ZAHL);ZV(ZEIL|
00001590: 45 4E 56 4F 52 53 43 48 55 42 29 3B 4B 42 28 49 |ENVORSCHUB);KB(I|
000015A0: 2F 49 49 29 00 B8 1D 8A 0C 85 22 93 11 42 52 45 |/II)......"..BRE|
000015B0: 49 54 45 20 22 3B 53 50 00 D3 1D 8C 0C 85 22 11 |ITE ";SP......".|
000015C0: 5A 45 49 4C 45 4E 56 4F 52 53 43 48 55 42 20 22 |ZEILENVORSCHUB "|
000015D0: 3B 5A 56 00 E3 1D 8F 0C 85 22 11 4B 42 20 22 3B |;ZV......".KB ";|
000015E0: 4B 42 24 00 F4 1D 94 0C 99 22 11 46 45 52 54 49 |KB$......".FERTI|
000015F0: 47 20 3F 22 00 01 1E 99 0C 8D 20 33 31 30 30 3A |G ?"...... 3100:|
00001600: 8E 00 27 1E E4 0C 8F 20 44 41 54 45 49 20 4C 41 |..'.... DATEI LA|
00001610: 44 45 4E 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |DEN ************|
00001620: 2A 2A 2A 2A 2A 2A 2A 00 36 1E E9 0C 9F 31 2C 38 |*******.6....1,8|
00001630: 2C 30 2C 44 4E 24 00 47 1E EE 0C 84 31 2C 41 46 |,0,DN$.G....1,AF|
00001640: 5A 3A 84 31 2C 46 47 00 64 1E F3 0C 81 20 4B B2 |Z:.1,FG.d.... K.|
00001650: 31 A4 20 46 47 3A 84 31 2C 46 45 4E 24 28 4B 29 |1. FG:.1,FEN$(K)|
00001660: 3A 82 20 4B 00 8D 1E F8 0C 81 20 49 B2 31 A4 20 |:. K...... I.1. |
00001670: 41 46 5A 3A 81 20 4B B2 31 A4 46 47 3A 84 31 2C |AFZ:. K.1.FG:.1,|
00001680: 4C 24 28 49 2C 4B 29 3A 82 20 4B 2C 49 00 96 1E |L$(I,K):. K,I...|
00001690: FD 0C A0 31 3A 8E 00 BC 1E 47 0D 8F 20 2A 2A 2A |...1:....G.. ***|
000016A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000016B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 09 1F 48 |************...H|
000016C0: 0D 8F 20 55 4D 52 45 43 48 4E 55 4E 47 20 56 4F |.. UMRECHNUNG VO|
000016D0: 4E 20 45 49 4E 53 50 52 55 4E 47 42 55 43 48 53 |N EINSPRUNGBUCHS|
000016E0: 54 2E 20 20 20 20 20 20 20 20 20 49 4E 20 45 49 |T. IN EI|
000016F0: 4E 53 50 52 55 4E 47 53 54 45 4C 4C 45 20 49 20 |NSPRUNGSTELLE I |
00001700: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 19 1F 4D 0D 81 20 |*********...M.. |
00001710: 49 B2 31 20 A4 20 41 46 5A 00 32 1F 52 0D 8B 20 |I.1 . AFZ.2.R.. |
00001720: 45 42 24 20 B1 20 4C 24 28 49 2C 31 29 A7 20 82 |EB$ . L$(I,1). .|
00001730: 20 49 00 38 1F 57 0D 8E 00 4B 1F AC 0D 8F 20 54 | I.8.W...K.... T|
00001740: 41 42 45 4C 4C 45 4E 4B 4F 50 46 00 71 1F B1 0D |ABELLENKOPF.q...|
00001750: 8F 20 55 45 42 45 52 47 41 42 45 50 41 52 41 4D |. UEBERGABEPARAM|
00001760: 45 54 45 52 3A 20 46 47 3B 46 45 4E 24 28 46 47 |ETER: FG;FEN$(FG|
00001770: 29 00 8A 1F B6 0D 99 22 93 11 20 42 52 45 49 54 |)......".. BREIT|
00001780: 45 20 3A 22 3B 46 47 AC 31 36 00 A4 1F BB 0D 99 |E :";FG.16......|
00001790: 22 11 1D 5A 45 49 4C 45 4E 56 4F 52 53 43 48 55 |"..ZEILENVORSCHU|
000017A0: 42 20 31 22 00 BF 1F C0 0D 99 22 11 1D 4B 42 20 |B 1"......"..KB |
000017B0: 49 49 20 45 49 4E 20 21 20 21 20 21 20 21 22 00 |II EIN ! ! ! !".|
000017C0: D9 1F C5 0D 99 22 11 1D 46 45 52 54 49 47 20 3F |....."..FERTIG ?|
000017D0: 22 3B 3A 8D 20 33 31 30 30 00 E5 1F C7 0D 9F 20 |";:. 3100...... |
000017E0: 32 2C 34 2C 31 00 0D 20 CA 0D 81 20 4B 20 B2 20 |2,4,1.. ... K . |
000017F0: 31 20 A4 20 46 47 AB 31 3A 41 24 B2 22 20 20 20 |1 . FG.1:A$." |
00001800: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 32 20 | ".2 |
00001810: CB 0D 8B 20 4B B2 31 20 A7 20 41 24 B2 22 20 20 |... K.1 . A$." |
00001820: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001830: 20 22 00 4C 20 CC 0D 8B 20 4B B2 34 20 A7 20 41 | ".L ... K.4 . A|
00001840: 24 B2 22 20 20 20 20 20 20 20 20 22 00 66 20 CD |$." ".f .|
00001850: 0D 8B 20 4B B2 35 20 A7 20 41 24 B2 22 20 20 20 |.. K.5 . A$." |
00001860: 20 20 20 20 20 22 00 97 20 CF 0D 98 32 2C 46 45 | ".. ...2,FE|
00001870: 4E 24 28 4B 29 3B C8 28 41 24 2C C3 28 41 24 29 |N$(K);.(A$,.(A$)|
00001880: AB C3 28 46 45 4E 24 28 4B 29 29 29 3B C7 28 31 |..(FEN$(K)));.(1|
00001890: 31 29 3B 22 2A 22 3B 00 AB 20 D4 0D 82 20 4B 3A |1);"*";.. ... K:|
000018A0: 98 32 2C 46 45 4E 24 28 46 47 29 00 CE 20 D9 0D |.2,FEN$(FG).. ..|
000018B0: 81 20 4C 20 B2 20 31 20 A4 20 46 47 AC 31 36 3A |. L . 1 . FG.16:|
000018C0: 98 32 2C 22 3D 22 3B 3A 82 20 4C 3A 98 32 00 D4 |.2,"=";:. L:.2..|
000018D0: 20 DE 0D 8E 00 00 00 | ...... |
..*.... HAUPTPROGRAMM ******************
**.O...."..BITTE 'SHIFT C=' DRUECKEN !".
Z.... 3100.J...F1.300:F2.5...... "..MAXI
MALE FELDGROESSE(A/B)";F1,F2...... L$(F1
,F2).M...."...DATEI ERSTELLEN
(1)"......". DATEI ERWEITERN
(2)"...#..". DATEI EDITIEREN
(3)".E.(..". DATEI SORTIEREN
(4)".M.-..". DATEI SPEICHERN
(5)"...2..". DATEI AUSDRUCKEN
(6)"...7..". DATEI LADEN
(7)"...<..". PROGRAMMSTOP
(8)"...A.."....... BITTE WAEHLEN
!";W.7.F.. W . 100,200,300,400,500,600,7
00,1000._.C.. **************************
*******...D.."ANZAHL DER FELDEINTRAGUNGE
N";...I.. FG:....N.. K . 1 . FG...S.."FE
LDBEZEICHNUNG";K;.G.X.. FEN$(K).O.}.. K.
....AFZ . 0:. 2000:.25...G.. ***********
*********************...H.C$."J".B.I..".
.DATEI BEREITS GELADEN ? (J/N)";C$.U.M..
C$."J" . 230.X.R.. C$."N" . . 3000:. 32
00:. 230...W.. 200...... 2000:. 25...,..
"...DATEI BEREITS GELADEN? (J/N)";.F.1.
C$."J"...6.. C$:. C$."J" . .".";:. 320..
.;.. C$."N". . 3000:. 705:. 320...>.. 30
0...@.EB$."".U.A.."..EINSPRUNGBUCHSTABE"
;EB$:. EB$ . "" . I . 1:. 325.`.B.. 3400
...E.."........................";:."AEND
ERUNG MIT 'J' INITIIEREN"...J.."....";I.
..O.."==================================
======"...T.. K . 1 . FG:."
";L$(I,K):. K.>.Y.. "===================
=====================".H.Z.."........MIT
'_' INS MENUE ZURUECK!".S.[.C$."N"..\.
.".";C$...^.. C$ . "J" . 370...`.. C$."_
" .25.E.C.I . I.1:. I.AFZ . .".";:.25.O.
H.. 325.U.M.....R.."..";:. K.1 . FG:T$ .
""...W.. FEN$(K);:. T$./.X.. T$."" . ."
.";FEN$(K),L$(I,K):.380.@.Z.L$(I,K) . T$
.H.|.. K.Q....325.X.... ****************
****************...... ***SORTIERROUTINE
***************...... 2300.Q.... ***TONE
RZEUGUNG*****************.....SI.54272:F
L.SI:FH.SI.1:W.SI.4:A.SI.5:H.SI.6:L.SI.2
4......L,15......A,16.9.-....H,4.16.4.?.
...FH,29:.FL,69.I....W,17......"........
..........SORTIEREN BEENDET ! ( TASTE )
...... 3100......W,0:.A,0:.H,0...B..".":
. 25.S.... *****************************
***...... ***SAVE-ROUTINE***************
**...... ".".4.... "...BESTEHENDE ALTE D
ATEI LOESCHEN?(J/N)".=.... E$.T.... E$."
J" . . "...ALTER DATEINAME";DN$:. 2100:.
535...... E$ . "N" . 535...... ".":. 51
5...... "..NEUER DATEINAME:";:. DN$.K...
. 2200:. 25...W.. **********************
**********...X.. ".".(.].. "TEILLISTE (T
) ODER GESAMTLISTE (G)?".1.B.. C$.Q.G..
C$ .."T" . C$ .."G" . 600.G.L.. C$ ."T"
. . 800.R.Q.. 3500...V.. I . 1 . AFZ: .
2400:. I...{. 2:. 25......".";:. 25.D..
.. DATEI LADEROUTINE.R.... 705:.25...A..
"........DATEINAME :";DA$...F.."....FLOP
PY VORBEREITET ?".+.K..".........( TASTE
)".R.P.. 3100:."....DATEI WIRD GELADEN
!".B.U.. 1,8,0,DA$.S.Z..1,AFZ:.1,FG.....
. K.1 . FG:.1,FEN$(K):. K...... I.1 . AF
Z:. K.1 . FG:.1,L$(I,K):. K,I.G... 1:..
..... ********************************..
. .. TEILLISTE AUSDRUCKEN.0.%.."..
ENTSCHEIDUNGSKRITERIEN".`.*.."=========
===============================".../.. K
.1 . FG:.FEN$(K),"(";K;")":. K...4.Z.1:.
L.1 . FG:FZ(L).0:....9.C$."":. C$.D.>..
C$."" . 855...C.. E(C$).1 . E(C$).FG .
805...H.. FEN$(E(C$)):FZ(E(C$)).1...M.Z.
Z.1:. Z.FG . 855.".R.. 825.=.W.. BEDINGU
NGEN EINLESEN.\.\.."...BEDINGUNGEN EINGE
BEN"...A.."..ABKUERZUNGEN MIT '*' ERLAUB
T !"...F.."=============================
===========".C.K.. L.1 . FG.W.P.. FZ(L).
0 . 890...U.. FEN$(L);" :";:. E$(L)...Z.
. L..... BEDINGTE DRUCKROUTINE.".... 32
00.B...."...TABELLENKOPF (J/N)";K$._....
K$.."J" . .2,4,1:. 905.J.... 3500.Z....
I.1 . AFZ.....T.0...... K.1 . FG......
E$(K)."" . 935.B.... I(E$(K),1).."*" . 9
22.L.... 925...... H(L$(I,K),C(E$(K)))..
E$(K) . 935.,.... H(L$(I,K),C(E$(K)).1)
.. H(E$(K),C(E$(K)).1) . 935.4...T.1.<..
.. K.O.... T.1 . . 2400.W.... I.B... 2:.
25.L....:.25...P.. EINLESEN VON DATEN...
U.. UEBERGABEPARAMETER:AFZ(ANFANGS-FELDZ
AHL)...Z.. FG(FELDGROESSE);FEN$(5)(FELDB
E- ZEICHNUNGEN)......".":I.AFZ.1...... I
.$.... K.1 . FG:. FEN$(K);:. L$(I,K).<..
.. L$(I,K)."_". 2080.D.... K.`....".....
.";:. J.1 . FG.1......"
";:. J......"..";
:. K.1 . FG:. L$(I,K):. K.D...E$."J"....
.. ".. EINGABE KORREKT (J/N)";E$...... E
$."J". ."...";:I.I.1:. 2020.Q.... E$.."N
" . .".
.";:. 2050.\.... 2025.X....".....
.";:. J.1 . FG.1......"
";:. J... .AFZ.I.
1:..P.4.. DATEI LOESCHEN...5.. UEBERGABE
PARAMETER: DN$ (DATEI-NAME)...9.. 3000..
.>.. 15,8,15.%.C..15,"S:".DN$...H. 15.4
.M...J.... DATEI SPEICHERN.W.... UEBERGA
BEPARAMETER: AFZ;FG;DN$;FEN$(K)...... 30
00...... 1,8,1,DN$......1,AFZ:.1,FG.A...
. K.1 . FG:.1,FEN$(K):. K...... I.1 . AF
Z:. K.1 . FG:.1,L$(I,K):. K,I..... 1: .
...... SORTIERPROGRAMMM.0.... UEBERGABEP
ARAMETER: FG;AFZ.H...."BITTE WARTEN ..."
._...VZ.0:. I.1 . AFZ.1...... L$(I,1) .
L$(I.1,1) . 2335...... L$(I,1) . L$(I.1,
1) . L$(I,2) . L$(I.1,2) . 2335...... K.
1 . FG:H$.L$(I,K):L$(I,K).L$(I.1,K):L$(I
.1,K).H$:. K.....VZ.VZ.1...... I...$.. V
Z . 0 . 2310.".)...5.`.. DRUCKROUTINE.F.
J.. K.1 . FG.1.E.O..2,H(L$(I,K),17);G(9)
;"*";.M.T.. K.}.Y..2,L$(I,FG)...~.....D.
. DATENSATZ AENDERN...I.. UEBERGABEPARAM
ETER: AN(AKTUELLE DATENSATZNUMMER);FG;FN
$(5)...N..". ALT","Y NEU".
/.S.."----------------------------------
------".M.X.. K.1 . FG:. L$(AN,K):. K.L.
... K.1 . FG:. ".";:. K:.,,;...... K.1 .
FG:. L$(AN,K):.,,:.K............ VORBER
EITUNG FLOPPY.O...."....FLOPPY EINSCHALT
EN UND"...B..".DISKETTE EINLEGEN."...L..
"FERTIG ?"...Q.. 3100: ..&.... ABFRAGE -
WARTESCHLEIFE.<.!.. C$:. C$."".3105.B.&
...].... VORBEREITUNG DRUCKER...... UEBE
RGABEPARAMETER: SP(SPALTEN-ZAHL);ZV(ZEIL
ENVORSCHUB);KB(I/II)......"..BREITE ";SP
.S....".ZEILENVORSCHUB ";ZV......".KB ";
KB$......".FERTIG ?"...... 3100:..'....
DATEI LADEN *******************.6....1,8
,0,DN$.G....1,AFZ:.1,FG.D.... K.1. FG:.1
,FEN$(K):. K...... I.1. AFZ:. K.1.FG:.1,
L$(I,K):. K,I..... 1:....G.. ***********
********************...H.. UMRECHNUNG VO
N EINSPRUNGBUCHST. IN EINSPRUNGS
TELLE I *********...M.. I.1 . AFZ.2.R..
EB$ . L$(I,1). . I.8.W...K.... TABELLENK
OPF.Q.... UEBERGABEPARAMETER: FG;FEN$(FG
)......".. BREITE :";FG.16......"..ZEILE
NVORSCHUB 1"......"..KB II EIN ! ! ! !".
Y.E.."..FERTIG ?";:. 3100...G.. 2,4,1..
J.. K . 1 . FG.1:A$." ".2
K.. K.1 . A$." ".L L..
K.4 . A$." ".F M.. K.5 . A$."
".. O..2,FEN$(K);H(A$,C(A$).C(FEN$(
K)));G(11);"*";.. T.. K:.2,FEN$(FG).N Y.
. L . 1 . FG.16:.2,"=";:. L:.2.T ......
> CLICK IMAGE PREVIEW FOR FULL MODAL