DATEIKASTEN 128
FILE INFORMATION
FILENAME(S): DATEIKASTEN 128
FILE TYPE(S): PRG
FILE SIZE: 4.1K
FIRST SEEN: 2025-11-30 21:06:45
APPEARS ON: 1 disk(s)
FILE HASH
c26cd01f82b5651250603e6aedad8ca653c46b495e2df22074e973d1060cd573
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SPEZIAL 128 DSK1 | DATEIKASTEN 128 | PRG | DuncanTwain | 5 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 27 1C 0A 00 8F 20 44 41 54 45 49 4B 41 53 |..'.... DATEIKAS|
00000010: 54 45 4E 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |TEN ============|
00000020: 3D 3D 3D 3D 31 32 38 00 4D 1C 14 00 8F 20 28 50 |====128.M.... (P|
00000030: 29 20 30 31 2F 38 36 20 43 4F 4D 4D 4F 44 4F 52 |) 01/86 COMMODOR|
00000040: 45 2D 57 45 4C 54 20 20 20 20 3D 3D 3D 00 73 1C |E-WELT ===.s.|
00000050: 1E 00 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |... ============|
00000060: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000070: 3D 3D 3D 00 99 1C 28 00 8F 20 28 43 29 20 30 31 |===...(.. (C) 01|
00000080: 2F 38 36 20 42 59 20 20 20 20 20 20 20 20 20 20 |/86 BY |
00000090: 20 20 20 20 20 20 3D 3D 3D 00 BF 1C 32 00 8F 20 | ===...2.. |
000000A0: 48 41 52 41 4C 44 20 42 45 49 4C 45 52 20 20 20 |HARALD BEILER |
000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 3D 3D 3D 00 | ===.|
000000C0: E5 1C 3C 00 8F 20 20 20 20 20 20 20 20 20 20 20 |..<.. |
000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000E0: 20 20 3D 3D 3D 00 0B 1D 46 00 8F 20 56 45 52 53 | ===...F.. VERS|
000000F0: 49 4F 4E 20 37 2E 30 20 34 30 5A 2F 38 30 5A 2F |ION 7.0 40Z/80Z/|
00000100: 41 53 43 49 49 20 20 20 3D 3D 3D 00 31 1D 50 00 |ASCII ===.1.P.|
00000110: 8F 20 43 2D 31 32 38 20 2B 20 31 35 34 31 2F 31 |. C-128 + 1541/1|
00000120: 35 37 31 2B 44 52 55 43 4B 45 52 20 20 20 3D 3D |571+DRUCKER ==|
00000130: 3D 00 57 1D 5A 00 8F 20 3D 3D 3D 3D 3D 3D 3D 3D |=.W.Z.. ========|
00000140: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000150: 3D 3D 3D 3D 3D 3D 3D 00 71 1D 64 00 53 4C 24 B2 |=======.q.d.SL$.|
00000160: C7 28 30 31 34 29 3A 44 43 24 B2 C7 28 30 31 31 |.(014):DC$..(011|
00000170: 29 00 8B 1D 65 00 52 4E 24 B2 C7 28 30 31 38 29 |)...e.RN$..(018)|
00000180: 3A 52 46 24 B2 C7 28 31 34 36 29 00 A5 1D 66 00 |:RF$..(146)...f.|
00000190: 5A 37 24 B2 C7 28 31 37 36 29 3A 5A 36 24 B2 C7 |Z7$..(176):Z6$..|
000001A0: 28 31 37 34 29 00 BF 1D 67 00 4D 31 24 B2 C7 28 |(174)...g.M1$..(|
000001B0: 31 32 35 29 3A 5A 35 24 B2 C7 28 31 37 33 29 00 |125):Z5$..(173).|
000001C0: D9 1D 68 00 5A 42 24 B2 C7 28 31 38 39 29 3A 48 |..h.ZB$..(189):H|
000001D0: 45 24 B2 C7 28 30 31 39 29 00 F3 1D 69 00 5A 31 |E$..(019)...i.Z1|
000001E0: 24 B2 C7 28 30 39 36 29 3A 53 31 24 B2 C7 28 30 |$..(096):S1$..(0|
000001F0: 33 32 29 00 0D 1E 6A 00 45 45 24 B2 C7 28 30 32 |32)...j.EE$..(02|
00000200: 37 29 3A 42 45 24 B2 C7 28 30 36 39 29 00 29 1E |7):BE$..(069).).|
00000210: 90 01 8F 20 56 41 52 49 41 42 4C 45 4E 2D 44 45 |... VARIABLEN-DE|
00000220: 46 49 4E 49 4E 54 49 4F 4E 00 3F 1E 9A 01 41 5A |FININTION.?...AZ|
00000230: B2 30 3A 5A 44 B2 38 30 30 3A 4D 44 B2 31 30 00 |.0:ZD.800:MD.10.|
00000240: 4F 1E A4 01 86 45 47 24 28 5A 44 2C 4D 44 29 00 |O....EG$(ZD,MD).|
00000250: 74 1E AE 01 49 B2 30 3A EB FC 49 B2 4D 44 3A 45 |t...I.0:..I.MD:E|
00000260: 47 24 28 30 2C 49 29 B2 C4 28 49 29 3A 49 B2 49 |G$(0,I)..(I):I.I|
00000270: AA 31 3A EC 00 80 1E B8 01 8F 20 4D 45 4E 55 45 |.1:....... MENUE|
00000280: 00 A1 1E C2 01 E7 30 2C 31 3A E7 34 2C 31 3A E7 |......0,1:.4,1:.|
00000290: 35 2C 34 3A 99 53 4C 24 44 43 24 45 45 24 42 45 |5,4:.SL$DC$EE$BE|
000002A0: 24 00 E5 1E CC 01 E8 3A 8D 36 32 30 3A E0 31 2C |$......:.620:.1,|
000002B0: 37 2C 35 2C 22 20 20 C4 20 C1 20 D4 20 C5 20 C9 |7,5," . . . . .|
000002C0: 20 CB 20 C1 20 D3 A0 D4 A0 C5 A0 CE 20 20 22 2C | . . ....... ",|
000002D0: 31 3A E0 31 2C 31 33 2C 38 2C 22 31 39 38 36 20 |1:.1,13,8,"1986 |
000002E0: C8 41 C2 45 22 00 1B 1F D6 01 E0 31 2C 31 2C 31 |.A.E"......1,1,1|
000002F0: 30 2C 22 C4 49 45 20 C4 41 54 45 4E 46 45 4C 44 |0,".IE .ATENFELD|
00000300: 45 52 20 20 49 4D 20 20 CC 49 53 54 49 4E 47 20 |ER IM .ISTING |
00000310: 20 53 4F 4C 4C 54 45 4E 22 3A 99 00 4B 1F E0 01 | SOLLTEN":..K...|
00000320: 99 A3 31 29 22 56 4F 52 48 45 52 20 4E 41 43 48 |..1)"VORHER NACH|
00000330: 20 45 49 47 45 4E 45 4E 20 D7 55 45 4E 53 43 48 | EIGENEN .UENSCH|
00000340: 45 4E 20 42 45 4E 41 4E 4E 54 22 00 7B 1F EA 01 |EN BENANNT".{...|
00000350: 99 A3 31 29 22 57 45 52 44 45 4E 2E 20 C4 41 4E |..1)"WERDEN. .AN|
00000360: 4E 20 D0 D2 C7 2E 20 45 52 4E 45 55 54 20 41 42 |N .... ERNEUT AB|
00000370: 53 50 45 49 43 48 45 52 4E 2E 22 00 AA 1F F4 01 |SPEICHERN.".....|
00000380: E0 31 2C 35 2C 31 35 2C 22 C4 41 54 45 4E 46 45 |.1,5,15,".ATENFE|
00000390: 4C 44 45 52 20 44 45 46 49 4E 49 45 52 45 4E 20 |LDER DEFINIEREN |
000003A0: 3F 20 28 4A 2F 4E 29 22 2C 31 00 B3 1F FE 01 A1 |? (J/N)",1......|
000003B0: F9 51 24 00 CC 1F 08 02 8B 51 24 B2 22 4A 22 A7 |.Q$......Q$."J".|
000003C0: 9B 31 35 30 30 AB 31 36 30 30 3A 80 00 08 20 12 |.1500.1600:... .|
000003D0: 02 E8 3A 99 52 4E 24 22 D3 41 45 54 5A 45 20 42 |..:.RN$".AETZE B|
000003E0: 49 53 48 45 52 3A 22 52 46 24 3B 41 5A 3B A3 32 |ISHER:"RF$;AZ;.2|
000003F0: 30 29 52 4E 24 22 20 C7 52 45 4E 5A 45 3A 20 22 |0)RN$" .RENZE: "|
00000400: 52 46 24 3B 5A 44 3A 99 00 39 20 1C 02 99 22 49 |RF$;ZD:..9 ..."I|
00000410: 4E 50 55 54 20 3D 20 31 22 A3 31 32 29 22 4F 55 |NPUT = 1".12)"OU|
00000420: 54 50 55 54 20 3D 20 32 22 A3 32 35 29 22 43 48 |TPUT = 2".25)"CH|
00000430: 41 4E 47 45 20 3D 20 33 22 00 6A 20 26 02 99 22 |ANGE = 3".j &.."|
00000440: 4C 4F 41 44 20 20 3D 20 34 22 A3 31 32 29 22 53 |LOAD = 4".12)"S|
00000450: 41 56 45 20 20 20 3D 20 35 22 A3 32 35 29 22 53 |AVE = 5".25)"S|
00000460: 45 41 52 43 48 20 3D 20 36 22 00 9B 20 30 02 99 |EARCH = 6".. 0..|
00000470: 22 53 4F 52 54 20 20 3D 20 37 22 A3 31 32 29 22 |"SORT = 7".12)"|
00000480: 45 52 41 53 45 20 20 3D 20 38 22 A3 32 35 29 22 |ERASE = 8".25)"|
00000490: 48 41 52 44 43 50 59 3D 20 39 22 00 B5 20 3A 02 |HARDCPY= 9".. :.|
000004A0: 99 3A 99 A3 31 30 29 22 45 4E 44 2E 50 52 47 20 |.:..10)"END.PRG |
000004B0: 3D 20 31 30 22 00 D6 20 44 02 49 B2 31 3A EB FC |= 10".. D.I.1:..|
000004C0: 49 B2 33 39 3A 99 C7 28 39 36 29 3B 3A 49 B2 49 |I.39:..(96);:I.I|
000004D0: AA 31 3A EC 3A 99 00 F6 20 4E 02 97 32 31 2C 36 |.1:.:... N..21,6|
000004E0: 34 3A 85 22 CF 52 44 45 52 3A 20 22 3B 4E 3A 97 |4:.".RDER: ";N:.|
000004F0: 32 31 2C 30 3A 99 00 08 21 58 02 8B 4E B3 31 B0 |21,0:...!X..N.1.|
00000500: 4E B1 31 30 A7 34 34 30 00 3C 21 62 02 91 4E 89 |N.10.440.<!b..N.|
00000510: 36 35 30 2C 37 30 30 2C 38 31 30 2C 38 37 30 2C |650,700,810,870,|
00000520: 39 33 30 2C 31 30 30 30 2C 31 31 36 30 2C 31 32 |930,1000,1160,12|
00000530: 38 30 2C 31 33 37 30 2C 31 34 35 30 00 5D 21 6C |80,1370,1450.]!l|
00000540: 02 99 5A 37 24 3B 3A 81 49 B2 30 A4 33 36 3A 99 |..Z7$;:.I.0.36:.|
00000550: C7 28 39 36 29 3B 3A 82 3A 99 5A 36 24 00 77 21 |.(96);:.:.Z6$.w!|
00000560: 76 02 81 49 B2 30 A4 31 31 3A 99 4D 31 24 A3 33 |v..I.0.11:.M1$.3|
00000570: 38 29 4D 31 24 3A 82 00 9B 21 80 02 99 5A 35 24 |8)M1$:...!...Z5$|
00000580: 3B 3A 81 49 B2 30 A4 33 36 3A 99 5A 31 24 3B 3A |;:.I.0.36:.Z1$;:|
00000590: 82 3A 99 5A 42 24 48 45 24 3A 8E 00 A7 21 8A 02 |.:.ZB$HE$:...!..|
000005A0: 8F 20 49 4E 50 55 54 00 BF 21 94 02 41 5A B2 41 |. INPUT..!..AZ.A|
000005B0: 5A AA 31 3A 4E 52 B2 41 5A 3A 8D 31 35 30 30 00 |Z.1:NR.AZ:.1500.|
000005C0: F6 21 9E 02 99 48 45 24 3B 3A 81 4B B2 31 A4 4D |.!...HE$;:.K.1.M|
000005D0: 44 3A 99 A3 31 34 29 3B 3A 97 32 31 2C 36 34 3A |D:..14);:.21,64:|
000005E0: 85 45 47 24 28 4E 52 2C 4B 29 3A 97 32 31 2C 30 |.EG$(NR,K):.21,0|
000005F0: 3A 99 3A 82 3A 99 00 2C 22 A8 02 99 52 4E 24 22 |:.:.:..,"...RN$"|
00000600: 57 45 49 54 45 52 45 52 20 D3 41 54 5A 20 28 4A |WEITERER .ATZ (J|
00000610: 2F 4E 29 22 52 46 24 3B 3A 97 32 31 2C 36 34 3A |/N)"RF$;:.21,64:|
00000620: 85 58 58 24 3A 97 32 31 2C 30 3A 99 00 44 22 B2 |.XX$:.21,0:..D".|
00000630: 02 8B 58 58 24 B2 22 4A 22 A7 36 35 30 3A D5 3A |..XX$."J".650:.:|
00000640: 89 35 33 30 00 51 22 BC 02 8F 20 4F 55 54 50 55 |.530.Q"... OUTPU|
00000650: 54 00 65 22 C6 02 E8 3A 85 22 D3 41 54 5A 4E 52 |T.e"...:.".ATZNR|
00000660: 2E 22 3B 4E 52 00 74 22 D0 02 8B 4E 52 B3 31 A7 |.";NR.t"...NR.1.|
00000670: 4E 52 B2 31 00 85 22 DA 02 8B 4E 52 B1 41 5A A7 |NR.1.."...NR.AZ.|
00000680: 4E 52 B2 41 5A 00 A0 22 E4 02 8D 31 35 30 30 3A |NR.AZ.."...1500:|
00000690: 99 3A 99 22 C6 55 4E 4B 54 49 4F 4E 45 4E 3A 22 |.:.".UNKTIONEN:"|
000006A0: 00 D0 22 EE 02 99 52 4E 24 22 56 4F 52 3D 5E 22 |.."...RN$"VOR=^"|
000006B0: A3 36 29 22 5A 55 52 55 45 43 4B 3D 5F 22 A3 31 |.6)"ZURUECK=_".1|
000006C0: 36 29 22 CD 45 4E 55 45 3D CD 20 22 52 46 24 3B |6)".ENUE=. "RF$;|
000006D0: 00 FF 22 F8 02 99 53 31 24 52 4E 24 22 4E 2E C4 |.."...S1$RN$"N..|
000006E0: 53 2E CE 52 2E 20 22 52 46 24 3B 3A 97 32 31 2C |S..R. "RF$;:.21,|
000006F0: 36 34 3A 85 58 58 24 3A 97 32 31 2C 30 3A 99 00 |64:.XX$:.21,0:..|
00000700: 19 23 02 03 8B 58 58 24 B2 22 5E 22 A7 4E 52 B2 |.#...XX$."^".NR.|
00000710: 4E 52 AA 31 3A 89 37 32 30 00 33 23 0C 03 8B 58 |NR.1:.720.3#...X|
00000720: 58 24 B2 22 5F 22 A7 4E 52 B2 4E 52 AB 31 3A 89 |X$."_".NR.NR.1:.|
00000730: 37 32 30 00 44 23 16 03 8B 58 58 24 B2 22 4D 22 |720.D#...XX$."M"|
00000740: A7 35 33 30 00 57 23 20 03 4E 52 B2 C5 28 58 58 |.530.W# .NR..(XX|
00000750: 24 29 3A 89 37 32 30 00 64 23 2A 03 8F 20 43 48 |$):.720.d#*.. CH|
00000760: 41 4E 47 45 00 94 23 34 03 E8 3A 99 52 4E 24 22 |ANGE..#4..:.RN$"|
00000770: D3 41 54 5A 4E 55 4D 4D 45 52 3A 20 22 52 46 24 |.ATZNUMMER: "RF$|
00000780: 3B 3A 97 32 31 2C 36 34 3A 85 4E 52 3A 97 32 31 |;:.21,64:.NR:.21|
00000790: 2C 30 3A 99 00 A4 23 3E 03 8B 4E 52 B3 20 31 A7 |,0:...#>..NR. 1.|
000007A0: 4E 52 B2 31 00 B5 23 48 03 8B 4E 52 B1 41 5A A7 |NR.1..#H..NR.AZ.|
000007B0: 4E 52 B2 41 5A 00 C0 23 52 03 8D 20 31 35 30 30 |NR.AZ..#R.. 1500|
000007C0: 00 EB 23 5C 03 99 48 45 24 3B 3A 81 4A B2 30 A4 |..#\..HE$;:.J.0.|
000007D0: 4D 44 3A 99 A3 31 32 29 3B 3A 85 45 47 24 28 4E |MD:..12);:.EG$(N|
000007E0: 52 2C 4A 29 3A 82 3A 89 35 33 30 00 F6 23 66 03 |R,J):.:.530..#f.|
000007F0: 8F 20 4C 4F 41 44 00 0D 24 70 03 E8 3A 85 22 C6 |. LOAD..$p..:.".|
00000800: 49 4C 45 4E 41 4D 45 3A 20 22 3B 46 24 00 1F 24 |ILENAME: ";F$..$|
00000810: 7A 03 8B C3 28 46 24 29 B1 31 36 A7 38 38 30 00 |z...(F$).16.880.|
00000820: 43 24 84 03 FE 0D 23 32 2C 28 46 24 29 3A 84 32 |C$....#2,(F$):.2|
00000830: 2C 41 5A 3A 81 49 B2 31 A4 41 5A 3A 81 4A B2 30 |,AZ:.I.1.AZ:.J.0|
00000840: A4 4D 44 00 5D 24 8E 03 84 32 2C 45 47 24 28 49 |.MD.]$...2,EG$(I|
00000850: 2C 4A 29 3A 82 4A 2C 49 3A FE 0F 23 32 00 66 24 |,J):.J,I:..#2.f$|
00000860: 98 03 89 35 33 30 00 71 24 A2 03 8F 20 53 41 56 |...530.q$... SAV|
00000870: 45 00 88 24 AC 03 E8 3A 85 22 C6 49 4C 45 4E 41 |E..$...:.".ILENA|
00000880: 4D 45 3A 20 22 3B 46 24 00 9A 24 B6 03 8B C3 28 |ME: ";F$..$....(|
00000890: 46 24 29 B1 31 36 A7 39 34 30 00 AE 24 C0 03 FE |F$).16.940..$...|
000008A0: 0D 23 32 2C 22 40 22 AA 28 46 24 29 2C 57 00 D9 |.#2,"@".(F$),W..|
000008B0: 24 CA 03 98 32 2C 41 5A 3A 81 49 B2 31 A4 41 5A |$...2,AZ:.I.1.AZ|
000008C0: 3A 81 4A B2 30 A4 4D 44 3A 98 32 2C 45 47 24 28 |:.J.0.MD:.2,EG$(|
000008D0: 49 2C 4A 29 3A 82 4A 2C 49 00 E2 24 D4 03 FE 0F |I,J):.J,I..$....|
000008E0: 23 32 00 EB 24 DE 03 89 35 33 30 00 F8 24 E8 03 |#2..$...530..$..|
000008F0: 8F 20 53 45 41 52 43 48 00 21 25 F2 03 4E 52 B2 |. SEARCH.!%..NR.|
00000900: 30 3A 8D 31 35 30 30 3A 99 3A 99 22 CE 52 2E 44 |0:.1500:.:.".R.D|
00000910: 2E D3 55 43 48 42 45 47 52 49 46 46 45 53 3A 20 |..UCHBEGRIFFES: |
00000920: 22 00 41 25 FC 03 97 32 31 2C 36 34 3A 85 22 28 |".A%...21,64:."(|
00000930: 30 2D 31 30 29 22 3B 4B 4E 3A 97 32 31 2C 30 3A |0-10)";KN:.21,0:|
00000940: 99 00 56 25 06 04 8B 4B 4E B3 30 B0 4B 4E B1 4D |..V%...KN.0.KN.M|
00000950: 44 A7 31 30 32 30 00 7E 25 10 04 97 32 31 2C 36 |D.1020.~%...21,6|
00000960: 34 3A 85 22 D3 55 43 48 42 45 47 52 49 46 46 3A |4:.".UCHBEGRIFF:|
00000970: 20 22 3B 53 42 24 3A 97 32 31 2C 30 3A 99 00 AC | ";SB$:.21,0:...|
00000980: 25 1A 04 97 32 31 2C 36 34 3A 85 22 41 42 20 57 |%...21,64:."AB W|
00000990: 45 4C 43 48 45 52 20 D3 41 54 5A 4E 52 2E 3A 20 |ELCHER .ATZNR.: |
000009A0: 22 3B 53 4E 3A 97 32 31 2C 30 3A 99 00 C1 25 24 |";SN:.21,0:...%$|
000009B0: 04 8B 53 4E B3 31 B0 53 4E B1 41 5A A7 31 30 35 |..SN.1.SN.AZ.105|
000009C0: 30 00 CE 25 2E 04 81 49 B2 53 4E A4 41 5A 00 E6 |0..%...I.SN.AZ..|
000009D0: 25 38 04 8B 45 47 24 28 49 2C 4B 4E 29 B2 53 42 |%8..EG$(I,KN).SB|
000009E0: 24 A7 31 31 33 30 00 EC 25 42 04 82 00 0A 26 4C |$.1130..%B....&L|
000009F0: 04 99 52 4E 24 22 4E 49 43 48 54 20 56 4F 52 48 |..RN$"NICHT VORH|
00000A00: 41 4E 44 45 4E 21 22 52 46 24 00 22 26 56 04 85 |ANDEN!"RF$."&V..|
00000A10: 22 41 4E 44 45 52 45 52 20 D3 41 54 5A 22 3B 58 |"ANDERER .ATZ";X|
00000A20: 58 24 00 3B 26 60 04 8B 58 58 24 B2 22 4A 22 A7 |X$.;&`..XX$."J".|
00000A30: 31 30 30 30 3A D5 3A 89 35 33 30 00 5C 26 6A 04 |1000:.:.530.\&j.|
00000A40: 99 52 4E 24 22 47 45 46 55 4E 44 45 4E 20 49 4E |.RN$"GEFUNDEN IN|
00000A50: 20 D3 41 54 5A 4E 52 2E 20 22 3B 49 00 67 26 74 | .ATZNR. ";I.g&t|
00000A60: 04 49 B2 5A 44 3A 82 00 71 26 7E 04 89 31 31 31 |.I.ZD:..q&~..111|
00000A70: 30 00 7C 26 88 04 8F 20 53 4F 52 54 00 A0 26 92 |0.|&... SORT..&.|
00000A80: 04 4E 52 B2 30 3A 8D 31 35 30 30 3A 99 22 D3 4F |.NR.0:.1500:.".O|
00000A90: 52 54 49 45 52 42 45 47 52 49 46 46 3A 20 22 3B |RTIERBEGRIFF: ";|
00000AA0: 00 C0 26 9C 04 97 32 31 2C 36 34 3A 85 22 28 30 |..&...21,64:."(0|
00000AB0: 2D 31 30 29 22 3B 4B 4E 3A 97 32 31 2C 30 3A 99 |-10)";KN:.21,0:.|
00000AC0: 00 D5 26 A6 04 8B 4B 4E B3 30 B0 4B 4E B1 4D 44 |..&...KN.0.KN.MD|
00000AD0: A7 31 31 38 30 00 E7 26 B0 04 99 22 53 4F 52 54 |.1180..&..."SORT|
00000AE0: 49 4E 47 2E 2E 2E 22 00 EF 26 BA 04 46 B2 30 00 |ING..."..&..F.0.|
00000AF0: FD 26 C4 04 81 49 B2 31 A4 41 5A AB 31 00 1E 27 |.&...I.1.AZ.1..'|
00000B00: CE 04 8B 45 47 24 28 49 2C 4B 4E 29 B3 B2 45 47 |...EG$(I,KN)..EG|
00000B10: 24 28 49 AA 31 2C 4B 4E 29 A7 31 32 35 30 00 5E |$(I.1,KN).1250.^|
00000B20: 27 D8 04 81 4A B2 30 A4 4D 44 3A 48 24 B2 45 47 |'...J.0.MD:H$.EG|
00000B30: 24 28 49 2C 4A 29 3A 45 47 24 28 49 2C 4A 29 B2 |$(I,J):EG$(I,J).|
00000B40: 45 47 24 28 49 AA 31 2C 4A 29 3A 45 47 24 28 49 |EG$(I.1,J):EG$(I|
00000B50: AA 31 2C 4A 29 B2 48 24 3A 82 3A 46 B2 31 00 6A |.1,J).H$:.:F.1.j|
00000B60: 27 E2 04 82 3A 99 22 2E 22 3B 00 78 27 EC 04 8B |'...:.".";.x'...|
00000B70: 46 B2 31 A7 31 32 31 30 00 81 27 F6 04 89 35 33 |F.1.1210..'...53|
00000B80: 30 00 8D 27 00 05 8F 20 45 52 41 53 45 00 B5 27 |0..'... ERASE..'|
00000B90: 0A 05 E8 3A 99 52 4E 24 22 57 45 4C 43 48 45 20 |...:.RN$"WELCHE |
00000BA0: D3 41 54 5A 4E 52 2E 20 4C 4F 45 53 43 48 45 4E |.ATZNR. LOESCHEN|
00000BB0: 22 52 46 24 3B 00 BD 27 14 05 85 4E 52 00 D2 27 |"RF$;..'...NR..'|
00000BC0: 1E 05 8B 4E 52 B3 31 B0 4E 52 B1 41 5A A7 31 33 |...NR.1.NR.AZ.13|
00000BD0: 30 30 00 00 28 28 05 8D 31 35 30 30 3A 99 52 4E |00..((..1500:.RN|
00000BE0: 24 22 D3 49 4E 44 20 D3 49 45 20 53 49 43 48 45 |$".IND .IE SICHE|
00000BF0: 52 28 4A 2F 4E 29 22 52 46 24 3B 3A 85 58 58 24 |R(J/N)"RF$;:.XX$|
00000C00: 00 19 28 32 05 8B 58 58 24 B2 22 4A 22 A7 31 33 |..(2..XX$."J".13|
00000C10: 34 30 3A D5 3A 89 34 34 30 00 56 28 3C 05 99 22 |40:.:.440.V(<.."|
00000C20: 57 41 49 54 2E 2E 2E 22 3A 81 49 B2 4E 52 A4 41 |WAIT...":.I.NR.A|
00000C30: 5A AB 31 3A 81 4A B2 30 A4 4D 44 3A 45 47 24 28 |Z.1:.J.0.MD:EG$(|
00000C40: 49 2C 4A 29 B2 45 47 24 28 49 AA 31 2C 4A 29 3A |I,J).EG$(I.1,J):|
00000C50: 82 3A 99 22 2E 22 00 64 28 46 05 82 3A 41 5A B2 |.:.".".d(F..:AZ.|
00000C60: 41 5A AB 31 00 6D 28 50 05 89 35 33 30 00 7A 28 |AZ.1.m(P..530.z(|
00000C70: 5A 05 8F 20 48 52 44 43 50 59 00 AE 28 64 05 E8 |Z.. HRDCPY..(d..|
00000C80: 3A 99 52 4E 24 22 D7 45 4E 4E 20 C4 52 55 43 4B |:.RN$".ENN .RUCK|
00000C90: 45 52 20 42 45 52 45 49 54 2C 20 D4 41 53 54 45 |ER BEREIT, .ASTE|
00000CA0: 20 44 52 55 45 43 4B 45 4E 2E 22 52 46 24 00 B7 | DRUECKEN."RF$..|
00000CB0: 28 6E 05 A1 F9 51 24 00 C5 28 78 05 9F 31 2C 34 |(n...Q$..(x..1,4|
00000CC0: 2C 37 3A 9D 31 00 F1 28 82 05 81 49 B2 31 A4 41 |,7:.1..(...I.1.A|
00000CD0: 5A 3A 81 4A B2 30 A4 4D 44 3A 98 31 2C 44 46 24 |Z:.J.0.MD:.1,DF$|
00000CE0: 28 4A 29 3B A3 32 30 29 3B 45 47 24 28 49 2C 4A |(J);.20);EG$(I,J|
00000CF0: 29 00 F9 28 8C 05 82 3A 82 00 03 29 96 05 98 31 |)..(...:...)...1|
00000D00: 3A A0 31 00 0C 29 A0 05 89 35 33 30 00 1B 29 AA |:.1..)...530..).|
00000D10: 05 8F 20 45 4E 44 20 50 52 47 2E 00 4C 29 B4 05 |.. END PRG..L)..|
00000D20: E8 3A 99 52 4E 24 22 D3 49 43 48 45 52 20 3F 20 |.:.RN$".ICHER ? |
00000D30: C1 4C 4C 45 20 4E 49 43 48 54 20 47 45 53 50 45 |.LLE NICHT GESPE|
00000D40: 49 43 48 45 52 54 45 4E 22 52 46 24 00 7B 29 BE |ICHERTEN"RF$.{).|
00000D50: 05 99 52 4E 24 22 C4 41 54 45 4E 20 47 45 48 45 |..RN$".ATEN GEHE|
00000D60: 4E 20 56 45 52 4C 4F 52 45 4E 2E 20 28 4A 2F 4E |N VERLOREN. (J/N|
00000D70: 29 20 20 20 20 20 20 22 52 46 24 00 8E 29 C8 05 |) "RF$..)..|
00000D80: EB 20 FD 41 24 B2 22 22 3A A1 41 24 3A EC 00 AA |. .A$."":.A$:...|
00000D90: 29 D2 05 8B 41 24 B2 22 4A 22 A7 99 C7 28 31 32 |)...A$."J"...(12|
00000DA0: 29 3A 80 3A D5 3A 89 35 33 30 00 CF 29 DC 05 8F |):.:.:.530..)...|
00000DB0: 20 44 45 46 49 4E 49 54 4F 4E 20 44 45 53 20 44 | DEFINITON DES D|
00000DC0: 41 54 45 4E 53 41 54 5A 41 55 46 42 41 55 53 00 |ATENSATZAUFBAUS.|
00000DD0: EA 29 E6 05 44 46 24 28 30 29 B2 22 C4 41 54 45 |.)..DF$(0).".ATE|
00000DE0: 4E 46 45 4C 44 20 20 31 20 22 00 05 2A F0 05 44 |NFELD 1 "..*..D|
00000DF0: 46 24 28 31 29 B2 22 C4 41 54 45 4E 46 45 4C 44 |F$(1).".ATENFELD|
00000E00: 20 20 32 20 22 00 20 2A FA 05 44 46 24 28 32 29 | 2 ". *..DF$(2)|
00000E10: B2 22 C4 41 54 45 4E 46 45 4C 44 20 20 33 20 22 |.".ATENFELD 3 "|
00000E20: 00 3B 2A 04 06 44 46 24 28 33 29 B2 22 C4 41 54 |.;*..DF$(3).".AT|
00000E30: 45 4E 46 45 4C 44 20 20 34 20 22 00 56 2A 0E 06 |ENFELD 4 ".V*..|
00000E40: 44 46 24 28 34 29 B2 22 C4 41 54 45 4E 46 45 4C |DF$(4).".ATENFEL|
00000E50: 44 20 20 35 20 22 00 71 2A 18 06 44 46 24 28 35 |D 5 ".q*..DF$(5|
00000E60: 29 B2 22 C4 41 54 45 4E 46 45 4C 44 20 20 36 20 |).".ATENFELD 6 |
00000E70: 22 00 8C 2A 22 06 44 46 24 28 36 29 B2 22 C4 41 |"..*".DF$(6).".A|
00000E80: 54 45 4E 46 45 4C 44 20 20 37 20 22 00 A7 2A 2C |TENFELD 7 "..*,|
00000E90: 06 44 46 24 28 37 29 B2 22 C4 41 54 45 4E 46 45 |.DF$(7).".ATENFE|
00000EA0: 4C 44 20 20 38 20 22 00 C2 2A 36 06 44 46 24 28 |LD 8 "..*6.DF$(|
00000EB0: 38 29 B2 22 C4 41 54 45 4E 46 45 4C 44 20 20 39 |8).".ATENFELD 9|
00000EC0: 20 22 00 DD 2A 40 06 44 46 24 28 39 29 B2 22 C4 | "..*@.DF$(9).".|
00000ED0: 41 54 45 4E 46 45 4C 44 20 31 30 20 22 00 E3 2A |ATENFELD 10 "..*|
00000EE0: 4A 06 E8 00 0F 2B 54 06 49 B2 30 3A EB FC 49 B2 |J....+T.I.0:..I.|
00000EF0: 31 30 3A 99 44 46 24 28 49 29 A3 31 34 29 45 47 |10:.DF$(I).14)EG|
00000F00: 24 28 4E 52 2C 49 29 3A 49 B2 49 AA 31 3A EC 00 |$(NR,I):I.I.1:..|
00000F10: 15 2B 5E 06 8E 00 38 2B D0 07 8F 20 44 41 54 45 |.+^...8+... DATE|
00000F20: 49 4B 41 53 54 45 4E 3D 3D 3D 3D 3D 3D 3D 3D 3D |IKASTEN=========|
00000F30: 3D 3D 3D 3D 3D 31 32 38 00 5B 2B DA 07 8F 20 31 |=====128.[+... 1|
00000F40: 32 32 33 36 35 20 42 59 54 45 53 20 4D 45 4D 4F |22365 BYTES MEMO|
00000F50: 52 59 20 20 20 20 20 20 3D 3D 3D 00 7E 2B E4 07 |RY ===.~+..|
00000F60: 8F 20 30 30 34 32 33 33 20 42 59 54 45 53 20 50 |. 004233 BYTES P|
00000F70: 52 4F 47 52 41 4D 20 20 20 20 20 3D 3D 3D 00 A1 |ROGRAM ===..|
00000F80: 2B EE 07 8F 20 30 30 30 30 30 30 20 42 59 54 45 |+... 000000 BYTE|
00000F90: 53 20 56 41 52 49 41 42 4C 45 53 20 20 20 3D 3D |S VARIABLES ==|
00000FA0: 3D 00 C4 2B F8 07 8F 20 30 30 30 30 30 30 20 42 |=..+... 000000 B|
00000FB0: 59 54 45 53 20 41 52 52 41 59 53 20 20 20 20 20 |YTES ARRAYS |
00000FC0: 20 3D 3D 3D 00 E7 2B 02 08 8F 20 30 30 30 30 30 | ===..+... 00000|
00000FD0: 30 20 42 59 54 45 53 20 53 54 52 49 4E 47 53 20 |0 BYTES STRINGS |
00000FE0: 20 20 20 20 3D 3D 3D 00 0A 2C 0C 08 8F 20 30 35 | ===..,... 05|
00000FF0: 33 39 34 35 20 42 59 54 45 53 20 46 52 45 45 20 |3945 BYTES FREE |
00001000: 28 30 29 20 20 20 20 3D 3D 3D 00 2D 2C 16 08 8F |(0) ===.-,...|
00001010: 20 30 36 34 32 34 39 20 42 59 54 45 53 20 46 52 | 064249 BYTES FR|
00001020: 45 45 20 28 31 29 20 20 20 20 3D 3D 3D 00 50 2C |EE (1) ===.P,|
00001030: 20 08 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D | .. ============|
00001040: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00001050: 00 00 00 |... |
..'.... DATEIKASTEN ================128.
M.... (P) 01/86 COMMODORE-WELT ===.S.
... ===============================...(.
. (C) 01/86 BY ===...2..
HARALD BEILER ===...<..
===...F.. VERS
ION 7.0 40Z/80Z/ASCII ===.1.P.. C-128
+ 1541/1571+DRUCKER ===.W.Z.. ========
=======================.Q.D.SL$.G(014):D
C$.G(011)...E.RN$.G(018):RF$.G(146)...F.
Z7$.G(176):Z6$.G(174)...G.M1$.G(125):Z5$
.G(173).Y.H.ZB$.G(189):HE$.G(019)...I.Z1
$.G(096):S1$.G(032)...J.EE$.G(027):BE$.G
(069).).... VARIABLEN-DEFININTION.?...AZ
.0:ZD.800:MD.10.O....EG$(ZD,MD).T...I.0:
..I.MD:EG$(0,I).D(I):I.I.1:....... MENUE
...B..0,1:.4,1:.5,4:.SL$DC$EE$BE$...L..:
.620:.1,7,5," D A T E I K A S T E N ",
1:.1,13,8,"1986 HABE"...V..1,1,10,"DIE D
ATENFELDER IM LISTING SOLLTEN":..K...
..1)"VORHER NACH EIGENEN WUENSCHEN BENAN
NT".{.....1)"WERDEN. DANN PRG. ERNEUT AB
SPEICHERN."......1,5,15,"DATENFELDER DEF
INIEREN ? (J/N)",1.......Q$.L....Q$."J".
.1500.1600:... ...:.RN$"SAETZE BISHER:"R
F$;AZ;.20)RN$" GRENZE: "RF$;ZD:..9 ..."I
NPUT = 1".12)"OUTPUT = 2".25)"CHANGE = 3
".J &.."LOAD = 4".12)"SAVE = 5".25)"S
EARCH = 6".. 0.."SORT = 7".12)"ERASE =
8".25)"HARDCPY= 9".. :..:..10)"END.PRG
= 10".V D.I.1:..I.39:.G(96);:I.I.1:.:...
N..21,64:."ORDER: ";N:.21,0:...!X..N.1.
N.10.440.<!B..N.650,700,810,870,930,1000
,1160,1280,1370,1450.]!L..Z7$;:.I.0.36:.
G(96);:.:.Z6$.W!V..I.0.11:.M1$.38)M1$:..
.!...Z5$;:.I.0.36:.Z1$;:.:.ZB$HE$:...!..
. INPUT..!..AZ.AZ.1:NR.AZ:.1500..!...HE$
;:.K.1.MD:..14);:.21,64:.EG$(NR,K):.21,0
:.:.:..,"...RN$"WEITERER SATZ (J/N)"RF$;
:.21,64:.XX$:.21,0:..D"...XX$."J".650:U:
.530.Q"... OUTPUT.E"F..:."SATZNR.";NR.T"
P..NR.1.NR.1.."Z..NR.AZ.NR.AZ. "...1500:
.:."FUNKTIONEN:".P"...RN$"VOR=^".6)"ZURU
ECK=_".16)"MENUE=M "RF$;.."...S1$RN$"N.D
S.NR. "RF$;:.21,64:.XX$:.21,0:...#...XX$
."^".NR.NR.1:.720.3#...XX$."_".NR.NR.1:.
720.D#...XX$."M".530.W# .NR.E(XX$):.720.
D#*.. CHANGE..#4..:.RN$"SATZNUMMER: "RF$
;:.21,64:.NR:.21,0:...#>..NR. 1.NR.1..#H
..NR.AZ.NR.AZ..#R.. 1500..#\..HE$;:.J.0.
MD:..12);:.EG$(NR,J):.:.530..#F.. LOAD..
$P..:."FILENAME: ";F$..$Z..C(F$).16.880.
C$....#2,(F$):.2,AZ:.I.1.AZ:.J.0.MD.]$..
.2,EG$(I,J):.J,I:..#2.F$...530.Q$... SAV
E..$...:."FILENAME: ";F$..$...C(F$).16.9
40..$....#2,"@".(F$),W.Y$J..2,AZ:.I.1.AZ
:.J.0.MD:.2,EG$(I,J):.J,I..$T...#2..$...
530..$... SEARCH.!%..NR.0:.1500:.:."NR.D
.SUCHBEGRIFFES: ".A%...21,64:."(0-10)";K
N:.21,0:..V%...KN.0.KN.MD.1020.~%...21,6
4:."SUCHBEGRIFF: ";SB$:.21,0:...%...21,6
4:."AB WELCHER SATZNR.: ";SN:.21,0:..A%$
..SN.1.SN.AZ.1050.N%...I.SN.AZ..%8..EG$(
I,KN).SB$.1130..%B....&L..RN$"NICHT VORH
ANDEN!"RF$."&V.."ANDERER SATZ";XX$.;&`..
XX$."J".1000:U:.530.\&J..RN$"GEFUNDEN IN
SATZNR. ";I.G&T.I.ZD:..Q&~..1110.|&...
SORT. &..NR.0:.1500:."SORTIERBEGRIFF: ";
..&...21,64:."(0-10)";KN:.21,0:..U&...KN
.0.KN.MD.1180..&..."SORTING..."..&..F.0.
.&D..I.1.AZ.1..'N..EG$(I,KN)..EG$(I.1,KN
).1250.^'X..J.0.MD:H$.EG$(I,J):EG$(I,J).
EG$(I.1,J):EG$(I.1,J).H$:.:F.1.J'...:.".
";.X'...F.1.1210..'...530..'... ERASE..'
...:.RN$"WELCHE SATZNR. LOESCHEN"RF$;..'
...NR.R'...NR.1.NR.AZ.1300..((..1500:.RN
$"SIND SIE SICHER(J/N)"RF$;:.XX$..(2..XX
$."J".1340:U:.440.V(<.."WAIT...":.I.NR.A
Z.1:.J.0.MD:EG$(I,J).EG$(I.1,J):.:.".".D
(F..:AZ.AZ.1.M(P..530.Z(Z.. HRDCPY..(D..
:.RN$"WENN DRUCKER BEREIT, TASTE DRUECKE
N."RF$..(N...Q$.E(X..1,4,7:.1..(...I.1.A
Z:.J.0.MD:.1,DF$(J);.20);EG$(I,J)..(...:
...)...1: 1..) ..530..)... END PRG..L)..
.:.RN$"SICHER ? ALLE NICHT GESPEICHERTEN
"RF$.{)...RN$"DATEN GEHEN VERLOREN. (J/N
) "RF$..)H.. .A$."":.A$:...)R..A$."
J"..G(12):.:U:.530.O)... DEFINITON DES D
ATENSATZAUFBAUS..)..DF$(0)."DATENFELD 1
"..*..DF$(1)."DATENFELD 2 ". *..DF$(2)
."DATENFELD 3 ".;*..DF$(3)."DATENFELD
4 ".V*..DF$(4)."DATENFELD 5 ".Q*..DF$(5
)."DATENFELD 6 "..*".DF$(6)."DATENFELD
7 "..*,.DF$(7)."DATENFELD 8 ".B*6.DF$(
8)."DATENFELD 9 "..*@.DF$(9)."DATENFELD
10 "..*J....+T.I.0:..I.10:.DF$(I).14)EG
$(NR,I):I.I.1:...+^...8+P.. DATEIKASTEN=
=============128.[+Z.. 122365 BYTES MEMO
RY ===.~+... 004233 BYTES PROGRAM
===..+... 000000 BYTES VARIABLES ==
=.D+... 000000 BYTES ARRAYS ===..+.
.. 000000 BYTES STRINGS ===..,... 05
3945 BYTES FREE (0) ===.-,... 064249
BYTES FREE (1) ===.P, .. ============
================...
> CLICK IMAGE PREVIEW FOR FULL MODAL