EINGABE.50000
FILE INFORMATION
FILENAME(S): EINGABE.50000
FILE TYPE(S): PRG
FILE SIZE: 2.8K
FIRST SEEN: 2025-11-02 16:39:38
APPEARS ON: 1 disk(s)
FILE HASH
8210e8b022774456dee290df2a1588adaa0105ff344389d0f42e48750b9f0402
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 128 | EINGABE.50000 | PRG | Treasure Chest - Plattfuss | 10 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 24 1C 50 C3 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..$.P.. ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 00 47 1C 5A C3 8F 20 2A 2A 2A 20 20 |****.G.Z.. *** |
00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000040: 20 20 20 20 2A 2A 2A 00 6A 1C 64 C3 8F 20 2A 2A | ***.j.d.. **|
00000050: 2A 20 20 20 20 45 49 4E 47 41 42 45 52 4F 55 54 |* EINGABEROUT|
00000060: 49 4E 45 20 20 20 20 2A 2A 2A 00 8D 1C 6E C3 8F |INE ***...n..|
00000070: 20 2A 2A 2A 20 20 20 20 3D 3D 3D 3D 3D 3D 3D 3D | *** ========|
00000080: 3D 3D 3D 3D 3D 3D 20 20 20 20 2A 2A 2A 00 B0 1C |====== ***...|
00000090: 78 C3 8F 20 2A 2A 2A 20 20 20 20 20 20 20 20 20 |x.. *** |
000000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A | ***|
000000B0: 00 D3 1C 82 C3 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |...... *********|
000000C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000D0: 2A 2A 2A 00 D9 1C 8C C3 8F 00 F2 1C 96 C3 8F 20 |***............ |
000000E0: 55 45 42 45 52 47 41 42 45 50 41 52 41 4D 45 54 |UEBERGABEPARAMET|
000000F0: 45 52 00 0B 1D A0 C3 8F 20 3D 3D 3D 3D 3D 3D 3D |ER...... =======|
00000100: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 11 1D AA C3 |===========.....|
00000110: 8F 00 59 1D B4 C3 8F 20 56 42 20 3D 20 56 4F 52 |..Y.... VB = VOR|
00000120: 42 45 4C 45 47 55 4E 47 53 46 4C 41 47 20 46 55 |BELEGUNGSFLAG FU|
00000130: 45 52 20 45 49 4E 47 41 42 45 20 28 2D 31 20 3D |ER EINGABE (-1 =|
00000140: 20 45 49 4E 47 41 42 45 53 54 52 49 4E 47 20 56 | EINGABESTRING V|
00000150: 4F 52 42 45 4C 45 47 54 29 00 82 1D BE C3 8F 20 |ORBELEGT)...... |
00000160: 49 4E 24 3D 20 45 49 4E 47 41 42 45 53 54 52 49 |IN$= EINGABESTRI|
00000170: 4E 47 20 28 4E 55 52 20 42 45 49 20 56 42 3D 2D |NG (NUR BEI VB=-|
00000180: 31 29 00 C2 1D C8 C3 8F 20 45 24 20 3D 20 53 54 |1)...... E$ = ST|
00000190: 52 49 4E 47 20 44 45 52 20 45 52 4C 41 55 42 54 |RING DER ERLAUBT|
000001A0: 45 4E 20 5A 45 49 43 48 45 4E 20 28 57 49 52 44 |EN ZEICHEN (WIRD|
000001B0: 20 45 52 57 45 49 54 45 52 54 20 5A 55 20 45 31 | ERWEITERT ZU E1|
000001C0: 24 29 00 06 1E D2 C3 8F 20 4D 58 20 3D 20 4D 41 |$)...... MX = MA|
000001D0: 58 49 4D 41 4C 45 20 4C 41 45 4E 47 45 20 44 45 |XIMALE LAENGE DE|
000001E0: 52 20 45 49 4E 47 41 42 45 20 20 28 3D 20 41 4E |R EINGABE (= AN|
000001F0: 5A 41 48 4C 20 44 45 52 20 46 55 45 4C 4C 5A 45 |ZAHL DER FUELLZE|
00000200: 49 43 48 45 4E 29 00 52 1E DC C3 8F 20 4D 4C 20 |ICHEN).R.... ML |
00000210: 3D 20 4D 49 4E 49 4D 41 4C 45 20 4C 41 45 4E 47 |= MINIMALE LAENG|
00000220: 45 20 44 45 52 20 45 49 4E 47 41 42 45 20 20 28 |E DER EINGABE (|
00000230: 57 49 52 44 20 42 45 49 20 45 49 4E 47 41 42 45 |WIRD BEI EINGABE|
00000240: 2D 45 4E 44 45 20 55 45 42 45 52 50 52 55 45 46 |-ENDE UEBERPRUEF|
00000250: 54 29 00 8D 1E E6 C3 8F 20 5A 20 20 3D 20 5A 45 |T)...... Z = ZE|
00000260: 49 4C 45 20 46 55 45 52 20 45 49 4E 47 41 42 45 |ILE FUER EINGABE|
00000270: 20 20 20 20 20 20 20 20 20 20 20 28 46 55 45 52 | (FUER|
00000280: 20 43 48 41 52 2D 42 45 46 45 48 4C 29 00 CF 1E | CHAR-BEFEHL)...|
00000290: F0 C3 8F 20 53 20 20 3D 20 53 50 41 4C 54 45 20 |... S = SPALTE |
000002A0: 28 41 4E 46 41 4E 47 53 53 50 41 4C 54 45 29 20 |(ANFANGSSPALTE) |
000002B0: 46 55 45 52 20 45 49 4E 47 41 42 45 20 28 46 55 |FUER EINGABE (FU|
000002C0: 45 52 20 43 48 41 52 2D 42 45 46 45 48 4C 29 00 |ER CHAR-BEFEHL).|
000002D0: 05 1F FA C3 8F 20 5A 52 24 3D 20 53 54 52 49 4E |..... ZR$= STRIN|
000002E0: 47 20 44 45 52 20 54 41 53 54 45 4E 20 46 55 45 |G DER TASTEN FUE|
000002F0: 52 20 42 45 45 4E 44 45 4E 20 44 45 52 20 45 49 |R BEENDEN DER EI|
00000300: 4E 47 41 42 45 00 0B 1F 04 C4 8F 00 3E 1F 0E C4 |NGABE.......>...|
00000310: 8F 20 42 45 52 45 43 48 4E 55 4E 47 20 57 45 49 |. BERECHNUNG WEI|
00000320: 54 45 52 45 52 20 57 45 52 54 45 20 41 55 53 20 |TERER WERTE AUS |
00000330: 44 45 4E 20 50 41 52 41 4D 45 54 45 52 4E 00 71 |DEN PARAMETERN.q|
00000340: 1F 18 C4 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.... ===========|
00000350: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000360: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000370: 3D 00 77 1F 22 C4 3A 00 A0 1F 2C C4 50 B2 31 3A |=.w.".:...,.P.1:|
00000380: 8F 20 50 4F 53 49 54 49 4F 4E 20 49 4E 4E 45 52 |. POSITION INNER|
00000390: 48 41 4C 42 20 44 45 53 20 53 54 52 49 4E 47 53 |HALB DES STRINGS|
000003A0: 00 00 20 36 C4 45 31 24 B2 45 24 AA 5A 52 24 AA |.. 6.E1$.E$.ZR$.|
000003B0: C7 28 31 37 29 AA C7 28 31 39 29 AA C7 28 32 30 |.(17)..(19)..(20|
000003C0: 29 AA C7 28 32 39 29 AA C7 28 31 34 35 29 AA C7 |)..(29)..(145)..|
000003D0: 28 31 34 37 29 AA C7 28 31 34 38 29 AA C7 28 31 |(147)..(148)..(1|
000003E0: 35 37 29 3A 8F 20 45 52 4C 41 55 42 54 45 20 5A |57):. ERLAUBTE Z|
000003F0: 45 49 43 48 45 4E 20 45 52 57 45 49 54 45 52 4E |EICHEN ERWEITERN|
00000400: 00 24 20 40 C4 8F 20 42 45 52 45 43 48 4E 55 4E |.$ @.. BERECHNUN|
00000410: 47 20 44 45 53 20 45 49 4E 47 41 42 45 53 54 52 |G DES EINGABESTR|
00000420: 49 4E 47 53 00 51 20 4A C4 8B 20 A8 20 56 42 20 |INGS.Q J.. . VB |
00000430: A7 20 49 4E 24 B2 22 22 3A 81 20 46 B2 31 20 A4 |. IN$."":. F.1 .|
00000440: 20 4D 58 3A 49 4E 24 B2 49 4E 24 AA 22 A4 22 3A | MX:IN$.IN$.".":|
00000450: 82 00 86 20 54 C4 8B 20 56 42 20 A7 20 4C 5A B2 |... T.. VB . LZ.|
00000460: 4D 58 3A EB 20 FC 20 C3 28 49 4E 24 29 B2 4D 58 |MX:. . .(IN$).MX|
00000470: 3A 49 4E 24 B2 49 4E 24 AA 22 A4 22 3A EC 3A 89 |:IN$.IN$.".":.:.|
00000480: 20 35 30 33 33 30 00 8C 20 5E C4 3A 00 AB 20 68 | 50330.. ^.:.. h|
00000490: C4 8F 20 41 4B 54 55 45 4C 4C 45 20 57 45 52 54 |.. AKTUELLE WERT|
000004A0: 45 20 42 45 52 45 43 48 4E 45 4E 00 CA 20 72 C4 |E BERECHNEN.. r.|
000004B0: 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |. ==============|
000004C0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 D0 20 7C C4 3A |==========.. |.:|
000004D0: 00 D9 20 86 C4 4C 5A B2 32 00 DF 20 90 C4 3A 00 |.. ..LZ.2.. ..:.|
000004E0: 09 21 9A C4 46 4C B2 28 50 B2 4D 58 29 3A 8F 20 |.!..FL.(P.MX):. |
000004F0: 46 4C 41 47 20 46 55 45 52 20 4C 45 54 5A 54 45 |FLAG FUER LETZTE|
00000500: 20 50 4F 53 49 54 49 4F 4E 00 32 21 A4 C4 46 45 | POSITION.2!..FE|
00000510: B2 28 50 B2 20 31 29 3A 8F 20 46 4C 41 47 20 46 |.(P. 1):. FLAG F|
00000520: 55 45 52 20 45 52 53 54 45 20 50 4F 53 49 54 49 |UER ERSTE POSITI|
00000530: 4F 4E 00 38 21 AE C4 3A 00 70 21 B8 C4 EB 20 FD |ON.8!..:.p!... .|
00000540: 20 CA 28 49 4E 24 2C 4C 5A 2C 31 29 B2 22 A4 22 | .(IN$,LZ,1)."."|
00000550: 20 AF 20 4C 5A B1 31 3A 4C 5A B2 4C 5A AB 31 3A | . LZ.1:LZ.LZ.1:|
00000560: EC 3A 8F 20 4C 5A 20 42 45 52 45 43 48 4E 45 4E |.:. LZ BERECHNEN|
00000570: 00 76 21 C2 C4 3A 00 90 21 CC C4 8F 20 41 55 53 |.v!..:..!... AUS|
00000580: 47 41 42 45 20 44 45 52 20 53 54 52 49 4E 47 53 |GABE DER STRINGS|
00000590: 00 AA 21 D6 C4 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D |..!... =========|
000005A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 B0 21 E0 C4 3A |==========..!..:|
000005B0: 00 BE 21 EA C4 E0 2C 53 2C 5A 2C 49 4E 24 00 F0 |..!...,S,Z,IN$..|
000005C0: 21 F4 C4 E0 2C 53 AA 50 AB 31 2C 5A 2C CA 28 49 |!...,S.P.1,Z,.(I|
000005D0: 4E 24 2C 50 2C 31 29 2C 31 3A 8F 20 46 45 53 54 |N$,P,1),1:. FEST|
000005E0: 2D 43 55 52 53 4F 52 20 45 52 5A 45 55 47 45 4E |-CURSOR ERZEUGEN|
000005F0: 00 F6 21 FE C4 3A 00 0C 22 08 C5 8F 20 45 49 4E |..!..:.."... EIN|
00000600: 47 41 42 45 53 43 48 4C 45 49 46 45 00 22 22 12 |GABESCHLEIFE."".|
00000610: C5 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.. =============|
00000620: 3D 3D 00 28 22 1C C5 3A 00 42 22 26 C5 EB 3A A1 |==.("..:.B"&..:.|
00000630: F9 20 41 24 3A EC 20 FC 20 D4 28 45 31 24 2C 41 |. A$:. . .(E1$,A|
00000640: 24 29 00 48 22 30 C5 3A 00 81 22 3A C5 8B 20 D4 |$).H"0.:..":.. .|
00000650: 28 45 24 2C 41 24 29 20 A7 20 FE 18 3A 8F 20 45 |(E$,A$) . ..:. E|
00000660: 49 4E 47 41 42 45 5A 45 49 43 48 45 4E 20 49 4E |INGABEZEICHEN IN|
00000670: 20 53 54 52 49 4E 47 20 41 55 46 4E 45 48 4D 45 | STRING AUFNEHME|
00000680: 4E 00 94 22 44 C5 3A CA 28 49 4E 24 2C 50 2C 31 |N.."D.:.(IN$,P,1|
00000690: 29 B2 41 24 00 AE 22 4E C5 3A 50 B2 50 AA 31 AA |).A$.."N.:P.P.1.|
000006A0: 28 50 B2 4D 58 29 3A 4C 5A B2 4C 5A AA 31 00 BB |(P.MX):LZ.LZ.1..|
000006B0: 22 58 C5 3A 89 20 35 30 33 33 30 00 C2 22 62 C5 |"X.:. 50330.."b.|
000006C0: FE 19 00 C8 22 6C C5 3A 00 CE 22 76 C5 3A 00 F2 |...."l.:.."v.:..|
000006D0: 22 80 C5 8B 20 D4 28 5A 52 24 2C 41 24 29 20 A7 |"... .(ZR$,A$) .|
000006E0: 20 FE 18 3A 8F 20 45 49 4E 47 41 42 45 2D 45 4E | ..:. EINGABE-EN|
000006F0: 44 45 00 09 23 8A C5 3A 8B 20 4C 5A B3 4D 4C 20 |DE..#..:. LZ.ML |
00000700: A7 20 89 20 35 30 34 37 30 00 2A 23 94 C5 3A 49 |. . 50470.*#..:I|
00000710: 4E 24 B2 C8 28 49 4E 24 2C 4C 5A 29 3A 48 24 B2 |N$..(IN$,LZ):H$.|
00000720: 49 4E 24 3A 49 4E 24 B2 22 22 00 3A 23 9E C5 3A |IN$:IN$."".:#..:|
00000730: 81 20 46 B2 31 20 A4 20 4C 5A 00 63 23 A8 C5 3A |. F.1 . LZ.c#..:|
00000740: 8B 20 CA 28 48 24 2C 46 2C 31 29 B3 B1 22 A4 22 |. .(H$,F,1).."."|
00000750: A7 20 49 4E 24 B2 49 4E 24 AA CA 28 48 24 2C 46 |. IN$.IN$..(H$,F|
00000760: 2C 31 29 00 87 23 B2 C5 3A 82 3A 8B 20 C3 28 49 |,1)..#..:.:. .(I|
00000770: 4E 24 29 B3 4D 4C 20 A7 20 49 4E 24 B2 48 24 3A |N$).ML . IN$.H$:|
00000780: 89 20 35 30 34 37 30 00 8E 23 BC C5 3A 8E 00 95 |. 50470..#..:...|
00000790: 23 C6 C5 FE 19 00 9B 23 D0 C5 3A 00 D3 23 DA C5 |#......#..:..#..|
000007A0: 8B 20 41 24 B2 C7 28 31 35 37 29 20 A7 20 8B 20 |. A$..(157) . . |
000007B0: A8 20 46 45 20 A7 20 50 B2 50 AB 31 3A 89 20 35 |. FE . P.P.1:. 5|
000007C0: 30 33 33 30 3A 8F 20 43 55 52 53 4F 52 20 4C 49 |0330:. CURSOR LI|
000007D0: 4E 4B 53 00 D9 23 E4 C5 3A 00 05 24 EE C5 8B 20 |NKS..#..:..$... |
000007E0: 41 24 B2 C7 28 31 34 37 29 20 A7 20 49 4E 24 B2 |A$..(147) . IN$.|
000007F0: 22 22 3A 89 20 35 30 32 32 30 3A 8F 20 43 4C 52 |"":. 50220:. CLR|
00000800: 20 48 4F 4D 45 00 0B 24 F8 C5 3A 00 4C 24 02 C6 | HOME..$..:.L$..|
00000810: 8B 20 41 24 B2 C7 28 32 39 29 20 A7 20 50 B2 50 |. A$..(29) . P.P|
00000820: AB 28 28 50 B3 B1 4D 58 29 20 AF 20 28 50 B3 B1 |.((P..MX) . (P..|
00000830: 4C 5A AA 31 29 29 3A 89 20 35 30 33 33 30 3A 8F |LZ.1)):. 50330:.|
00000840: 20 43 52 53 52 20 52 45 43 48 54 53 00 52 24 0C | CRSR RECHTS.R$.|
00000850: C6 3A 00 78 24 16 C6 8B 20 41 24 B2 C7 28 31 34 |.:.x$... A$..(14|
00000860: 35 29 20 A7 20 FE 18 3A 8F 20 43 52 53 52 20 4E |5) . ..:. CRSR N|
00000870: 41 43 48 20 4F 42 45 4E 00 8B 24 20 C6 3A 8B 20 |ACH OBEN..$ .:. |
00000880: 50 B2 31 20 A7 20 35 30 34 37 30 00 9E 24 2A C6 |P.1 . 50470..$*.|
00000890: 3A 48 24 B2 49 4E 24 3A 49 4E 24 B2 22 22 00 EC |:H$.IN$:IN$.""..|
000008A0: 24 34 C6 3A 81 20 46 B2 50 20 A4 20 4D 58 3A 49 |$4.:. F.P . MX:I|
000008B0: 4E 24 B2 49 4E 24 AA CA 28 48 24 2C 46 2C 31 29 |N$.IN$..(H$,F,1)|
000008C0: 3A 82 3A 4C 5A B2 C3 28 49 4E 24 29 3A EB 20 FC |:.:LZ..(IN$):. .|
000008D0: 20 C3 28 49 4E 24 29 B2 4D 58 3A 49 4E 24 B2 49 | .(IN$).MX:IN$.I|
000008E0: 4E 24 AA 22 A4 22 3A EC 3A 50 B2 31 00 F9 24 3E |N$.".":.:P.1..$>|
000008F0: C6 3A 89 20 35 30 33 33 30 00 00 25 48 C6 FE 19 |.:. 50330..%H...|
00000900: 00 06 25 52 C6 3A 00 2C 25 5C C6 8B 20 41 24 B2 |..%R.:.,%\.. A$.|
00000910: C7 28 31 37 29 20 A7 20 FE 18 3A 8F 20 43 52 53 |.(17) . ..:. CRS|
00000920: 52 20 4E 41 43 48 20 55 4E 54 45 4E 00 53 25 66 |R NACH UNTEN.S%f|
00000930: C6 3A 81 20 46 B2 20 50 20 A4 20 4D 58 3A CA 28 |.:. F. P . MX:.(|
00000940: 49 4E 24 2C 46 2C 31 29 B2 22 A4 22 3A 82 3A 4C |IN$,F,1).".":.:L|
00000950: 5A B2 50 00 60 25 70 C6 3A 89 20 35 30 33 33 30 |Z.P.`%p.:. 50330|
00000960: 00 67 25 7A C6 FE 19 00 6D 25 84 C6 3A 00 90 25 |.g%z....m%..:..%|
00000970: 8E C6 8B 20 41 24 B2 C7 28 32 30 29 20 A7 20 FE |... A$..(20) . .|
00000980: 18 3A 8F 20 44 45 4C 45 54 45 20 28 44 45 4C 29 |.:. DELETE (DEL)|
00000990: 00 A2 25 98 C6 3A 8B 20 46 45 20 A7 20 35 30 34 |..%..:. FE . 504|
000009A0: 37 30 00 C4 25 A2 C6 3A 49 4E 24 B2 C8 28 49 4E |70..%..:IN$..(IN|
000009B0: 24 2C 50 AB 32 29 AA C9 28 49 4E 24 2C 4D 58 AB |$,P.2)..(IN$,MX.|
000009C0: 50 AA 31 29 00 E5 25 AC C6 3A EB 20 FC 20 C3 28 |P.1)..%..:. . .(|
000009D0: 49 4E 24 29 B2 4D 58 3A 49 4E 24 B2 49 4E 24 AA |IN$).MX:IN$.IN$.|
000009E0: 22 A4 22 3A EC 00 F0 25 B6 C6 3A 50 B2 50 AB 31 |".":...%..:P.P.1|
000009F0: 00 FD 25 C0 C6 3A 89 20 35 30 33 33 30 00 04 26 |..%..:. 50330..&|
00000A00: CA C6 FE 19 00 0A 26 D4 C6 3A 00 2F 26 DE C6 8B |......&..:./&...|
00000A10: 20 41 24 B2 C7 28 31 34 38 29 20 A7 20 FE 18 3A | A$..(148) . ..:|
00000A20: 8F 20 49 4E 53 45 52 54 20 28 49 4E 53 54 29 00 |. INSERT (INST).|
00000A30: 44 26 E8 C6 3A 8B 20 4C 5A B2 4D 58 20 A7 20 35 |D&..:. LZ.MX . 5|
00000A40: 30 34 37 30 00 56 26 F2 C6 3A 8B 20 46 4C 20 A7 |0470.V&..:. FL .|
00000A50: 20 35 30 34 37 30 00 94 26 FC C6 3A 49 4E 24 B2 | 50470..&..:IN$.|
00000A60: C8 28 49 4E 24 2C 50 AB 31 29 AA 22 A4 22 AA 22 |.(IN$,P.1)."."."|
00000A70: 52 49 47 48 54 24 28 49 4E 24 2C 4D 58 2D 50 2B |RIGHT$(IN$,MX-P+|
00000A80: 31 29 3A 49 4E 24 3D 4C 45 46 54 24 28 49 4E 24 |1):IN$=LEFT$(IN$|
00000A90: 2C 4D 58 29 00 A1 26 06 C7 3A 4C 5A B2 4C 5A AA |,MX)..&..:LZ.LZ.|
00000AA0: 31 00 AE 26 10 C7 3A 89 20 35 30 33 33 30 00 B5 |1..&..:. 50330..|
00000AB0: 26 1A C7 FE 19 00 BB 26 24 C7 3A 00 DF 26 2E C7 |&......&$.:..&..|
00000AC0: 8B 20 41 24 B2 C7 28 31 39 29 20 A7 20 50 B2 31 |. A$..(19) . P.1|
00000AD0: 3A 89 20 35 30 33 33 30 3A 8F 20 48 4F 4D 45 00 |:. 50330:. HOME.|
00000AE0: E5 26 38 C7 3A 00 0F 27 42 C7 89 20 35 30 34 37 |.&8.:..'B.. 5047|
00000AF0: 30 3A 8F 20 5A 55 52 55 45 43 4B 20 5A 55 52 20 |0:. ZURUECK ZUR |
00000B00: 45 49 4E 47 41 42 45 53 43 48 4C 45 49 46 45 00 |EINGABESCHLEIFE.|
00000B10: 00 00 |.. |
..$.PC. ****************************.G.Z
C. *** ***.J.DC. **
* EINGABEROUTINE ***...NC. ***
============== ***...XC. ***
***.S..C. *****************
***********.Y..C.....C. UEBERGABEPARAMET
ER... C. ==================....C..Y..C.
VB = VORBELEGUNGSFLAG FUER EINGABE (-1 =
EINGABESTRING VORBELEGT)....C. IN$= EIN
GABESTRING (NUR BEI VB=-1).B.HC. E$ = ST
RING DER ERLAUBTEN ZEICHEN (WIRD ERWEITE
RT ZU E1$)...RC. MX = MAXIMALE LAENGE DE
R EINGABE (= ANZAHL DER FUELLZEICHEN).R
..C. ML = MINIMALE LAENGE DER EINGABE (
WIRD BEI EINGABE-ENDE UEBERPRUEFT)....C.
Z = ZEILE FUER EINGABE (FUER
CHAR-BEFEHL).O..C. S = SPALTE (ANFANGS
SPALTE) FUER EINGABE (FUER CHAR-BEFEHL).
...C. ZR$= STRING DER TASTEN FUER BEENDE
N DER EINGABE....D..>..D. BERECHNUNG WEI
TERER WERTE AUS DEN PARAMETERN.Q..D. ===
========================================
=.W."D:. .,DP.1:. POSITION INNERHALB DES
STRINGS.. 6DE1$.E$.ZR$.G(17).G(19).G(20
).G(29).G(145).G(147).G(148).G(157):. ER
LAUBTE ZEICHEN ERWEITERN.$ @D. BERECHNUN
G DES EINGABESTRINGS.Q JD. . VB . IN$.""
:. F.1 . MX:IN$.IN$.".":... TD. VB . LZ.
MX:. . C(IN$).MX:IN$.IN$.".":.:. 50330..
^D:.. HD. AKTUELLE WERTE BERECHNEN.J RD
. ========================.P |D:.Y .DLZ.
2.. .D:..!.DFL.(P.MX):. FLAG FUER LETZTE
POSITION.2!.DFE.(P. 1):. FLAG FUER ERST
E POSITION.8!.D:.P!.D. . J(IN$,LZ,1)."."
. LZ.1:LZ.LZ.1:.:. LZ BERECHNEN.V!BD:..
!LD. AUSGABE DER STRINGS..!VD. =========
==========..!.D:..!.D.,S,Z,IN$..!.D.,S.P
.1,Z,J(IN$,P,1),1:. FEST-CURSOR ERZEUGEN
..!.D:..".E. EINGABESCHLEIFE."".E. =====
==========.(".E:.B"&E.:.. A$:. . T(E1$,A
$).H"0E:..":E. T(E$,A$) . ..:. EINGABEZE
ICHEN IN STRING AUFNEHMEN.."DE:J(IN$,P,1
).A$.."NE:P.P.1.(P.MX):LZ.LZ.1.."XE:. 50
330.B"BE...H"LE:.N"VE:..".E. T(ZR$,A$) .
..:. EINGABE-ENDE..#.E:. LZ.ML . . 5047
0.*#.E:IN$.H(IN$,LZ):H$.IN$:IN$."".:#.E:
. F.1 . LZ.C#.E:. J(H$,F,1)..".". IN$.IN
$.J(H$,F,1)..#.E:.:. C(IN$).ML . IN$.H$:
. 50470..#.E:...#FE....#PE:.S#ZE. A$.G(1
57) . . . FE . P.P.1:. 50330:. CURSOR LI
NKS.Y#.E:..$.E. A$.G(147) . IN$."":. 502
20:. CLR HOME..$.E:.L$.F. A$.G(29) . P.P
.((P..MX) . (P..LZ.1)):. 50330:. CRSR RE
CHTS.R$.F:.X$.F. A$.G(145) . ..:. CRSR N
ACH OBEN..$ F:. P.1 . 50470..$*F:H$.IN$:
IN$.""..$4F:. F.P . MX:IN$.IN$.J(H$,F,1)
:.:LZ.C(IN$):. . C(IN$).MX:IN$.IN$.".":.
:P.1..$>F:. 50330..%HF....%RF:.,%\F. A$.
G(17) . ..:. CRSR NACH UNTEN.S%FF:. F. P
. MX:J(IN$,F,1).".":.:LZ.P.`%PF:. 50330
.G%ZF...M%.F:..%.F. A$.G(20) . ..:. DELE
TE (DEL)..%.F:. FE . 50470.D%.F:IN$.H(IN
$,P.2).I(IN$,MX.P.1)..%.F:. . C(IN$).MX:
IN$.IN$.".":...%.F:P.P.1..%.F:. 50330..&
JF....&TF:./&.F. A$.G(148) . ..:. INSERT
(INST).D&.F:. LZ.MX . 50470.V&.F:. FL .
50470..&.F:IN$.H(IN$,P.1)."."."RIGHT$(I
N$,MX-P+1):IN$=LEFT$(IN$,MX)..&.G:LZ.LZ.
1..&.G:. 50330..&.G....&$G:..&.G. A$.G(1
9) . P.1:. 50330:. HOME..&8G:..'BG. 5047
0:. ZURUECK ZUR EINGABESCHLEIFE...
> CLICK IMAGE PREVIEW FOR FULL MODAL