DATEIPROGRAMM

00000000: 01 08 22 08 0A 00 8B C2  28 38 32 38 29 B3 B1 31  |..".....(828)..1|
00000010: 36 30 A7 93 22 4D 53 50  2D 53 4F 52 54 22 2C 38  |60.."MSP-SORT",8|
00000020: 2C 31 00 3A 08 14 00 86  42 24 28 32 30 30 30 29  |,1.:....B$(2000)|
00000030: 3A 58 B2 AB 31 3A 53 4F  B2 30 00 71 08 1E 00 4B  |:X..1:SO.0.q...K|
00000040: B2 35 33 32 38 30 3A 97  4B 2C 2E 3A 97 4B AA 31  |.53280:.K,.:.K.1|
00000050: 2C 2E 3A 45 B2 C2 28 31  38 36 29 3A 81 4C B2 31  |,.:E..(186):.L.1|
00000060: A4 39 3A 87 44 41 24 28  4C 29 3A 82 3A 89 33 30  |.9:.DA$(L):.:.30|
00000070: 30 00 8E 08 28 00 46 41  B2 B5 28 BB 28 31 29 AC  |0...(.FA..(.(1).|
00000080: 31 35 29 AA 31 3A 8B 46  41 B2 30 A7 34 30 00 9C  |15).1:.FA.0.40..|
00000090: 08 32 00 8B 46 41 B2 46  31 A7 34 30 00 A8 08 3C  |.2..FA.F1.40...<|
000000A0: 00 46 31 B2 46 41 3A 8E  00 D1 08 46 00 99 22 93  |.F1.FA:....F..".|
000000B0: 4B 45 49 4E 45 20 44 41  54 45 4E 20 56 4F 52 48  |KEINE DATEN VORH|
000000C0: 41 4E 44 45 4E 21 22 3A  8D 32 34 30 3A 89 33 31  |ANDEN!":.240:.31|
000000D0: 30 00 21 09 50 00 99 22  93 11 5A 55 4D 20 53 43  |0.!.P.."..ZUM SC|
000000E0: 52 41 54 43 48 45 4E 20  45 49 4E 45 52 20 44 41  |RATCHEN EINER DA|
000000F0: 54 45 49 20 27 4C 27 20  45 49 4E 47 45 42 45 4E  |TEI 'L' EINGEBEN|
00000100: 2C 20 44 41 4E 4E 20 44  49 45 20 4B 45 4E 4E 5A  |, DANN DIE KENNZ|
00000110: 49 46 46 45 52 20 44 45  52 20 44 41 54 45 49 21  |IFFER DER DATEI!|
00000120: 22 00 3A 09 5A 00 99 22  12 20 52 45 54 55 52 4E  |".:.Z..". RETURN|
00000130: 20 3D 20 4D 45 4E 55 45  20 22 00 6F 09 64 00 43  | = MENUE ".o.d.C|
00000140: 24 B2 22 22 3A 85 22 11  4B 45 4E 4E 5A 49 46 46  |$."":.".KENNZIFF|
00000150: 45 52 20 20 20 24 9D 9D  9D 22 3B 43 24 3A 8B 43  |ER   $...";C$:.C|
00000160: 24 B2 22 24 22 A7 8D 31  34 30 3A 89 31 30 30 00  |$."$"..140:.100.|
00000170: 85 09 6E 00 8B 43 24 B2  22 4C 22 A7 4C 45 B2 31  |..n..C$."L".LE.1|
00000180: 3A 89 31 30 30 00 C6 09  78 00 8B 4C 45 B2 31 A7  |:.100...x..LE.1.|
00000190: 4C 45 B2 30 3A 44 24 B2  22 44 41 54 45 49 20 2F  |LE.0:D$."DATEI /|
000001A0: 20 22 AA 43 24 AA 22 2E  44 41 54 22 3A 9F 31 35  | ".C$.".DAT":.15|
000001B0: 2C 45 2C 31 35 2C 22 53  3A 22 AA 44 24 3A A0 31  |,E,15,"S:".D$:.1|
000001C0: 35 3A 89 31 30 30 00 CC  09 82 00 8E 00 D9 09 8C  |5:.100..........|
000001D0: 00 8B 45 B3 38 A7 45 B2  38 00 0D 0A 96 00 99 22  |..E.8.E.8......"|
000001E0: 93 22 3A 9F 31 2C 45 2C  30 2C 22 24 22 3A 97 37  |.":.1,E,0,"$":.7|
000001F0: 38 31 2C 31 3A 9E 36 35  34 37 38 3A A1 41 41 24  |81,1:.65478:.AA$|
00000200: 2C 41 41 24 3A 45 45 24  B2 C7 28 30 29 00 35 0A  |,AA$:EE$..(0).5.|
00000210: A0 00 A1 41 41 24 2C 41  41 24 2C 48 48 24 2C 4C  |...AA$,AA$,HH$,L|
00000220: 4C 24 3A 8B 53 54 A7 9E  36 35 34 38 34 3A A0 31  |L$:.ST..65484:.1|
00000230: 3A 89 32 30 30 00 55 0A  AA 00 99 C6 28 48 48 24  |:.200.U.....(HH$|
00000240: AA 45 45 24 29 AA 32 35  36 AC C6 28 4C 4C 24 AA  |.EE$).256..(LL$.|
00000250: 45 45 24 29 3B 00 75 0A  B4 00 A1 41 41 24 2C 42  |EE$);.u....AA$,B|
00000260: 42 24 3A 8B 41 41 24 A7  99 41 41 24 42 42 24 3B  |B$:.AA$..AA$BB$;|
00000270: 3A 89 31 38 30 00 83 0A  BE 00 99 41 41 24 3A 89  |:.180......AA$:.|
00000280: 31 36 30 00 8E 0A C8 00  8D 32 34 30 3A 8E 00 DB  |160......240:...|
00000290: 0A D2 00 83 44 41 54 45  4E 20 45 49 4E 47 45 42  |....DATEN EINGEB|
000002A0: 45 4E 2C 44 41 54 45 4E  20 41 55 53 47 45 42 45  |EN,DATEN AUSGEBE|
000002B0: 4E 2C 44 41 54 45 4E 20  44 52 55 43 4B 45 4E 2C  |N,DATEN DRUCKEN,|
000002C0: 44 41 54 45 4E 20 53 50  45 49 43 48 45 52 4E 2C  |DATEN SPEICHERN,|
000002D0: 44 41 54 45 4E 20 4C 41  44 45 4E 00 12 0B DC 00  |DATEN LADEN.....|
000002E0: 83 44 41 54 45 4E 20 53  4F 52 54 49 45 52 45 4E  |.DATEN SORTIEREN|
000002F0: 2C 44 41 54 45 4E 20 4C  4F 45 53 43 48 45 4E 2C  |,DATEN LOESCHEN,|
00000300: 44 41 54 45 4E 20 41 45  4E 44 45 52 4E 2C 45 4E  |DATEN AENDERN,EN|
00000310: 44 45 00 2C 0B E6 00 99  22 11 4C 4F 45 53 43 48  |DE.,....".LOESCH|
00000320: 45 4E 20 3D 20 52 45 54  55 52 4E 22 00 3F 0B F0  |EN = RETURN".?..|
00000330: 00 A1 41 24 3A 8B 41 24  B2 22 22 A7 32 34 30 00  |..A$:.A$."".240.|
00000340: 45 0B FA 00 8E 00 52 0B  04 01 9F 31 35 2C 45 2C  |E.....R....15,E,|
00000350: 31 35 00 85 0B 0E 01 84  31 35 2C 41 41 2C 42 42  |15......15,AA,BB|
00000360: 24 2C 43 43 2C 44 44 3A  8B 41 41 B3 B1 30 A7 99  |$,CC,DD:.AA..0..|
00000370: 22 11 12 20 44 49 53 4B  46 45 48 4C 45 52 20 22  |".. DISKFEHLER "|
00000380: 3A 89 32 39 30 00 8B 0B  18 01 8E 00 AF 0B 22 01  |:.290.........".|
00000390: 99 2C 41 41 3B 42 42 24  3B 43 43 3B 44 44 3A 8D  |.,AA;BB$;CC;DD:.|
000003A0: 32 34 30 3A A0 32 3A A0  31 35 3A 89 32 38 30 00  |240:.2:.15:.280.|
000003B0: B8 0B 2C 01 53 50 B2 31  00 E9 0B 36 01 97 35 33  |..,.SP.1...6..53|
000003C0: 32 36 35 2C 31 31 3A 99  22 93 11 05 20 20 20 20  |265,11:."...    |
000003D0: 20 20 20 20 20 20 20 20  20 20 44 41 54 45 49 50  |          DATEIP|
000003E0: 52 4F 47 52 41 4D 4D 11  22 00 0F 0C 40 01 99 A3  |ROGRAMM."...@...|
000003F0: 31 37 29 22 9E AF AF AF  AF AF AF AF 22 3A 99 A3  |17)"........":..|
00000400: 31 37 29 22 12 20 4D 45  4E 55 45 20 99 11 22 00  |17)". MENUE ..".|
00000410: 4F 0C 4A 01 81 4C B2 31  A4 39 3A 8D 34 30 3A 97  |O.J..L.1.9:.40:.|
00000420: 36 34 36 2C 46 41 3A 99  22 11 22 A3 39 29 4C 3B  |646,FA:.".".9)L;|
00000430: 22 20 20 3D 20 20 22 3B  44 41 24 28 4C 29 3A 82  |"  =  ";DA$(L):.|
00000440: 3A 99 22 9B 22 3A 97 35  33 32 36 35 2C 32 37 00  |:.".":.53265,27.|
00000450: 6D 0C 54 01 8D 32 34 30  3A 41 B2 C5 28 41 24 29  |m.T..240:A..(A$)|
00000460: 3A 8B 41 B3 31 B0 41 B1  39 A7 33 34 30 00 98 0C  |:.A.1.A.9.340...|
00000470: 5E 01 91 41 89 33 36 30  2C 34 36 30 2C 34 36 30  |^..A.360,460,460|
00000480: 2C 36 36 30 2C 37 36 30  2C 38 34 30 2C 38 38 30  |,660,760,840,880|
00000490: 2C 39 36 30 2C 38 36 30  00 E8 0C 68 01 99 22 93  |,960,860...h..".|
000004A0: 11 12 20 44 41 54 45 4E  2D 45 49 4E 47 41 42 45  |.. DATEN-EINGABE|
000004B0: 20 2F 20 52 45 54 55 52  4E 20 3D 20 4D 45 4E 55  | / RETURN = MENU|
000004C0: 45 22 3A 99 22 20 5E 20  3D 20 56 4F 52 48 45 52  |E":." ^ = VORHER|
000004D0: 2E 20 42 45 47 52 49 46  46 20 41 45 4E 44 45 52  |. BEGRIFF AENDER|
000004E0: 4E 22 3A 58 B2 58 AA 31  00 14 0D 72 01 8B 58 B1  |N":X.X.1...r..X.|
000004F0: 31 39 39 39 A7 99 22 11  44 41 54 45 49 20 56 4F  |1999..".DATEI VO|
00000500: 4C 4C 21 22 3A 58 B2 58  AB 31 3A 8D 32 34 30 3A  |LL!":X.X.1:.240:|
00000510: 89 33 31 30 00 35 0D 7C  01 42 24 28 58 29 B2 22  |.310.5.|.B$(X)."|
00000520: 22 3A 85 22 11 20 42 45  47 52 49 46 46 20 22 3B  |":.". BEGRIFF ";|
00000530: 42 24 28 58 29 00 4E 0D  86 01 8B 42 24 28 58 29  |B$(X).N....B$(X)|
00000540: B2 22 22 A7 58 B2 58 AB  31 3A 89 33 31 30 00 74  |."".X.X.1:.310.t|
00000550: 0D 90 01 8B 42 24 28 58  29 B2 22 5E 22 A7 8B 58  |....B$(X)."^"..X|
00000560: B1 30 A7 58 B2 58 AB 31  3A 99 22 91 91 91 22 3A  |.0.X.X.1:."...":|
00000570: 89 33 38 30 00 81 0D 9A  01 8B 58 B2 30 A7 34 35  |.380......X.0.45|
00000580: 30 00 8E 0D A4 01 81 59  B2 30 A4 58 AB 31 00 CF  |0......Y.0.X.1..|
00000590: 0D AE 01 8B 42 24 28 58  29 B2 C8 28 42 24 28 59  |....B$(X)..(B$(Y|
000005A0: 29 2C C3 28 42 24 28 58  29 29 29 A7 99 22 11 12  |),.(B$(X))).."..|
000005B0: 22 42 24 28 59 29 3A 8D  32 33 30 3A 8B 41 24 B2  |"B$(Y):.230:.A$.|
000005C0: C7 28 31 33 29 A7 5A B2  31 3A 59 B2 58 AB 31 00  |.(13).Z.1:Y.X.1.|
000005D0: E3 0D B8 01 82 3A 8B 5A  B2 31 A7 5A B2 30 3A 89  |.....:.Z.1.Z.0:.|
000005E0: 33 38 30 00 FC 0D C2 01  58 B2 58 AA 31 3A 53 50  |380.....X.X.1:SP|
000005F0: B2 30 3A 53 4F B2 30 3A  89 33 37 30 00 08 0E CC  |.0:SO.0:.370....|
00000600: 01 8B 58 B3 30 A7 37 30  00 1E 0E D6 01 43 B2 33  |..X.0.70.....C.3|
00000610: 3A 8B 41 B2 33 A7 43 B2  34 3A 89 35 38 30 00 54  |:.A.3.C.4:.580.T|
00000620: 0E E0 01 99 22 93 11 53  55 43 48 45 4E 20 3F 20  |...."..SUCHEN ? |
00000630: 5B 53 50 41 43 45 20 3D  20 12 20 4E 45 49 4E 20  |[SPACE = . NEIN |
00000640: 92 5D 22 3A 8D 32 34 30  3A 8B 41 24 B2 22 20 22  |.]":.240:.A$." "|
00000650: A7 35 37 30 00 80 0E EA  01 99 22 93 11 52 45 54  |.570......"..RET|
00000660: 55 52 4E 20 3D 20 4D 45  4E 55 45 20 2F 20 2A 20  |URN = MENUE / * |
00000670: 3D 20 41 4C 4C 45 20 42  45 47 52 49 46 46 45 22  |= ALLE BEGRIFFE"|
00000680: 00 A5 0E F4 01 53 55 24  B2 22 22 3A 85 22 11 53  |.....SU$."":.".S|
00000690: 55 43 48 42 45 47 52 49  46 46 20 20 41 9D 9D 9D  |UCHBEGRIFF  A...|
000006A0: 22 3B 53 55 24 00 B5 0E  FE 01 8B 53 55 24 B2 22  |";SU$......SU$."|
000006B0: 22 A7 33 31 30 00 C6 0E  08 02 8B 53 55 24 B2 22  |".310......SU$."|
000006C0: 2A 22 A7 35 37 30 00 DB  0E 12 02 8B 53 4F B2 31  |*".570......SO.1|
000006D0: A7 8D 31 30 34 30 3A 89  34 39 30 00 00 0F 1C 02  |..1040:.490.....|
000006E0: 8B C6 28 53 55 24 29 B3  34 38 B0 C6 28 53 55 24  |..(SU$).48..(SU$|
000006F0: 29 B1 39 30 A7 99 22 91  91 91 22 3A 89 35 30 30  |).90.."...":.500|
00000700: 00 2F 0F 26 02 81 49 B2  30 A4 58 3A 8B 53 55 24  |./.&..I.0.X:.SU$|
00000710: B2 C8 28 42 24 28 49 29  2C C3 28 53 55 24 29 29  |..(B$(I),.(SU$))|
00000720: A7 99 22 11 22 42 24 28  49 29 3A 8D 32 34 30 00  |.."."B$(I):.240.|
00000730: 3A 0F 30 02 82 3A 89 34  39 30 00 83 0F 3A 02 99  |:.0..:.490...:..|
00000740: 22 93 12 20 46 31 2F 46  33 20 3D 20 32 20 53 45  |".. F1/F3 = 2 SE|
00000750: 49 54 45 4E 20 57 45 49  54 45 52 2F 5A 55 52 55  |ITEN WEITER/ZURU|
00000760: 45 43 4B 20 92 22 3A 99  22 20 53 50 41 43 45 20  |ECK .":." SPACE |
00000770: 3D 20 57 45 49 54 45 52  22 3A 8D 32 34 30 3A 99  |= WEITER":.240:.|
00000780: 22 93 22 00 99 0F 44 02  9F 31 2C 43 3A 81 42 B2  |"."...D..1,C:.B.|
00000790: 30 A4 58 3A 41 24 B2 22  22 00 DA 0F 4E 02 8B 42  |0.X:A$.""...N..B|
000007A0: B1 30 A7 8B 43 B2 33 A7  8B 42 AD 32 33 B2 B5 28  |.0..C.3..B.23..(|
000007B0: 42 AD 32 33 29 A7 8D 32  34 30 3A 99 22 93 22 3A  |B.23)..240:.".":|
000007C0: 8B 41 24 B2 22 45 22 A7  42 B2 58 3A 99 22 54 41  |.A$."E".B.X:."TA|
000007D0: 53 54 45 21 22 3A 89 36  34 30 00 04 10 58 02 8B  |STE!":.640...X..|
000007E0: 43 B2 33 A7 8B 41 24 B2  C7 28 31 33 33 29 A7 8B  |C.3..A$..(133)..|
000007F0: 42 B3 28 58 AB 32 33 29  A7 42 B2 42 AA 32 33 3A  |B.(X.23).B.B.23:|
00000800: 89 36 33 30 00 2A 10 62  02 8B 43 B2 33 A7 8B 41  |.630.*.b..C.3..A|
00000810: 24 B2 C7 28 31 33 34 29  A7 8B 42 B1 36 39 A7 42  |$..(134)..B.69.B|
00000820: B2 42 AB 36 39 3A 89 36  33 30 00 53 10 6C 02 8B  |.B.69:.630.S.l..|
00000830: 42 B1 30 A7 8B 43 B2 34  A7 8B 42 AD 36 32 B2 B5  |B.0..C.4..B.62..|
00000840: 28 42 AD 36 32 29 A7 81  44 B2 31 A4 31 30 3A 98  |(B.62)..D.1.10:.|
00000850: 31 3A 82 00 60 10 76 02  98 31 2C 42 24 28 42 29  |1:..`.v..1,B$(B)|
00000860: 00 7B 10 80 02 82 3A 98  31 3A A0 31 3A 8B 43 B2  |.{....:.1:.1:.C.|
00000870: 33 A7 8D 32 34 30 3A 89  33 31 30 00 84 10 8A 02  |3..240:.310.....|
00000880: 89 33 34 30 00 90 10 94  02 8B 58 B3 30 A7 37 30  |.340......X.0.70|
00000890: 00 A3 10 9E 02 8D 38 30  3A 8B 43 24 B2 22 22 A7  |......80:.C$."".|
000008A0: 33 31 30 00 BD 10 A8 02  43 B2 C5 28 43 24 29 3A  |310.....C..(C$):|
000008B0: 8B 43 B3 31 B0 43 B1 39  39 A7 36 37 30 00 E2 10  |.C.1.C.99.670...|
000008C0: B2 02 44 24 B2 22 44 41  54 45 49 20 2F 20 22 AA  |..D$."DATEI / ".|
000008D0: 43 24 AA 22 2E 44 41 54  22 3A 8B 45 B3 38 A7 45  |C$.".DAT":.E.8.E|
000008E0: B2 38 00 00 11 BC 02 8B  48 B2 31 A7 9F 31 35 2C  |.8......H.1..15,|
000008F0: 45 2C 31 35 2C 22 53 3A  22 AA 44 24 3A A0 31 35  |E,15,"S:".D$:.15|
00000900: 00 25 11 C6 02 9F 32 2C  45 2C 32 2C 44 24 AA 22  |.%....2,E,2,D$."|
00000910: 2C 53 2C 57 22 3A 8D 32  36 30 3A 8B 41 41 B3 B1  |,S,W":.260:.AA..|
00000920: 30 A7 33 31 30 00 4A 11  D0 02 99 22 93 1D 1D 1D  |0.310.J...."....|
00000930: 1D 1D 1D 1D 1D 1D 44 41  54 45 4E 20 47 45 53 50  |......DATEN GESP|
00000940: 45 49 43 48 45 52 54 20  21 22 00 77 11 DA 02 81  |EICHERT !".w....|
00000950: 46 B2 30 A4 58 3A 99 22  13 1D 1D 22 3B 46 3A 98  |F.0.X:."...";F:.|
00000960: 32 2C 42 24 28 46 29 3A  8D 32 37 30 3A 8B 41 41  |2,B$(F):.270:.AA|
00000970: B3 B1 30 A7 46 B2 58 00  97 11 E4 02 82 3A A0 32  |..0.F.X......:.2|
00000980: 3A A0 31 35 3A 53 50 B2  31 3A 8B 48 B2 31 A7 48  |:.15:SP.1:.H.1.H|
00000990: B2 30 3A 89 38 36 30 00  A0 11 EE 02 89 33 31 30  |.0:.860......310|
000009A0: 00 B3 11 F8 02 8D 38 30  3A 8B 43 24 B2 22 22 A7  |......80:.C$."".|
000009B0: 33 31 30 00 C9 11 02 03  43 B2 C5 28 43 24 29 3A  |310.....C..(C$):|
000009C0: 8B 43 B1 39 39 A7 37 36  30 00 EE 11 0C 03 44 24  |.C.99.760.....D$|
000009D0: B2 22 44 41 54 45 49 20  2F 20 22 AA 43 24 AA 22  |."DATEI / ".C$."|
000009E0: 2E 44 41 54 22 3A 8B 45  B3 38 A7 45 B2 38 00 24  |.DAT":.E.8.E.8.$|
000009F0: 12 16 03 9F 32 2C 45 2C  32 2C 44 24 AA 22 2C 53  |....2,E,2,D$.",S|
00000A00: 2C 52 22 3A 58 58 B2 58  3A 58 B2 58 AA 31 3A 8D  |,R":XX.X:X.X.1:.|
00000A10: 32 36 30 3A 8B 41 41 B3  B1 30 A7 58 B2 58 58 3A  |260:.AA..0.X.XX:|
00000A20: 89 33 31 30 00 4A 12 20  03 99 22 93 1D 1D 1D 1D  |.310.J. ..".....|
00000A30: 1D 1D 1D 1D 1D 44 41 54  45 4E 20 47 45 4C 41 44  |.....DATEN GELAD|
00000A40: 45 4E 20 21 22 3A 58 59  B2 31 00 84 12 2A 03 8B  |EN !":XY.1...*..|
00000A50: 58 B3 32 30 30 30 A7 99  22 13 1D 1D 22 3B 58 59  |X.2000.."...";XY|
00000A60: 3A 84 32 2C 42 24 28 58  29 3A 8B 53 54 B3 B1 36  |:.2,B$(X):.ST..6|
00000A70: 34 A7 58 B2 58 AA 31 3A  58 59 B2 58 59 AA 31 3A  |4.X.X.1:XY.XY.1:|
00000A80: 89 38 31 30 00 A6 12 34  03 8B 58 B2 32 30 30 30  |.810...4..X.2000|
00000A90: A7 58 B2 58 AB 31 3A 99  22 11 44 41 54 45 49 20  |.X.X.1:.".DATEI |
00000AA0: 56 4F 4C 4C 21 22 00 BB  12 3E 03 A0 32 3A A0 31  |VOLL!"...>..2:.1|
00000AB0: 35 3A 8D 32 34 30 3A 89  33 31 30 00 C7 12 48 03  |5:.240:.310...H.|
00000AC0: 8B 58 B3 30 A7 37 30 00  0E 13 52 03 99 22 93 20  |.X.0.70...R..". |
00000AD0: 20 20 20 20 20 20 20 44  41 54 45 4E 20 57 45 52  |       DATEN WER|
00000AE0: 44 45 4E 20 53 4F 52 54  49 45 52 54 20 21 22 3A  |DEN SORTIERT !":|
00000AF0: 42 24 28 58 AA 31 29 B2  22 22 3A 9E 38 32 38 3A  |B$(X.1)."":.828:|
00000B00: 53 50 B2 30 3A 53 4F B2  31 3A 89 33 31 30 00 2E  |SP.0:SO.1:.310..|
00000B10: 13 5C 03 8B 58 B2 B1 30  A7 8B 53 50 B2 30 A7 48  |.\..X..0..SP.0.H|
00000B20: B2 31 3A 43 24 B2 22 30  22 3A 89 36 39 30 00 70  |.1:C$."0":.690.p|
00000B30: 13 66 03 99 22 93 11 11  11 20 4E 45 55 53 54 41  |.f..".... NEUSTA|
00000B40: 52 54 20 4F 48 4E 45 20  44 41 54 45 4E 56 45 52  |RT OHNE DATENVER|
00000B50: 4C 55 53 54 20 4D 49 54  22 3A 99 22 11 11 47 4F  |LUST MIT":."..GO|
00000B60: 54 4F 33 31 30 22 3A 99  22 91 91 91 91 22 3A 80  |TO310":."....":.|
00000B70: 00 7C 13 70 03 8B 58 B3  30 A7 37 30 00 C8 13 7A  |.|.p..X.0.70...z|
00000B80: 03 99 22 93 11 46 38 20  3D 20 42 45 47 52 49 46  |.."..F8 = BEGRIF|
00000B90: 46 20 4C 4F 45 53 43 48  45 4E 20 2F 20 53 50 41  |F LOESCHEN / SPA|
00000BA0: 43 45 20 3D 20 57 45 49  54 45 52 20 20 46 31 20  |CE = WEITER  F1 |
00000BB0: 3D 20 32 30 20 57 45 49  54 45 52 20 2F 20 45 20  |= 20 WEITER / E |
00000BC0: 3D 20 4D 45 4E 55 45 22  00 E3 13 84 03 81 49 B2  |= MENUE"......I.|
00000BD0: 30 A4 58 3A 99 22 11 22  42 24 28 49 29 3A 41 24  |0.X:."."B$(I):A$|
00000BE0: B2 22 22 00 17 14 8E 03  8D 32 34 30 3A 8B 41 24  |.""......240:.A$|
00000BF0: B3 B1 22 20 22 AF 41 24  B3 B1 C7 28 31 34 30 29  |.." ".A$...(140)|
00000C00: AF 41 24 B3 B1 22 45 22  AF 41 24 B3 B1 C7 28 31  |.A$.."E".A$...(1|
00000C10: 33 33 29 A7 39 31 30 00  52 14 98 03 8B 41 24 B2  |33).910.R....A$.|
00000C20: C7 28 31 34 30 29 A7 4A  B2 49 3A 81 4D B2 4A A4  |.(140).J.I:.M.J.|
00000C30: 58 3A 42 24 28 4D 29 B2  42 24 28 4D AA 31 29 3A  |X:B$(M).B$(M.1):|
00000C40: 82 3A 58 B2 58 AB 31 3A  49 B2 49 AB 31 3A 53 50  |.:X.X.1:I.I.1:SP|
00000C50: B2 30 00 72 14 A2 03 8B  41 24 B2 C7 28 31 33 33  |.0.r....A$..(133|
00000C60: 29 A7 8B 49 B3 28 58 AB  32 31 29 A7 49 B2 49 AA  |)..I.(X.21).I.I.|
00000C70: 32 30 00 82 14 AC 03 8B  41 24 B2 22 45 22 A7 49  |20......A$."E".I|
00000C80: B2 58 00 8D 14 B6 03 82  3A 89 33 31 30 00 99 14  |.X......:.310...|
00000C90: C0 03 8B 58 B3 30 A7 37  30 00 E5 14 CA 03 99 22  |...X.0.70......"|
00000CA0: 93 11 46 38 20 3D 20 42  45 47 52 49 46 46 20 41  |..F8 = BEGRIFF A|
00000CB0: 45 4E 44 45 52 4E 20 2F  20 53 50 41 43 45 20 3D  |ENDERN / SPACE =|
00000CC0: 20 57 45 49 54 45 52 20  20 20 46 31 20 3D 20 32  | WEITER   F1 = 2|
00000CD0: 30 20 57 45 49 54 45 52  20 2F 20 45 20 3D 20 4D  |0 WEITER / E = M|
00000CE0: 45 4E 55 45 22 00 00 15  D4 03 81 49 B2 30 A4 58  |ENUE"......I.0.X|
00000CF0: 3A 99 22 11 22 42 24 28  49 29 3A 41 24 B2 22 22  |:."."B$(I):A$.""|
00000D00: 00 34 15 DE 03 8D 32 34  30 3A 8B 41 24 B3 B1 22  |.4....240:.A$.."|
00000D10: 20 22 AF 41 24 B3 B1 C7  28 31 34 30 29 AF 41 24  | ".A$...(140).A$|
00000D20: B3 B1 22 45 22 AF 41 24  B3 B1 C7 28 31 33 33 29  |.."E".A$...(133)|
00000D30: A7 39 39 30 00 6F 15 E8  03 8B 41 24 B2 C7 28 31  |.990.o....A$..(1|
00000D40: 34 30 29 A7 4E 45 24 B2  22 22 3A 85 22 11 4E 45  |40).NE$."":.".NE|
00000D50: 55 20 22 3B 4E 45 24 3A  8B 4E 45 24 B3 B1 22 22  |U ";NE$:.NE$..""|
00000D60: A7 42 24 28 49 29 B2 4E  45 24 3A 53 50 B2 30 00  |.B$(I).NE$:SP.0.|
00000D70: 8F 15 F2 03 8B 41 24 B2  C7 28 31 33 33 29 A7 8B  |.....A$..(133)..|
00000D80: 49 B3 28 58 AB 32 31 29  A7 49 B2 49 AA 32 30 00  |I.(X.21).I.I.20.|
00000D90: 9F 15 FC 03 8B 41 24 B2  22 45 22 A7 49 B2 58 00  |.....A$."E".I.X.|
00000DA0: AA 15 06 04 82 3A 89 33  31 30 00 E9 15 10 04 99  |.....:.310......|
00000DB0: 22 11 20 12 2B 92 20 3D  20 4E 41 45 43 48 53 54  |". .+. = NAECHST|
00000DC0: 45 52 20 20 42 45 47 52  49 46 46 22 3A 99 22 20  |ER  BEGRIFF":." |
00000DD0: 12 2D 92 20 3D 20 56 4F  52 48 45 52 49 47 45 52  |.-. = VORHERIGER|
00000DE0: 20 42 45 47 52 49 46 46  22 00 FD 15 1A 04 8B 53  | BEGRIFF"......S|
00000DF0: 55 24 B2 42 24 28 30 29  A7 31 31 34 30 00 1B 16  |U$.B$(0).1140...|
00000E00: 24 04 53 55 B2 B5 28 BC  28 58 29 AD BC 28 32 29  |$.SU..(.(X)..(2)|
00000E10: 29 3A 53 53 B2 32 AE 53  55 AB 31 00 2A 16 2E 04  |):SS.2.SU.1.*...|
00000E20: 81 49 B2 53 55 A4 30 A9  AB 31 00 44 16 38 04 8B  |.I.SU.0..1.D.8..|
00000E30: 42 24 28 53 53 29 B3 53  55 24 A7 53 53 B2 53 53  |B$(SS).SU$.SS.SS|
00000E40: AA 32 AE 49 00 5E 16 42  04 8B 42 24 28 53 53 29  |.2.I.^.B..B$(SS)|
00000E50: B1 53 55 24 A7 53 53 B2  53 53 AB 32 AE 49 00 6D  |.SU$.SS.SS.2.I.m|
00000E60: 16 4C 04 8B 53 53 B3 30  A7 53 53 B2 30 00 80 16  |.L..SS.0.SS.0...|
00000E70: 56 04 8B 53 53 B1 58 AB  31 A7 53 53 B2 58 AB 31  |V..SS.X.1.SS.X.1|
00000E80: 00 87 16 60 04 82 49 00  9F 16 6A 04 8B 42 24 28  |...`..I...j..B$(|
00000E90: 53 53 29 B3 53 55 24 A7  53 53 B2 53 53 AA 31 00  |SS).SU$.SS.SS.1.|
00000EA0: B3 16 74 04 99 22 11 22  42 24 28 53 53 29 3A 8D  |..t.."."B$(SS):.|
00000EB0: 32 34 30 00 D3 16 7E 04  8B 41 24 B2 22 2B 22 A7  |240...~..A$."+".|
00000EC0: 53 53 B2 53 53 AA 31 3A  8B 53 53 B3 B2 58 A7 31  |SS.SS.1:.SS..X.1|
00000ED0: 31 34 30 00 F0 16 83 04  8B 41 24 B2 22 2B 22 A7  |140......A$."+".|
00000EE0: 8B 53 53 B1 58 A7 53 53  B2 30 3A 89 31 31 34 30  |.SS.X.SS.0:.1140|
00000EF0: 00 10 17 88 04 8B 41 24  B2 22 2D 22 A7 53 53 B2  |......A$."-".SS.|
00000F00: 53 53 AB 31 3A 8B 53 53  B2 B1 30 A7 31 31 34 30  |SS.1:.SS..0.1140|
00000F10: 00 25 17 8D 04 8B 53 53  B3 30 A7 53 53 B2 58 3A  |.%....SS.0.SS.X:|
00000F20: 89 31 31 34 30 00 2B 17  92 04 8E 00 00 00        |.1140.+.......  |

