EINGABE C128

00000000: 01 1C 23 1C 0A 00 3A 8F  20 20 45 49 4E 47 41 42  |..#...:.  EINGAB|
00000010: 45 52 4F 55 54 49 4E 45  20 4D 49 54 20 47 45 54  |EROUTINE MIT GET|
00000020: 4B 45 59 00 29 1C 14 00  3A 00 2F 1C 1E 00 3A 00  |KEY.)...:./...:.|
00000030: 4D 1C 28 00 3A 8F 20 42  45 49 53 50 49 45 4C 20  |M.(.:. BEISPIEL |
00000040: 45 49 4E 45 52 20 45 49  4E 47 41 42 45 00 65 1C  |EINER EINGABE.e.|
00000050: 2D 00 45 5A 24 B2 22 31  32 33 34 35 36 37 38 39  |-.EZ$."123456789|
00000060: 30 2B 2D 2E 22 00 8C 1C  32 00 99 22 45 49 4E 47  |0+-."...2.."EING|
00000070: 41 42 45 20 3A 20 22 3B  3A 51 31 B2 35 3A 8D 31  |ABE : ";:Q1.5:.1|
00000080: 30 30 3A 45 47 24 B2 59  32 24 3A 80 00 92 1C 3C  |00:EG$.Y2$:....<|
00000090: 00 3A 00 B3 1C 64 00 8F  20 20 42 45 47 49 4E 4E  |.:...d..  BEGINN|
000000A0: 20 44 45 52 20 45 49 4E  47 41 42 45 52 4F 55 54  | DER EINGABEROUT|
000000B0: 49 4E 45 00 DE 1C 6E 00  51 39 B2 C2 28 32 35 39  |INE...n.Q9..(259|
000000C0: 38 29 3A 97 32 35 39 38  2C 30 3A 51 34 B2 30 3A  |8):.2598,0:Q4.0:|
000000D0: 59 32 24 B2 22 22 3A 97  32 35 39 39 2C 30 00 E8  |Y2$."":.2599,0..|
000000E0: 1C 78 00 A1 F9 59 31 24  00 FB 1C 82 00 8B 59 31  |.x...Y1$......Y1|
000000F0: 24 B2 C7 28 31 33 29 A7  32 32 30 00 0E 1D 8C 00  |$..(13).220.....|
00000100: 8B 59 31 24 B2 C7 28 32  30 29 A7 32 37 30 00 25  |.Y1$..(20).270.%|
00000110: 1D 96 00 8B 51 34 B2 51  31 A7 99 C7 28 37 29 3B  |....Q4.Q1...(7);|
00000120: 3A 89 31 32 30 00 49 1D  A0 00 51 35 B2 D4 28 45  |:.120.I...Q5..(E|
00000130: 5A 24 2C 59 31 24 29 3A  8B 51 35 B2 30 A7 99 C7  |Z$,Y1$):.Q5.0...|
00000140: 28 37 29 3B 3A 89 31 32  30 00 55 1D AA 00 97 32  |(7);:.120.U....2|
00000150: 36 30 30 2C 32 00 66 1D  B4 00 8B C2 28 32 35 39  |600,2.f.....(259|
00000160: 38 29 A7 31 38 30 00 89  1D BE 00 99 59 31 24 3B  |8).180......Y1$;|
00000170: 3A 59 32 24 B2 59 32 24  AA 59 31 24 3A 51 34 B2  |:Y2$.Y2$.Y1$:Q4.|
00000180: 51 34 AA 31 3A 89 31 32  30 00 8F 1D C8 00 3A 00  |Q4.1:.120.....:.|
00000190: A8 1D D2 00 3A 20 8F 20  52 45 54 55 52 4E 20 47  |....: . RETURN G|
000001A0: 45 44 52 55 45 43 4B 54  00 B4 1D DC 00 97 32 36  |EDRUECKT......26|
000001B0: 30 30 2C 32 00 C5 1D E6  00 8B C2 28 32 35 39 38  |00,2.......(2598|
000001C0: 29 A7 32 33 30 00 DC 1D  F0 00 97 32 35 39 39 2C  |).230......2599,|
000001D0: 31 3A 97 32 35 39 38 2C  51 39 3A 8E 00 E2 1D FA  |1:.2598,Q9:.....|
000001E0: 00 3A 00 FE 1D 04 01 3A  20 8F 20 44 45 4C 20 54  |.:.....: . DEL T|
000001F0: 41 53 54 45 20 47 45 44  52 55 45 43 4B 54 00 14  |ASTE GEDRUECKT..|
00000200: 1E 0E 01 8B 51 34 B2 30  A7 99 C7 28 37 29 3B 3A  |....Q4.0...(7);:|
00000210: 89 31 32 30 00 20 1E 18  01 97 32 36 30 30 2C 32  |.120. ....2600,2|
00000220: 00 31 1E 22 01 8B C2 28  32 35 39 38 29 A7 32 39  |.1."...(2598).29|
00000230: 30 00 58 1E 2C 01 99 C7  28 32 30 29 3B 3A 51 34  |0.X.,...(20);:Q4|
00000240: B2 51 34 AB 31 3A 59 32  24 B2 C8 28 59 32 24 2C  |.Q4.1:Y2$..(Y2$,|
00000250: 51 34 29 3A 89 31 32 30  00 00 00                 |Q4):.120...     |

..#...:.  EINGABEROUTINE MIT GETKEY.)...
:./...:.M.(.:. BEISPIEL EINER EINGABE.E.
-.EZ$."1234567890+-."...2.."EINGABE : ";
:Q1.5:.100:EG$.Y2$:....<.:...D..  BEGINN
 DER EINGABEROUTINE...N.Q9.B(2598):.2598
,0:Q4.0:Y2$."":.2599,0...X...Y1$......Y1
$.G(13).220......Y1$.G(20).270.%....Q4.Q
1..G(7);:.120.I. .Q5.T(EZ$,Y1$):.Q5.0..G
(7);:.120.U....2600,2.F....B(2598).180..
....Y1$;:Y2$.Y2$.Y1$:Q4.Q4.1:.120...H.:.
..R.: . RETURN GEDRUECKT......2600,2.E..
..B(2598).230......2599,1:.2598,Q9:.....
.:.....: . DEL TASTE GEDRUECKT......Q4.0
..G(7);:.120. ....2600,2.1."..B(2598).29
0.X.,..G(20);:Q4.Q4.1:Y2$.H(Y2$,Q4):.120
...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL