KRANKHEIT 1
FILE INFORMATION
FILENAME(S): KRANKHEIT 1
FILE TYPE(S): PRG
FILE SIZE: 5K
FIRST SEEN: 2025-12-02 23:47:44
APPEARS ON: 1 disk(s)
FILE HASH
0ec715f7423c614841627eccaca04ff192b223916d299fd7250bdf87209c96e6
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| KRANKHEITEN | KRANKHEIT 1 | PRG | swasti, flohmarkt | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 00 00 89 20 31 30 00 2B 08 0A 00 97 |....... 10.+....|
00000010: 35 33 32 38 30 2C 32 3A 97 35 33 32 38 31 2C 32 |53280,2:.53281,2|
00000020: 3A 99 C7 28 31 35 38 20 20 20 29 00 3A 08 14 00 |:..(158 ).:...|
00000030: 86 44 24 28 32 30 30 2C 37 29 00 5A 08 1E 00 46 |.D$(200,7).Z...F|
00000040: 24 28 31 29 B2 22 4B 52 41 4E 4B 48 45 49 54 20 |$(1)."KRANKHEIT |
00000050: 20 20 20 20 20 20 20 20 20 22 00 7A 08 1F 00 46 | ".z...F|
00000060: 24 28 32 29 B2 22 56 4F 52 4E 41 4D 45 20 20 20 |$(2)."VORNAME |
00000070: 20 20 20 20 20 20 20 20 20 22 00 9A 08 20 00 46 | "... .F|
00000080: 24 28 33 29 B2 22 56 4F 4E 2D 42 49 53 20 20 20 |$(3)."VON-BIS |
00000090: 20 20 20 20 20 20 20 20 20 22 00 BA 08 21 00 46 | "...!.F|
000000A0: 24 28 34 29 B2 22 41 52 5A 54 20 20 20 20 20 20 |$(4)."ARZT |
000000B0: 20 20 20 20 20 20 20 20 20 22 00 DA 08 22 00 46 | "...".F|
000000C0: 24 28 35 29 B2 22 53 59 4D 54 4F 4D 45 20 20 20 |$(5)."SYMTOME |
000000D0: 20 20 20 20 20 20 20 20 20 22 00 FA 08 23 00 46 | "...#.F|
000000E0: 24 28 36 29 B2 22 4D 45 44 49 5A 49 4E 20 20 20 |$(6)."MEDIZIN |
000000F0: 20 20 20 20 20 20 20 20 20 22 00 1A 09 24 00 46 | "...$.F|
00000100: 24 28 37 29 B2 22 53 4F 4E 53 54 49 47 45 53 20 |$(7)."SONSTIGES |
00000110: 20 20 20 20 20 20 20 20 20 22 00 25 09 63 00 89 | ".%.c..|
00000120: 20 31 30 30 30 00 3D 09 64 00 8F 20 20 3D 3D 3D | 1000.=.d.. ===|
00000130: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 53 09 |=============.S.|
00000140: 6E 00 8F 20 20 20 20 50 52 4F 47 52 41 4D 4D 4B |n.. PROGRAMMK|
00000150: 4F 50 46 00 6B 09 78 00 8F 20 20 3D 3D 3D 3D 3D |OPF.k.x.. =====|
00000160: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 79 09 82 00 |===========.y...|
00000170: 99 20 C7 28 31 34 37 29 3B 00 8E 09 8C 00 81 20 |. .(147);...... |
00000180: 49 B2 31 A4 34 30 3A 99 22 3D 22 3B 3A 82 00 A3 |I.1.40:."=";:...|
00000190: 09 96 00 99 22 20 20 20 20 44 41 54 45 49 20 20 |...." DATEI |
000001A0: 20 20 22 00 B8 09 A0 00 81 20 49 B2 31 A4 34 30 | "...... I.1.40|
000001B0: 3A 99 22 3D 22 3B 3A 82 00 C0 09 AA 00 99 3A 99 |:."=";:.......:.|
000001C0: 00 C6 09 B4 00 8E 00 DE 09 C8 00 8F 20 20 3D 3D |............ ==|
000001D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 F4 |==============..|
000001E0: 09 D2 00 8F 20 20 20 46 45 48 4C 45 52 4D 45 4C |.... FEHLERMEL|
000001F0: 44 55 4E 47 00 0C 0A DC 00 8F 20 20 3D 3D 3D 3D |DUNG...... ====|
00000200: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 19 0A E6 |============....|
00000210: 00 99 20 C7 28 31 39 29 3B 00 31 0A F0 00 81 20 |.. .(19);.1.... |
00000220: 58 B2 31 A4 32 34 3A 99 20 C7 28 31 37 29 3B 3A |X.1.24:. .(17);:|
00000230: 82 00 49 0A FA 00 99 20 C7 28 31 38 29 3B 46 45 |..I.... .(18);FE|
00000240: 24 3B C7 28 31 34 36 29 3B 00 5C 0A 04 01 81 20 |$;.(146);.\.... |
00000250: 58 B2 31 20 A4 20 31 30 30 30 3A 82 00 62 0A 0E |X.1 . 1000:..b..|
00000260: 01 8E 00 7E 0A 2C 01 8F 20 20 3D 3D 3D 3D 3D 3D |...~.,.. ======|
00000270: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 9A |==============..|
00000280: 0A 36 01 8F 20 20 4B 4F 45 50 46 45 20 50 52 4F |.6.. KOEPFE PRO|
00000290: 47 52 41 4D 4D 54 45 49 4C 45 00 B6 0A 40 01 8F |GRAMMTEILE...@..|
000002A0: 20 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D | ==============|
000002B0: 3D 3D 3D 3D 3D 3D 00 D6 0A 45 01 50 54 24 28 30 |======...E.PT$(0|
000002C0: 29 B2 22 20 20 20 20 46 55 4E 4B 54 49 4F 4E 45 |)." FUNKTIONE|
000002D0: 4E 3A 20 20 20 22 00 F0 0A 4A 01 50 54 24 28 31 |N: "...J.PT$(1|
000002E0: 29 B2 22 44 41 54 45 49 20 4C 41 44 45 4E 20 22 |)."DATEI LADEN "|
000002F0: 00 0D 0B 54 01 50 54 24 28 32 29 B2 22 44 41 54 |...T.PT$(2)."DAT|
00000300: 45 49 20 53 50 45 49 43 48 45 52 4E 22 00 29 0B |EI SPEICHERN".).|
00000310: 5E 01 50 54 24 28 33 29 B2 22 44 41 54 45 4E 20 |^.PT$(3)."DATEN |
00000320: 45 49 4E 47 45 42 45 4E 22 00 44 0B 68 01 50 54 |EINGEBEN".D.h.PT|
00000330: 24 28 34 29 B2 22 44 41 54 45 4E 20 41 45 4E 44 |$(4)."DATEN AEND|
00000340: 45 52 4E 22 00 60 0B 72 01 50 54 24 28 35 29 B2 |ERN".`.r.PT$(5).|
00000350: 22 44 41 54 45 4E 20 4C 4F 45 53 43 48 45 4E 22 |"DATEN LOESCHEN"|
00000360: 00 7C 0B 7C 01 50 54 24 28 36 29 B2 22 44 41 54 |.|.|.PT$(6)."DAT|
00000370: 45 4E 20 41 55 53 47 45 42 45 4E 22 00 9A 0B 86 |EN AUSGEBEN"....|
00000380: 01 50 54 24 28 37 29 B2 22 50 52 4F 47 52 41 4D |.PT$(7)."PROGRAM|
00000390: 4D 20 42 45 45 4E 44 45 4E 22 00 A4 0B 90 01 8D |M BEENDEN"......|
000003A0: 20 31 30 30 00 BC 0B 9A 01 99 20 22 20 20 20 20 | 100...... " |
000003B0: 20 20 20 20 22 3B C7 28 33 30 29 3B 00 CA 0B A4 | ";.(30);....|
000003C0: 01 99 20 C7 28 32 31 33 29 3B 00 E3 0B A6 01 81 |.. .(213);......|
000003D0: 20 49 B2 31 A4 31 39 3A 99 20 C7 28 31 39 35 29 | I.1.19:. .(195)|
000003E0: 3B 3A 82 00 F0 0B A8 01 99 20 C7 28 32 30 31 29 |;:....... .(201)|
000003F0: 00 27 0C AE 01 99 20 22 20 20 20 20 20 20 20 20 |.'.... " |
00000400: 22 3B C7 28 31 39 34 29 3B C7 28 31 35 38 29 3B |";.(194);.(158);|
00000410: 20 20 20 20 50 54 24 28 46 29 3B C7 28 33 30 29 | PT$(F);.(30)|
00000420: 3B C7 28 31 39 34 29 00 40 0C B8 01 99 20 22 20 |;.(194).@.... " |
00000430: 20 20 20 20 20 20 20 22 3B C7 28 32 30 32 29 3B | ";.(202);|
00000440: 00 59 0C BA 01 81 20 49 B2 31 A4 31 39 3A 99 20 |.Y.... I.1.19:. |
00000450: C7 28 31 39 35 29 3B 3A 82 00 66 0C BC 01 99 20 |.(195);:..f.... |
00000460: C7 28 32 30 33 29 00 6C 0C C2 01 8E 00 84 0C F4 |.(203).l........|
00000470: 01 8F 20 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.. ============|
00000480: 3D 3D 3D 3D 00 9C 0C FE 01 8F 20 20 44 41 54 45 |====...... DATE|
00000490: 4E 20 49 4D 20 52 45 43 48 4E 45 52 00 B4 0C 08 |N IM RECHNER....|
000004A0: 02 8F 20 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.. ============|
000004B0: 3D 3D 3D 3D 00 C4 0C 12 02 8B 20 5A B1 30 20 A7 |====...... Z.0 .|
000004C0: 20 35 36 30 00 E6 0C 1C 02 46 45 24 B2 22 4B 45 | 560.....FE$."KE|
000004D0: 49 4E 45 20 44 41 54 45 4E 20 49 4D 20 52 45 43 |INE DATEN IM REC|
000004E0: 48 4E 45 52 21 22 00 F0 0C 26 02 8D 20 32 30 30 |HNER!"...&.. 200|
000004F0: 00 F6 0C 30 02 8E 00 0D 0D E8 03 8F 20 3D 3D 3D |...0........ ===|
00000500: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 1E 0D |=============...|
00000510: F2 03 8F 20 20 20 20 20 20 4D 45 4E 55 45 00 35 |... MENUE.5|
00000520: 0D FC 03 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.... ===========|
00000530: 3D 3D 3D 3D 3D 00 43 0D 01 04 46 B2 30 3A 8D 20 |=====.C...F.0:. |
00000540: 33 30 30 00 49 0D 06 04 99 00 79 0D 10 04 99 20 |300.I.....y.... |
00000550: C7 28 31 34 34 29 3B 22 20 2D 31 2D 22 3B C7 28 |.(144);" -1-";.(|
00000560: 31 35 38 29 3B 22 20 20 20 20 20 20 44 41 54 45 |158);" DATE|
00000570: 49 20 4C 41 44 45 4E 20 22 00 AD 0D 1A 04 99 20 |I LADEN "...... |
00000580: C7 28 31 34 34 29 3B 22 20 2D 32 2D 22 3B C7 28 |.(144);" -2-";.(|
00000590: 31 35 38 29 3B 22 20 20 20 20 20 20 44 41 54 45 |158);" DATE|
000005A0: 49 20 53 50 45 49 43 48 45 52 4E 20 22 00 E0 0D |I SPEICHERN "...|
000005B0: 24 04 99 20 C7 28 31 34 34 29 3B 22 20 2D 33 2D |$.. .(144);" -3-|
000005C0: 22 3B C7 28 31 35 38 29 3B 22 20 20 20 20 20 20 |";.(158);" |
000005D0: 44 41 54 45 4E 20 45 49 4E 47 45 42 45 4E 20 22 |DATEN EINGEBEN "|
000005E0: 00 12 0E 2E 04 99 20 C7 28 31 34 34 29 3B 22 20 |...... .(144);" |
000005F0: 2D 34 2D 22 3B C7 28 31 35 38 29 3B 22 20 20 20 |-4-";.(158);" |
00000600: 20 20 20 44 41 54 45 4E 20 41 45 4E 44 45 52 4E | DATEN AENDERN|
00000610: 20 22 00 44 0E 38 04 99 20 C7 28 31 34 34 29 3B | ".D.8.. .(144);|
00000620: 22 20 2D 35 2D 22 3B C7 28 31 35 38 29 3B 22 20 |" -5-";.(158);" |
00000630: 20 20 20 20 20 44 41 54 45 4E 20 4C 4F 45 53 43 | DATEN LOESC|
00000640: 48 45 4E 22 00 76 0E 42 04 99 20 C7 28 31 34 34 |HEN".v.B.. .(144|
00000650: 29 3B 22 20 2D 36 2D 22 3B C7 28 31 35 38 29 3B |);" -6-";.(158);|
00000660: 22 20 20 20 20 20 20 44 41 54 45 4E 20 41 55 53 |" DATEN AUS|
00000670: 47 45 42 45 4E 22 00 AA 0E 4C 04 99 20 C7 28 31 |GEBEN"...L.. .(1|
00000680: 34 34 29 3B 22 20 2D 37 2D 22 3B C7 28 31 35 38 |44);" -7-";.(158|
00000690: 29 3B 22 20 20 20 20 20 20 50 52 4F 47 52 41 4D |);" PROGRAM|
000006A0: 4D 20 42 45 45 4E 44 45 4E 22 00 B2 0E 51 04 99 |M BEENDEN"...Q..|
000006B0: 3A 99 00 D7 0E 56 04 99 20 C7 28 31 34 34 29 3B |:....V.. .(144);|
000006C0: 22 41 55 53 57 41 48 4C 22 20 3B C7 28 31 35 38 |"AUSWAHL" ;.(158|
000006D0: 20 20 20 20 20 29 3B 00 DF 0E 5B 04 85 20 46 00 | );...[.. F.|
000006E0: 19 0F 60 04 8B 20 46 B3 31 20 B0 20 46 B1 37 20 |..`.. F.1 . F.7 |
000006F0: A7 20 46 45 24 B2 22 55 4E 47 55 45 4C 54 49 47 |. FE$."UNGUELTIG|
00000700: 45 52 20 20 20 20 20 57 45 52 54 22 3A 8D 20 32 |ER WERT":. 2|
00000710: 30 30 3A 89 20 31 30 30 30 00 53 0F 6A 04 91 20 |00:. 1000.S.j.. |
00000720: 46 20 89 20 35 30 30 30 2C 31 30 30 30 30 2C 31 |F . 5000,10000,1|
00000730: 35 30 30 30 2C 32 30 30 30 30 2C 20 20 20 20 20 |5000,20000, |
00000740: 20 20 32 35 30 30 30 2C 33 30 30 30 30 2C 33 35 | 25000,30000,35|
00000750: 30 30 30 00 68 0F 88 13 8F 20 3D 3D 3D 3D 3D 3D |000.h.... ======|
00000760: 3D 3D 3D 3D 3D 3D 3D 3D 00 7A 0F 92 13 8F 20 44 |========.z.... D|
00000770: 41 54 45 49 20 4C 41 44 45 4E 00 8F 0F 9C 13 8F |ATEI LADEN......|
00000780: 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 | ==============.|
00000790: 9C 0F A6 13 8D 20 33 30 30 3A 20 99 00 BD 0F B0 |..... 300: .....|
000007A0: 13 99 20 22 42 49 54 54 45 20 44 49 53 4B 45 54 |.. "BITTE DISKET|
000007B0: 54 45 20 45 49 4E 4C 45 47 45 4E 21 22 00 C3 0F |TE EINLEGEN!"...|
000007C0: C9 13 99 00 E0 0F CE 13 99 22 44 41 4E 4E 20 52 |........."DANN R|
000007D0: 45 54 55 52 4E 20 44 52 55 45 43 4B 45 4E 22 3B |ETURN DRUECKEN";|
000007E0: 00 E9 0F D8 13 85 20 58 24 00 EF 0F DD 13 99 00 |...... X$.......|
000007F0: 03 10 E2 13 9F 20 31 2C 38 2C 32 2C 22 44 41 54 |..... 1,8,2,"DAT|
00000800: 45 4E 22 00 0C 10 EC 13 84 31 2C 5A 00 1A 10 F6 |EN"......1,Z....|
00000810: 13 81 20 59 B2 31 20 A4 20 5A 00 28 10 00 14 81 |.. Y.1 . Z.(....|
00000820: 20 49 B2 31 20 A4 20 37 00 37 10 0A 14 84 31 2C | I.1 . 7.7....1,|
00000830: 44 24 28 59 2C 49 29 00 3F 10 14 14 82 20 49 00 |D$(Y,I).?.... I.|
00000840: 47 10 1E 14 82 20 59 00 4F 10 28 14 A0 20 31 00 |G.... Y.O.(.. 1.|
00000850: 6B 10 32 14 99 22 20 44 41 54 45 4E 20 53 49 4E |k.2.." DATEN SIN|
00000860: 44 20 47 45 4C 41 44 45 4E 20 22 00 7E 10 3C 14 |D GELADEN ".~.<.|
00000870: 81 20 58 B2 31 20 A4 20 32 30 30 30 3A 82 00 89 |. X.1 . 2000:...|
00000880: 10 46 14 89 20 31 30 30 30 00 A1 10 10 27 8F 20 |.F.. 1000....'. |
00000890: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000008A0: 3D 00 B7 10 24 27 8F 20 44 41 54 45 49 20 53 50 |=...$'. DATEI SP|
000008B0: 45 49 43 48 45 52 4E 00 CF 10 2E 27 8F 20 3D 3D |EICHERN....'. ==|
000008C0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 |===============.|
000008D0: E6 10 38 27 8D 20 35 30 30 3A 8B 20 5A B2 30 20 |..8'. 500:. Z.0 |
000008E0: A7 20 31 30 30 30 00 F2 10 3D 27 8D 20 33 30 30 |. 1000...='. 300|
000008F0: 3A 99 00 12 11 4C 27 99 20 22 42 49 54 54 45 20 |:....L'. "BITTE |
00000900: 44 49 53 4B 45 54 54 45 20 45 49 4E 4C 45 47 45 |DISKETTE EINLEGE|
00000910: 4E 22 00 18 11 56 27 99 00 36 11 60 27 99 22 44 |N"...V'..6.`'."D|
00000920: 41 4E 41 43 48 20 52 45 54 55 52 4E 20 44 52 55 |ANACH RETURN DRU|
00000930: 45 43 4B 45 4E 22 00 3F 11 65 27 85 20 58 24 00 |ECKEN".?.e'. X$.|
00000940: 57 11 6A 27 9F 20 31 35 2C 38 2C 31 35 2C 22 53 |W.j'. 15,8,15,"S|
00000950: 3A 44 41 54 45 4E 22 00 60 11 6F 27 A0 20 31 35 |:DATEN".`.o'. 15|
00000960: 00 78 11 74 27 9F 20 31 2C 38 2C 32 2C 22 44 41 |.x.t'. 1,8,2,"DA|
00000970: 54 45 4E 2C 53 2C 57 22 00 82 11 7E 27 98 31 20 |TEN,S,W"...~'.1 |
00000980: 2C 5A 00 90 11 88 27 81 20 59 B2 31 20 A4 20 5A |,Z....'. Y.1 . Z|
00000990: 00 9E 11 92 27 81 20 49 B2 31 20 A4 20 37 00 AD |....'. I.1 . 7..|
000009A0: 11 9C 27 98 31 2C 44 24 28 59 2C 49 29 00 B5 11 |..'.1,D$(Y,I)...|
000009B0: A6 27 82 20 49 00 BD 11 B0 27 82 20 59 00 C5 11 |.'. I....'. Y...|
000009C0: B5 27 A0 20 31 00 EB 11 BA 27 99 3A 99 22 44 41 |.'. 1....'.:."DA|
000009D0: 54 45 4E 20 53 49 4E 44 20 47 45 53 50 45 49 43 |TEN SIND GESPEIC|
000009E0: 48 45 52 54 20 20 20 20 20 20 22 00 FE 11 C4 27 |HERT "....'|
000009F0: 81 20 58 B2 31 20 A4 20 32 30 30 30 3A 82 00 09 |. X.1 . 2000:...|
00000A00: 12 CE 27 89 20 31 30 30 30 00 1E 12 98 3A 8F 20 |..'. 1000....:. |
00000A10: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 33 |==============.3|
00000A20: 12 A2 3A 8F 20 44 41 54 45 4E 20 45 49 4E 47 45 |..:. DATEN EINGE|
00000A30: 42 45 4E 00 48 12 AC 3A 8F 20 3D 3D 3D 3D 3D 3D |BEN.H..:. ======|
00000A40: 3D 3D 3D 3D 3D 3D 3D 3D 00 52 12 B6 3A 8D 20 33 |========.R..:. 3|
00000A50: 30 30 00 5C 12 C0 3A 5A B2 5A AA 31 00 62 12 CA |00.\..:Z.Z.1.b..|
00000A60: 3A 99 00 71 12 D4 3A 81 20 49 B2 20 31 20 A4 20 |:..q..:. I. 1 . |
00000A70: 37 00 7E 12 DE 3A 99 20 46 24 28 49 29 3B 00 8C |7.~..:. F$(I);..|
00000A80: 12 E8 3A 85 20 44 24 28 5A 2C 49 29 00 92 12 F2 |..:. D$(Z,I)....|
00000A90: 3A 82 00 98 12 FC 3A 99 00 C3 12 06 3B 99 20 22 |:.....:.....;. "|
00000AA0: 44 41 54 45 4E 20 52 49 43 48 54 49 47 20 45 49 |DATEN RICHTIG EI|
00000AB0: 4E 47 45 42 45 4E 28 4A 2F 4E 29 20 20 20 20 20 |NGEBEN(J/N) |
00000AC0: 20 22 3B 00 D2 12 10 3B 58 24 B2 22 22 3A 85 20 | ";....;X$."":. |
00000AD0: 58 24 00 E7 12 1A 3B 8B 20 58 24 B2 22 4A 22 20 |X$....;. X$."J" |
00000AE0: A7 20 31 35 31 36 30 00 04 13 24 3B 8B 20 58 24 |. 15160...$;. X$|
00000AF0: B2 22 4E 22 20 A7 20 5A B2 5A AB 31 3A 89 20 31 |."N" . Z.Z.1:. 1|
00000B00: 35 30 30 30 00 1A 13 2E 3B 99 20 C7 28 31 34 35 |5000....;. .(145|
00000B10: 29 3B 3A 89 20 31 35 31 31 30 00 3A 13 38 3B 99 |);:. 15110.:.8;.|
00000B20: 20 22 57 45 49 54 45 52 45 20 45 49 4E 47 41 42 | "WEITERE EINGAB|
00000B30: 45 4E 20 28 4A 2F 4E 29 22 3B 00 49 13 42 3B 58 |EN (J/N)";.I.B;X|
00000B40: 24 B2 22 22 3A 85 20 58 24 00 5E 13 4C 3B 8B 20 |$."":. X$.^.L;. |
00000B50: 58 24 B2 22 4A 22 20 A7 20 31 35 30 30 30 00 72 |X$."J" . 15000.r|
00000B60: 13 56 3B 8B 20 58 24 B2 22 4E 22 20 A7 20 31 30 |.V;. X$."N" . 10|
00000B70: 30 30 00 88 13 60 3B 99 20 C7 28 31 34 35 29 3B |00...`;. .(145);|
00000B80: 3A 89 20 31 35 31 36 30 00 9D 13 20 4E 8F 20 3D |:. 15160... N. =|
00000B90: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 B1 13 |=============...|
00000BA0: 2A 4E 8F 20 44 41 54 45 4E 20 41 45 4E 44 45 52 |*N. DATEN AENDER|
00000BB0: 4E 00 C6 13 34 4E 8F 20 3D 3D 3D 3D 3D 3D 3D 3D |N...4N. ========|
00000BC0: 3D 3D 3D 3D 3D 3D 00 DD 13 39 4E 8D 20 35 30 30 |======...9N. 500|
00000BD0: 3A 8B 20 5A B2 30 20 A7 20 31 30 30 30 00 E6 13 |:. Z.0 . 1000...|
00000BE0: 3E 4E 5A 5A B2 31 00 F0 13 48 4E 8D 20 33 30 30 |>NZZ.1...HN. 300|
00000BF0: 00 F6 13 52 4E 99 00 04 14 5C 4E 81 20 49 B2 31 |...RN....\N. I.1|
00000C00: 20 A4 20 37 00 1B 14 66 4E 99 20 49 3B 46 24 28 | . 7...fN. I;F$(|
00000C10: 49 29 3B 44 24 28 5A 5A 2C 49 29 00 21 14 70 4E |I);D$(ZZ,I).!.pN|
00000C20: 82 00 3A 14 7A 4E A1 20 58 24 3A 8B 20 58 24 B2 |..:.zN. X$:. X$.|
00000C30: 22 22 20 A7 20 32 30 30 39 30 00 63 14 84 4E 8B |"" . 20090.c..N.|
00000C40: 20 C6 28 58 24 29 B3 31 33 33 20 B0 20 C6 28 58 | .(X$).133 . .(X|
00000C50: 24 29 B1 31 33 36 20 A7 20 20 20 20 20 20 32 30 |$).136 . 20|
00000C60: 30 39 30 00 7A 14 8E 4E 8B 20 C6 28 58 24 29 B2 |090.z..N. .(X$).|
00000C70: 31 33 36 20 A7 20 31 30 30 30 00 A9 14 98 4E 8B |136 . 1000....N.|
00000C80: 20 C6 28 58 24 29 B2 31 33 33 20 AF 20 5A 5A B3 | .(X$).133 . ZZ.|
00000C90: 5A 20 A7 20 5A 5A B2 5A 5A 20 20 20 20 20 20 AA |Z . ZZ.ZZ .|
00000CA0: 31 3A 89 20 32 30 30 34 30 00 D8 14 A2 4E 8B 20 |1:. 20040....N. |
00000CB0: C6 28 58 24 29 B2 31 33 34 20 AF 20 5A 5A B1 31 |.(X$).134 . ZZ.1|
00000CC0: 20 A7 20 5A 5A B2 5A 5A 20 20 20 20 20 20 AB 31 | . ZZ.ZZ .1|
00000CD0: 3A 89 20 32 30 30 34 30 00 F0 14 AC 4E 8B 20 C6 |:. 20040....N. .|
00000CE0: 28 58 24 29 B2 31 33 35 20 A7 20 32 30 31 36 30 |(X$).135 . 20160|
00000CF0: 00 FC 14 B6 4E 89 20 32 30 30 39 30 00 02 15 C0 |....N. 20090....|
00000D00: 4E 99 00 1C 15 CA 4E 85 20 22 46 45 4C 44 4E 55 |N.....N. "FELDNU|
00000D10: 4D 4D 45 52 28 31 2D 37 29 22 3B 58 00 46 15 D4 |MMER(1-7)";X.F..|
00000D20: 4E 8B 20 58 B3 31 20 B0 20 58 B1 37 20 A7 20 99 |N. X.1 . X.7 . .|
00000D30: 20 C7 28 31 34 35 29 20 20 20 20 20 20 3B 3A 89 | .(145) ;:.|
00000D40: 20 32 30 31 37 30 00 4C 15 DE 4E 99 00 6A 15 E8 | 20170.L..N..j..|
00000D50: 4E 85 22 4E 45 55 45 52 20 49 4E 48 41 4C 54 3A |N."NEUER INHALT:|
00000D60: 22 3B 44 24 28 5A 5A 2C 58 29 00 76 15 F2 4E 89 |";D$(ZZ,X).v..N.|
00000D70: 20 32 30 30 34 30 00 8D 15 A8 61 8F 20 20 3D 3D | 20040....a. ==|
00000D80: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 A3 15 |=============...|
00000D90: B2 61 8F 20 20 44 41 54 45 4E 20 4C 4F 45 53 43 |.a. DATEN LOESC|
00000DA0: 48 45 4E 00 BA 15 BC 61 8F 20 20 3D 3D 3D 3D 3D |HEN....a. =====|
00000DB0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 D8 15 C6 61 8D |==========....a.|
00000DC0: 20 35 30 30 3A 8F 20 44 41 54 45 4E 20 49 4D 20 | 500:. DATEN IM |
00000DD0: 52 45 43 48 4E 45 52 3F 00 E9 15 CB 61 8B 20 5A |RECHNER?....a. Z|
00000DE0: B2 30 20 A7 20 31 30 30 30 00 FA 15 D0 61 8D 20 |.0 . 1000....a. |
00000DF0: 33 30 30 3A 8F 20 4B 4F 50 46 00 00 16 DA 61 99 |300:. KOPF....a.|
00000E00: 00 16 16 E4 61 85 20 22 56 4F 52 4E 41 4D 45 3A |....a. "VORNAME:|
00000E10: 20 22 3B 44 31 24 00 2C 16 EE 61 85 20 22 56 4F | ";D1$.,..a. "VO|
00000E20: 4E 2D 42 49 53 3A 20 22 3B 44 32 24 00 34 16 F8 |N-BIS: ";D2$.4..|
00000E30: 61 58 B2 31 00 65 16 02 62 8B 20 44 24 28 58 2C |aX.1.e..b. D$(X,|
00000E40: 32 29 B2 44 31 24 20 AF 20 44 24 28 58 2C 33 29 |2).D1$ . D$(X,3)|
00000E50: B2 44 32 24 20 54 48 45 20 20 20 20 20 20 4E 20 |.D2$ THE N |
00000E60: 32 35 31 33 30 00 7F 16 0C 62 8B 20 58 B3 5A 20 |25130....b. X.Z |
00000E70: A7 20 58 B2 58 AA 31 3A 89 20 32 35 30 39 30 00 |. X.X.1:. 25090.|
00000E80: 9E 16 16 62 46 45 24 B2 22 4E 41 4D 45 20 4E 49 |...bFE$."NAME NI|
00000E90: 43 48 54 20 47 45 46 55 4E 44 45 4E 21 22 00 AF |CHT GEFUNDEN!"..|
00000EA0: 16 20 62 8D 20 32 30 30 3A 89 20 31 30 30 30 00 |. b. 200:. 1000.|
00000EB0: BB 16 2A 62 8D 20 33 30 30 3A 99 00 C9 16 2F 62 |..*b. 300:..../b|
00000EC0: 81 20 49 B2 31 20 A4 20 37 00 DD 16 34 62 99 20 |. I.1 . 7...4b. |
00000ED0: 46 24 28 49 29 3B 44 24 28 58 2C 49 29 00 E3 16 |F$(I);D$(X,I)...|
00000EE0: 3E 62 82 00 E9 16 43 62 99 00 08 17 48 62 85 22 |>b....Cb....Hb."|
00000EF0: 44 41 54 45 4E 20 4C 4F 45 53 43 48 45 4E 20 28 |DATEN LOESCHEN (|
00000F00: 4A 2F 4E 29 22 3B 58 24 00 1C 17 52 62 8B 20 58 |J/N)";X$...Rb. X|
00000F10: 24 B2 22 4A 22 A7 20 32 35 32 30 30 00 2E 17 5C |$."J". 25200...\|
00000F20: 62 8B 58 24 B2 22 4E 22 A7 20 31 30 30 30 00 44 |b.X$."N". 1000.D|
00000F30: 17 66 62 99 20 C7 28 31 34 35 29 3B 3A 89 20 32 |.fb. .(145);:. 2|
00000F40: 35 31 36 30 00 54 17 70 62 81 20 59 B2 58 20 A4 |5160.T.pb. Y.X .|
00000F50: 20 5A AB 31 00 62 17 7A 62 81 20 49 B2 31 20 A4 | Z.1.b.zb. I.1 .|
00000F60: 20 37 00 78 17 84 62 44 24 28 59 2C 49 29 B2 44 | 7.x..bD$(Y,I).D|
00000F70: 24 28 59 AA 31 2C 49 29 00 80 17 8E 62 82 20 49 |$(Y.1,I)....b. I|
00000F80: 00 88 17 98 62 82 20 59 00 92 17 A2 62 5A B2 5A |....b. Y....bZ.Z|
00000F90: AB 31 00 9D 17 AC 62 89 20 31 30 30 30 00 B5 17 |.1....b. 1000...|
00000FA0: 30 75 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |0u. ============|
00000FB0: 3D 3D 3D 3D 3D 00 CA 17 3A 75 8F 20 44 41 54 45 |=====...:u. DATE|
00000FC0: 4E 20 41 55 53 47 45 42 45 4E 00 E2 17 44 75 8F |N AUSGEBEN...Du.|
00000FD0: 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D | ===============|
00000FE0: 3D 3D 00 EC 17 4E 75 8D 20 35 30 30 00 FD 17 58 |==...Nu. 500...X|
00000FF0: 75 8B 20 5A B2 30 20 A7 20 31 30 30 30 00 0A 18 |u. Z.0 . 1000...|
00001000: 62 75 8D 20 33 30 30 3A 20 99 00 39 18 6C 75 85 |bu. 300: ..9.lu.|
00001010: 20 22 44 52 55 43 4B 45 52 20 4F 44 45 52 20 42 | "DRUCKER ODER B|
00001020: 49 4C 44 53 43 48 49 52 4D 20 28 44 2F 20 20 20 |ILDSCHIRM (D/ |
00001030: 20 20 20 42 29 22 3B 47 24 00 6B 18 76 75 8B 20 | B)";G$.k.vu. |
00001040: 47 24 B3 B1 22 42 22 20 AF 20 47 24 B3 B1 22 44 |G$.."B" . G$.."D|
00001050: 22 20 A7 20 99 20 20 20 20 20 20 20 C7 28 31 34 |" . . .(14|
00001060: 35 29 3B 3A 89 20 33 30 30 36 30 00 7F 18 7B 75 |5);:. 30060...{u|
00001070: 8B 20 47 24 B2 22 44 22 A7 20 9F 20 31 2C 34 00 |. G$."D". . 1,4.|
00001080: 8B 18 80 75 8D 20 33 30 30 3A 99 00 A0 18 8A 75 |...u. 300:.....u|
00001090: 99 22 53 55 43 48 42 45 47 52 49 46 46 45 3A 22 |."SUCHBEGRIFFE:"|
000010A0: 00 B5 18 94 75 99 22 2E 2E 2E 2E 2E 2E 2E 2E 2E |....u.".........|
000010B0: 2E 2E 2E 2E 22 00 BB 18 9E 75 99 00 D4 18 A8 75 |...."....u.....u|
000010C0: 81 20 49 B2 31 20 A4 20 37 3A 53 24 28 49 29 B2 |. I.1 . 7:S$(I).|
000010D0: 22 22 3A 82 00 E2 18 B2 75 81 20 49 B2 31 20 A4 |"":.....u. I.1 .|
000010E0: 20 37 00 EF 18 BC 75 99 20 46 24 28 49 29 3B 00 | 7....u. F$(I);.|
000010F0: FB 18 C6 75 85 20 53 24 28 49 29 00 01 19 D0 75 |...u. S$(I)....u|
00001100: 82 00 0F 19 DA 75 81 20 59 B2 31 20 A4 20 5A 00 |.....u. Y.1 . Z.|
00001110: 17 19 E4 75 53 B2 30 00 25 19 EE 75 81 20 49 B2 |...uS.0.%..u. I.|
00001120: 31 20 A4 20 37 00 44 19 F8 75 8B 20 53 24 28 49 |1 . 7.D..u. S$(I|
00001130: 29 B2 22 22 20 A7 20 53 B2 53 AA 31 3A 89 20 33 |)."" . S.S.1:. 3|
00001140: 30 32 32 30 00 71 19 02 76 8B 20 C8 28 44 24 28 |0220.q..v. .(D$(|
00001150: 59 2C 49 29 2C C3 28 53 24 28 49 29 29 29 B2 53 |Y,I),.(S$(I))).S|
00001160: 24 28 49 29 20 20 20 20 20 20 A7 20 53 B2 53 AA |$(I) . S.S.|
00001170: 31 00 79 19 0C 76 82 20 49 00 8C 19 16 76 8B 20 |1.y..v. I....v. |
00001180: 53 B3 B1 37 20 A7 20 33 30 33 30 30 00 9D 19 20 |S..7 . 30300... |
00001190: 76 8B 20 47 24 B2 22 44 22 A7 20 98 31 00 B4 19 |v. G$."D". .1...|
000011A0: 25 76 8B 20 47 24 B2 22 42 22 20 A7 20 8D 20 33 |%v. G$."B" . . 3|
000011B0: 30 30 3A 99 00 C2 19 2A 76 81 20 49 B2 31 20 A4 |00:....*v. I.1 .|
000011C0: 20 37 00 EC 19 34 76 8B 20 47 24 B2 22 42 22 20 | 7...4v. G$."B" |
000011D0: A7 20 99 20 46 24 28 49 29 3B 44 24 20 20 20 20 |. . F$(I);D$ |
000011E0: 20 20 20 20 20 20 20 28 59 2C 49 29 00 17 1A 3E | (Y,I)...>|
000011F0: 76 8B 20 47 24 B2 22 44 22 20 A7 20 98 31 2C 46 |v. G$."D" . .1,F|
00001200: 24 28 49 29 3B 20 20 20 20 20 20 20 20 20 20 20 |$(I); |
00001210: 44 24 28 59 2C 49 29 00 1F 1A 48 76 82 20 49 00 |D$(Y,I)...Hv. I.|
00001220: 34 1A 4D 76 8B 20 47 24 B2 22 44 22 20 A7 20 33 |4.Mv. G$."D" . 3|
00001230: 30 33 30 30 00 4F 1A 52 76 99 3A 85 22 44 52 55 |0300.O.Rv.:."DRU|
00001240: 45 43 4B 45 20 52 45 54 55 52 4E 22 3B 58 24 00 |ECKE RETURN";X$.|
00001250: 57 1A 5C 76 82 20 59 00 65 1A 66 76 8D 20 33 30 |W.\v. Y.e.fv. 30|
00001260: 30 3A 99 3A 99 00 76 1A 70 76 99 22 44 41 54 45 |0:.:..v.pv."DATE|
00001270: 49 45 4E 44 45 22 00 94 1A 7A 76 85 22 44 52 55 |IENDE"...zv."DRU|
00001280: 45 43 4B 45 4E 20 53 49 45 20 52 45 54 55 52 4E |ECKEN SIE RETURN|
00001290: 22 3B 58 24 00 A7 1A 84 76 8B 20 47 24 B2 22 44 |";X$....v. G$."D|
000012A0: 22 20 A7 20 A0 20 31 00 B2 1A 8E 76 89 20 31 30 |" . . 1....v. 10|
000012B0: 30 30 00 CD 1A B8 88 8F 20 20 3D 3D 3D 3D 3D 3D |00...... ======|
000012C0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 E5 1A |=============...|
000012D0: C2 88 8F 20 20 50 52 4F 47 52 41 4D 4D 20 42 45 |... PROGRAMM BE|
000012E0: 45 4E 44 45 4E 00 00 1B CC 88 8F 20 20 3D 3D 3D |ENDEN...... ===|
000012F0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00001300: 00 0C 1B D6 88 8D 20 33 30 30 3A 99 00 1E 1B E0 |...... 300:.....|
00001310: 88 8B 20 5A B2 30 20 A7 20 33 35 31 35 30 00 4E |.. Z.0 . 35150.N|
00001320: 1B EA 88 99 20 22 41 4C 4C 45 20 44 41 54 45 4E |.... "ALLE DATEN|
00001330: 20 53 49 4E 44 20 47 45 53 49 43 48 45 52 54 20 | SIND GESICHERT |
00001340: 20 20 20 20 20 20 20 28 4A 2F 4E 29 22 3B 00 57 | (J/N)";.W|
00001350: 1B F4 88 85 20 58 24 00 6B 1B FE 88 8B 20 58 24 |.... X$.k.... X$|
00001360: B2 22 4E 22 20 A7 20 31 30 30 30 00 80 1B 08 89 |."N" . 1000.....|
00001370: 8B 20 58 24 B2 22 4A 22 20 A7 20 33 35 31 30 30 |. X$."J" . 35100|
00001380: 00 96 1B 12 89 99 20 C7 28 31 34 35 29 3B 3A 89 |...... .(145);:.|
00001390: 20 33 35 30 35 30 00 A0 1B 1C 89 8D 20 33 30 30 | 35050...... 300|
000013A0: 00 D0 1B 26 89 99 20 22 44 41 53 20 50 52 4F 47 |...&.. "DAS PROG|
000013B0: 52 41 4D 4D 20 4B 41 4E 4E 20 4D 49 54 27 47 4F |RAMM KANN MIT'GO|
000013C0: 54 4F 20 31 30 30 30 27 57 49 45 44 45 52 22 3B |TO 1000'WIEDER";|
000013D0: 00 0A 1C 30 89 99 20 22 47 45 53 54 41 52 54 45 |...0.. "GESTARTE|
000013E0: 54 20 57 45 52 44 45 4E 2C 4F 48 4E 45 20 44 41 |T WERDEN,OHNE DA|
000013F0: 53 53 20 44 41 54 45 4E 20 56 45 52 4C 4F 52 45 |SS DATEN VERLORE|
00001400: 4E 20 47 45 48 45 4E 20 21 22 00 16 1C 3A 89 89 |N GEHEN !"...:..|
00001410: 20 33 35 31 34 30 00 1C 1C 44 89 99 00 22 1C 4E | 35140...D...".N|
00001420: 89 80 00 00 00 |..... |
....... 10.+....53280,2:.53281,2:.G(158
).:....D$(200,7).Z...F$(1)."KRANKHEIT
".Z...F$(2)."VORNAME
"... .F$(3)."VON-BIS "...!.F
$(4)."ARZT ".Z.".F$(5)."SY
MTOME "...#.F$(6)."MEDIZIN
"...$.F$(7)."SONSTIGES
".%.C.. 1000.=.D.. ================.S.
N.. PROGRAMMKOPF.K.X.. =============
===.Y.... G(147);...... I.1.40:."=";:...
...." DATEI "... .. I.1.40:."=";:.
......:..F.......H.. ================..
.R.. FEHLERMELDUNG...... ============
====...... G(19);.1.... X.1.24:. G(17);:
..I.... G(18);FE$;G(146);.\.... X.1 . 10
00:..B.....~.,.. ====================..
.6.. KOEPFE PROGRAMMTEILE...@.. ======
==============.V.E.PT$(0)." FUNKTIONE
N: "...J.PT$(1)."DATEI LADEN "...T.PT$
(2)."DATEI SPEICHERN".).^.PT$(3)."DATEN
EINGEBEN".D.H.PT$(4)."DATEN AENDERN".`.R
.PT$(5)."DATEN LOESCHEN".|.|.PT$(6)."DAT
EN AUSGEBEN".....PT$(7)."PROGRAMM BEENDE
N"...... 100...... " ";G(30);.J..
.. G(213);...... I.1.19:. G(195);:......
. G(201).'.... " ";G(194);G(158);
PT$(F);G(30);G(194).@.... " "
;G(202);.Y.... I.1.19:. G(195);:..F....
G(203).L.B........ ================....
.. DATEN IM RECHNER...... ============
====.D.... Z.0 . 560.....FE$."KEINE DATE
N IM RECHNER!"...&.. 200...0........ ===
=============...... MENUE.5.... ===
=============.C...F.0:. 300.I.....Y....
G(144);" -1-";G(158);" DATEI LADEN
"...... G(144);" -2-";G(158);" DATE
I SPEICHERN "...$.. G(144);" -3-";G(158)
;" DATEN EINGEBEN "...... G(144);"
-4-";G(158);" DATEN AENDERN ".D.8..
G(144);" -5-";G(158);" DATEN LOESC
HEN".V.B.. G(144);" -6-";G(158);" D
ATEN AUSGEBEN"...L.. G(144);" -7-";G(158
);" PROGRAMM BEENDEN"...Q..:..W.V..
G(144);"AUSWAHL" ;G(158 );...[.. F.
..`.. F.1 . F.7 . FE$."UNGUELTIGER W
ERT":. 200:. 1000.S.J.. F . 5000,10000,1
5000,20000, 25000,30000,35000.H...
. ==============.Z.... DATEI LADEN......
==============...... 300: ....... "BITT
E DISKETTE EINLEGEN!".C.I.....N.."DANN R
ETURN DRUECKEN";...X.. X$............ 1,
8,2,"DATEN"......1,Z...... Y.1 . Z.(....
I.1 . 7.7....1,D$(Y,I).?.... I.G.... Y.
O.(. 1.K.2.." DATEN SIND GELADEN ".~.<.
. X.1 . 2000:....F.. 1000....'. ========
=========...$'. DATEI SPEICHERN.O..'. ==
===============...8'. 500:. Z.0 . 1000..
.='. 300:....L'. "BITTE DISKETTE EINLEGE
N"...V'..6.`'."DANACH RETURN DRUECKEN".?
.E'. X$.W.J'. 15,8,15,"S:DATEN".`.O' 15
.X.T'. 1,8,2,"DATEN,S,W"...~'.1 ,Z....'.
Y.1 . Z....'. I.1 . 7....'.1,D$(Y,I)...
.'. I....'. Y.E..' 1....'.:."DATEN SIND
GESPEICHERT "...D'. X.1 . 2000:...
.N'. 1000....:. ==============.3..:. DAT
EN EINGEBEN.H..:. ==============.R..:. 3
00.\..:Z.Z.1.B.J:..Q.T:. I. 1 . 7.~..:.
F$(I);....:. D$(Z,I)....:.....:..C..;. "
DATEN RICHTIG EINGEBEN(J/N) ";.R..;
X$."":. X$....;. X$."J" . 15160...$;. X$
."N" . Z.Z.1:. 15000....;. G(145);:. 151
10.:.8;. "WEITERE EINGABEN (J/N)";.I.B;X
$."":. X$.^.L;. X$."J" . 15000.R.V;. X$.
"N" . 1000...`;. G(145);:. 15160... N. =
=============...*N. DATEN AENDERN.F.4N.
==============...9N. 500:. Z.0 . 1000...
>NZZ.1...HN. 300...RN....\N. I.1 . 7...F
N. I;F$(I);D$(ZZ,I).!.PN..:.ZN. X$:. X$.
"" . 20090.C..N. F(X$).133 . F(X$).136 .
20090.Z..N. F(X$).136 . 1000....N.
F(X$).133 . ZZ.Z . ZZ.ZZ .1:. 2004
0.X..N. F(X$).134 . ZZ.1 . ZZ.ZZ .1
:. 20040....N. F(X$).135 . 20160....N. 2
0090....N....JN. "FELDNUMMER(1-7)";X.F.T
N. X.1 . X.7 . . G(145) ;:. 20170.L
..N..J..N."NEUER INHALT:";D$(ZZ,X).V..N.
20040....A. ===============....A. DAT
EN LOESCHEN....A. ===============.X.FA.
500:. DATEN IM RECHNER?...KA. Z.0 . 100
0...PA. 300:. KOPF...ZA.....A. "VORNAME:
";D1$.,..A. "VON-BIS: ";D2$.4..AX.1.E..
B. D$(X,2).D1$ . D$(X,3).D2$ THE N
25130...B. X.Z . X.X.1:. 25090....BFE$.
"NAME NICHT GEFUNDEN!"... B. 200:. 1000.
..*B. 300:..I./B. I.1 . 7...4B. F$(I);D$
(X,I)...>B....CB....HB."DATEN LOESCHEN (
J/N)";X$...RB. X$."J". 25200...\B.X$."N"
. 1000.D.FB. G(145);:. 25160.T.PB. Y.X .
Z.1.B.ZB. I.1 . 7.X..BD$(Y,I).D$(Y.1,I)
....B. I....B. Y....BZ.Z.1....B. 1000...
0U. =================.J.:U. DATEN AUSGEB
EN...DU. =================...NU. 500...X
U. Z.0 . 1000...BU. 300: ..9.LU. "DRUCKE
R ODER BILDSCHIRM (D/ B)";G$.K.VU.
G$.."B" . G$.."D" . . G(145);:. 30
060..{U. G$."D". . 1,4....U. 300:.. ..U
."SUCHBEGRIFFE:"....U."............."...
.U..T..U. I.1 . 7:S$(I)."":.....U. I.1 .
7....U. F$(I);...FU. S$(I)...PU....ZU.
Y.1 . Z....US.0.%..U. I.1 . 7.D..U. S$(I
)."" . S.S.1:. 30220.Q..V. H(D$(Y,I),C(S
$(I))).S$(I) . S.S.1.Y..V. I....V.
S..7 . 30300... V. G$."D". .1...%V. G$."
B" . . 300:..B.*V. I.1 . 7...4V. G$."B"
. . F$(I);D$ (Y,I)...>V. G$."D
" . .1,F$(I); D$(Y,I)...HV. I.
4.MV. G$."D" . 30300.O.RV.:."DRUECKE RET
URN";X$.W.\V. Y.E.FV. 300:.:..V.PV."DATE
IENDE"...ZV."DRUECKEN SIE RETURN";X$....
V. G$."D" . 1....V. 1000.M.... ======
=============...B.. PROGRAMM BEENDEN...
L.. ===================...V.. 300:.....
.. Z.0 . 35150.N.... "ALLE DATEN SIND GE
SICHERT (J/N)";.W.... X$.K.... X$
."N" . 1000...... X$."J" . 35100...... G
(145);:. 35050. .... 300.P.&.. "DAS PROG
RAMM KANN MIT'GOTO 1000'WIEDER";...0.. "
GESTARTET WERDEN,OHNE DASS DATEN VERLORE
N GEHEN !"...:.. 35140...D...".N.....
> CLICK IMAGE PREVIEW FOR FULL MODAL