.."....B(828)..160.."MSP-SORT",8,1.:....
B$(2000):X..1:SO.0.Q...K.53280:.K,.:.K.1
,.:E.B(186):.L.1.9:.DA$(L):.:.300...(.FA
..(.(1).15).1:.FA.0.40...2..FA.F1.40...<
.F1.FA:..Q.F..".KEINE DATEN VORHANDEN!":
.240:.310.!.P.."..ZUM SCRATCHEN EINER DA
TEI 'L' EINGEBEN, DANN DIE KENNZIFFER DE
R DATEI!".:.Z..". RETURN = MENUE ".O.D.C
$."":.".KENNZIFFER   $...";C$:.C$."$"..1
40:.100...N..C$."L".LE.1:.100.F.X..LE.1.
LE.0:D$."DATEI / ".C$.".DAT":.15,E,15,"S
:".D$: 15:.100.L.....Y....E.8.E.8......"
.":.1,E,0,"$":.781,1:.65478:.AA$,AA$:EE$
.G(0).5. ..AA$,AA$,HH$,LL$:.ST..65484: 1
:.200.U....F(HH$.EE$).256.F(LL$.EE$);.U.
...AA$,BB$:.AA$..AA$BB$;:.180......AA$:.
160...H..240:....R..DATEN EINGEBEN,DATEN
 AUSGEBEN,DATEN DRUCKEN,DATEN SPEICHERN,
DATEN LADEN......DATEN SORTIEREN,DATEN L
OESCHEN,DATEN AENDERN,ENDE.,....".LOESCH
EN = RETURN".?....A$:.A$."".240.E.....R.
...15,E,15......15,AA,BB$,CC,DD:.AA..0..
".. DISKFEHLER ":.290........."..,AA;BB$
;CC;DD:.240: 2: 15:.280...,.SP.1...6..53
265,11:."...              DATEIPROGRAMM.
"...@...17)"........":..17)". MENUE ..".
O.J..L.1.9:.40:.646,FA:.".".9)L;"  =  ";
DA$(L):.:.".":.53265,27.M.T..240:A.E(A$)
:.A.1.A.9.340...^..A.360,460,460,660,760
,840,880,960,860...H.."... DATEN-EINGABE
 / RETURN = MENUE":." ^ = VORHER. BEGRIF
