INPUT-ROUTINE
FILE INFORMATION
FILENAME(S): INPUT-ROUTINE
FILE TYPE(S): PRG
FILE SIZE: 2.1K
FIRST SEEN: 2025-11-30 01:12:35
APPEARS ON: 2 disk(s)
FILE HASH
8e7c14c7bc67a05bb3f3770172608c21caa1dadf6c0d845c11cd6e74d97ec12e
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| L6 86 12D | INPUT-ROUTINE | PRG | C64er | 21 | 9 | DOWNLOAD FILE |
| 15829 SEITE B | INPUT-ROUTINE | PRG | C64er | 9 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 34 1C 01 00 8F 20 20 2D 2D 2D 2D 2D 2D 2D |..4.... -------|
00000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000030: 2D 2D 2D 2D 00 67 1C 02 00 8F 20 20 2D 20 20 20 |----.g.... - |
00000040: 20 20 20 20 43 20 55 20 52 20 53 20 4F 20 52 20 | C U R S O R |
00000050: 20 2D 20 20 47 20 45 20 54 20 20 20 20 20 20 20 | - G E T |
00000060: 20 20 20 20 20 20 2D 00 9A 1C 03 00 8F 20 20 2D | -...... -|
00000070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000080: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 CD 1C 04 00 8F |----------......|
000000A0: 20 20 2D 20 20 20 20 20 20 20 20 20 20 20 20 20 | - |
000000B0: 20 20 20 20 56 20 4F 20 4E 20 20 20 20 20 20 20 | V O N |
000000C0: 20 20 20 20 20 20 20 20 20 20 20 20 2D 00 00 1D | -...|
000000D0: 05 00 8F 20 20 2D 20 20 20 20 20 20 20 4A 20 55 |... - J U|
000000E0: 20 45 20 52 20 47 20 45 20 4E 20 20 20 52 20 49 | E R G E N R I|
000000F0: 20 45 20 48 20 4E 20 20 20 20 20 20 20 20 20 2D | E H N -|
00000100: 00 33 1D 06 00 8F 20 20 2D 20 20 20 20 20 20 20 |.3.... - |
00000110: 47 20 41 20 52 20 4C 20 45 20 53 20 53 20 54 20 |G A R L E S S T |
00000120: 52 20 2E 20 20 20 32 20 32 20 20 20 20 20 20 20 |R . 2 2 |
00000130: 20 20 2D 00 66 1D 07 00 8F 20 20 2D 20 20 20 20 | -.f.... - |
00000140: 20 20 20 20 38 20 36 20 37 20 37 20 20 20 53 20 | 8 6 7 7 S |
00000150: 45 20 4C 20 42 20 49 20 54 20 5A 20 20 20 20 20 |E L B I T Z |
00000160: 20 20 20 20 20 2D 00 99 1D 08 00 8F 20 20 2D 20 | -...... - |
00000170: 20 20 20 20 20 20 20 20 30 20 39 20 32 20 38 20 | 0 9 2 8 |
00000180: 30 20 20 2F 20 20 31 20 30 20 36 20 33 20 20 20 |0 / 1 0 6 3 |
00000190: 20 20 20 20 20 20 20 20 2D 00 CC 1D 09 00 8F 20 | -...... |
000001A0: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | ---------------|
000001B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000001C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 E4 1D 10 |------------....|
000001D0: 27 8F 20 42 45 49 53 50 49 45 4C 41 4E 57 45 4E |'. BEISPIELANWEN|
000001E0: 44 55 4E 47 00 03 1E 11 27 FE 25 3A E8 3A 8F 20 |DUNG....'.%:.:. |
000001F0: 42 49 4C 44 53 43 48 49 52 4D 20 4C 4F 45 53 43 |BILDSCHIRM LOESC|
00000200: 48 45 4E 00 20 1E 12 27 49 4E 24 B2 22 22 3A 8F |HEN. ..'IN$."":.|
00000210: 20 55 45 42 45 52 47 41 42 45 49 4E 48 41 4C 54 | UEBERGABEINHALT|
00000220: 00 3F 1E 13 27 43 53 B2 34 35 3A 43 5A B2 31 35 |.?..'CS.45:CZ.15|
00000230: 3A 8F 20 53 50 41 4C 54 45 2C 5A 45 49 4C 45 00 |:. SPALTE,ZEILE.|
00000240: 70 1E 14 27 3A 20 20 20 20 20 20 20 20 4D 4E B2 |p..': MN.|
00000250: 31 3A 8F 20 4E 55 52 20 4E 55 4D 4D 45 52 49 53 |1:. NUR NUMMERIS|
00000260: 43 48 45 20 20 20 20 20 20 45 49 4E 47 41 42 45 |CHE EINGABE|
00000270: 00 A1 1E 15 27 8F 20 20 20 20 20 20 4D 4E 3D 32 |....'. MN=2|
00000280: 20 20 20 20 20 4E 55 52 20 41 4C 50 48 41 4E 55 | NUR ALPHANU|
00000290: 4D 4D 45 52 49 53 43 48 45 20 45 49 4E 47 41 42 |MMERISCHE EINGAB|
000002A0: 45 00 CA 1E 16 27 8F 20 20 20 20 20 20 4D 4E 3D |E....'. MN=|
000002B0: 33 20 20 20 20 20 4E 55 52 20 45 52 4C 41 55 42 |3 NUR ERLAUB|
000002C0: 54 45 20 5A 45 49 43 48 45 4E 00 DE 1E 26 27 49 |TE ZEICHEN...&'I|
000002D0: 4C B2 35 3A 8F 20 4C 41 45 4E 47 45 3D 35 00 09 |L.5:. LAENGE=5..|
000002E0: 1F 28 27 45 5A 24 B2 22 31 32 39 30 22 3A 8F 20 |.('EZ$."1290":. |
000002F0: 45 52 4C 41 55 42 54 45 20 5A 45 49 43 48 45 48 |ERLAUBTE ZEICHEH|
00000300: 20 42 45 49 20 4D 4E 3D 33 00 0F 1F 29 27 3A 00 | BEI MN=3...)':.|
00000310: 38 1F 2E 27 8D 33 35 30 30 30 3A 8F 20 20 43 55 |8..'.35000:. CU|
00000320: 52 53 4F 52 47 45 54 2D 52 4F 55 54 49 4E 45 20 |RSORGET-ROUTINE |
00000330: 41 55 46 52 55 46 45 4E 00 43 1F 38 27 99 3A 99 |AUFRUFEN.C.8'.:.|
00000340: 49 4E 24 00 49 1F 42 27 80 00 51 1F 4C 27 2E 2E |IN$.I.B'..Q.L'..|
00000350: 2E 00 59 1F 56 27 2E 2E 2E 00 61 1F 60 27 2E 2E |..Y.V'....a.`'..|
00000360: 2E 00 67 1F B8 88 3A 00 75 1F BD 88 8F 20 45 49 |..g...:.u.... EI|
00000370: 4E 47 41 42 45 00 7B 1F C2 88 3A 00 87 1F C3 88 |NGABE.{...:.....|
00000380: 81 49 B2 31 A4 49 4C 00 AD 1F C4 88 3A 20 8B 20 |.I.1.IL.....: . |
00000390: CA 28 49 4E 24 2C 49 2C 31 29 B2 22 20 22 A7 CA |.(IN$,I,1)." "..|
000003A0: 28 49 4E 24 2C 49 2C 31 29 B2 22 A4 22 00 B3 1F |(IN$,I,1)."."...|
000003B0: C5 88 82 00 FF 1F C6 88 49 4E 24 B2 C8 28 49 4E |........IN$..(IN|
000003C0: 24 AA 22 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |$.".............|
000003D0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
000003E0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
000003F0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 22 2C 49 4C 29 00 |..........",IL).|
00000400: 10 20 CC 88 4C 41 B2 31 3A 49 4C B2 49 4C AA 31 |. ..LA.1:IL.IL.1|
00000410: 00 20 20 F4 88 8D 33 37 38 30 30 3A A1 F9 47 24 |. ...37800:..G$|
00000420: 00 41 20 08 89 47 B2 C6 28 47 24 29 3A 8B 47 B2 |.A ..G..(G$):.G.|
00000430: 31 33 A7 33 35 34 30 30 3A 8F 20 52 45 54 55 52 |13.35400:. RETUR|
00000440: 4E 00 61 20 1C 89 8B 47 B2 32 30 AF 4C 41 B1 31 |N.a ...G.20.LA.1|
00000450: A7 3A 89 33 36 37 30 30 3A 8F 20 44 45 4C 45 54 |.:.36700:. DELET|
00000460: 45 00 7C 20 44 89 8B 47 B2 31 34 38 A7 89 33 37 |E.| D..G.148..37|
00000470: 31 30 30 3A 8F 20 49 4E 53 45 52 54 00 AC 20 58 |100:. INSERT.. X|
00000480: 89 8B 47 B2 32 39 AF 4C 41 B3 49 4C AB 31 A7 4C |..G.29.LA.IL.1.L|
00000490: 41 B2 4C 41 AA 31 3A 89 33 35 30 36 30 3A 8F 20 |A.LA.1:.35060:. |
000004A0: 43 55 52 53 4F 52 20 52 49 47 48 54 00 D9 20 6C |CURSOR RIGHT.. l|
000004B0: 89 8B 47 B2 31 35 37 AF 4C 41 B1 31 A7 4C 41 B2 |..G.157.LA.1.LA.|
000004C0: 4C 41 AB 31 3A 89 33 35 30 36 30 3A 8F 20 43 55 |LA.1:.35060:. CU|
000004D0: 52 53 4F 52 20 4C 45 46 54 00 20 21 80 89 91 4D |RSOR LEFT. !...M|
000004E0: 4E 89 33 35 32 32 30 2C 33 35 33 30 30 2C 33 35 |N.35220,35300,35|
000004F0: 33 35 30 3A 8F 20 4E 55 4D 4D 45 52 49 53 43 48 |350:. NUMMERISCH|
00000500: 2F 41 4C 50 48 41 4E 55 4D 45 52 49 53 43 48 2F |/ALPHANUMERISCH/|
00000510: 45 52 4C 41 55 42 54 45 20 5A 45 49 43 48 45 4E |ERLAUBTE ZEICHEN|
00000520: 00 68 21 94 89 8B 47 B1 34 37 AF 47 B3 35 38 AF |.h!...G.47.G.58.|
00000530: 4C 41 B3 49 4C B0 47 B2 34 35 AF 4C 41 B3 49 4C |LA.IL.G.45.LA.IL|
00000540: B0 47 B2 34 36 AF 4C 41 B3 49 4C A7 8D 33 36 30 |.G.46.LA.IL..360|
00000550: 30 30 3A 89 33 35 30 36 30 3A D5 99 C7 28 37 29 |00:.35060:...(7)|
00000560: 3B 3A 89 33 35 30 36 30 00 8B 21 E4 89 8B 47 B1 |;:.35060..!...G.|
00000570: 34 37 AF 47 B3 35 38 AF 4C 41 B3 49 4C A7 8D 33 |47.G.58.LA.IL..3|
00000580: 36 30 30 30 3A 89 33 35 30 36 30 00 C2 21 E9 89 |6000:.35060..!..|
00000590: 8B 47 B3 34 33 B0 28 47 B1 35 37 AF 47 B3 36 35 |.G.43.(G.57.G.65|
000005A0: 29 B0 28 47 B1 39 30 AF 47 B3 31 39 33 29 B0 47 |).(G.90.G.193).G|
000005B0: B1 32 31 38 A7 99 C7 28 37 29 3B 3A 89 33 35 30 |.218...(7);:.350|
000005C0: 36 30 00 EB 21 F8 89 8B 20 4C 41 B3 49 4C A7 8D |60..!... LA.IL..|
000005D0: 33 36 30 30 30 3A 89 33 35 30 36 30 3A D5 99 C7 |36000:.35060:...|
000005E0: 28 37 29 3B 3A 89 33 35 30 36 30 00 19 22 16 8A |(7);:.35060.."..|
000005F0: 8B D4 28 45 5A 24 2C 47 24 29 B2 30 A7 99 C7 28 |..(EZ$,G$).0...(|
00000600: 37 29 3B 3A 89 33 35 30 36 30 3A D5 8D 33 36 30 |7);:.35060:..360|
00000610: 30 30 3A 89 33 35 30 36 30 00 38 22 48 8A 8F 20 |00:.35060.8"H.. |
00000620: 45 4E 44 45 20 44 45 53 20 55 4E 54 45 52 50 52 |ENDE DES UNTERPR|
00000630: 4F 47 52 41 4D 4D 45 53 00 58 22 4C 8B 8D 33 37 |OGRAMMES.X"L..37|
00000640: 39 30 30 3A 8F 20 42 4C 49 4E 4B 45 4E 20 45 49 |900:. BLINKEN EI|
00000650: 4E 53 54 45 4C 4C 45 4E 00 6D 22 56 8B 8B 20 D4 |NSTELLEN.m"V.. .|
00000660: 28 49 4E 24 2C 22 A4 22 29 B2 30 A7 8E 00 7B 22 |(IN$,".").0...{"|
00000670: 60 8B 81 49 B2 31 A4 49 4C AB 31 00 A1 22 6A 8B |`..I.1.IL.1.."j.|
00000680: 3A 20 8B 20 CA 28 49 4E 24 2C 49 2C 31 29 B2 22 |: . .(IN$,I,1)."|
00000690: A4 22 A7 CA 28 49 4E 24 2C 49 2C 31 29 B2 22 20 |."..(IN$,I,1)." |
000006A0: 22 00 A7 22 74 8B 82 00 AD 22 7E 8B 8E 00 D2 22 |".."t...."~...."|
000006B0: A0 8C 8F 20 31 20 45 52 4C 41 55 42 54 45 53 20 |... 1 ERLAUBTES |
000006C0: 5A 45 49 43 48 45 4E 20 45 49 4E 47 45 47 45 42 |ZEICHEN EINGEGEB|
000006D0: 45 4E 00 E5 22 D2 8C CA 28 49 4E 24 2C 4C 41 2C |EN.."...(IN$,LA,|
000006E0: 31 29 B2 47 24 00 FA 22 D7 8C 8B 4C 41 B3 49 4C |1).G$.."...LA.IL|
000006F0: AB 31 A7 4C 41 B2 4C 41 AA 31 00 00 23 DC 8C 8E |.1.LA.LA.1..#...|
00000700: 00 0D 23 5C 8F 8F 20 44 45 4C 45 54 45 00 32 23 |..#\.. DELETE.2#|
00000710: 7A 8F 49 4E 24 B2 C8 28 49 4E 24 2C 4C 41 AB 32 |z.IN$..(IN$,LA.2|
00000720: 29 AA C9 28 49 4E 24 2C 49 4C AB 4C 41 29 AA 22 |)..(IN$,IL.LA)."|
00000730: A4 22 00 3E 23 84 8F 4C 41 B2 4C 41 AB 31 00 49 |.".>#..LA.LA.1.I|
00000740: 23 A2 8F 89 33 35 30 36 30 00 56 23 EC 90 8F 20 |#...35060.V#... |
00000750: 49 4E 53 45 52 54 00 8B 23 0A 91 49 4E 24 B2 C8 |INSERT..#..IN$..|
00000760: 28 49 4E 24 2C 4C 41 AB 31 29 AA 22 A4 22 AA C9 |(IN$,LA.1)."."..|
00000770: 28 49 4E 24 2C 49 4C AB 4C 41 29 3A 49 4E 24 B2 |(IN$,IL.LA):IN$.|
00000780: C8 28 49 4E 24 2C 49 4C AB 31 29 00 96 23 32 91 |.(IN$,IL.1)..#2.|
00000790: 89 33 35 30 36 30 00 AC 23 A8 93 8F 20 43 55 52 |.35060..#... CUR|
000007A0: 53 4F 52 20 50 4F 53 49 54 49 4F 4E 00 D5 23 DA |SOR POSITION..#.|
000007B0: 93 99 C7 28 31 34 33 29 3B 3A 9E 20 D1 28 22 43 |...(143);:. .("C|
000007C0: 43 36 43 22 29 2C 2C 43 5A AB 31 2C 43 53 AB 31 |C6C"),,CZ.1,CS.1|
000007D0: 3A 99 49 4E 24 00 09 24 E4 93 99 C7 28 31 35 29 |:.IN$..$....(15)|
000007E0: 3B 3A 9E 20 D1 28 22 43 43 36 43 22 29 2C 2C 43 |;:. .("CC6C"),,C|
000007F0: 5A AB 31 2C 43 53 AB 32 AA 4C 41 3A 99 CA 28 49 |Z.1,CS.2.LA:..(I|
00000800: 4E 24 2C 4C 41 2C 31 29 3B 00 0F 24 EE 93 8E 00 |N$,LA,1);..$....|
00000810: 21 24 0C 94 8F 20 43 55 52 53 4F 52 20 45 4E 44 |!$... CURSOR END|
00000820: 45 00 4A 24 3E 94 99 C7 28 31 34 33 29 3B 3A 9E |E.J$>...(143);:.|
00000830: 20 D1 28 22 43 43 36 43 22 29 2C 2C 43 5A AB 31 | .("CC6C"),,CZ.1|
00000840: 2C 43 53 AB 31 3A 99 49 4E 24 00 50 24 52 94 8E |,CS.1:.IN$.P$R..|
00000850: 00 00 00 |... |
..4.... -------------------------------
------------.G.... - C U R S O R
- G E T -...... ---------
----------------------------------.M....
- V O N
-...... - J U E R G E N R I
E H N -.3.... - G A R L
E S S T R . 2 2 -.F.... -
8 6 7 7 S E L B I T Z -..
.... - 0 9 2 8 0 / 1 0 6 3
-.L.... -----------------------
--------------------....'. BEISPIELANWEN
DUNG....'.%:.:. BILDSCHIRM LOESCHEN. ..'
IN$."":. UEBERGABEINHALT.?..'CS.45:CZ.15
:. SPALTE,ZEILE.P..': MN.1:. NUR
NUMMERISCHE EINGABE....'. MN=2
NUR ALPHANUMMERISCHE EINGABE.J..'.
MN=3 NUR ERLAUBTE ZEICHEN...&'I
L.5:. LAENGE=5...('EZ$."1290":. ERLAUBTE
ZEICHEH BEI MN=3...)':.8..'.35000:. CU
RSORGET-ROUTINE AUFRUFEN.C.8'.:.IN$.I.B'
..Q.L'....Y.V'....A.`'....G...:.U.... EI
NGABE.{.B.:...C..I.1.IL...D.: . J(IN$,I,
1)." ".J(IN$,I,1)."."...E.....F.IN$.H(IN
$.".....................................
..................",IL).. L.LA.1:IL.IL.1
. ...37800:..G$.A ..G.F(G$):.G.13.35400
:. RETURN.A ...G.20.LA.1.:.36700:. DELET
E.| D..G.148..37100:. INSERT.. X..G.29.L
A.IL.1.LA.LA.1:.35060:. CURSOR RIGHT.Y L
..G.157.LA.1.LA.LA.1:.35060:. CURSOR LEF
T. !...MN.35220,35300,35350:. NUMMERISCH
/ALPHANUMERISCH/ERLAUBTE ZEICHEN.H!...G.
47.G.58.LA.IL.G.45.LA.IL.G.46.LA.IL..360
00:.35060:U.G(7);:.35060..!...G.47.G.58.
LA.IL..36000:.35060.B!...G.43.(G.57.G.65
).(G.90.G.193).G.218..G(7);:.35060..!...
LA.IL..36000:.35060:U.G(7);:.35060.."..
.T(EZ$,G$).0..G(7);:.35060:U.36000:.3506
0.8"H.. ENDE DES UNTERPROGRAMMES.X"L..37
900:. BLINKEN EINSTELLEN.M"V.. T(IN$,"."
).0...{"`..I.1.IL.1.."J.: . J(IN$,I,1)."
.".J(IN$,I,1)." ".."T...."~...R" .. 1 ER
LAUBTES ZEICHEN EINGEGEBEN.."R.J(IN$,LA,
1).G$.."W..LA.IL.1.LA.LA.1..#.....#\.. D
ELETE.2#Z.IN$.H(IN$,LA.2).I(IN$,IL.LA)."
.".>#..LA.LA.1.I#...35060.V#... INSERT..
#..IN$.H(IN$,LA.1).".".I(IN$,IL.LA):IN$.
H(IN$,IL.1)..#2..35060..#... CURSOR POSI
TION.U#Z..G(143);:. Q("CC6C"),,CZ.1,CS.1
:.IN$..$...G(15);:. Q("CC6C"),,CZ.1,CS.2
.LA:.J(IN$,LA,1);..$....!$... CURSOR END
E.J$>..G(143);:. Q("CC6C"),,CZ.1,CS.1:.I
N$.P$R.....
> CLICK IMAGE PREVIEW FOR FULL MODAL