F AENDERN":X.X.1...R..X.1999..".DATEI VO
LL!":X.X.1:.240:.310.5.|.B$(X)."":.". BE
GRIFF ";B$(X).N....B$(X)."".X.X.1:.310.T
....B$(X)."^"..X.0.X.X.1:."...":.380....
..X.0.450......Y.0.X.1.O....B$(X).H(B$(Y
),C(B$(X)))..".."B$(Y):.230:.A$.G(13).Z.
1:Y.X.1......:.Z.1.Z.0:.380...B.X.X.1:SP
.0:SO.0:.370...L..X.0.70...V.C.3:.A.3.C.
4:.580.T...."..SUCHEN ? [SPACE = . NEIN 
.]":.240:.A$." ".570......"..RETURN = ME
NUE / * = ALLE BEGRIFFE".....SU$."":.".S
UCHBEGRIFF  A...";SU$......SU$."".310.F.
...SU$."*".570......SO.1..1040:.490.....
.F(SU$).48.F(SU$).90.."...":.500./.&..I.
0.X:.SU$.H(B$(I),C(SU$)).."."B$(I):.240.
:.0..:.490...:..".. F1/F3 = 2 SEITEN WEI
TER/ZURUECK .":." SPACE = WEITER":.240:.
"."...D..1,C:.B.0.X:A$."".Z.N..B.0..C.3.
.B.23..(B.23)..240:.".":.A$."E".B.X:."TA
STE!":.640...X..C.3..A$.G(133)..B.(X.23)
.B.B.23:.630.*.B..C.3..A$.G(134)..B.69.B
.B.69:.630.S.L..B.0..C.4..B.62..(B.62)..
D.1.10:.1:..`.V..1,B$(B).{....:.1: 1:.C.
3..240:.310......340......X.0.70......80
:.C$."".310.....C.E(C$):.C.1.C.99.670...
..D$."DATEI / ".C$.".DAT":.E.8.E.8......
H.1..15,E,15,"S:".D$: 15.%.F..2,E,2,D$."
,S,W":.260:.AA..0.310.J.P.."..........DA
TEN GESPEICHERT !".W.Z..F.0.X:."...";F:.
2,B$(F):.270:.AA..0.F.X......: 2: 15:SP.
1:.H.1.H.0:.860. ....310......80:.C$."".
310.I...C.E(C$):.C.99.760.....D$."DATEI 
/ ".C$.".DAT":.E.8.E.8.$....2,E,2,D$.",S
,R":XX.X:X.X.1:.260:.AA..0.X.XX:.310.J. 
.."..........DATEN GELADEN !":XY.1...*..
X.2000.."...";XY:.2,B$(X):.ST..64.X.X.1:
XY.XY.1:.810...4..X.2000.X.X.1:.".DATEI 
VOLL!"...>. 2: 15:.240:.310.G.H..X.0.70.
..R..".        DATEN WERDEN SORTIERT !":
B$(X.1)."":.828:SP.0:SO.1:.310...\..X..0
..SP.0.H.1:C$."0":.690.P.F..".... NEUSTA
RT OHNE DATENVERLUST MIT":."..GOTO310":.
"....":..|.P..X.0.70.H.Z.."..F8 = BEGRIF
F LOESCHEN / SPACE = WEITER  F1 = 20 WEI
TER / E = MENUE"......I.0.X:."."B$(I):A$
.""......240:.A$.." ".A$..G(140).A$.."E"
.A$..G(133).910.R....A$.G(140).J.I:.M.J.
X:B$(M).B$(M.1):.:X.X.1:I.I.1:SP.0.R....
A$.G(133)..I.(X.21).I.I.20......A$."E".I
.X......:.310......X.0.70...J.."..F8 = B
EGRIFF AENDERN / SPACE = WEITER   F1 = 2
0 WEITER / E = MENUE"...T..I.0.X:."."B$(
I):A$."".4....240:.A$.." ".A$..G(140).A$
.."E".A$..G(133).990.O....A$.G(140).NE$.
"":.".NEU ";NE$:.NE$.."".B$(I).NE$:SP.0.
.....A$.G(133)..I.(X.21).I.I.20......A$.
"E".I.X......:.310......". .+. = NAECHST
ER  BEGRIFF":." .-. = VORHERIGER BEGRIFF
"......SU$.B$(0).1140...$.SU..(.(X)..(2)
):SS.2.SU.1.*....I.SU.0..1.D.8..B$(SS).S
U$.SS.SS.2.I.^.B..B$(SS).SU$.SS.SS.2.I.M
.L..SS.0.SS.0...V..SS.X.1.SS.X.1...`..I.
..J..B$(SS).SU$.SS.SS.1...T.."."B$(SS):.
240.S.~..A$."+".SS.SS.1:.SS..X.1140.....
.A$."+"..SS.X.SS.0:.1140......A$."-".SS.
SS.1:.SS..0.1140.%....SS.0.SS.X:.1140.+.
......

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL